#!/usr/bin/env bash

 #

 # Author: Markus Wenzel, TU Muenchen

 #

 # Isabelle process startup script.

 if [ -L "$0" ]; then

   TARGET="$(LC_ALL=C ls -l "$0" | sed 's/.* -> //')"

   exec "$(cd "$(dirname "$0")"; cd "$(pwd -P)"; cd "$(dirname "$TARGET")"; pwd)/$(basename "$TARGET")" "$@"

 fi

 ## settings

 PRG="$(basename "$0")"

 ISABELLE_HOME="$(cd "$(dirname "$0")"; cd "$(pwd -P)"; cd ..; pwd)"

 source "$ISABELLE_HOME/lib/scripts/getsettings" || exit 2

 ## diagnostics

 function usage()

 {

   echo

   echo "Usage: $PRG [OPTIONS] [INPUT] [OUTPUT]"

   echo

   echo "  Options are:"

   echo "    -I           startup Isar interaction mode"

   echo "    -P           startup Proof General interaction mode"

   echo "    -S           secure mode -- disallow critical operations"

   echo "    -T ADDR      startup process wrapper, with socket address"

   echo "    -W IN:OUT    startup process wrapper, with input/output fifos"

   echo "    -e MLTEXT    pass MLTEXT to the ML session"

   echo "    -m MODE      add print mode for output"

   echo "    -o OPTION    override Isabelle system OPTION (via NAME=VAL or NAME)"

   echo "    -q           non-interactive session"

   echo "    -r           open heap file read-only"

   echo "    -w           reset write permissions on OUTPUT"

   echo

   echo "  INPUT (default \"$ISABELLE_LOGIC\") and OUTPUT specify in/out heaps."

   echo "  These are either names to be searched in the Isabelle path, or"

   echo "  actual file names (containing at least one /)."

   echo "  If INPUT is \"RAW_ML_SYSTEM\", just start the bare bones ML system."

   echo

   exit 1

 }

 function fail()

 {

   echo "$1" >&2

   exit 2

 }

 ## process command line

 # options

 ISAR=""

 PROOFGENERAL=""

 SECURE=""

 WRAPPER_SOCKET=""

 WRAPPER_FIFOS=""

 MLTEXT=""

 MODES=""

 declare -a SYSTEM_OPTIONS=()

 TERMINATE=""

 READONLY=""

 NOWRITE=""

 while getopts "IPST:W:e:m:o:qrw" OPT

 do

   case "$OPT" in

     I)

       ISAR=true

       ;;

     P)

       PROOFGENERAL=true

       ;;

     S)

       SECURE=true

       ;;

     T)

       WRAPPER_SOCKET="$OPTARG"

       ;;

     W)

       WRAPPER_FIFOS="$OPTARG"

       ;;

     e)

       MLTEXT="$MLTEXT $OPTARG"

       ;;

     m)

       if [ -z "$MODES" ]; then

         MODES="\"$OPTARG\""

       else

         MODES="\"$OPTARG\", $MODES"

       fi

       ;;

     o)

       SYSTEM_OPTIONS["${#SYSTEM_OPTIONS[@]}"]="$OPTARG"

       ;;

     q)

       TERMINATE=true

       ;;

     r)

       READONLY=true

       ;;

     w)

       NOWRITE=true

       ;;

     \?)

       usage

       ;;

   esac

 done

 shift $(($OPTIND - 1))

 # args

 INPUT=""

 OUTPUT=""

 if [ "$#" -ge 1 ]; then

   INPUT="$1"

   shift

 fi

 if [ "$#" -ge 1 ]; then

   OUTPUT="$1"

   shift

 fi

 [ "$#" -ne 0 ] && { echo "Bad args: $*"; usage; }

 ## check ML system

 [ -z "$ML_SYSTEM" ] && fail "Missing ML system settings! Unable to run Isabelle."

 ## input heap file

 [ -z "$INPUT" ] && INPUT="$ISABELLE_LOGIC"

 case "$INPUT" in

   RAW_ML_SYSTEM)

     INFILE=""

     ;;

   */*)

     INFILE="$INPUT"

     [ ! -f "$INFILE" ] && fail "Bad heap file: \"$INFILE\""

     ;;

   *)

     INFILE=""

     ISA_PATH=""

     splitarray ":" "$ISABELLE_PATH"; PATHS=("${SPLITARRAY[@]}")

     for DIR in "${PATHS[@]}"

     do

       DIR="$DIR/$ML_IDENTIFIER"

       ISA_PATH="$ISA_PATH  $DIR\n"

       [ -z "$INFILE" -a -f "$DIR/$INPUT" ] && INFILE="$DIR/$INPUT"

     done

     if [ -z "$INFILE" ]; then

       echo "Unknown logic \"$INPUT\" -- no heap file found in:" >&2

       echo -ne "$ISA_PATH" >&2

       exit 2

     fi

     ;;

 esac

 ## output heap file

 case "$OUTPUT" in

   "")

     if [ -z "$READONLY" -a -w "$INFILE" ]; then

       perl -e "exit (((stat('$INFILE'))[2] & 0222) != 0 ? 0 : 1);" && OUTFILE="$INFILE"

     fi

     ;;

   */*)

     OUTFILE="$OUTPUT"

     ;;

   *)

     mkdir -p "$ISABELLE_OUTPUT"

     OUTFILE="$ISABELLE_OUTPUT/$OUTPUT"

     ;;

 esac

 ## prepare tmp directory

 [ -z "$ISABELLE_TMP_PREFIX" ] && ISABELLE_TMP_PREFIX=/tmp/isabelle

 ISABELLE_PID="$$"

 ISABELLE_TMP="$ISABELLE_TMP_PREFIX$ISABELLE_PID"

 mkdir -p "$ISABELLE_TMP"

 ## run it!

 ML_SYSTEM_BASE=$(echo "$ML_SYSTEM" | cut -f1 -d-)

 [ -n "$MODES" ] && MLTEXT="Unsynchronized.change print_mode (append [$MODES]); $MLTEXT"

 [ -n "$SECURE" ] && MLTEXT="$MLTEXT; Secure.set_secure ();"

 NICE="nice"

 if [ -n "$WRAPPER_SOCKET" ]; then

   MLTEXT="$MLTEXT; Isabelle_Process.init_socket \"$WRAPPER_SOCKET\";"

 elif [ -n "$WRAPPER_FIFOS" ]; then

   splitarray ":" "$WRAPPER_FIFOS"; FIFOS=("${SPLITARRAY[@]}")

   [ "${#FIFOS[@]}" -eq 2 ] || fail "Expected IN:OUT fifo specification"

   [ -p "${FIFOS[0]}" ] || fail "Bad input fifo: ${FIFOS[0]}"

   [ -p "${FIFOS[1]}" ] || fail "Bad output fifo: ${FIFOS[1]}"

   MLTEXT="$MLTEXT; Isabelle_Process.init_fifos \"${FIFOS[0]}\" \"${FIFOS[1]}\";"

 else

   ISABELLE_PROCESS_OPTIONS="$ISABELLE_TMP/options"

   "$ISABELLE_TOOL" options -x "$ISABELLE_PROCESS_OPTIONS" -- "${SYSTEM_OPTIONS[@]}" || \

     fail "Failed to retrieve Isabelle system options"

   if [ "$INPUT" != RAW_ML_SYSTEM -a "$INPUT" != RAW ]; then

     MLTEXT="Options.load_default () handle _ => exit 2; $MLTEXT"

   fi

   if [ -n "$PROOFGENERAL" ]; then

     MLTEXT="$MLTEXT; ProofGeneral.init ();"

   elif [ -n "$ISAR" ]; then

     MLTEXT="$MLTEXT; Isar.main ();"

   else

     NICE=""

   fi

 fi

 export INFILE OUTFILE MLTEXT TERMINATE NOWRITE ISABELLE_PID ISABELLE_TMP ISABELLE_PROCESS_OPTIONS

 if [ -f "$ISABELLE_HOME/lib/scripts/run-$ML_SYSTEM" ]; then

   $NICE "$ISABELLE_HOME/lib/scripts/run-$ML_SYSTEM"

 else

   $NICE "$ISABELLE_HOME/lib/scripts/run-$ML_SYSTEM_BASE"

 fi

 RC="$?"

 [ -n "$ISABELLE_PROCESS_OPTIONS" ] && rm -f "$ISABELLE_PROCESS_OPTIONS"

 rmdir "$ISABELLE_TMP"

 exit "$RC"