From c7463ca04fb7bc7b735e3a6f7ffce54e0d191543 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Thu, 28 Jan 2021 12:24:31 -0800 Subject: [PATCH] add sunloadup to fix directories, let fix-dates take a directory --- internal/library/MEDLEY-UTILS | 2 +- internal/library/MEDLEY-UTILS.LCOM | Bin 2139 -> 2187 bytes 2 files changed, 1 insertion(+), 1 deletion(-) diff --git a/internal/library/MEDLEY-UTILS b/internal/library/MEDLEY-UTILS index 5df90492..a56edd1b 100644 --- a/internal/library/MEDLEY-UTILS +++ b/internal/library/MEDLEY-UTILS @@ -1 +1 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "23-Jan-2021 12:09:14"  |{DSK}larry>ilisp>medley>internal>library>MEDLEY-UTILS.;3| 3335 |changes| |to:| (VARS MEDLEY-UTILSCOMS) (FNS MEDLEY-FIX-DATES) |previous| |date:| "23-Jan-2021 09:37:23" |{DSK}larry>ilisp>medley>internal>library>MEDLEY-UTILS.;2|) (PRETTYCOMPRINT MEDLEY-UTILSCOMS) (RPAQQ MEDLEY-UTILSCOMS ((FNS MEDLEY-FIX-LINKS MEDLEY-FIX-DATES) (VARS MEDLEY-FIX-DIRS) (FILES COMPAREDIRECTORIES WHERE-IS) (FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH))) (DEFINEQ (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 NIL (* \; "Edited 23-Jan-2021 09:42 by larry") (|for| X |in| MEDLEY-FIX-DIRS |join| (FIX-DIRECTORY-DATES (MEDLEYDIR (PRINT X T)))))) ) (RPAQQ MEDLEY-FIX-DIRS ("sources" "library" "lispusers" "internal/library" "greetfiles" "docs>Documentation Tools" "cltl2" "clos" "makesysout")) (FILESLOAD COMPAREDIRECTORIES WHERE-IS) (DEFINEQ (MAKE-EXPORTS-ALL (LAMBDA NIL (* \; "Edited 16-Jan-2021 22:49 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) (RENAMEFILE (GATHEREXPORTS EXPORTFILES '{CORE}EXPORTS.ALL) (MEDLEYDIR "library" "EXPORTS.ALL" T)))) (MAKE-WHEREIS-HASH (LAMBDA NIL (* \; "Edited 16-Jan-2021 22:04 by larry") (LET ((FILING.ENUMERATION.DEPTH 1) HASHFILE) (DRIBBLE (MEDLEYDIR "loadups" "WHEREIS.HASH.DRIBBLE" T)) (SETQ HASHFILE (XCL::WHERE-IS-NOTICE (MEDLEYDIR "loadups" "XWHEREIS.HASH" T) :FILES (|for| X |in| MEDLEY-FIX-DIRS |collect| (CONCAT (MEDLEYDIR X) "*.;")) :NEW T)) (RENAMEFILE HASHFILE (MEDLEYDIR "loadups" "WHEREIS.HASH" T)) (DRIBBLE)))) ) (DECLARE\: DONTCOPY (FILEMAP (NIL (678 1309 (MEDLEY-FIX-LINKS 688 . 1077) (MEDLEY-FIX-DATES 1079 . 1307)) (1536 3312 ( MAKE-EXPORTS-ALL 1546 . 2542) (MAKE-WHEREIS-HASH 2544 . 3310))))) STOP \ No newline at end of file +(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "28-Jan-2021 12:22:44"  |{DSK}larry>ilisp>medley>internal>library>MEDLEY-UTILS.;4| 3420 |changes| |to:| (VARS MEDLEY-FIX-DIRS) (FNS MEDLEY-FIX-DATES) |previous| |date:| "23-Jan-2021 12:09:14" |{DSK}larry>ilisp>medley>internal>library>MEDLEY-UTILS.;3|) (PRETTYCOMPRINT MEDLEY-UTILSCOMS) (RPAQQ MEDLEY-UTILSCOMS ((FNS MEDLEY-FIX-LINKS MEDLEY-FIX-DATES) (VARS MEDLEY-FIX-DIRS) (FILES COMPAREDIRECTORIES WHERE-IS) (FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH))) (DEFINEQ (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" "cltl2" "clos" "makesysout" "sunloadup")) (FILESLOAD COMPAREDIRECTORIES WHERE-IS) (DEFINEQ (MAKE-EXPORTS-ALL (LAMBDA NIL (* \; "Edited 16-Jan-2021 22:49 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) (RENAMEFILE (GATHEREXPORTS EXPORTFILES '{CORE}EXPORTS.ALL) (MEDLEYDIR "library" "EXPORTS.ALL" T)))) (MAKE-WHEREIS-HASH (LAMBDA NIL (* \; "Edited 16-Jan-2021 22:04 by larry") (LET ((FILING.ENUMERATION.DEPTH 1) HASHFILE) (DRIBBLE (MEDLEYDIR "loadups" "WHEREIS.HASH.DRIBBLE" T)) (SETQ HASHFILE (XCL::WHERE-IS-NOTICE (MEDLEYDIR "loadups" "XWHEREIS.HASH" T) :FILES (|for| X |in| MEDLEY-FIX-DIRS |collect| (CONCAT (MEDLEYDIR X) "*.;")) :NEW T)) (RENAMEFILE HASHFILE (MEDLEYDIR "loadups" "WHEREIS.HASH" T)) (DRIBBLE)))) ) (DECLARE\: DONTCOPY (FILEMAP (NIL (677 1382 (MEDLEY-FIX-LINKS 687 . 1076) (MEDLEY-FIX-DATES 1078 . 1380)) (1621 3397 ( MAKE-EXPORTS-ALL 1631 . 2627) (MAKE-WHEREIS-HASH 2629 . 3395))))) STOP \ No newline at end of file diff --git a/internal/library/MEDLEY-UTILS.LCOM b/internal/library/MEDLEY-UTILS.LCOM index 73894e2e91d913cdd2ffad7809ee9c15701b47fb..7528e6f56a7500769b1fd129c244bfd97871dc6a 100644 GIT binary patch delta 276 zcmcaD&@DK@L)b#sD=|;k$iT=@!O+Oc$jHjXd}4GUqshdzn$k7N8Hsu6sl`?`3cju` zKCY3vZk`dkE{-9t!4q$qGxAOrU{n{yG{8hjVPc-0u1Spoud#`dfdb5!8iksYe4tqx zVU9t;C?=0I&q3KR3}7>zcEFi9}Vxha?^_`16I zxJK%_c}D2Ecm@S)Dlk~EFfuR*8Zb?s#%!i%VyWQc7#yNtWUc^J;_4jY9~7zU;uzu@ etYBmWH2|nr!O(p3FJ@I1M!U%h90rqPIP?KtmoNnY