From 08880d550e9ac65db0671066dc718aafd9c7ff85 Mon Sep 17 00:00:00 2001 From: Frank Halasz Date: Mon, 17 Jul 2023 16:38:10 -0700 Subject: [PATCH 1/2] Move exports.all to the loadups directory; add a LOADUPSDIRECTORIES to MEDLEY-INIT-VARS --- .github/workflows/buildLoadup.yml | 2 +- scripts/copy-all.sh | 2 +- sources/MEDLEYDIR | 15 ++++++++------- sources/MEDLEYDIR.LCOM | Bin 4873 -> 4904 bytes 4 files changed, 10 insertions(+), 9 deletions(-) diff --git a/.github/workflows/buildLoadup.yml b/.github/workflows/buildLoadup.yml index 55c5efdd..30699042 100644 --- a/.github/workflows/buildLoadup.yml +++ b/.github/workflows/buildLoadup.yml @@ -236,7 +236,7 @@ jobs: medley/loadups/full.sysout \ medley/loadups/apps.sysout \ medley/loadups/whereis.hash \ - medley/library/exports.all + medley/loadups/exports.all - name: Build runtime release tar run: | diff --git a/scripts/copy-all.sh b/scripts/copy-all.sh index 348e879b..3c208166 100755 --- a/scripts/copy-all.sh +++ b/scripts/copy-all.sh @@ -15,7 +15,7 @@ fi ./scripts/cpv tmp/full.sysout loadups ./scripts/cpv tmp/lisp.sysout loadups ./scripts/cpv tmp/whereis.hash loadups -./scripts/cpv tmp/exports.all library +./scripts/cpv tmp/exports.all loadups if [ "${1}" = "-apps" ]; then ./scripts/cpv tmp/apps.sysout loadups fi diff --git a/sources/MEDLEYDIR b/sources/MEDLEYDIR index e19dba87..33de3b4a 100644 --- a/sources/MEDLEYDIR +++ b/sources/MEDLEYDIR @@ -1,12 +1,11 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "22-Apr-2023 11:53:53" {DSK}larry>il>medley>sources>MEDLEYDIR.;2 9876 - - :EDIT-BY "lmm" +(FILECREATED "17-Jul-2023 16:13:10" {DSK}frank>il>medley>gmedley>sources>MEDLEYDIR.;2 9970 :CHANGES-TO (VARS MEDLEY-INIT-VARS) - :PREVIOUS-DATE "22-Nov-2022 20:50:20" {DSK}larry>il>medley>sources>MEDLEYDIR.;1) + :PREVIOUS-DATE "22-Apr-2023 11:53:53" {DSK}frank>il>medley>gmedley>sources>MEDLEYDIR.;1 +) (PRETTYCOMPRINT MEDLEYDIRCOMS) @@ -192,12 +191,14 @@ (CONS LOGINHOST/DIR '("INIT"] RESET) (XCL::*WHERE-IS-CASH-FILES* (MEDLEYDIR '("loadups") - "whereis.hash" NIL T)))) + "whereis.hash" NIL T)) + (LOADUPSDIRECTORIES (MEDLEYDIR '("loadups") + NIL NIL T)))) (DECLARE%: EVAL@COMPILE DOCOPY (ADDTOVAR GLOBALVARS MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1474 7901 (MEDLEY-INIT-VARS 1484 . 4962) (MEDLEYDIR 4964 . 6919) (MEDLEYSUBSTDIR 6921 - . 7899))))) + (FILEMAP (NIL (1469 7896 (MEDLEY-INIT-VARS 1479 . 4957) (MEDLEYDIR 4959 . 6914) (MEDLEYSUBSTDIR 6916 + . 7894))))) STOP diff --git a/sources/MEDLEYDIR.LCOM b/sources/MEDLEYDIR.LCOM index 2d8de6741819fb4807c31e15c600a130e277b020..89fb6db2a8cadaa001351a1652de95b1a0446e2e 100644 GIT binary patch delta 320 zcmeBFTcI`~+}Y4v*Q+!~*T}%gSi#WD%Fx)#$W%!|Ln%2ww;(eoHANvmPeDn6tJ)>l zyVfQnKR4Abttc@s+b%Q5E;ltLC$-Wped0vfdL<(RU9ZGEh&e_^R;C741_nwBB_LyR z)Ke5P^Axz090LM^6_6F`>FFscq$HLAt-)r1iIOIlhMT94t8jCct>ipFw-Id4h0P#e@B6!P;FloYC6g1u{P zGV*g%?Q#-}iYo0gbL=JuFiO{JDsU+w8)0B>WoTe!YNDi&RFn!gBRL~6FFmzb)k+~R zza%3wFI^!MXli(B4p2p^LP@@YTWL;CYLP;5WpRFKi2|~LdU|?F3S23PB|xWO*kopB zWnihK$)(}u>Er4gVm2Y;Uyeikd?PEH&d{3b@2?*b&3S~CMP#nNx{n5!_m*( wHCQ*qfAW7G$;s0gg*E*0%Rs?oq+kT}pn;W<0nlAI43*manQ@W8 Date: Tue, 18 Jul 2023 13:39:49 -0700 Subject: [PATCH 2/2] Adding (FROM LOADUPS) whereever EXPORTS.ALL is loaded - changing from LOAD to FILESLOAD where necessary. --- library/SYSEDIT | 10 +++--- lispusers/EVALOBJ | 33 +++++++++---------- lispusers/EVALOBJ.LCOM | Bin 6568 -> 6482 bytes lispusers/PSEUDOHOSTS | 64 +++++++++++++++++++++---------------- lispusers/PSEUDOHOSTS.LCOM | Bin 8553 -> 8930 bytes lispusers/tmax/TMAX | 37 ++++++++++----------- lispusers/tmax/TMAX.LCOM | Bin 15674 -> 15587 bytes 7 files changed, 72 insertions(+), 72 deletions(-) diff --git a/library/SYSEDIT b/library/SYSEDIT index 32af010f..d7393b8e 100644 --- a/library/SYSEDIT +++ b/library/SYSEDIT @@ -1,12 +1,10 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "29-Apr-2023 16:15:10" {DSK}larry>il>medley>library>SYSEDIT.;2 1377 - - :EDIT-BY "lmm" +(FILECREATED "18-Jul-2023 12:07:08" {DSK}frank>il>medley>gmedley>library>SYSEDIT.;2 1397 :CHANGES-TO (VARS SYSEDITCOMS) - :PREVIOUS-DATE "17-Apr-2023 14:19:03" {DSK}larry>il>medley>library>SYSEDIT.;1) + :PREVIOUS-DATE "29-Apr-2023 16:15:10" {DSK}frank>il>medley>gmedley>library>SYSEDIT.;1) (PRETTYCOMPRINT SYSEDITCOMS) @@ -24,7 +22,7 @@ (MSRECORDTRANFLG T)) (P (MOVD? 'APPLY* 'SPREADAPPLY*X) (RESETVARS ((CROSSCOMPILING T)) - (FILESLOAD (SOURCE) + (FILESLOAD (SOURCE FROM LOADUPS) EXPORTS.ALL]) (RPAQQ CLISPIFYPRETTYFLG NIL) @@ -50,7 +48,7 @@ (MOVD? 'APPLY* 'SPREADAPPLY*X) (RESETVARS ((CROSSCOMPILING T)) - (FILESLOAD (SOURCE) + (FILESLOAD (SOURCE FROM LOADUPS) EXPORTS.ALL)) (DECLARE%: DONTCOPY (FILEMAP (NIL))) diff --git a/lispusers/EVALOBJ b/lispusers/EVALOBJ index 28be07a3..954f0d27 100644 --- a/lispusers/EVALOBJ +++ b/lispusers/EVALOBJ @@ -1,22 +1,19 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") -(FILECREATED "11-May-2018 08:22:13"  -{DSK}kaplan>Local>medley3.5>lispcore>lispusers>EVALOBJ.;2 15206 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - changes to%: (VARS EVALOBJCOMS) +(FILECREATED "18-Jul-2023 12:27:33" {DSK}frank>il>medley>gmedley>lispusers>EVALOBJ.;2 15110 - previous date%: " 6-May-2000 09:24:45" -{DSK}kaplan>Local>medley3.5>lispcore>lispusers>EVALOBJ.;1) + :CHANGES-TO (VARS EVALOBJCOMS) + :PREVIOUS-DATE "11-May-2018 08:22:13" {DSK}frank>il>medley>gmedley>lispusers>EVALOBJ.;1 +) -(* ; " -Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation. All rights reserved. -") (PRETTYCOMPRINT EVALOBJCOMS) (RPAQQ EVALOBJCOMS [(FILES IMOBJAPPLICATION) - (DECLARE%: DOEVAL@LOAD DONTCOPY (FILES EXPORTS.ALL)) + (DECLARE%: DOEVAL@LOAD DONTCOPY (FILES (FROM LOADUPS) + EXPORTS.ALL)) (FNS EVALOBJ.BUTTONEVENTINFN EVALOBJ.DISPLAYFN EVALOBJ.IMAGEBOXFN EVALOBJ.COPYFN EVALOBJ.CREATE EVALOBJ.GETFN EVALOBJ.PUTFN) (FNS PARAMS TEXTSTREAMPARAM) @@ -51,7 +48,8 @@ Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation. All rights res (FILESLOAD IMOBJAPPLICATION) (DECLARE%: DOEVAL@LOAD DONTCOPY -(FILESLOAD EXPORTS.ALL) +(FILESLOAD (FROM LOADUPS) + EXPORTS.ALL) ) (DEFINEQ @@ -264,7 +262,7 @@ Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation. All rights res SELECTION ) ( - EVALOBJ.SELTOOBJ + EVALOBJ.SELTOOBJ TEXTSTREAM SELECTION 'CREATE/LOAD] @@ -291,11 +289,10 @@ Copyright (c) 1997, 1998, 1999, 2000, 2018 by Xerox Corporation. All rights res (ADDTOVAR LAMA ) ) -(PUTPROPS EVALOBJ COPYRIGHT ("Xerox Corporation" 1997 1998 1999 2000 2018)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3038 9319 (EVALOBJ.BUTTONEVENTINFN 3048 . 4241) (EVALOBJ.DISPLAYFN 4243 . 5418) ( -EVALOBJ.IMAGEBOXFN 5420 . 6963) (EVALOBJ.COPYFN 6965 . 7188) (EVALOBJ.CREATE 7190 . 8606) ( -EVALOBJ.GETFN 8608 . 9009) (EVALOBJ.PUTFN 9011 . 9317)) (9320 11885 (PARAMS 9330 . 11261) ( -TEXTSTREAMPARAM 11263 . 11883)) (11886 13031 (EVALOBJ.DISMANTLEFN 11896 . 12179) (EVALOBJ.SELTOOBJ -12181 . 13029))))) + (FILEMAP (NIL (3016 9297 (EVALOBJ.BUTTONEVENTINFN 3026 . 4219) (EVALOBJ.DISPLAYFN 4221 . 5396) ( +EVALOBJ.IMAGEBOXFN 5398 . 6941) (EVALOBJ.COPYFN 6943 . 7166) (EVALOBJ.CREATE 7168 . 8584) ( +EVALOBJ.GETFN 8586 . 8987) (EVALOBJ.PUTFN 8989 . 9295)) (9298 11863 (PARAMS 9308 . 11239) ( +TEXTSTREAMPARAM 11241 . 11861)) (11864 13009 (EVALOBJ.DISMANTLEFN 11874 . 12157) (EVALOBJ.SELTOOBJ +12159 . 13007))))) STOP diff --git a/lispusers/EVALOBJ.LCOM b/lispusers/EVALOBJ.LCOM index 21408e2cb0fc84d37ae84f3e1d88b1e5742b3317..cc59731c0155243794a37dbb24f2cfdd10d1c689 100644 GIT binary patch delta 1282 zcma)5O>7fK6vl!44GB){&Dw^7CQ|`xm34O4F{Ku@GVzYhhW*p-I1Ld}W#arhKdO>L zg;1LtmD;Lw)MJkb4z!m_6+QI`5>gMGDkQEwx7-jC;;om2fIwvq-^{%I_RTlndvm+^ z&^V=-tY*1PtywlxEw|?36F#k8q;-ag<#HC-R_K!(!@1@p4H?$8JVHuDt_F;9W@4hB zQ>V7us-YQ0tQ%$H<8rA)utMfG);5>h^DVrwjtNFr&G6#2^Gh3R^Oc1!n(M2T<#uIl zzSW-pva%S@Vly%FRUQ*VQ>U8iaYDl=m$b5`5xf=UYoBi6<#mh*_5Bd^O7m1dM+n^7q@z@BwT@d&yt=4FzzEO zp8Hppj=~sPX|-DM>VP7y_5P|LML(7rG^jh z97V2W@Bi#K_CDV^ym&ggz`G9hX+WJYKCC>@6&?2J;0J)SgQoy@2Gf8)4enGxc?oye z3|>r#$1!I!Jmetub@@;phq~NmHJ56drgw4+e&h)xswYn#iiC>IWCpg^lYav?hoszo z^&zvl2j;}0z8^Z7=OLpX%kj|$~p0Kx?en(Q{soHq22t9}OgakfWmfBF_O1X9BnFGU(3n!+m^|C>M(@mE)4BfH0{e@IqAbjXnMF*E^>|rc> zf#k=DbGe`tRur+sy+|E6Ny^n*_j2r;*xb2SqMW)9L@LT+3AVOdy<6S@ zhCY(xuc{3P=vCFQE^kz=x+6e8@a}Z{j|UMibm5>By&2^yRup+zSuVbsVxe^VkLJfE zfqZc?GYN`TCf~=$PQ_w`y)*tf;*aAy8SIXG*C}zb2K!^GbaCbwetLwrw_nF^{&u_F9<7e?Qn3Ox%XBsBRH^BLR4hdM zb*iteyTC3U|8|V18k5 zYD29%qZi@CSnLep3nE0P6sN&~(vgio*d_8-inz4tIxcdpM~=~LwnrWy-G9mHiI5LF zn@BJ*K7&U}{BOkE+|q#|IT4nU_2z!dBefN9bVX@Uhq{~QHQm%+P{g5zYoS~thQs-# z*kqJ4`+C8^sDCY-Mx0)B6SQet4cE!5h9L;R*Gz}7XW1Oat*H4A9cdwh@1d@JZ_26~bf1?S^F^&Lf14*ND24=bB#N--W6l^!=bU?D#zn Wq)KHagmMTKhz3*^rLrJI!u|&kdtYn- diff --git a/lispusers/PSEUDOHOSTS b/lispusers/PSEUDOHOSTS index 0f02b0ce..74b9f2ad 100644 --- a/lispusers/PSEUDOHOSTS +++ b/lispusers/PSEUDOHOSTS @@ -1,10 +1,16 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "31-Oct-2022 23:32:43" {WMEDLEY}PSEUDOHOSTS.;151 27537 +(FILECREATED "18-Jul-2023 13:12:35" {DSK}frank>il>medley>gmedley>lispusers>PSEUDOHOSTS.;2 28158 - :CHANGES-TO (FNS OPENFILE.PH) + :CHANGES-TO (VARS PSEUDOHOSTSCOMS) + (FNS PSEUDOHOST PSEUDOHOSTP PSEUDOHOSTS TARGETHOST TRUEFILENAME PSEUDOFILENAME + EXPAND.PH CONTRACT.PH SLASHIT UNSLASHIT GETHOSTINFO.PH OPENFILE.PH + GETFILENAME.PH DIRECTORYNAMEP.PH CLOSEFILE.PH REOPENFILE.PH DELETEFILE.PH + OPENP.PH UNREGISTERFILE.PH REGISTERFILE.PH GENERATEFILES.PH GETFILEINFO.PH + SETFILEINFO.PH NEXTFILEFN.PH FILEINFOFN.PH RENAMEFILE.PH) - :PREVIOUS-DATE "14-Jul-2022 17:54:43" {WMEDLEY}PSEUDOHOSTS.;150) + :PREVIOUS-DATE "31-Oct-2022 23:32:43" +{DSK}frank>il>medley>gmedley>lispusers>PSEUDOHOSTS.;1) (PRETTYCOMPRINT PSEUDOHOSTSCOMS) @@ -27,7 +33,8 @@ (DECLARE%: EVAL@COMPILE DONTCOPY (RECORDS PHDEVICE PHGENFILESTATE TARGETDEVICE) (MACROS PSEUDOHOST.NAME PSEUDOHOST.TARGETVAL) (P (CL:UNLESS (GETP 'EXPORTS.ALL 'FILE) - (LOAD 'EXPORTS.ALL))]) + (FILESLOAD (FROM LOADUPS) + EXPORTS.ALL))]) @@ -53,8 +60,8 @@ (CHARCODE })) (SETQ HOST (SUBSTRING HOST 1 -2))) (SETQ HOST (U-CASE (MKATOM HOST))) - [IF PREFIX - THEN (CL:WHEN (PSEUDOHOSTP HOST) (* ; + [if PREFIX + then (CL:WHEN (PSEUDOHOSTP HOST) (* ;  "Redefining: first clear out the previous one") (PSEUDOHOST HOST NIL)) [LET (TARGETHOST TARGETDEVICE PREFIXHOST) @@ -85,8 +92,8 @@ (* ;; "Save the last directory marker to pack on if needed.") (\DEFINEDEVICE HOST - (CREATE FDEV - USING TARGETDEVICE DEVICENAME _ HOST FDEV1 _ TARGETDEVICE FDEV2 _ PREFIX + (create FDEV + using TARGETDEVICE DEVICENAME _ HOST FDEV1 _ TARGETDEVICE FDEV2 _ PREFIX OPENFILELST _ NIL OPENFILE _ (FUNCTION OPENFILE.PH) GETFILENAME _ (FUNCTION GETFILENAME.PH) DIRECTORYNAMEP _ (FUNCTION DIRECTORYNAMEP.PH) @@ -103,7 +110,7 @@ (* ;; "The ultimate target device keeps a map of prefixes and the hostnames they map to. The longest matching prefix is chosen when a name that expands to the target device is contracted.") - (CHANGE (FETCH (TARGETDEVICE PREFIXMAP) OF TARGETDEVICE) + (change (fetch (TARGETDEVICE PREFIXMAP) OF TARGETDEVICE) (SORT (CONS (LIST PREFIX HOST (CL:IF (EQ (CHARCODE /) (NTHCHARCODE PREFIX -1)) '/ @@ -112,12 +119,12 @@ (FUNCTION (LAMBDA (P1 P2) (IGREATERP (NCHARS (CAR P1)) (NCHARS (CAR P2] - ELSEIF (SETQ PREFIX (CADR (PSEUDOHOSTP HOST))) - THEN + elseif (SETQ PREFIX (CADR (PSEUDOHOSTP HOST))) + then (* ;; "\DEFINEDEVICE removes the name-mapping but doesn't remove the device. Maybe that's on purpose for other devices, but not here.") (LET* ((PHHOST (\GETDEVICEFROMNAME HOST \FILEDEVICES)) - (TARGETDEV (FETCH (PHDEVICE TARGETDEV) OF PHHOST))) + (TARGETDEV (fetch (PHDEVICE TARGETDEV) OF PHHOST))) (UNINTERRUPTABLY (CL:WHEN TARGETDEV (* ;  "Don't want to fail uninterruptably") @@ -132,13 +139,13 @@ [LAMBDA (HOST) (* ; "Edited 24-Feb-2022 23:51 by rmk") (* ; "Edited 18-Jan-2022 11:29 by rmk") (LET ((DEV (\GETDEVICEFROMNAME HOST T T))) - (CL:WHEN (AND DEV (TYPE? FDEV (FETCH (PHDEVICE TARGETDEV) OF DEV))) + (CL:WHEN (AND DEV (type? FDEV (fetch (PHDEVICE TARGETDEV) OF DEV))) (LIST (FETCH (FDEV DEVICENAME) OF DEV) (FETCH (PHDEVICE PREFIX) DEV)))]) (PSEUDOHOSTS - [LAMBDA NIL (* ; "Edited 17-Jan-2022 18:15 by rmk") + [LAMBDA NIL (* ; "Edited 17-Jan-2022 18:15 by rmk") (FOR DEV IN \FILEDEVICES WHEN (TYPE? FDEV (FETCH (PHDEVICE TARGETDEV) OF DEV)) COLLECT (LIST (FETCH (FDEV DEVICENAME) OF DEV) (FETCH (PHDEVICE PREFIX) OF DEV]) @@ -401,7 +408,7 @@ STREAM]) (GENERATEFILES.PH - [LAMBDA (FDEV PATTERN DESIREDPROPS OPTIONS) (* ; "Edited 17-Jan-2022 20:46 by rmk") + [LAMBDA (FDEV PATTERN DESIREDPROPS OPTIONS) (* ; "Edited 17-Jan-2022 20:46 by rmk") (* ;; "FDEV is the pseudohost. We will generate from the target directory using its GENFILESTATE, but fiddle the output so that it looks like it is coming from the pseudo host.") @@ -428,7 +435,7 @@ (PSEUDOHOST.TARGETVAL SETFILEINFO (STREAM ATTRIBUTE VALUE DEVICE]) (NEXTFILEFN.PH - [LAMBDA (GENFILESTATE NAMEONLY) (* ; "Edited 17-Jan-2022 21:27 by rmk") + [LAMBDA (GENFILESTATE NAMEONLY) (* ; "Edited 17-Jan-2022 21:27 by rmk") (LET* ((TARGETGENOBJ (CADR GENFILESTATE)) (TARGETGENFILESTATE (FETCH GENFILESTATE OF TARGETGENOBJ)) (FILENAME (APPLY* (FETCH NEXTFILEFN OF TARGETGENOBJ) @@ -439,13 +446,13 @@ FILENAME]) (FILEINFOFN.PH - [LAMBDA (GENFILESTATE ATTRIBUTE) (* ; "Edited 17-Jan-2022 20:52 by rmk") + [LAMBDA (GENFILESTATE ATTRIBUTE) (* ; "Edited 17-Jan-2022 20:52 by rmk") (APPLY* (FETCH FILEINFOFN OF (CADR GENFILESTATE)) (FETCH GENFILESTATE OF (CADR GENFILESTATE)) ATTRIBUTE]) (RENAMEFILE.PH - [LAMBDA (OLD-DEVICE OLD-NAME NEW-DEVICE NEW-NAME) (* ; "Edited 18-Jan-2022 09:52 by rmk") + [LAMBDA (OLD-DEVICE OLD-NAME NEW-DEVICE NEW-NAME) (* ; "Edited 18-Jan-2022 09:52 by rmk") (LET ((OLDTARGETDEV (FETCH (PHDEVICE TARGETDEV) OF OLD-DEVICE)) (NEWTARGETDEV (FETCH (PHDEVICE TARGETDEV) OF NEW-DEVICE)) (NEWTARGETNAME NEW-NAME) @@ -520,16 +527,17 @@ (CL:UNLESS (GETP 'EXPORTS.ALL 'FILE) - (LOAD 'EXPORTS.ALL)) + (FILESLOAD (FROM LOADUPS) + EXPORTS.ALL)) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1268 9300 (PSEUDOHOST 1278 . 6837) (PSEUDOHOSTP 6839 . 7352) (PSEUDOHOSTS 7354 . 7711) -(TARGETHOST 7713 . 7987) (TRUEFILENAME 7989 . 8676) (PSEUDOFILENAME 8678 . 9298)) (9328 16867 ( -EXPAND.PH 9338 . 10591) (CONTRACT.PH 10593 . 13258) (SLASHIT 13260 . 14828) (UNSLASHIT 14830 . 16576) -(GETHOSTINFO.PH 16578 . 16865)) (16868 24872 (OPENFILE.PH 16878 . 17951) (GETFILENAME.PH 17953 . 18242 -) (DIRECTORYNAMEP.PH 18244 . 18868) (CLOSEFILE.PH 18870 . 19337) (REOPENFILE.PH 19339 . 19904) ( -DELETEFILE.PH 19906 . 20190) (OPENP.PH 20192 . 20487) (UNREGISTERFILE.PH 20489 . 21031) ( -REGISTERFILE.PH 21033 . 21567) (GENERATEFILES.PH 21569 . 22609) (GETFILEINFO.PH 22611 . 22913) ( -SETFILEINFO.PH 22915 . 23114) (NEXTFILEFN.PH 23116 . 23658) (FILEINFOFN.PH 23660 . 23931) ( -RENAMEFILE.PH 23933 . 24870))))) + (FILEMAP (NIL (1835 9871 (PSEUDOHOST 1845 . 7404) (PSEUDOHOSTP 7406 . 7919) (PSEUDOHOSTS 7921 . 8282) +(TARGETHOST 8284 . 8558) (TRUEFILENAME 8560 . 9247) (PSEUDOFILENAME 9249 . 9869)) (9899 17438 ( +EXPAND.PH 9909 . 11162) (CONTRACT.PH 11164 . 13829) (SLASHIT 13831 . 15399) (UNSLASHIT 15401 . 17147) +(GETHOSTINFO.PH 17149 . 17436)) (17439 25459 (OPENFILE.PH 17449 . 18522) (GETFILENAME.PH 18524 . 18813 +) (DIRECTORYNAMEP.PH 18815 . 19439) (CLOSEFILE.PH 19441 . 19908) (REOPENFILE.PH 19910 . 20475) ( +DELETEFILE.PH 20477 . 20761) (OPENP.PH 20763 . 21058) (UNREGISTERFILE.PH 21060 . 21602) ( +REGISTERFILE.PH 21604 . 22138) (GENERATEFILES.PH 22140 . 23184) (GETFILEINFO.PH 23186 . 23488) ( +SETFILEINFO.PH 23490 . 23689) (NEXTFILEFN.PH 23691 . 24237) (FILEINFOFN.PH 24239 . 24514) ( +RENAMEFILE.PH 24516 . 25457))))) STOP diff --git a/lispusers/PSEUDOHOSTS.LCOM b/lispusers/PSEUDOHOSTS.LCOM index 22acb128437563778022f956196c25f99ebe11e4..62acc97a8705725ace1bcf7c2440a1b0b094c0e7 100644 GIT binary patch delta 693 zcmaFq^vHEWc)g*8u2*S}u91O}v4Wwom7$T9sezJ$hEj5VZb4>FYKlUBo`RABSG7y9 zcdboEer~E=T2W$Nwq0h9U2bYhPHLrHI+V`IEG{T5PAw|73kY@%b@BJ`4-N^|vo_LH zP(rZ;XoIDdv7wSe3DA!Ef*kb}h0Ht!E+xl+fM5k=m3n%5N(w27B|t}DGr>$rlS{+R z)5q00$kj2#)dfuv*e}MWN(y+L?hf$-F1ITfSs0pHC~#RhdpP>Jy9Voq_$z3HIR*tQ zAo)6F$+zV!fh-Yug~_J!R{UI60YR=|p8lc1x-LMUO;%u(v?4qF4JV&rye_WbreLlR z19FTD&}3)VU`+)kFLuVwE1AA93RpRCG5`S+V-nLQJ%@0<$s1V2xW&A~`M5yB$$XQq zv#1(eV$d)(w^VQma`p8Ob5$@kHBpFh0eaUDYNCRvi3vj1&|r6%o0|hsrg$kx- zhERr)Ihe6ofL(}($i JXYxgb831b?!^;2w delta 542 zcmaFl`qF7a_+(*bF)0nD`0t&EM76q1Tk;d)am3W|zVtrYwNT>acUeO&bdJQOm4=DCIX z_$VN2*VEHeQb!MZMvA+8Eah9^O^6E0hK72nj1hFrltxppumA>3|25TK^HKFDK#`hQM$R7Lx_jT p++g!Wktw{AKK_m_3L0F2q5i;dag7M@4+;s^bM*1iob07E0{|+6hT;GK diff --git a/lispusers/tmax/TMAX b/lispusers/tmax/TMAX index 752cefc6..e37fada6 100644 --- a/lispusers/tmax/TMAX +++ b/lispusers/tmax/TMAX @@ -1,17 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "17-Mar-2022 23:12:47" {DSK}kaplan>Local>medley3.5>my-medley>lispusers>TMAX.;3 25981 +(FILECREATED "18-Jul-2023 12:34:39" {DSK}frank>il>medley>gmedley>lispusers>tmax>TMAX.;2 25955 :CHANGES-TO (VARS TMAXCOMS) - :PREVIOUS-DATE "24-Oct-2021 23:45:20" -{DSK}kaplan>Local>medley3.5>my-medley>lispusers>TMAX.;2) + :PREVIOUS-DATE "17-Mar-2022 23:12:47" {DSK}frank>il>medley>gmedley>lispusers>tmax>TMAX.;1 +) -(* ; " -Copyright (c) 1987, 1997, 1999 by Stanford University. -") - (PRETTYCOMPRINT TMAXCOMS) (RPAQQ TMAXCOMS @@ -25,7 +21,8 @@ Copyright (c) 1987, 1997, 1999 by Stanford University. [DECLARE%: DONTCOPY (P (DOFILESLOAD (LIST* '(SOURCE) TMAX.FILE.LIST))) (DECLARE%: EVAL@COMPILE DONTCOPY (P (OR (GETPROP 'EXPORTS.ALL 'FILE) - (LOAD 'EXPORTS.ALL] + (FILESLOAD (FROM LOADUPS) + EXPORTS.ALL] (P (DOFILESLOAD TMAX.FILE.LIST)) @@ -103,7 +100,8 @@ Copyright (c) 1987, 1997, 1999 by Stanford University. (DECLARE%: EVAL@COMPILE DONTCOPY (OR (GETPROP 'EXPORTS.ALL 'FILE) - (LOAD 'EXPORTS.ALL)) + (FILESLOAD (FROM LOADUPS) + EXPORTS.ALL)) ) ) @@ -560,16 +558,15 @@ Copyright (c) 1987, 1997, 1999 by Stanford University. "Displays number-group menu"] (TSP.FUNCTION.HOOKS) -(PUTPROPS TMAX COPYRIGHT ("Stanford University" 1987 1997 1999)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (8231 15446 (TSP.DISPLAY.FMMENU 8241 . 8806) (TSP.SETUP.FILENAMES 8808 . 10059) ( -TSP.SETUP.FMMENU 10061 . 10521) (TSP.FMMENU 10523 . 11709) (TSP.FM.APPLY 11711 . 12030) (UPDATE.ALL -12032 . 12704) (DOWNDATE.ALL 12706 . 13076) (TSP.FUNCTION.HOOKS 13078 . 14508) (TSP.GETFN 14510 . -15070) (TSP.PUTFN 15072 . 15444)) (15492 17741 (AutoUpdate.TOGGLE 15502 . 15738) (UPDATE? 15740 . -15885) (NGROUP.Menu.TOGGLE 15887 . 16269) (NGROUPMENU.ENABLED? 16271 . 16507) ( -NGROUP.Text-Before.TOGGLE 16509 . 16759) (TEXTBEFORE.ENABLED? 16761 . 16924) (NGROUP.Text-After.TOGGLE - 16926 . 17174) (TEXTAFTER.ENABLED? 17176 . 17337) (Manual.Index.TOGGLE 17339 . 17578) ( -MANUALINDEX.ENABLED? 17580 . 17739)) (17775 23248 (GET.TSP.FONT 17785 . 18949) (GET.TSP.FONT.FAMILY -18951 . 19799) (GET.TSP.FONT.SIZE 19801 . 20289) (GET.TSP.FONT.FACE 20291 . 20990) (ABBREVIATE.FONT -20992 . 22492) (TMAX.SHADEOBJ 22494 . 23246)) (23288 24504 (TSP.LIST.OF.OBJECTS 23298 . 24502))))) + (FILEMAP (NIL (8270 15485 (TSP.DISPLAY.FMMENU 8280 . 8845) (TSP.SETUP.FILENAMES 8847 . 10098) ( +TSP.SETUP.FMMENU 10100 . 10560) (TSP.FMMENU 10562 . 11748) (TSP.FM.APPLY 11750 . 12069) (UPDATE.ALL +12071 . 12743) (DOWNDATE.ALL 12745 . 13115) (TSP.FUNCTION.HOOKS 13117 . 14547) (TSP.GETFN 14549 . +15109) (TSP.PUTFN 15111 . 15483)) (15531 17780 (AutoUpdate.TOGGLE 15541 . 15777) (UPDATE? 15779 . +15924) (NGROUP.Menu.TOGGLE 15926 . 16308) (NGROUPMENU.ENABLED? 16310 . 16546) ( +NGROUP.Text-Before.TOGGLE 16548 . 16798) (TEXTBEFORE.ENABLED? 16800 . 16963) (NGROUP.Text-After.TOGGLE + 16965 . 17213) (TEXTAFTER.ENABLED? 17215 . 17376) (Manual.Index.TOGGLE 17378 . 17617) ( +MANUALINDEX.ENABLED? 17619 . 17778)) (17814 23287 (GET.TSP.FONT 17824 . 18988) (GET.TSP.FONT.FAMILY +18990 . 19838) (GET.TSP.FONT.SIZE 19840 . 20328) (GET.TSP.FONT.FACE 20330 . 21029) (ABBREVIATE.FONT +21031 . 22531) (TMAX.SHADEOBJ 22533 . 23285)) (23327 24543 (TSP.LIST.OF.OBJECTS 23337 . 24541))))) STOP diff --git a/lispusers/tmax/TMAX.LCOM b/lispusers/tmax/TMAX.LCOM index 65364f60bd936a5f96a7f504979be91f43d48645..37df82b8a850f7d20666733463d88250060b6062 100644 GIT binary patch delta 995 zcmbW0&rcIU6vtD_F9%AXEo~`~44Xn*v`u&00xe|8%5D+*W1DsxtMOn%ixS#`v=|T( z6HPp6By;nEa*>1(Q+tw=2mb&)b27xl7(zlkVM5}YE>RP2Ts}MBxAVU9-kaV12ZyUK z(}oe(^m5+Cc{nd-xuDk<^m{kwyEg7F6mtCRQl>c1&*k|-E}PG-@^{Xk`MJ{Kaw)e| z;>(513a>mZmSx4!fe6CE5*#Id2fg;~Qo$y68D9>8v}_AX2C82RgKj235n_9~uxt4flXM z4PoGyCKEx8&pMEU4d7r*PDF(W48V!1+l@Er=Ch_KFx+f|{Ke*S!c?+yq#)077f)pvOT$Ms{LL$fA zB1AJ?MlG~MJU%NqwbBMF7B`7m+tm!xfMzpblyvgcK>E7W2*erj}wOyWOTg zDTm#%k)}k2SW1XY#Y8EsUP7p+L`SpVJFZUbtoKG8=<9eCNbnWlN4yKn_tD5s-zPo7 zEQ^`YLa~fPnVB4X&eccEnik&v>K|06=ookp@?gNG%Fj9@G28D$=!IRqtLi)ZLrp*Z n3z8985V0eakfRvUbt;~8VksS$6H3x8L?TtuSuxbdrXuJ!0GJVK delta 1086 zcmbu9&ubGw6vs(x+OoQ8n=~eA3geQ-Y;Bk9#o2&|gC%t@__h!ED*D&*D`RVa1 zIegdBd$qjfbhcio)gwprYDqUDN@ZRzMaqSIsjwX6#7KF0*fb)gV!gW9I;th495)tZ z5yOuRC-mB|5D)~!3t?Ui^8p6U)e7^Ka$8ikG>kUx+E$B{$rTnqDB2T4dNt2`aw#6A+iDvek9RJtq5haMBQ6AxAmZ3Re z$FMrzAbs#i2!?lvVFCJ}{wssPQd%a(MdO*2BF*BNE)k1u_boJj)iwa^XlE>RlWl)* z0mE)x0Ipj103UTa@H^|dZraa>P&lck6OzKxewJ>Y>DWsSuXQGXY?l}G$*!-&HAy`L zexkMmJ?lRL*KgQqrTvHxV#)1kr?V*>p?&z`hD)&LqWjm8fH+J)g@q8p9@^dVG#wk) zAYSv!rXCX3+Pwrk)%^{))H7v@p7q=TbI!(_=5^aGFfTj3c%Qu&Rtt923F)G6O}OG7 zx6ytPNm)%bU1lS1?dwSR5527#gCeOB?5N{AaB|C8Qn@(t)B8N=#`kQb?#s>zAS3{O zawc6QbaFZkp*1Wj&x0;pb(tCt54ku0)*WysynpJXm?o!NvV?9d>Lo62 z#38LZuC!>gIw#MZ3A0GV?>LF zfH%fvsSF}- v7)`0E*>rq*mxlaIrlA`LE44hz8pWgVAru?S4B|thBY;o~A(o|*afSK;G}0?R