* 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
736 lines
61 KiB
Plaintext
736 lines
61 KiB
Plaintext
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
|
||
|
||
(FILECREATED "20-Apr-2026 08:07:50" ("compiled on " {MEDLEY}<lispusers>HELPSYS.;24)
|
||
"16-Apr-2026 11:19:55" "COMPILE-FILEd" in "FULL 16-Apr-2026 ..." dated "16-Apr-2026 11:20:03")
|
||
(FILECREATED "20-Apr-2026 08:07:50" {MEDLEY}<lispusers>HELPSYS.;24 89018 :EDIT-BY rmk :CHANGES-TO (FNS
|
||
REPO.LOOKUP) :PREVIOUS-DATE "27-Jan-2026 13:21:10" {MEDLEY}<lispusers>HELPSYS.;21)
|
||
(RPAQQ HELPSYSCOMS ((FILES DINFO HASH) (RECORDS IRMREFERENCE) (DECLARE%: EVAL@COMPILE DONTCOPY (FILES
|
||
(LOADCOMP) DINFO HASH)) (COMS (COMMANDS "man") (FNS HELPSYS IRM.LOOKUP GENERIC.MAN.LOOKUP
|
||
IRM.SMART.LOOKUP IRM.RESET DOCS.LOOKUP) (INITVARS (IRM.HOST&DIR) (IRM.HASHFILE.NAME)) (GLOBALVARS
|
||
IRM.HOST&DIR IRM.HASHFILE.NAME) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MOVD (QUOTE HELPSYS) (QUOTE
|
||
XHELPSYS) NIL T)))) (* ;;; "Common Lisp HyperSpec lookup") (COMS (FNS CLHS.INDEX CLHS.LOOKUP
|
||
CLHS.OPENER REPO.LOOKUP) (VARS CLHS.INDEX) (INITVARS (CLHS.ROOT.URL "https://interlisp.org/clhs/") (
|
||
CLHS.INDEX) (CLHS.OPENER) (HELPSYS.REPO.TYPES (QUOTE (FNS FUNCTIONS VARS VARIABLES)))) (GLOBALVARS
|
||
CLHS.INDEX CLHS.OPENER HELPSYS.REPO.TYPES CLHS.ROOT.URL)) (COMS (* ;;; "Interface to DInfo") (FNS
|
||
IRM.GET.DINFOGRAPH IRM.DISPLAY.REF) (FUNCTIONS IRM.LOAD-GRAPH) (ADDVARS (DINFO.GRAPHS (
|
||
"Interlisp-D Reference Manual" (IRM.GET.DINFOGRAPH T)))) (INITVARS (IRM.DINFOGRAPH)) (GLOBALVARS
|
||
IRM.DINFOGRAPH) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (COND (IRM.HOST&DIR (SETQ IRM.DINFOGRAPH (
|
||
IRM.LOAD-GRAPH)))))) (* ;;; "Cross reference imageobj") (FNS IRM.DISPLAY.CREF IRM.CREF.BOX
|
||
IRM.PUT.CREF IRM.GET.CREF IRM.CREF.BUTTONEVENTFN) (INITVARS (IRM.CREF.FONT (FONTCREATE (QUOTE MODERN)
|
||
8 (QUOTE MRR))) (\IRM.CREF.IMAGEFNS (IMAGEFNSCREATE (FUNCTION IRM.DISPLAY.CREF) (FUNCTION IRM.CREF.BOX
|
||
) (FUNCTION IRM.PUT.CREF) (FUNCTION IRM.GET.CREF) (FUNCTION NILL) (FUNCTION IRM.CREF.BUTTONEVENTFN))))
|
||
(GLOBALVARS IRM.CREF.FONT \IRM.CREF.IMAGEFNS)) (COMS (* ;;; "Internal functions and variables") (FNS
|
||
\IRM.GET.REF \IRM.SMART.REF \IRM.CHOOSE.REF \IRM.WILD.REF \IRM.WILDCARD \IRM.WILD.MATCH
|
||
\IRM.GET.HASHFILE \IRM.GET.KEYWORDS) (INITVARS (\IRM.HASHFILE) (\IRM.KEYWORDS)) (GLOBALVARS
|
||
\IRM.HASHFILE \IRM.KEYWORDS) (FUNCTIONS \IRM.AROUND-EXIT) (ADDVARS (AROUNDEXITFNS \IRM.AROUND-EXIT)) (
|
||
PROP (FILETYPE) HELPSYS))))
|
||
(FILESLOAD DINFO HASH)
|
||
(RECORD IRMREFERENCE (* ;;
|
||
"A reference to something in the IRM. There is a list of these for each entry in the index of the IRM. Each element of the list corresponds to one of the page references. These lists are stored under the ITEM in a hash file. "
|
||
) (TYPE (* ;
|
||
"The type of index entry -- typically a capitalized symbol in IL, eg. il:|Functions|. Yes, it's ugly."
|
||
) ITEM (* ; "The name indexed") PRIMARYFLG (* ;
|
||
"True iff this is the primary reference for this name/type") NODE (* ;
|
||
"The ID of the node in the IRM DInfo graph containing this reference") CH# (* ;
|
||
"The character number of the beginning of the reference. If unspecified we search for the first existence of NAME in the text of the node."
|
||
)) (SYSTEM))
|
||
exec-man :D8
|
||
(L (1 $$MACRO-ENV 0 $$MACRO-FORM)) |