From f2d3bafdf92ff55e0fad70bbca710125f062ce5f Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Sat, 23 Jan 2021 12:16:14 -0800 Subject: [PATCH] Do MEDLEY-UTILS rename and move to internal/library --- internal/library/MEDLEY-UTILS | 2 +- internal/library/MEDLEY-UTILS.LCOM | Bin 0 -> 2139 bytes 2 files changed, 1 insertion(+), 1 deletion(-) create mode 100644 internal/library/MEDLEY-UTILS.LCOM diff --git a/internal/library/MEDLEY-UTILS b/internal/library/MEDLEY-UTILS index a8d45a2d..5df90492 100644 --- a/internal/library/MEDLEY-UTILS +++ b/internal/library/MEDLEY-UTILS @@ -1 +1 @@ -(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 +(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 diff --git a/internal/library/MEDLEY-UTILS.LCOM b/internal/library/MEDLEY-UTILS.LCOM new file mode 100644 index 0000000000000000000000000000000000000000..73894e2e91d913cdd2ffad7809ee9c15701b47fb GIT binary patch literal 2139 zcmbtV&2HO95SHSm{{-UPnnN&M6oyoQl1NIjMHhw{ab?k_DTbsSsb~+f#Mp!>Q6Q3MvhdfDvzCz!ivupj(N>LQZh1{Rnoo~KxX11i$j$u);W0+JltWFP} zI#km=?U_k|^xGzZr?%EU(T;FxSRQpu!?j6SD6tc5wDqVCL{`M(;Z&4svILT>)>^8p z5GavRG?@jVKZa-u1cdCB?w-8<<|>-_2jMV|Zw`VmNM;8Ue;oQanWla`9fk*Ca1jr2 z_mt`;9f)V1VY-!lB`f14Em51r=&4o%X-}<5sv;A}E@FS_D-%F7O~`_22IQ3A3`(T| zop~67dy_=-6r|lX-b$r{7mSCgKgI+39jUG=iYhh#N4QcQ?|9GXKu{E=0omwkIKA|f z46-y*Gbo*FjthAz+Pzb^45f~>TJ9KqQAa6oIh)1)4?#3%=UGsAgK$qD6i3bsD+SAH0_qse4AMRn>jw0l-t^FVF@b)24q*~VRoN7SR%d0DUwQz(J5is z1J#RQT1~DX8O6aYO{y=0AH!gJo#gkb>10+NM?p$Jk${ZGcvP+du_Dj|Osh1CZwTOp zcfsn0gZYpPob!GcxD5*Qp#$}$TwE8!L0JlW9~29P?b-wH_N#GmySQ}{e7Xvjlk&K~ z^^5W5^X|8Uw-2`7{CWI{uMWCj-2RPRw7}F{jC&Urcha`ka|U;+gDfvRB05ZNupO+` z1sModJE0=&+dao~MOGVJr4Fiex5!GFLEJAO#I-Qo|K$p#&4(N`x8a|FE5;X5u|^Xd zYH6p~Q?PwBq#P(r>?2GE>MU@8TnDqK=^)jiZ86xbwKcXEr3SCsJ%_$t*jE^CsfE!a zR_eKE0`&%v+%|za%C_hoI01sS9*_Kl>BT5`!Q30J*wx(bQm_UJW`hK5jia`a791GX zQH5G(r_|9rqi0ogYI|Ljw)rp8{`?{GcD=n_+~kEbxVgw_+&+AGe*5LP`2E_1llc3| zn~#pKo_zPy@y;KZ1%H{3xp^QwWI7DSo0suJAG1BAU&8Fr9pf46-4domP74W>VwJzp zY5}%(Rpo?;$cWYRj5dX4Ygu27oEnVQ^;y(yv-Mv{azwIII2 zNG2fFnkZ8=9M5M7fhOwob!8um4+s7GmU1g+C@J?Zsw`j-*b~-f=+kzn=MAt)@+w&B z#UBygIfasAYtNs*vjL^emU`FIHftSQZ@wk3Yn;D{E(pxE=1@#(UZe(fVafEeZEsfO zJNa2IVNPKMWh!XHh-5OH03-TqgQybJ#Ww0ar$ literal 0 HcmV?d00001