File:  [gforth] / gforth / preforth.in
Revision 1.3: download - view: text, annotated - select for diffs
Wed Jul 16 19:44:11 2008 UTC (15 years, 8 months ago) by anton
Branches: MAIN
CVS tags: HEAD
preforth now works if there is an engine but no kernel

    1: #!/bin/sh
    2: 
    3: #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: test -z "$ENGINE" && ENGINE=./gforth
   21: if test -x $ENGINE -a -f @kernel_fi@; then 
   22:   path1="$1"
   23:   path2="$2"
   24:   shift; shift
   25: #  set -x -v
   26:   $ENGINE -i @kernel_fi@ $path1 $path2 exboot.fs startup.fs "$@"
   27: else
   28:   @PREFORTH@ "$@"
   29: fi

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>