equal
deleted
inserted
replaced
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" |