From 6159c64b84836bd3c9986576d42428b3f04fb3f1 Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Wed, 6 May 2026 11:55:34 -0700 Subject: [PATCH] man [filename] just opens the corresponding documentation file (#2572) * man [filename] just opens the corresponding documentation file * When a particular ENTRY is provided and found in the file, scroll its first occurrence to the top --- lispusers/HELPSYS | 53 ++++++++++++++++++++++------------------- lispusers/HELPSYS.LCOM | Bin 62554 -> 62282 bytes 2 files changed, 29 insertions(+), 24 deletions(-) diff --git a/lispusers/HELPSYS b/lispusers/HELPSYS index 748a9348..12cde91a 100644 --- a/lispusers/HELPSYS +++ b/lispusers/HELPSYS @@ -1,13 +1,12 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED "27-Jan-2026 13:21:10" {WMEDLEY}HELPSYS.;21 88654 +(FILECREATED "20-Apr-2026 08:07:50" {MEDLEY}HELPSYS.;24 89018 :EDIT-BY rmk - :CHANGES-TO (FNS DOCS.LOOKUP GENERIC.MAN.LOOKUP) - (VARS HELPSYSCOMS) + :CHANGES-TO (FNS REPO.LOOKUP) - :PREVIOUS-DATE " 5-May-2025 22:04:32" {WMEDLEY}HELPSYS.;15) + :PREVIOUS-DATE "27-Jan-2026 13:21:10" {MEDLEY}HELPSYS.;21) (PRETTYCOMPRINT HELPSYSCOMS) @@ -340,21 +339,27 @@ else "git web--browse"]) (REPO.LOOKUP - [LAMBDA (ENTRY TYPES) (* ; "Edited 13-Jan-2023 10:46 by lmm") + [LAMBDA (ENTRY TYPES) (* ; "Edited 20-Apr-2026 08:06 by rmk") + (* ; "Edited 13-Jan-2023 10:46 by lmm") (* ; "Edited 16-Aug-2022 16:26 by lmm") - (for FL in (UNION (WHEREIS ENTRY (OR TYPES HELPSYS.REPO.TYPES) - T) - (LIST ENTRY)) bind POS FND + (for FL POS FND TSTREAM in (UNION (WHEREIS ENTRY (OR TYPES HELPSYS.REPO.TYPES) + T) + (LIST ENTRY)) 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)) NIL '(TEDIT TXT TTY TED] - join (CL:WITH-OPEN-FILE (STR (PATHNAME FND) - :DIRECTION :INPUT) - (CL:WHEN (SETQ POS (FFILEPOS ENTRY STR)) - (TEDIT-SEE STR NIL NIL (CL:FORMAT NIL "~a [~a]" FL ENTRY)) - (LIST FL))]) + collect (SETQ TSTREAM (OPENTEXTSTREAM FND)) + [TEDIT TSTREAM NIL NIL `(READONLY T LEAVETTY T FONT ,DEFAULTFONT TITLE + ,(CL:IF (EQ FL ENTRY) + FL + (CONCAT ENTRY " on " FL))] + (CL:UNLESS (EQ FL ENTRY) + (CL:WHEN (SETQ POS (TEDIT.FIND TSTREAM ENTRY)) + (TEDIT.SETSEL TSTREAM POS (NCHARS ENTRY)) + (TEDIT.NORMALIZECARET TSTREAM))) + FL]) ) (RPAQQ CLHS.INDEX @@ -1716,14 +1721,14 @@ (PUTPROPS HELPSYS FILETYPE :FAKE-COMPILE-FILE) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4640 10992 (HELPSYS 4650 . 6491) (IRM.LOOKUP 6493 . 8131) (GENERIC.MAN.LOOKUP 8133 . -10001) (IRM.SMART.LOOKUP 10003 . 10159) (IRM.RESET 10161 . 10570) (DOCS.LOOKUP 10572 . 10990)) (11249 -18568 (CLHS.INDEX 11259 . 14223) (CLHS.LOOKUP 14225 . 16231) (CLHS.OPENER 16233 . 17556) (REPO.LOOKUP -17558 . 18566)) (71663 73181 (IRM.GET.DINFOGRAPH 71673 . 72548) (IRM.DISPLAY.REF 72550 . 73179)) ( -73183 73545 (IRM.LOAD-GRAPH 73183 . 73545)) (73870 79374 (IRM.DISPLAY.CREF 73880 . 75594) ( -IRM.CREF.BOX 75596 . 76423) (IRM.PUT.CREF 76425 . 76650) (IRM.GET.CREF 76652 . 77023) ( -IRM.CREF.BUTTONEVENTFN 77025 . 79372)) (79929 88235 (\IRM.GET.REF 79939 . 81270) (\IRM.SMART.REF 81272 - . 83199) (\IRM.CHOOSE.REF 83201 . 84452) (\IRM.WILD.REF 84454 . 85709) (\IRM.WILDCARD 85711 . 86077) -(\IRM.WILD.MATCH 86079 . 87309) (\IRM.GET.HASHFILE 87311 . 87774) (\IRM.GET.KEYWORDS 87776 . 88233)) ( -88372 88528 (\IRM.AROUND-EXIT 88372 . 88528))))) + (FILEMAP (NIL (4582 10934 (HELPSYS 4592 . 6433) (IRM.LOOKUP 6435 . 8073) (GENERIC.MAN.LOOKUP 8075 . +9943) (IRM.SMART.LOOKUP 9945 . 10101) (IRM.RESET 10103 . 10512) (DOCS.LOOKUP 10514 . 10932)) (11191 +18932 (CLHS.INDEX 11201 . 14165) (CLHS.LOOKUP 14167 . 16173) (CLHS.OPENER 16175 . 17498) (REPO.LOOKUP +17500 . 18930)) (72027 73545 (IRM.GET.DINFOGRAPH 72037 . 72912) (IRM.DISPLAY.REF 72914 . 73543)) ( +73547 73909 (IRM.LOAD-GRAPH 73547 . 73909)) (74234 79738 (IRM.DISPLAY.CREF 74244 . 75958) ( +IRM.CREF.BOX 75960 . 76787) (IRM.PUT.CREF 76789 . 77014) (IRM.GET.CREF 77016 . 77387) ( +IRM.CREF.BUTTONEVENTFN 77389 . 79736)) (80293 88599 (\IRM.GET.REF 80303 . 81634) (\IRM.SMART.REF 81636 + . 83563) (\IRM.CHOOSE.REF 83565 . 84816) (\IRM.WILD.REF 84818 . 86073) (\IRM.WILDCARD 86075 . 86441) +(\IRM.WILD.MATCH 86443 . 87673) (\IRM.GET.HASHFILE 87675 . 88138) (\IRM.GET.KEYWORDS 88140 . 88597)) ( +88736 88892 (\IRM.AROUND-EXIT 88736 . 88892))))) STOP diff --git a/lispusers/HELPSYS.LCOM b/lispusers/HELPSYS.LCOM index 8307d3e27d4f6840c07ff024eff872ac8e4b5059..951eccb28d4dc1bdd6d2098f6f4906df5dad8101 100644 GIT binary patch delta 846 zcmZ8fzf%)I6b6EWL`6F!FwUDBk_p9Sb}zp!*O23Gj~vQpFm>@wMcJaXQP#kqaB^4zPrc}*<$zYzHh(%_Py`x&%~!6iN&nV9M@y2<8r3D zo+H5UO{;D$Gf-SlvVgmxuYeIS)0XBEzjS=OIFli&d2py|L@NQ&4N^9WM1idGXn*%$ z`|0C0?C*gBN5`GHPGJF(3N2mWDK%)tC>9k^EYa{I4Uv$x0^4}WX>tz3@LVpZKzs8! zl3u3Kh(YqoLNXiOw@|HQHYnPE+9uD%MPlw2K(7$0gTZW9s!J_6+}#1gs+rz03sor~ z>v&-j0_KYx7oy(u7qB(~TXjV9qUn zwmlXFCuFu39~{lzoJfOV>&dJSWsspnxef541deCpS_EH&xE5Z`r^dcrJ(-)I?L3>P zC3@rTt}8F)8`*odN=A@srC1@ zv9&jU+F<#&trP+K;>w&Sf`-Z6b!M3XlR$N>L!1bi3>kJ^*TBPG1R>Be0hy1J z=u{hMu`s{_EfBDTXPFWz6ok*vuWRS!#DXuTQzx19%7&(abR}As(lVgm%_f(Q@bFox z!5|(74yignCW delta 973 zcmZvb&ui2`6vsEa?bfbBYe8zeQXXN2ERrRY{n>z)Y%=L)n@y%kc6DtPmae#^wiWRr zLVM`dgC#dT`5zS93Z8oR;LVGFfcR(lW~#6hbC@?T^L~9llYIM?`T0AuqS(}NeX2UH zM^)E%0$5_EwPvnTkX=8fq31?ShNY02c5F7iE3c1N7Lp_B)|?`5?eD(ae(`Jw`+Fe6 z+lR*ocMeGra+AH&Sivh9awKXYhs#tAef@TE!@% zupF13Pm}8D7b!cRsn@jAi`#aZZ<1`jC0?xOXQq<-Gv*=nNTX8(o>TuiLK{S_-tj*^6R7FaGyINyTOfEF2d2`H1|eZ*DeZKX*Q))G}!F) z@D5`r6F^2NKcW=yE-cUJI6>GkW2k|{F=EqV&Ud|>0%RHFg8^(D44xq55RXb;5Uh2X zscD)HhTTB&p#2@2h&hwVd^sEoy^La5U8n#CRT0lnm*d;$U+QF+vR$MQ_Zf}A#lnIN z3ja8je3J8r=0q!VKH<(vk4HlGbuRP#uGqH)m5sCc_RiYQ4{jyda`L@C*2dndlmf zLEyXy5UmCQqdqJXU}oI%%?^bINuaQpOcmO7yc@%824ReUNcCzuHp3Ez>$7eQ%QeL6 ThSZAPz)#*47EVtJAHM$qq@~>V