54 lines
1.1 KiB
Bash
54 lines
1.1 KiB
Bash
|
#!/bin/sh
|
||
|
|
# demo.sh
|
||
|
|
#
|
||
|
|
# This file was originally created on 3/7/2003
|
||
|
|
# by Stasinos Konstantopoulos konstant@let.rug.nl
|
||
|
|
# as part of the YAP Prolog distribution.
|
||
|
|
#
|
||
|
|
# This file is in the Public Domain.
|
||
|
|
|
||
|
|
# Arguments: $1 will be the Prolog programme to load.
|
||
|
|
|
||
|
|
PLFILE=$1
|
||
|
|
shift 1
|
||
|
|
|
||
|
|
YAP=${HOME}/opt/yap-cur/mpich-gm-gcc-nodebug/bin/yap
|
||
|
|
|
||
|
|
# accumulator for stuff before the --
|
||
|
|
before=""
|
||
|
|
# accumulator for stuff after the --
|
||
|
|
after=""
|
||
|
|
# the previous parameter is expecting an argument
|
||
|
|
argument=""
|
||
|
|
# i'm still busy with the "before" stuff
|
||
|
|
flag=yes
|
||
|
|
|
||
|
|
while test -n "$1"; do
|
||
|
|
#echo "DEBUG: $*"
|
||
|
|
#echo "DEBUG: flag = $flag"
|
||
|
|
if test -n "$flag"; then
|
||
|
|
#echo "DEBUG: argument = $argument"
|
||
|
|
if test -n "$argument"; then
|
||
|
|
argument=""
|
||
|
|
before="$before $1"
|
||
|
|
#elif test "$1" = "-l" -o "$1" = "-h" -o "$1" = "-s" -o "$1" = "-t"; then
|
||
|
|
# argument=yes
|
||
|
|
# before="$before $1"
|
||
|
|
else
|
||
|
|
flag=""
|
||
|
|
fi
|
||
|
|
fi
|
||
|
|
if test -z "$flag"; then
|
||
|
|
after="$after $1"
|
||
|
|
fi
|
||
|
|
shift
|
||
|
|
done
|
||
|
|
|
||
|
|
#echo "${YAP} $before -- $after"
|
||
|
|
|
||
|
|
QUOTE="'"
|
||
|
|
|
||
|
|
echo "consult(${QUOTE}${PLFILE}${QUOTE}). start(0,20). halt."
|
||
|
|
echo "consult(${QUOTE}${PLFILE}${QUOTE}). start(0,20). halt." | ${YAP} $before -- $after
|
||
|
|
|