From 99f28008dcb13462861b82e6df5957b890af8ae9 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Tue, 16 Mar 2021 22:09:34 -0700 Subject: [PATCH] make initial whereis.hash size bigger --- internal/library/MEDLEY-UTILS | 2 +- internal/library/MEDLEY-UTILS.LCOM | Bin 4063 -> 4097 bytes 2 files changed, 1 insertion(+), 1 deletion(-) diff --git a/internal/library/MEDLEY-UTILS b/internal/library/MEDLEY-UTILS index ae98d931..53bf307f 100644 --- a/internal/library/MEDLEY-UTILS +++ b/internal/library/MEDLEY-UTILS @@ -1 +1 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "11-Mar-2021 23:31:16"  |{DSK}larry>ILISP>MEDLEY>INTERNAL>LIBRARY>MEDLEY-UTILS.;3| 6868 |changes| |to:| (VARS MEDLEY-FIX-DIRS) |previous| |date:| "11-Mar-2021 21:02:00" |{DSK}larry>ILISP>MEDLEY>INTERNAL>LIBRARY>MEDLEY-UTILS.;2|) (PRETTYCOMPRINT MEDLEY-UTILSCOMS) (RPAQQ MEDLEY-UTILSCOMS ((FNS GATHER-INFO MEDLEY-FIX-LINKS MEDLEY-FIX-DATES) (VARS MEDLEY-FIX-DIRS) (FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH))) (DEFINEQ (GATHER-INFO (LAMBDA (PHASE) (* \; "Edited 3-Mar-2021 13:29 by larry") (SELECTQ PHASE (0 (SETQ LOADEDFILES (FOR X IN LOADEDFILELST COLLECT (FILENAMEFIELD X 'NAME))) (PRINTOUT T " loaded files not in SYSFILES or FILELST: " (FOR X IN LOADEDFILES WHEN (NOT (OR (FMEMB X SYSFILES) (FMEMB X FILELST))) COLLECT X) T) (FILESLOAD FILESETS) (SETQ ALLFILESETSFILES (FOR X IN FILESETS JOIN (APPEND (EVAL X)))) (PRINTOUT T "Files in FILESETS not loaded " (CL:SET-DIFFERENCE ALLFILESETSFILES LOADEDFILES) T) (SETQ SOURCES (FOR X IN (DIRECTORY (MEDLEYDIR "sources" "*.*;" T)) WHEN (NOT (MEMB (FILENAMEFIELD X 'EXTENSION) '(LCOM DFASL TEDIT TXT))) COLLECT (FILENAMEFIELD X 'NAME))) (PRINTOUT T "Sources not loaded: " (CL:SET-DIFFERENCE SOURCES (APPEND FILELST SYSFILES ALLFILESETSFILES)) T)) (1 (FOR X IN SYSFILES DO (LOAD X 'PROP) (PUTPROP X 'CONTENT (READFILE X)) (FOR EXR IN (GETPROP X 'CONTENT) DO (SELECTQ (CAR EXR) (DEFINEQ (FOR DFN IN (CDR EXR) DO (IF (EQUAL (CADR DFN) (GETPROP (CAR DFN) 'EXPR)) THEN (PRINTOUT T (CAR DFN) " ") (PUTPROP (CAR DFN) 'EXPR (CADR DFN)) ELSE (PRINTOUT T (CAR DFN) "* ")))) NIL))) (SETQ DEFINEDFNS (LET ((DEFD NIL)) (MAPATOMS (FUNCTION (CL:LAMBDA (X) (CL:WHEN (GETD X) (CL:SETQ DEFD (CONS X DEFD)))))))) (LET (DUPS) (FOR X IN SYSFILES DO (FOR FN IN (FILEFNSLST X) DO (IF (GETPROP FN 'WHEREIS) THEN (NCONC1 (GETPROP FN 'WHEREIS) X) (OR (FMEMB FN DUPS) (SETQ DUPS (CONS FN DUPS))) ELSE (PUTPROP FN 'WHEREIS (LIST X))))) (SETQ DUPFNS DUPS)) (PRINTOUT T "Functions on more than one file: " DUPFNS T)) (2 (FOR X IN SYSFILES DO (MASTERSCOPE `(ANALYZE ON ,X)))) (HELP)))) (MEDLEY-FIX-LINKS (LAMBDA (UNIXPATH) (* \; "Edited 18-Jan-2021 12:01 by larry") (OR UNIXPATH (SETQ UNIXPATH (UNIX-GETENV "MEDLEYDIR")) (ERROR "No Directory")) (* \; "Edited 18-Jan-2021 11:45 by larry") (|ShellCommand| (CONCAT "cd " UNIXPATH " && /bin/sh scripts/fixlinks && /bin/sh /tmp/doit")))) (MEDLEY-FIX-DATES (LAMBDA (DIRS) (* \; "Edited 28-Jan-2021 12:15 by larry") (|for| X |in| (OR DIRS MEDLEY-FIX-DIRS) |join| (FIX-DIRECTORY-DATES (MEDLEYDIR (PRINT X T)))))) ) (RPAQQ MEDLEY-FIX-DIRS ("sources" "library" "lispusers" "internal/library" "greetfiles" "docs>Documentation Tools")) (DEFINEQ (MAKE-EXPORTS-ALL (LAMBDA NIL (* \; "Edited 9-Mar-2021 16:11 by larry") (* "Edited May 3, 2018 by Ron Kaplan--relative to MEDLEYDIR/lispcore/. Don't know why it does the CORE/RENAME") (*  "Edited Aug 17 94 by Sybalsky -- point it to /king/export/lispcore as the truth directory.") (*  "Edited July 5, 1990 by Sybalsky -- point it to Pele as the truth directory.") (*  "Edited September 29, 1986 by van Melle") (CNDIR (MEDLEYDIR "sources")) (LOAD 'FILESETS) (GATHEREXPORTS EXPORTFILES (MEDLEYDIR "tmp" "exports.all" T)))) (MAKE-WHEREIS-HASH (LAMBDA NIL (* \; "Edited 11-Mar-2021 10:44 by larry") (LET ((FILING.ENUMERATION.DEPTH 1) HASHFILE) (DRIBBLE (MEDLEYDIR "tmp" "whereis.dribble" T)) (SETQ HASHFILE (XCL::WHERE-IS-NOTICE "{CORE}WHEREIS.HASH" :FILES (|for| X |in| MEDLEY-FIX-DIRS |collect| (CONCAT (MEDLEYDIR X) "*.;")) :NEW T)) (RENAMEFILE HASHFILE (MEDLEYDIR "tmp" "whereis.hash" T)) (DRIBBLE)))) ) (DECLARE\: DONTCOPY (FILEMAP (NIL (580 5021 (GATHER-INFO 590 . 4324) (MEDLEY-FIX-LINKS 4326 . 4715) (MEDLEY-FIX-DATES 4717 . 5019)) (5179 6845 (MAKE-EXPORTS-ALL 5189 . 6138) (MAKE-WHEREIS-HASH 6140 . 6843))))) STOP \ No newline at end of file +(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "15-Mar-2021 20:27:00"  |{DSK}larry>ilisp>medley>internal>library>MEDLEY-UTILS.;8| 6889 |changes| |to:| (FNS MAKE-WHEREIS-HASH) |previous| |date:| "11-Mar-2021 23:31:16" |{DSK}larry>ilisp>medley>internal>library>MEDLEY-UTILS.;7|) (PRETTYCOMPRINT MEDLEY-UTILSCOMS) (RPAQQ MEDLEY-UTILSCOMS ((FNS GATHER-INFO MEDLEY-FIX-LINKS MEDLEY-FIX-DATES) (VARS MEDLEY-FIX-DIRS) (FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH))) (DEFINEQ (GATHER-INFO (LAMBDA (PHASE) (* \; "Edited 3-Mar-2021 13:29 by larry") (SELECTQ PHASE (0 (SETQ LOADEDFILES (FOR X IN LOADEDFILELST COLLECT (FILENAMEFIELD X 'NAME))) (PRINTOUT T " loaded files not in SYSFILES or FILELST: " (FOR X IN LOADEDFILES WHEN (NOT (OR (FMEMB X SYSFILES) (FMEMB X FILELST))) COLLECT X) T) (FILESLOAD FILESETS) (SETQ ALLFILESETSFILES (FOR X IN FILESETS JOIN (APPEND (EVAL X)))) (PRINTOUT T "Files in FILESETS not loaded " (CL:SET-DIFFERENCE ALLFILESETSFILES LOADEDFILES) T) (SETQ SOURCES (FOR X IN (DIRECTORY (MEDLEYDIR "sources" "*.*;" T)) WHEN (NOT (MEMB (FILENAMEFIELD X 'EXTENSION) '(LCOM DFASL TEDIT TXT))) COLLECT (FILENAMEFIELD X 'NAME))) (PRINTOUT T "Sources not loaded: " (CL:SET-DIFFERENCE SOURCES (APPEND FILELST SYSFILES ALLFILESETSFILES)) T)) (1 (FOR X IN SYSFILES DO (LOAD X 'PROP) (PUTPROP X 'CONTENT (READFILE X)) (FOR EXR IN (GETPROP X 'CONTENT) DO (SELECTQ (CAR EXR) (DEFINEQ (FOR DFN IN (CDR EXR) DO (IF (EQUAL (CADR DFN) (GETPROP (CAR DFN) 'EXPR)) THEN (PRINTOUT T (CAR DFN) " ") (PUTPROP (CAR DFN) 'EXPR (CADR DFN)) ELSE (PRINTOUT T (CAR DFN) "* ")))) NIL))) (SETQ DEFINEDFNS (LET ((DEFD NIL)) (MAPATOMS (FUNCTION (CL:LAMBDA (X) (CL:WHEN (GETD X) (CL:SETQ DEFD (CONS X DEFD)))))))) (LET (DUPS) (FOR X IN SYSFILES DO (FOR FN IN (FILEFNSLST X) DO (IF (GETPROP FN 'WHEREIS) THEN (NCONC1 (GETPROP FN 'WHEREIS) X) (OR (FMEMB FN DUPS) (SETQ DUPS (CONS FN DUPS))) ELSE (PUTPROP FN 'WHEREIS (LIST X))))) (SETQ DUPFNS DUPS)) (PRINTOUT T "Functions on more than one file: " DUPFNS T)) (2 (FOR X IN SYSFILES DO (MASTERSCOPE `(ANALYZE ON ,X)))) (HELP)))) (MEDLEY-FIX-LINKS (LAMBDA (UNIXPATH) (* \; "Edited 18-Jan-2021 12:01 by larry") (OR UNIXPATH (SETQ UNIXPATH (UNIX-GETENV "MEDLEYDIR")) (ERROR "No Directory")) (* \; "Edited 18-Jan-2021 11:45 by larry") (|ShellCommand| (CONCAT "cd " UNIXPATH " && /bin/sh scripts/fixlinks && /bin/sh /tmp/doit")))) (MEDLEY-FIX-DATES (LAMBDA (DIRS) (* \; "Edited 28-Jan-2021 12:15 by larry") (|for| X |in| (OR DIRS MEDLEY-FIX-DIRS) |join| (FIX-DIRECTORY-DATES (MEDLEYDIR (PRINT X T)))))) ) (RPAQQ MEDLEY-FIX-DIRS ("sources" "library" "lispusers" "internal/library" "greetfiles" "docs>Documentation Tools")) (DEFINEQ (MAKE-EXPORTS-ALL (LAMBDA NIL (* \; "Edited 9-Mar-2021 16:11 by larry") (* "Edited May 3, 2018 by Ron Kaplan--relative to MEDLEYDIR/lispcore/. Don't know why it does the CORE/RENAME") (*  "Edited Aug 17 94 by Sybalsky -- point it to /king/export/lispcore as the truth directory.") (*  "Edited July 5, 1990 by Sybalsky -- point it to Pele as the truth directory.") (*  "Edited September 29, 1986 by van Melle") (CNDIR (MEDLEYDIR "sources")) (LOAD 'FILESETS) (GATHEREXPORTS EXPORTFILES (MEDLEYDIR "tmp" "exports.all" T)))) (MAKE-WHEREIS-HASH (LAMBDA NIL (* \; "Edited 15-Mar-2021 20:25 by larry") (LET ((FILING.ENUMERATION.DEPTH 1) HASHFILE) (DRIBBLE (MEDLEYDIR "tmp" "whereis.dribble" T)) (SETQ HASHFILE (XCL::WHERE-IS-NOTICE "{CORE}WHEREIS.HASH" :FILES (|for| X |in| MEDLEY-FIX-DIRS |collect| (CONCAT (MEDLEYDIR X) "*.;")) :HASH-FILE-SIZE 30000 :NEW T)) (RENAMEFILE HASHFILE (MEDLEYDIR "tmp" "whereis.hash" T)) (DRIBBLE)))) ) (DECLARE\: DONTCOPY (FILEMAP (NIL (579 5020 (GATHER-INFO 589 . 4323) (MEDLEY-FIX-LINKS 4325 . 4714) (MEDLEY-FIX-DATES 4716 . 5018)) (5178 6866 (MAKE-EXPORTS-ALL 5188 . 6137) (MAKE-WHEREIS-HASH 6139 . 6864))))) STOP \ No newline at end of file diff --git a/internal/library/MEDLEY-UTILS.LCOM b/internal/library/MEDLEY-UTILS.LCOM index d46a3494ad26a1d99d95fde85a58c1786d30a81a..e0228ec9e4f81f6ee9250d950fe2fc58df918681 100644 GIT binary patch delta 575 zcma)3OHRT-7#24!$hdLGLjP13VA7`3@+hN{6gs30ltl{?byZ+uo0LZi#u#geH;`}- zH=M##cmi+W!f8khMi$KO`)B^|HJ>N1@MazrMB9r*MOH81|j2MG-J`o3oBvJi#&d7Q=>_5#7^64y3&Of=Rm+4oLD1Dfhe*7aW7*1 z@o*A^Y!D-e`@T22XHyb`tv9IHHK{`_S2T6kgn03lnQyR2lEeuH-i)sT+9sd~Ih3ti zOD49BWgn-nlEgF{=oO_M%2%)|PV z49kIXaruqRt1^%l?Sh7ZB!!E~OVPD%DX4iM337R#fMpGYN1sJ3m`c7k^#wjsSHr_7 F^#gD+s!;#{ delta 543 zcmbu5(Mp4G7{#&Zrf^-R=>Ej-44<1>Zy=cfI;6(QC+SHGRHAMr#G=XjBfAz zz#XNK4m~FvyNR63Fq(LNIL?(Hrob5P?kI5Q0Ig{dfIUy5=>!nUwyC|vZ)={Z(B&4< z@tK9y4%U9=7o|i7(tFLmcxe2+8PK9s7Nsxp9Cs4s_~o8z+3>j!+alMjMl3sfqYlrJ z%<)C{|Aq6*#@hZCHOmHcZ{4RivRC@(7>S@+q}kMQJ`Ms4o2r3VLjdB$f+t4-Ny;`$ n?Fs_f#8)8HKwdrB`D*zi2h7ZKW7kiro|AYCoYa?3rI`8v5@njJ