From 2ced7080e53e528edd444238ea4a0c29d263e8d9 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Fri, 22 Jan 2021 17:54:31 -0800 Subject: [PATCH] Rename to MEDLEY-FIX-LINKS & make sure it is run from MEDLEYDIR or unix path suppllied (#155) --- lispusers/MEDLEY-FIX-DIRS | 2 +- lispusers/MEDLEY-FIX-DIRS.LCOM | Bin 2154 -> 2159 bytes scripts/fixlinks.awk | 0 3 files changed, 1 insertion(+), 1 deletion(-) mode change 100755 => 100644 scripts/fixlinks.awk diff --git a/lispusers/MEDLEY-FIX-DIRS b/lispusers/MEDLEY-FIX-DIRS index f518f711..a8d45a2d 100644 --- a/lispusers/MEDLEY-FIX-DIRS +++ b/lispusers/MEDLEY-FIX-DIRS @@ -1 +1 @@ -(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "16-Jan-2021 23:12:42" |{DSK}larry>ilisp>medley>lispusers>MEDLEY-FIX-DIRS.;9| 3213 |changes| |to:| (FNS MAKE-EXPORTS-ALL MEDLEY-FIX-DIRS MAKE-WHEREIS-HASH FIX-MEDLEY-LINKS) (VARS MEDLEY-FIX-DIRSCOMS) |previous| |date:| "16-Jan-2021 00:39:09" |{DSK}larry>ilisp>medley>lispusers>MEDLEY-FIX-DIRS.;5|) (PRETTYCOMPRINT MEDLEY-FIX-DIRSCOMS) (RPAQQ MEDLEY-FIX-DIRSCOMS ((FNS FIX-MEDLEY-LINKS MEDLEY-FIX-DIRS) (VARS MEDLEY-FIX-DIRS) (FILES COMPAREDIRECTORIES WHERE-IS) (FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH))) (DEFINEQ (FIX-MEDLEY-LINKS (LAMBDA NIL (* \; "Edited 16-Jan-2021 21:27 by larry") (|ShellCommand| "scripts/fixlinks") (|ShellCommand| "/bin/sh /tmp/doit"))) (MEDLEY-FIX-DIRS (LAMBDA NIL (* \; "Edited 4-Jan-2021 15: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 (737 1187 (FIX-MEDLEY-LINKS 747 . 956) (MEDLEY-FIX-DIRS 958 . 1185)) (1414 3190 ( MAKE-EXPORTS-ALL 1424 . 2420) (MAKE-WHEREIS-HASH 2422 . 3188))))) STOP \ No newline at end of file +(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "18-Jan-2021 12:02:56" |{DSK}larry>ilisp>medley>lispusers>MEDLEY-FIX-DIRS.;2| 3342 |changes| |to:| (VARS MEDLEY-FIX-DIRSCOMS) (FNS MEDLEY-FIX-LINKS) |previous| |date:| "16-Jan-2021 23:12:42" |{DSK}larry>ilisp>medley>lispusers>MEDLEY-FIX-DIRS.;1|) (PRETTYCOMPRINT MEDLEY-FIX-DIRSCOMS) (RPAQQ MEDLEY-FIX-DIRSCOMS ((FNS MEDLEY-FIX-LINKS MEDLEY-FIX-DIRS) (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-DIRS (LAMBDA NIL (* \; "Edited 4-Jan-2021 15: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 (686 1316 (MEDLEY-FIX-LINKS 696 . 1085) (MEDLEY-FIX-DIRS 1087 . 1314)) (1543 3319 ( MAKE-EXPORTS-ALL 1553 . 2549) (MAKE-WHEREIS-HASH 2551 . 3317))))) STOP \ No newline at end of file diff --git a/lispusers/MEDLEY-FIX-DIRS.LCOM b/lispusers/MEDLEY-FIX-DIRS.LCOM index 3438c45f36860f732ddb3c70d3eb088cc3ea1c22..63da2d6cdc92ac12c31b9bb135dde9d60d28c9d4 100644 GIT binary patch delta 529 zcmZXR!Aj#$6owOAh)SR^ivd?ZcOl6lCb?;?1_VQrYMdt3q>3_&p*GP5)1)-1Sh(UV zSbU0^Z69DBW%h1-g^3lk!)(sImvhc{&i~(++H39U=*zBr+{9mu498}{}0|Fm}SNf%Ao6Y3W4twuZ$~*@ch7^K59%7mO$_740~4)U8p$o-HQ{mdnAFQ z9LMno^Ub_ExwW@&#r^tx{9arS7IEXFq{fN$CRjL#)6~j`!(J9KREn&QZ<$@t#v_~{ z=meGHi&^ra({=oFN$}maAVP0~U~3D?Rgx*i07ZYCjLJf}PVUnryDgS;N;w=UQJ$0p sx(3pZs#dCk_&Mxk9QVt7JSC`r?`kW@s-N)Y_R61?^-lxl^6EbS7yWFBDgXcg delta 491 zcmZ9IO-sW-5QZB(h{9q)(4%8eNRXIsZ5BL)W=mqzRjTe#7@O)Aahkz?S<)mlrvyOh8YNr_QZhQBoeti=>%s~ zvVDKS(QM$tB?0lMlRil9#9!_cx*BeEg}FrHPrTesBBawkxkRe|EgLMR0|mGMM+Z6`u#BNGFTME=@KM> yY5*_a#HpP3KrZ?NxtqlW4-++CyM2rYMK0gP&q