lib/scripts/run-poplogml
changeset 17807 cc5dbc24e561
parent 17805 a9c2d42937dd
child 17820 9822a7755ad4
equal deleted inserted replaced
17806:b6a547bfb419 17807:cc5dbc24e561
   101 ## run it!
   101 ## run it!
   102 
   102 
   103 POPLOG="$ML_HOME/poplog"
   103 POPLOG="$ML_HOME/poplog"
   104 check_mlhome_file "$POPLOG"
   104 check_mlhome_file "$POPLOG"
   105 
   105 
   106 MLTEXT="$EXIT $USE $COMMIT $MLTEXT"
   106 INIT="$ISABELLE_TMP/init.ml"
   107 MLEXIT="commit();"
   107 echo 'pop11
       
   108 section $-ml;
       
   109 false -> ml_quiet;
       
   110 endsection;
       
   111 ml' > "$INIT"
   108 
   112 
   109 if [ -z "$TERMINATE" ]; then
   113 echo "$EXIT $USE $COMMIT $MLTEXT" >> "$INIT"
   110   FEEDER_OPTS=""
   114 
   111 else
   115 if [ -n "$TERMINATE" ]; then
   112   FEEDER_OPTS="-q"
   116   ML_OPTIONS="$ML_OPTIONS -nostdin"
       
   117   echo "commit();" >> "$INIT"
   113 fi
   118 fi
   114 
   119 
   115 "$ISABELLE_HOME/lib/scripts/feeder" -p -h "$MLTEXT" -t "$MLEXIT" $FEEDER_OPTS | \
   120 "$POPLOG" pml "$DB" $ML_OPTIONS -load "$INIT" 2>&1
   116   { read FPID; "$POPLOG" pml "$DB" $ML_OPTIONS; RC="$?"; kill -HUP "$FPID"; exit "$RC"; }
       
   117 RC="$?"
   121 RC="$?"
   118 
   122 
   119 
   123 rm -f "$INIT"
   120 ## check heap
       
   121 
   124 
   122 [ -n "$OUTFILE" ] && check_heap_file "$OUTFILE" && \
   125 [ -n "$OUTFILE" ] && check_heap_file "$OUTFILE" && \
   123   [ -n "$NOWRITE" ] && chmod -w "$OUTFILE"
   126   [ -n "$NOWRITE" ] && chmod -w "$OUTFILE"
   124 
   127 
   125 exit "$RC"
   128 exit "$RC"