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

SCM Repository

[smlnj] View of /sml/trunk/src/MLRISC/graphs/printgraph.sml
ViewVC logotype

View of /sml/trunk/src/MLRISC/graphs/printgraph.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 412 - (download) (annotate)
Fri Sep 3 00:25:03 1999 UTC (20 years, 1 month ago) by monnier
File size: 878 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.
(*
 *  Print a graph 
 *
 *  -- Allen
 *)

signature PRINT_GRAPH =
sig

   val toString : ('n,'e,'g) Graph.graph -> string

end

structure PrintGraph : PRINT_GRAPH =
struct

   structure G = Graph

   fun toString (G.GRAPH G) =
   let fun showEdges es = 
          String.concat(
             map (fn (i,j,_) => Int.toString i^" -> "^Int.toString j^"\n") es)
       fun showNodes ns = 
          String.concat(map (fn n => Int.toString n^" ") ns)^"\n"
   in     
       #name G ^ "\n" ^
       "nodes: "^showNodes(map #1 (#nodes G ()))^
       "edges:\n"^showEdges(#edges G ())^
       "entry edges:\n"^
           showEdges(List.concat(map (#entry_edges G o #1) (#nodes G ())))^ 
       "exit edges:\n"^
           showEdges(List.concat(map (#exit_edges G o #1) (#nodes G ())))^ 
       "entries: "^showNodes(#entries G ())^
       "exits: "^showNodes(#exits G ())
   end
end


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