fix bugs and start working on loadup changes

makesysout/loadup-full.sh

@@ -0,0 +1,14 @@
+/bin/sh
+
+export MEDLEYDIR=`pwd`
+
+if [ ! -f run-medley ] ; then
+    echo must run from MEDLEYDIR ;
+    exit 1 ;
+fi
+
+export LOADUPDIR=$MEDLEYDIR
+
+./run-medley -greet $MEDLEYDIR/makesysout/makefullsysout.lcom $MEDLEYDIR/loadups/xlisp.sysout
+
+

makesysout/loadup-lisp.sh

@@ -0,0 +1,12 @@
+/bin/sh
+
+export MEDLEYDIR=`pwd`
+
+if [! -e run-medley ] ; then
+    echo run from MEDLEYDIR
+    exit 1
+fi
+
+export LOADUPDIR=$MEDLEYDIR
+
+$ ./run-medley -greet $MEDLEYDIR/makesysout/synclispfiles.lcom $MEDLEYDIR/loadups/lisp.venuesysout

run-medley

@@ -14,7 +14,6 @@
 #  -d[isplay] <xdisplay-device>
 #  -vmem <savevmemfilename>
 
-#
 # Environment variables set
 # Directory variables are accessible from Lisp via UNIX-GETENV
 
@@ -23,7 +22,7 @@
 # MEDLEYDIR             used by init file to set other path variables
 
 
-if [ -z "$MEDLEYDIR" ] ; then export MEDLEYDIR=`pwd`; fi
+if [ -z "$MEDLEYDIR" ] ; then export MEDLEYDIR="`pwd`"; fi
 if [ ! -d $MEDLEYDIR/loadups ] ; then
    echo MEDLEYDIR not found: "$MEDLEYDIR"
    exit 1
@@ -33,18 +32,21 @@ fi
 
 if [ -z "$MAIKODIR" ] ; then
    export MAIKODIR="$MEDLEYDIR/../maiko"
-   if [ ! -d "$MAIKODIR"/bin ] ; then
+   if [ ! -d "$MAIKODIR"/bin ] ; then # should have more precise test
     echo "MAIKODIR not found: $MAIKODIR"
     exit 1
    fi
 fi
 
+prog="lde"
 geometry="-g 1440x900"
 screensize="-sc 1440x900"
 
+
+export LDEDESTSYSOUT="~/lisp.virtualmem"
 export LDEINIT="$MEDLEYDIR/greetfiles/SIMPLE-INIT"
 export LDEKBDTYPE=x
-export LDEDESTSYSOUT=~/lisp.virtualmem
+
 
 while [ "$#" -ne 0 ]; do
     case "$1" in
@@ -55,64 +57,51 @@ while [ "$#" -ne 0 ]; do
             export LDEINIT="$2"
             shift
             ;;
-        "-g")
+	"-geometry" | "-g")
 	    geometry="-g $2"
 	    shift
 	    ;;
-	"-geometry")
-            geometry="-g $2"
-            shift
-            ;;
-    	"-sc")
-	    screensize="-sc 2"
+    	"-screensize" | "-sc")
+	    screensize="-sc $2"
 	    shift
 	    ;;
-	"-screensize")
-	    screensize="-sc $2"
+	"-display" | "-d")
+            export DISPLAY="$2"
             shift
             ;;
-	"-display")
-            export DISPLAY=$2
-            shift
-            ;;
-	"-d")
-	    export DISPLAY=$2
-	    ;;
 	"-vmem")
-	    LDEDESTSYSOUT=$2
+	    LDEDESTSYSOUT="$2"
 	    shift
 	    ;;
 	"-full")
-	    export LDESRCSYSOUT="$MEDLEYDIR/loadups/xfull35.sysout"
+	    export LDESRCESYSOUT="$MEDLEYDIR/loadups/xfull35.sysout"
 	    ;;
 	"-lisp")
-	    export LDESRCSYSOUT="$MEDLEYDIR/loadups/xlisp.sysout"
+	    export LDESRCESYSOUT="$MEDLEYDIR/loadups/xlisp.sysout"
 	    ;;
-	"-"*)
+	"-*")
 	    echo unrecognized option "$1"
 	    exit 1
 	    ;;
         *)
-	    # not an option so must be a sysout name
-            export LDESRCSYSOUT=$1
+            export LDESRCESYSOUT="$1"
 	    ;;
     esac
     shift
 done
 
-if [ -z "$LDESRCSYSOUT" ] ; then
+if [ -z "$LDESRCESYSOUT" ] ; then
     if [ -f "$LDEDESTSYSOUT" ] ; then
-	export LDESRCSYSOUT="$LDEDESTSYSOUT"
+	export LDESRCESYSOUT="$LDEDESTSYSOUT"
+    else
+	export LDESRCESYSOUT="$MEDLEYDIR/loadups/xfull35.sysout" ;
     fi
-else
-    export LDESRCSYSOUT="$MEDLEYDIR/loadups/xfull35.sysout" ;
 fi
 
 
 export INMEDLEY=1
-echo "sysout is " $LDESRCESYSOUT
 
-prog="lde"
+
 oldpath="$PATH"
 
 export PATH=.:"$PATH"
@@ -121,5 +110,8 @@ cd "$MAIKODIR"/bin
 export PATH=$MAIKODIR/`osversion`.`machinetype`:"$oldpath"
 cd $old_wd
 
+echo "sysout is $LDESRCESYSOUT"
+echo "running `which $prog` $geometry $screensize"
+echo "start $LDEINIT"
 
-$prog $geometry $screensize -t "Medley Interlisp (https://Interlisp.org)" "$LDESRCSYSOUT"
+$prog $geometry $screensize -t "Medley Interlisp" "$LDESRCESYSOUT"