mirror of
git://projects.qi-hardware.com/openwrt-packages.git
synced 2024-11-25 23:31:54 +02:00
4bfce3b6e2
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.
61 lines
1.3 KiB
Bash
61 lines
1.3 KiB
Bash
#! /bin/sh
|
|
#
|
|
# Part of gforth package for OpenWrt: update Gforth pre-compiled interpreter
|
|
# image from installed sources
|
|
#
|
|
# Copyright (C) 2010 David Kuehling <dvdkhlng TA gmx TOD de>
|
|
#
|
|
# License: GPLv3+, NO WARRANTY
|
|
#
|
|
|
|
# Rationale for choice of stack sizes, see Gforth Manual chapter 13.6
|
|
FORTHSIZES="--dictionary-size=1M \
|
|
--data-stack-size=16k \
|
|
--fp-stack-size=15872 \
|
|
--return-stack-size=15360 \
|
|
--locals-stack-size=14848"
|
|
|
|
STARTUP="exboot.fs startup.fs @asm_fs@ @disasm_fs@"
|
|
|
|
FORTHKFLAGS="--die-on-signal -i @kernel_fi@"
|
|
|
|
GFORTH_SHARE_DIR=/usr/share/gforth/@PACKAGE_VERSION@
|
|
GFORTH_LIB_DIR=/usr/lib/gforth/@PACKAGE_VERSION@
|
|
GFORTH_BIN_DIR=/usr/bin
|
|
|
|
GFORTH_FI=${GFORTH_LIB_DIR}/gforth.fi
|
|
|
|
echo "Creating Gforth interpreter image..."
|
|
|
|
mkdir -p $GFORTH_LIB_DIR
|
|
|
|
check_writable(){
|
|
if [ -f $GFORTH_FI ] && ! [ -w $GFORTH_FI ]; then
|
|
return 1
|
|
elif ! [ -w $GFORTH_LIB_DIR ]; then
|
|
return 1
|
|
fi
|
|
|
|
return 0
|
|
}
|
|
|
|
if ! check_writable; then
|
|
cat <<EOF
|
|
You do not have permissions to create/modify the
|
|
image file:
|
|
$GFORTH_FI
|
|
|
|
Are you not root?
|
|
EOF
|
|
exec false
|
|
fi
|
|
|
|
export libccdir=${GFORTH_LIB_DIR}/libcc-named
|
|
export GFORTH="/usr/bin/gforth.real ${FORTHSIZES} ${FORTHKFLAGS} ${STARTUP}"
|
|
gforthmi ${GFORTH_FI}.new ${FORTHSIZES} ${FORTHKFLAGS} ${STARTUP} &&
|
|
mv -f ${GFORTH_FI}.new ${GFORTH_FI}
|
|
exit $?
|
|
|
|
|
|
|