{-# LINE 1 "src/OGDF/FastSimpleHierarchyLayout/FFI.hsc" #-} {-# LANGUAGE ForeignFunctionInterface, InterruptibleFFI #-} module OGDF.FastSimpleHierarchyLayout.FFI where import Data.Word import Data.Int import Foreign.C import Foreign.Ptr import OGDF.FastSimpleHierarchyLayout.RawType import OGDF.FastSimpleHierarchyLayout.RawType foreign import ccall interruptible "OGDFFastSimpleHierarchyLayout.h FastSimpleHierarchyLayout_delete" c_fastsimplehierarchylayout_delete :: Ptr RawFastSimpleHierarchyLayout -> IO () foreign import ccall interruptible "OGDFFastSimpleHierarchyLayout.h FastSimpleHierarchyLayout_newFastSimpleHierarchyLayout" c_fastsimplehierarchylayout_newfastsimplehierarchylayout :: IO (Ptr RawFastSimpleHierarchyLayout) foreign import ccall interruptible "OGDFFastSimpleHierarchyLayout.h FastSimpleHierarchyLayout_fastSimpleHierarchyLayout_layerDistance" c_fastsimplehierarchylayout_fastsimplehierarchylayout_layerdistance :: Ptr RawFastSimpleHierarchyLayout -> CDouble -> IO () foreign import ccall interruptible "OGDFFastSimpleHierarchyLayout.h FastSimpleHierarchyLayout_fastSimpleHierarchyLayout_nodeDistance" c_fastsimplehierarchylayout_fastsimplehierarchylayout_nodedistance :: Ptr RawFastSimpleHierarchyLayout -> CDouble -> IO () foreign import ccall interruptible "OGDFFastSimpleHierarchyLayout.h FastSimpleHierarchyLayout_fastSimpleHierarchyLayout_downward" c_fastsimplehierarchylayout_fastsimplehierarchylayout_downward :: Ptr RawFastSimpleHierarchyLayout -> CBool -> IO () foreign import ccall interruptible "OGDFFastSimpleHierarchyLayout.h FastSimpleHierarchyLayout_fastSimpleHierarchyLayout_leftToRight" c_fastsimplehierarchylayout_fastsimplehierarchylayout_lefttoright :: Ptr RawFastSimpleHierarchyLayout -> CBool -> IO () foreign import ccall interruptible "OGDFFastSimpleHierarchyLayout.h FastSimpleHierarchyLayout_fastSimpleHierarchyLayout_balanced" c_fastsimplehierarchylayout_fastsimplehierarchylayout_balanced :: Ptr RawFastSimpleHierarchyLayout -> CBool -> IO ()