starting new files

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@844 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

library/mpi/examples/demo.sh

@@ -0,0 +1,53 @@
+#!/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
+