1
0
mirror of synced 2026-03-09 04:30:27 +00:00

new loadup full (#261)

* (hopefully) improve the loadup-full process

* go back to rebuilding in {CORE} and copy when done

* I think these fix the loadups problem

* perhaps unnecessary update but useful test'

* WIP: more loadup cleanup

* brute force: close open files when done loadup

* new loadups to match
This commit is contained in:
Larry Masinter
2021-03-12 17:27:19 -08:00
committed by GitHub
parent 6cd13acf36
commit 7c4b45fa81
28 changed files with 821 additions and 16 deletions

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.

File diff suppressed because one or more lines are too long

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.

File diff suppressed because one or more lines are too long

Binary file not shown.

View File

@@ -7,6 +7,10 @@ if [ ! -x run-medley ] ; then
exit 1
fi
./scripts/loadup-init.sh && ./scripts/loadup-mid-from-init.sh && ./scripts/loadup-lisp-from-mid.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 && \
./scripts/loadup-aux.sh
echo tada!

17
scripts/loadup-aux.sh Executable file
View File

@@ -0,0 +1,17 @@
#!/bin/sh
export MEDLEYDIR=`pwd`
if [ ! -f run-medley ] ; then
echo run from MEDLEYDIR
exit 1
fi
scr="-sc 1024x768 -g 1042x790"
echo '" (IL:MEDLEY-INIT-VARS)(IL:LOAD(QUOTE MEDLEY-UTILS))(IL:MAKE-EXPORTS-ALL)(IL:MAKE-WHEREIS-HASH)(IL:LOGOUT T)"' > tmp/loadup-aux.cm
./run-medley $scr -greet "$MEDLEYDIR"/tmp/loadup-aux.cm tmp/full.sysout
echo ---- made ----
ls -l tmp/exports.all tmp/whereis.hash
echo --------------

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.

File diff suppressed because one or more lines are too long

Binary file not shown.

View File

@@ -5,8 +5,7 @@
(MOVD 'NILL 'PAGEFULLFN)
(LOAD (MEDLEYDIR "sources" "MAKEINIT.LCOM"))
(MAKEINITGREET)
(LOAD (MEDLEYDIR "internal/library" "MEDLEY-UTILS.LCOM"))
(MAKE-EXPORTS-ALL)
(MAKE-WHEREIS-HASH)
(DRIBBLE)
(LOGOUT T)
STOP

File diff suppressed because one or more lines are too long

Binary file not shown.

Binary file not shown.

File diff suppressed because one or more lines are too long

Binary file not shown.