author | wenzelm |
Tue, 06 May 1997 15:27:35 +0200 | |
changeset 3118 | 24dae6222579 |
parent 3054 | c16029f41ad9 |
child 3183 | 537f7281d42c |
permissions | -rwxr-xr-x |
wenzelm@3007 | 1 |
#!/bin/bash |
wenzelm@2292 | 2 |
# |
wenzelm@2308 | 3 |
# $Id$ |
wenzelm@2308 | 4 |
# |
wenzelm@2292 | 5 |
# Basic Isabelle startup script. |
wenzelm@2292 | 6 |
|
wenzelm@2292 | 7 |
|
wenzelm@2292 | 8 |
## settings |
wenzelm@2292 | 9 |
|
wenzelm@2704 | 10 |
PRG=$(basename $0) |
wenzelm@2704 | 11 |
|
wenzelm@2735 | 12 |
ISABELLE_HOME=$(dirname $0)/.. |
wenzelm@2735 | 13 |
. $ISABELLE_HOME/lib/scripts/getsettings || \ |
wenzelm@2936 | 14 |
{ echo "$PRG probably not called from its original place!"; exit 2; } |
wenzelm@2292 | 15 |
|
wenzelm@2292 | 16 |
|
wenzelm@2292 | 17 |
## diagnostics |
wenzelm@2292 | 18 |
|
wenzelm@2292 | 19 |
function usage() |
wenzelm@2292 | 20 |
{ |
wenzelm@2292 | 21 |
echo |
wenzelm@2292 | 22 |
echo "Usage: $PRG [OPTIONS] [INPUT] [OUTPUT]" |
wenzelm@2292 | 23 |
echo |
wenzelm@2292 | 24 |
echo " Options are:" |
wenzelm@2343 | 25 |
echo " -e MLTEXT pass MLTEXT to the ML session" |
wenzelm@2704 | 26 |
echo " -m MODE add print mode for output" |
wenzelm@2292 | 27 |
echo " -q non-interactive session" |
wenzelm@2292 | 28 |
echo " -r open heap file read-only" |
wenzelm@2343 | 29 |
echo " -u pass 'exit_use_dir\".\";' to the ML session" |
wenzelm@2292 | 30 |
echo |
wenzelm@2292 | 31 |
echo " INPUT (default \"$DEFAULT_LOGIC\") and OUTPUT specify in/out heaps." |
wenzelm@2292 | 32 |
echo " These are either names to be searched in the Isabelle path, or actual" |
wenzelm@2343 | 33 |
echo " file names (then containing at least one /)." |
wenzelm@2768 | 34 |
echo " If INPUT is \"RAW_ML_SYSTEM\", just start the bare bones ML system." |
wenzelm@2292 | 35 |
echo |
wenzelm@2292 | 36 |
exit 1 |
wenzelm@2292 | 37 |
} |
wenzelm@2292 | 38 |
|
wenzelm@2292 | 39 |
function fail() |
wenzelm@2292 | 40 |
{ |
wenzelm@2343 | 41 |
echo "$1" >&2 |
wenzelm@2292 | 42 |
exit 2 |
wenzelm@2292 | 43 |
} |
wenzelm@2292 | 44 |
|
wenzelm@2292 | 45 |
|
wenzelm@2292 | 46 |
## process command line |
wenzelm@2292 | 47 |
|
wenzelm@2292 | 48 |
# options |
wenzelm@2292 | 49 |
|
wenzelm@2292 | 50 |
MLTEXT="" |
wenzelm@2704 | 51 |
MODES="" |
wenzelm@2292 | 52 |
TERMINATE="" |
wenzelm@2292 | 53 |
READONLY="" |
wenzelm@2292 | 54 |
|
wenzelm@3054 | 55 |
while getopts "e:m:qru" OPT |
wenzelm@2292 | 56 |
do |
wenzelm@2292 | 57 |
case "$OPT" in |
wenzelm@2292 | 58 |
e) |
wenzelm@2292 | 59 |
MLTEXT="$MLTEXT $OPTARG" |
wenzelm@2292 | 60 |
;; |
wenzelm@2704 | 61 |
m) |
wenzelm@2704 | 62 |
if [ -z "$MODES" ]; then |
wenzelm@2704 | 63 |
MODES="\"$OPTARG\"" |
wenzelm@2704 | 64 |
else |
wenzelm@2711 | 65 |
MODES="\"$OPTARG\", $MODES" |
wenzelm@2704 | 66 |
fi |
wenzelm@2704 | 67 |
;; |
wenzelm@2292 | 68 |
q) |
wenzelm@2292 | 69 |
TERMINATE=true |
wenzelm@2292 | 70 |
;; |
wenzelm@2292 | 71 |
r) |
wenzelm@2292 | 72 |
READONLY=true |
wenzelm@2292 | 73 |
;; |
wenzelm@2292 | 74 |
u) |
wenzelm@2343 | 75 |
MLTEXT="$MLTEXT exit_use_dir\".\";" |
wenzelm@2292 | 76 |
;; |
wenzelm@2292 | 77 |
\?) |
wenzelm@2292 | 78 |
usage |
wenzelm@2292 | 79 |
;; |
wenzelm@2292 | 80 |
esac |
wenzelm@2292 | 81 |
done |
wenzelm@2292 | 82 |
|
wenzelm@2292 | 83 |
shift $(($OPTIND - 1)) |
wenzelm@2292 | 84 |
|
wenzelm@2292 | 85 |
|
wenzelm@2292 | 86 |
# args |
wenzelm@2292 | 87 |
|
wenzelm@2292 | 88 |
INPUT="" |
wenzelm@2292 | 89 |
OUTPUT="" |
wenzelm@2292 | 90 |
|
wenzelm@2292 | 91 |
if [ $# -ge 1 ]; then |
wenzelm@2292 | 92 |
INPUT="$1" |
wenzelm@2292 | 93 |
shift |
wenzelm@2292 | 94 |
fi |
wenzelm@2292 | 95 |
|
wenzelm@2292 | 96 |
if [ $# -ge 1 ]; then |
wenzelm@2292 | 97 |
OUTPUT="$1" |
wenzelm@2292 | 98 |
shift |
wenzelm@2292 | 99 |
fi |
wenzelm@2292 | 100 |
|
wenzelm@2936 | 101 |
[ $# -ne 0 ] && { echo "Bad args: $*"; usage; } |
wenzelm@2292 | 102 |
|
wenzelm@2292 | 103 |
|
wenzelm@2292 | 104 |
## check ML system |
wenzelm@2292 | 105 |
|
wenzelm@2308 | 106 |
[ -z "$ML_SYSTEM" ] && fail "Missing ML system settings! Unable to run Isabelle." |
wenzelm@2292 | 107 |
|
wenzelm@2292 | 108 |
|
wenzelm@2292 | 109 |
## input heap file |
wenzelm@2292 | 110 |
|
wenzelm@2292 | 111 |
[ -z "$INPUT" ] && INPUT="$DEFAULT_LOGIC" |
wenzelm@2292 | 112 |
|
wenzelm@2292 | 113 |
case "$INPUT" in |
wenzelm@2768 | 114 |
RAW_ML_SYSTEM) |
wenzelm@2292 | 115 |
INFILE="" |
wenzelm@2292 | 116 |
;; |
wenzelm@2292 | 117 |
*/*) |
wenzelm@2292 | 118 |
INFILE="$INPUT" |
wenzelm@2343 | 119 |
[ ! -f "$INFILE" ] && fail "Bad heap file: \"$INFILE\"" |
wenzelm@2292 | 120 |
;; |
wenzelm@2292 | 121 |
*) |
wenzelm@2308 | 122 |
ISA_PATH="" |
wenzelm@2292 | 123 |
INFILE="" |
wenzelm@2292 | 124 |
for DIR in $(echo $ISABELLE_PATH | tr : " ") |
wenzelm@2292 | 125 |
do |
wenzelm@2968 | 126 |
ISA_PATH="$ISA_PATH $DIR" |
wenzelm@2968 | 127 |
[ -z "$INFILE" -a -f $DIR/$INPUT ] && INFILE=$DIR/$INPUT |
wenzelm@2292 | 128 |
done |
wenzelm@2308 | 129 |
if [ -z "$INFILE" ]; then |
wenzelm@2343 | 130 |
echo "Unknown logic \"$INPUT\" -- no heap file found in:" >&2 |
wenzelm@2308 | 131 |
for DIR in $ISA_PATH |
wenzelm@2308 | 132 |
do |
wenzelm@2343 | 133 |
echo " $DIR" >&2 |
wenzelm@2308 | 134 |
done |
wenzelm@2308 | 135 |
exit 2 |
wenzelm@2308 | 136 |
fi |
wenzelm@2292 | 137 |
;; |
wenzelm@2292 | 138 |
esac |
wenzelm@2292 | 139 |
|
wenzelm@2292 | 140 |
|
wenzelm@2292 | 141 |
## output heap file |
wenzelm@2292 | 142 |
|
wenzelm@2292 | 143 |
case "$OUTPUT" in |
wenzelm@2292 | 144 |
"") |
wenzelm@2292 | 145 |
[ -z "$READONLY" -a -w "$INFILE" ] && OUTFILE="$INFILE" |
wenzelm@2292 | 146 |
;; |
wenzelm@2292 | 147 |
*/*) |
wenzelm@2292 | 148 |
OUTFILE="$OUTPUT" |
wenzelm@2292 | 149 |
;; |
wenzelm@2292 | 150 |
*) |
wenzelm@3118 | 151 |
mkdir -p "$ISABELLE_OUTPUT" |
wenzelm@3118 | 152 |
OUTFILE="$ISABELLE_OUTPUT/$OUTPUT" |
wenzelm@2292 | 153 |
;; |
wenzelm@2292 | 154 |
esac |
wenzelm@2292 | 155 |
|
wenzelm@2292 | 156 |
|
wenzelm@2292 | 157 |
## run it! |
wenzelm@2292 | 158 |
|
wenzelm@2292 | 159 |
ML_SYSTEM_BASE=$(echo $ML_SYSTEM | cut -f1 -d-) |
wenzelm@2292 | 160 |
|
wenzelm@2704 | 161 |
[ -n "$MODES" ] && MLTEXT="print_mode := [$MODES]; $MLTEXT" |
wenzelm@2704 | 162 |
|
wenzelm@3054 | 163 |
export INFILE OUTFILE MLTEXT TERMINATE |
wenzelm@2292 | 164 |
[ -f $ISABELLE_HOME/lib/scripts/run-$ML_SYSTEM ] && exec $ISABELLE_HOME/lib/scripts/run-$ML_SYSTEM |
wenzelm@2292 | 165 |
exec $ISABELLE_HOME/lib/scripts/run-$ML_SYSTEM_BASE |