{-# LINE 1 "src/OGDF/DRect/FFI.hsc" #-} {-# LANGUAGE ForeignFunctionInterface, InterruptibleFFI #-} module OGDF.DRect.FFI where import Data.Word import Data.Int import Foreign.C import Foreign.Ptr import OGDF.DRect.RawType import OGDF.DRect.RawType foreign import ccall interruptible "OGDFDRect.h DRect_delete" c_drect_delete :: Ptr RawDRect -> IO () foreign import ccall interruptible "OGDFDRect.h DRect_dRect_height" c_drect_drect_height :: Ptr RawDRect -> IO CDouble foreign import ccall interruptible "OGDFDRect.h DRect_dRect_width" c_drect_drect_width :: Ptr RawDRect -> IO CDouble