Graphics.XDot.Parser

After an xdot file has been opened using GraphViz, its drawing operations can be parsed using this module.

 xDotText <- L.readFile "example.xdot"
 let xDotGraph = parseDotGraph xDotText :: G.DotGraph String
 let operations = getOperations xDotGraph

xdot files can be created using the dot binary from the Graphviz package:

 $ cat example.dot
 digraph {
     0 [label=""];
     1 [label=":"];
     0 -> 1 [label="[1..]"];
 }
 $ dot -Txdot example.dot > example.xdot

Or you can skip saving an xdot file and use a dot file directly:

 $ dotText <- L.readFile "example.dot"
 $ let dotGraph = parseDotGraph dotText :: G.DotGraph String
 $ xDotGraph <- graphvizWithHandle Dot dotGraph XDot hGetDot :: IO (G.DotGraph String)
 $ getOperations xDotGraph
 [ (None,Color {rgba = (1.0,1.0,1.0,1.0), filled = False})
 , (None,Color {rgba = (1.0,1.0,1.0,1.0), filled = True})
 , (None,Polygon {points = [(0.0,-1.0),(0.0,130.0),(55.0,130.0),(55.0,-1.0)], filled = True})
 , (Node "0",Color {rgba = (0.0,0.0,0.0,1.0), filled = False})
 , (Node "0",Ellipse {xy = (27.0,112.0), w = 27.0, h = 18.0, filled = False})
 , (Node "1",Color {rgba = (0.0,0.0,0.0,1.0), filled = False})
 , (Node "1",Ellipse {xy = (27.0,19.0), w = 27.0, h = 19.0, filled = False})
 , (Node "1",Font {size = 14.0, name = "Times-Roman"})
 , (Node "1",Color {rgba = (0.0,0.0,0.0,1.0), filled = False})
 , (Node "1",Text {baseline = (27.0,15.0), alignment = CenterAlign, width = 4.0, text = ":"})
 , (Edge "0" "1",Color {rgba = (0.0,0.0,0.0,1.0), filled = False})
 , (Edge "0" "1",BSpline {points = [(27.0,94.0),(27.0,81.0),(27.0,63.0),(27.0,48.0)], filled = False})
 , (Edge "0" "1",Style {style = "solid"})
 , (Edge "0" "1",Color {rgba = (0.0,0.0,0.0,1.0), filled = False})
 , (Edge "0" "1",Color {rgba = (0.0,0.0,0.0,1.0), filled = True})
 , (Edge "0" "1",Polygon {points = [(31.0,48.0),(27.0,38.0),(24.0,48.0)], filled = True})
 , (Edge "0" "1",Font {size = 14.0, name = "Times-Roman"})
 , (Edge "0" "1",Color {rgba = (0.0,0.0,0.0,1.0), filled = False})
 , (Edge "0" "1",Text {baseline = (39.0,62.0), alignment = CenterAlign, width = 24.0, text = "[1..]"})
 ]

The following imports are needed for this:

 import Data.GraphViz
 import Data.GraphViz.Commands.IO
 import qualified Data.Text.Lazy.IO as L
 import qualified Data.GraphViz.Types.Generalised as G

Documentation

getOperations :: DotGraph a -> [(Object a, Operation)]

Extract all operations of an xdot graph and connect them to the node they belong to, if any.

getDimensions :: DotGraph a -> [(Object a, Rectangle)]

Extract the dimensions of all nodes and edges in the graph.

getSize :: DotGraph a -> Rectangle

Extract the dimensions of the graph when drawn.