(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 9-Sep-94 13:54:50" ("compiled on " {DSK}lispusers>MAKEGRAPH.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED " 3-May-88 11:52:41" {ERINYES}MEDLEY>MAKEGRAPH.;1 15546 previous date%: "10-Jul-85 19:33:14" {ERINYES}KOTO>LISPUSERS>MAKEGRAPH.;1) MAKE.GRAPH :D8 (P 4 MBF P 3 LBF P 2 NEW.WINDOW P 1 GRAPH P 0 TTL I 8 DEPTH I 7 TOPJUSTIFYFLG I 6 MIDDLEBUTTONFN I 5 LEFTBUTTONFN I 4 CONTEXT I 3 ROOTS I 2 GRAPH.SPECIFICATION I 1 TITLE I 0 WINDOW)  PEg[Fg\AoXBCDG Yd@ggG ZdgA JgB JgC JgD JgK JgL JgG JgG J(159 PUTWINDOWPROP 146 PUTWINDOWPROP 133 PUTWINDOWPROP 121 PUTWINDOWPROP 109 PUTWINDOWPROP 97 PUTWINDOWPROP 85 PUTWINDOWPROP 73 PUTWINDOWPROP 60 SHOWGRAPH 39 MAKE.GRAPH.CONSTRUCT) (152 DEPTH 139 TOPJUSTIFYFLG 127 MIDDLEBUTTONFN 115 LEFTBUTTONFN 103 CONTEXT 91 ROOTS 79 GRAPH.SPECIFICATION 67 TITLE 52 MAKE.GRAPH.INTERNAL.MIDDLEBUTTONFN 47 MAKE.GRAPH.INTERNAL.LEFTBUTTONFN 19 MAKE.GRAPH.MIDDLEBUTTONFN 10 MAKE.GRAPH.LEFTBUTTONFN) ( 28 "A graph") MAKE.GRAPH.ACCESS :D8 (I 2 CONTEXT I 1 ACCESS.SPEC I 0 DATUM) A (5 EVAL) NIL () MAKE.GRAPH.ACCESS.NODES :D8 (P 8 NEW.DATUM P 7 SUB.SPEC P 3 NEW.DATUM P 2 NEW.NODES P 1 STATE.SPEC P 0 DATUM.SPEC I 2 CONTEXT I 1 DATUM I 0 NODES.SPECS) @@X@YHdgd dg80@+dAOB [dOB MLh^L&Ng10@dOAB \M L^]N ]LHg@AB Zd J0AHB dOdIB MLh^L&N(200 MAKE.GRAPH.ACCESS 183 MAKE.GRAPH.ACCESS 170 INSPECT 163 MAKE.GRAPH.ACCESS.NODES 139 LAST 117 MAKE.GRAPH.ACCESS.NODES 69 MAKE.GRAPH.ACCESS 57 MAKE.GRAPH.ACCESS 25 EVAL) (150 TRACE 94 UNION 32 LIST 16 EVAL) () MAKE.GRAPH.ALREADY.SEENP :D8 (L (1 GRAPHNODES 0 NODE)) %A!HhY@J@JIiHXNIL NIL () MAKE.GRAPH.CONSTRUCT :D8 (P 3 ROOT P 2 IROOTS P 1 ROOTS P 0 GRAPHNODES I 3 DEPTH I 2 CONTEXT I 1 INITIAL.ROOTS I 0 GRAPH.SPECIFICATION) Ihhhh"Ah ZdHI J[H IK KB@HJC JZ(65 MAKE.GRAPH.CONSTRUCT.BELOW 52 TCONC 43 MAKE.GRAPH.ALREADY.SEENP 32 LAYOUTLATTICE 27 DREVERSE 15 \APPEND2) NIL () MAKE.GRAPH.CONSTRUCT.BELOW :D8 (P 17 SON P 13 ROOTS.SPEC P 12 SON.REFERENCES P 11 SONS.SPEC P 10 SONS P 9 REFERENCE P 8 FONT P 7 FONT.SPEC P 6 LABEL P 5 LABEL.SPEC P 4 GRAPHNODE P 3 NODE.TYPE.DESCRIPTION P 2 NODE.TYPE P 1 DATUM P 0 ALREADY.SEEN I 5 DEPTH I 4 ROOTS I 3 GRAPHNODES I 2 GRAPH.SPECIFICATION I 1 CONTEXT I 0 NODE) - @Y@ZBJ'[dJo @C Xd@@@_Kg']dIMA o^Kg'_d IOA _Ohdd`hdddON`h\CL HLi7Ej2EE &Kg'_Kg'_DOIA OIA _@O-d_"ABCDE3Ek _O Oh_ O&_O _LO (295 DREVERSE 250 MAKE.GRAPH.CONSTRUCT.BELOW 218 MAKE.GRAPH.ACCESS.NODES 208 \NCONC2 203 MAKE.GRAPH.ACCESS.NODES 170 \FZEROP 137 TCONC 92 MAKE.GRAPH.ACCESS 64 MAKE.GRAPH.ACCESS 34 MAKE.GRAPH.ALREADY.SEENP 25 ERROR) (189 ROOTS 178 SONS 116 DEFAULT.GRAPH.NODEBORDER 104 DEFAULT.GRAPH.NODELABELSHADE 77 FONT 52 LABEL) ( 70 "???" 20 "unrecognized state") MAKE.GRAPH.DATUM :D8 (L (0 NODE)) @NIL NIL () MAKE.GRAPH.EXAMPLE.1 :D8 (F 0 MAKE.GRAPH.SPEC.SPEC) P (5 MAKE.GRAPH.SHOW.SPEC) NIL () MAKE.GRAPH.EXAMPLE.2 :D8 (I 0 DEPTH F 0 MAKE.GRAPH.LIST.SPEC) P@ (6 MAKE.GRAPH.SHOW.LIST) NIL () MAKE.GRAPH.FATHER :D8 (P 3 ID P 2 FATHERS P 1 GRAPHNODES P 0 GRAPH I 1 WINDOW I 0 NODE) 8`Ag dY@d d[I\h]KMiL(13 GETWINDOWUSERPROP) (8 GRAPH) () MAKE.GRAPH.FIND.ROOTS :D8 (P 3 ROOT P 2 IROOTS P 1 NON-ROOTS P 0 NODES I 3 DEPTH I 2 CONTEXT I 1 INITIAL.ROOTS I 0 GRAPH.SPECIFICATION) 3hhhh"Ah ZdHI J[B@HJIC JZ(43 MAKE.GRAPH.FIND.ROOTS.BELOW 27 LDIFFERENCE 15 \APPEND2) NIL () MAKE.GRAPH.FIND.ROOTS.BELOW :D8 (P 11 SON P 7 ROOTS.SPEC P 6 SON.REFERENCES P 5 SONS.SPEC P 4 SONS P 3 REFERENCE P 2 STATE.DESCRIPTION P 1 STATE P 0 DATUM I 6 DEPTH I 5 NON-ROOTS I 4 ROOTS I 3 NODES I 2 GRAPH.SPECIFICATION I 1 CONTEXT I 0 NODE) @X@YBI'ZdIo @C ?Fj:FF .C@ Jg']Jg'_DOHA hHA @ L:d_EO OABCDEF3Fk _O Oh_O&_O(148 MAKE.GRAPH.FIND.ROOTS.BELOW 126 TCONC 106 MAKE.GRAPH.ACCESS.NODES 97 \NCONC2 92 MAKE.GRAPH.ACCESS.NODES 60 TCONC 51 \FZEROP 34 MAKE.GRAPH.NODE.ALREADY.SEENP 25 ERROR) (77 ROOTS 67 SONS) ( 20 "unrecognized state") MAKE.GRAPH.INTERNAL.LEFTBUTTONFN :D8 (P 3 FN P 2 REG P 1 Y P 0 X I 1 WINDOW I 0 NODE) ZPA XA YhA ZdHI Ag @AlLAg [dAkKA (87 MAKE.GRAPH.INTERNAL.TITLE.FN 72 GETWINDOWUSERPROP 52 GETWINDOWUSERPROP 39 INSIDEP 30 DSPCLIPPINGREGION 23 \INSUREWINDOW 15 LASTMOUSEY 8 LASTMOUSEX) (67 TITLE.LEFTBUTTONFN 47 LEFTBUTTONFN) () MAKE.GRAPH.INTERNAL.MIDDLEBUTTONFN :D8 (P 3 FN P 2 REG P 1 Y P 0 X I 1 WINDOW I 0 NODE) ZPA XA YhA ZdHI Ag @AlLAg [dAkKA (87 MAKE.GRAPH.INTERNAL.TITLE.FN 72 GETWINDOWUSERPROP 52 GETWINDOWUSERPROP 39 INSIDEP 30 DSPCLIPPINGREGION 23 \INSUREWINDOW 15 LASTMOUSEY 8 LASTMOUSEX) (67 TITLE.MIDDLEBUTTONFN 47 MIDDLEBUTTONFN) () MAKE.GRAPH.INTERNAL.TITLE.FN :D8 (P 1 COMMAND P 0 COMMAND.MENU I 0 WINDOW) G Xd Yd1dg@ g@g h(67 ERROR 61 MAKE.GRAPH.SHOW.SPEC 56 GETWINDOWUSERPROP 35 MAKE.GRAPH.UPDATE.WINDOW 14 MENU 7 MAKE.GRAPH.INTERNAL.TITLE.FN.MENU) (51 GRAPH.SPECIFICATION 42 SHOW.GRAPH.SPEC 26 UPDATE) () MAKE.GRAPH.INTERNAL.TITLE.FN.MENU :D8 (F 2 MAKE.GRAPH.INTERNAL.TITLE.FN.MENU) GRD`dodi didg dgjdndhHdI cNIL (42 DEFAULTMENUHELDFN 33 CLRPROMPT 7 |MENUTYPE#|) ( 14 (UPDATE SHOW.GRAPH.SPEC)) MAKE.GRAPH.LABEL :D8 (L (0 GRAPHNODE)) @NIL NIL () MAKE.GRAPH.LEFTBUTTONFN :D8 (P 5 DY P 4 DX P 3 CY P 2 CX P 1 CR P 0 POSITION I 1 WINDOW I 0 GRAPHNODE) @l@`ljjkjn` o` ` o` @ ` ` o` @ ` `@XhA YdIlZIIl[JH\KH]ALM h(199 SCROLLBYREPAINTFN 156 DSPCLIPPINGREGION 149 \INSUREWINDOW 134 PRIN1 124 MAKE.GRAPH.STATE 118 PRIN1 103 TERPRI 93 PRIN1 83 MAKE.GRAPH.LABEL 77 PRIN1 62 TERPRI 52 PRIN1 37 TERPRI) (129 PROMPTWINDOW 113 PROMPTWINDOW 98 PROMPTWINDOW 88 PROMPTWINDOW 72 PROMPTWINDOW 57 PROMPTWINDOW 47 PROMPTWINDOW 32 PROMPTWINDOW 13 \LASTKEYSTATE) ( 108 " Node state: " 67 " Node label: " 42 "Left button selection:") MAKE.GRAPH.MAKE.SUBGRAPH :D8 (I 1 WINDOW I 0 GRAPHNODE) lhA (o Ag @ @ hAg Ag Ag Ag Ag (105 MAKE.GRAPH 99 GETWINDOWUSERPROP 88 GETWINDOWUSERPROP 77 GETWINDOWUSERPROP 66 GETWINDOWUSERPROP 55 GETWINDOWUSERPROP 41 MAKE.GRAPH.STATE 35 MAKE.GRAPH.DATUM 29 GETWINDOWUSERPROP 18 CONCAT 6 \INSUREWINDOW) (94 DEPTH 83 TOPJUSTIFYFLG 72 MIDDLEBUTTONFN 61 LEFTBUTTONFN 50 CONTEXT 24 GRAPH.SPECIFICATION) ( 13 " >") MAKE.GRAPH.MIDDLEBUTTONFN :D8 (P 1 COMMAND P 0 COMMAND.MENU I 1 WINDOW I 0 GRAPHNODE) _@\l@`ljjkj@  Xd Ydd-dg@ g@A h(91 ERROR 85 MAKE.GRAPH.MAKE.SUBGRAPH 69 INSPECT 64 MAKE.GRAPH.DATUM 44 MENU 37 MAKE.GRAPH.MIDDLEBUTTONFN.MENU 28 INSPECT) (76 MAKE.SUBGRAPH 55 INSPECT 9 \LASTKEYSTATE) () MAKE.GRAPH.MIDDLEBUTTONFN.MENU :D8 (F 2 MAKE.GRAPH.MIDDLEBUTTONFN.MENU) GRD`dodi didg dgjdndhHdI cNIL (42 DEFAULTMENUHELDFN 33 CLRPROMPT 7 |MENUTYPE#|) ( 14 (INSPECT MAKE.SUBGRAPH)) MAKE.GRAPH.NODE.ALREADY.SEENP :D8 (L (1 NODES 0 NODE)) "AHhY@I@IiHXNIL NIL () MAKE.GRAPH.NODE.SONS :D8 (L (0 DATUM)) 1@dgdgih@gh@ghNIL (43 VALUE 31 NODE.SPECS 15 ROOTS 7 SONS) () MAKE.GRAPH.NODE.SPECS.LABEL :D8 (L (0 DATUM)) @@dggdggdgggggNIL (61 SPEC.PAIR 55 TRACE 48 TRACE 42 UNION 35 UNION 28 LIST 21 LIST 14 EVAL 7 EVAL) () MAKE.GRAPH.NODE.SPECS.SONS :D8 (L (0 DATUM)) @dg@ghdg#0@dgIHhZH&Jdg#0@dgIHhZH&Jg@gh@g@ghNIL (141 NEW.STATE.SPEC 132 NEW.DATUM.SPEC 121 NODE.SPECS 111 TRACE 87 NODE.SPECS 70 UNION 45 NODE.SPEC 28 LIST 18 VALUE 7 EVAL) () MAKE.GRAPH.PROP.PAIRS :D8 (L (0 PLIST)) 0@XIdhZH&JNIL NIL () MAKE.GRAPH.SHOW.LIST :D8 (P 1 SPEC.SPEC P 0 ROOTS I 1 DEPTH I 0 OBJECT F 2 MAKE.GRAPH.LIST.SPEC) " @ghXhoRHhddiA (31 MAKE.GRAPH) (8 OBJECT) ( 18 "A list") MAKE.GRAPH.SHOW.SPEC :D8 (P 1 SPEC.SPEC P 0 ROOTS I 0 SPEC F 2 MAKE.GRAPH.SPEC.SPEC) ! @ghXhoRHhddi (30 MAKE.GRAPH) (8 GRAPH.SPEC) ( 18 "A graph specification") MAKE.GRAPH.NODE.TYPE :D8 (L (0 GRAPHNODE)) @NIL NIL () MAKE.GRAPH.STATE :D8 (I 0 GRAPHNODE) @ (5 MAKE.GRAPH.NODE.TYPE) NIL () MAKE.GRAPH.UPDATE.WINDOW :D8 (I 0 WINDOW) ^@d (@g @g @g @g @g @g @g (91 MAKE.GRAPH 85 GETWINDOWUSERPROP 74 GETWINDOWUSERPROP 63 GETWINDOWUSERPROP 52 GETWINDOWUSERPROP 41 GETWINDOWUSERPROP 30 GETWINDOWUSERPROP 19 GETWINDOWUSERPROP 6 \INSUREWINDOW) (80 DEPTH 69 TOPJUSTIFYFLG 58 MIDDLEBUTTONFN 47 LEFTBUTTONFN 36 CONTEXT 25 ROOTS 14 GRAPH.SPECIFICATION) () (PRETTYCOMPRINT MAKEGRAPHCOMS) (RPAQQ MAKEGRAPHCOMS ((FNS MAKE.GRAPH MAKE.GRAPH.ACCESS MAKE.GRAPH.ACCESS.NODES MAKE.GRAPH.ALREADY.SEENP MAKE.GRAPH.CONSTRUCT MAKE.GRAPH.CONSTRUCT.BELOW MAKE.GRAPH.DATUM MAKE.GRAPH.EXAMPLE.1 MAKE.GRAPH.EXAMPLE.2 MAKE.GRAPH.FATHER MAKE.GRAPH.FIND.ROOTS MAKE.GRAPH.FIND.ROOTS.BELOW MAKE.GRAPH.INTERNAL.LEFTBUTTONFN MAKE.GRAPH.INTERNAL.MIDDLEBUTTONFN MAKE.GRAPH.INTERNAL.TITLE.FN MAKE.GRAPH.INTERNAL.TITLE.FN.MENU MAKE.GRAPH.LABEL MAKE.GRAPH.LEFTBUTTONFN MAKE.GRAPH.MAKE.SUBGRAPH MAKE.GRAPH.MIDDLEBUTTONFN MAKE.GRAPH.MIDDLEBUTTONFN.MENU MAKE.GRAPH.NODE.ALREADY.SEENP MAKE.GRAPH.NODE.SONS MAKE.GRAPH.NODE.SPECS.LABEL MAKE.GRAPH.NODE.SPECS.SONS MAKE.GRAPH.PROP.PAIRS MAKE.GRAPH.SHOW.LIST MAKE.GRAPH.SHOW.SPEC MAKE.GRAPH.NODE.TYPE MAKE.GRAPH.STATE MAKE.GRAPH.UPDATE.WINDOW) (FILES (FROM VALUEOF LISPUSERSDIRECTORIES) GRAPHER) (VARS (MAKE.GRAPH.INTERNAL.TITLE.FN.MENU) MAKE.GRAPH.LIST.SPEC (MAKE.GRAPH.MIDDLEBUTTONFN.MENU) MAKE.GRAPH.SPEC.SPEC))) (FILESLOAD (FROM VALUEOF LISPUSERSDIRECTORIES) GRAPHER) (RPAQQ MAKE.GRAPH.INTERNAL.TITLE.FN.MENU NIL) (RPAQQ MAKE.GRAPH.LIST.SPEC (OBJECT (DOC (ANY LISP OBJECT) LABEL (COND ((LISTP DATUM) "( )") (T DATUM) ) SONS ((COND ((LISTP DATUM) DATUM) (T NIL)) (QUOTE OBJECT))))) (RPAQQ MAKE.GRAPH.MIDDLEBUTTONFN.MENU NIL) (RPAQQ MAKE.GRAPH.SPEC.SPEC (GRAPH.SPEC (DOC (A PLIST OF STATE.SPECS) LABEL (QUOTE GRAPH.SPEC) SONS (( MAKE.GRAPH.PROP.PAIRS DATUM) (QUOTE STATE.SPEC))) STATE.SPEC (DOC (A PLIST OF PROPERTIES) LABEL (CAR DATUM) SONS ((MAKE.GRAPH.PROP.PAIRS (CADR DATUM)) (QUOTE PROPERTY))) PROPERTY (DOC (A PROPERTY, EG. DOC, LABEL, FONT, SONS, ROOTS) LABEL (CAR DATUM) SONS (EVAL (MAKE.GRAPH.NODE.SONS DATUM))) NODE.SPECS (DOC (A SPEC OF DATUM/STATE PAIRS) LABEL (MAKE.GRAPH.NODE.SPECS.LABEL DATUM) SONS (EVAL ( MAKE.GRAPH.NODE.SPECS.SONS DATUM))) NODE.SPEC (DOC (A SPEC OF A SINGLE DATUM/STATE PAIR) LABEL (QUOTE NODE.SPEC) SONS (LIST ((CAR DATUM) (QUOTE NEW.DATA.SPEC)) ((CADR DATUM) (QUOTE NEW.STATE.SPEC)))) NEW.DATA.SPEC (DOC (THE NEW.DATUM.SPEC) LABEL (QUOTE DATA) SONS ((LIST DATUM) (QUOTE VALUE))) NEW.DATUM.SPEC (DOC (THE NEW.DATUM.SPEC) LABEL (QUOTE DATUM) SONS ((LIST DATUM) (QUOTE VALUE))) NEW.STATE.SPEC (DOC (THE NEW.STATE.SPEC) LABEL (QUOTE STATE) SONS ((LIST DATUM) (QUOTE VALUE))) VALUE (DOC (A VALUE) LABEL DATUM))) (PUTPROPS MAKEGRAPH COPYRIGHT ("Xerox Corporation" 1984 1985 1988)) NIL