(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED " 9-Sep-94 10:55:38" ("compiled on " {DSK}lispusers>GRAPHCALLS.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "24-Aug-88 08:59:17" |{XDE:MCS:STANFORD}MEDLEY>GRAPHCALLS.;1| 59928 changes to%: (FNS GRAPHCALLS.BREAKIN GRAPHCALLS.WHEREIS) previous date%: "21-Jul-88 08:44:32" |{MCS:MCS:STANFORD}GRAPHCALLS.;36|) GRAPHCALLSA0003 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 OPTIONS F 1 GRAPHNODES F 2 FN) QRPg'ddhPg' (27 \GRAPHCALLS/GRAPHCALLS.ADVISE) (21 :STREAM 7 :ADVISE) () GRAPHCALLS :D8 (L (0 -args-) P 20 SI::*RESETFORMS* P 19 GRAPHCALLS.SEEN P 17 GRAPHNODES P 16 OPTIONS P 1 FN) eka HlKJ+hHl2OdO0O0O [`\:]Kdagl[kaa_OOh__Ok_O&_O L'O LL L` _ O g'IkMhO g'O ghO g' IO g'O g'gg O _"IhO g'O g' _$O g'O g' OO g'O g'O$ _O g'^gN$gNOoO g' ԄO _OO g' _O g' 3O g' _O g'OOOO O gOO O gO$O g'O g'O g'O g'O g'O g'  O g'gg O gO g' O$O g' O g'GO g'gg` hhhg $ O g'gO O g'(746 STREAMPROP 725 STREAMPROP 715 SI::RESETUNWIND 710 \MVLIST 705 GRAPHCALLSA0003 685 CURSOR 646 DISPLAYGRAPH 630 LISTPUT 623 \INSUREWINDOW 602 PUTWINDOWPROP 578 LISTPUT 573 SHOWGRAPH 509 LISTPUT 504 CREATEW 499 GETBOXREGION 481 SHAPEW 476 CREATEREGION 447 \INSUREWINDOW 432 WINDOWP 416 HEIGHTIFWINDOW 394 WIDTHIFWINDOW 382 STRINGWIDTH 327 GRAPHREGION 295 WINDOWP 269 LAYOUTGRAPH 243 \GRAPHCALLS/GRAPHCALLS1 236 FONTCOPY 203 LISTPUT 198 DSPFONT 147 COPY 131 LISTPUT) (754 :STREAM 739 OPTIONS 733 :STREAM 700 SI::RESETUNWIND 680 WAITINGCURSOR 675 CURSOR 670 ADVISEDFNS 664 :STREAM 654 :ADVISE 640 :STREAM 617 :STREAM 610 :STREAM 597 GRAPHCALLS.GRAPH.CLOSEFN 592 CLOSEFN 586 :STREAM 566 :COPYBUTTONEVENTFN 558 :ALLOWEDITFLG 550 :TOPJUSTIFYFLG 542 :MIDDLEBUTTONFN 534 :LEFTBUTTONFN 526 :STREAM 517 :STREAM 490 :STREAM 459 :STREAM 441 :STREAM 426 :STREAM 410 :ALLOWEDITFLG 376 :FONT 355 COUNT 344 COUNT 337 :ADVISE 315 :SHAPE 306 :ADVISE 289 :STREAM 279 :STREAM 263 :FONT 255 :FORMAT 231 BOLD 226 WEIGHT 220 :FONT 212 :DEPTH 192 :STREAM 184 :FONT 174 :STREAM 157 :SEARCHFN 142 GRAPHCALLS.DEFAULT.OPTIONS 67 :DEPTH 53 GRAPHCALLS.DEFAULT.OPTIONS) ( 369 "00000") \GRAPHCALLS/GRAPHCALLS1 :D8 (L (3 OPTIONS 2 LEAFFONT 1 DEPTH 0 FN) F 11 GRAPHCALLS.SEEN) % `@Wc@hdd`hddd`Cdg'Cg'@ClJg'@i @`hY]Cg'@ClKA NONMBIh_Cg'Cg'OkLO_OOh__N^O&_Aj'AM!NOXIH Mh_WOOAkBC _N^(283 \NCONC2 278 \GRAPHCALLS/GRAPHCALLS1 242 \FZEROP 67 MKSTRING) (161 :FILTER 153 :FILTER 102 :SEARCHFN 74 DEFAULT.GRAPH.NODEBORDER 58 :PRIN2FLG 43 :NAMEFN 33 :NAMEFN 26 DEFAULT.GRAPH.NODEFONT 17 DEFAULT.GRAPH.NODELABELSHADE) () \GRAPHCALLS/GRAPHCALLS.ADVISE :D8 (L (3 STREAM 2 FLAGS 1 ROOTID 0 GRAPHNODES)) A`Ad@ BC H@!IHZdJ!LIY]d^0N (Nd`gKhM@ BC HXL\(121 \GRAPHCALLS/GRAPHCALLS.ADVISE1 114 GETNODEFROMID 85 \DEFINEDP 26 \GRAPHCALLS/GRAPHCALLS.ADVISE1 19 GETNODEFROMID) (102 :IN 94 UNSAFE.TO.MODIFY.FNS 8 UNSAFE.TO.MODIFY.FNS) () \GRAPHCALLS/GRAPHCALLS.ADVISE1 :D8 (L (3 STREAM 2 FLAGS 1 NODE 0 FN)) @ghggAddi3 gAhCBddi3 gBhoggAddi3 gAhCBddi3 gBhoh @g @(151 UNMARKASCHANGED 140 ADVISE) (146 ADVICE 117 QUOTE 95 QUOTE 78 GRAPHCALLS.INVERT.NODE 73 * 55 QUOTE 33 QUOTE 16 GRAPHCALLS.INVERT.NODE 11 PROG2 5 AROUND) ( 126 ((QUOTE AFTER)) 64 ((QUOTE BEFORE))) \GRAPHCALLS.INSPECT.FRAME/GRAPHCALLS.INSPECT :D8 (L (2 LABEL 1 WINDOW 0 RECORD)) =` qhd`g' @\Ah Hi [dK KMKM@oRO L_OOZdAgJ h_dgghddBOoB hKO Hi _I`KKOK Ydgg IgA _OOh__O_O_BO&_ ^Nmذ(299 \INSUREWINDOW 254 PUTWINDOWPROP 241 PUTWINDOWPROP 224 INSPECTW.CREATE 194 HEIGHTIFWINDOW 186 LENGTH 176 CONCAT 136 WINDOWADDPROP 71 GETBOXREGION 56 CREATEREGION 51 HEIGHTIFWINDOW 43 LENGTH 32 WIDTHIFWINDOW) (248 GRAPHW 236 GRAPHCALLS.CLOSE 231 CLOSEFN 157 GRAPHCALLS.STORE 152 GRAPHCALLS.FETCH 130 INSPECTWS 26 :INSPECTWIDTH 21 GRAPHCALLS.DEFAULT.OPTIONS 9 FONTDESCRIPTOR 4 DEFAULTFONT) ( 170 " in " 90 (LOCALVARS FREEVARS GLOBALVARS)) GRAPHCALLS.INSPECT.FRAME :D8 (L (3 BACKFLG 2 TREEFLG 1 WINDOW 0 FN) P 1 GRAPHCALLS.COLLECTED) PB%C@ @Ag C XGB@ @ Z\Hho hJA@ HA@oCoK[o L(127 \GRAPHCALLS.INSPECT.FRAME/GRAPHCALLS.INSPECT 122 CONCAT 80 \GRAPHCALLS.INSPECT.FRAME/GRAPHCALLS.INSPECT 70 GRAPHCALLS.PRINT 54 VARS 46 \DEFINEDP 34 \GRAPHCALLS.INSPECT.FRAME/GRAPHCALLS.COLLECT 27 GETWINDOWUSERPROP 13 \DEFINEDP) (22 GRAPH) ( 117 "tree" 98 "scope" 90 "'s " 65 "Nothing to INSPECT!") \GRAPHCALLS.INSPECT.FRAME/GRAPHCALLS.COLLECT :D8 (L (2 BACKFLG 1 GRAPHNODES 0 FN) F 9 GRAPHCALLS.COLLECTED) @ @ 1@A BJJAL MdHhH_dWWcO_NOh^]L\O&^d *AB HHI HHI K[ʰ(143 UNION 125 UNION 111 \GRAPHCALLS.INSPECT.FRAME/GRAPHCALLS.COLLECT 102 \DEFINEDP 23 GETNODEFROMID 13 VARS 5 \DEFINEDP) NIL () GRAPHCALLS.SEARCHA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 SI::*RESETFORMS* F 1 OPTIONS F 2 FN) <Qg'-ggd hgg hPcR (57 CALLS 43 MOVD 24 GETD) (38 \SUBFNDEF 33 NILL 18 \SUBFNDEF 13 PUTD 5 :SUBFNDEFFLG) () GRAPHCALLS.SEARCH :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 OPTIONS I 0 FN F 3 LISPXHIST) &@ S!g $(31 SI::RESETUNWIND 26 \MVLIST 21 GRAPHCALLS.SEARCHA0001 5 \DEFINEDP) (16 SI::RESETUNWIND) () GRAPHCALLS.BREAKIN :D8 (L (2 FN 1 WINDOW 0 NODE)) Ag 1@h0@dH MLh^L&NZd3dA o JA JdA Id[%@gKhkB t(164 GRAPHCALLS.PRINT 116 FLIPNODE 105 READ/NODE 97 GRAPHCALLS.PRINT 82 FLIPNODE 50 GETNODEFROMID 10 GETWINDOWUSERPROP) (150 :IN 5 GRAPH) ( 92 "In the context of which node?") GRAPHCALLS.LEFT :D8 (P 1 FN P 0 STREAM I 1 WINDOW I 0 GRAPHNODE) ,A @ ` YI` (41 MENU 23 MENU 5 \INSUREWINDOW) (36 GRAPHCALLS.MENU 18 GRAPHCALLS.BACKGROUND.MENU) () GRAPHCALLS.MIDDLE :D8 (L (1 WINDOW) P 0 FN I 0 GRAPHNODE) #@`@X ` (28 MENU) (23 GRAPHCALLS.MIDDLE.MENU 10 GRAPHCALLSW.WINDOW) () GRAPHCALLS.INVERT.NODE :D8 (L (3 WHEN 2 FLAGS 1 STREAM 0 NODE)) gB@A Cdg`g' ggB@@l@@ k@lA @A kA @d3 dkԋkA (207 SHOULDNT 201 PRIN1 148 SPACES 141 DSPFONT 124 MOVETO 42 BLOCK 14 FLIPNODE) (101 FONTDESCRIPTOR 58 COUNT 48 AFTER 36 :DELAY 31 GRAPHCALLS.DEFAULT.OPTIONS 22 BEFORE 4 INVERT) () GRAPHCALLS.FETCH :D8 (L (1 PROPERTY 0 OBJECT)) A (5 \EVALV1) NIL () GRAPHCALLS.STORE :D8 (L (2 NEWVALUE 1 PROPERTY 0 OBJECT)) AB (6 SET) NIL () GRAPHCALLS.PRINT :D8 (L (1 ERROR 0 EXP)) @ AAh` (27 CENTERPRINTINREGION 15 RINGBELLS 4 CLRPROMPT) (22 PROMPTWINDOW) () GRAPHCALLS.CLOSE :D8 (L (0 WINDOW)) w@gh QHg ZhYd\ HgI h@KKiJ] (Md@!gh Mgh M L(112 CLOSEW 105 PUTWINDOWPROP 92 PUTWINDOWPROP 73 OPENWP 48 WINDOWDELPROP 25 GETWINDOWUSERPROP 11 PUTWINDOWPROP) (99 GRAPHW 86 CLOSEFN 42 INSPECTWS 20 INSPECTWS 5 GRAPHW) () GRAPHCALLS.GRAPH.CLOSEFN :D8 (L (0 WINDOW)) p@gh dH,@ gh H gH Yd !gh Igh I HX(104 CLOSEW 97 PUTWINDOWPROP 84 PUTWINDOWPROP 71 OPENWP 62 APPLY 45 STREAMPROP 32 \INSUREWINDOW 11 PUTWINDOWPROP) (91 GRAPHW 78 CLOSEFN 56 UNADVISE 39 ADVISEDFNS 5 INSPECTWS) () NO\ :D8 (L (0 FN)) @k l\h(6 NTHCHARCODE) NIL () GRAPHCALLS.INSPECTCODE :D8 (L (0 FN)) n@o ` *`g'`` H `gH ` @` @(104 INSPECTCODE 92 DSPRESET 81 PUTWINDOWPROP 58 CREATEW 52 GETBOXREGION 23 WINDOWP 10 CONCAT) (99 GRAPHCALLS.INSPECTCODE.WINDOW 87 GRAPHCALLS.INSPECTCODE.WINDOW 75 TITLE 70 GRAPHCALLS.INSPECTCODE.WINDOW 63 GRAPHCALLS.INSPECTCODE.WINDOW 46 SCROLLBARWIDTH 41 SCREENHEIGHT 35 :INSPECTCODEWIDTH 30 GRAPHCALLS.DEFAULT.OPTIONS 18 GRAPHCALLS.INSPECTCODE.WINDOW) ( 5 " Code Window") GRAPHCALLS.WHEREIS :D8 (L (1 OPTIONS 0 FN)) M@od@Ki XIHZYJAg'@i YH@HIHI(58 LAST 52 MKSTRING 20 WHEREIS) (42 :PRIN2FLG) ( 7 (FNS FUNCTIONS)) GRAPHCALLS.ARGLIST :D8 (L (1 OPTIONS 0 FN)) 'Ag'@i @@ H@ H(33 SMARTARGLIST 25 \DEFINEDP 14 MKSTRING) (5 :PRIN2FLG) () GRAPHCALLSWA0001 :D8 (L (0 WINDOW)) %` `g (34 GRAPHCALLSW.PRINTFN 29 GETWINDOWUSERPROP 14 GRAPHCALLSW.CLEAR 9 MENUREPAINTFN) (24 FUNCTION 19 GRAPHCALLSW.WINDOW 4 GRAPHCALLSW.WINDOW) () GRAPHCALLSWA0002 :D8 (L (0 WINDOW)) (@ @g HHH (37 MOVEW 21 GETWINDOWUSERPROP 5 \INSUREWINDOW) (16 PROMPTWINDOW) () GRAPHCALLSW :D8 (L (0 REBUILD?)) ' `` ;@8` [K `LL ` ` ` 0`$dg ONh_N&_OXdjNOk HA NO i o H`g jh N`gg `gg `g` ]MMMh`  hdi Z Jgg `_OO k_N^_ _OOOO_O_N^_OOO O`O Og YOI OdO kN^(538 BITMAPWIDTH 533 CHECK/MENU/IMAGE 521 DOSELECTEDITEM 511 GETMENUPROP 498 ADDMENU 481 BITMAPHEIGHT 476 CHECK/MENU/IMAGE 433 BITMAPHEIGHT 428 CHECK/MENU/IMAGE 408 BITMAPWIDTH 403 CHECK/MENU/IMAGE 384 PUTWINDOWPROP 368 PUTWINDOWPROP 362 CREATEW 354 CREATEREGION 349 HEIGHTIFWINDOW 337 DSPFONT 309 \INSUREWINDOW 289 PUTWINDOWPROP 269 PUTWINDOWPROP 234 GETWINDOWPROP 213 CREATEW 203 GETBOXREGION 198 HEIGHTIFWINDOW 192 BITMAPHEIGHT 187 CHECK/MENU/IMAGE 167 WIDTHIFWINDOW 120 EVAL 115 GETPROP 92 CLOSEW 81 OPENWP 70 TOTOPW 59 MOVEW 43 GETBOXREGION 27 \INSUREWINDOW 12 WINDOWP) (506 VALUE 491 GRAPHCALLSW.WINDOW 389 GRAPHCALLSW.WINDOW 379 NILL 374 PAGEFULLFN 342 FONTDESCRIPTOR 332 GRAPHCALLSW.WINDOW 304 GRAPHCALLSW.WINDOW 299 PROMPTWINDOW 294 GRAPHCALLSW.WINDOW 284 GRAPHCALLSWA0002 279 AFTERMOVEFN 274 GRAPHCALLSW.WINDOW 264 GRAPHCALLSWA0001 259 REPAINTFN 254 GRAPHCALLSW.WINDOW 229 HEIGHT 224 GRAPHCALLSW.WINDOW 218 GRAPHCALLSW.WINDOW 110 MENU 101 GRAPHCALLSW.MENUS 87 GRAPHCALLSW.WINDOW 76 GRAPHCALLSW.WINDOW 65 GRAPHCALLSW.WINDOW 49 GRAPHCALLSW.WINDOW 22 GRAPHCALLSW.WINDOW 7 GRAPHCALLSW.WINDOW) ( 208 "GraphCalls Command Window") GRAPHCALLSW.CLEAR :D8 NIL `g !H$dY*djIgh ` Hl H`g' od`Jh h(126 WINDOWPROP 104 DOSELECTEDITEM 81 DOSELECTEDITEM 67 MENUREPAINTFN 52 PUTMENUPROP 14 GETWINDOWUSERPROP) (119 GRAPHCALLSW.WINDOW 98 :DEPTH 93 GRAPHCALLS.DEFAULT.OPTIONS 62 GRAPHCALLSW.WINDOW 46 VALUE 28 MENU 9 MENU 4 GRAPHCALLSW.WINDOW) ( 109 (INCLUDESET INCLUDEFNS INCLUDEFILES EXCLUDESET EXCLUDEFNS EXCLUDEFILES)) GRAPHCALLSW.DOIT :D8 NIL  `g Q`g0`g d^O2N__O `g0`g  _Nd^O>N__O Hv`g 0Mg $ _Nd ^O$N__O0Mg " _NdONh_N&_OgJ[WJgJIg'IgIA N_?O Mg \Oi]oo LhJ KgO_OOh__OO&_ghLgHgggMg gJgKI uho h(532 GRAPHCALLS.PRINT 517 APPLY 490 GETMENUPROP 387 DREMOVE 377 MOUSECONFIRM 355 GETMENUPROP 341 LISTPUT 252 LAST 245 GETMENUPROP 206 COPY 191 LAST 184 GETMENUPROP 166 GETWINDOWUSERPROP 144 PUTWINDOWPROP 110 LAST 103 GETWINDOWUSERPROP 75 PUTWINDOWPROP 45 GETWINDOWUSERPROP 14 GETWINDOWUSERPROP) (501 :NAMEFN 495 :FORMAT 485 VALUE 474 :DEPTH 469 GRAPHCALLSW.FILTER 464 :FILTER 458 GRAPHCALLS 444 WHEREIS 400 :ADVISE 350 VALUE 323 :ADVISE 312 :ADVISE 303 REVERSE/DAUGHTERS 291 :NAMEFN 240 VALUE 179 VALUE 161 MENU 156 GRAPHCALLSW.WINDOW 98 EXCLUDEFNS 93 GRAPHCALLSW.WINDOW 85 EXCLUDESET 80 GRAPHCALLSW.WINDOW 40 INCLUDEFNS 35 GRAPHCALLSW.WINDOW 27 INCLUDESET 22 GRAPHCALLSW.WINDOW 9 FUNCTION 4 GRAPHCALLSW.WINDOW) ( 527 "Can't graph function" 372 "" 367 "Advising without a WHEREIS filter advises system code, confirm to continue.") GRAPHCALLSW.FILTER :D8 (L (0 FN)) `g `g `g `g $`g g ]ih@kLhMI@IH@H@J@gJ K@gK (161 WHEREIS 144 WHEREIS 89 GETMENUPROP 77 GETWINDOWUSERPROP 59 GETWINDOWUSERPROP 44 GETWINDOWUSERPROP 29 GETWINDOWUSERPROP 14 GETWINDOWUSERPROP) (155 FNS 138 FNS 84 VALUE 72 MENU 67 GRAPHCALLSW.WINDOW 54 INCLUDEFILES 49 GRAPHCALLSW.WINDOW 39 EXCLUDEFILES 34 GRAPHCALLSW.WINDOW 24 EXCLUDESET 19 GRAPHCALLSW.WINDOW 9 INCLUDESET 4 GRAPHCALLSW.WINDOW) () GRAPHCALLSW.INCLUDE :D8 (L (0 INFLG))   @oo[` hg`@gg ``o dLKo dMdh*dh(dh&dh$dh"dg dhdgdhdhdhdhdhdhdh jdndhdN dhdhdhdhH `@ggH `d`dgdh*dh(dh&dh$dh"dg dhdgdhdhdhdhdhdhdh jdndh_dO dhdhdhdh Xds Yg`@gg `H o _dOKoH _dOdh*dh(dh&dh$dh"dg dhdgdhdhdhdhdhdhdh jdndh_dO dhdhdhdhHJ JHIJ `@ggHIh c(696 WINDOWPROP 664 PUTASSOC 653 MMENU 512 CONCAT 486 \APPEND2 476 FILEFNSLST 464 WINDOWPROP 434 FILEFNSLST 423 MENU 263 WINDOWPROP 238 MMENU 106 CONCAT 84 \APPEND2 63 WINDOWPROP 26 MENU) (686 EXCLUDEFNS 680 INCLUDEFNS 673 GRAPHCALLSW.WINDOW 566 DEFAULTMENUHELDFN 552 CLRPROMPT 495 MENU 470 GRAPHCALLSW.SCRATCHMENU 459 EXCLUDEFNS 453 INCLUDEFNS 446 GRAPHCALLSW.WINDOW 340 DEFAULTMENUHELDFN 326 CLRPROMPT 292 FILELST 283 FILELST 278 MENU 272 GRAPHCALLSW.SCRATCHMENU 257 EXCLUDEFILES 251 INCLUDEFILES 244 GRAPHCALLSW.WINDOW 157 DEFAULTMENUHELDFN 143 CLRPROMPT 91 MENU 74 FILELST 69 GRAPHCALLSW.SCRATCHMENU 58 EXCLUDEFILES 52 INCLUDEFILES 45 GRAPHCALLSW.WINDOW 35 FILES 21 GRAPHCALLS.SOURCE.MENU) ( 506 "from " 481 (DONE) 101 "Files" 79 (DONE) 15 "Exclude " 9 "Include ") GRAPHCALLSW.PRINTFN :D8 (L (0 FN)) @`g@ `g 1HY IH Hٻj`jdJK @jdJK`dg i (134 CENTERPRINTINAREA 126 GETWINDOWUSERPROP 105 BLTSHADE 37 GETWINDOWUSERPROP 22 PUTWINDOWPROP) (121 MENU 115 GRAPHCALLSW.WINDOW 95 GRAPHCALLSW.WINDOW 84 MENU 72 MENU 61 MENU 52 MENU 32 MENU 27 GRAPHCALLSW.WINDOW 16 FUNCTION 11 GRAPHCALLSW.WINDOW) () MMENU :D8 (L (1 PRESELECT 0 MENU)) l@g H@gg X @g@ Ad@I H @g @gh (104 PUTMENUPROP 92 GETMENUPROP 81 AWAIT.EVENT 70 DOSELECTEDITEM 58 ADDMENU 38 PUTMENUPROP 32 CREATE.EVENT 10 GETMENUPROP) (98 VALUE 87 VALUE 50 MMENU.SELECTEDFN 45 MENU 27 MULTIMENU 22 EVENT 5 EVENT) () MMENU.SELECTEDFN :D8 (L (2 KEY 1 MENU 0 ITEM)) Ag @dgD0HdA JIh[I&KAi Ag DgHdAj h(@dH Aj @H An @HXAgH (168 PUTMENUPROP 150 SHADEITEM 140 DREMOVE 132 SHADEITEM 124 MEMB 108 SHADEITEM 87 NOTIFY.EVENT 82 GETMENUPROP 70 DELETEMENU 44 DEFAULTWHENSELECTEDFN 29 CLRPROMPT 10 GETMENUPROP) (162 VALUE 94 CLEAR 77 EVENT 20 DONE 5 VALUE) () MMENU.MARKITEM :D8 (L (2 KEY 1 MENU 0 ITEM)) 2Ag HHAj Ag@ @An (47 SHADEITEM 37 PUTMENUPROP 23 SHADEITEM 10 GETMENUPROP) (31 VALUE 5 VALUE) () MMENU.BOLDITEM :D8 (L (1 FONT 0 STRING)) MAgg !@H A Y ZHJ A J @J I(73 PRIN1 66 DSPYPOSITION 52 DSPFONT 44 DSPCREATE 38 BITMAPCREATE 25 STRINGWIDTH 15 FONTCOPY) (58 FONTDESCRIPTOR 31 FONTDESCRIPTOR 10 BOLD 5 WEIGHT) () (PRETTYCOMPRINT GRAPHCALLSCOMS) (RPAQQ GRAPHCALLSCOMS ((* * GRAPHCALLS Dynamic Function Graphing) (LOCALVARS . T) (FNS GRAPHCALLS) ( FNS GRAPHCALLS1 GRAPHCALLS.SEARCH GRAPHCALLS.ADVISE GRAPHCALLS.ADVISE1 GRAPHCALLS.BREAKIN GRAPHCALLS.LEFT GRAPHCALLS.MIDDLE GRAPHCALLS.COLLECT GRAPHCALLS.INSPECT.FRAME GRAPHCALLS.INSPECT GRAPHCALLS.INVERT.NODE GRAPHCALLS.FETCH GRAPHCALLS.STORE GRAPHCALLS.PRINT GRAPHCALLS.CLOSE GRAPHCALLS.GRAPH.CLOSEFN NO\ GRAPHCALLS.INSPECTCODE GRAPHCALLS.WHEREIS GRAPHCALLS.ARGLIST) (INITVARS GRAPHCALLS.INSPECTCODE.WINDOW (GRAPHCALLS.DEFAULT.OPTIONS (QUOTE (:DELAY 500 :SUBFNDEFFLG T :SEARCHFN GRAPHCALLS.SEARCH :DEPTH 2 :LEFTBUTTONFN GRAPHCALLS.LEFT :MIDDLEBUTTONFN GRAPHCALLS.MIDDLE :INSPECTWIDTH 250 :INSPECTCODEWIDTH 400 :FONT (GACHA 8) :FORMAT (HORIZONTAL COMPACT REVERSE/DAUGHTERS) )))) (PROP ARGNAMES GRAPHCALLS) (PROP MENU * GRAPHCALLS.MENUS) (INITVARS * GRAPHCALLS.MENUS) ( GLOBALVARS * GRAPHCALLS.MENUS) (GLOBALVARS GRAPHCALLS.DEFAULT.OPTIONS GRAPHCALLS.INSPECTCODE.WINDOW) ( RECORDS GRAPHCALLS.RECORD GRAPHCALLS.OPTIONS) (GLOBALVARS DEFAULT.GRAPH.NODEBORDER DEFAULT.GRAPH.NODEFONT DEFAULT.GRAPH.NODELABELSHADE) (BLOCKS (GRAPHCALLS (SPECVARS GRAPHCALLS.SEEN) ( ENTRIES GRAPHCALLS) GRAPHCALLS GRAPHCALLS1 GRAPHCALLS.ADVISE GRAPHCALLS.ADVISE1) ( GRAPHCALLS.INSPECT.FRAME (SPECVARS GRAPHCALLS.COLLECTED) (ENTRIES GRAPHCALLS.INSPECT.FRAME) GRAPHCALLS.INSPECT GRAPHCALLS.INSPECT.FRAME GRAPHCALLS.COLLECT)) (FILES (SYSLOAD FROM LISPUSERS) MSANALYZE GRAPHER) (P (for MENU in GRAPHCALLS.MENUS do (SET MENU (EVAL (GETPROP MENU (QUOTE MENU)))))) (* * GRAPHCALLS Command Window) (FNS GRAPHCALLSW) (FNS GRAPHCALLSW.CLEAR GRAPHCALLSW.DOIT GRAPHCALLSW.FILTER GRAPHCALLSW.INCLUDE GRAPHCALLSW.PRINTFN) (INITVARS GRAPHCALLSW.WINDOW ( GRAPHCALLSW.SCRATCHMENU (create MENU))) (VARS GRAPHCALLSW.MENUS) (PROP MENU * (PROGN GRAPHCALLSW.MENUS )) (GLOBALVARS GRAPHCALLSW.WINDOW GRAPHCALLSW.SCRATCHMENU GRAPHCALLSW.MENUS) (DECLARE%: DONTCOPY ( RECORDS GRAPHCALLSW.MENUS.RECORD)) (ADDVARS (UNSAFE.TO.MODIFY.FNS ERROR ERRORX RAID RECLAIM \ALLOCBLOCK \MOVEBYTES \MP.ERROR \STOP.DRIBBLE?)) (ALISTS (BackgroundMenuCommands GraphCalls)) (VARS ( BackgroundMenu)) (* * Multiple Selection Menus) (FNS MMENU MMENU.SELECTEDFN MMENU.MARKITEM MMENU.BOLDITEM) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA GRAPHCALLS))))) (RPAQ? GRAPHCALLS.INSPECTCODE.WINDOW NIL) (RPAQ? GRAPHCALLS.DEFAULT.OPTIONS (QUOTE (:DELAY 500 :SUBFNDEFFLG T :SEARCHFN GRAPHCALLS.SEARCH :DEPTH 2 :LEFTBUTTONFN GRAPHCALLS.LEFT :MIDDLEBUTTONFN GRAPHCALLS.MIDDLE :INSPECTWIDTH 250 :INSPECTCODEWIDTH 400 :FONT (GACHA 8) :FORMAT (HORIZONTAL COMPACT REVERSE/DAUGHTERS)))) (PUTPROPS GRAPHCALLS ARGNAMES (NIL (FN &KEY :ADVISE :ALLOWEDITFLG :COPYBUTTONEVENTFN :DELAY :DEPTH :FILTER :FONT :FORMAT :INSPECTCODEWIDTH :INSPECTWIDTH :LEFTBUTTONFN :MIDDLEBUTTONFN :NAMEFN :PRIN2FLG :SEARCHFN :SHAPE :STREAM :SUBFNDEFFLG :TOPJUSTIFYFLG))) (RPAQQ GRAPHCALLS.MENUS (GRAPHCALLS.BACKGROUND.MENU GRAPHCALLS.MENU GRAPHCALLS.MIDDLE.MENU GRAPHCALLS.SOURCE.MENU)) (PUTPROPS GRAPHCALLS.BACKGROUND.MENU MENU (create MENU ITEMS _ (QUOTE (("UNBREAK" (UNBREAK) "UnBreak everything.") ("RESET" (for GRAPHNODE in (fetch (GRAPH GRAPHNODES) of (WINDOWPROP WINDOW ( QUOTE GRAPH))) when (with GRAPHNODE GRAPHNODE (FIXP NODEBORDER)) do (with GRAPHNODE GRAPHNODE (SETQ NODEBORDER NIL)) finally (REDISPLAYW WINDOW))))))) (PUTPROPS GRAPHCALLS.MENU MENU (create MENU ITEMS _ (QUOTE (("?=" (PROG (ARGS) (GRAPHCALLS.PRINT (COND ((SETQ ARGS (NLSETQ (SMARTARGLIST FN T))) (BQUOTE ((\, FN) (\,@ (CAR ARGS)))))) "Args not availiable!")) "The function's argument list") ("HELP" (GRAPHCALLS.PRINT (NLSETQ (PROGN ( IRM.LOOKUP FN) FN)) "Help not available!") "HelpSys information") ("FNTYP" (GRAPHCALLS.PRINT (FNTYP FN ) "Fn's type not found") "Get the FNTYP of the function") ("WHERE" (GRAPHCALLS.PRINT (WHEREIS FN NIL T ) "File not found!") "Do a WHEREIS on function") ("EDIT" (GRAPHCALLS.PRINT (NLSETQ (PROG1 (EDITDEF FN (QUOTE FNS)) (TOTOPW WINDOW))) "Nothing to EDIT!") "Edit the function") ("TYPEIN" (BKSYSBUF FN T) "BKSYSBUF the function name") ("BREAK" (GRAPHCALLS.PRINT (APPLY* (FUNCTION BREAK) FN)) "Break this function" (SUBITEMS ("BREAKIN" (GRAPHCALLS.BREAKIN GRAPHNODE WINDOW (FUNCTION BREAK)) "Break this fn in another fn") ("UNBREAKIN" (GRAPHCALLS.BREAKIN GRAPHNODE WINDOW (FUNCTION UNBREAK)) "UnBreak this fn in another fn") ("UNBREAK" (GRAPHCALLS.PRINT (APPLY* (FUNCTION UNBREAK) FN)) "UnBreak this function") ("TRACE" (GRAPHCALLS.PRINT (APPLY* (FUNCTION TRACE) FN)) "Trace this function") ("TRACEIN" (GRAPHCALLS.BREAKIN GRAPHNODE WINDOW (FUNCTION TRACE)) "Trace this fn in another fn"))) ("CCODE" (GRAPHCALLS.PRINT (COND ((CCODEP FN) (GRAPHCALLS.INSPECTCODE FN))) "Not compiled code!") "Inspect this function's ccode") ("GRAPH" (GRAPHCALLS.PRINT (APPLY ( FUNCTION GRAPHCALLS) (BQUOTE ((\, FN) :STREAM NIL :DEPTH (\, (with GRAPHCALLS.OPTIONS GRAPHCALLS.DEFAULT.OPTIONS :DEPTH)) (\,@ (APPEND (STREAMPROP STREAM (QUOTE OPTIONS))))))) "Nothing to graph!") "Graph this function's calls") ("FRAME" (GRAPHCALLS.INSPECT.FRAME FN WINDOW) "Inspect this function's vars" (SUBITEMS (">FRAME" (GRAPHCALLS.INSPECT.FRAME FN WINDOW T) "Inspect this sub-graph's freevars") (" " T))) (CLOSEW WINDOW)) "Enter a new function to be graphed, prompts for input.") (Include (GRAPHCALLSW.INCLUDE T) "Specify which functions (by file or function) to include (overide EXCLUDE).") (Exclude ( GRAPHCALLSW.INCLUDE NIL) "Specify which functions (by file or function) to exclude from the graph.") ( Clear (GRAPHCALLSW.CLEAR) "Clear the current settings on the command window to the defaults.") ((\, ( MMENU.BOLDITEM "Graph" MENUFONT)) (GRAPHCALLSW.DOIT) "Graph the function with the selected settings.") )) TITLE _ "Command" CENTERFLG _ T)) (PUTPROPS GRAPHCALLSW.FILTER.MENU MENU (create MENU ITEMS _ (QUOTE ((WhereIs WHEREIS "Only graph functions that WHEREIS can locate.") (FGetD FGETD "Only graph functions that are defined." ) (ExprP EXPRP "Only graph functions that are not compiled.") (CCodeP CCODEP "Only graph functions that are compiled.") (No\ NO\ "Only graph functions that do not have an initial slash in their name."))) TITLE _ "Filters" CENTERFLG _ T WHENSELECTEDFN _ (FUNCTION MMENU.SELECTEDFN))) (PUTPROPS GRAPHCALLSW.FLAGS.MENU MENU (create MENU ITEMS _ (QUOTE ((Invert (:ADVISE INVERT) "ADVISE the graphed functions to invert their node when called.") (Count (:ADVISE COUNT) "ADVISE the graphed functions to keep a count of calls after their node.") (Shape (:SHAPE T) "Shape the graph window to fit the graph.") (Edit (:ALLOWEDITFLG T) "Make the graph editable by passing the ALLOWEDITFLG to SHOWGRAPH.") (Prin2 (:PRIN2FLG T) "Display the package names."))) TITLE _ "Flags" CENTERFLG _ T WHENSELECTEDFN _ (FUNCTION MMENU.SELECTEDFN))) (PUTPROPS GRAPHCALLSW.FORMAT.MENU MENU (create MENU ITEMS _ (QUOTE ((Lattice LATTICE "Specify the LATTICE format in LAYOUTGRAPH.") (Reverse REVERSE "Specify the REVERSE format in LAYOUTGRAPH.") (Vertical VERTICAL "Specify the VERTICAL format in LAYOUTGRAPH.") (ArgList (:NAMEFN GRAPHCALLS.ARGLIST) "Use the function and its arguments as the node label.") (WhereIs (:NAMEFN GRAPHCALLS.WHEREIS) "Use the function and the file(s) where it is found as the node label."))) TITLE _ "Format" CENTERFLG _ T WHENSELECTEDFN _ (FUNCTION MMENU.SELECTEDFN))) (PUTPROPS GRAPHCALLSW.DEPTH.MENU MENU (create MENU ITEMS _ (QUOTE (0 1 2 3 4 5 6 7 8 9 10)) TITLE _ "Depth" WHENSELECTEDFN _ (FUNCTION MMENU.MARKITEM) MENUUSERDATA _ (BQUOTE (VALUE (\, (with GRAPHCALLS.OPTIONS GRAPHCALLS.DEFAULT.OPTIONS :DEPTH)))) CENTERFLG _ T)) (PUTPROPS GRAPHCALLSW.DELAY.MENU MENU (create MENU ITEMS _ (QUOTE (0 1 2 3 4 5 6 7 8 9 10)) TITLE _ "Delay" WHENSELECTEDFN _ (FUNCTION (LAMBDA (ITEM MENU KEY) (MMENU.MARKITEM ITEM MENU KEY) (LISTPUT GRAPHCALLS.DEFAULT.OPTIONS :DELAY (TIMES 100 ITEM)))) MENUUSERDATA _ (QUOTE (VALUE 5)) CENTERFLG _ T)) (ADDTOVAR UNSAFE.TO.MODIFY.FNS ERROR ERRORX RAID RECLAIM \ALLOCBLOCK \MOVEBYTES \MP.ERROR \STOP.DRIBBLE?) (ADDTOVAR BackgroundMenuCommands (GraphCalls (QUOTE (GRAPHCALLSW)) "Open the GraphCalls Command Window")) (RPAQQ BackgroundMenu NIL) (PUTPROPS GRAPHCALLS COPYRIGHT ("Stanford University" 1984 1985 1986 1987 1988)) NIL