1
0
mirror of git://projects.qi-hardware.com/openwrt-packages.git synced 2024-12-23 11:57:41 +02:00
openwrt-packages/gforth/files/gforth-update-image.in
David Kühling 4bfce3b6e2 Major overhaul and cleanup. Support for .ubi image file installations.
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.
2010-09-18 20:47:21 +02:00

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 $?