<> <> <> <<>> DIRECTORY List, Rope, RouteDiGraph; RouteDiGraphTest: CEDAR PROGRAM IMPORTS RouteDiGraph = BEGIN gn: Rope.ROPE _ "Test"; graph: RouteDiGraph.Graph _ RouteDiGraph.CreateGraph[graphInfo: gn]; n1: Rope.ROPE _ "node1"; node1: RouteDiGraph.Node _ RouteDiGraph.AddNewNode[graph: graph, nodeInfo: n1]; n2: Rope.ROPE _ "node2"; node2: RouteDiGraph.Node _ RouteDiGraph.AddNewNode[graph: graph, nodeInfo: n2]; arc: RouteDiGraph.Arc _ RouteDiGraph.AddNewArc[graph: graph, superiorNode: node2, inferiorNode: node1]; RouteDiGraph.WriteNodes[graph, RouteDiGraph.SimpleListNodeProc, RouteDiGraph.SimpleListArcNodeProc]; END.