add LAFITE to set of files analyzed

.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 

internal/MEDLEY-UTILS

@@ -1,10 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "14-Jul-2024 12:51:12" {DSK}<home>frank>il>medley>internal>MEDLEY-UTILS.;16
 30093  
+
(FILECREATED "10-Mar-2025 11:47:13" {DSK}<home>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}<home>frank>il>medley>internal>MEDLEY-UTILS.;14)
+      :CHANGES-TO (VARS OKLIBRARY)
+
+      :PREVIOUS-DATE " 6-Mar-2025 12:35:37" {DSK}<home>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

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