{-# LINE 1 "src/OGDF/EdgeElement/FFI.hsc" #-} {-# LANGUAGE ForeignFunctionInterface, InterruptibleFFI #-} module OGDF.EdgeElement.FFI where import Data.Word import Data.Int import Foreign.C import Foreign.Ptr import OGDF.EdgeElement.RawType import OGDF.EdgeElement.RawType import OGDF.NodeElement.RawType foreign import ccall interruptible "OGDFEdgeElement.h EdgeElement_delete" c_edgeelement_delete :: Ptr RawEdgeElement -> IO () foreign import ccall interruptible "OGDFEdgeElement.h EdgeElement_edgeElement_index" c_edgeelement_edgeelement_index :: Ptr RawEdgeElement -> IO CInt foreign import ccall interruptible "OGDFEdgeElement.h EdgeElement_edgeElement_source" c_edgeelement_edgeelement_source :: Ptr RawEdgeElement -> IO (Ptr RawNodeElement) foreign import ccall interruptible "OGDFEdgeElement.h EdgeElement_edgeElement_target" c_edgeelement_edgeelement_target :: Ptr RawEdgeElement -> IO (Ptr RawNodeElement) foreign import ccall interruptible "OGDFEdgeElement.h EdgeElement_edgeElement_succ" c_edgeelement_edgeelement_succ :: Ptr RawEdgeElement -> IO (Ptr RawEdgeElement) foreign import ccall interruptible "OGDFEdgeElement.h EdgeElement_edgeElement_pred" c_edgeelement_edgeelement_pred :: Ptr RawEdgeElement -> IO (Ptr RawEdgeElement)