version 1.1, 2008/04/25 22:17:17
|
version 1.4, 2008/08/02 21:06:47
|
Line 1
|
Line 1
|
#!/bin/sh |
#!/bin/sh |
|
|
|
#Copyright (C) 2008 Free Software Foundation, Inc. |
|
|
|
#This file is part of Gforth. |
|
|
|
#Gforth is free software; you can redistribute it and/or |
|
#modify it under the terms of the GNU General Public License |
|
#as published by the Free Software Foundation, either version 3 |
|
#of the License, or (at your option) any later version. |
|
|
|
#This program is distributed in the hope that it will be useful, |
|
#but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
#GNU General Public License for more details. |
|
|
|
#You should have received a copy of the GNU General Public License |
|
#along with this program. If not, see http://www.gnu.org/licenses/. |
|
|
test -z "$ENGINE" && ENGINE=./gforth |
test -z "$ENGINE" && ENGINE=./gforth |
if [ -x $ENGINE ] |
if test -x $ENGINE -a -f @kernel_fi@; then |
then |
|
path1="$1" |
path1="$1" |
path2="$2" |
path2="$2" |
shift; shift |
shift; shift |
set -x -v |
# set -x -v |
$ENGINE -i @kernel_fi@ $path1 $path2 exboot.fs startup.fs "$@" |
$ENGINE --die-on-signal -i @kernel_fi@ $path1 $path2 exboot.fs startup.fs "$@" |
else |
else |
@PREFORTH@ "$@" |
@PREFORTH@ "$@" |
fi |
fi |