Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/MLRISC/graphs/udgraph.sml
ViewVC logotype

Diff of /sml/trunk/src/MLRISC/graphs/udgraph.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1599, Mon Aug 9 16:22:40 2004 UTC revision 1600, Mon Aug 9 21:23:58 2004 UTC
# Line 68  Line 68 
68         fun set_exits ns = exits := ns         fun set_exits ns = exits := ns
69         fun get_entries()  = !entries         fun get_entries()  = !entries
70         fun get_exits()  = !exits         fun get_exits()  = !exits
71         fun adj_edges i = map (fn (j,e) => (i,j,e)) (A.sub(adj,n))         fun adj_edges i = map (fn (j,e) => (i,j,e)) (A.sub(adj,i))
72         fun neighbors i = map #1 (A.sub(adj,i))         fun neighbors i = map #1 (A.sub(adj,i))
73         fun has_edge(i,j) = List.exists (fn (k,_) => j = k) (A.sub(adj,i))         fun has_edge(i,j) = List.exists (fn (k,_) => j = k) (A.sub(adj,i))
74         fun has_node n = case A.sub(nodes,n) of         fun has_node n = case A.sub(nodes,n) of

Legend:
Removed from v.1599  
changed lines
  Added in v.1600

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0