#!/bin/sh

# Run Medley
#
# Syntax: run-medley [options] [sysout name]
# Options:
#  -nogreet
#  -greet <greetfile>

# current limit 65536*32 bits
#  -g[eometry]   <width>x<height>
#  -sc[reensize] <width>x<height>

#  -d[isplay] <xdisplay-device>
#  -vmem <savevmemfilename>

#
# Environment variables set
# Directory variables are accessible from Lisp via UNIX-GETENV

# LDESRCESYSOUT         SYSOUT full-file name you want to run
# LDEDESTSYSOUT         name for destination of SAVEVM/LOGOUT
# MEDLEYDIR             used by init file to set other path variables


if [ -z "$MEDLEYDIR" ] ; then export MEDLEYDIR=`pwd`; fi
if [ ! -d $MEDLEYDIR/loadups ] ; then
   echo MEDLEYDIR not found: "$MEDLEYDIR"
   exit 1
fi

## should allow for local install?

if [ -z "$MAIKODIR" ] ; then
   export MAIKODIR="$MEDLEYDIR/../maiko"
   if [ ! -d "$MAIKODIR"/bin ] ; then
    echo "MAIKODIR not found: $MAIKODIR"
    exit 1
   fi
fi

geometry="-g 1440x900"
screensize="-sc 1440x900"

export LDEINIT="$MEDLEYDIR/greetfiles/SIMPLE-INIT"
export LDEKBDTYPE=x
export LDEDESTSYSOUT=~/lisp.virtualmem

while [ "$#" -ne 0 ]; do
    case "$1" in
        "-nogreet")
            export LDEINIT=""
            ;;
        "-greet")
            export LDEINIT="$2"
            shift
            ;;
        "-g")
	    geometry="-g $2"
	    shift
	    ;;
	"-geometry")
            geometry="-g $2"
            shift
            ;;
    	"-sc")
	    screensize="-sc 2"
	    shift
	    ;;
	"-screensize")
	    screensize="-sc $2"
            shift
            ;;
	"-display")
            export DISPLAY=$2
            shift
            ;;
	"-d")
	    export DISPLAY=$2
	    ;;
	"-vmem")
	    LDEDESTSYSOUT=$2
	    shift
	    ;;
	"-full")
	    export LDESRCSYSOUT="$MEDLEYDIR/loadups/xfull35.sysout"
	    ;;
	"-lisp")
	    export LDESRCSYSOUT="$MEDLEYDIR/loadups/xlisp.sysout"
	    ;;
	"-"*)
	    echo unrecognized option "$1"
	    exit 1
	    ;;
        *)
	    # not an option so must be a sysout name
            export LDESRCSYSOUT=$1
	    ;;
    esac
    shift
done

if [ -z "$LDESRCSYSOUT" ] ; then
    if [ -f "$LDEDESTSYSOUT" ] ; then
	export LDESRCSYSOUT="$LDEDESTSYSOUT"
    fi
else
    export LDESRCSYSOUT="$MEDLEYDIR/loadups/xfull35.sysout" ;
fi


export INMEDLEY=1
echo "sysout is " $LDESRCESYSOUT

prog="lde"
oldpath="$PATH"

export PATH=.:"$PATH"
cd "$MAIKODIR"/bin

export PATH=$MAIKODIR/`osversion`.`machinetype`:"$oldpath"
cd $old_wd


$prog $geometry $screensize -t "Medley Interlisp (https://Interlisp.org)" "$LDESRCSYSOUT"