github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-12 00:42:56 +00:00
Code Issues Projects Releases Wiki Activity

Rename to MEDLEY-FIX-LINKS & make sure it is run from MEDLEYDIR or unix path suppllied (#155)

Browse Source
This commit is contained in:
Larry Masinter 2021-01-22 17:54:31 -08:00 committed by GitHub
parent 08397a1d13
commit 2ced7080e5
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
3 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lispusers/MEDLEY-FIX-DIRS
View File

@ -1 +1 @@
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "16-Jan-2021 23:12:42" |{DSK}<home>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}<home>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
(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED "18-Jan-2021 12:02:56" |{DSK}<home>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}<home>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

BIN
lispusers/MEDLEY-FIX-DIRS.LCOM
View File

Binary file not shown.

0
scripts/fixlinks.awk Executable file → Normal file
View File