[gforth] / gforth / preforth.in

gforth: gforth/preforth.in

1 :	anton	1.1	#!/bin/sh
2 :
3 :	anton	1.2	#Copyright (C) 2008 Free Software Foundation, Inc.
4 :
5 :			#This file is part of Gforth.
6 :
7 :			#Gforth is free software; you can redistribute it and/or
8 :			#modify it under the terms of the GNU General Public License
9 :			#as published by the Free Software Foundation, either version 3
10 :			#of the License, or (at your option) any later version.
11 :
12 :			#This program is distributed in the hope that it will be useful,
13 :			#but WITHOUT ANY WARRANTY; without even the implied warranty of
14 :			#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 :			#GNU General Public License for more details.
16 :
17 :			#You should have received a copy of the GNU General Public License
18 :			#along with this program. If not, see http://www.gnu.org/licenses/.
19 :
20 :	anton	1.1	test -z "$ENGINE" && ENGINE=./gforth
21 :	anton	1.5	if test -f $ENGINE -a -f @kernel_fi@; then
22 :	anton	1.1	path1="$1"
23 :			path2="$2"
24 :			shift; shift
25 :	anton	1.3	# set -x -v
26 :	pazsan	1.4	$ENGINE --die-on-signal -i @kernel_fi@ $path1 $path2 exboot.fs startup.fs "$@"
27 :	anton	1.1	else
28 :			@PREFORTH@ "$@"
29 :			fi