1
0
mirror of synced 2026-03-02 18:14:44 +00:00

Remove use of ~/rem.cm in loadups. Now the LDEINIT file is checked instead; probably can get rid of even that, later

This commit is contained in:
Larry Masinter
2021-02-22 16:12:20 -08:00
parent b14cbb2f77
commit 30e47fc811
9 changed files with 11 additions and 19 deletions

View File

@@ -159,6 +159,6 @@ echo "start $LDEINIT"
export INMEDLEY=1
$prog $geometry $screensize -t "Medley Interlisp" $passthrough_args "$LDESRCESYSOUT"
$prog $geometry $screensize -m 256 -t "Medley Interlisp" $passthrough_args "$LDESRCESYSOUT"

View File

@@ -9,19 +9,8 @@ fi
scr="-sc 1024x768 -g 1042x790"
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 $scr -greet $MEDLEYDIR/sources/LOADUP-GREET tmp/init-mid.sysout
rm ~/rem.cm
./run-medley $scr -greet $MEDLEYDIR/sources/YREM.CM tmp/init-mid.sysout
echo ----- created: -------
ls -l loadups/lisp.sysout

View File

@@ -10,9 +10,7 @@ fi
mkdir -p "$MEDLEYDIR/tmp"
scr="-sc 1024x768 -g 1042x790"
cp sources/XREM.CM ~/rem.cm
./run-medley -prog ldeinit $scr -vmem tmp/init-mid.sysout loadups/init.dlinit
./run-medley -prog ldeinit -greet $MEDLEYDIR/sources/XREM.CM $scr -vmem tmp/init-mid.sysout loadups/init.dlinit
echo ---- made ----
ls -l tmp/

File diff suppressed because one or more lines are too long

Binary file not shown.

File diff suppressed because one or more lines are too long

Binary file not shown.

View File

@@ -1 +0,0 @@
()

6
sources/YREM.CM Normal file
View File

@@ -0,0 +1,6 @@
"
(PROGN(LOAD(CONCAT (QUOTE {DSK}) (UNIX-GETENV (QUOTE MEDLEYDIR)) (QUOTE /sources/LOADUP.LISP)))(HARDRESET))
SHH(PROGN(IL:ENDLOADUP)(IL:MAKESYS (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE MEDLEYDIR))(IL:L-CASE (QUOTE /loadups/lisp.sysout)))))
(IL:LOGOUT T)
"