126 lines
2.5 KiB
Bash
Executable File
126 lines
2.5 KiB
Bash
Executable File
#!/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"
|