From 560def37bc1e4d91e135335905104ee322b8f5ab Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Wed, 29 Nov 2023 07:11:37 -0800 Subject: [PATCH] =?UTF-8?q?PSEUDHOSTS=20and=20.TEDIT:=20Apply=20TRUEFILENA?= =?UTF-8?q?ME=20on=20PREFIX,=20update=20documenta=E2=80=A6=20(#1385)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * PSEUDHOSTS and .TEDIT: Apply TRUEFILENAME on PREFIX, update documentation Documentation addresses #1303 . Using TRUEFILENAME makes sure it always goes to a ground instance in e.g. (PSEUDOHOST 'MEDLEY '{MEDLEY}). * PSEUDOHOSTS.LCOM and .TEDIT Appear to have gotten out of step --- lispusers/PSEUDOHOSTS | 34 +++++++++++++++++++--------------- lispusers/PSEUDOHOSTS.LCOM | Bin 8250 -> 8215 bytes lispusers/PSEUDOHOSTS.TEDIT | Bin 6324 -> 7999 bytes 3 files changed, 19 insertions(+), 15 deletions(-) diff --git a/lispusers/PSEUDOHOSTS b/lispusers/PSEUDOHOSTS index ad69e0ed..bb0e7189 100644 --- a/lispusers/PSEUDOHOSTS +++ b/lispusers/PSEUDOHOSTS @@ -1,13 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "22-Sep-2023 15:29:50" {WMEDLEY}PSEUDOHOSTS.;158 26638 +(FILECREATED " 2-Nov-2023 10:53:30" {WMEDLEY}PSEUDOHOSTS.;160 26843 :EDIT-BY rmk - :CHANGES-TO (FNS PSEUDOHOST SLASHIT CONTRACT.PH) - (VARS PSEUDOHOSTSCOMS) + :CHANGES-TO (FNS PSEUDOHOST) - :PREVIOUS-DATE "26-Jul-2023 12:34:37" {WMEDLEY}PSEUDOHOSTS.;155) + :PREVIOUS-DATE " 1-Oct-2023 20:16:43" {WMEDLEY}PSEUDOHOSTS.;159) (PRETTYCOMPRINT PSEUDOHOSTSCOMS) @@ -41,6 +40,8 @@ (PSEUDOHOST [LAMBDA (HOST PREFIX) + (* ;; "Edited 2-Nov-2023 10:53 by rmk") + (* ;; "Edited 22-Sep-2023 15:29 by rmk") (* ;; "Edited 25-Jun-2022 17:00 by rmk") @@ -59,7 +60,8 @@ (SETQ HOST (SUBSTRING HOST 1 -2))) (SETQ HOST (U-CASE (MKATOM HOST))) [if PREFIX - then (CL:WHEN (PSEUDOHOSTP HOST) (* ; + then (SETQ PREFIX (TRUEFILENAME PREFIX)) + (CL:WHEN (PSEUDOHOSTP HOST) (* ;  "Redefining: first clear out the previous one") (PSEUDOHOST HOST NIL)) [LET (TARGETHOST TARGETDEVICE PREFIXHOST) @@ -154,14 +156,16 @@ (FETCH (FDEV DEVICENAME) OF (FETCH (PHDEVICE TARGETDEV) OF (\GETDEVICEFROMNAME HOST))))]) (TRUEFILENAME - [LAMBDA (FILE) (* ; "Edited 26-Jul-2023 07:53 by rmk") + [LAMBDA (FILE) (* ; "Edited 1-Oct-2023 20:16 by rmk") + (* ; "Edited 26-Jul-2023 07:53 by rmk") (* ; "Edited 26-Jan-2022 23:33 by rmk") (* ; "Edited 25-Jan-2022 08:47 by rmk") (if (LISTP FILE) then (for F in FILE collect (TRUEFILENAME F)) else (LET (FILENAME DEVICE) (IF (STREAMP FILE) - THEN (SETQ FILENAME (FETCH (STREAM FULLFILENAME) OF FILE)) + THEN (SETQ FILENAME (OR (FETCH (STREAM FULLFILENAME) OF FILE) + FILE)) (SETQ DEVICE (FETCH (STREAM DEVICE) OF FILE)) ELSE (SETQ FILENAME (\ADD.CONNECTED.DIR FILE)) (SETQ DEVICE (\GETDEVICEFROMNAME FILENAME))) @@ -511,12 +515,12 @@ EXPORTS.ALL) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1315 9921 (PSEUDOHOST 1325 . 6930) (PSEUDOHOSTP 6932 . 7445) (PSEUDOHOSTS 7447 . 7808) -(TARGETHOST 7810 . 8084) (TRUEFILENAME 8086 . 9048) (PSEUDOFILENAME 9050 . 9919)) (9949 15964 ( -EXPAND.PH 9959 . 11212) (CONTRACT.PH 11214 . 13925) (UNSLASHIT 13927 . 15673) (GETHOSTINFO.PH 15675 . -15962)) (15965 23985 (OPENFILE.PH 15975 . 17048) (GETFILENAME.PH 17050 . 17339) (DIRECTORYNAMEP.PH -17341 . 17965) (CLOSEFILE.PH 17967 . 18434) (REOPENFILE.PH 18436 . 19001) (DELETEFILE.PH 19003 . 19287 -) (OPENP.PH 19289 . 19584) (UNREGISTERFILE.PH 19586 . 20128) (REGISTERFILE.PH 20130 . 20664) ( -GENERATEFILES.PH 20666 . 21710) (GETFILEINFO.PH 21712 . 22014) (SETFILEINFO.PH 22016 . 22215) ( -NEXTFILEFN.PH 22217 . 22763) (FILEINFOFN.PH 22765 . 23040) (RENAMEFILE.PH 23042 . 23983))))) + (FILEMAP (NIL (1254 10126 (PSEUDOHOST 1264 . 6972) (PSEUDOHOSTP 6974 . 7487) (PSEUDOHOSTS 7489 . 7850) + (TARGETHOST 7852 . 8126) (TRUEFILENAME 8128 . 9253) (PSEUDOFILENAME 9255 . 10124)) (10154 16169 ( +EXPAND.PH 10164 . 11417) (CONTRACT.PH 11419 . 14130) (UNSLASHIT 14132 . 15878) (GETHOSTINFO.PH 15880 + . 16167)) (16170 24190 (OPENFILE.PH 16180 . 17253) (GETFILENAME.PH 17255 . 17544) (DIRECTORYNAMEP.PH +17546 . 18170) (CLOSEFILE.PH 18172 . 18639) (REOPENFILE.PH 18641 . 19206) (DELETEFILE.PH 19208 . 19492 +) (OPENP.PH 19494 . 19789) (UNREGISTERFILE.PH 19791 . 20333) (REGISTERFILE.PH 20335 . 20869) ( +GENERATEFILES.PH 20871 . 21915) (GETFILEINFO.PH 21917 . 22219) (SETFILEINFO.PH 22221 . 22420) ( +NEXTFILEFN.PH 22422 . 22968) (FILEINFOFN.PH 22970 . 23245) (RENAMEFILE.PH 23247 . 24188))))) STOP diff --git a/lispusers/PSEUDOHOSTS.LCOM b/lispusers/PSEUDOHOSTS.LCOM index 2a4c82ce9a98ba9aabd8e65b586f9979219cb67d..39dc670534e072370080946176d84a084763105b 100644 GIT binary patch delta 1503 zcmZux&2QX96pweKDA|N4p%E2ud2Eo{KzB1A9^1P@XdQdD>(px-+uJ14QZ>yYKv2RV z;#6rl!i~y@9=LHsssvS(1C>xD4oI9haRVX#0xEIf%A2uUHV7Za^M1eg<@e#oy$8K7 z_BMdEqT^3mj4%#VbQ$jocK-u&YLP8yG-p}T=?bSySrbl`3ZgvsH_I}`Xnd#Ab8xY`dw>7~-mrGHV0lCI!gPKw`*R~Ib;%yLX#92&1}Z9z9l z<;@@-Wi1~K(T=v_qmwdqM!MAMn!E{(;&)@y=oIzZ-4qS_!Tuo5a!5cx?xxpe?xPb= zB4AcP#d8=3Q7+STl;rMCs5IEWCMXd|2E`AxYeruDS$k`G_V#3H4xgHFr}ot&hcqNyuMc7J$rFbF-NQCz4x@vrAv>DA4?_cyIp;8gBJqLZCK~u{;WOU zsh#)q8>c9%EzZ}RD53FT^eiZ$=6}=YaOnH znmv2&SZRhj@b|sjN*HQk(%Yz=PlmYhcPN1i2eQ!3 z2Gbx1ZkjNPw5TLTVAS&547I2LHB-u@AIQ)LPAGVBoM(@KZUAZ%UvT>SDzxvr2YB(S#I-jg6XP77rKprjD5L>=Hs95Vj3{EH(%% z=^J=b*al&;3S>57&1z_B8ro5(nUo!CDB#xPlA7<%07Bt_)A0sYJa~t2bQ@$;6`p4p5hA}CAX|R>cy>iEyIqo=^; Z#qDLbR7JJS(=V6rFVtw~wEg_b>Ob!cUqS!? delta 1554 zcmZux%WvF781HUElt&viCCUMb>SLiILEVk#;nxb#I`(YW8?Wt-y?InQkTelgv@|Lp z^-yVhLL8}l=ous=I3Nm954;p{M7{BUAR%$&!Z%|l-BkGCnfZR-`}@s2?)=>OVsnww zW_EDcqy}X`%rWAX<`n(fTN1L!%X(oBeiG->^Yd2PTY=>bPiA8|WqvZqR-m0qu@NT2tQlYom59~s ze|o#Bo~rtoU0klcQ8&%v_u3t~6UMoaa+v1cS|lI^6LL>p6L}yu@WdeP>5@~RfWEuo zR&^xL^+I168kL}USif597vI&dhhP0r`+9%o9Da{GAIz%tc)_T9@2j0YYV5`lXo>#a z(0}i|QqkyM{h`+{zM1IHY-#B4Z+peR6YyqFqfal~Rhm8R?WfLr>JaL~erK_MydM^8 zlb_eZ;@Mm-gwbcRCzsq^5?l_({>?{VvuYIFin0Lb^`2QEU>exV=Z+%550NqZ6u8yeq?|?`5b(98j!PCf!g(0Z>d5x#)X25XXirmuZp# zu^9}+U=4`H&ZJ6A4q_|y;sA*Y1gjp#CvgaKA@%(AD!{4$LJ%(_6T^KWvOC@#aIE69 zsm&1<*i~dTv7B;4?Q+8%XRMo^VPGlTsnj{zy$#&runL@;l?5|ER;5Nl<;y8HN#rWQ zFzzN=L?~cKE77Qw84P8yka+79kSRrm`R;f@&`eShH?dE`8vt`mH4sz{{pK*1;#!#D z4LpTy>lAJ&JG_II4S|S6=~+9*2SN&kcEeGbC*v;oQIhHCT8A4Dgi`oQY~fV zBzGm#B1)ljReGYX0S_i8R4eoCRJ{HGsEKTd!!4l5IzN#}3X0Uu){z`+7xaTb7=yJW z*am{#R}ewBC4zKO8+`qcjW#rf@p_zW#?^D7u?7&=g~q#TWzbl~)gk3-IY+-t|5K~& z7T?d(nZ-_d=cbFlX0OiEF=E-4xD5>91**2ns$n36no`tBTGgvZ3DxHwRB}~BkgMT z#f}O2106o{Bgz+M_{uNnzk=sEckk6IPSU2+;ZrqZW%u0kex7sA)#N}=X8Qb)q)MhJ*F3+WK~FeY3V+CE^vt+viHDeiEy@;bIoXwc$yWsYx;}<~q*RS(vGDs>57Q zR1~WZ!?+03bG3D2YpYqSwbUZh#UwdNvRp+I2t?CJXDUC@Dov7HB~uluX*AO+JI``G z$4Qtg{UFNnOhI+1vf^kGrFxtvP)qhWfpn@CslG0JQG8t0&{Rr1JdRFb2=XUM3Z?M` zu8M+Wq0=y@6k;lk!*jZH!IoNtX&#M>SxAG)r*K1^MfpimJN zmLGlaxKjeuML5169%~h`%IqmvTsDoEn&{IA!I;XUM9G=B0D@RI_=^}2U_KAyXaU5Q z9htLT0e$HUt)>OsBIcHjUZ#W166>?7@iX)-L<9lj1OXvV!N0)B(2))U?}=$4;8b^4z4=sx zLRyc*bdv47sn!kHFP_*xh}krpQP*M(s11HOP(0x;Q=$@5Akdq^xU|s&KKG zMP{%x70Ea+i&WMIfCy)R1mGR#It7(jksPg-4ZV1xQIJ%@4Y-YVz#N+ZPiz#VO+TP5 zPXHPx~)fhM9&!zD~x6psmAVq_kUPcYrH4I3ZMT>~sL zAhox+W4f3j&OaTWMrjgr5(CeNPQoPH4hl2|vV=fcp^X06*0J8kNjeAi&&%rp#xo&N zV3+Q8xvH<(wLszV#BB+ai*kQ5G&)wq6P?b^SqwMnoJH(Rb_@CBwgay!$(Gb&C}`Ya z${UJ726lzq5Dbzq1d5bP@#x%G%!&|W)ZEJK)`0Utw;go+!wrQP{M})%f3Mp*@HbTZ zw)*Wxv)RNQ;A8Igl?#9k)os8Hr$}8BeRua876kOeWy497T+NzMzZ^0HB5am~6Fu3G z0VT^qXB^7qXJuh@0@dm52VM3uVrZ;mg$qEK6^=v+f0i8M$=38-8m%0f)eFg_y6Rw}8&bUZ%LE?SGLVAgS zY(@Q{jJfBqVRq2UP1yCs2FD^>)ec4uF-&&H0Mo-(f8QSp1HYbXxjHHt)z`I%tH!WD z!rh|d6Pbz+Pc>?{5t&$e-uLnpv(#L*$x|Es?pvIs_tD zvH%>~LW-q2F7jD)gmUQzIW}r_L6$2^en3=#L0X_ zol3%xlFfIw)!R4K)~#Fkr(rnjcl_2K(r6M@z6|ft{HWW-0ZEX(wXNRW-d68yRb_|% zCqogWd9u8BQ*FODgS^0~?i{%_0pZ5dVl+iq00HNU}bY&2x#zUY0|+mxsB z>(ZL{R`vZ!&)X!fec^qF|6IE4y|w0j{v^ICZQFapdjm3S&m}|Vs-3kjDF3XF_3g)C z`s%)s`3t1N%6xS@%Xpqw28mw#av3QOeET7MyL{==mltQ#`^@`n?H1T6fa1v0Grp|A zOCstFTB0#p(o7DIGc5Bob zwtHB%o2rgYeGqh89kt1|?%r-a{&Kk2UODFK;eSY&jb0T*7qIB&^P2av)#<%#i51^U z&KErIb+0xI4*WsCchKtE41>Z zZ-(g#G>OxfX#`41c&cj4^i2Df=@n@D0hL;>dGNc(336EBSUa{Hl=m*-@28f+WC^8Z zDaumbvlPiHrG8^6jEA*ymfq$GS)?4+HYXK{!soPHwG`(~U@1T0!v!^z{F`MFsFG!B zDKyGFyiNj7B>C0{I^-;hGyD>9;Os3)*e1a@CKIf zOFpdl=c-v)o;NMetCqrXDpJnBA6bg)SXV~JLvM&v@ss&uLx~!}3n~1QFUcg|enAQy z9Pxn^7x;Bcv5Lhuk5`aGLc7Y!guOw6Xo6Gx_X84E)VsX8+`nddEL5FyBv6alpLh_} z{JN;c1#7jq8dxnZ&(5-&4UQrP=&$Sif8a$Ta6EHMk$h0X0p8laN*2*oMsU&gJ64O+ z>uhr{i1Z&W@Z7&Zao&8-O8wmO*uWW&gg^puBLwT7BdqPUhW`7ZYhaMo>ZOQYd)elesrvwJQf^=FWSb^PY3h%pBhPnE3F=;KxR*-5PnI z&#>uSA+?^&E@ulxHno~cGI3^7kCW+qoV6;|Dyy3f*4%^4k6fA9baBUI<)#RfD^;^r z+BNHJt5jp9YTaU+CTrHsr~J3)hPTwHShcx0<4@et=#EuyFssZ;Z11_bU$L5XR;le< zTLiJqW`nu(wD7w2<&dtv<5s30bSi~MVF zfhR(f{8!M+H-bKXd?Chdnl*7_>XXee+gf^6VTkN*<>oe zrunqq!=Pt3B;7eRmst3rxcEUNX6xF?$>53AG($Th)`qa~FXz`Yskw)#;?mmxNwiVM zIr>U^g?JW$5sDfbgwuK;7>GE?NhY4!ye($-&rFZ78iyZd25U_6I+ndcU)zGvwdK%% z6Geo+X*f`$iv4$d3kZRs9&nkJiY(nt5)ig=4g}D?i2z$dM798Q z0s>i!D~P)g1Yvh~PdqNP03386aqCo68-M_tTar*S9CiswM!H;q;51{CO+X^5wED`G zqCPD34Zj=8ib+M5ibCk!_h2RQ{%^~q;ZpbkDSdH>c{Zf<6~}OJs