module GI.Poppler.Structs.Quadrilateral
(
Quadrilateral(..) ,
noQuadrilateral ,
quadrilateralCopy ,
quadrilateralFree ,
quadrilateralNew ,
quadrilateralReadP1 ,
quadrilateralReadP2 ,
quadrilateralReadP3 ,
quadrilateralReadP4 ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Poppler.Types
import GI.Poppler.Callbacks
newtype Quadrilateral = Quadrilateral (ForeignPtr Quadrilateral)
foreign import ccall "poppler_quadrilateral_get_type" c_poppler_quadrilateral_get_type ::
IO GType
instance BoxedObject Quadrilateral where
boxedType _ = c_poppler_quadrilateral_get_type
noQuadrilateral :: Maybe Quadrilateral
noQuadrilateral = Nothing
quadrilateralReadP1 :: Quadrilateral -> IO Point
quadrilateralReadP1 s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO (Ptr Point)
val' <- (newBoxed Point) val
return val'
quadrilateralReadP2 :: Quadrilateral -> IO Point
quadrilateralReadP2 s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO (Ptr Point)
val' <- (newBoxed Point) val
return val'
quadrilateralReadP3 :: Quadrilateral -> IO Point
quadrilateralReadP3 s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO (Ptr Point)
val' <- (newBoxed Point) val
return val'
quadrilateralReadP4 :: Quadrilateral -> IO Point
quadrilateralReadP4 s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 48) :: IO (Ptr Point)
val' <- (newBoxed Point) val
return val'
foreign import ccall "poppler_quadrilateral_new" poppler_quadrilateral_new ::
IO (Ptr Quadrilateral)
quadrilateralNew ::
(MonadIO m) =>
m Quadrilateral
quadrilateralNew = liftIO $ do
result <- poppler_quadrilateral_new
checkUnexpectedReturnNULL "poppler_quadrilateral_new" result
result' <- (wrapBoxed Quadrilateral) result
return result'
foreign import ccall "poppler_quadrilateral_copy" poppler_quadrilateral_copy ::
Ptr Quadrilateral ->
IO (Ptr Quadrilateral)
quadrilateralCopy ::
(MonadIO m) =>
Quadrilateral ->
m Quadrilateral
quadrilateralCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- poppler_quadrilateral_copy _obj'
checkUnexpectedReturnNULL "poppler_quadrilateral_copy" result
result' <- (wrapBoxed Quadrilateral) result
touchManagedPtr _obj
return result'
foreign import ccall "poppler_quadrilateral_free" poppler_quadrilateral_free ::
Ptr Quadrilateral ->
IO ()
quadrilateralFree ::
(MonadIO m) =>
Quadrilateral ->
m ()
quadrilateralFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
poppler_quadrilateral_free _obj'
touchManagedPtr _obj
return ()