mirror of
git://projects.qi-hardware.com/openwrt-packages.git
synced 2024-09-05 16:19:54 +03:00
Only compile&install a minimum host Gforth for bootstrapping the target Gforth, removing strange emacs-dependencies that cropped up earlier. Image file can now be built on the nanonote using 'gforth-update-image' command. Also, Gforth is now run through a wrapper that calls 'gforth-update-image' automatically, if necessary. Also first attempts at supporting libcc C-interface libraries pre-compiled on the host. Tested to compile on amd64 and i386.
51 lines
1.2 KiB
Bash
51 lines
1.2 KiB
Bash
#! /bin/sh
|
|
#
|
|
# Part of gforth package for OpenWrt: Wrapper to call check for and create
|
|
# Gforth image before running executable.
|
|
#
|
|
# Copyright (C) 2010 David Kuehling <dvdkhlng TA gmx TOD de>
|
|
#
|
|
# License: GPLv3+, NO WARRANTY
|
|
#
|
|
dirname=$(dirname "$0")
|
|
binary=$dirname/$(basename "$0").real
|
|
|
|
GFORTH_LIB_DIR=/usr/lib/gforth/@PACKAGE_VERSION@
|
|
GFORTH_FI=$GFORTH_LIB_DIR/gforth.fi
|
|
|
|
# try to (re)generate the gforth.fi image file
|
|
do_update(){
|
|
$dirname/gforth-update-image &> /dev/null
|
|
status=$?
|
|
[ $status = 0 ] && return 0
|
|
|
|
cat<<EOF
|
|
Gforth image $GFORTH_FI
|
|
is missing and regeneration failed:
|
|
|
|
'$dirname/gforth-update-image'
|
|
aborted with exit code $status.
|
|
|
|
Try to re-run 'gforth-update-image' manually to
|
|
see what is wrong. Also please report this
|
|
problem to <discussion@lists.qi-hardware.com>
|
|
and/or <dvdkhlng ta gmx tod de>.
|
|
|
|
As a workaround, you can run a kernel-only Gforth
|
|
(with reduced functionality), using:
|
|
|
|
$binary -i @kernel_fi@
|
|
EOF
|
|
|
|
exec false
|
|
}
|
|
|
|
if ! [ -f "$GFORTH_FI" ]; then
|
|
do_update
|
|
fi
|
|
|
|
# if everything is ok, we'll come here and run the actual Gforth executable
|
|
# (gforth.real, gforth-fast.real etc.)
|
|
exec "$binary" "$@"
|
|
|