From 8441c257d50cfe4760a460bc2899c44cfd49c5a4 Mon Sep 17 00:00:00 2001
From: Larry Masinter <LMM@acm.org>
Date: Wed, 20 Jul 2022 08:04:38 -0700
Subject: [PATCH] Use -NF (no fork) on ldinit during loadup

---
 run-medley                      | 21 ++++++++++++---------
 scripts/loadup-mid-from-init.sh |  2 +-
 2 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/run-medley b/run-medley
index 440e67e5c..1d58b3b2b 100755
--- a/run-medley
+++ b/run-medley
@@ -9,7 +9,7 @@
 #                    [-prog LDEFILE]
 #                    [--vmem | --vmfile FILE]
 #                    [--nogreet | --greet FILE |
-#                           --loadup FILE ]      # will separate from GREET
+#                       --loadup FILE ]          
 #                    [-n | -nl | -full | -lisp |  
 #                    [SYSOUTFILE]
 
@@ -37,7 +37,7 @@ fi
 # set defaults, overridden if suppplied explicitly
 
 prog="lde"
-passthrough_args=""
+pass=""
 mem="-m 256"
 scroll=22
 noscroll=""
@@ -59,7 +59,7 @@ export LDEKBDTYPE=x
 while [ "$#" -ne 0 ]; do
     case "$1" in
 	"-loadup")
-	    # Keep (GREET) from finding adifferent init file
+	    # Keep (GREET) from finding a different init file
 	    mkdir -p $MEDLEYDIR/tmp/logindir
 	    export LOGINDIR=$MEDLEYDIR/tmp/logindir
 
@@ -130,12 +130,15 @@ while [ "$#" -ne 0 ]; do
         "-nl" | "-newlisp" )
             export LDESRCESYSOUT="$MEDLEYDIR/tmp/lisp.sysout"
             ;;
-        "-*")
-            passthrough_args="$passthrough_args $1 $2"
-            echo passing through unrecognized option: "$1" "$2"
-            shift
+        "-NF")
+            pass="$pass $1"
             ;;
+	"-*")
+	    pass="$pass $1 $2"
+	    shift
+	    ;;
         *)
+	    echo sysout "$1"
             export LDESRCESYSOUT="$1"
             ;;
     esac
@@ -191,10 +194,10 @@ if ! command -v "$prog" > /dev/null 2>&1; then
     fi
 fi
 
-echo "running: $prog $noscroll $geometry $screensize $mem $passthrough_args $LDESRCESYSOUT"
+echo "running: $prog $noscroll $geometry $screensize $mem $pass $LDESRCESYSOUT"
 echo "greet: $LDEINIT"
 
 export INMEDLEY=1
 
-"$prog" $noscroll $geometry $screensize $mem -t "Medley Interlisp" $passthrough_args "$LDESRCESYSOUT"
+"$prog" $noscroll $geometry $screensize $mem -t "Medley Interlisp" $pass "$LDESRCESYSOUT"
 
diff --git a/scripts/loadup-mid-from-init.sh b/scripts/loadup-mid-from-init.sh
index 66596bee1..8208bcdaa 100755
--- a/scripts/loadup-mid-from-init.sh
+++ b/scripts/loadup-mid-from-init.sh
@@ -12,7 +12,7 @@ touch tmp/loadup.timestamp
 
 scr="-sc 1024x768 -g 1042x790"
 
-./run-medley -prog ldeinit -loadup $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout tmp/init.dlinit
+./run-medley -prog "ldeinit" -NF -loadup $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout tmp/init.dlinit
 
 
 echo