split loadup of lisp into two phases for better debugging

scripts/loadup-all.sh

@@ -7,6 +7,6 @@ if [ ! -f run-medley ] ; then
     exit 1
 fi
 
-./scripts/loadup-init.sh && ./scripts/loadup-lisp-from-init.sh && ./scripts/loadup-full.sh
+./scripts/loadup-init.sh && ./scripts/loadup-mid-from-init.sh && ./scripts/loadup-lisp-from-mid.sh && ./scripts/loadup-full.sh
 
 echo tada!

scripts/loadup-lisp-from-mid.sh

@@ -0,0 +1,28 @@
+#!/bin/sh
+
+export MEDLEYDIR=`pwd`
+
+if [ ! -f run-medley ] ; then
+    echo run from MEDLEYDIR
+    exit 1
+fi
+
+rm -f ~/rem.cm loadups/LISP.SYSOUT* loadups/lisp.sysout*
+touch loadups/lisp.sysout
+
+echo '"' > ~/rem.cm
+echo '(PROGN(LOAD(QUOTE {DSK}'$MEDLEYDIR'/sources/LOADUP.LISP))(HARDRESET))' >> ~/rem.cm
+echo 'SHH(PROGN (IL:ENDLOADUP) (IL:SPECVARS . T) (IL:MAKESYS (QUOTE {DSK}'$MEDLEYDIR'/loadups/lisp.sysout)))' >> ~/rem.cm
+echo '(IL:LOGOUT T)' >> ~/rem.cm
+echo '"' >> ~/rem.cm
+
+echo -----rem.cm -----
+cat ~/rem.cm
+echo ----------------
+./run-medley -greet $MEDLEYDIR/sources/LOADUP-GREET tmp/init-mid.sysout
+rm ~/rem.cm
+
+echo ----- created: -------
+ls -l loadups/lisp.sysout
+echo ----------------------
+

scripts/loadup-mid-from-init.sh

@@ -0,0 +1,30 @@
+#!/bin/sh
+
+export MEDLEYDIR=`pwd`
+
+if [ ! -f run-medley ] ; then
+    echo run from MEDLEYDIR
+    exit 1
+fi
+
+mkdir -p "$MEDLEYDIR/tmp"
+
+rm -f ~/rem.cm ~/lisp.virtualmem ./tmp/* loadups/init*~
+
+cp sources/XREM.CM ~/rem.cm
+
+prog=../maiko/linux.x86_64/ldeinit
+if [ ! -x $prog ] ; then
+    echo $prog not found
+    prog=../maiko/darwin.aarch64/ldeinit
+fi
+
+$prog -sc 1000x900 -g 1000x900 loadups/init.dlinit
+
+echo -
+echo --- init run --
+ls -l ~
+
+
+cp ~/lisp.virtualmem tmp/init-mid.sysout
+