File: preforth.in

package info (click to toggle)
gforth 0.7.3+dfsg-9
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 5,992 kB
  • sloc: ansic: 8,535; sh: 3,666; lisp: 1,778; makefile: 1,019; yacc: 186; sed: 141; lex: 102; awk: 21
file content (31 lines) | stat: -rw-r--r-- 1,056 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#!/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 -f "@srcdir@/@kernel_fi@" && KERNEL="@srcdir@/@kernel_fi@"
test -f "@kernel_fi@" && KERNEL="@kernel_fi@"
if test -f $ENGINE -a -f $KERNEL; then 
  path1="$1"
  path2="$2"
  shift; shift
#  set -x -v
  $ENGINE --die-on-signal -i @kernel_fi@ $path1 $path2 exboot.fs startup.fs "$@"
else
  @PREFORTH@ "$@"
fi