From 05f3ad19ebe9b58e2b9552b95aa21c2c79de40af Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Mon, 13 Nov 2023 12:12:56 -0800 Subject: [PATCH] Update CLHS reference to use Interlisp CHLS instead; use UNIXUTILS ShellBrowser (#1412) --- library/UNIXUTILS | 20 +++++++++++++------- library/UNIXUTILS.DFASL | Bin 7433 -> 7570 bytes lispusers/HELPSYS | 37 +++++++++++++++++++------------------ lispusers/HELPSYS.LCOM | Bin 62120 -> 62220 bytes 4 files changed, 32 insertions(+), 25 deletions(-) diff --git a/library/UNIXUTILS b/library/UNIXUTILS index ec67d36c..d293d11d 100644 --- a/library/UNIXUTILS +++ b/library/UNIXUTILS @@ -1,11 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "10-Nov-2023 21:59:02" {DSK}frank>il>medley>gmedley>library>UNIXUTILS.;24 16469 +(FILECREATED "11-Nov-2023 09:06:39" {DSK}larry>il>medley>library>UNIXUTILS.;2 16644 - :CHANGES-TO (FNS ShellOpen SLASHIT) + :EDIT-BY "lmm" - :PREVIOUS-DATE "10-Nov-2023 19:34:44" -{DSK}frank>il>medley>gmedley>docs>primer>UNIXUTILS.;10) + :CHANGES-TO (VARS UNIXUTILSCOMS) + + :PREVIOUS-DATE "10-Nov-2023 21:59:02" {DSK}larry>il>medley>library>UNIXUTILS.;1) (PRETTYCOMPRINT UNIXUTILSCOMS) @@ -18,6 +19,8 @@ (INITVARS (ShellBrowser) (ShellOpener)) (FUNCTIONS ShellCommand ShellWhich) + (ADDVARS (MEDLEY-INIT-VARS (ShellBrowser) + (ShellOpener))) (FNS ShellBrowser ShellBrowse ShellOpener ShellOpen PROCESS-COMMAND SLASHIT UNIX-FILE-NAME) (PROPS (UNIXUTILS FILETYPE)))) (DECLARE%: EVAL@COMPILE DONTCOPY @@ -53,6 +56,9 @@ NIL) (T (SETFILEPTR S 0) (RSTRING S]) + +(ADDTOVAR MEDLEY-INIT-VARS (ShellBrowser) + (ShellOpener)) (DEFINEQ (ShellBrowser @@ -313,7 +319,7 @@ (PUTPROPS UNIXUTILS FILETYPE CL:COMPILE-FILE) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1065 1438 (ShellCommand 1065 . 1438)) (1440 1837 (ShellWhich 1440 . 1837)) (1838 16391 -(ShellBrowser 1848 . 3596) (ShellBrowse 3598 . 4283) (ShellOpener 4285 . 5973) (ShellOpen 5975 . 11130 -) (PROCESS-COMMAND 11132 . 11745) (SLASHIT 11747 . 13789) (UNIX-FILE-NAME 13791 . 16389))))) + (FILEMAP (NIL (1151 1524 (ShellCommand 1151 . 1524)) (1526 1923 (ShellWhich 1526 . 1923)) (2013 16566 +(ShellBrowser 2023 . 3771) (ShellBrowse 3773 . 4458) (ShellOpener 4460 . 6148) (ShellOpen 6150 . 11305 +) (PROCESS-COMMAND 11307 . 11920) (SLASHIT 11922 . 13964) (UNIX-FILE-NAME 13966 . 16564))))) STOP diff --git a/library/UNIXUTILS.DFASL b/library/UNIXUTILS.DFASL index 991032ba28a1646074547c04fd2f2ce840671639..2148d9108928a969da15bb2e20b11e0ef46d3470 100644 GIT binary patch delta 1918 zcmZuyZA_b06u$R;`$1tFtSv=YfkqkbgG%`rlhTnD+SO`l@qLTH)J)i_?1Nx%Ojb5G z7MG0KjBPiAo`jez88bsA!J_+eA%5&9Qxkt_^w0eGVN8s1Gx5*7=iZKqThjEL^W1aJ zeeS*IoOjH7w&`@OWna(W;KAnI`B*O@-%uq4c@xO+--h6 z;(B%WzJzP%V4`P#VwX$r**`S6tLI>qtER@q0}}nci9r`eRk?W7X0NAq?#7Rln%R`{ zgIh_TOPT$Fzzcp&PcxNU1#Q7VB-rf^N5gTqgef@EjDnrLsUF+#2o~p3)guA@xx>D` zf&N7EGTxbxAw+46jT;Ns#0-Sc^y!qjH4@W1v>?xkzmyX4u+NOGRAWYypXw}RD&-Lg zQ=IG9Oy#tfeP_CD)hLe!PV#kw)AR^3htreMKA@zaE#|>;(u&3Cj#D9em^EX zuC>SXW>h2YR=*ys5*`yz3NcwItpaJWb-5EonC1l7d2%9>9~En3Y%w=Ry_wRy0Y&lD zvr{Xt&<|N?RagB*@Y?7@MCN7G=mwrn>4qeV1{gq51xfbRstW33f32$Ab(KT(yl|jX zBIq(AWBAnJ=(cbq*pBww(qj;OX!Y?`i{8<~PZy4c5P4aIzJsbR)a$4|E7YqjnO{=) zDFPKd(9jxd??z)aCvqv@dj!dmua^>#8$z8!bRO&|K7eWz?+FrQTqJqMA4lvYB>N%R zBcpY2$So&=0+_55V&W-jIi*!3EsGFor3{a%`J(|n7%$){l^S@R3;MHIpJl@Z4enV4 zt_k3CR5L>T0@X`G{SsB5RN40hC69{;lK^h=HS&*8F__$zC@Wfh#WSs{!um)x2zgO8 z3V8uE#jw1D>&zoC#HiJ4UMz>|Vt#oo){(mBvw_o~8L$lgQ}gwPZP3{aU7MkM1q`bd zu)PR0E4;}5v~DV1@}qB1GrYoSDeJKhcCxLu$83*i6t>sqGYE(GZDpm?D$Vjt5M`;S za(GWE(3kne){BRA5o8QJyg|(G;vsCWDBdG9A@_;k(Wqb}N-QlwkqGo&6AbXbP;;vLw z1I@`Yu;4q*%W|6)7}hgMOXTDOWK^h=ha|!>MV0mmqM$EJr}zL%(Zgg4wq$-UYQo93 zzPQqIlPJRb2J0#=4cK9ekv_!9fgV&&2iXo|qbo7%Z<4_+kzoOmPr%1ME-tqTL(;iE zAeY&%#X&m9+$HOdU^$W*Y@C)@pc{<~!bjBRyF$ehCTAX?C-ABGq#nYkj%c`Rk92zp z@mM4fN0XKZgm_|$v^L>lG}tLS?v@E%?CA;iZOQo~4*5{js%9?$G@>ql)u&e=iBm9y z;y4^YAqU`<5l9X|QgT@65>yu2gt&~8)))@>G71YU5kaHf(k8XR%fIv!FRj=d7$aDsXQ&nXF^A`GaL;-j2&{i`R8TE8Khg;A5Mq5 I_1?XI0oJlIsQ>@~ delta 1865 zcmZuyZA@EL7(VCTeo(;C(yl;(Q5Qr->Y!gp!Dgi`UEQUv+!D6Qf-pM91Z%o#vcQ0u zZArVvZ5+|QO3a!}m(2yYv5&@R+bnq@KBobjhW)McJ?Zp92q8lLz2ea?H| zb6D)ocuw05`%|NDzTusm@=hnlrxJ&~6KA^XN1Wwy^6k{VgmwSqRKmJ1l^9JY#;qOg zwn*|Fo4wucu-ZF3t}aizy}ZvSOHYRNr6$Km54X{9D-BOfk0nx8meW>BvbSHk{u9O; z^1g6~oD~=B8u}M+CPqKxg z5GF@8aokUS)HLB?@`vW0Ny4-)tYxusF7i-2*DyjIh&vW=C5&Pfj3Fd6!!U+%@#C0G`*scrScD|X23*?B3^U>W=U^Flul@|A}I(CI}tY(@mccKrd{m-P9y$b^YgTM zD`g?!jTZO?1ec7GOw`0#8O`H83%_1lt&#=akSXUSNlhRYqAzPeXbX=43D{1TsOMpLKA^ zyr^gmidLg&Iu0iVMsvUy37F+zTu;jh9dM8W{)PJsC+;E+Vt6aRn#0y-! z$;2K-B(EDRTX}|t8;aD2{^TM{M)wpeSvC~yc~Rurr=p4@h-!`>f+VQcucuo(14(kM z+M~VI1l#K9*uJfvaqTRn=0Q@ib$DWH5Dq3L!{l;Zi>`67I5Xnv00;BSisoX@NN`BGL$}FL{e^j*GH|RGONRjo ziR-?Pv!jwVdJmEej>B6F7I@pwXCR$~^g*s%-K9W3hl}jZREGn;c(98bvd?h1#ixM{ z>I7A{AXHG^oPr5bRrymnHT`c9if}Txnta?KX-8-``iPU?8_aa_>P8!V^^cc1$wZ^U Z;-MLp{%C)UzH>JA*rAWu!5xnu{{zPWC8_`b diff --git a/lispusers/HELPSYS b/lispusers/HELPSYS index 6794db81..f51a86fe 100644 --- a/lispusers/HELPSYS +++ b/lispusers/HELPSYS @@ -1,12 +1,13 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "16-Jun-2023 14:38:33" {DSK}larry>il>medley>lispusers>HELPSYS.;11 87625 +(FILECREATED "11-Nov-2023 09:31:38" {DSK}larry>il>medley>lispusers>HELPSYS.;2 87772 :EDIT-BY "lmm" :CHANGES-TO (VARS HELPSYSCOMS) + (FNS CLHS.LOOKUP) - :PREVIOUS-DATE "13-Jan-2023 10:46:39" {DSK}larry>il>medley>lispusers>HELPSYS.;10) + :PREVIOUS-DATE "16-Jun-2023 14:38:33" {DSK}larry>il>medley>lispusers>HELPSYS.;1) (PRETTYCOMPRINT HELPSYSCOMS) @@ -28,7 +29,7 @@ (COMS (FNS CLHS.INDEX CLHS.LOOKUP CLHS.OPENER REPO.LOOKUP) (VARS CLHS.INDEX) - [INITVARS (CLHS.ROOT.URL "http://clhs.lisp.se/") + [INITVARS (CLHS.ROOT.URL "https://interlisp.org/clhs/") (CLHS.INDEX) (CLHS.OPENER) (HELPSYS.REPO.TYPES '(FNS FUNCTIONS VARS VARIABLES] @@ -94,8 +95,7 @@ DINFO HASH) ) -(DEFCOMMAND "man" (ENTRY) - "Lookup ENTRY in the IRM." +(DEFCOMMAND "man" (ENTRY) "Lookup ENTRY in the IRM." (GENERIC.MAN.LOOKUP ENTRY)) (DEFINEQ @@ -266,9 +266,10 @@ else (LIST (SUBSTRING LINE POSLINK (CL:1- POSENDLINK]) (CLHS.LOOKUP - [LAMBDA (ENTRY PHASES) (* ; "Edited 12-Oct-2022 18:32 by FGH") + [LAMBDA (ENTRY PHASES) (* ; "Edited 11-Nov-2023 09:11 by lmm") + (* ; "Edited 12-Oct-2022 18:32 by FGH") (* ; "Edited 24-Aug-2022 17:08 by larry") - (LET [(OPENER (CLHS.OPENER)) + (LET [(OPENER (ShellBrowser)) (URL NIL) POS (ENTRY (L-CASE (MKSTRING ENTRY] @@ -1329,7 +1330,7 @@ ("yes-or-no-p" "f_y_or_n.htm" "yes-or-no-p") ("zerop" "f_zerop.htm" "zerop"))) -(RPAQ? CLHS.ROOT.URL "http://clhs.lisp.se/") +(RPAQ? CLHS.ROOT.URL "https://interlisp.org/clhs/") (RPAQ? CLHS.INDEX ) @@ -1700,14 +1701,14 @@ (PUTPROPS HELPSYS FILETYPE :FAKE-COMPILE-FILE) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4609 10342 (HELPSYS 4619 . 6460) (IRM.LOOKUP 6462 . 8100) (GENERIC.MAN.LOOKUP 8102 . -9771) (IRM.SMART.LOOKUP 9773 . 9929) (IRM.RESET 9931 . 10340)) (10599 17546 (CLHS.INDEX 10609 . 13307) - (CLHS.LOOKUP 13309 . 15209) (CLHS.OPENER 15211 . 16534) (REPO.LOOKUP 16536 . 17544)) (70634 72152 ( -IRM.GET.DINFOGRAPH 70644 . 71519) (IRM.DISPLAY.REF 71521 . 72150)) (72154 72516 (IRM.LOAD-GRAPH 72154 - . 72516)) (72841 78345 (IRM.DISPLAY.CREF 72851 . 74565) (IRM.CREF.BOX 74567 . 75394) (IRM.PUT.CREF -75396 . 75621) (IRM.GET.CREF 75623 . 75994) (IRM.CREF.BUTTONEVENTFN 75996 . 78343)) (78900 87206 ( -\IRM.GET.REF 78910 . 80241) (\IRM.SMART.REF 80243 . 82170) (\IRM.CHOOSE.REF 82172 . 83423) ( -\IRM.WILD.REF 83425 . 84680) (\IRM.WILDCARD 84682 . 85048) (\IRM.WILD.MATCH 85050 . 86280) ( -\IRM.GET.HASHFILE 86282 . 86745) (\IRM.GET.KEYWORDS 86747 . 87204)) (87343 87499 (\IRM.AROUND-EXIT -87343 . 87499))))) + (FILEMAP (NIL (4643 10376 (HELPSYS 4653 . 6494) (IRM.LOOKUP 6496 . 8134) (GENERIC.MAN.LOOKUP 8136 . +9805) (IRM.SMART.LOOKUP 9807 . 9963) (IRM.RESET 9965 . 10374)) (10633 17686 (CLHS.INDEX 10643 . 13341) + (CLHS.LOOKUP 13343 . 15349) (CLHS.OPENER 15351 . 16674) (REPO.LOOKUP 16676 . 17684)) (70781 72299 ( +IRM.GET.DINFOGRAPH 70791 . 71666) (IRM.DISPLAY.REF 71668 . 72297)) (72301 72663 (IRM.LOAD-GRAPH 72301 + . 72663)) (72988 78492 (IRM.DISPLAY.CREF 72998 . 74712) (IRM.CREF.BOX 74714 . 75541) (IRM.PUT.CREF +75543 . 75768) (IRM.GET.CREF 75770 . 76141) (IRM.CREF.BUTTONEVENTFN 76143 . 78490)) (79047 87353 ( +\IRM.GET.REF 79057 . 80388) (\IRM.SMART.REF 80390 . 82317) (\IRM.CHOOSE.REF 82319 . 83570) ( +\IRM.WILD.REF 83572 . 84827) (\IRM.WILDCARD 84829 . 85195) (\IRM.WILD.MATCH 85197 . 86427) ( +\IRM.GET.HASHFILE 86429 . 86892) (\IRM.GET.KEYWORDS 86894 . 87351)) (87490 87646 (\IRM.AROUND-EXIT +87490 . 87646))))) STOP diff --git a/lispusers/HELPSYS.LCOM b/lispusers/HELPSYS.LCOM index e10cac9cc4a36a5de238fcd43a8bb6639bcc667f..c4e9a2cffccaa5cadf692a5dac6d5ff6bea231f7 100644 GIT binary patch delta 1107 zcmZ`&&rcIU6lNF1fPfTY5o7SV7}Flu?vHl2T{Y>iZM$K+v)OH_0tq0klt?I92p){$ zfr|+T$y~j8F?!O)#EU0QjPYP%BJdCBpP*M~S|SbVW;65Nn>XKl@0&NzzjyBZ=zMZ> zSe&pLn-h{C$si;&S=8kC?%m{;6oy_-Y+qD0S=EFn2V4dfZNtAcGF8lp}4Tr4fnNr0OcO>qGvyXqZAeYT{%)@z}|TDgyp`usK3Hkt4+s@YOpF$a@QGbq*2a0r)x~;JFE$v_kM3^vvI2qZ72`4Td zjnTZL-i(RyCRI*&@?bo8R3M)9=E*-mU%Mz6ZJPJK-|zc=KkxJXyzhf=p%-66k7oLm z*u>^~OcX>3kgUr{m(<61lG_MHp^HQEu~SJ$f-b8Za0V_Et-Kk_&}Er}wRPai)!I`1 zZWUT}$ZXbX)dn=Tn)S^V1wDe`d7gviN~^m3A8bXJ5Etzl^+Amx$4r&XG;ru|ev+n3 z5)l~TBtoF6iWny=j4+}X9dp{kQ*JCx%V?Dpo2dNmijt<-3G$H<8NvI>470uZ*w|8S zwaM4knj3tx>S-OroxPS*C|hPA~dvILzci zZ~9gvJ0r>9%pqTT=1?5QO|u9{)qvvhd5kBgs4JS-8g@_Y-*P6Q3BGIoxxN~0gPaX%Tz_dfAMiV_W4raSYsGMw)WmzUg Zh7O@mYG2Av75(v#cG*_mn>&1U?iUNy2&w=8