module GI.Poppler.Structs.FormFieldMapping
(
FormFieldMapping(..) ,
noFormFieldMapping ,
formFieldMappingCopy ,
formFieldMappingFree ,
formFieldMappingNew ,
formFieldMappingReadArea ,
formFieldMappingReadField ,
) 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 FormFieldMapping = FormFieldMapping (ForeignPtr FormFieldMapping)
foreign import ccall "poppler_form_field_mapping_get_type" c_poppler_form_field_mapping_get_type ::
IO GType
instance BoxedObject FormFieldMapping where
boxedType _ = c_poppler_form_field_mapping_get_type
noFormFieldMapping :: Maybe FormFieldMapping
noFormFieldMapping = Nothing
formFieldMappingReadArea :: FormFieldMapping -> IO Rectangle
formFieldMappingReadArea s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO (Ptr Rectangle)
val' <- (newBoxed Rectangle) val
return val'
formFieldMappingReadField :: FormFieldMapping -> IO FormField
formFieldMappingReadField s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO (Ptr FormField)
val' <- (newObject FormField) val
return val'
foreign import ccall "poppler_form_field_mapping_new" poppler_form_field_mapping_new ::
IO (Ptr FormFieldMapping)
formFieldMappingNew ::
(MonadIO m) =>
m FormFieldMapping
formFieldMappingNew = liftIO $ do
result <- poppler_form_field_mapping_new
checkUnexpectedReturnNULL "poppler_form_field_mapping_new" result
result' <- (wrapBoxed FormFieldMapping) result
return result'
foreign import ccall "poppler_form_field_mapping_copy" poppler_form_field_mapping_copy ::
Ptr FormFieldMapping ->
IO (Ptr FormFieldMapping)
formFieldMappingCopy ::
(MonadIO m) =>
FormFieldMapping ->
m FormFieldMapping
formFieldMappingCopy _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- poppler_form_field_mapping_copy _obj'
checkUnexpectedReturnNULL "poppler_form_field_mapping_copy" result
result' <- (wrapBoxed FormFieldMapping) result
touchManagedPtr _obj
return result'
foreign import ccall "poppler_form_field_mapping_free" poppler_form_field_mapping_free ::
Ptr FormFieldMapping ->
IO ()
formFieldMappingFree ::
(MonadIO m) =>
FormFieldMapping ->
m ()
formFieldMappingFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
poppler_form_field_mapping_free _obj'
touchManagedPtr _obj
return ()