{-# 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.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.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 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
/= :: StructureElement -> StructureElement -> Bool
$c/= :: StructureElement -> StructureElement -> Bool
== :: StructureElement -> StructureElement -> Bool
$c== :: 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
instance B.GValue.IsGValue StructureElement where
toGValue :: StructureElement -> IO GValue
toGValue StructureElement
o = do
GType
gtype <- IO GType
c_poppler_structure_element_get_type
StructureElement
-> (Ptr StructureElement -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr StructureElement
o (GType
-> (GValue -> Ptr StructureElement -> IO ())
-> Ptr StructureElement
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr StructureElement -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO StructureElement
fromGValue GValue
gv = do
Ptr StructureElement
ptr <- GValue -> IO (Ptr StructureElement)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr StructureElement)
(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
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 :: (MonadIO m, IsStructureElement o) => o -> m StructureElement
toStructureElement :: o -> m StructureElement
toStructureElement = IO StructureElement -> m StructureElement
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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'
unsafeCastTo ManagedPtr StructureElement -> StructureElement
StructureElement
#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.MethodInfo 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
#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 :: a -> m Text
structureElementGetAbbreviation a
popplerStructureElement = IO Text -> m Text
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 (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.MethodInfo StructureElementGetAbbreviationMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
structureElementGetActualText a
popplerStructureElement = IO Text -> m Text
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 (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.MethodInfo StructureElementGetActualTextMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
structureElementGetAltText a
popplerStructureElement = IO Text -> m Text
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 (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.MethodInfo StructureElementGetAltTextMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Bool, Color)
structureElementGetBackgroundColor a
popplerStructureElement = IO (Bool, Color) -> m (Bool, Color)
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 (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.MethodInfo StructureElementGetBackgroundColorMethodInfo a signature where
overloadedMethod = 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 :: a -> m Double
structureElementGetBaselineShift a
popplerStructureElement = IO Double -> m Double
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 (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.MethodInfo StructureElementGetBaselineShiftMethodInfo a signature where
overloadedMethod = 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 :: a -> m StructureBlockAlign
structureElementGetBlockAlign a
popplerStructureElement = IO StructureBlockAlign -> m StructureBlockAlign
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 (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.MethodInfo StructureElementGetBlockAlignMethodInfo a signature where
overloadedMethod = structureElementGetBlockAlign
#endif
#if defined(ENABLE_OVERLOADING)
data StructureElementGetBorderColorMethodInfo
instance (p ~ (), o ~ O.UnsupportedMethodError "getBorderColor" StructureElement) => O.MethodInfo StructureElementGetBorderColorMethodInfo o p where
overloadedMethod = 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 :: a -> m [StructureBorderStyle]
structureElementGetBorderStyle a
popplerStructureElement = IO [StructureBorderStyle] -> m [StructureBorderStyle]
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 (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.MethodInfo StructureElementGetBorderStyleMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Bool, [Double])
structureElementGetBorderThickness a
popplerStructureElement = IO (Bool, [Double]) -> m (Bool, [Double])
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 (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.MethodInfo StructureElementGetBorderThicknessMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Bool, Rectangle)
structureElementGetBoundingBox a
popplerStructureElement = IO (Bool, Rectangle) -> m (Bool, Rectangle)
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 (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.MethodInfo StructureElementGetBoundingBoxMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Bool, Color)
structureElementGetColor a
popplerStructureElement = IO (Bool, Color) -> m (Bool, Color)
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 (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.MethodInfo StructureElementGetColorMethodInfo a signature where
overloadedMethod = 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 :: a -> m Word32
structureElementGetColumnCount a
popplerStructureElement = IO Word32 -> m Word32
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 (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.MethodInfo StructureElementGetColumnCountMethodInfo a signature where
overloadedMethod = 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 :: a -> m [Double]
structureElementGetColumnGaps a
popplerStructureElement = IO [Double] -> m [Double]
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 (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.MethodInfo StructureElementGetColumnGapsMethodInfo a signature where
overloadedMethod = 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 :: a -> m [Double]
structureElementGetColumnWidths a
popplerStructureElement = IO [Double] -> m [Double]
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 (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.MethodInfo StructureElementGetColumnWidthsMethodInfo a signature where
overloadedMethod = 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 :: a -> m Double
structureElementGetEndIndent a
popplerStructureElement = IO Double -> m Double
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 (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.MethodInfo StructureElementGetEndIndentMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
structureElementGetFormDescription a
popplerStructureElement = IO Text -> m Text
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 (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.MethodInfo StructureElementGetFormDescriptionMethodInfo a signature where
overloadedMethod = 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 :: a -> m StructureFormRole
structureElementGetFormRole a
popplerStructureElement = IO StructureFormRole -> m StructureFormRole
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 (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.MethodInfo StructureElementGetFormRoleMethodInfo a signature where
overloadedMethod = 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 :: a -> m StructureFormState
structureElementGetFormState a
popplerStructureElement = IO StructureFormState -> m StructureFormState
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 (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.MethodInfo StructureElementGetFormStateMethodInfo a signature where
overloadedMethod = 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 :: a -> m StructureGlyphOrientation
structureElementGetGlyphOrientation a
popplerStructureElement = IO StructureGlyphOrientation -> m StructureGlyphOrientation
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 (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.MethodInfo StructureElementGetGlyphOrientationMethodInfo a signature where
overloadedMethod = 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 :: a -> m Double
structureElementGetHeight a
popplerStructureElement = IO Double -> m Double
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 (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.MethodInfo StructureElementGetHeightMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
structureElementGetId a
popplerStructureElement = IO Text -> m Text
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 (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.MethodInfo StructureElementGetIdMethodInfo a signature where
overloadedMethod = 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 :: a -> m StructureInlineAlign
structureElementGetInlineAlign a
popplerStructureElement = IO StructureInlineAlign -> m StructureInlineAlign
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 (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.MethodInfo StructureElementGetInlineAlignMethodInfo a signature where
overloadedMethod = 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 :: a -> m StructureElementKind
structureElementGetKind a
popplerStructureElement = IO StructureElementKind -> m StructureElementKind
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 (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.MethodInfo StructureElementGetKindMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
structureElementGetLanguage a
popplerStructureElement = IO Text -> m Text
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 (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.MethodInfo StructureElementGetLanguageMethodInfo a signature where
overloadedMethod = 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 :: a -> m Double
structureElementGetLineHeight a
popplerStructureElement = IO Double -> m Double
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 (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.MethodInfo StructureElementGetLineHeightMethodInfo a signature where
overloadedMethod = 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 :: a -> m StructureListNumbering
structureElementGetListNumbering a
popplerStructureElement = IO StructureListNumbering -> m StructureListNumbering
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 (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.MethodInfo StructureElementGetListNumberingMethodInfo a signature where
overloadedMethod = 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 :: a -> m [Double]
structureElementGetPadding a
popplerStructureElement = IO [Double] -> m [Double]
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 (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.MethodInfo StructureElementGetPaddingMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
structureElementGetPage a
popplerStructureElement = IO Int32 -> m Int32
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 (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.MethodInfo StructureElementGetPageMethodInfo a signature where
overloadedMethod = 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 :: a -> m StructurePlacement
structureElementGetPlacement a
popplerStructureElement = IO StructurePlacement -> m StructurePlacement
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 (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.MethodInfo StructureElementGetPlacementMethodInfo a signature where
overloadedMethod = 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 :: a -> m StructureRubyAlign
structureElementGetRubyAlign a
popplerStructureElement = IO StructureRubyAlign -> m StructureRubyAlign
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 (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.MethodInfo StructureElementGetRubyAlignMethodInfo a signature where
overloadedMethod = 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 :: a -> m StructureRubyPosition
structureElementGetRubyPosition a
popplerStructureElement = IO StructureRubyPosition -> m StructureRubyPosition
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 (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.MethodInfo StructureElementGetRubyPositionMethodInfo a signature where
overloadedMethod = 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 :: a -> m Double
structureElementGetSpaceAfter a
popplerStructureElement = IO Double -> m Double
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 (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.MethodInfo StructureElementGetSpaceAfterMethodInfo a signature where
overloadedMethod = 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 :: a -> m Double
structureElementGetSpaceBefore a
popplerStructureElement = IO Double -> m Double
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 (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.MethodInfo StructureElementGetSpaceBeforeMethodInfo a signature where
overloadedMethod = 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 :: a -> m Double
structureElementGetStartIndent a
popplerStructureElement = IO Double -> m Double
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 (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.MethodInfo StructureElementGetStartIndentMethodInfo a signature where
overloadedMethod = 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 :: a -> m [StructureBorderStyle]
structureElementGetTableBorderStyle a
popplerStructureElement = IO [StructureBorderStyle] -> m [StructureBorderStyle]
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 (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.MethodInfo StructureElementGetTableBorderStyleMethodInfo a signature where
overloadedMethod = 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 :: a -> m Word32
structureElementGetTableColumnSpan a
popplerStructureElement = IO Word32 -> m Word32
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 (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.MethodInfo StructureElementGetTableColumnSpanMethodInfo a signature where
overloadedMethod = 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 (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 (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.MethodInfo StructureElementGetTableHeadersMethodInfo a signature where
overloadedMethod = 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 :: a -> m [Double]
structureElementGetTablePadding a
popplerStructureElement = IO [Double] -> m [Double]
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 (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.MethodInfo StructureElementGetTablePaddingMethodInfo a signature where
overloadedMethod = 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 :: a -> m Word32
structureElementGetTableRowSpan a
popplerStructureElement = IO Word32 -> m Word32
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 (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.MethodInfo StructureElementGetTableRowSpanMethodInfo a signature where
overloadedMethod = 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 :: a -> m StructureTableScope
structureElementGetTableScope a
popplerStructureElement = IO StructureTableScope -> m StructureTableScope
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 (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.MethodInfo StructureElementGetTableScopeMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
structureElementGetTableSummary a
popplerStructureElement = IO Text -> m Text
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 (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.MethodInfo StructureElementGetTableSummaryMethodInfo a signature where
overloadedMethod = 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 :: a -> [StructureGetTextFlags] -> m Text
structureElementGetText a
popplerStructureElement [StructureGetTextFlags]
flags = IO Text -> m Text
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 (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.MethodInfo StructureElementGetTextMethodInfo a signature where
overloadedMethod = 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 :: a -> m StructureTextAlign
structureElementGetTextAlign a
popplerStructureElement = IO StructureTextAlign -> m StructureTextAlign
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 (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.MethodInfo StructureElementGetTextAlignMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Bool, Color)
structureElementGetTextDecorationColor a
popplerStructureElement = IO (Bool, Color) -> m (Bool, Color)
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 (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.MethodInfo StructureElementGetTextDecorationColorMethodInfo a signature where
overloadedMethod = 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 :: a -> m Double
structureElementGetTextDecorationThickness a
popplerStructureElement = IO Double -> m Double
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 (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.MethodInfo StructureElementGetTextDecorationThicknessMethodInfo a signature where
overloadedMethod = 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 :: a -> m StructureTextDecoration
structureElementGetTextDecorationType a
popplerStructureElement = IO StructureTextDecoration -> m StructureTextDecoration
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 (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.MethodInfo StructureElementGetTextDecorationTypeMethodInfo a signature where
overloadedMethod = 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 :: a -> m Double
structureElementGetTextIndent a
popplerStructureElement = IO Double -> m Double
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 (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.MethodInfo StructureElementGetTextIndentMethodInfo a signature where
overloadedMethod = 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 :: a -> m [TextSpan]
structureElementGetTextSpans a
popplerStructureElement = IO [TextSpan] -> m [TextSpan]
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)
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 (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.MethodInfo StructureElementGetTextSpansMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
structureElementGetTitle a
popplerStructureElement = IO Text -> m Text
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 (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.MethodInfo StructureElementGetTitleMethodInfo a signature where
overloadedMethod = 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 :: a -> m Double
structureElementGetWidth a
popplerStructureElement = IO Double -> m Double
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 (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.MethodInfo StructureElementGetWidthMethodInfo a signature where
overloadedMethod = 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 :: a -> m StructureWritingMode
structureElementGetWritingMode a
popplerStructureElement = IO StructureWritingMode -> m StructureWritingMode
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 (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.MethodInfo StructureElementGetWritingModeMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
structureElementIsBlock a
popplerStructureElement = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (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.MethodInfo StructureElementIsBlockMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
structureElementIsContent a
popplerStructureElement = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (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.MethodInfo StructureElementIsContentMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
structureElementIsGrouping a
popplerStructureElement = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (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.MethodInfo StructureElementIsGroupingMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
structureElementIsInline a
popplerStructureElement = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (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.MethodInfo StructureElementIsInlineMethodInfo a signature where
overloadedMethod = structureElementIsInline
#endif