bundles/org.simantics.graphviz/scl/Visualization/ModuleDependencyGraph.scl

   1 import "Reflection" (moduleDependencyGraph)
   2 import "Visualization/GGraph"
   3
   4 showModuleDependencyGraph :: <Proc> ()
   5 showModuleDependencyGraph = do
   6     graph = newGGraph [Rankdir "LR"] $ \r -> [Label r, Shape "rect"]
   7     for moduleDependencyGraph $ \(moduleName, deps) ->
   8         for (filter interestingDependency deps) $ \(depModuleName, localName, importSpec) ->
   9             newGEdge graph moduleName depModuleName []
  10     showGGraph graph
  11   where
  12     interestingDependency (moduleName, localName, importSpec) = not (startsWith moduleName "http:") && localName != Nothing