(FILECREATED "10-Jul-85 19:34:31" ("compiled on " {PHYLUM}MAKEGRAPH>MAKEGRAPH.;2) "19-Mar-85 14:34:17" tcompl'd in "INTERLISP-D 19-Jun-85 ..." dated "19-Jun-85 10:24:28") (FILECREATED "10-Jul-85 19:33:14" {PHYLUM}MAKEGRAPH>MAKEGRAPH.;2 20155 changes to: (FNS MAKE.GRAPH.CONSTRUCT.BELOW MAKE.GRAPH.NODE.TYPE MAKE.GRAPH.STATE) (VARS MAKEGRAPHCOMS) previous date: "19-May-84 09:27:46" {EROS}MAKEGRAPH.;7) MAKE.GRAPH D1 (P 4 MBF P 3 LBF P 2 NEW.WINDOW P 1 GRAPH P 0 TTL I 10Q 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) v PEµg[Fµg\AµoXBCDGYd@ggG ZdgAJgBJgCJgDJgKJgLJgGJgGJ(162Q PUTWINDOWPROP 151Q PUTWINDOWPROP 140Q PUTWINDOWPROP 130Q PUTWINDOWPROP 120Q PUTWINDOWPROP 110Q PUTWINDOWPROP 100Q PUTWINDOWPROP 70Q PUTWINDOWPROP 57Q SHOWGRAPH 40Q MAKE.GRAPH.CONSTRUCT) (155Q DEPTH 144Q TOPJUSTIFYFLG 134Q MIDDLEBUTTONFN 124Q LEFTBUTTONFN 114Q CONTEXT 104Q ROOTS 74Q GRAPH.SPECIFICATION 64Q TITLE 51Q MAKE.GRAPH.INTERNAL.MIDDLEBUTTONFN 46Q MAKE.GRAPH.INTERNAL.LEFTBUTTONFN 17Q MAKE.GRAPH.MIDDLEBUTTONFN 10Q MAKE.GRAPH.LEFTBUTTONFN) ( 27Q "A graph") MAKE.GRAPH.ACCESS D1 (I 2 CONTEXT I 1 ACCESS.SPEC I 0 DATUM) A (3 EVAL) NIL () MAKE.GRAPH.ACCESS.NODES D1 (P 10Q 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@YHdgð•¿d gð²30@°'dAOB[dOB¼MµLh^L&½µÙNHdgð².¿0@°dOAB\–MµL^]¿µçN ]L°ógðž@ABZd J0AHB°dOdIB¼MµLh^L&½µãN(255Q MAKE.GRAPH.ACCESS 236Q MAKE.GRAPH.ACCESS 223Q INSPECT 216Q MAKE.GRAPH.ACCESS.NODES 174Q LAST 150Q MAKE.GRAPH.ACCESS.NODES 71Q MAKE.GRAPH.ACCESS 57Q MAKE.GRAPH.ACCESS 25Q EVAL) (204Q TRACE 122Q UNION 31Q LIST 16Q EVAL) () MAKE.GRAPH.ALREADY.SEENP D1 (L (1 GRAPHNODES 0 NODE)) %A!HµhYº@Jðš@Jð”IµiHX°ãNIL NIL () MAKE.GRAPH.CONSTRUCT D1 (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) <hhhh"A Zdµ HI [H ³IK ¿KB@HJC ¿JZ°Ö(64Q MAKE.GRAPH.CONSTRUCT.BELOW 51Q TCONC 42Q MAKE.GRAPH.ALREADY.SEENP 32Q LAYOUTLATTICE 27Q DREVERSE 14Q \APPEND2) NIL () MAKE.GRAPH.CONSTRUCT.BELOW D1 (P 21Q SON P 15Q ROOTS.SPEC P 14Q SON.REFERENCES P 13Q SONS.SPEC P 12Q SONS P 11Q REFERENCE P 10Q 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 F 22Q DEFAULT.GRAPH.NODELABELSHADE F 23Q DEFAULT.GRAPH.NODEBORDER) à @Y@ZBJ [d¨Jo ¿@C Xd•@@€@_Kg ]d–IMAƒo^Kg _d´ IOA_OhddW$hdddONW&h\CL HŸLi°1Ejð³,E•E ³"Kg _µKg _šDOIA OIA_¿@O°3d_"ABCDEd¥d¡´EkÙ _¿Oµ Oh_ ‚O&_¿µÎO _¿LO ¿°(423Q DREVERSE 350Q MAKE.GRAPH.CONSTRUCT.BELOW 302Q MAKE.GRAPH.ACCESS.NODES 272Q \NCONC2 267Q MAKE.GRAPH.ACCESS.NODES 254Q LISTGET 241Q LISTGET 230Q \FZEROP 171Q TCONC 124Q MAKE.GRAPH.ACCESS 110Q LISTGET 73Q MAKE.GRAPH.ACCESS 62Q LISTGET 37Q MAKE.GRAPH.ALREADY.SEENP 30Q ERROR 15Q LISTGET) (251Q ROOTS 236Q SONS 105Q FONT 57Q LABEL) ( 100Q "???" 25Q "unrecognized state") MAKE.GRAPH.DATUM D1 (L (0 NODE)) @NIL NIL () MAKE.GRAPH.EXAMPLE.1 D1 (F 0 MAKE.GRAPH.SPEC.SPEC) P (3 MAKE.GRAPH.SHOW.SPEC) NIL () MAKE.GRAPH.EXAMPLE.2 D1 (I 0 DEPTH F 0 MAKE.GRAPH.LIST.SPEC) P@ (4 MAKE.GRAPH.SHOW.LIST) NIL () MAKE.GRAPH.FATHER D1 (P 3 ID P 2 FATHERS P 1 GRAPHNODES P 0 GRAPH I 1 WINDOW I 0 NODE) 4`Ag dY@d´d[I\µh]Kð”MµiL°í(11Q GETWINDOWUSERPROP) (6 GRAPH) () MAKE.GRAPH.FIND.ROOTS D1 (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) ,hhhh"A Zdµ HI [B@HJIC ¿JZ°æ(44Q MAKE.GRAPH.FIND.ROOTS.BELOW 27Q LDIFFERENCE 14Q \APPEND2) NIL () MAKE.GRAPH.FIND.ROOTS.BELOW D1 (P 13Q 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 Zd¨Io ¿@C ³7Fjð³2F•F ³(C@ ¿Jg ]µJg _´DOHA hHA¼@L°>d_¿EO ¿OABCDEFd¥d¡´FkÙ _¿Oµ Oh_‚O&_¿µÃO°š(213Q MAKE.GRAPH.FIND.ROOTS.BELOW 157Q TCONC 135Q MAKE.GRAPH.ACCESS.NODES 126Q \NCONC2 123Q MAKE.GRAPH.ACCESS.NODES 107Q LISTGET 75Q LISTGET 65Q TCONC 56Q \FZEROP 37Q MAKE.GRAPH.NODE.ALREADY.SEENP 30Q ERROR 15Q LISTGET) (104Q ROOTS 72Q SONS) ( 25Q "unrecognized state") MAKE.GRAPH.INTERNAL.LEFTBUTTONFN D1 (P 3 FN P 2 REG P 1 Y P 0 X I 1 WINDOW I 0 NODE) EPA XA YhA É ZdHIŸAg ¼@AlLAg [d•AkKA (102Q MAKE.GRAPH.INTERNAL.TITLE.FN 65Q GETWINDOWUSERPROP 45Q GETWINDOWUSERPROP 35Q INSIDEP 26Q DSPCLIPPINGREGION 21Q \INSUREWINDOW 13Q LASTMOUSEY 6 LASTMOUSEX) (62Q TITLE.LEFTBUTTONFN 42Q LEFTBUTTONFN) () MAKE.GRAPH.INTERNAL.MIDDLEBUTTONFN D1 (P 3 FN P 2 REG P 1 Y P 0 X I 1 WINDOW I 0 NODE) EPA XA YhA É ZdHIŸAg ¼@AlLAg [d•AkKA (102Q MAKE.GRAPH.INTERNAL.TITLE.FN 65Q GETWINDOWUSERPROP 45Q GETWINDOWUSERPROP 35Q INSIDEP 26Q DSPCLIPPINGREGION 21Q \INSUREWINDOW 13Q LASTMOUSEY 6 LASTMOUSEX) (62Q TITLE.MIDDLEBUTTONFN 42Q MIDDLEBUTTONFN) () MAKE.GRAPH.INTERNAL.TITLE.FN D1 (P 1 COMMAND P 0 COMMAND.MENU I 0 WINDOW) 3 Xd Ydd´#dgð–¿@ °gðš@g ‚h(57Q ERROR 53Q MAKE.GRAPH.SHOW.SPEC 50Q GETWINDOWUSERPROP 32Q MAKE.GRAPH.UPDATE.WINDOW 12Q MENU 5 MAKE.GRAPH.INTERNAL.TITLE.FN.MENU) (45Q GRAPH.SPECIFICATION 37Q SHOW.GRAPH.SPEC 23Q UPDATE) () MAKE.GRAPH.INTERNAL.TITLE.FN.MENU D1 (F 2 MAKE.GRAPH.INTERNAL.TITLE.FN.MENU) @Rµ=`do¿di¿di¿dg ¿dg¿jdnÿdhHdI ¿cNIL (43Q DEFAULTMENUHELDFN 34Q CLRPROMPT 5 MENUTYPE#) ( 13Q (UPDATE SHOW.GRAPH.SPEC)) MAKE.GRAPH.LABEL D1 (L (0 GRAPHNODE)) @NIL NIL () MAKE.GRAPH.LEFTBUTTONFN D1 (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@åjð²G` o` ` o` @ ` ` o` @ ` `@XhA É YdIlÛØZIIlÛØ[JHÙ\KHÙ]ALMh(221Q SCROLLBYREPAINTFN 150Q DSPCLIPPINGREGION 143Q \INSUREWINDOW 126Q PRIN1 120Q MAKE.GRAPH.STATE 114Q PRIN1 102Q TERPRI 74Q PRIN1 66Q MAKE.GRAPH.LABEL 62Q PRIN1 50Q TERPRI 42Q PRIN1 30Q TERPRI) (123Q PROMPTWINDOW 111Q PROMPTWINDOW 77Q PROMPTWINDOW 71Q PROMPTWINDOW 57Q PROMPTWINDOW 45Q PROMPTWINDOW 37Q PROMPTWINDOW 25Q PROMPTWINDOW 11Q \EM.KBDAD2) ( 106Q " Node state: " 54Q " Node label: " 34Q "Left button selection:") MAKE.GRAPH.MAKE.SUBGRAPH D1 (I 1 WINDOW I 0 GRAPHNODE) IhA É(o Ag @ @ hAg Ag Ag Ag Ag (106Q MAKE.GRAPH 102Q GETWINDOWUSERPROP 73Q GETWINDOWUSERPROP 64Q GETWINDOWUSERPROP 55Q GETWINDOWUSERPROP 46Q GETWINDOWUSERPROP 34Q MAKE.GRAPH.STATE 30Q MAKE.GRAPH.DATUM 24Q GETWINDOWUSERPROP 15Q CONCAT 4 \INSUREWINDOW) (77Q DEPTH 70Q TOPJUSTIFYFLG 61Q MIDDLEBUTTONFN 52Q LEFTBUTTONFN 43Q CONTEXT 21Q GRAPH.SPECIFICATION) ( 12Q " >") MAKE.GRAPH.MIDDLEBUTTONFN D1 (P 1 COMMAND P 0 COMMAND.MENU I 1 WINDOW I 0 GRAPHNODE) C@´@`Èl@åjð”@ Xd Ydd´ dgð˜¿@ gð•@A ‚h(77Q ERROR 73Q MAKE.GRAPH.MAKE.SUBGRAPH 60Q INSPECT 55Q MAKE.GRAPH.DATUM 35Q MENU 30Q MAKE.GRAPH.MIDDLEBUTTONFN.MENU 21Q INSPECT) (64Q MAKE.SUBGRAPH 46Q INSPECT 5 \EM.KBDAD2) () MAKE.GRAPH.MIDDLEBUTTONFN.MENU D1 (F 2 MAKE.GRAPH.MIDDLEBUTTONFN.MENU) @Rµ=`do¿di¿di¿dg ¿dg¿jdnÿdhHdI ¿cNIL (43Q DEFAULTMENUHELDFN 34Q CLRPROMPT 5 MENUTYPE#) ( 13Q (INSPECT MAKE.SUBGRAPH)) MAKE.GRAPH.NODE.ALREADY.SEENP D1 (L (1 NODES 0 NODE)) "AHµhY@ðšI@ð”IµiHX°æNIL NIL () MAKE.GRAPH.NODE.SONS D1 (L (0 DATUM)) )@dgð¥dgð’¿i¿h™@gh@ghNIL (43Q VALUE 31Q NODE.SPECS 13Q ROOTS 5 SONS) () MAKE.GRAPH.NODE.SPECS.LABEL D1 (L (0 DATUM)) .@dgð“gdgð“gdgð“ggð“ggNIL (53Q SPEC.PAIR 47Q TRACE 42Q TRACE 36Q UNION 31Q UNION 24Q LIST 17Q LIST 12Q EVAL 5 EVAL) () MAKE.GRAPH.NODE.SPECS.SONS D1 (L (0 DATUM)) €@dgðš¿@ghdgð²!¿0@°dg¸IµHhZH&¹µìJdgð²!¿0@°dg¸IµHhZH&¹µìJgð™@gh@g@ghNIL (171Q NEW.STATE.SPEC 162Q NEW.DATUM.SPEC 151Q NODE.SPECS 141Q TRACE 113Q NODE.SPECS 74Q UNION 45Q NODE.SPEC 26Q LIST 16Q VALUE 5 EVAL) () MAKE.GRAPH.PROP.PAIRS D1 (L (0 PLIST)) 0@XIµdhZH&¹µñJNIL NIL () MAKE.GRAPH.SHOW.LIST D1 (P 1 SPEC.SPEC P 0 ROOTS I 1 DEPTH I 0 OBJECT F 2 MAKE.GRAPH.LIST.SPEC) @ghXhoRHhddiA (32Q MAKE.GRAPH) (6 OBJECT) ( 17Q "A list") MAKE.GRAPH.SHOW.SPEC D1 (P 1 SPEC.SPEC P 0 ROOTS I 0 SPEC F 2 MAKE.GRAPH.SPEC.SPEC) @ghXhoRHhddi (31Q MAKE.GRAPH) (6 GRAPH.SPEC) ( 17Q "A graph specification") MAKE.GRAPH.NODE.TYPE D1 (L (0 GRAPHNODE)) @NIL NIL () MAKE.GRAPH.STATE D1 (I 0 GRAPHNODE) @ (3 MAKE.GRAPH.NODE.TYPE) NIL () MAKE.GRAPH.UPDATE.WINDOW D1 (I 0 WINDOW) >@d É(@g @g @g @g @g @g @g (73Q MAKE.GRAPH 67Q GETWINDOWUSERPROP 60Q GETWINDOWUSERPROP 51Q GETWINDOWUSERPROP 42Q GETWINDOWUSERPROP 33Q GETWINDOWUSERPROP 24Q GETWINDOWUSERPROP 15Q GETWINDOWUSERPROP 4 \INSUREWINDOW) (64Q DEPTH 55Q TOPJUSTIFYFLG 46Q MIDDLEBUTTONFN 37Q LEFTBUTTONFN 30Q CONTEXT 21Q ROOTS 12Q 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)) NIL