add more options to run-medley; fix HELPSYS compile problem

run-medley

@@ -3,28 +3,24 @@
 # Run Medley
 #
 # Syntax: run-medley [options] [sysout name]
-# Options
+# Options:
+#  -nogreet
+#  -greet <greetfile>
 
-#  -nogreet                          ; just run sysout
-#  -greet    greetfile               ; which greetfile to use
+# current limit 65536*32 bits
+#  -g[eometry]   <width>x<height>
+#  -sc[reensize] <width>x<height>
 
-#  -geometry pixelgeometry
-#  -screensize pixelgeometry
+#  -d[isplay] <xdisplay-device>
+#  -vmem <savevmemfilename>
 
-#  -display xdisplay-device    e.g. :0
-
-#   -vmem savevmemfilename
-
-# current limits the size of the screen to
-# 65536*32 bits so 1600x1200 will do
 #
 # Environment variables set
 # Directory variables are accessible from Lisp via UNIX-GETENV
 
 # LDESRCESYSOUT         SYSOUT full-file name you want to run
-# LDESOURCESYSOUT       
 # LDEDESTSYSOUT         name for destination of SAVEVM/LOGOUT
-# MEDLEYDIR
+# MEDLEYDIR             used by init file to set other path variables
 
 
 if [ -z "$MEDLEYDIR" ] ; then export MEDLEYDIR=`pwd`; fi
@@ -33,6 +29,8 @@ if [ ! -d $MEDLEYDIR/loadups ] ; then
    exit 1
 fi
 
+## should allow for local install?
+
 if [ -z "$MAIKODIR" ] ; then
    export MAIKODIR="$MEDLEYDIR/../maiko"
    if [ ! -d "$MAIKODIR"/bin ] ; then
@@ -57,37 +55,54 @@ while [ "$#" -ne 0 ]; do
             export LDEINIT="$2"
             shift
             ;;
-        "-geometry")
+        "-g")
+	    geometry="-g $2"
+	    shift
+	    ;;
+	"-geometry")
             geometry="-g $2"
             shift
             ;;
+    	"-sc")
+	    screensize="-sc 2"
+	    shift
+	    ;;
 	"-screensize")
-            screensize="-sc $2"
+	    screensize="-sc $2"
             shift
             ;;
-        "-display")
+	"-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 LDESRCESYSOUT=$1
+            export LDESRCSYSOUT=$1
 	    ;;
     esac
     shift
 done
 
-if [ -z "$LDESRCESYSOUT" ] ; then
+if [ -z "$LDESRCSYSOUT" ] ; then
     if [ -f "$LDEDESTSYSOUT" ] ; then
-	export LDESRCESYSOUT="$LDEDESTSYSOUT"
+	export LDESRCSYSOUT="$LDEDESTSYSOUT"
     fi
 else
     export LDESRCSYSOUT="$MEDLEYDIR/loadups/xfull35.sysout" ;
@@ -107,4 +122,4 @@ export PATH=$MAIKODIR/`osversion`.`machinetype`:"$oldpath"
 cd $old_wd
 
 
-$prog $geometry $screensize -t "Medley Interlisp @ https://Interlisp.org" 
+$prog $geometry $screensize -t "Medley Interlisp (https://Interlisp.org)" "$LDESRCSYSOUT"