diff --git a/scripts/loadup-all.sh b/scripts/loadup-all.sh index 2756a2bd..6283ff52 100755 --- a/scripts/loadup-all.sh +++ b/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! diff --git a/scripts/loadup-lisp-from-mid.sh b/scripts/loadup-lisp-from-mid.sh new file mode 100755 index 00000000..3f9d65fa --- /dev/null +++ b/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 ---------------------- + diff --git a/scripts/loadup-mid-from-init.sh b/scripts/loadup-mid-from-init.sh new file mode 100755 index 00000000..dd4e3146 --- /dev/null +++ b/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 +