d5d21397d4
This corrects some errors in the handling of initializing variables across SAVEVM, LOGOUT, SYSOUT and MAKESYS.
This is all now handled by MEDLEY-INIT-VARS (function and variable) which is called as an EVENTFN.
BEFOREMAKESYS (invoked by ENDLOADUP) clears the variables to a default setting (all directories are just {DSK}).
The other "BEFORE" events save away the current values of the variables in MEDLEY-INIT-VARS.
In order to get this to work it was necessary to change a hack for deciding where to find EXPORTS.ALL and WHEREIS.HASH. Now if you do `./scripts/loadup-all.sh` to make a full, lisp sysouts, exports.all and whereis.hash it will still build the sysouts in tmp/ but will also "link" new versions in loadups (and library for exports.all). This replaces the previous hack scanning the sysout name for "tmp/".
MEDLEY-INIT-VARS had been called both by the AROUNDEXITFN and AFTER*FORMS.
The Medley scripts directory
doing different kinds of "load ups"
Loading from an old 'starter' sysout
-
loadup-init.sh -- phase 1 (create init.dlinit)
-
loadup-mid-from-init.sh -- phase 2 (creates init.sysout)
-
loadup-lisp-from-mid.sh -- phase 3 (creates lisp.sysout)
-
loadup-full-from-lisp.sh -- phase 4 (creates full.sysout)
-
loadup-aux.sh -- phase 5,(creates exports.all whereis.hash
-
loadup-full.sh -- Phase 1-4 only
-
loadup-db.sh -- phase 6 (makes unreleased 'fuller.sysout' and fuller.database
-
copy-all.sh -- copy loadups from tmp/ to loadups/ and library/
possibly handy scripts
- lsee -- show lisp file with font-control-characters rendered as linux color changes
- cpv file1 file2 -- copies file1 to file2 (or directory name) adding versions
- restore-versions.sh -- pulls out old versions from git history and links in with medley versioning conventions
Not useful anymore
- eolconv.sh -- convert CR to LF and delete font control characters (use lsee)
- install-diff-filter.sh -- installed eolconv.sh as a filter before using github diff (use Lisp GitFns instead)
- fixlinks & fixlinks.aux -- put back hardlinks between file and file.
NNwhere NN is highest version (restore-versions does this)