import "Visualization/Graphviz/AbstractTypes"
import "Visualization/Graphviz/Property"
import "JavaBuiltin" as Java

importJava "org.simantics.graphviz.Graph" where
    data Graph
    @JavaName "<init>"
    newPrimitiveGraph :: <Proc> Graph
    setLabel :: Graph -> String -> <Proc> ()
    setRankdir :: Graph -> String -> <Proc> ()
    @JavaName set
    setGenericProperty :: Graph -> String -> String -> <Proc> ()

instance IGraph Graph where
    iGraph = Java.unsafeCoerce

applyGraphProperty :: Graph -> Property -> <Proc> ()
applyGraphProperty graph (Label str) = setLabel graph str
applyGraphProperty graph (Rankdir str) = setRankdir graph str
applyGraphProperty graph (GenericProperty property str) = setGenericProperty graph property str
    
newGraph :: [Property] -> <Proc> Graph
newGraph properties = graph
  where
    graph = newPrimitiveGraph
    for properties (applyGraphProperty graph)