#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Poppler.Structs.AnnotMapping
(
AnnotMapping(..) ,
newZeroAnnotMapping ,
noAnnotMapping ,
#if ENABLE_OVERLOADING
AnnotMappingCopyMethodInfo ,
#endif
annotMappingCopy ,
#if ENABLE_OVERLOADING
AnnotMappingFreeMethodInfo ,
#endif
annotMappingFree ,
annotMappingNew ,
#if ENABLE_OVERLOADING
annotMapping_annot ,
#endif
clearAnnotMappingAnnot ,
getAnnotMappingAnnot ,
setAnnotMappingAnnot ,
#if ENABLE_OVERLOADING
annotMapping_area ,
#endif
getAnnotMappingArea ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import {-# SOURCE #-} qualified GI.Poppler.Objects.Annot as Poppler.Annot
import {-# SOURCE #-} qualified GI.Poppler.Structs.Rectangle as Poppler.Rectangle
newtype AnnotMapping = AnnotMapping (ManagedPtr AnnotMapping)
foreign import ccall "poppler_annot_mapping_get_type" c_poppler_annot_mapping_get_type ::
IO GType
instance BoxedObject AnnotMapping where
boxedType _ = c_poppler_annot_mapping_get_type
newZeroAnnotMapping :: MonadIO m => m AnnotMapping
newZeroAnnotMapping = liftIO $ callocBoxedBytes 40 >>= wrapBoxed AnnotMapping
instance tag ~ 'AttrSet => Constructible AnnotMapping tag where
new _ attrs = do
o <- newZeroAnnotMapping
GI.Attributes.set o attrs
return o
noAnnotMapping :: Maybe AnnotMapping
noAnnotMapping = Nothing
getAnnotMappingArea :: MonadIO m => AnnotMapping -> m Poppler.Rectangle.Rectangle
getAnnotMappingArea s = liftIO $ withManagedPtr s $ \ptr -> do
let val = ptr `plusPtr` 0 :: (Ptr Poppler.Rectangle.Rectangle)
val' <- (newBoxed Poppler.Rectangle.Rectangle) val
return val'
#if ENABLE_OVERLOADING
data AnnotMappingAreaFieldInfo
instance AttrInfo AnnotMappingAreaFieldInfo where
type AttrAllowedOps AnnotMappingAreaFieldInfo = '[ 'AttrGet]
type AttrSetTypeConstraint AnnotMappingAreaFieldInfo = (~) (Ptr Poppler.Rectangle.Rectangle)
type AttrBaseTypeConstraint AnnotMappingAreaFieldInfo = (~) AnnotMapping
type AttrGetType AnnotMappingAreaFieldInfo = Poppler.Rectangle.Rectangle
type AttrLabel AnnotMappingAreaFieldInfo = "area"
type AttrOrigin AnnotMappingAreaFieldInfo = AnnotMapping
attrGet _ = getAnnotMappingArea
attrSet _ = undefined
attrConstruct = undefined
attrClear _ = undefined
annotMapping_area :: AttrLabelProxy "area"
annotMapping_area = AttrLabelProxy
#endif
getAnnotMappingAnnot :: MonadIO m => AnnotMapping -> m (Maybe Poppler.Annot.Annot)
getAnnotMappingAnnot s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO (Ptr Poppler.Annot.Annot)
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- (newObject Poppler.Annot.Annot) val'
return val''
return result
setAnnotMappingAnnot :: MonadIO m => AnnotMapping -> Ptr Poppler.Annot.Annot -> m ()
setAnnotMappingAnnot s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 32) (val :: Ptr Poppler.Annot.Annot)
clearAnnotMappingAnnot :: MonadIO m => AnnotMapping -> m ()
clearAnnotMappingAnnot s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 32) (FP.nullPtr :: Ptr Poppler.Annot.Annot)
#if ENABLE_OVERLOADING
data AnnotMappingAnnotFieldInfo
instance AttrInfo AnnotMappingAnnotFieldInfo where
type AttrAllowedOps AnnotMappingAnnotFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint AnnotMappingAnnotFieldInfo = (~) (Ptr Poppler.Annot.Annot)
type AttrBaseTypeConstraint AnnotMappingAnnotFieldInfo = (~) AnnotMapping
type AttrGetType AnnotMappingAnnotFieldInfo = Maybe Poppler.Annot.Annot
type AttrLabel AnnotMappingAnnotFieldInfo = "annot"
type AttrOrigin AnnotMappingAnnotFieldInfo = AnnotMapping
attrGet _ = getAnnotMappingAnnot
attrSet _ = setAnnotMappingAnnot
attrConstruct = undefined
attrClear _ = clearAnnotMappingAnnot
annotMapping_annot :: AttrLabelProxy "annot"
annotMapping_annot = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList AnnotMapping
type instance O.AttributeList AnnotMapping = AnnotMappingAttributeList
type AnnotMappingAttributeList = ('[ '("area", AnnotMappingAreaFieldInfo), '("annot", AnnotMappingAnnotFieldInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "poppler_annot_mapping_new" poppler_annot_mapping_new ::
IO (Ptr AnnotMapping)
annotMappingNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m AnnotMapping
annotMappingNew = liftIO $ do
result <- poppler_annot_mapping_new
checkUnexpectedReturnNULL "annotMappingNew" result
result' <- (wrapBoxed AnnotMapping) result
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "poppler_annot_mapping_copy" poppler_annot_mapping_copy ::
Ptr AnnotMapping ->
IO (Ptr AnnotMapping)
annotMappingCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
AnnotMapping
-> m AnnotMapping
annotMappingCopy mapping = liftIO $ do
mapping' <- unsafeManagedPtrGetPtr mapping
result <- poppler_annot_mapping_copy mapping'
checkUnexpectedReturnNULL "annotMappingCopy" result
result' <- (wrapBoxed AnnotMapping) result
touchManagedPtr mapping
return result'
#if ENABLE_OVERLOADING
data AnnotMappingCopyMethodInfo
instance (signature ~ (m AnnotMapping), MonadIO m) => O.MethodInfo AnnotMappingCopyMethodInfo AnnotMapping signature where
overloadedMethod _ = annotMappingCopy
#endif
foreign import ccall "poppler_annot_mapping_free" poppler_annot_mapping_free ::
Ptr AnnotMapping ->
IO ()
annotMappingFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
AnnotMapping
-> m ()
annotMappingFree mapping = liftIO $ do
mapping' <- unsafeManagedPtrGetPtr mapping
poppler_annot_mapping_free mapping'
touchManagedPtr mapping
return ()
#if ENABLE_OVERLOADING
data AnnotMappingFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo AnnotMappingFreeMethodInfo AnnotMapping signature where
overloadedMethod _ = annotMappingFree
#endif
#if ENABLE_OVERLOADING
type family ResolveAnnotMappingMethod (t :: Symbol) (o :: *) :: * where
ResolveAnnotMappingMethod "copy" o = AnnotMappingCopyMethodInfo
ResolveAnnotMappingMethod "free" o = AnnotMappingFreeMethodInfo
ResolveAnnotMappingMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAnnotMappingMethod t AnnotMapping, O.MethodInfo info AnnotMapping p) => OL.IsLabel t (AnnotMapping -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif