[gforth] / gforth / Attic / gforth-makeimage

gforth: gforth/Attic/gforth-makeimage

1 :	anton	1.1	#! /bin/sh
2 :	anton	1.2	if test $# = 0 \|\| test $1 = --help \|\| test $1 = -h; then
3 :			echo "usage: `basename $0` target-name [gforth-options]"
4 :			echo " environment: GFORTHD: the Gforth binary used (default: gforth-ditc)"
5 :			echo "creates a relocatable image 'target-name'"
6 :			exit 1
7 :			fi
8 :	anton	1.1	outfile=$1; shift
9 :			tmpfile=./temp-image.fi
10 :	anton	1.2	test x$GFORTHD != x \|\| GFORTHD=gforth-ditc
11 :			$GFORTHD --clear-dictionary --no-offset-im $* -e "savesystem $tmpfile"1" bye"
12 :			$GFORTHD --clear-dictionary --offset-image $* -e "savesystem $tmpfile"2" bye"
13 :			$GFORTHD -i kernel.fi startup.fs comp-image.fs -e "comp-image $tmpfile"1" $tmpfile"2" $outfile bye"
14 :	anton	1.1	#gforth-0.2.1 -m 100000 comp-image.fs -e "comp-image $tmpfile"1" $tmpfile"2" $outfile bye"
15 :			rm $tmpfile"1" $tmpfile"2"