From 0c9b539bc49b2a1dabaf57648c400425e3a56c27 Mon Sep 17 00:00:00 2001 From: Larry Masinter Date: Tue, 17 Jan 2023 22:23:06 -0800 Subject: [PATCH] masterscope extensions doc (internal) + tweak helpsys (#1048) --- internal/{msx => MASTERSCOPE-EXTENSION.TEDIT} | Bin lispusers/HELPSYS | 47 +++++++++--------- lispusers/HELPSYS.LCOM | Bin 61909 -> 62127 bytes 3 files changed, 23 insertions(+), 24 deletions(-) rename internal/{msx => MASTERSCOPE-EXTENSION.TEDIT} (100%) diff --git a/internal/msx b/internal/MASTERSCOPE-EXTENSION.TEDIT similarity index 100% rename from internal/msx rename to internal/MASTERSCOPE-EXTENSION.TEDIT diff --git a/lispusers/HELPSYS b/lispusers/HELPSYS index e54098a5..da4c6f01 100644 --- a/lispusers/HELPSYS +++ b/lispusers/HELPSYS @@ -1,15 +1,15 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "12-Oct-2022 18:33:26" {DSK}frank>il>medley>wmedley>lispusers>HELPSYS.;4 87708 +(FILECREATED "13-Jan-2023 10:46:39" {DSK}larry>il>medley>lispusers>HELPSYS.;2 87610 - :CHANGES-TO (FNS CLHS.LOOKUP) + :CHANGES-TO (VARS HELPSYSCOMS) + (FNS REPO.LOOKUP) - :PREVIOUS-DATE "12-Oct-2022 18:24:45" {DSK}frank>il>medley>wmedley>lispusers>HELPSYS.;3 -) + :PREVIOUS-DATE "12-Oct-2022 18:33:26" {DSK}larry>il>medley>lispusers>HELPSYS.;1) (* ; " -Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation. +Copyright (c) 1985-1987, 2020, 2022-2023 by Xerox Corporation. ") (PRETTYCOMPRINT HELPSYSCOMS) @@ -34,8 +34,8 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation. [INITVARS (CLHS.ROOT.URL "http://clhs.lisp.se/") (CLHS.INDEX) (CLHS.OPENER) - (REPO.TYPES '(FNS FUNCTIONS VARS VARIABLES] - (GLOBALVARS CLHS.INDEX CLHS.OPENER REPO.TYPES CLHS.ROOT.URL)) + (HELPSYS.REPO.TYPES '(FNS FUNCTIONS VARS VARIABLES] + (GLOBALVARS CLHS.INDEX CLHS.OPENER HELPSYS.REPO.TYPES CLHS.ROOT.URL)) (COMS (* ;;; "Interface to DInfo") @@ -322,12 +322,11 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation. else "git web--browse"]) (REPO.LOOKUP - [LAMBDA (ENTRY TYPES) (* ; "Edited 24-Aug-2022 16:54 by larry") - (* ; "Edited 21-Aug-2022 15:54 by lmm") - (* ; "Edited 19-Aug-2022 20:18 by lmm") + [LAMBDA (ENTRY TYPES) (* ; "Edited 13-Jan-2023 10:46 by lmm") (* ; "Edited 16-Aug-2022 16:26 by lmm") - (for FL in (WHEREIS ENTRY (OR TYPES REPO.TYPES) - T) bind POS FND + (for FL in (UNION (WHEREIS ENTRY (OR TYPES HELPSYS.REPO.TYPES) + T) + (LIST ENTRY)) bind POS FND when [SETQ FND (OR (FINDFILE-WITH-EXTENSIONS FL NIL '(TEDIT TXT TED)) (AND (SETQ POS (STRPOS "-" FL)) (FINDFILE-WITH-EXTENSIONS (SUBSTRING FL 1 (CL:1- POS)) @@ -1334,10 +1333,10 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation. (RPAQ? CLHS.OPENER ) -(RPAQ? REPO.TYPES '(FNS FUNCTIONS VARS VARIABLES)) +(RPAQ? HELPSYS.REPO.TYPES '(FNS FUNCTIONS VARS VARIABLES)) (DECLARE%: DOEVAL@COMPILE DONTCOPY -(GLOBALVARS CLHS.INDEX CLHS.OPENER REPO.TYPES CLHS.ROOT.URL) +(GLOBALVARS CLHS.INDEX CLHS.OPENER HELPSYS.REPO.TYPES CLHS.ROOT.URL) ) @@ -1698,15 +1697,15 @@ Copyright (c) 1985-1987, 2020, 2022 by Xerox Corporation. (ADDTOVAR AROUNDEXITFNS \IRM.AROUND-EXIT) (PUTPROPS HELPSYS FILETYPE :FAKE-COMPILE-FILE) -(PUTPROPS HELPSYS COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2022)) +(PUTPROPS HELPSYS COPYRIGHT ("Xerox Corporation" 1985 1986 1987 2020 2022 2023)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4630 10205 (HELPSYS 4640 . 6481) (IRM.LOOKUP 6483 . 8121) (GENERIC.MAN.LOOKUP 8123 . -9792) (IRM.RESET 9794 . 10203)) (10462 17569 (CLHS.INDEX 10472 . 13170) (CLHS.LOOKUP 13172 . 15072) ( -CLHS.OPENER 15074 . 16397) (REPO.LOOKUP 16399 . 17567)) (70641 72159 (IRM.GET.DINFOGRAPH 70651 . 71526 -) (IRM.DISPLAY.REF 71528 . 72157)) (72161 72523 (IRM.LOAD-GRAPH 72161 . 72523)) (72848 78352 ( -IRM.DISPLAY.CREF 72858 . 74572) (IRM.CREF.BOX 74574 . 75401) (IRM.PUT.CREF 75403 . 75628) ( -IRM.GET.CREF 75630 . 76001) (IRM.CREF.BUTTONEVENTFN 76003 . 78350)) (78907 87213 (\IRM.GET.REF 78917 - . 80248) (\IRM.SMART.REF 80250 . 82177) (\IRM.CHOOSE.REF 82179 . 83430) (\IRM.WILD.REF 83432 . 84687) - (\IRM.WILDCARD 84689 . 85055) (\IRM.WILD.MATCH 85057 . 86287) (\IRM.GET.HASHFILE 86289 . 86752) ( -\IRM.GET.KEYWORDS 86754 . 87211)) (87350 87506 (\IRM.AROUND-EXIT 87350 . 87506))))) + (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))))) STOP diff --git a/lispusers/HELPSYS.LCOM b/lispusers/HELPSYS.LCOM index 56f41929d77056e854470686628d3a9f2424c1aa..9f8375a4075cbb3c84b3a02b9d95afc67abf6d99 100644 GIT binary patch delta 1526 zcmZ`(U1%It6yBeQG?O+JY?E!;$YF@>Ov-HMe`hx}W-@#Crm<}3@-6Fa&Lf~e{HVmKwuD4CiFqDLEH-6u)~e=QL_9bKA#t% zwR#;d`d=8cq!vY4khs4W5jP=aJai!6Q+o+NEn$0j(`dXYX5Q*d05^?&JDScQOl- zz)sn7?9Xmas5ApFsnY-ib`w>9bp^JvdzAfTA3^5_w#LQ_7D|30&u$b{l)gae=Yk^$ zh^_C-+(*aQIcKCZ<7nBPwO7|JD_g7EP%1luo=8arsFHw0buZs=gS=1aLNkC9{Da~I-MU!NG5Hv*)fAHjE-|nYg8Y~m__!% z@lW~k?AQgqygg>;J{;np-EW3gIO>fN{-0Z)5ZDi6Z;hA*xDN14{GK6Bb!y~2N-QK`E~CEEbcFI{w_0I;UzdQhR5s9VnWBbq9p3ZH=x z3=0eCE$|I5CStIh9$9KMPEI3W(2M`so1o9r@-k?}e&l{ktSebcND%WP_guh)K}fI+ zcI9Ef?mhgh^X-$D)jEzQvot!p5QDJ86Pc*9YzFw dMZ;Ynr~_-T_h}XF7=uke`s6V1w_WZJ=HK>{l9>Pi delta 1362 zcmah|O>E;t6jsut$r>s|K`p!6!i!nDwo0Pd&L&P4RXFw}Hg!D4o@^Vb5~{XER3t4z zl@P2@Bo1&w+G=hqBrd=OX;;YN!imG4xS}G_69RS5l;d9DjZ;eb)B57?oA)!{d-LAC zNj+T-h0}jJCIi+wZQtb8v8JTvI{T{+>#&w{$~>eUWK+bqjWOL6SRt--q*#l}bg1 zt<8PB>Aw=xWmQr-o=@zESd2LTaxx4dco7~U@Yx!ejYic3sb#xX&?Rx1QBXQT47Tsa z{2-%T(QB>RwMW;QF_O&8;st(d?ta#2B-T91;-B9w>HM3E^Wy0Hi+Ukzn7mN>T>S2q zUJ<{CrFw>QO@4~|@`q!i2^)b;0~_0}H&H~(_GwH&(;BeRyWx8=L##tYLR#@DUG0Zf zwOZAnX#x#N0Hy(<#oWN^5oj3D@d8Kmsl4Vfw@lU<31W|8d37D)emiE77j&W41VkZ? z$6(a|KSry;noA<$#n^pKH=t#;X@r8RjeiQ#p^0WM2>T376IzZJ5u4%7U`|}wAS5CU z)J;(E1w96AojnhX4FIVMH3Q_b42E{joLcykKRlh>Ib5DfzC8L_N^U>+M7k741Osi_ z3$Y#sF7d;75F?M1Uo%#ACT&-GB`6Z#JY3?#+zb3p?s7)rU+1p#liV_*g?y7=Kbq&G z{0y@9@+MF6Wkf&aH9kA7BXXv%^6c>(|6p1{cJFvG3kv^k`eh_ip~UMC1R55WI4@|3 z?ia4{hlL6vrC8;IqCg)NP5y0Bgg^G%b4lUC?9?-gLprFnX9YOOqs?7hG!n3Az(0L_ z;W8*)5|GHVD`-D`a!Ac8UzmF>DPAF8@m5YBOA1a4X6gsvMLqPioN_m^LKgzh2gN50 zlyql6@d7auAt<3`uL_usi}GrpG6Djta7r-K8J5n*=j_PAOf&9`FuQc^hNUV z@l=K{pS(E!tMm=wXhpOiI5_S&RSLO*-4gd(xJN0$KD0@PM#QIGiUT?!J!_TV(3~e@C{mi$wPJT7Ki$bQy5T(`#GP72vHbUw&kCw4VdJGg02o(yb^rhX