{-# LANGUAGE ForeignFunctionInterface, InterruptibleFFI #-}
module OGDF.DPoint.FFI where
import Data.Word
import Data.Int
import Foreign.C
import Foreign.Ptr
import OGDF.DPoint.RawType
import OGDF.DPoint.RawType

foreign import ccall interruptible "OGDFDPoint.h DPoint_delete"
               c_dpoint_delete :: Ptr RawDPoint -> IO ()

foreign import ccall interruptible "OGDFDPoint.h DPoint_newDPoint"
               c_dpoint_newdpoint :: CDouble -> CDouble -> IO (Ptr RawDPoint)

foreign import ccall interruptible "DPoint_m_x_get"
               c_dpoint_m_x_get :: Ptr RawDPoint -> IO CDouble

foreign import ccall interruptible "DPoint_m_x_set"
               c_dpoint_m_x_set :: Ptr RawDPoint -> CDouble -> IO ()

foreign import ccall interruptible "DPoint_m_y_get"
               c_dpoint_m_y_get :: Ptr RawDPoint -> IO CDouble

foreign import ccall interruptible "DPoint_m_y_set"
               c_dpoint_m_y_set :: Ptr RawDPoint -> CDouble -> IO ()