github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-02-24 08:22:07 +00:00
Code Issues Projects Releases Wiki Activity

First full pass at loadups revamp.

Browse Source
This commit is contained in:
Frank Halasz
2023-08-01 22:59:01 -07:00
committed by Larry Masinter
parent ca3280f894
commit 1c077d1b3d
14 changed files with 184 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
scripts/loadup-full-from-lisp.sh
View File

@@ -7,9 +7,27 @@ fi
. scripts/loadup-setup.sh
loadup_start "loadup-full-from-lisp"
loadup_start
./run-medley $scr -loadup "$MEDLEYDIR/sources/LOADUP-FULL.CM" "${LOADUP_WORKDIR}/lisp.sysout"
cat >"${cmfile}" <<"EOF"
"
loadup_finish "loadup-full-from-lisp" "full.sysout" "full.*"
(PROGN
(IL:LOAD(IL:CONCAT(QUOTE {DSK})(IL:UNIX-GETENV(QUOTE MEDLEYDIR))(QUOTE /sources/LOADUP-FULL.LCOM)))
(IL:LOADUP-FULL (IL:CONCAT (QUOTE {DSK}) (IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /full.dribble))))
(IL:HARDRESET)
)
SHH
(PROGN
(IL:ENDLOADUP)
(IL:MAKESYS (IL:CONCAT (QUOTE {DSK})(IL:UNIX-GETENV(QUOTE LOADUP_WORKDIR))(IL:L-CASE (QUOTE /full.sysout))) :FULL))
(IL:LOGOUT T)
)
"
EOF
./run-medley ${scr} -loadup "${cmfile}" "${LOADUP_WORKDIR}/lisp.sysout"
loadup_finish "full.sysout" "full.*"