#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Poppler.Structs.StructureElementIter
(
StructureElementIter(..) ,
noStructureElementIter ,
#if ENABLE_OVERLOADING
StructureElementIterCopyMethodInfo ,
#endif
structureElementIterCopy ,
#if ENABLE_OVERLOADING
StructureElementIterFreeMethodInfo ,
#endif
structureElementIterFree ,
#if ENABLE_OVERLOADING
StructureElementIterGetChildMethodInfo ,
#endif
structureElementIterGetChild ,
#if ENABLE_OVERLOADING
StructureElementIterGetElementMethodInfo,
#endif
structureElementIterGetElement ,
structureElementIterNew ,
#if ENABLE_OVERLOADING
StructureElementIterNextMethodInfo ,
#endif
structureElementIterNext ,
) 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.Document as Poppler.Document
import {-# SOURCE #-} qualified GI.Poppler.Objects.StructureElement as Poppler.StructureElement
newtype StructureElementIter = StructureElementIter (ManagedPtr StructureElementIter)
foreign import ccall "poppler_structure_element_iter_get_type" c_poppler_structure_element_iter_get_type ::
IO GType
instance BoxedObject StructureElementIter where
boxedType _ = c_poppler_structure_element_iter_get_type
noStructureElementIter :: Maybe StructureElementIter
noStructureElementIter = Nothing
#if ENABLE_OVERLOADING
instance O.HasAttributeList StructureElementIter
type instance O.AttributeList StructureElementIter = StructureElementIterAttributeList
type StructureElementIterAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "poppler_structure_element_iter_new" poppler_structure_element_iter_new ::
Ptr Poppler.Document.Document ->
IO (Ptr StructureElementIter)
structureElementIterNew ::
(B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
a
-> m StructureElementIter
structureElementIterNew popplerDocument = liftIO $ do
popplerDocument' <- unsafeManagedPtrCastPtr popplerDocument
result <- poppler_structure_element_iter_new popplerDocument'
checkUnexpectedReturnNULL "structureElementIterNew" result
result' <- (wrapBoxed StructureElementIter) result
touchManagedPtr popplerDocument
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "poppler_structure_element_iter_copy" poppler_structure_element_iter_copy ::
Ptr StructureElementIter ->
IO (Ptr StructureElementIter)
structureElementIterCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
StructureElementIter
-> m StructureElementIter
structureElementIterCopy iter = liftIO $ do
iter' <- unsafeManagedPtrGetPtr iter
result <- poppler_structure_element_iter_copy iter'
checkUnexpectedReturnNULL "structureElementIterCopy" result
result' <- (wrapBoxed StructureElementIter) result
touchManagedPtr iter
return result'
#if ENABLE_OVERLOADING
data StructureElementIterCopyMethodInfo
instance (signature ~ (m StructureElementIter), MonadIO m) => O.MethodInfo StructureElementIterCopyMethodInfo StructureElementIter signature where
overloadedMethod _ = structureElementIterCopy
#endif
foreign import ccall "poppler_structure_element_iter_free" poppler_structure_element_iter_free ::
Ptr StructureElementIter ->
IO ()
structureElementIterFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
StructureElementIter
-> m ()
structureElementIterFree iter = liftIO $ do
iter' <- unsafeManagedPtrGetPtr iter
poppler_structure_element_iter_free iter'
touchManagedPtr iter
return ()
#if ENABLE_OVERLOADING
data StructureElementIterFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo StructureElementIterFreeMethodInfo StructureElementIter signature where
overloadedMethod _ = structureElementIterFree
#endif
foreign import ccall "poppler_structure_element_iter_get_child" poppler_structure_element_iter_get_child ::
Ptr StructureElementIter ->
IO (Ptr StructureElementIter)
structureElementIterGetChild ::
(B.CallStack.HasCallStack, MonadIO m) =>
StructureElementIter
-> m StructureElementIter
structureElementIterGetChild parent = liftIO $ do
parent' <- unsafeManagedPtrGetPtr parent
result <- poppler_structure_element_iter_get_child parent'
checkUnexpectedReturnNULL "structureElementIterGetChild" result
result' <- (wrapBoxed StructureElementIter) result
touchManagedPtr parent
return result'
#if ENABLE_OVERLOADING
data StructureElementIterGetChildMethodInfo
instance (signature ~ (m StructureElementIter), MonadIO m) => O.MethodInfo StructureElementIterGetChildMethodInfo StructureElementIter signature where
overloadedMethod _ = structureElementIterGetChild
#endif
foreign import ccall "poppler_structure_element_iter_get_element" poppler_structure_element_iter_get_element ::
Ptr StructureElementIter ->
IO (Ptr Poppler.StructureElement.StructureElement)
structureElementIterGetElement ::
(B.CallStack.HasCallStack, MonadIO m) =>
StructureElementIter
-> m Poppler.StructureElement.StructureElement
structureElementIterGetElement iter = liftIO $ do
iter' <- unsafeManagedPtrGetPtr iter
result <- poppler_structure_element_iter_get_element iter'
checkUnexpectedReturnNULL "structureElementIterGetElement" result
result' <- (wrapObject Poppler.StructureElement.StructureElement) result
touchManagedPtr iter
return result'
#if ENABLE_OVERLOADING
data StructureElementIterGetElementMethodInfo
instance (signature ~ (m Poppler.StructureElement.StructureElement), MonadIO m) => O.MethodInfo StructureElementIterGetElementMethodInfo StructureElementIter signature where
overloadedMethod _ = structureElementIterGetElement
#endif
foreign import ccall "poppler_structure_element_iter_next" poppler_structure_element_iter_next ::
Ptr StructureElementIter ->
IO CInt
structureElementIterNext ::
(B.CallStack.HasCallStack, MonadIO m) =>
StructureElementIter
-> m Bool
structureElementIterNext iter = liftIO $ do
iter' <- unsafeManagedPtrGetPtr iter
result <- poppler_structure_element_iter_next iter'
let result' = (/= 0) result
touchManagedPtr iter
return result'
#if ENABLE_OVERLOADING
data StructureElementIterNextMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo StructureElementIterNextMethodInfo StructureElementIter signature where
overloadedMethod _ = structureElementIterNext
#endif
#if ENABLE_OVERLOADING
type family ResolveStructureElementIterMethod (t :: Symbol) (o :: *) :: * where
ResolveStructureElementIterMethod "copy" o = StructureElementIterCopyMethodInfo
ResolveStructureElementIterMethod "free" o = StructureElementIterFreeMethodInfo
ResolveStructureElementIterMethod "next" o = StructureElementIterNextMethodInfo
ResolveStructureElementIterMethod "getChild" o = StructureElementIterGetChildMethodInfo
ResolveStructureElementIterMethod "getElement" o = StructureElementIterGetElementMethodInfo
ResolveStructureElementIterMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStructureElementIterMethod t StructureElementIter, O.MethodInfo info StructureElementIter p) => OL.IsLabel t (StructureElementIter -> 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