{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Poppler.Structs.IndexIter
(
IndexIter(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveIndexIterMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
IndexIterCopyMethodInfo ,
#endif
indexIterCopy ,
#if defined(ENABLE_OVERLOADING)
IndexIterFreeMethodInfo ,
#endif
indexIterFree ,
#if defined(ENABLE_OVERLOADING)
IndexIterGetActionMethodInfo ,
#endif
indexIterGetAction ,
#if defined(ENABLE_OVERLOADING)
IndexIterGetChildMethodInfo ,
#endif
indexIterGetChild ,
#if defined(ENABLE_OVERLOADING)
IndexIterIsOpenMethodInfo ,
#endif
indexIterIsOpen ,
indexIterNew ,
#if defined(ENABLE_OVERLOADING)
IndexIterNextMethodInfo ,
#endif
indexIterNext ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
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.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
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 qualified GHC.Records as R
import {-# SOURCE #-} qualified GI.Poppler.Objects.Document as Poppler.Document
import {-# SOURCE #-} qualified GI.Poppler.Unions.Action as Poppler.Action
newtype IndexIter = IndexIter (SP.ManagedPtr IndexIter)
deriving (IndexIter -> IndexIter -> Bool
(IndexIter -> IndexIter -> Bool)
-> (IndexIter -> IndexIter -> Bool) -> Eq IndexIter
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: IndexIter -> IndexIter -> Bool
$c/= :: IndexIter -> IndexIter -> Bool
== :: IndexIter -> IndexIter -> Bool
$c== :: IndexIter -> IndexIter -> Bool
Eq)
instance SP.ManagedPtrNewtype IndexIter where
toManagedPtr :: IndexIter -> ManagedPtr IndexIter
toManagedPtr (IndexIter ManagedPtr IndexIter
p) = ManagedPtr IndexIter
p
foreign import ccall "poppler_index_iter_get_type" c_poppler_index_iter_get_type ::
IO GType
type instance O.ParentTypes IndexIter = '[]
instance O.HasParentTypes IndexIter
instance B.Types.TypedObject IndexIter where
glibType :: IO GType
glibType = IO GType
c_poppler_index_iter_get_type
instance B.Types.GBoxed IndexIter
instance B.GValue.IsGValue (Maybe IndexIter) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_poppler_index_iter_get_type
gvalueSet_ :: Ptr GValue -> Maybe IndexIter -> IO ()
gvalueSet_ Ptr GValue
gv Maybe IndexIter
P.Nothing = Ptr GValue -> Ptr IndexIter -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr IndexIter
forall a. Ptr a
FP.nullPtr :: FP.Ptr IndexIter)
gvalueSet_ Ptr GValue
gv (P.Just IndexIter
obj) = IndexIter -> (Ptr IndexIter -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr IndexIter
obj (Ptr GValue -> Ptr IndexIter -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe IndexIter)
gvalueGet_ Ptr GValue
gv = do
Ptr IndexIter
ptr <- Ptr GValue -> IO (Ptr IndexIter)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr IndexIter)
if Ptr IndexIter
ptr Ptr IndexIter -> Ptr IndexIter -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr IndexIter
forall a. Ptr a
FP.nullPtr
then IndexIter -> Maybe IndexIter
forall a. a -> Maybe a
P.Just (IndexIter -> Maybe IndexIter)
-> IO IndexIter -> IO (Maybe IndexIter)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr IndexIter -> IndexIter)
-> Ptr IndexIter -> IO IndexIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr IndexIter -> IndexIter
IndexIter Ptr IndexIter
ptr
else Maybe IndexIter -> IO (Maybe IndexIter)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe IndexIter
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList IndexIter
type instance O.AttributeList IndexIter = IndexIterAttributeList
type IndexIterAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "poppler_index_iter_new" poppler_index_iter_new ::
Ptr Poppler.Document.Document ->
IO (Ptr IndexIter)
indexIterNew ::
(B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
a
-> m IndexIter
indexIterNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m IndexIter
indexIterNew a
document = IO IndexIter -> m IndexIter
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO IndexIter -> m IndexIter) -> IO IndexIter -> m IndexIter
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr IndexIter
result <- Ptr Document -> IO (Ptr IndexIter)
poppler_index_iter_new Ptr Document
document'
Text -> Ptr IndexIter -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indexIterNew" Ptr IndexIter
result
IndexIter
result' <- ((ManagedPtr IndexIter -> IndexIter)
-> Ptr IndexIter -> IO IndexIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr IndexIter -> IndexIter
IndexIter) Ptr IndexIter
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
IndexIter -> IO IndexIter
forall (m :: * -> *) a. Monad m => a -> m a
return IndexIter
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "poppler_index_iter_copy" poppler_index_iter_copy ::
Ptr IndexIter ->
IO (Ptr IndexIter)
indexIterCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
IndexIter
-> m IndexIter
indexIterCopy :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
IndexIter -> m IndexIter
indexIterCopy IndexIter
iter = IO IndexIter -> m IndexIter
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO IndexIter -> m IndexIter) -> IO IndexIter -> m IndexIter
forall a b. (a -> b) -> a -> b
$ do
Ptr IndexIter
iter' <- IndexIter -> IO (Ptr IndexIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr IndexIter
iter
Ptr IndexIter
result <- Ptr IndexIter -> IO (Ptr IndexIter)
poppler_index_iter_copy Ptr IndexIter
iter'
Text -> Ptr IndexIter -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indexIterCopy" Ptr IndexIter
result
IndexIter
result' <- ((ManagedPtr IndexIter -> IndexIter)
-> Ptr IndexIter -> IO IndexIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr IndexIter -> IndexIter
IndexIter) Ptr IndexIter
result
IndexIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr IndexIter
iter
IndexIter -> IO IndexIter
forall (m :: * -> *) a. Monad m => a -> m a
return IndexIter
result'
#if defined(ENABLE_OVERLOADING)
data IndexIterCopyMethodInfo
instance (signature ~ (m IndexIter), MonadIO m) => O.OverloadedMethod IndexIterCopyMethodInfo IndexIter signature where
overloadedMethod = indexIterCopy
instance O.OverloadedMethodInfo IndexIterCopyMethodInfo IndexIter where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.IndexIter.indexIterCopy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Structs-IndexIter.html#v:indexIterCopy"
})
#endif
foreign import ccall "poppler_index_iter_free" poppler_index_iter_free ::
Ptr IndexIter ->
IO ()
indexIterFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
IndexIter
-> m ()
indexIterFree :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
IndexIter -> m ()
indexIterFree IndexIter
iter = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IndexIter
iter' <- IndexIter -> IO (Ptr IndexIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr IndexIter
iter
Ptr IndexIter -> IO ()
poppler_index_iter_free Ptr IndexIter
iter'
IndexIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr IndexIter
iter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IndexIterFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod IndexIterFreeMethodInfo IndexIter signature where
overloadedMethod = indexIterFree
instance O.OverloadedMethodInfo IndexIterFreeMethodInfo IndexIter where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.IndexIter.indexIterFree",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Structs-IndexIter.html#v:indexIterFree"
})
#endif
foreign import ccall "poppler_index_iter_get_action" poppler_index_iter_get_action ::
Ptr IndexIter ->
IO (Ptr Poppler.Action.Action)
indexIterGetAction ::
(B.CallStack.HasCallStack, MonadIO m) =>
IndexIter
-> m Poppler.Action.Action
indexIterGetAction :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
IndexIter -> m Action
indexIterGetAction IndexIter
iter = IO Action -> m Action
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Action -> m Action) -> IO Action -> m Action
forall a b. (a -> b) -> a -> b
$ do
Ptr IndexIter
iter' <- IndexIter -> IO (Ptr IndexIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr IndexIter
iter
Ptr Action
result <- Ptr IndexIter -> IO (Ptr Action)
poppler_index_iter_get_action Ptr IndexIter
iter'
Text -> Ptr Action -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indexIterGetAction" Ptr Action
result
Action
result' <- ((ManagedPtr Action -> Action) -> Ptr Action -> IO Action
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Action -> Action
Poppler.Action.Action) Ptr Action
result
IndexIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr IndexIter
iter
Action -> IO Action
forall (m :: * -> *) a. Monad m => a -> m a
return Action
result'
#if defined(ENABLE_OVERLOADING)
data IndexIterGetActionMethodInfo
instance (signature ~ (m Poppler.Action.Action), MonadIO m) => O.OverloadedMethod IndexIterGetActionMethodInfo IndexIter signature where
overloadedMethod = indexIterGetAction
instance O.OverloadedMethodInfo IndexIterGetActionMethodInfo IndexIter where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.IndexIter.indexIterGetAction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Structs-IndexIter.html#v:indexIterGetAction"
})
#endif
foreign import ccall "poppler_index_iter_get_child" poppler_index_iter_get_child ::
Ptr IndexIter ->
IO (Ptr IndexIter)
indexIterGetChild ::
(B.CallStack.HasCallStack, MonadIO m) =>
IndexIter
-> m IndexIter
indexIterGetChild :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
IndexIter -> m IndexIter
indexIterGetChild IndexIter
parent = IO IndexIter -> m IndexIter
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO IndexIter -> m IndexIter) -> IO IndexIter -> m IndexIter
forall a b. (a -> b) -> a -> b
$ do
Ptr IndexIter
parent' <- IndexIter -> IO (Ptr IndexIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr IndexIter
parent
Ptr IndexIter
result <- Ptr IndexIter -> IO (Ptr IndexIter)
poppler_index_iter_get_child Ptr IndexIter
parent'
Text -> Ptr IndexIter -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indexIterGetChild" Ptr IndexIter
result
IndexIter
result' <- ((ManagedPtr IndexIter -> IndexIter)
-> Ptr IndexIter -> IO IndexIter
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr IndexIter -> IndexIter
IndexIter) Ptr IndexIter
result
IndexIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr IndexIter
parent
IndexIter -> IO IndexIter
forall (m :: * -> *) a. Monad m => a -> m a
return IndexIter
result'
#if defined(ENABLE_OVERLOADING)
data IndexIterGetChildMethodInfo
instance (signature ~ (m IndexIter), MonadIO m) => O.OverloadedMethod IndexIterGetChildMethodInfo IndexIter signature where
overloadedMethod = indexIterGetChild
instance O.OverloadedMethodInfo IndexIterGetChildMethodInfo IndexIter where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.IndexIter.indexIterGetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Structs-IndexIter.html#v:indexIterGetChild"
})
#endif
foreign import ccall "poppler_index_iter_is_open" poppler_index_iter_is_open ::
Ptr IndexIter ->
IO CInt
indexIterIsOpen ::
(B.CallStack.HasCallStack, MonadIO m) =>
IndexIter
-> m Bool
indexIterIsOpen :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
IndexIter -> m Bool
indexIterIsOpen IndexIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr IndexIter
iter' <- IndexIter -> IO (Ptr IndexIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr IndexIter
iter
CInt
result <- Ptr IndexIter -> IO CInt
poppler_index_iter_is_open Ptr IndexIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
IndexIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr IndexIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data IndexIterIsOpenMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod IndexIterIsOpenMethodInfo IndexIter signature where
overloadedMethod = indexIterIsOpen
instance O.OverloadedMethodInfo IndexIterIsOpenMethodInfo IndexIter where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.IndexIter.indexIterIsOpen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Structs-IndexIter.html#v:indexIterIsOpen"
})
#endif
foreign import ccall "poppler_index_iter_next" poppler_index_iter_next ::
Ptr IndexIter ->
IO CInt
indexIterNext ::
(B.CallStack.HasCallStack, MonadIO m) =>
IndexIter
-> m Bool
indexIterNext :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
IndexIter -> m Bool
indexIterNext IndexIter
iter = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr IndexIter
iter' <- IndexIter -> IO (Ptr IndexIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr IndexIter
iter
CInt
result <- Ptr IndexIter -> IO CInt
poppler_index_iter_next Ptr IndexIter
iter'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
IndexIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr IndexIter
iter
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data IndexIterNextMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod IndexIterNextMethodInfo IndexIter signature where
overloadedMethod = indexIterNext
instance O.OverloadedMethodInfo IndexIterNextMethodInfo IndexIter where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.IndexIter.indexIterNext",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Structs-IndexIter.html#v:indexIterNext"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveIndexIterMethod (t :: Symbol) (o :: *) :: * where
ResolveIndexIterMethod "copy" o = IndexIterCopyMethodInfo
ResolveIndexIterMethod "free" o = IndexIterFreeMethodInfo
ResolveIndexIterMethod "isOpen" o = IndexIterIsOpenMethodInfo
ResolveIndexIterMethod "next" o = IndexIterNextMethodInfo
ResolveIndexIterMethod "getAction" o = IndexIterGetActionMethodInfo
ResolveIndexIterMethod "getChild" o = IndexIterGetChildMethodInfo
ResolveIndexIterMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveIndexIterMethod t IndexIter, O.OverloadedMethod info IndexIter p) => OL.IsLabel t (IndexIter -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveIndexIterMethod t IndexIter, O.OverloadedMethod info IndexIter p, R.HasField t IndexIter p) => R.HasField t IndexIter p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveIndexIterMethod t IndexIter, O.OverloadedMethodInfo info IndexIter) => OL.IsLabel t (O.MethodProxy info IndexIter) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif