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 /MLRISC/trunk/scheduling/test1.sml
ViewVC logotype

View of /MLRISC/trunk/scheduling/test1.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2126 - (download) (annotate)
Thu Nov 2 16:11:29 2006 UTC (12 years, 7 months ago) by blume
File size: 1463 byte(s)
moved MLRISC to toplevel
(*
 * This is the example I used in the PACT '98 paper
 *)
structure Test1 =
struct

   structure G = DirectedGraph

   fun makeDag nodes edges =
   let val dag as Graph.GRAPH G = G.graph("Test1",(),10)
   in  app (fn n => #add_node G (n,n)) nodes;
       app (#add_edge G) edges;
       dag
   end

   val dag = makeDag [1,2,3,4,5,6,7,8]
                     [(1,2,0),
                      (1,4,0),
                      (2,3,0),
                      (2,5,0),
                      (4,3,1),
                      (4,5,1),
                      (3,6,1),
                      (7,6,0)
                     ]

   fun close dag =
       TransitiveClosure.acyclic_transitive_closure2 
          {+   = fn(i,j) => i+j+1,
           max = Int.max
          } dag

   fun palemSimons (dag as Graph.GRAPH G) =
   let val dag' as Graph.GRAPH G' = G.graph("Tmp",(),10)
       val _    = #forall_nodes G (#add_node G')
       val _    = #forall_edges G (#add_edge G')
   in  PalemSimons.rank{dag = dag',
                        l   = fn(_,_,l) => l,
                        d   = fn _ => 10,
                        m   = 1
                       } 
   end

   structure View = GraphViewerFn(daVinci)
   structure L    = GraphLayout

   fun view dag =
       View.view(
          L.makeLayout{node=fn(n,_)=>[L.LABEL(Int.toString n)],
                       edge=fn(i,j,l)=>[L.LABEL(Int.toString l),L.COLOR "red"],
                       graph=fn _ =>[]} dag
       )

end

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