diff --git a/.gitignore b/.gitignore index a8f6d1e91..5a1ea644e 100644 --- a/.gitignore +++ b/.gitignore @@ -14,10 +14,8 @@ maiko/ # because they will get regenerated when you rebuild. # MEDLEY-UTILS HCFILES regenerates -# do not ignore .pdf files after all... rather, [new workflow](scripts/make-gh-pages.md) stores it in the src repository gh-pages branch. - -# *.pdf -# index.html +*.pdf +index.html # all loadup files diff --git a/internal/MEDLEY-UTILS b/internal/MEDLEY-UTILS index 96b5681d1..178d2d376 100644 --- a/internal/MEDLEY-UTILS +++ b/internal/MEDLEY-UTILS @@ -1,10 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "14-Jul-2024 12:51:12" {DSK}frank>il>medley>internal>MEDLEY-UTILS.;16 30093 +(FILECREATED "10-Mar-2025 11:47:13" {DSK}larry>il>medley>internal>MEDLEY-UTILS.;2 30977 - :CHANGES-TO (FNS MAKE-INDEX-HTMLS) + :EDIT-BY "lmm" - :PREVIOUS-DATE "13-Jul-2024 23:39:43" {DSK}frank>il>medley>internal>MEDLEY-UTILS.;14) + :CHANGES-TO (VARS OKLIBRARY) + + :PREVIOUS-DATE " 6-Mar-2025 12:35:37" {DSK}larry>il>medley>internal>MEDLEY-UTILS.;1) (PRETTYCOMPRINT MEDLEY-UTILSCOMS) @@ -24,7 +26,8 @@ (DEFINEQ (GATHER-INFO - [LAMBDA (PHASE) (* ; "Edited 22-May-2023 23:59 by lmm") + [LAMBDA (PHASE) (* ; "Edited 6-Mar-2025 12:28 by lmm") + (* ; "Edited 22-May-2023 23:59 by lmm") (* ; "Edited 26-Dec-2021 18:56 by larry") (* ; "Edited 24-Oct-2021 09:43 by larry") (SELECTQ PHASE @@ -40,7 +43,12 @@ when [NOT (MEMB (FILENAMEFIELD X 'EXTENSION) '(LCOM DFASL TEDIT TXT] collect (FILENAMEFIELD X - 'NAME]) + 'NAME] + [SETQ LIBRARY (LET ((FILING.ENUMERATION.DEPTH 2)) + (for X in (DIRECTORY (MEDLEYDIR "LIBRARY" "*.*;" T)) + when [NOT (MEMB (U-CASE (FILENAMEFIELD X 'EXTENSION)) + '(LCOM DFASL TEDIT TXT] + collect (FILENAMEFIELD X 'NAME]) (-1 (PRINTOUT T " loaded files not in SYSFILES or FILELST: " (for X in LOADEDFILES when (NOT (OR (FMEMB X SYSFILES) (FMEMB X FILELST))) collect X) @@ -50,6 +58,10 @@ T) (PRINTOUT T "Files in FILESETS not loaded " (CL:SET-DIFFERENCE ALLFILESETSFILES LOADEDFILES) + T) + (PRINTOUT T "Library files not loaded: " (CL:SET-DIFFERENCE LIBRARY (APPEND + ALLFILESETSFILES + LOADEDFILES)) T)) (2 (SETQ DEFINEDFNS (LET ((DEFD NIL)) [MAPATOMS (FUNCTION (CL:LAMBDA (X) @@ -211,14 +223,15 @@ (RPAQQ MEDLEY-FIX-DIRS ("sources" "library" "lispusers" "internal" "greetfiles" "doctools")) -(RPAQQ OKSOURCES (RENAMEFNS VMEM READSYS CASH-FILE HASH-FILE MEDLEYDIR MAKEINIT)) +(RPAQQ OKSOURCES (LOADUP-LISP RENAMEFNS VMEM READSYS CASH-FILE HASH-FILE MEDLEYDIR MAKEINIT SYSEDIT + 10MBDECLS)) (RPAQQ OKLIBRARY (POSTSCRIPTSTREAM CHATTERMINAL DMCHAT CHAT PRESS READNUMBER EDITBITMAP IMAGEOBJ TEDIT HRULE TABLEBROWSER FILEBROWSER GRAPHER SPY WHERE-IS COPYFILES MSANALYZE MSPARSE MSCOMMON MASTERSCOPE UNIXCOMM UNIXPRINT UNICODE HASH CLIPBOARD UNIXCHAT VT100KP VTCHAT SKETCH SKETCHBMELT SCALEBITMAP SKETCHOBJ SKETCHEDIT SKETCHELEMENTS SKETCHOPS MATMULT SAMEDIR - REMOTEVMEM ETHERRECORDS UNIXUTILS CHATDECLS BROWSER)) + REMOTEVMEM ETHERRECORDS UNIXUTILS CHATDECLS BROWSER LAFITE)) (RPAQQ OKLISPUSERS (THINFILES ISO8859IO DINFO HELPSYS MODERNIZE WHEELSCROLL PRETTYFILEINDEX WHO-LINE @@ -528,9 +541,9 @@ (ADDTOVAR LAMA ) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1086 12345 (GATHER-INFO 1096 . 6478) (MAKE-FULLER-DB 6480 . 7257) (MAKE-INDEX-HTMLS -7259 . 11714) (MEDLEY-FIX-LINKS 11716 . 12109) (MEDLEY-FIX-DATES 12111 . 12343)) (13524 16312 ( -MAKE-EXPORTS-ALL 13534 . 14593) (MAKE-WHEREIS-HASH 14595 . 15784) (MAKE-WHEREIS-LOOPS 15786 . 16310)) -(16313 25045 (HCFILES 16323 . 20586) (MAKE-INDEX-HTMLS 20588 . 25043)) (25295 29907 (RECOMPILE-ONE -25305 . 27202) (RECMPL 27204 . 27807) (COMPILE-SETUP 27809 . 28433) (REMAKEFILES 28435 . 29905))))) + (FILEMAP (NIL (1100 13167 (GATHER-INFO 1110 . 7300) (MAKE-FULLER-DB 7302 . 8079) (MAKE-INDEX-HTMLS +8081 . 12536) (MEDLEY-FIX-LINKS 12538 . 12931) (MEDLEY-FIX-DATES 12933 . 13165)) (14408 17196 ( +MAKE-EXPORTS-ALL 14418 . 15477) (MAKE-WHEREIS-HASH 15479 . 16668) (MAKE-WHEREIS-LOOPS 16670 . 17194)) +(17197 25929 (HCFILES 17207 . 21470) (MAKE-INDEX-HTMLS 21472 . 25927)) (26179 30791 (RECOMPILE-ONE +26189 . 28086) (RECMPL 28088 . 28691) (COMPILE-SETUP 28693 . 29317) (REMAKEFILES 29319 . 30789))))) STOP diff --git a/internal/MEDLEY-UTILS.DFASL b/internal/MEDLEY-UTILS.DFASL index aacd382b5..8f384cd74 100644 Binary files a/internal/MEDLEY-UTILS.DFASL and b/internal/MEDLEY-UTILS.DFASL differ diff --git a/scripts/copy-db.sh b/scripts/copy-db.sh index f3916906a..d782c9ff6 100755 --- a/scripts/copy-db.sh +++ b/scripts/copy-db.sh @@ -9,7 +9,10 @@ main() { /bin/sh "${LOADUP_SCRIPTDIR}/cpv" "${LOADUP_WORKDIR}"/fuller.database "${LOADUP_OUTDIR}" /bin/sh "${LOADUP_SCRIPTDIR}/cpv" "${LOADUP_WORKDIR}"/fuller.dribble "${LOADUP_OUTDIR}" - + if [ ! -z "$SAVE_FULLER" ] + then + /bin/sh "${LOADUP_SCRIPTDIR}/cpv" "${LOADUP_WORKDIR}"/fuller.sysout "${LOADUP_OUTDIR}" + fi echo "<<<<< END ${script_name}" echo "" exit 0