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:
@@ -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"
|
||||
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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.
@@ -1 +0,0 @@
|
||||
()
|
||||
6
sources/YREM.CM
Normal file
6
sources/YREM.CM
Normal 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)
|
||||
|
||||
"
|
||||
Reference in New Issue
Block a user