blob: 5d5143452c23fd8cd2abc60baa51378dc6be2c58 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
#! /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 $?
|
