From 2aae0e7bb6b07b3c362ac474ce065f9481978e2e Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Fri, 7 Jul 2023 12:27:06 -0700 Subject: [PATCH] put back in IRM.SMART.LOOKUP needed for helpsys from menu (#1251) --- lispusers/HELPSYS | 40 +++++++++++++++++++++------------------- lispusers/HELPSYS.LCOM | Bin 62127 -> 62120 bytes 2 files changed, 21 insertions(+), 19 deletions(-) diff --git a/lispusers/HELPSYS b/lispusers/HELPSYS index da4c6f01..6794db81 100644 --- a/lispusers/HELPSYS +++ b/lispusers/HELPSYS @@ -1,17 +1,14 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "13-Jan-2023 10:46:39" {DSK}larry>il>medley>lispusers>HELPSYS.;2 87610 +(FILECREATED "16-Jun-2023 14:38:33" {DSK}larry>il>medley>lispusers>HELPSYS.;11 87625 + + :EDIT-BY "lmm" :CHANGES-TO (VARS HELPSYSCOMS) - (FNS REPO.LOOKUP) - :PREVIOUS-DATE "12-Oct-2022 18:33:26" {DSK}larry>il>medley>lispusers>HELPSYS.;1) + :PREVIOUS-DATE "13-Jan-2023 10:46:39" {DSK}larry>il>medley>lispusers>HELPSYS.;10) -(* ; " -Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation. -") - (PRETTYCOMPRINT HELPSYSCOMS) (RPAQQ HELPSYSCOMS @@ -20,7 +17,7 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation. (DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) DINFO HASH)) [COMS (COMMANDS "man") - (FNS HELPSYS IRM.LOOKUP GENERIC.MAN.LOOKUP IRM.RESET) + (FNS HELPSYS IRM.LOOKUP GENERIC.MAN.LOOKUP IRM.SMART.LOOKUP IRM.RESET) (INITVARS (IRM.HOST&DIR) (IRM.HASHFILE.NAME)) (GLOBALVARS IRM.HOST&DIR IRM.HASHFILE.NAME) @@ -97,7 +94,8 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation. DINFO HASH) ) -(DEFCOMMAND "man" (ENTRY) "Lookup ENTRY in the IRM." +(DEFCOMMAND "man" (ENTRY) + "Lookup ENTRY in the IRM." (GENERIC.MAN.LOOKUP ENTRY)) (DEFINEQ @@ -197,6 +195,10 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation. else (APPEND (IRM.LOOKUP KEYWORD TYPE GRAPH T) (REPO.LOOKUP KEYWORD]) +(IRM.SMART.LOOKUP + [LAMBDA (KEYWORD GRAPH) (* drc%: " 6-Jan-86 14:50") + (IRM.LOOKUP KEYWORD NIL GRAPH T]) + (IRM.RESET [LAMBDA NIL (* drc%: "27-Jan-86 11:19") (if (type? DINFOGRAPH IRM.DINFOGRAPH) @@ -1697,15 +1699,15 @@ Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation. (ADDTOVAR AROUNDEXITFNS \IRM.AROUND-EXIT) (PUTPROPS HELPSYS FILETYPE :FAKE-COMPILE-FILE) -(PUTPROPS HELPSYS COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2022 2023)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4671 10246 (HELPSYS 4681 . 6522) (IRM.LOOKUP 6524 . 8162) (GENERIC.MAN.LOOKUP 8164 . -9833) (IRM.RESET 9835 . 10244)) (10503 17450 (CLHS.INDEX 10513 . 13211) (CLHS.LOOKUP 13213 . 15113) ( -CLHS.OPENER 15115 . 16438) (REPO.LOOKUP 16440 . 17448)) (70538 72056 (IRM.GET.DINFOGRAPH 70548 . 71423 -) (IRM.DISPLAY.REF 71425 . 72054)) (72058 72420 (IRM.LOAD-GRAPH 72058 . 72420)) (72745 78249 ( -IRM.DISPLAY.CREF 72755 . 74469) (IRM.CREF.BOX 74471 . 75298) (IRM.PUT.CREF 75300 . 75525) ( -IRM.GET.CREF 75527 . 75898) (IRM.CREF.BUTTONEVENTFN 75900 . 78247)) (78804 87110 (\IRM.GET.REF 78814 - . 80145) (\IRM.SMART.REF 80147 . 82074) (\IRM.CHOOSE.REF 82076 . 83327) (\IRM.WILD.REF 83329 . 84584) - (\IRM.WILDCARD 84586 . 84952) (\IRM.WILD.MATCH 84954 . 86184) (\IRM.GET.HASHFILE 86186 . 86649) ( -\IRM.GET.KEYWORDS 86651 . 87108)) (87247 87403 (\IRM.AROUND-EXIT 87247 . 87403))))) + (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))))) STOP diff --git a/lispusers/HELPSYS.LCOM b/lispusers/HELPSYS.LCOM index 9f8375a4075cbb3c84b3a02b9d95afc67abf6d99..e10cac9cc4a36a5de238fcd43a8bb6639bcc667f 100644 GIT binary patch delta 1876 zcmZuxO>7%Q6!zMoP>0gSA6Sp>(!l{RXka|Qt@n+pNO~A5d-@G^Te!lm; z`R;b)+uM;(mM7Ktsm)GY5+xakqA5g^lb^no84xlLQJyG|SY?ffnv&#!&)H?iEE(|v zE_EK(JHS^Ot+j5u0sSr%He0Pm4>m4tbT|9xbjO7t2t3qR`;Gel_*ONU@bl3*<}`QI zHFV#|15bA6C#N)7rXnY<5CW;BDkVTO@}?ipR?%gv-R42d6?JRT@Z!D=b7yqdgQ8J# zysC#;d-I?dU+%)JN;3kyKsj;!p92Em8hk(K=i@lwUK@^)n& zLO+B#>K@Qee3026!rvE}=9}z0&Xz+pwoXiN#mLrVGj`>8Ca}5m>Velt06k!2>{K334UVbAnwu1?APXUKdgX%6bk%;@<-dQP}LP_1C){kYy!OJJlmd3v*G)?(+m`9uZpqG_h9rG1b}p7y_qrQij@81kU2W9zspuU2J9hXu z13sK->g!K3><@+J9))*4YMCWGI6ieGmgUf1V~4J@&g+Nd%lJxC-+iig(}ESR0xQH-h{{xS7BHzuXhiJ|^%E*wbo z(yT!G=i|hb!9>xpe7A}``!XB~aW$6dR^jPX1YyVF0pd`@q*yo+sij)x?nU(cKft1A6%W;(2r;a@X{A7f2Y>EpBC zjD$~B=7`A4BOd7Q&VA4zNqK~Uu;j4UIvB>`we77j?mXSNr3+sLknKa#hJJ~*#KM&g2cC>K-^w<;HUD-u0%f*WG~b(^@UWzEj~JO4bs zdF(e&!rwg!e^#aUxf5IMw>RY&M0iP#pRaY|vM4Jcr81I|Q6(Pu94R}dWyA|e8a%9b zfG<=m3r5uiLExcL>#sH7B{OP9O!Kiwl-G0}gOXu6-m-_mcrl0;Y!6(+A%aE7g^Ck{jN=-MCaHMwJUR%1AoV`W zMP|7uN=DXrh-}@QqX$9{j+ky)a1GD!(N={187k0t_zc}SFhd*Rxq}cr2lMmu5TSR% zD-(hH$l$;5%E2>bJ?9b!{~i=T0W`B@+Ig}RgRvh&A-aAf6TP)?a14KU7MfSt^AID) z+^H$96y84Goc`hLLU8WU-;Z39B*+?u15#3Dww`4JlA=J-@R=Ww5RP456zQd-#Md-% z*XrF~gKVtzYW;2xq(lnw$PqX1ySj~{45r`-d+${R3dCJP1*}^Na+c{ifs|IET&wrG zgTt>ZhPY2?eJX!+g2nvH>`!LE&~K;Sx`+`KEZr*&(?uH+cxEOOU|6x)DMqTnN_i12 z`^ZZp3F)FJN`Rh7*4Is2C==WCiEEME1xV5C^yN88)LyceOhVqY3#91kP6@Qsh%^{X zuZHN=6UR>#ISh4`#ruGfd$7tL6ZH0pT}K#_qshP{MciFQ{Q z^cRd}hKC25JUrOFmXP)xs9KQQNN|Y8h=e#Wiv#tf#f^)ini_m`Di;bk`tWq|U3LTx zh~W7+4rMTrHEiEq#-5S^t6p~e-M0E7#Eo%5QrqDVzaP8ZW%&i9xqg`O+vfwxjWFT9 zORvndY5I-X&74*81gwiu9m3BbW=VsDwI~~T%UI5vE~HfOnrp3AuG?8!|Ny*N!n zCnN8b4K3R!6 zm0+vxeonC0on<#L8|ABOz3vUjb$c6K+^Xx{4i8c~m0(0;BnkLA5gCygQDU)(ZCa84 E0d3~q>;M1&