lib/scripts/run-smlnj
changeset 4402 3b53dd8e9e23
parent 4333 1d326b826851
child 4415 715e5e2064d8
equal deleted inserted replaced
4401:384108c6e209 4402:3b53dd8e9e23
     1 #!/bin/bash
     1 #!/bin/bash
     2 #
     2 #
     3 # $Id$
     3 # $Id$
     4 #
     4 #
     5 # SML/NJ startup script (for 1.09.27 or later).
     5 # SML/NJ startup script (for 109.27 or later).
     6 #
     6 #
     7 # Global vars: INFILE OUTFILE MLTEXT TERMINATE NOWRITE ISABELLE_TMP,
     7 # Global vars: INFILE OUTFILE MLTEXT TERMINATE NOWRITE ISABELLE_TMP,
     8 # and from settings
     8 # and from settings
     9 
     9 
    10 
    10 
    15   echo "Unable to create output heap file: \"$OUTFILE\"" >&2
    15   echo "Unable to create output heap file: \"$OUTFILE\"" >&2
    16   exit 2
    16   exit 2
    17 }
    17 }
    18 
    18 
    19 
    19 
    20 ## version specific stuff
    20 ## basic setup
    21 
    21 
    22 EXIT=""
    22 EXIT="fun exit 0 : unit = OS.Process.exit OS.Process.success | exit _ = OS.Process.exit OS.Process.failure;"
    23 COMMIT=""
    23 COMMIT="fun commit () = not (SMLofNJ.exportML\"$OUTFILE\");"
    24 SUFFIX=""
    24 COMMIT_RO='fun commit () = (TextIO.output (TextIO.stdErr, "Error - Database is not opened for writing.\n"); false);'
    25 
    25 eval $($ML_HOME/.arch-n-opsys)
    26 case "$ML_SYSTEM" in
    26 SUFFIX=".$ARCH-$OPSYS"
    27   smlnj-1.09*)
       
    28     EXIT="fun exit 0 : unit = OS.Process.exit OS.Process.success | exit _ = OS.Process.exit OS.Process.failure;"
       
    29     COMMIT="fun commit () = not (SMLofNJ.exportML\"$OUTFILE\");"
       
    30     COMMIT_RO='fun commit () = (TextIO.output (TextIO.stdErr, "Error - Database is not opened for writing.\\n"); false);'
       
    31     eval $($ML_HOME/.arch-n-opsys)
       
    32     SUFFIX=".$ARCH-$OPSYS"
       
    33     ;;
       
    34 esac
       
    35 
    27 
    36 
    28 
    37 ## prepare databases
    29 ## prepare databases
    38 
    30 
    39 DB="$INFILE"
    31 DB="$INFILE"