{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Poppler.Objects.StructureElement
(
#if defined(ENABLE_OVERLOADING)
StructureElementGetBorderColorMethodInfo,
#endif
StructureElement(..) ,
IsStructureElement ,
toStructureElement ,
#if defined(ENABLE_OVERLOADING)
ResolveStructureElementMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
StructureElementGetAbbreviationMethodInfo,
#endif
structureElementGetAbbreviation ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetActualTextMethodInfo ,
#endif
structureElementGetActualText ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetAltTextMethodInfo ,
#endif
structureElementGetAltText ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetBackgroundColorMethodInfo,
#endif
structureElementGetBackgroundColor ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetBaselineShiftMethodInfo,
#endif
structureElementGetBaselineShift ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetBlockAlignMethodInfo ,
#endif
structureElementGetBlockAlign ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetBorderStyleMethodInfo,
#endif
structureElementGetBorderStyle ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetBorderThicknessMethodInfo,
#endif
structureElementGetBorderThickness ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetBoundingBoxMethodInfo,
#endif
structureElementGetBoundingBox ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetColorMethodInfo ,
#endif
structureElementGetColor ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetColumnCountMethodInfo,
#endif
structureElementGetColumnCount ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetColumnGapsMethodInfo ,
#endif
structureElementGetColumnGaps ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetColumnWidthsMethodInfo,
#endif
structureElementGetColumnWidths ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetEndIndentMethodInfo ,
#endif
structureElementGetEndIndent ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetFormDescriptionMethodInfo,
#endif
structureElementGetFormDescription ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetFormRoleMethodInfo ,
#endif
structureElementGetFormRole ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetFormStateMethodInfo ,
#endif
structureElementGetFormState ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetGlyphOrientationMethodInfo,
#endif
structureElementGetGlyphOrientation ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetHeightMethodInfo ,
#endif
structureElementGetHeight ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetIdMethodInfo ,
#endif
structureElementGetId ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetInlineAlignMethodInfo,
#endif
structureElementGetInlineAlign ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetKindMethodInfo ,
#endif
structureElementGetKind ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetLanguageMethodInfo ,
#endif
structureElementGetLanguage ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetLineHeightMethodInfo ,
#endif
structureElementGetLineHeight ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetListNumberingMethodInfo,
#endif
structureElementGetListNumbering ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetPaddingMethodInfo ,
#endif
structureElementGetPadding ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetPageMethodInfo ,
#endif
structureElementGetPage ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetPlacementMethodInfo ,
#endif
structureElementGetPlacement ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetRubyAlignMethodInfo ,
#endif
structureElementGetRubyAlign ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetRubyPositionMethodInfo,
#endif
structureElementGetRubyPosition ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetSpaceAfterMethodInfo ,
#endif
structureElementGetSpaceAfter ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetSpaceBeforeMethodInfo,
#endif
structureElementGetSpaceBefore ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetStartIndentMethodInfo,
#endif
structureElementGetStartIndent ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetTableBorderStyleMethodInfo,
#endif
structureElementGetTableBorderStyle ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetTableColumnSpanMethodInfo,
#endif
structureElementGetTableColumnSpan ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetTableHeadersMethodInfo,
#endif
structureElementGetTableHeaders ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetTablePaddingMethodInfo,
#endif
structureElementGetTablePadding ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetTableRowSpanMethodInfo,
#endif
structureElementGetTableRowSpan ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetTableScopeMethodInfo ,
#endif
structureElementGetTableScope ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetTableSummaryMethodInfo,
#endif
structureElementGetTableSummary ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetTextMethodInfo ,
#endif
structureElementGetText ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetTextAlignMethodInfo ,
#endif
structureElementGetTextAlign ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetTextDecorationColorMethodInfo,
#endif
structureElementGetTextDecorationColor ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetTextDecorationThicknessMethodInfo,
#endif
structureElementGetTextDecorationThickness,
#if defined(ENABLE_OVERLOADING)
StructureElementGetTextDecorationTypeMethodInfo,
#endif
structureElementGetTextDecorationType ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetTextIndentMethodInfo ,
#endif
structureElementGetTextIndent ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetTextSpansMethodInfo ,
#endif
structureElementGetTextSpans ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetTitleMethodInfo ,
#endif
structureElementGetTitle ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetWidthMethodInfo ,
#endif
structureElementGetWidth ,
#if defined(ENABLE_OVERLOADING)
StructureElementGetWritingModeMethodInfo,
#endif
structureElementGetWritingMode ,
#if defined(ENABLE_OVERLOADING)
StructureElementIsBlockMethodInfo ,
#endif
structureElementIsBlock ,
#if defined(ENABLE_OVERLOADING)
StructureElementIsContentMethodInfo ,
#endif
structureElementIsContent ,
#if defined(ENABLE_OVERLOADING)
StructureElementIsGroupingMethodInfo ,
#endif
structureElementIsGrouping ,
#if defined(ENABLE_OVERLOADING)
StructureElementIsInlineMethodInfo ,
#endif
structureElementIsInline ,
) 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.GHashTable as B.GHT
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 qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Poppler.Enums as Poppler.Enums
import {-# SOURCE #-} qualified GI.Poppler.Flags as Poppler.Flags
import {-# SOURCE #-} qualified GI.Poppler.Structs.Color as Poppler.Color
import {-# SOURCE #-} qualified GI.Poppler.Structs.Rectangle as Poppler.Rectangle
import {-# SOURCE #-} qualified GI.Poppler.Structs.TextSpan as Poppler.TextSpan
newtype StructureElement = StructureElement (SP.ManagedPtr StructureElement)
deriving (StructureElement -> StructureElement -> Bool
(StructureElement -> StructureElement -> Bool)
-> (StructureElement -> StructureElement -> Bool)
-> Eq StructureElement
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StructureElement -> StructureElement -> Bool
== :: StructureElement -> StructureElement -> Bool
$c/= :: StructureElement -> StructureElement -> Bool
/= :: StructureElement -> StructureElement -> Bool
Eq)
instance SP.ManagedPtrNewtype StructureElement where
toManagedPtr :: StructureElement -> ManagedPtr StructureElement
toManagedPtr (StructureElement ManagedPtr StructureElement
p) = ManagedPtr StructureElement
p
foreign import ccall "poppler_structure_element_get_type"
c_poppler_structure_element_get_type :: IO B.Types.GType
instance B.Types.TypedObject StructureElement where
glibType :: IO GType
glibType = IO GType
c_poppler_structure_element_get_type
instance B.Types.GObject StructureElement
class (SP.GObject o, O.IsDescendantOf StructureElement o) => IsStructureElement o
instance (SP.GObject o, O.IsDescendantOf StructureElement o) => IsStructureElement o
instance O.HasParentTypes StructureElement
type instance O.ParentTypes StructureElement = '[GObject.Object.Object]
toStructureElement :: (MIO.MonadIO m, IsStructureElement o) => o -> m StructureElement
toStructureElement :: forall (m :: * -> *) o.
(MonadIO m, IsStructureElement o) =>
o -> m StructureElement
toStructureElement = IO StructureElement -> m StructureElement
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO StructureElement -> m StructureElement)
-> (o -> IO StructureElement) -> o -> m StructureElement
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr StructureElement -> StructureElement)
-> o -> IO StructureElement
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr StructureElement -> StructureElement
StructureElement
instance B.GValue.IsGValue (Maybe StructureElement) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_poppler_structure_element_get_type
gvalueSet_ :: Ptr GValue -> Maybe StructureElement -> IO ()
gvalueSet_ Ptr GValue
gv Maybe StructureElement
P.Nothing = Ptr GValue -> Ptr StructureElement -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr StructureElement
forall a. Ptr a
FP.nullPtr :: FP.Ptr StructureElement)
gvalueSet_ Ptr GValue
gv (P.Just StructureElement
obj) = StructureElement -> (Ptr StructureElement -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr StructureElement
obj (Ptr GValue -> Ptr StructureElement -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe StructureElement)
gvalueGet_ Ptr GValue
gv = do
Ptr StructureElement
ptr <- Ptr GValue -> IO (Ptr StructureElement)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr StructureElement)
if Ptr StructureElement
ptr Ptr StructureElement -> Ptr StructureElement -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr StructureElement
forall a. Ptr a
FP.nullPtr
then StructureElement -> Maybe StructureElement
forall a. a -> Maybe a
P.Just (StructureElement -> Maybe StructureElement)
-> IO StructureElement -> IO (Maybe StructureElement)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr StructureElement -> StructureElement)
-> Ptr StructureElement -> IO StructureElement
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr StructureElement -> StructureElement
StructureElement Ptr StructureElement
ptr
else Maybe StructureElement -> IO (Maybe StructureElement)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe StructureElement
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveStructureElementMethod (t :: Symbol) (o :: *) :: * where
ResolveStructureElementMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveStructureElementMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveStructureElementMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveStructureElementMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveStructureElementMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveStructureElementMethod "isBlock" o = StructureElementIsBlockMethodInfo
ResolveStructureElementMethod "isContent" o = StructureElementIsContentMethodInfo
ResolveStructureElementMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveStructureElementMethod "isGrouping" o = StructureElementIsGroupingMethodInfo
ResolveStructureElementMethod "isInline" o = StructureElementIsInlineMethodInfo
ResolveStructureElementMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveStructureElementMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveStructureElementMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveStructureElementMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveStructureElementMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveStructureElementMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveStructureElementMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveStructureElementMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveStructureElementMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveStructureElementMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStructureElementMethod "getAbbreviation" o = StructureElementGetAbbreviationMethodInfo
ResolveStructureElementMethod "getActualText" o = StructureElementGetActualTextMethodInfo
ResolveStructureElementMethod "getAltText" o = StructureElementGetAltTextMethodInfo
ResolveStructureElementMethod "getBackgroundColor" o = StructureElementGetBackgroundColorMethodInfo
ResolveStructureElementMethod "getBaselineShift" o = StructureElementGetBaselineShiftMethodInfo
ResolveStructureElementMethod "getBlockAlign" o = StructureElementGetBlockAlignMethodInfo
ResolveStructureElementMethod "getBorderColor" o = StructureElementGetBorderColorMethodInfo
ResolveStructureElementMethod "getBorderStyle" o = StructureElementGetBorderStyleMethodInfo
ResolveStructureElementMethod "getBorderThickness" o = StructureElementGetBorderThicknessMethodInfo
ResolveStructureElementMethod "getBoundingBox" o = StructureElementGetBoundingBoxMethodInfo
ResolveStructureElementMethod "getColor" o = StructureElementGetColorMethodInfo
ResolveStructureElementMethod "getColumnCount" o = StructureElementGetColumnCountMethodInfo
ResolveStructureElementMethod "getColumnGaps" o = StructureElementGetColumnGapsMethodInfo
ResolveStructureElementMethod "getColumnWidths" o = StructureElementGetColumnWidthsMethodInfo
ResolveStructureElementMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveStructureElementMethod "getEndIndent" o = StructureElementGetEndIndentMethodInfo
ResolveStructureElementMethod "getFormDescription" o = StructureElementGetFormDescriptionMethodInfo
ResolveStructureElementMethod "getFormRole" o = StructureElementGetFormRoleMethodInfo
ResolveStructureElementMethod "getFormState" o = StructureElementGetFormStateMethodInfo
ResolveStructureElementMethod "getGlyphOrientation" o = StructureElementGetGlyphOrientationMethodInfo
ResolveStructureElementMethod "getHeight" o = StructureElementGetHeightMethodInfo
ResolveStructureElementMethod "getId" o = StructureElementGetIdMethodInfo
ResolveStructureElementMethod "getInlineAlign" o = StructureElementGetInlineAlignMethodInfo
ResolveStructureElementMethod "getKind" o = StructureElementGetKindMethodInfo
ResolveStructureElementMethod "getLanguage" o = StructureElementGetLanguageMethodInfo
ResolveStructureElementMethod "getLineHeight" o = StructureElementGetLineHeightMethodInfo
ResolveStructureElementMethod "getListNumbering" o = StructureElementGetListNumberingMethodInfo
ResolveStructureElementMethod "getPadding" o = StructureElementGetPaddingMethodInfo
ResolveStructureElementMethod "getPage" o = StructureElementGetPageMethodInfo
ResolveStructureElementMethod "getPlacement" o = StructureElementGetPlacementMethodInfo
ResolveStructureElementMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveStructureElementMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveStructureElementMethod "getRubyAlign" o = StructureElementGetRubyAlignMethodInfo
ResolveStructureElementMethod "getRubyPosition" o = StructureElementGetRubyPositionMethodInfo
ResolveStructureElementMethod "getSpaceAfter" o = StructureElementGetSpaceAfterMethodInfo
ResolveStructureElementMethod "getSpaceBefore" o = StructureElementGetSpaceBeforeMethodInfo
ResolveStructureElementMethod "getStartIndent" o = StructureElementGetStartIndentMethodInfo
ResolveStructureElementMethod "getTableBorderStyle" o = StructureElementGetTableBorderStyleMethodInfo
ResolveStructureElementMethod "getTableColumnSpan" o = StructureElementGetTableColumnSpanMethodInfo
ResolveStructureElementMethod "getTableHeaders" o = StructureElementGetTableHeadersMethodInfo
ResolveStructureElementMethod "getTablePadding" o = StructureElementGetTablePaddingMethodInfo
ResolveStructureElementMethod "getTableRowSpan" o = StructureElementGetTableRowSpanMethodInfo
ResolveStructureElementMethod "getTableScope" o = StructureElementGetTableScopeMethodInfo
ResolveStructureElementMethod "getTableSummary" o = StructureElementGetTableSummaryMethodInfo
ResolveStructureElementMethod "getText" o = StructureElementGetTextMethodInfo
ResolveStructureElementMethod "getTextAlign" o = StructureElementGetTextAlignMethodInfo
ResolveStructureElementMethod "getTextDecorationColor" o = StructureElementGetTextDecorationColorMethodInfo
ResolveStructureElementMethod "getTextDecorationThickness" o = StructureElementGetTextDecorationThicknessMethodInfo
ResolveStructureElementMethod "getTextDecorationType" o = StructureElementGetTextDecorationTypeMethodInfo
ResolveStructureElementMethod "getTextIndent" o = StructureElementGetTextIndentMethodInfo
ResolveStructureElementMethod "getTextSpans" o = StructureElementGetTextSpansMethodInfo
ResolveStructureElementMethod "getTitle" o = StructureElementGetTitleMethodInfo
ResolveStructureElementMethod "getWidth" o = StructureElementGetWidthMethodInfo
ResolveStructureElementMethod "getWritingMode" o = StructureElementGetWritingModeMethodInfo
ResolveStructureElementMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveStructureElementMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveStructureElementMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveStructureElementMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStructureElementMethod t StructureElement, O.OverloadedMethod info StructureElement p) => OL.IsLabel t (StructureElement -> 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 ~ ResolveStructureElementMethod t StructureElement, O.OverloadedMethod info StructureElement p, R.HasField t StructureElement p) => R.HasField t StructureElement p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveStructureElementMethod t StructureElement, O.OverloadedMethodInfo info StructureElement) => OL.IsLabel t (O.MethodProxy info StructureElement) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList StructureElement
type instance O.AttributeList StructureElement = StructureElementAttributeList
type StructureElementAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList StructureElement = StructureElementSignalList
type StructureElementSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "poppler_structure_element_get_abbreviation" poppler_structure_element_get_abbreviation ::
Ptr StructureElement ->
IO CString
structureElementGetAbbreviation ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m T.Text
structureElementGetAbbreviation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Text
structureElementGetAbbreviation a
popplerStructureElement = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CString
result <- Ptr StructureElement -> IO CString
poppler_structure_element_get_abbreviation Ptr StructureElement
popplerStructureElement'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"structureElementGetAbbreviation" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetAbbreviationMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetAbbreviationMethodInfo a signature where
overloadedMethod = structureElementGetAbbreviation
instance O.OverloadedMethodInfo StructureElementGetAbbreviationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetAbbreviation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetAbbreviation"
})
#endif
foreign import ccall "poppler_structure_element_get_actual_text" poppler_structure_element_get_actual_text ::
Ptr StructureElement ->
IO CString
structureElementGetActualText ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m T.Text
structureElementGetActualText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Text
structureElementGetActualText a
popplerStructureElement = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CString
result <- Ptr StructureElement -> IO CString
poppler_structure_element_get_actual_text Ptr StructureElement
popplerStructureElement'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"structureElementGetActualText" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetActualTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetActualTextMethodInfo a signature where
overloadedMethod = structureElementGetActualText
instance O.OverloadedMethodInfo StructureElementGetActualTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetActualText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetActualText"
})
#endif
foreign import ccall "poppler_structure_element_get_alt_text" poppler_structure_element_get_alt_text ::
Ptr StructureElement ->
IO CString
structureElementGetAltText ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m T.Text
structureElementGetAltText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Text
structureElementGetAltText a
popplerStructureElement = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CString
result <- Ptr StructureElement -> IO CString
poppler_structure_element_get_alt_text Ptr StructureElement
popplerStructureElement'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"structureElementGetAltText" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetAltTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetAltTextMethodInfo a signature where
overloadedMethod = structureElementGetAltText
instance O.OverloadedMethodInfo StructureElementGetAltTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetAltText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetAltText"
})
#endif
foreign import ccall "poppler_structure_element_get_background_color" poppler_structure_element_get_background_color ::
Ptr StructureElement ->
Ptr Poppler.Color.Color ->
IO CInt
structureElementGetBackgroundColor ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m ((Bool, Poppler.Color.Color))
structureElementGetBackgroundColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m (Bool, Color)
structureElementGetBackgroundColor a
popplerStructureElement = IO (Bool, Color) -> m (Bool, Color)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Color) -> m (Bool, Color))
-> IO (Bool, Color) -> m (Bool, Color)
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Ptr Color
color <- Int -> IO (Ptr Color)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
6 :: IO (Ptr Poppler.Color.Color)
CInt
result <- Ptr StructureElement -> Ptr Color -> IO CInt
poppler_structure_element_get_background_color Ptr StructureElement
popplerStructureElement' Ptr Color
color
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Color
color' <- ((ManagedPtr Color -> Color) -> Ptr Color -> IO Color
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Color -> Color
Poppler.Color.Color) Ptr Color
color
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
(Bool, Color) -> IO (Bool, Color)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Color
color')
#if defined(ENABLE_OVERLOADING)
data StructureElementGetBackgroundColorMethodInfo
instance (signature ~ (m ((Bool, Poppler.Color.Color))), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetBackgroundColorMethodInfo a signature where
overloadedMethod = structureElementGetBackgroundColor
instance O.OverloadedMethodInfo StructureElementGetBackgroundColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetBackgroundColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetBackgroundColor"
})
#endif
foreign import ccall "poppler_structure_element_get_baseline_shift" poppler_structure_element_get_baseline_shift ::
Ptr StructureElement ->
IO CDouble
structureElementGetBaselineShift ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Double
structureElementGetBaselineShift :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Double
structureElementGetBaselineShift a
popplerStructureElement = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CDouble
result <- Ptr StructureElement -> IO CDouble
poppler_structure_element_get_baseline_shift Ptr StructureElement
popplerStructureElement'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetBaselineShiftMethodInfo
instance (signature ~ (m Double), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetBaselineShiftMethodInfo a signature where
overloadedMethod = structureElementGetBaselineShift
instance O.OverloadedMethodInfo StructureElementGetBaselineShiftMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetBaselineShift",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetBaselineShift"
})
#endif
foreign import ccall "poppler_structure_element_get_block_align" poppler_structure_element_get_block_align ::
Ptr StructureElement ->
IO CUInt
structureElementGetBlockAlign ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Poppler.Enums.StructureBlockAlign
structureElementGetBlockAlign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m StructureBlockAlign
structureElementGetBlockAlign a
popplerStructureElement = IO StructureBlockAlign -> m StructureBlockAlign
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StructureBlockAlign -> m StructureBlockAlign)
-> IO StructureBlockAlign -> m StructureBlockAlign
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CUInt
result <- Ptr StructureElement -> IO CUInt
poppler_structure_element_get_block_align Ptr StructureElement
popplerStructureElement'
let result' :: StructureBlockAlign
result' = (Int -> StructureBlockAlign
forall a. Enum a => Int -> a
toEnum (Int -> StructureBlockAlign)
-> (CUInt -> Int) -> CUInt -> StructureBlockAlign
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
StructureBlockAlign -> IO StructureBlockAlign
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StructureBlockAlign
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetBlockAlignMethodInfo
instance (signature ~ (m Poppler.Enums.StructureBlockAlign), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetBlockAlignMethodInfo a signature where
overloadedMethod = structureElementGetBlockAlign
instance O.OverloadedMethodInfo StructureElementGetBlockAlignMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetBlockAlign",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetBlockAlign"
})
#endif
#if defined(ENABLE_OVERLOADING)
data StructureElementGetBorderColorMethodInfo
instance (p ~ (), o ~ O.UnsupportedMethodError "getBorderColor" StructureElement) => O.OverloadedMethod StructureElementGetBorderColorMethodInfo o p where
overloadedMethod = undefined
instance (o ~ O.UnsupportedMethodError "getBorderColor" StructureElement) => O.OverloadedMethodInfo StructureElementGetBorderColorMethodInfo o where
overloadedMethodInfo = undefined
#endif
foreign import ccall "poppler_structure_element_get_border_style" poppler_structure_element_get_border_style ::
Ptr StructureElement ->
Ptr (Ptr CUInt) ->
IO ()
structureElementGetBorderStyle ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m ([Poppler.Enums.StructureBorderStyle])
structureElementGetBorderStyle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m [StructureBorderStyle]
structureElementGetBorderStyle a
popplerStructureElement = IO [StructureBorderStyle] -> m [StructureBorderStyle]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [StructureBorderStyle] -> m [StructureBorderStyle])
-> IO [StructureBorderStyle] -> m [StructureBorderStyle]
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Ptr (Ptr CUInt)
borderStyles <- IO (Ptr (Ptr CUInt))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr CUInt))
Ptr StructureElement -> Ptr (Ptr CUInt) -> IO ()
poppler_structure_element_get_border_style Ptr StructureElement
popplerStructureElement' Ptr (Ptr CUInt)
borderStyles
Ptr CUInt
borderStyles' <- Ptr (Ptr CUInt) -> IO (Ptr CUInt)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr CUInt)
borderStyles
[CUInt]
borderStyles'' <- (Integer -> Ptr CUInt -> IO [CUInt]
forall a b. (Integral a, Storable b) => a -> Ptr b -> IO [b]
unpackStorableArrayWithLength Integer
4) Ptr CUInt
borderStyles'
let borderStyles''' :: [StructureBorderStyle]
borderStyles''' = (CUInt -> StructureBorderStyle)
-> [CUInt] -> [StructureBorderStyle]
forall a b. (a -> b) -> [a] -> [b]
map (Int -> StructureBorderStyle
forall a. Enum a => Int -> a
toEnum (Int -> StructureBorderStyle)
-> (CUInt -> Int) -> CUInt -> StructureBorderStyle
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) [CUInt]
borderStyles''
Ptr CUInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
borderStyles'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Ptr (Ptr CUInt) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CUInt)
borderStyles
[StructureBorderStyle] -> IO [StructureBorderStyle]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [StructureBorderStyle]
borderStyles'''
#if defined(ENABLE_OVERLOADING)
data StructureElementGetBorderStyleMethodInfo
instance (signature ~ (m ([Poppler.Enums.StructureBorderStyle])), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetBorderStyleMethodInfo a signature where
overloadedMethod = structureElementGetBorderStyle
instance O.OverloadedMethodInfo StructureElementGetBorderStyleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetBorderStyle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetBorderStyle"
})
#endif
foreign import ccall "poppler_structure_element_get_border_thickness" poppler_structure_element_get_border_thickness ::
Ptr StructureElement ->
Ptr (Ptr CDouble) ->
IO CInt
structureElementGetBorderThickness ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m ((Bool, [Double]))
structureElementGetBorderThickness :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m (Bool, [Double])
structureElementGetBorderThickness a
popplerStructureElement = IO (Bool, [Double]) -> m (Bool, [Double])
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, [Double]) -> m (Bool, [Double]))
-> IO (Bool, [Double]) -> m (Bool, [Double])
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Ptr (Ptr CDouble)
borderThicknesses <- IO (Ptr (Ptr CDouble))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr CDouble))
CInt
result <- Ptr StructureElement -> Ptr (Ptr CDouble) -> IO CInt
poppler_structure_element_get_border_thickness Ptr StructureElement
popplerStructureElement' Ptr (Ptr CDouble)
borderThicknesses
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Ptr CDouble
borderThicknesses' <- Ptr (Ptr CDouble) -> IO (Ptr CDouble)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr CDouble)
borderThicknesses
[Double]
borderThicknesses'' <- ((CDouble -> Double) -> Integer -> Ptr CDouble -> IO [Double]
forall a b c.
(Integral a, Storable b) =>
(b -> c) -> a -> Ptr b -> IO [c]
unpackMapStorableArrayWithLength CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac Integer
4) Ptr CDouble
borderThicknesses'
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
borderThicknesses'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Ptr (Ptr CDouble) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CDouble)
borderThicknesses
(Bool, [Double]) -> IO (Bool, [Double])
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', [Double]
borderThicknesses'')
#if defined(ENABLE_OVERLOADING)
data StructureElementGetBorderThicknessMethodInfo
instance (signature ~ (m ((Bool, [Double]))), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetBorderThicknessMethodInfo a signature where
overloadedMethod = structureElementGetBorderThickness
instance O.OverloadedMethodInfo StructureElementGetBorderThicknessMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetBorderThickness",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetBorderThickness"
})
#endif
foreign import ccall "poppler_structure_element_get_bounding_box" poppler_structure_element_get_bounding_box ::
Ptr StructureElement ->
Ptr Poppler.Rectangle.Rectangle ->
IO CInt
structureElementGetBoundingBox ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m ((Bool, Poppler.Rectangle.Rectangle))
structureElementGetBoundingBox :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m (Bool, Rectangle)
structureElementGetBoundingBox a
popplerStructureElement = IO (Bool, Rectangle) -> m (Bool, Rectangle)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Rectangle) -> m (Bool, Rectangle))
-> IO (Bool, Rectangle) -> m (Bool, Rectangle)
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Ptr Rectangle
boundingBox <- Int -> IO (Ptr Rectangle)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
32 :: IO (Ptr Poppler.Rectangle.Rectangle)
CInt
result <- Ptr StructureElement -> Ptr Rectangle -> IO CInt
poppler_structure_element_get_bounding_box Ptr StructureElement
popplerStructureElement' Ptr Rectangle
boundingBox
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Rectangle
boundingBox' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Poppler.Rectangle.Rectangle) Ptr Rectangle
boundingBox
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
(Bool, Rectangle) -> IO (Bool, Rectangle)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Rectangle
boundingBox')
#if defined(ENABLE_OVERLOADING)
data StructureElementGetBoundingBoxMethodInfo
instance (signature ~ (m ((Bool, Poppler.Rectangle.Rectangle))), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetBoundingBoxMethodInfo a signature where
overloadedMethod = structureElementGetBoundingBox
instance O.OverloadedMethodInfo StructureElementGetBoundingBoxMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetBoundingBox",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetBoundingBox"
})
#endif
foreign import ccall "poppler_structure_element_get_color" poppler_structure_element_get_color ::
Ptr StructureElement ->
Ptr Poppler.Color.Color ->
IO CInt
structureElementGetColor ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m ((Bool, Poppler.Color.Color))
structureElementGetColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m (Bool, Color)
structureElementGetColor a
popplerStructureElement = IO (Bool, Color) -> m (Bool, Color)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Color) -> m (Bool, Color))
-> IO (Bool, Color) -> m (Bool, Color)
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Ptr Color
color <- Int -> IO (Ptr Color)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
6 :: IO (Ptr Poppler.Color.Color)
CInt
result <- Ptr StructureElement -> Ptr Color -> IO CInt
poppler_structure_element_get_color Ptr StructureElement
popplerStructureElement' Ptr Color
color
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Color
color' <- ((ManagedPtr Color -> Color) -> Ptr Color -> IO Color
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Color -> Color
Poppler.Color.Color) Ptr Color
color
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
(Bool, Color) -> IO (Bool, Color)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Color
color')
#if defined(ENABLE_OVERLOADING)
data StructureElementGetColorMethodInfo
instance (signature ~ (m ((Bool, Poppler.Color.Color))), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetColorMethodInfo a signature where
overloadedMethod = structureElementGetColor
instance O.OverloadedMethodInfo StructureElementGetColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetColor"
})
#endif
foreign import ccall "poppler_structure_element_get_column_count" poppler_structure_element_get_column_count ::
Ptr StructureElement ->
IO Word32
structureElementGetColumnCount ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Word32
structureElementGetColumnCount :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Word32
structureElementGetColumnCount a
popplerStructureElement = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Word32
result <- Ptr StructureElement -> IO Word32
poppler_structure_element_get_column_count Ptr StructureElement
popplerStructureElement'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data StructureElementGetColumnCountMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetColumnCountMethodInfo a signature where
overloadedMethod = structureElementGetColumnCount
instance O.OverloadedMethodInfo StructureElementGetColumnCountMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetColumnCount",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetColumnCount"
})
#endif
foreign import ccall "poppler_structure_element_get_column_gaps" poppler_structure_element_get_column_gaps ::
Ptr StructureElement ->
Ptr Word32 ->
IO (Ptr CDouble)
structureElementGetColumnGaps ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m [Double]
structureElementGetColumnGaps :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m [Double]
structureElementGetColumnGaps a
popplerStructureElement = IO [Double] -> m [Double]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Double] -> m [Double]) -> IO [Double] -> m [Double]
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Ptr Word32
nValues <- IO (Ptr Word32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word32)
Ptr CDouble
result <- Ptr StructureElement -> Ptr Word32 -> IO (Ptr CDouble)
poppler_structure_element_get_column_gaps Ptr StructureElement
popplerStructureElement' Ptr Word32
nValues
Word32
nValues' <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek Ptr Word32
nValues
Text -> Ptr CDouble -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"structureElementGetColumnGaps" Ptr CDouble
result
[Double]
result' <- ((CDouble -> Double) -> Word32 -> Ptr CDouble -> IO [Double]
forall a b c.
(Integral a, Storable b) =>
(b -> c) -> a -> Ptr b -> IO [c]
unpackMapStorableArrayWithLength CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac Word32
nValues') Ptr CDouble
result
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Ptr Word32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word32
nValues
[Double] -> IO [Double]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Double]
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetColumnGapsMethodInfo
instance (signature ~ (m [Double]), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetColumnGapsMethodInfo a signature where
overloadedMethod = structureElementGetColumnGaps
instance O.OverloadedMethodInfo StructureElementGetColumnGapsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetColumnGaps",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetColumnGaps"
})
#endif
foreign import ccall "poppler_structure_element_get_column_widths" poppler_structure_element_get_column_widths ::
Ptr StructureElement ->
Ptr Word32 ->
IO (Ptr CDouble)
structureElementGetColumnWidths ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m [Double]
structureElementGetColumnWidths :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m [Double]
structureElementGetColumnWidths a
popplerStructureElement = IO [Double] -> m [Double]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Double] -> m [Double]) -> IO [Double] -> m [Double]
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Ptr Word32
nValues <- IO (Ptr Word32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word32)
Ptr CDouble
result <- Ptr StructureElement -> Ptr Word32 -> IO (Ptr CDouble)
poppler_structure_element_get_column_widths Ptr StructureElement
popplerStructureElement' Ptr Word32
nValues
Word32
nValues' <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek Ptr Word32
nValues
Text -> Ptr CDouble -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"structureElementGetColumnWidths" Ptr CDouble
result
[Double]
result' <- ((CDouble -> Double) -> Word32 -> Ptr CDouble -> IO [Double]
forall a b c.
(Integral a, Storable b) =>
(b -> c) -> a -> Ptr b -> IO [c]
unpackMapStorableArrayWithLength CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac Word32
nValues') Ptr CDouble
result
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Ptr Word32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word32
nValues
[Double] -> IO [Double]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Double]
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetColumnWidthsMethodInfo
instance (signature ~ (m [Double]), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetColumnWidthsMethodInfo a signature where
overloadedMethod = structureElementGetColumnWidths
instance O.OverloadedMethodInfo StructureElementGetColumnWidthsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetColumnWidths",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetColumnWidths"
})
#endif
foreign import ccall "poppler_structure_element_get_end_indent" poppler_structure_element_get_end_indent ::
Ptr StructureElement ->
IO CDouble
structureElementGetEndIndent ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Double
structureElementGetEndIndent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Double
structureElementGetEndIndent a
popplerStructureElement = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CDouble
result <- Ptr StructureElement -> IO CDouble
poppler_structure_element_get_end_indent Ptr StructureElement
popplerStructureElement'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetEndIndentMethodInfo
instance (signature ~ (m Double), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetEndIndentMethodInfo a signature where
overloadedMethod = structureElementGetEndIndent
instance O.OverloadedMethodInfo StructureElementGetEndIndentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetEndIndent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetEndIndent"
})
#endif
foreign import ccall "poppler_structure_element_get_form_description" poppler_structure_element_get_form_description ::
Ptr StructureElement ->
IO CString
structureElementGetFormDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m T.Text
structureElementGetFormDescription :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Text
structureElementGetFormDescription a
popplerStructureElement = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CString
result <- Ptr StructureElement -> IO CString
poppler_structure_element_get_form_description Ptr StructureElement
popplerStructureElement'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"structureElementGetFormDescription" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetFormDescriptionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetFormDescriptionMethodInfo a signature where
overloadedMethod = structureElementGetFormDescription
instance O.OverloadedMethodInfo StructureElementGetFormDescriptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetFormDescription",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetFormDescription"
})
#endif
foreign import ccall "poppler_structure_element_get_form_role" poppler_structure_element_get_form_role ::
Ptr StructureElement ->
IO CUInt
structureElementGetFormRole ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Poppler.Enums.StructureFormRole
structureElementGetFormRole :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m StructureFormRole
structureElementGetFormRole a
popplerStructureElement = IO StructureFormRole -> m StructureFormRole
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StructureFormRole -> m StructureFormRole)
-> IO StructureFormRole -> m StructureFormRole
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CUInt
result <- Ptr StructureElement -> IO CUInt
poppler_structure_element_get_form_role Ptr StructureElement
popplerStructureElement'
let result' :: StructureFormRole
result' = (Int -> StructureFormRole
forall a. Enum a => Int -> a
toEnum (Int -> StructureFormRole)
-> (CUInt -> Int) -> CUInt -> StructureFormRole
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
StructureFormRole -> IO StructureFormRole
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StructureFormRole
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetFormRoleMethodInfo
instance (signature ~ (m Poppler.Enums.StructureFormRole), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetFormRoleMethodInfo a signature where
overloadedMethod = structureElementGetFormRole
instance O.OverloadedMethodInfo StructureElementGetFormRoleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetFormRole",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetFormRole"
})
#endif
foreign import ccall "poppler_structure_element_get_form_state" poppler_structure_element_get_form_state ::
Ptr StructureElement ->
IO CUInt
structureElementGetFormState ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Poppler.Enums.StructureFormState
structureElementGetFormState :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m StructureFormState
structureElementGetFormState a
popplerStructureElement = IO StructureFormState -> m StructureFormState
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StructureFormState -> m StructureFormState)
-> IO StructureFormState -> m StructureFormState
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CUInt
result <- Ptr StructureElement -> IO CUInt
poppler_structure_element_get_form_state Ptr StructureElement
popplerStructureElement'
let result' :: StructureFormState
result' = (Int -> StructureFormState
forall a. Enum a => Int -> a
toEnum (Int -> StructureFormState)
-> (CUInt -> Int) -> CUInt -> StructureFormState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
StructureFormState -> IO StructureFormState
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StructureFormState
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetFormStateMethodInfo
instance (signature ~ (m Poppler.Enums.StructureFormState), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetFormStateMethodInfo a signature where
overloadedMethod = structureElementGetFormState
instance O.OverloadedMethodInfo StructureElementGetFormStateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetFormState",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetFormState"
})
#endif
foreign import ccall "poppler_structure_element_get_glyph_orientation" poppler_structure_element_get_glyph_orientation ::
Ptr StructureElement ->
IO CUInt
structureElementGetGlyphOrientation ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Poppler.Enums.StructureGlyphOrientation
structureElementGetGlyphOrientation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m StructureGlyphOrientation
structureElementGetGlyphOrientation a
popplerStructureElement = IO StructureGlyphOrientation -> m StructureGlyphOrientation
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StructureGlyphOrientation -> m StructureGlyphOrientation)
-> IO StructureGlyphOrientation -> m StructureGlyphOrientation
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CUInt
result <- Ptr StructureElement -> IO CUInt
poppler_structure_element_get_glyph_orientation Ptr StructureElement
popplerStructureElement'
let result' :: StructureGlyphOrientation
result' = (Int -> StructureGlyphOrientation
forall a. Enum a => Int -> a
toEnum (Int -> StructureGlyphOrientation)
-> (CUInt -> Int) -> CUInt -> StructureGlyphOrientation
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
StructureGlyphOrientation -> IO StructureGlyphOrientation
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StructureGlyphOrientation
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetGlyphOrientationMethodInfo
instance (signature ~ (m Poppler.Enums.StructureGlyphOrientation), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetGlyphOrientationMethodInfo a signature where
overloadedMethod = structureElementGetGlyphOrientation
instance O.OverloadedMethodInfo StructureElementGetGlyphOrientationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetGlyphOrientation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetGlyphOrientation"
})
#endif
foreign import ccall "poppler_structure_element_get_height" poppler_structure_element_get_height ::
Ptr StructureElement ->
IO CDouble
structureElementGetHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Double
structureElementGetHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Double
structureElementGetHeight a
popplerStructureElement = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CDouble
result <- Ptr StructureElement -> IO CDouble
poppler_structure_element_get_height Ptr StructureElement
popplerStructureElement'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetHeightMethodInfo
instance (signature ~ (m Double), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetHeightMethodInfo a signature where
overloadedMethod = structureElementGetHeight
instance O.OverloadedMethodInfo StructureElementGetHeightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetHeight"
})
#endif
foreign import ccall "poppler_structure_element_get_id" poppler_structure_element_get_id ::
Ptr StructureElement ->
IO CString
structureElementGetId ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m T.Text
structureElementGetId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Text
structureElementGetId a
popplerStructureElement = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CString
result <- Ptr StructureElement -> IO CString
poppler_structure_element_get_id Ptr StructureElement
popplerStructureElement'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"structureElementGetId" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetIdMethodInfo a signature where
overloadedMethod = structureElementGetId
instance O.OverloadedMethodInfo StructureElementGetIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetId"
})
#endif
foreign import ccall "poppler_structure_element_get_inline_align" poppler_structure_element_get_inline_align ::
Ptr StructureElement ->
IO CUInt
structureElementGetInlineAlign ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Poppler.Enums.StructureInlineAlign
structureElementGetInlineAlign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m StructureInlineAlign
structureElementGetInlineAlign a
popplerStructureElement = IO StructureInlineAlign -> m StructureInlineAlign
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StructureInlineAlign -> m StructureInlineAlign)
-> IO StructureInlineAlign -> m StructureInlineAlign
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CUInt
result <- Ptr StructureElement -> IO CUInt
poppler_structure_element_get_inline_align Ptr StructureElement
popplerStructureElement'
let result' :: StructureInlineAlign
result' = (Int -> StructureInlineAlign
forall a. Enum a => Int -> a
toEnum (Int -> StructureInlineAlign)
-> (CUInt -> Int) -> CUInt -> StructureInlineAlign
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
StructureInlineAlign -> IO StructureInlineAlign
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StructureInlineAlign
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetInlineAlignMethodInfo
instance (signature ~ (m Poppler.Enums.StructureInlineAlign), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetInlineAlignMethodInfo a signature where
overloadedMethod = structureElementGetInlineAlign
instance O.OverloadedMethodInfo StructureElementGetInlineAlignMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetInlineAlign",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetInlineAlign"
})
#endif
foreign import ccall "poppler_structure_element_get_kind" poppler_structure_element_get_kind ::
Ptr StructureElement ->
IO CUInt
structureElementGetKind ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Poppler.Enums.StructureElementKind
structureElementGetKind :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m StructureElementKind
structureElementGetKind a
popplerStructureElement = IO StructureElementKind -> m StructureElementKind
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StructureElementKind -> m StructureElementKind)
-> IO StructureElementKind -> m StructureElementKind
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CUInt
result <- Ptr StructureElement -> IO CUInt
poppler_structure_element_get_kind Ptr StructureElement
popplerStructureElement'
let result' :: StructureElementKind
result' = (Int -> StructureElementKind
forall a. Enum a => Int -> a
toEnum (Int -> StructureElementKind)
-> (CUInt -> Int) -> CUInt -> StructureElementKind
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
StructureElementKind -> IO StructureElementKind
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StructureElementKind
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetKindMethodInfo
instance (signature ~ (m Poppler.Enums.StructureElementKind), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetKindMethodInfo a signature where
overloadedMethod = structureElementGetKind
instance O.OverloadedMethodInfo StructureElementGetKindMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetKind",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetKind"
})
#endif
foreign import ccall "poppler_structure_element_get_language" poppler_structure_element_get_language ::
Ptr StructureElement ->
IO CString
structureElementGetLanguage ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m T.Text
structureElementGetLanguage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Text
structureElementGetLanguage a
popplerStructureElement = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CString
result <- Ptr StructureElement -> IO CString
poppler_structure_element_get_language Ptr StructureElement
popplerStructureElement'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"structureElementGetLanguage" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetLanguageMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetLanguageMethodInfo a signature where
overloadedMethod = structureElementGetLanguage
instance O.OverloadedMethodInfo StructureElementGetLanguageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetLanguage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetLanguage"
})
#endif
foreign import ccall "poppler_structure_element_get_line_height" poppler_structure_element_get_line_height ::
Ptr StructureElement ->
IO CDouble
structureElementGetLineHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Double
structureElementGetLineHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Double
structureElementGetLineHeight a
popplerStructureElement = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CDouble
result <- Ptr StructureElement -> IO CDouble
poppler_structure_element_get_line_height Ptr StructureElement
popplerStructureElement'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetLineHeightMethodInfo
instance (signature ~ (m Double), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetLineHeightMethodInfo a signature where
overloadedMethod = structureElementGetLineHeight
instance O.OverloadedMethodInfo StructureElementGetLineHeightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetLineHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetLineHeight"
})
#endif
foreign import ccall "poppler_structure_element_get_list_numbering" poppler_structure_element_get_list_numbering ::
Ptr StructureElement ->
IO CUInt
structureElementGetListNumbering ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Poppler.Enums.StructureListNumbering
structureElementGetListNumbering :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m StructureListNumbering
structureElementGetListNumbering a
popplerStructureElement = IO StructureListNumbering -> m StructureListNumbering
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StructureListNumbering -> m StructureListNumbering)
-> IO StructureListNumbering -> m StructureListNumbering
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CUInt
result <- Ptr StructureElement -> IO CUInt
poppler_structure_element_get_list_numbering Ptr StructureElement
popplerStructureElement'
let result' :: StructureListNumbering
result' = (Int -> StructureListNumbering
forall a. Enum a => Int -> a
toEnum (Int -> StructureListNumbering)
-> (CUInt -> Int) -> CUInt -> StructureListNumbering
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
StructureListNumbering -> IO StructureListNumbering
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StructureListNumbering
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetListNumberingMethodInfo
instance (signature ~ (m Poppler.Enums.StructureListNumbering), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetListNumberingMethodInfo a signature where
overloadedMethod = structureElementGetListNumbering
instance O.OverloadedMethodInfo StructureElementGetListNumberingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetListNumbering",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetListNumbering"
})
#endif
foreign import ccall "poppler_structure_element_get_padding" poppler_structure_element_get_padding ::
Ptr StructureElement ->
Ptr (Ptr CDouble) ->
IO ()
structureElementGetPadding ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m ([Double])
structureElementGetPadding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m [Double]
structureElementGetPadding a
popplerStructureElement = IO [Double] -> m [Double]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Double] -> m [Double]) -> IO [Double] -> m [Double]
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Ptr (Ptr CDouble)
paddings <- IO (Ptr (Ptr CDouble))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr CDouble))
Ptr StructureElement -> Ptr (Ptr CDouble) -> IO ()
poppler_structure_element_get_padding Ptr StructureElement
popplerStructureElement' Ptr (Ptr CDouble)
paddings
Ptr CDouble
paddings' <- Ptr (Ptr CDouble) -> IO (Ptr CDouble)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr CDouble)
paddings
[Double]
paddings'' <- ((CDouble -> Double) -> Integer -> Ptr CDouble -> IO [Double]
forall a b c.
(Integral a, Storable b) =>
(b -> c) -> a -> Ptr b -> IO [c]
unpackMapStorableArrayWithLength CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac Integer
4) Ptr CDouble
paddings'
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
paddings'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Ptr (Ptr CDouble) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CDouble)
paddings
[Double] -> IO [Double]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Double]
paddings''
#if defined(ENABLE_OVERLOADING)
data StructureElementGetPaddingMethodInfo
instance (signature ~ (m ([Double])), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetPaddingMethodInfo a signature where
overloadedMethod = structureElementGetPadding
instance O.OverloadedMethodInfo StructureElementGetPaddingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetPadding",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetPadding"
})
#endif
foreign import ccall "poppler_structure_element_get_page" poppler_structure_element_get_page ::
Ptr StructureElement ->
IO Int32
structureElementGetPage ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Int32
structureElementGetPage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Int32
structureElementGetPage a
popplerStructureElement = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Int32
result <- Ptr StructureElement -> IO Int32
poppler_structure_element_get_page Ptr StructureElement
popplerStructureElement'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data StructureElementGetPageMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetPageMethodInfo a signature where
overloadedMethod = structureElementGetPage
instance O.OverloadedMethodInfo StructureElementGetPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetPage"
})
#endif
foreign import ccall "poppler_structure_element_get_placement" poppler_structure_element_get_placement ::
Ptr StructureElement ->
IO CUInt
structureElementGetPlacement ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Poppler.Enums.StructurePlacement
structureElementGetPlacement :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m StructurePlacement
structureElementGetPlacement a
popplerStructureElement = IO StructurePlacement -> m StructurePlacement
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StructurePlacement -> m StructurePlacement)
-> IO StructurePlacement -> m StructurePlacement
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CUInt
result <- Ptr StructureElement -> IO CUInt
poppler_structure_element_get_placement Ptr StructureElement
popplerStructureElement'
let result' :: StructurePlacement
result' = (Int -> StructurePlacement
forall a. Enum a => Int -> a
toEnum (Int -> StructurePlacement)
-> (CUInt -> Int) -> CUInt -> StructurePlacement
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
StructurePlacement -> IO StructurePlacement
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StructurePlacement
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetPlacementMethodInfo
instance (signature ~ (m Poppler.Enums.StructurePlacement), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetPlacementMethodInfo a signature where
overloadedMethod = structureElementGetPlacement
instance O.OverloadedMethodInfo StructureElementGetPlacementMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetPlacement",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetPlacement"
})
#endif
foreign import ccall "poppler_structure_element_get_ruby_align" poppler_structure_element_get_ruby_align ::
Ptr StructureElement ->
IO CUInt
structureElementGetRubyAlign ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Poppler.Enums.StructureRubyAlign
structureElementGetRubyAlign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m StructureRubyAlign
structureElementGetRubyAlign a
popplerStructureElement = IO StructureRubyAlign -> m StructureRubyAlign
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StructureRubyAlign -> m StructureRubyAlign)
-> IO StructureRubyAlign -> m StructureRubyAlign
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CUInt
result <- Ptr StructureElement -> IO CUInt
poppler_structure_element_get_ruby_align Ptr StructureElement
popplerStructureElement'
let result' :: StructureRubyAlign
result' = (Int -> StructureRubyAlign
forall a. Enum a => Int -> a
toEnum (Int -> StructureRubyAlign)
-> (CUInt -> Int) -> CUInt -> StructureRubyAlign
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
StructureRubyAlign -> IO StructureRubyAlign
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StructureRubyAlign
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetRubyAlignMethodInfo
instance (signature ~ (m Poppler.Enums.StructureRubyAlign), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetRubyAlignMethodInfo a signature where
overloadedMethod = structureElementGetRubyAlign
instance O.OverloadedMethodInfo StructureElementGetRubyAlignMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetRubyAlign",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetRubyAlign"
})
#endif
foreign import ccall "poppler_structure_element_get_ruby_position" poppler_structure_element_get_ruby_position ::
Ptr StructureElement ->
IO CUInt
structureElementGetRubyPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Poppler.Enums.StructureRubyPosition
structureElementGetRubyPosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m StructureRubyPosition
structureElementGetRubyPosition a
popplerStructureElement = IO StructureRubyPosition -> m StructureRubyPosition
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StructureRubyPosition -> m StructureRubyPosition)
-> IO StructureRubyPosition -> m StructureRubyPosition
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CUInt
result <- Ptr StructureElement -> IO CUInt
poppler_structure_element_get_ruby_position Ptr StructureElement
popplerStructureElement'
let result' :: StructureRubyPosition
result' = (Int -> StructureRubyPosition
forall a. Enum a => Int -> a
toEnum (Int -> StructureRubyPosition)
-> (CUInt -> Int) -> CUInt -> StructureRubyPosition
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
StructureRubyPosition -> IO StructureRubyPosition
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StructureRubyPosition
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetRubyPositionMethodInfo
instance (signature ~ (m Poppler.Enums.StructureRubyPosition), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetRubyPositionMethodInfo a signature where
overloadedMethod = structureElementGetRubyPosition
instance O.OverloadedMethodInfo StructureElementGetRubyPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetRubyPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetRubyPosition"
})
#endif
foreign import ccall "poppler_structure_element_get_space_after" poppler_structure_element_get_space_after ::
Ptr StructureElement ->
IO CDouble
structureElementGetSpaceAfter ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Double
structureElementGetSpaceAfter :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Double
structureElementGetSpaceAfter a
popplerStructureElement = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CDouble
result <- Ptr StructureElement -> IO CDouble
poppler_structure_element_get_space_after Ptr StructureElement
popplerStructureElement'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetSpaceAfterMethodInfo
instance (signature ~ (m Double), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetSpaceAfterMethodInfo a signature where
overloadedMethod = structureElementGetSpaceAfter
instance O.OverloadedMethodInfo StructureElementGetSpaceAfterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetSpaceAfter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetSpaceAfter"
})
#endif
foreign import ccall "poppler_structure_element_get_space_before" poppler_structure_element_get_space_before ::
Ptr StructureElement ->
IO CDouble
structureElementGetSpaceBefore ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Double
structureElementGetSpaceBefore :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Double
structureElementGetSpaceBefore a
popplerStructureElement = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CDouble
result <- Ptr StructureElement -> IO CDouble
poppler_structure_element_get_space_before Ptr StructureElement
popplerStructureElement'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetSpaceBeforeMethodInfo
instance (signature ~ (m Double), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetSpaceBeforeMethodInfo a signature where
overloadedMethod = structureElementGetSpaceBefore
instance O.OverloadedMethodInfo StructureElementGetSpaceBeforeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetSpaceBefore",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetSpaceBefore"
})
#endif
foreign import ccall "poppler_structure_element_get_start_indent" poppler_structure_element_get_start_indent ::
Ptr StructureElement ->
IO CDouble
structureElementGetStartIndent ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Double
structureElementGetStartIndent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Double
structureElementGetStartIndent a
popplerStructureElement = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CDouble
result <- Ptr StructureElement -> IO CDouble
poppler_structure_element_get_start_indent Ptr StructureElement
popplerStructureElement'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetStartIndentMethodInfo
instance (signature ~ (m Double), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetStartIndentMethodInfo a signature where
overloadedMethod = structureElementGetStartIndent
instance O.OverloadedMethodInfo StructureElementGetStartIndentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetStartIndent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetStartIndent"
})
#endif
foreign import ccall "poppler_structure_element_get_table_border_style" poppler_structure_element_get_table_border_style ::
Ptr StructureElement ->
Ptr (Ptr CUInt) ->
IO ()
structureElementGetTableBorderStyle ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m ([Poppler.Enums.StructureBorderStyle])
structureElementGetTableBorderStyle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m [StructureBorderStyle]
structureElementGetTableBorderStyle a
popplerStructureElement = IO [StructureBorderStyle] -> m [StructureBorderStyle]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [StructureBorderStyle] -> m [StructureBorderStyle])
-> IO [StructureBorderStyle] -> m [StructureBorderStyle]
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Ptr (Ptr CUInt)
borderStyles <- IO (Ptr (Ptr CUInt))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr CUInt))
Ptr StructureElement -> Ptr (Ptr CUInt) -> IO ()
poppler_structure_element_get_table_border_style Ptr StructureElement
popplerStructureElement' Ptr (Ptr CUInt)
borderStyles
Ptr CUInt
borderStyles' <- Ptr (Ptr CUInt) -> IO (Ptr CUInt)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr CUInt)
borderStyles
[CUInt]
borderStyles'' <- (Integer -> Ptr CUInt -> IO [CUInt]
forall a b. (Integral a, Storable b) => a -> Ptr b -> IO [b]
unpackStorableArrayWithLength Integer
4) Ptr CUInt
borderStyles'
let borderStyles''' :: [StructureBorderStyle]
borderStyles''' = (CUInt -> StructureBorderStyle)
-> [CUInt] -> [StructureBorderStyle]
forall a b. (a -> b) -> [a] -> [b]
map (Int -> StructureBorderStyle
forall a. Enum a => Int -> a
toEnum (Int -> StructureBorderStyle)
-> (CUInt -> Int) -> CUInt -> StructureBorderStyle
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) [CUInt]
borderStyles''
Ptr CUInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
borderStyles'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Ptr (Ptr CUInt) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CUInt)
borderStyles
[StructureBorderStyle] -> IO [StructureBorderStyle]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [StructureBorderStyle]
borderStyles'''
#if defined(ENABLE_OVERLOADING)
data StructureElementGetTableBorderStyleMethodInfo
instance (signature ~ (m ([Poppler.Enums.StructureBorderStyle])), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetTableBorderStyleMethodInfo a signature where
overloadedMethod = structureElementGetTableBorderStyle
instance O.OverloadedMethodInfo StructureElementGetTableBorderStyleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetTableBorderStyle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetTableBorderStyle"
})
#endif
foreign import ccall "poppler_structure_element_get_table_column_span" poppler_structure_element_get_table_column_span ::
Ptr StructureElement ->
IO Word32
structureElementGetTableColumnSpan ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Word32
structureElementGetTableColumnSpan :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Word32
structureElementGetTableColumnSpan a
popplerStructureElement = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Word32
result <- Ptr StructureElement -> IO Word32
poppler_structure_element_get_table_column_span Ptr StructureElement
popplerStructureElement'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data StructureElementGetTableColumnSpanMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetTableColumnSpanMethodInfo a signature where
overloadedMethod = structureElementGetTableColumnSpan
instance O.OverloadedMethodInfo StructureElementGetTableColumnSpanMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetTableColumnSpan",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetTableColumnSpan"
})
#endif
foreign import ccall "poppler_structure_element_get_table_headers" ::
Ptr StructureElement ->
IO (Ptr CString)
structureElementGetTableHeaders ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m [T.Text]
a
popplerStructureElement = IO [Text] -> m [Text]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Text] -> m [Text]) -> IO [Text] -> m [Text]
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Ptr CString
result <- Ptr StructureElement -> IO (Ptr CString)
poppler_structure_element_get_table_headers Ptr StructureElement
popplerStructureElement'
Text -> Ptr CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"structureElementGetTableHeaders" Ptr CString
result
[Text]
result' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
result
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
result
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
[Text] -> IO [Text]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetTableHeadersMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetTableHeadersMethodInfo a signature where
overloadedMethod = structureElementGetTableHeaders
instance O.OverloadedMethodInfo StructureElementGetTableHeadersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetTableHeaders",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetTableHeaders"
})
#endif
foreign import ccall "poppler_structure_element_get_table_padding" poppler_structure_element_get_table_padding ::
Ptr StructureElement ->
Ptr (Ptr CDouble) ->
IO ()
structureElementGetTablePadding ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m ([Double])
structureElementGetTablePadding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m [Double]
structureElementGetTablePadding a
popplerStructureElement = IO [Double] -> m [Double]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Double] -> m [Double]) -> IO [Double] -> m [Double]
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Ptr (Ptr CDouble)
paddings <- IO (Ptr (Ptr CDouble))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr CDouble))
Ptr StructureElement -> Ptr (Ptr CDouble) -> IO ()
poppler_structure_element_get_table_padding Ptr StructureElement
popplerStructureElement' Ptr (Ptr CDouble)
paddings
Ptr CDouble
paddings' <- Ptr (Ptr CDouble) -> IO (Ptr CDouble)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr CDouble)
paddings
[Double]
paddings'' <- ((CDouble -> Double) -> Integer -> Ptr CDouble -> IO [Double]
forall a b c.
(Integral a, Storable b) =>
(b -> c) -> a -> Ptr b -> IO [c]
unpackMapStorableArrayWithLength CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac Integer
4) Ptr CDouble
paddings'
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
paddings'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Ptr (Ptr CDouble) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CDouble)
paddings
[Double] -> IO [Double]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Double]
paddings''
#if defined(ENABLE_OVERLOADING)
data StructureElementGetTablePaddingMethodInfo
instance (signature ~ (m ([Double])), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetTablePaddingMethodInfo a signature where
overloadedMethod = structureElementGetTablePadding
instance O.OverloadedMethodInfo StructureElementGetTablePaddingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetTablePadding",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetTablePadding"
})
#endif
foreign import ccall "poppler_structure_element_get_table_row_span" poppler_structure_element_get_table_row_span ::
Ptr StructureElement ->
IO Word32
structureElementGetTableRowSpan ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Word32
structureElementGetTableRowSpan :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Word32
structureElementGetTableRowSpan a
popplerStructureElement = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Word32
result <- Ptr StructureElement -> IO Word32
poppler_structure_element_get_table_row_span Ptr StructureElement
popplerStructureElement'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data StructureElementGetTableRowSpanMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetTableRowSpanMethodInfo a signature where
overloadedMethod = structureElementGetTableRowSpan
instance O.OverloadedMethodInfo StructureElementGetTableRowSpanMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetTableRowSpan",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetTableRowSpan"
})
#endif
foreign import ccall "poppler_structure_element_get_table_scope" poppler_structure_element_get_table_scope ::
Ptr StructureElement ->
IO CUInt
structureElementGetTableScope ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Poppler.Enums.StructureTableScope
structureElementGetTableScope :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m StructureTableScope
structureElementGetTableScope a
popplerStructureElement = IO StructureTableScope -> m StructureTableScope
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StructureTableScope -> m StructureTableScope)
-> IO StructureTableScope -> m StructureTableScope
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CUInt
result <- Ptr StructureElement -> IO CUInt
poppler_structure_element_get_table_scope Ptr StructureElement
popplerStructureElement'
let result' :: StructureTableScope
result' = (Int -> StructureTableScope
forall a. Enum a => Int -> a
toEnum (Int -> StructureTableScope)
-> (CUInt -> Int) -> CUInt -> StructureTableScope
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
StructureTableScope -> IO StructureTableScope
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StructureTableScope
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetTableScopeMethodInfo
instance (signature ~ (m Poppler.Enums.StructureTableScope), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetTableScopeMethodInfo a signature where
overloadedMethod = structureElementGetTableScope
instance O.OverloadedMethodInfo StructureElementGetTableScopeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetTableScope",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetTableScope"
})
#endif
foreign import ccall "poppler_structure_element_get_table_summary" poppler_structure_element_get_table_summary ::
Ptr StructureElement ->
IO CString
structureElementGetTableSummary ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m T.Text
structureElementGetTableSummary :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Text
structureElementGetTableSummary a
popplerStructureElement = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CString
result <- Ptr StructureElement -> IO CString
poppler_structure_element_get_table_summary Ptr StructureElement
popplerStructureElement'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"structureElementGetTableSummary" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetTableSummaryMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetTableSummaryMethodInfo a signature where
overloadedMethod = structureElementGetTableSummary
instance O.OverloadedMethodInfo StructureElementGetTableSummaryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetTableSummary",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetTableSummary"
})
#endif
foreign import ccall "poppler_structure_element_get_text" poppler_structure_element_get_text ::
Ptr StructureElement ->
CUInt ->
IO CString
structureElementGetText ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> [Poppler.Flags.StructureGetTextFlags]
-> m T.Text
structureElementGetText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> [StructureGetTextFlags] -> m Text
structureElementGetText a
popplerStructureElement [StructureGetTextFlags]
flags = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
let flags' :: CUInt
flags' = [StructureGetTextFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [StructureGetTextFlags]
flags
CString
result <- Ptr StructureElement -> CUInt -> IO CString
poppler_structure_element_get_text Ptr StructureElement
popplerStructureElement' CUInt
flags'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"structureElementGetText" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetTextMethodInfo
instance (signature ~ ([Poppler.Flags.StructureGetTextFlags] -> m T.Text), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetTextMethodInfo a signature where
overloadedMethod = structureElementGetText
instance O.OverloadedMethodInfo StructureElementGetTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetText"
})
#endif
foreign import ccall "poppler_structure_element_get_text_align" poppler_structure_element_get_text_align ::
Ptr StructureElement ->
IO CUInt
structureElementGetTextAlign ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Poppler.Enums.StructureTextAlign
structureElementGetTextAlign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m StructureTextAlign
structureElementGetTextAlign a
popplerStructureElement = IO StructureTextAlign -> m StructureTextAlign
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StructureTextAlign -> m StructureTextAlign)
-> IO StructureTextAlign -> m StructureTextAlign
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CUInt
result <- Ptr StructureElement -> IO CUInt
poppler_structure_element_get_text_align Ptr StructureElement
popplerStructureElement'
let result' :: StructureTextAlign
result' = (Int -> StructureTextAlign
forall a. Enum a => Int -> a
toEnum (Int -> StructureTextAlign)
-> (CUInt -> Int) -> CUInt -> StructureTextAlign
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
StructureTextAlign -> IO StructureTextAlign
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StructureTextAlign
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetTextAlignMethodInfo
instance (signature ~ (m Poppler.Enums.StructureTextAlign), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetTextAlignMethodInfo a signature where
overloadedMethod = structureElementGetTextAlign
instance O.OverloadedMethodInfo StructureElementGetTextAlignMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetTextAlign",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetTextAlign"
})
#endif
foreign import ccall "poppler_structure_element_get_text_decoration_color" poppler_structure_element_get_text_decoration_color ::
Ptr StructureElement ->
Ptr Poppler.Color.Color ->
IO CInt
structureElementGetTextDecorationColor ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m ((Bool, Poppler.Color.Color))
structureElementGetTextDecorationColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m (Bool, Color)
structureElementGetTextDecorationColor a
popplerStructureElement = IO (Bool, Color) -> m (Bool, Color)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Color) -> m (Bool, Color))
-> IO (Bool, Color) -> m (Bool, Color)
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Ptr Color
color <- Int -> IO (Ptr Color)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
6 :: IO (Ptr Poppler.Color.Color)
CInt
result <- Ptr StructureElement -> Ptr Color -> IO CInt
poppler_structure_element_get_text_decoration_color Ptr StructureElement
popplerStructureElement' Ptr Color
color
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Color
color' <- ((ManagedPtr Color -> Color) -> Ptr Color -> IO Color
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Color -> Color
Poppler.Color.Color) Ptr Color
color
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
(Bool, Color) -> IO (Bool, Color)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Color
color')
#if defined(ENABLE_OVERLOADING)
data StructureElementGetTextDecorationColorMethodInfo
instance (signature ~ (m ((Bool, Poppler.Color.Color))), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetTextDecorationColorMethodInfo a signature where
overloadedMethod = structureElementGetTextDecorationColor
instance O.OverloadedMethodInfo StructureElementGetTextDecorationColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetTextDecorationColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetTextDecorationColor"
})
#endif
foreign import ccall "poppler_structure_element_get_text_decoration_thickness" poppler_structure_element_get_text_decoration_thickness ::
Ptr StructureElement ->
IO CDouble
structureElementGetTextDecorationThickness ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Double
structureElementGetTextDecorationThickness :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Double
structureElementGetTextDecorationThickness a
popplerStructureElement = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CDouble
result <- Ptr StructureElement -> IO CDouble
poppler_structure_element_get_text_decoration_thickness Ptr StructureElement
popplerStructureElement'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetTextDecorationThicknessMethodInfo
instance (signature ~ (m Double), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetTextDecorationThicknessMethodInfo a signature where
overloadedMethod = structureElementGetTextDecorationThickness
instance O.OverloadedMethodInfo StructureElementGetTextDecorationThicknessMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetTextDecorationThickness",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetTextDecorationThickness"
})
#endif
foreign import ccall "poppler_structure_element_get_text_decoration_type" poppler_structure_element_get_text_decoration_type ::
Ptr StructureElement ->
IO CUInt
structureElementGetTextDecorationType ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Poppler.Enums.StructureTextDecoration
structureElementGetTextDecorationType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m StructureTextDecoration
structureElementGetTextDecorationType a
popplerStructureElement = IO StructureTextDecoration -> m StructureTextDecoration
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StructureTextDecoration -> m StructureTextDecoration)
-> IO StructureTextDecoration -> m StructureTextDecoration
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CUInt
result <- Ptr StructureElement -> IO CUInt
poppler_structure_element_get_text_decoration_type Ptr StructureElement
popplerStructureElement'
let result' :: StructureTextDecoration
result' = (Int -> StructureTextDecoration
forall a. Enum a => Int -> a
toEnum (Int -> StructureTextDecoration)
-> (CUInt -> Int) -> CUInt -> StructureTextDecoration
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
StructureTextDecoration -> IO StructureTextDecoration
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StructureTextDecoration
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetTextDecorationTypeMethodInfo
instance (signature ~ (m Poppler.Enums.StructureTextDecoration), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetTextDecorationTypeMethodInfo a signature where
overloadedMethod = structureElementGetTextDecorationType
instance O.OverloadedMethodInfo StructureElementGetTextDecorationTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetTextDecorationType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetTextDecorationType"
})
#endif
foreign import ccall "poppler_structure_element_get_text_indent" poppler_structure_element_get_text_indent ::
Ptr StructureElement ->
IO CDouble
structureElementGetTextIndent ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Double
structureElementGetTextIndent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Double
structureElementGetTextIndent a
popplerStructureElement = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CDouble
result <- Ptr StructureElement -> IO CDouble
poppler_structure_element_get_text_indent Ptr StructureElement
popplerStructureElement'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetTextIndentMethodInfo
instance (signature ~ (m Double), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetTextIndentMethodInfo a signature where
overloadedMethod = structureElementGetTextIndent
instance O.OverloadedMethodInfo StructureElementGetTextIndentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetTextIndent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetTextIndent"
})
#endif
foreign import ccall "poppler_structure_element_get_text_spans" poppler_structure_element_get_text_spans ::
Ptr StructureElement ->
Ptr Word32 ->
IO (Ptr (Ptr Poppler.TextSpan.TextSpan))
structureElementGetTextSpans ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m [Poppler.TextSpan.TextSpan]
structureElementGetTextSpans :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m [TextSpan]
structureElementGetTextSpans a
popplerStructureElement = IO [TextSpan] -> m [TextSpan]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [TextSpan] -> m [TextSpan]) -> IO [TextSpan] -> m [TextSpan]
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
Ptr Word32
nTextSpans <- IO (Ptr Word32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word32)
Ptr (Ptr TextSpan)
result <- Ptr StructureElement -> Ptr Word32 -> IO (Ptr (Ptr TextSpan))
poppler_structure_element_get_text_spans Ptr StructureElement
popplerStructureElement' Ptr Word32
nTextSpans
Word32
nTextSpans' <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek Ptr Word32
nTextSpans
Text -> Ptr (Ptr TextSpan) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"structureElementGetTextSpans" Ptr (Ptr TextSpan)
result
[Ptr TextSpan]
result' <- (Word32 -> Ptr (Ptr TextSpan) -> IO [Ptr TextSpan]
forall a b. Integral a => a -> Ptr (Ptr b) -> IO [Ptr b]
unpackPtrArrayWithLength Word32
nTextSpans') Ptr (Ptr TextSpan)
result
[TextSpan]
result'' <- (Ptr TextSpan -> IO TextSpan) -> [Ptr TextSpan] -> IO [TextSpan]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr TextSpan -> TextSpan) -> Ptr TextSpan -> IO TextSpan
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TextSpan -> TextSpan
Poppler.TextSpan.TextSpan) [Ptr TextSpan]
result'
Ptr (Ptr TextSpan) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TextSpan)
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Ptr Word32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word32
nTextSpans
[TextSpan] -> IO [TextSpan]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [TextSpan]
result''
#if defined(ENABLE_OVERLOADING)
data StructureElementGetTextSpansMethodInfo
instance (signature ~ (m [Poppler.TextSpan.TextSpan]), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetTextSpansMethodInfo a signature where
overloadedMethod = structureElementGetTextSpans
instance O.OverloadedMethodInfo StructureElementGetTextSpansMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetTextSpans",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetTextSpans"
})
#endif
foreign import ccall "poppler_structure_element_get_title" poppler_structure_element_get_title ::
Ptr StructureElement ->
IO CString
structureElementGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m T.Text
structureElementGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Text
structureElementGetTitle a
popplerStructureElement = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CString
result <- Ptr StructureElement -> IO CString
poppler_structure_element_get_title Ptr StructureElement
popplerStructureElement'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"structureElementGetTitle" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetTitleMethodInfo a signature where
overloadedMethod = structureElementGetTitle
instance O.OverloadedMethodInfo StructureElementGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetTitle"
})
#endif
foreign import ccall "poppler_structure_element_get_width" poppler_structure_element_get_width ::
Ptr StructureElement ->
IO CDouble
structureElementGetWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Double
structureElementGetWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Double
structureElementGetWidth a
popplerStructureElement = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CDouble
result <- Ptr StructureElement -> IO CDouble
poppler_structure_element_get_width Ptr StructureElement
popplerStructureElement'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetWidthMethodInfo
instance (signature ~ (m Double), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetWidthMethodInfo a signature where
overloadedMethod = structureElementGetWidth
instance O.OverloadedMethodInfo StructureElementGetWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetWidth"
})
#endif
foreign import ccall "poppler_structure_element_get_writing_mode" poppler_structure_element_get_writing_mode ::
Ptr StructureElement ->
IO CUInt
structureElementGetWritingMode ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Poppler.Enums.StructureWritingMode
structureElementGetWritingMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m StructureWritingMode
structureElementGetWritingMode a
popplerStructureElement = IO StructureWritingMode -> m StructureWritingMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO StructureWritingMode -> m StructureWritingMode)
-> IO StructureWritingMode -> m StructureWritingMode
forall a b. (a -> b) -> a -> b
$ do
Ptr StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CUInt
result <- Ptr StructureElement -> IO CUInt
poppler_structure_element_get_writing_mode Ptr StructureElement
popplerStructureElement'
let result' :: StructureWritingMode
result' = (Int -> StructureWritingMode
forall a. Enum a => Int -> a
toEnum (Int -> StructureWritingMode)
-> (CUInt -> Int) -> CUInt -> StructureWritingMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
StructureWritingMode -> IO StructureWritingMode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return StructureWritingMode
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementGetWritingModeMethodInfo
instance (signature ~ (m Poppler.Enums.StructureWritingMode), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementGetWritingModeMethodInfo a signature where
overloadedMethod = structureElementGetWritingMode
instance O.OverloadedMethodInfo StructureElementGetWritingModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementGetWritingMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementGetWritingMode"
})
#endif
foreign import ccall "poppler_structure_element_is_block" poppler_structure_element_is_block ::
Ptr StructureElement ->
IO CInt
structureElementIsBlock ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Bool
structureElementIsBlock :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Bool
structureElementIsBlock a
popplerStructureElement = IO Bool -> m Bool
forall a. IO a -> m a
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 StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CInt
result <- Ptr StructureElement -> IO CInt
poppler_structure_element_is_block Ptr StructureElement
popplerStructureElement'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementIsBlockMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementIsBlockMethodInfo a signature where
overloadedMethod = structureElementIsBlock
instance O.OverloadedMethodInfo StructureElementIsBlockMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementIsBlock",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementIsBlock"
})
#endif
foreign import ccall "poppler_structure_element_is_content" poppler_structure_element_is_content ::
Ptr StructureElement ->
IO CInt
structureElementIsContent ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Bool
structureElementIsContent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Bool
structureElementIsContent a
popplerStructureElement = IO Bool -> m Bool
forall a. IO a -> m a
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 StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CInt
result <- Ptr StructureElement -> IO CInt
poppler_structure_element_is_content Ptr StructureElement
popplerStructureElement'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementIsContentMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementIsContentMethodInfo a signature where
overloadedMethod = structureElementIsContent
instance O.OverloadedMethodInfo StructureElementIsContentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementIsContent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementIsContent"
})
#endif
foreign import ccall "poppler_structure_element_is_grouping" poppler_structure_element_is_grouping ::
Ptr StructureElement ->
IO CInt
structureElementIsGrouping ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Bool
structureElementIsGrouping :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Bool
structureElementIsGrouping a
popplerStructureElement = IO Bool -> m Bool
forall a. IO a -> m a
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 StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CInt
result <- Ptr StructureElement -> IO CInt
poppler_structure_element_is_grouping Ptr StructureElement
popplerStructureElement'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementIsGroupingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementIsGroupingMethodInfo a signature where
overloadedMethod = structureElementIsGrouping
instance O.OverloadedMethodInfo StructureElementIsGroupingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementIsGrouping",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementIsGrouping"
})
#endif
foreign import ccall "poppler_structure_element_is_inline" poppler_structure_element_is_inline ::
Ptr StructureElement ->
IO CInt
structureElementIsInline ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m Bool
structureElementIsInline :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStructureElement a) =>
a -> m Bool
structureElementIsInline a
popplerStructureElement = IO Bool -> m Bool
forall a. IO a -> m a
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 StructureElement
popplerStructureElement' <- a -> IO (Ptr StructureElement)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerStructureElement
CInt
result <- Ptr StructureElement -> IO CInt
poppler_structure_element_is_inline Ptr StructureElement
popplerStructureElement'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerStructureElement
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StructureElementIsInlineMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStructureElement a) => O.OverloadedMethod StructureElementIsInlineMethodInfo a signature where
overloadedMethod = structureElementIsInline
instance O.OverloadedMethodInfo StructureElementIsInlineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.StructureElement.structureElementIsInline",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-StructureElement.html#v:structureElementIsInline"
})
#endif