This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/library/mpi/examples/demo.sh
stasinos d354e871f9 starting new files
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@844 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2003-07-15 12:01:51 +00:00

54 lines
1.1 KiB
Bash
Executable File

#!/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