Update CLHS reference to use Interlisp CHLS instead; use UNIXUTILS ShellBrowser (#1412)

Author: masinter

library/UNIXUTILS

@@ -1,11 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "10-Nov-2023 21:59:02" {DSK}<home>frank>il>medley>gmedley>library>UNIXUTILS.;24
 16469  
+
(FILECREATED "11-Nov-2023 09:06:39" {DSK}<home>larry>il>medley>library>UNIXUTILS.;2
 16644  
 
-      :CHANGES-TO (FNS ShellOpen SLASHIT)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE "10-Nov-2023 19:34:44" 
-{DSK}<home>frank>il>medley>gmedley>docs>primer>UNIXUTILS.;10)
+      :CHANGES-TO (VARS UNIXUTILSCOMS)
+
+      :PREVIOUS-DATE "10-Nov-2023 21:59:02" {DSK}<home>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

library/UNIXUTILS.DFASL

@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "16-Jun-2023 14:38:33" {DSK}<home>larry>il>medley>lispusers>HELPSYS.;11
 87625  
+
(FILECREATED "11-Nov-2023 09:31:38" {DSK}<home>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}<home>larry>il>medley>lispusers>HELPSYS.;10)
+      :PREVIOUS-DATE "16-Jun-2023 14:38:33" {DSK}<home>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