#!/bin/sh
# Usage: gsc file options
HOST=gambit
EXT=.O
DIR=/users/feeley/gambit
HERE=$DIR/GSC/$HOST
gsi -- -c800 -h12500 << eof
(define host-system '$HOST)(load "$HERE/host$EXT")(load "$HERE/utils$EXT")(load "$HERE/parms$EXT")(load "$HERE/scheme$EXT")(load "$HERE/source$EXT")(load "$HERE/env$EXT")(load "$HERE/ptree1$EXT")(load "$HERE/ptree2$EXT")(load "$HERE/pvm$EXT")(load "$HERE/back$EXT")(load "$HERE/front$EXT")(load "$HERE/target-m68000-3$EXT")(load "$HERE/target-m68000-2$EXT")(load "$HERE/target-m68000-1$EXT")(apply cf '("$1" m68000 $2 $3 $4 $5 $6 $7 $8 $9))
eof
