(DEFINE-FILE-INFO PACKAGE (DEFPACKAGE "INSPECTCODE-TEDIT" (USE "INTERLISP") (NICKNAMES "ICT") ( PREFIX-NAME "ICT")) READTABLE "INTERLISP" BASE 10) (FILECREATED " 9-Feb-2022 14:14:33" ("compiled on " {DSK}larry>medley>lispusers>INSPECTCODE-TEDIT.;1) " 7-Feb-2022 15:50:05" bcompl'd in "FULL 7-Feb-2022 ..." dated " 7-Feb-2022 15:50:08") (FILECREATED " 4-May-87 11:52:50" {DSK}MATT>INSPECTCODE-TEDIT.;10 16087 changes to%: ( ADVICE OPENTEXTSTREAM-IN-\TEDIT.INSPECTCODE) (FILEVARS INSPECTCODE-TEDITCOMS) (FNS TITLEMENU-FN OPENTEXTSTREAM-FOR-\TEDIT.INSPECTCODE) previous date%: " 7-Apr-87 16:03:12" {DSK}MATT>INSPECTCODE-TEDIT.;9) BUILD.TITLEMENU :D8 NIL =`do¿dg ¿dg¿jdnÿdhHdI ¿NIL (58 TITLEMENU 29 DEFAULTMENUHELDFN 20 CLRPROMPT 4 |MENUTYPE#|) ( 11 ((GraphCalls (QUOTE GC) "Invoke GRAPHCALLS on the current selection") (InspectCode (QUOTE IC) "INSPECTCODE the current selection") (Inspect (QUOTE INSP) "INSPECT the current selection" (SUBITEMS (Freely (QUOTE INSP) "INSPECT the free-reference value of the selection") (Globally (QUOTE INSP.GLOB) "INSPECT the Global (Top Level) value of the selection") ("In Process Context" (QUOTE INSP.PROC) "INSPECT the value of the selection in a process' context"))) ("Pretty Print Value" (QUOTE PPV) "Pretty Print the value of the current selection" (SUBITEMS (Freely (QUOTE PPV) "Pretty Print the free-reference value of the selection") (Globally (QUOTE PPV.GLOB) "Pretty Print the Global (Top Level) value of the selection") ("In Process Context" (QUOTE PPV.PROC) "Pretty Print the value of the selection in a process' context"))) (Quit (QUOTE QUIT) "Terminates this INSPECTCODE"))) ICON-FN :D8 (P 0 ICON I 0 W) W`@g glghdi hi @gH @gH @gh H(83 PUTWINDOWPROP 71 PUTWINDOWPROP 59 PUTWINDOWPROP 44 TITLEDICONW 36 FONTCREATE 15 GETWINDOWUSERPROP) (77 ICONFN 65 ICONWINDOW 53 ICON 27 MRR 20 HELVETICA 10 FNNAME 4 ICON.TEMPLATE) () INSP.ERROR :D8 (I 2 MESS3 I 1 MESS2 I 0 MESS1) )A§@ °B§@A ‡@AB ¿(38 RINGBELLS 32 PROMPTPRINT 23 PROMPTPRINT 12 PROMPTPRINT 4 CLRPROMPT) NIL () KILL.TEDIT.PROCESS :D8 (I 0 W) @ É. (12 DEL.PROCESS 5 \INSUREWINDOW) NIL () NOSELFN :D8 NIL o (19 RINGBELLS 14 PROMPTPRINT 4 CLRPROMPT) NIL ( 9 "No current selection") OPENTEXTSTREAM-FOR-\TEDIT.INSPECTCODE :D8 (I 4 PROPS I 3 END I 2 START I 1 WINDOW I 0 TEXT F 0 FN F 1 *PACKAGE* F 2 *READTABLE*) O@ABCDo Agg ¿AgP ¿AgQ ¿AgR ¿(75 PUTWINDOWPROP 62 PUTWINDOWPROP 49 PUTWINDOWPROP 36 WINDOWADDPROP 20 OPENTEXTSTREAM 14 \APPEND2) (69 *READTABLE* 56 *PACKAGE* 43 FNNAME 31 KILL.TEDIT.PROCESS 26 CLOSEFN) ( 9 (QUITFN T TITLEMENUFN TITLEMENU-FN NOTITLE T)) TITLEMENU-FNA0001 :D8 (L (2 PFORM 1 PNAME 0 PHANDLE) F 0 PROCESSLIST) A@hPcNIL NIL () TITLEMENU-FN :D8 (P 18 PROC P 17 PROCESSLIST P 16 *READTABLE* P 15 *PACKAGE* P 14 *READTABLE* P 13 *PACKAGE* P 12 STRM P 11 *READTABLE* P 10 *PACKAGE* P 9 SpecifyRegionString P 8 INSPVAL P 7 SELSTR P 6 DISPLAYWINDOW P 5 MENUCHOICE P 4 SELLEN P 3 W*READTABLE* P 2 W*PACKAGE* P 0 STREAM I 0 W) ‰g š`Ã¥¿@ @g @g H É ` A o_¿Mµ±gð²H ¿@ ´‚±@ ¿±øLdjð—¿°Jlÿó²%o ¿Hhd ¿Hjdg °"JKHh g  O _¿Mdgð²¿JKO ±‡gð²=g ²!JKO ’±bo ¿±ToO ¿±DMgð¬Mdg𢱎¿O ²`Mgð²GO ¿lH lHi O ¾¿O N hddN ¿±ØO ¿±ÈOoMgð•o„o ¿±¥gð¬Mdg𢱌¿O _gð³VMgð²BO ¿lH lHi O ¾¿ON hddN ¿±7O ¿±,OoMgð•o„o ¿± gð¬Mgð´‚±ö g ¿`dO"¿di ¿dg ¿dg¿jdnÿdh¹dI ¿ _$µoMg𢱎o±‹O _gð³RMgð²@O ¿lH lHi O ¾¿ON hddN °9O °0OMgð•o„oO$g †oO h(901 INSP.ERROR 888 PROCESSPROP 853 INSPECT 844 PRINTDEF 834 POSITION 825 CLRPROMPT 819 CREATEW 812 GETREGION 807 HEIGHTIFWINDOW 799 WIDTHIFWINDOW 791 PROMPTPRINT 765 PROCESS.EVALV 730 MENU 672 MAP.PROCESSES 635 INSP.ERROR 600 INSPECT 589 PRINTDEF 579 POSITION 570 CLRPROMPT 564 CREATEW 557 GETREGION 552 HEIGHTIFWINDOW 544 WIDTHIFWINDOW 536 PROMPTPRINT 510 GETTOPVAL 479 INSP.ERROR 444 INSPECT 439 \EVALV1 428 PRINTDEF 418 POSITION 412 EVAL 404 CLRPROMPT 398 CREATEW 391 GETREGION 386 HEIGHTIFWINDOW 378 WIDTHIFWINDOW 370 PROMPTPRINT 352 BOUNDP 320 INSP.ERROR 304 INSP.ERROR 289 GRAPHCALLS 275 \DEFINEDP 253 INSPECTCODE 226 READ 216 OPENSTRINGSTREAM 206 TEDIT.SEL.AS.STRING 195 TEDIT.SETSEL 181 TEDIT.SHOWSEL 172 INSP.ERROR 155 NOSELFN 140 CLOSEW 128 OPENWP 121 TEDIT.QUIT 90 MENU 70 TEDIT.GETSEL 61 GETWINDOWUSERPROP 47 GETWINDOWUSERPROP 33 TEXTSTREAM 26 BUILD.TITLEMENU 9 BOUNDP) (883 NAME 863 PPV.PROC 781 PPV.PROC 772 NOBIND 745 PPV.PROC 705 DEFAULTMENUHELDFN 696 CLRPROMPT 678 |MENUTYPE#| 667 TITLEMENU-FNA0001 652 PPV.PROC 644 INSP.PROC 617 PPV.GLOB 526 PPV.GLOB 517 NOBIND 497 PPV.GLOB 488 INSP.GLOB 461 PPV 360 PPV 339 PPV 330 INSP 270 GRAPHCALLSW 262 GC 237 IC 211 INPUT 190 LEFT 112 QUIT 85 TITLEMENU 75 SELECTION 56 *READTABLE* 42 *PACKAGE* 20 MENU 15 TITLEMENU 4 TITLEMENU) ( 894 "inspect " 876 " has no value to inspect in process " 870 " has no value to print in process " 755 "print " 739 "No process selected. Will not " 630 "inspect" 624 "print" 611 " has no Global value to " 474 "inspect" 468 "print" 455 " has no value to " 313 "The GRAPHCALLS package is not loaded. Cannot graph " 299 "Nothing to graph!!" 167 "Selection is too long (> 255 characters)" 98 "Specify a region for the value pretty print window") (PRETTYCOMPRINT INSPECTCODE-TEDITCOMS) (RPAQQ INSPECTCODE-TEDITCOMS ((FNS BUILD.TITLEMENU ICON-FN INSP.ERROR KILL.TEDIT.PROCESS NOSELFN OPENTEXTSTREAM-FOR-\TEDIT.INSPECTCODE TITLEMENU-FN) (UGLYVARS ICON.TEMPLATE) (P (CHANGENAME (QUOTE \TEDIT.INSPECTCODE) (QUOTE TEXTICON) (QUOTE ICON-FN)) (CHANGENAME (QUOTE \TEDIT.INSPECTCODE) (QUOTE OPENTEXTSTREAM) (QUOTE OPENTEXTSTREAM-FOR-\TEDIT.INSPECTCODE))) (COMMANDS IC) (PROP (FILETYPE MAKEFILE-ENVIRONMENT) INSPECTCODE-TEDIT))) (READVAR-FROM-STRING (QUOTE ICON.TEMPLATE) "({(READBITMAP)(87 91 %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@COO@@@@@F@@%" %"L@@@@@@@@@@@AOOON@@@@F@@%" %"L@@@@@@@@@@@GN@AOH@@@F@@%" %"L@@@@@@@@@@AO@@@CN@@@F@@%" %"L@@@@@@@@@@CL@@@@O@@@F@@%" %"L@@@@@@@@@@O@@@@@CL@@F@@%" %"L@@@@@@@@@AN@@@@@AN@@F@@%" %"L@@@@@@@@@CH@@@@@@G@@F@@%" %"L@@@@@@@@@C@@@@@@@C@@F@@%" %"L@@@@@@@@@G@@@@@@@CH@F@@%" %"L@@@@@@@@@N@@@@@@@AL@F@@%" %"L@@@@@@@@@L@@@@@@@@L@F@@%" %"L@@@@@@@@AL@@@@@@@@N@F@@%" %"L@@@@@@@@AH@@@@@@@@F@F@@%" %"L@@@@@@@@CH@@@@@@@@G@F@@%" %"L@@@@@@@@C@@@@@@@@@C@F@@%" %"L@@@@@@@@C@@@@@@@@@C@F@@%" %"L@@@@@@@@GGL@OHGO@OOHF@@%" %"L@@@@@@@@GLFCHNFALLAHF@@%" %"L@@@@@@@@GHCC@FF@LLAHF@@%" %"L@@@@@@@@G@@F@CF@FLAHF@@%" %"LBIGKMLNOO@@F@CF@FOOHF@@%" %"LBMDBEA@BG@@F@CF@FLAHF@@%" %"LBOGKMM@BG@@F@CF@FLAHF@@%" %"LBK@JAA@BGHCC@FF@LLAHF@@%" %"LBIGJALNBGLFCHNFALLAHF@@%" %"L@@@@@@@@GGL@OHGO@OOHF@@%" %"L@@@@@@@@C@@@@@@@@@C@F@@%" %"L@@@@@@@@C@@@@@@@@@C@F@@%" %"L@@@@@@@@CH@@@@@@@@G@F@@%" %"L@@@@@@@@AH@@@@@@@@F@F@@%" %"L@@@@@@@@AL@@@@@@@@N@F@@%" %"L@@@@@@@@@L@@@@@@@@L@F@@%" %"L@@@@@@@@@N@@@@@@@AL@F@@%" %"L@@@@@@@@@G@@@@@@@CH@F@@%" %"L@@@@@@@@@G@@@@@@@C@@F@@%" %"L@@@@@@@@@OL@@@@@@G@@F@@%" %"L@@@@@@@@@ON@@@@@AN@@F@@%" %"L@@@@@@@@AGO@@@@@CL@@F@@%" %"L@@@@@@@@CKCL@@@@O@@@F@@%" %"L@@@@@@@@GLAO@@@CN@@@F@@%" %"L@@@@@@@@OH@GN@AOH@@@F@@%" %"L@@@@@@@AO@@AOOON@@@@F@@%" %"L@@@@@@@FN@@@COO@@@@@F@@%" %"L@@@@@@@OD@@@@@@@@@@@F@@%" %"L@@@@@@AOH@@@@@@@@@@@F@@%" %"L@@@@@@COH@@@@@@@@@@@F@@%" %"L@@@@@@GO@@@@@@@@@@@@F@@%" %"L@@@@@@ON@@@@@@@@@@@@F@@%" %"L@@@@@AOL@@@@@@@@@@@@F@@%" %"L@@@@@COH@@@@@@@@@@@@F@@%" %"L@@@@@GO@@@@@@@@@@@@@F@@%" %"L@@@@@ON@@@@@@@@@@@@@F@@%" %"L@@@@AOL@@@@@@@@@@@@@F@@%" %"L@@@@COH@@@@@@@@@@@@@F@@%" %"L@@@@GO@@@@@@@@@@@@@@F@@%" %"L@@@@ON@@@@@@@@@@@@@@F@@%" %"L@@@AOL@@@@@@@@@@@@@@F@@%" %"L@@@COH@@@@@@@@@@@@@@F@@%" %"L@@@GO@@@@@@@@@@@@@@@F@@%" %"L@@@GN@@@@@@@@@@@@@@@F@@%" %"L@@@CL@@@@@@@@@@@@@@@F@@%" %"L@@@AH@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"L@@@@@@@@@@@@@@@@@@@@F@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%" %"OOOOOOOOOOOOOOOOOOOOON@@%")} NIL (4 5 79 18)) ") (CHANGENAME (QUOTE \TEDIT.INSPECTCODE) (QUOTE TEXTICON) (QUOTE ICON-FN)) (CHANGENAME (QUOTE \TEDIT.INSPECTCODE) (QUOTE OPENTEXTSTREAM) (QUOTE OPENTEXTSTREAM-FOR-\TEDIT.INSPECTCODE)) (DEFCOMMAND IC (FN) (INSPECTCODE FN)) (PUTPROPS INSPECTCODE-TEDIT FILETYPE :TCOMPL) (PUTPROPS INSPECTCODE-TEDIT MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE (DEFPACKAGE "INSPECTCODE-TEDIT" (:USE "INTERLISP") (:NICKNAMES "ICT") (:PREFIX-NAME "ICT")))) (PUTPROPS INSPECTCODE-TEDIT COPYRIGHT ("Beckman Instruments, Inc." 1985 1986 1987)) NIL