#!/bin/sh
#Copyright (C) 2008,2011 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/.
ENGINE=${ENGINE:-gforth}
KERNL=$($ENGINE --debug -e bye 2>&1 |grep "Opened image file: "|sed -e 's/Opened image file: //g' -e 's/gforth.fi/kernl*.fi/g')
VERSION=$($ENGINE --version | tr ' ' '/')
#test -f "gforth.fi" && KERNEL="gforth.fi"
if test -f "$ENGINE" -a -f "$KERNEL"; then
$ENGINE --die-on-signal "$@"
else
export includedir=`pwd`/include
$ENGINE -i $KERNL -p ".:~+:~/proj/gforths/gforth-header" exboot.fs startup.fs "$@"
fi