(FILECREATED "15-Aug-85 16:34:06" ("compiled on " {ERIS}LISP>HELPSYS.;15) "13-Aug-85 19:40:17" recompiled changes: HELPSYS IRM.LOOKUP IRM.SMART.LOOKUP IRM.INIT \IRM.WINDOW.CREATE \IRM.PROMPT.FOR.LOOKUP in "INTERLISP-D 13-Aug-85 ..." dated "13-Aug-85 19:57:54") (FILECREATED "15-Aug-85 16:33:26" {ERIS}LISP>HELPSYS.;15 13201 changes to: (VARS HELPSYSCOMS) (LISPXMACROS help HELP) (FNS HELPSYS IRM.LOOKUP IRM.SMART.LOOKUP \IRM.PROMPT.FOR.LOOKUP IRM.INIT \IRM.WINDOW.CREATE) previous date: " 1-Aug-85 12:20:14" {ERIS}LISP>HELPSYS.;11) HELPSYS D1 (I 1 PROPS I 0 FN F 2 MACROPROPS) Agy`o l@ @g` [RHh@g` C@IIiHX@gd dg@gg@g@h` @o i(175Q ERROR 164Q IRM.LOOKUP 72Q IRM.LOOKUP 42Q IRM.LOOKUP 27Q \DEFINEDP 21Q PROMPTPRINT) (161Q IRMWINDOW 153Q RecordOperator 145Q RECORDTRAN 141Q I.S.Operator 132Q FORWORD 121Q CLISPWORD 67Q IRMWINDOW 64Q Macro 37Q IRMWINDOW 34Q Function 11Q IRM.HOST&DIR 3 ARGS) ( 172Q "UNDEFINED CAR OF FORM" 16Q "HELPSYS is unavailable. Set IRM.HOST&DIR.") IRM.LOOKUP D1 (P 1 REF P 0 REFS I 2 WINDOW I 1 TYPE I 0 KEYWORD) B ` bBg i @h`g 1H-B B oB AAo NoHAHdB JB@ CHZJAHYVB B oB AB oB @B Bg [AKKJB B (342Q FLASHWINDOW 334Q \IRM.DISPLAY.REF 305Q RELEASE.MONITORLOCK 302Q GETWINDOWUSERPROP 272Q PRIN1 267Q GETPROMPTWINDOW 261Q PRIN1 256Q GETPROMPTWINDOW 245Q PRIN1 242Q GETPROMPTWINDOW 234Q PRIN1 231Q GETPROMPTWINDOW 220Q TERPRI 215Q GETPROMPTWINDOW 210Q GETPROMPTWINDOW 167Q \IRM.DISPLAY.FROM.MENU 160Q \IRM.DISPLAY.REF 134Q CONCAT 121Q PRIN1 116Q GETPROMPTWINDOW 105Q TERPRI 102Q GETPROMPTWINDOW 75Q GETPROMPTWINDOW 63Q LOOKUPHASHFILE 44Q OBTAIN.MONITORLOCK 40Q GETWINDOWUSERPROP 23Q \IRM.WINDOW.CREATE 16Q WINDOWP 6 WINDOWP 2 \IRM.GET.HASHFILE) (277Q MONITORLOCK 60Q RETRIEVE 55Q \IRM.HASHFILE 35Q MONITORLOCK 26Q IRMWINDOW 13Q IRMWINDOW) ( 252Q " entry in manual for " 225Q "No " 142Q "" 131Q " " 112Q "No manual entry for ") IRM.SMART.LOOKUP D1 (I 1 WINDOW I 0 KEYWORD) {A ` bAg i P@;o@ @A *@l2A i b'i Ag i oi Ag hA A (170Q FLASHWINDOW 162Q IRM.LOOKUP 154Q RELEASE.MONITORLOCK 151Q GETWINDOWUSERPROP 141Q PRIN1 130Q PRIN1 124Q GETWINDOWUSERPROP 114Q TERPRI 104Q MISSPELLED? 100Q \IRM.GET.KEYWORDS 67Q \IRM.WILD.LOOKUP 61Q STRPOS 44Q OBTAIN.MONITORLOCK 40Q GETWINDOWUSERPROP 23Q \IRM.WINDOW.CREATE 16Q WINDOWP 6 WINDOWP 2 \IRM.GET.HASHFILE) (146Q MONITORLOCK 121Q LOOKUP.WORD 35Q MONITORLOCK 26Q IRMWINDOW 13Q IRMWINDOW) ( 135Q " not in IRM." 55Q "*") IRM.INIT D1 (I 0 HOST&DIR) 5@-` ` ` ` hd h(53Q \IRM.GET.KEYWORDS 44Q \IRM.WINDOW.CREATE 35Q CLOSEF? 26Q CLOSEW 17Q OPENW 10Q WINDOWP) (60Q IRM.HOST&DIR 47Q IRMWINDOW 41Q \IRM.HASHFILE 32Q \IRM.HASHFILE 23Q IRMWINDOW 14Q IRMWINDOW 5 IRMWINDOW) () \IRM.DISPLAY.REFA0001 D1 (I 0 WINDOW) ` @g @ (23Q CLOSEATTACHEDWINDOWS 17Q CLOSEF? 14Q GETWINDOWUSERPROP 5 CLOSEHASHFILE) (11Q TEXTSTREAM 2 \IRM.HASHFILE) () \IRM.DISPLAY.REF D1 (P 0 TEXTSTREAM I 1 WINDOW I 0 REFERENCE) Ag HH H g`g g`g g@gg A@@gigigigog`h XAgg H A (,A (226Q TERPRI 223Q GETPROMPTWINDOW 213Q \INSUREWINDOW 204Q TEXTOBJ 200Q PUTWINDOWPROP 165Q OPENTEXTSTREAM 77Q PACKFILENAME 55Q FILENAMEFIELD 41Q FILENAMEFIELD 24Q CLOSEF? 17Q TEDIT.KILL 6 GETWINDOWUSERPROP) (207Q TEXTOBJ 175Q \IRM.DISPLAY.REFA0001 172Q CLOSEFN 146Q IRM.FONT 143Q FONT 134Q PARALOOKS 130Q NOTITLE 124Q CLEARGET 120Q READONLY 73Q TXT 70Q EXTENSION 60Q NAME 52Q DIRECTORY 47Q IRM.HOST&DIR 44Q DIRECTORY 36Q HOST 33Q IRM.HOST&DIR 30Q HOST 3 TEXTSTREAM) ( 140Q (PARALEADING 5 POSTPARALEADING 5 QUAD JUSTIFIED)) \IRM.DISPLAY.FROM.MENU D1 (P 3 REF I 2 KEYWORD I 1 WINDOW I 0 REFS) `di B HdI@@Nd[gKddi3 gKhAddi3 gAhhoBo hIHhZH&JHdIdg dgjdndhHdI  (235Q MENU 127Q CONCAT 14Q MKSTRING) (202Q DEFAULTMENUHELDFN 173Q CLRPROMPT 103Q QUOTE 61Q QUOTE 43Q \IRM.DISPLAY.REF 2 MENUTYPE#) ( 124Q " you are interested in" 117Q "select the definiton of ") \IRM.WINDOW.CREATE D1 (P 2 W) h`dodi dg dgjdndhHdI oh` Jgg oJ J (,J(140Q \INSUREWINDOW 131Q TEXTOBJ 126Q OPENTEXTSTREAM 116Q PUTWINDOWPROP 113Q CREATE.MONITORLOCK 76Q CREATEMENUEDWINDOW) (134Q TEXTOBJ 110Q IRM 105Q MONITORLOCK 73Q IRMWINDOWREGION 33Q DEFAULTMENUHELDFN 24Q CLRPROMPT 2 MENUTYPE#) ( 122Q "" 67Q "Interlisp Reference Manual" 10Q ((Lookup (\IRM.PROMPT.FOR.LOOKUP (WINDOWPROP (WHICHW) (QUOTE MAINWINDOW))) "Will prompt for and lookup a term. Wildcards OK."))) \IRM.PROMPT.FOR.LOOKUPA0001 D1 (NAME ERRORSET P 0 KEYWORD F 1 RESETVARSLST F 2 WINDOW F 3 RESETY) xgo gR hhQcg hhQcohhQcoRg hihg  RgH HR ci(161Q IRM.SMART.LOOKUP 153Q PUTWINDOWPROP 140Q MKATOM 135Q U-CASE 132Q PROMPTFORWORD 120Q GETWINDOWUSERPROP 104Q TERPRI 52Q TTY.PROCESS 47Q THIS.PROCESS 27Q TTYDISPLAYSTREAM 24Q GETPROMPTWINDOW 14Q PROCESSPROP 2 THIS.PROCESS) (147Q LOOKUP.WORD 126Q TTY 115Q LOOKUP.WORD 44Q TTY.PROCESS 20Q TTYDISPLAYSTREAM 5 NAME) ( 111Q "Lookup :" 70Q (AND RESETSTATE (PRINTOUT T " [aborted]")) 11Q "IRM Lookup") \IRM.PROMPT.FOR.LOOKUP D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 0 WINDOW F 3 LISPXHIST F 4 RESETVARSLST) 4@g i #S!Tog hgZ JI@ (61Q FLASHWINDOW 52Q ERROR! 45Q RESETRESTORE 33Q \IRM.PROMPT.FOR.LOOKUPA0001 12Q OBTAIN.MONITORLOCK 6 GETWINDOWUSERPROP) (41Q ERROR 30Q INTERNAL 3 MONITORLOCK) ( 25Q (\IRM.PROMPT.FOR.LOOKUPA0001)) \IRM.WILD.LOOKUP D1 (P 6 MATCH P 0 MATCHES I 1 WINDOW I 0 KEYWORD) A A oA @A A oA !H"A A oA @A HhA `@H?d^gNddi3 gNhhAhoNo hLKh]K&MdIdi d@dg dgjdndhdJ (337Q MENU 227Q CONCAT 140Q IRM.LOOKUP 126Q PRIN1 123Q GETPROMPTWINDOW 116Q PRIN1 113Q GETPROMPTWINDOW 103Q TERPRI 100Q GETPROMPTWINDOW 73Q GETPROMPTWINDOW 60Q PRIN1 55Q GETPROMPTWINDOW 44Q GETPROMPTWINDOW 40Q \IRM.WILDCARD 35Q \IRM.GET.KEYWORDS 27Q PRIN1 24Q GETPROMPTWINDOW 13Q TERPRI 10Q GETPROMPTWINDOW 3 GETPROMPTWINDOW) (310Q DEFAULTMENUHELDFN 301Q CLRPROMPT 200Q QUOTE 161Q IRM.LOOKUP 144Q MENUTYPE#) ( 224Q " in IRM if selected." 217Q "Will lookup " 107Q "No matches found for " 51Q "OK" 20Q "Matching wildcard(s)...") \IRM.WILDCARD D1 (P 5 ATOM P 1 SCRATCH2 P 0 SCRATCH1 I 1 LIST I 0 WILDATOM) @hhhh0A%d@H MI MhZK J\[L [J(71Q LAST 40Q \IRM.WILD.MATCH 35Q DUNPACK 30Q DUNPACK) NIL () \IRM.WILD.MATCH D1 (P 1 TAIL I 1 LIST I 0 WILDLIST) B@Ah$@g!@hAHY @I IiI@A@Abb(44Q \IRM.WILD.MATCH) (14Q *) () \IRM.GET.HASHFILE D1 NIL `` `g g (32Q OPENHASHFILE 24Q PACK*) (35Q \IRM.HASHFILE 27Q INPUT 21Q IRM.HASHFILE 16Q IRM.HOST&DIR 11Q IRM.HASHFILE.NAME 2 \IRM.HASHFILE) () \IRM.GET.KEYWORDS D1 (I 0 WINDOW) P@g G@ @ o@ @gghg @ o@ @g (115Q GETWINDOWUSERPROP 105Q PRIN1 102Q GETPROMPTWINDOW 71Q GETPROMPTWINDOW 65Q PUTWINDOWPROP 62Q LOOKUPHASHFILE 54Q \IRM.GET.HASHFILE 40Q PRIN1 35Q GETPROMPTWINDOW 24Q TERPRI 21Q GETPROMPTWINDOW 14Q GETPROMPTWINDOW 6 GETWINDOWUSERPROP) (112Q KEYWORDS 57Q RETRIEVE 50Q irm.keywords 45Q KEYWORDS 3 KEYWORDS) ( 76Q "OK" 31Q "Loading keyword list...") (PRETTYCOMPRINT HELPSYSCOMS) (RPAQQ HELPSYSCOMS ((FILES HASH TEDIT) (FNS HELPSYS IRM.LOOKUP IRM.SMART.LOOKUP IRM.INIT \IRM.DISPLAY.REF \IRM.DISPLAY.FROM.MENU \IRM.WINDOW.CREATE \IRM.PROMPT.FOR.LOOKUP \IRM.WILD.LOOKUP \IRM.WILDCARD \IRM.WILD.MATCH \IRM.GET.HASHFILE \IRM.GET.KEYWORDS) (DECLARE: DONTCOPY EVAL@COMPILE ( RECORDS IRMREFERENCE)) (INITVARS (IRM.HOST&DIR) (IRM.HASHFILE.NAME) (IRM.FONT (FONTCREATE (QUOTE HELVETICA) 10 NIL NIL (QUOTE DISPLAY))) (IRMWINDOWREGION (CREATE REGION LEFT _ (DIFFERENCE SCREENWIDTH 401) BOTTOM _ 1 HEIGHT _ 350 WIDTH _ 400)) (IRMWINDOW) (\IRM.HASHFILE)) (GLOBALVARS IRM.HASHFILE.NAME IRM.HOST&DIR IRM.FONT IRMWINDOWREGION IRMWINDOW \IRM.HASHFILE) (LISPXMACROS help HELP) (P (MOVD ( QUOTE HELPSYS) (QUOTE XHELPSYS))))) (FILESLOAD HASH TEDIT) (RPAQ? IRM.HOST&DIR) (RPAQ? IRM.HASHFILE.NAME) (RPAQ? IRM.FONT (FONTCREATE (QUOTE HELVETICA) 10 NIL NIL (QUOTE DISPLAY))) (RPAQ? IRMWINDOWREGION (CREATE REGION LEFT _ (DIFFERENCE SCREENWIDTH 401) BOTTOM _ 1 HEIGHT _ 350 WIDTH _ 400)) (RPAQ? IRMWINDOW) (RPAQ? \IRM.HASHFILE) (ADDTOVAR LISPXMACROS (help (COND ((CAR LISPXLINE) (IRM.SMART.LOOKUP (CAR LISPXLINE))) (T (PRINTOUT T "Use: %"HELP %"" T)))) (HELP (COND ((CAR LISPXLINE) (IRM.SMART.LOOKUP (CAR LISPXLINE))) (T (PRINTOUT T "Use: %"HELP %"" T))))) (MOVD (QUOTE HELPSYS) (QUOTE XHELPSYS)) (PUTPROPS HELPSYS COPYRIGHT ("Xerox Corporation" 1985)) NIL