# SCM Repository

# View of /sml/trunk/src/MLRISC/graphs/singleton.sml

Parent Directory | Revision Log

Revision

File size: 1833 byte(s)

**412**- (**download**) (**annotate**)*Fri Sep 3 00:25:03 1999 UTC*(20 years, 1 month ago) by*monnier*File size: 1833 byte(s)

This commit was generated by cvs2svn to compensate for changes in r411, which included commits to RCS files with non-trunk default branches.

(* * A singleton graph view (i.e. graph with one node.) * * -- Allen *) signature SINGLETON_GRAPH_VIEW = sig val singleton_view : ('n,'e,'g) Graph.graph -> Graph.node_id -> ('n,'e,'g) Graph.graph end structure SingletonGraphView : SINGLETON_GRAPH_VIEW = struct structure G = Graph fun singleton_view (G.GRAPH G) n = let fun unimplemented _ = raise G.Readonly fun none _ = [] fun entries () = case #in_edges G n of [] => [] | _ => [n] fun exits () = case #out_edges G n of [] => [] | _ => [n] in G.GRAPH { name = #name G, graph_info = #graph_info G, new_id = #new_id G, add_node = unimplemented, add_edge = unimplemented, remove_node = unimplemented, set_in_edges = unimplemented, set_out_edges = unimplemented, set_entries = unimplemented, set_exits = unimplemented, garbage_collect = unimplemented, nodes = fn _ => [(n,#node_info G n)], edges = none, order = fn _ => 1, size = fn _ => 0, capacity = #capacity G, out_edges = none, in_edges = none, succ = none, pred = none, has_edge = fn _ => false, has_node = fn i => i = n, node_info = #node_info G, entries = entries, exits = exits, entry_edges = fn i => if i = n then #in_edges G i else [], exit_edges = fn i => if i = n then #out_edges G i else [], forall_nodes = fn f => f(n,#node_info G n), forall_edges = fn f => () } end end

root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |

Powered by ViewVC 1.0.0 |