module GI.Poppler.Objects.StructureElement
(
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetBorderColorMethodInfo,
#endif
StructureElement(..) ,
IsStructureElement ,
toStructureElement ,
noStructureElement ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetAbbreviationMethodInfo,
#endif
structureElementGetAbbreviation ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetActualTextMethodInfo ,
#endif
structureElementGetActualText ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetAltTextMethodInfo ,
#endif
structureElementGetAltText ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetBackgroundColorMethodInfo,
#endif
structureElementGetBackgroundColor ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetBaselineShiftMethodInfo,
#endif
structureElementGetBaselineShift ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetBlockAlignMethodInfo ,
#endif
structureElementGetBlockAlign ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetBorderStyleMethodInfo,
#endif
structureElementGetBorderStyle ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetBorderThicknessMethodInfo,
#endif
structureElementGetBorderThickness ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetBoundingBoxMethodInfo,
#endif
structureElementGetBoundingBox ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetColorMethodInfo ,
#endif
structureElementGetColor ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetColumnCountMethodInfo,
#endif
structureElementGetColumnCount ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetColumnGapsMethodInfo ,
#endif
structureElementGetColumnGaps ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetColumnWidthsMethodInfo,
#endif
structureElementGetColumnWidths ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetEndIndentMethodInfo ,
#endif
structureElementGetEndIndent ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetFormDescriptionMethodInfo,
#endif
structureElementGetFormDescription ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetFormRoleMethodInfo ,
#endif
structureElementGetFormRole ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetFormStateMethodInfo ,
#endif
structureElementGetFormState ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetGlyphOrientationMethodInfo,
#endif
structureElementGetGlyphOrientation ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetHeightMethodInfo ,
#endif
structureElementGetHeight ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetIdMethodInfo ,
#endif
structureElementGetId ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetInlineAlignMethodInfo,
#endif
structureElementGetInlineAlign ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetKindMethodInfo ,
#endif
structureElementGetKind ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetLanguageMethodInfo ,
#endif
structureElementGetLanguage ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetLineHeightMethodInfo ,
#endif
structureElementGetLineHeight ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetListNumberingMethodInfo,
#endif
structureElementGetListNumbering ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetPaddingMethodInfo ,
#endif
structureElementGetPadding ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetPageMethodInfo ,
#endif
structureElementGetPage ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetPlacementMethodInfo ,
#endif
structureElementGetPlacement ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetRubyAlignMethodInfo ,
#endif
structureElementGetRubyAlign ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetRubyPositionMethodInfo,
#endif
structureElementGetRubyPosition ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetSpaceAfterMethodInfo ,
#endif
structureElementGetSpaceAfter ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetSpaceBeforeMethodInfo,
#endif
structureElementGetSpaceBefore ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetStartIndentMethodInfo,
#endif
structureElementGetStartIndent ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetTableBorderStyleMethodInfo,
#endif
structureElementGetTableBorderStyle ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetTableColumnSpanMethodInfo,
#endif
structureElementGetTableColumnSpan ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetTableHeadersMethodInfo,
#endif
structureElementGetTableHeaders ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetTablePaddingMethodInfo,
#endif
structureElementGetTablePadding ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetTableRowSpanMethodInfo,
#endif
structureElementGetTableRowSpan ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetTableScopeMethodInfo ,
#endif
structureElementGetTableScope ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetTableSummaryMethodInfo,
#endif
structureElementGetTableSummary ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetTextMethodInfo ,
#endif
structureElementGetText ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetTextAlignMethodInfo ,
#endif
structureElementGetTextAlign ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetTextDecorationColorMethodInfo,
#endif
structureElementGetTextDecorationColor ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetTextDecorationThicknessMethodInfo,
#endif
structureElementGetTextDecorationThickness,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetTextDecorationTypeMethodInfo,
#endif
structureElementGetTextDecorationType ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetTextIndentMethodInfo ,
#endif
structureElementGetTextIndent ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetTextSpansMethodInfo ,
#endif
structureElementGetTextSpans ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetTitleMethodInfo ,
#endif
structureElementGetTitle ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetWidthMethodInfo ,
#endif
structureElementGetWidth ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementGetWritingModeMethodInfo,
#endif
structureElementGetWritingMode ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementIsBlockMethodInfo ,
#endif
structureElementIsBlock ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementIsContentMethodInfo ,
#endif
structureElementIsContent ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
StructureElementIsGroupingMethodInfo ,
#endif
structureElementIsGrouping ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.Poppler.Enums as Poppler.Enums
import qualified GI.Poppler.Flags as Poppler.Flags
import qualified GI.Poppler.Structs.Color as Poppler.Color
import qualified GI.Poppler.Structs.Rectangle as Poppler.Rectangle
import qualified GI.Poppler.Structs.TextSpan as Poppler.TextSpan
newtype StructureElement = StructureElement (ManagedPtr StructureElement)
foreign import ccall "poppler_structure_element_get_type"
c_poppler_structure_element_get_type :: IO GType
instance GObject StructureElement where
gobjectType _ = c_poppler_structure_element_get_type
class GObject o => IsStructureElement o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError StructureElement a) =>
IsStructureElement a
#endif
instance IsStructureElement StructureElement
instance GObject.Object.IsObject StructureElement
toStructureElement :: (MonadIO m, IsStructureElement o) => o -> m StructureElement
toStructureElement = liftIO . unsafeCastTo StructureElement
noStructureElement :: Maybe StructureElement
noStructureElement = Nothing
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 "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 "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveStructureElementMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
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 "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveStructureElementMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStructureElementMethod t StructureElement, O.MethodInfo info StructureElement p) => O.IsLabelProxy t (StructureElement -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveStructureElementMethod t StructureElement, O.MethodInfo info StructureElement p) => O.IsLabel t (StructureElement -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
instance O.HasAttributeList StructureElement
type instance O.AttributeList StructureElement = StructureElementAttributeList
type StructureElementAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_abbreviation popplerStructureElement'
checkUnexpectedReturnNULL "structureElementGetAbbreviation" result
result' <- cstringToText result
freeMem result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_actual_text popplerStructureElement'
checkUnexpectedReturnNULL "structureElementGetActualText" result
result' <- cstringToText result
freeMem result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_alt_text popplerStructureElement'
checkUnexpectedReturnNULL "structureElementGetAltText" result
result' <- cstringToText result
freeMem result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
color <- callocBoxedBytes 6 :: IO (Ptr Poppler.Color.Color)
result <- poppler_structure_element_get_background_color popplerStructureElement' color
let result' = (/= 0) result
color' <- (wrapBoxed Poppler.Color.Color) color
touchManagedPtr popplerStructureElement
return (result', color')
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_baseline_shift popplerStructureElement'
let result' = realToFrac result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_block_align popplerStructureElement'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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) && !defined(__HADDOCK_VERSION__)
data StructureElementGetBorderColorMethodInfo
instance (p ~ (), o ~ O.MethodResolutionFailed "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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
borderStyles <- allocMem :: IO (Ptr (Ptr CUInt))
poppler_structure_element_get_border_style popplerStructureElement' borderStyles
borderStyles' <- peek borderStyles
borderStyles'' <- (unpackStorableArrayWithLength 4) borderStyles'
let borderStyles''' = map (toEnum . fromIntegral) borderStyles''
freeMem borderStyles'
touchManagedPtr popplerStructureElement
freeMem borderStyles
return borderStyles'''
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
borderThicknesses <- allocMem :: IO (Ptr (Ptr CDouble))
result <- poppler_structure_element_get_border_thickness popplerStructureElement' borderThicknesses
let result' = (/= 0) result
borderThicknesses' <- peek borderThicknesses
borderThicknesses'' <- (unpackMapStorableArrayWithLength realToFrac 4) borderThicknesses'
freeMem borderThicknesses'
touchManagedPtr popplerStructureElement
freeMem borderThicknesses
return (result', borderThicknesses'')
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
boundingBox <- callocBoxedBytes 32 :: IO (Ptr Poppler.Rectangle.Rectangle)
result <- poppler_structure_element_get_bounding_box popplerStructureElement' boundingBox
let result' = (/= 0) result
boundingBox' <- (wrapBoxed Poppler.Rectangle.Rectangle) boundingBox
touchManagedPtr popplerStructureElement
return (result', boundingBox')
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
color <- callocBoxedBytes 6 :: IO (Ptr Poppler.Color.Color)
result <- poppler_structure_element_get_color popplerStructureElement' color
let result' = (/= 0) result
color' <- (wrapBoxed Poppler.Color.Color) color
touchManagedPtr popplerStructureElement
return (result', color')
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_column_count popplerStructureElement'
touchManagedPtr popplerStructureElement
return result
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
nValues <- allocMem :: IO (Ptr Word32)
result <- poppler_structure_element_get_column_gaps popplerStructureElement' nValues
nValues' <- peek nValues
checkUnexpectedReturnNULL "structureElementGetColumnGaps" result
result' <- (unpackMapStorableArrayWithLength realToFrac nValues') result
freeMem result
touchManagedPtr popplerStructureElement
freeMem nValues
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
nValues <- allocMem :: IO (Ptr Word32)
result <- poppler_structure_element_get_column_widths popplerStructureElement' nValues
nValues' <- peek nValues
checkUnexpectedReturnNULL "structureElementGetColumnWidths" result
result' <- (unpackMapStorableArrayWithLength realToFrac nValues') result
freeMem result
touchManagedPtr popplerStructureElement
freeMem nValues
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_end_indent popplerStructureElement'
let result' = realToFrac result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_form_description popplerStructureElement'
checkUnexpectedReturnNULL "structureElementGetFormDescription" result
result' <- cstringToText result
freeMem result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_form_role popplerStructureElement'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_form_state popplerStructureElement'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_glyph_orientation popplerStructureElement'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_height popplerStructureElement'
let result' = realToFrac result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_id popplerStructureElement'
checkUnexpectedReturnNULL "structureElementGetId" result
result' <- cstringToText result
freeMem result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_inline_align popplerStructureElement'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_kind popplerStructureElement'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_language popplerStructureElement'
checkUnexpectedReturnNULL "structureElementGetLanguage" result
result' <- cstringToText result
freeMem result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_line_height popplerStructureElement'
let result' = realToFrac result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_list_numbering popplerStructureElement'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
paddings <- allocMem :: IO (Ptr (Ptr CDouble))
poppler_structure_element_get_padding popplerStructureElement' paddings
paddings' <- peek paddings
paddings'' <- (unpackMapStorableArrayWithLength realToFrac 4) paddings'
freeMem paddings'
touchManagedPtr popplerStructureElement
freeMem paddings
return paddings''
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_page popplerStructureElement'
touchManagedPtr popplerStructureElement
return result
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_placement popplerStructureElement'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_ruby_align popplerStructureElement'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_ruby_position popplerStructureElement'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_space_after popplerStructureElement'
let result' = realToFrac result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_space_before popplerStructureElement'
let result' = realToFrac result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_start_indent popplerStructureElement'
let result' = realToFrac result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
borderStyles <- allocMem :: IO (Ptr (Ptr CUInt))
poppler_structure_element_get_table_border_style popplerStructureElement' borderStyles
borderStyles' <- peek borderStyles
borderStyles'' <- (unpackStorableArrayWithLength 4) borderStyles'
let borderStyles''' = map (toEnum . fromIntegral) borderStyles''
freeMem borderStyles'
touchManagedPtr popplerStructureElement
freeMem borderStyles
return borderStyles'''
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_table_column_span popplerStructureElement'
touchManagedPtr popplerStructureElement
return result
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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" poppler_structure_element_get_table_headers ::
Ptr StructureElement ->
IO (Ptr CString)
structureElementGetTableHeaders ::
(B.CallStack.HasCallStack, MonadIO m, IsStructureElement a) =>
a
-> m [T.Text]
structureElementGetTableHeaders popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_table_headers popplerStructureElement'
checkUnexpectedReturnNULL "structureElementGetTableHeaders" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
paddings <- allocMem :: IO (Ptr (Ptr CDouble))
poppler_structure_element_get_table_padding popplerStructureElement' paddings
paddings' <- peek paddings
paddings'' <- (unpackMapStorableArrayWithLength realToFrac 4) paddings'
freeMem paddings'
touchManagedPtr popplerStructureElement
freeMem paddings
return paddings''
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_table_row_span popplerStructureElement'
touchManagedPtr popplerStructureElement
return result
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_table_scope popplerStructureElement'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_table_summary popplerStructureElement'
checkUnexpectedReturnNULL "structureElementGetTableSummary" result
result' <- cstringToText result
freeMem result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement flags = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
let flags' = gflagsToWord flags
result <- poppler_structure_element_get_text popplerStructureElement' flags'
checkUnexpectedReturnNULL "structureElementGetText" result
result' <- cstringToText result
freeMem result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_text_align popplerStructureElement'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
color <- callocBoxedBytes 6 :: IO (Ptr Poppler.Color.Color)
result <- poppler_structure_element_get_text_decoration_color popplerStructureElement' color
let result' = (/= 0) result
color' <- (wrapBoxed Poppler.Color.Color) color
touchManagedPtr popplerStructureElement
return (result', color')
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_text_decoration_thickness popplerStructureElement'
let result' = realToFrac result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_text_decoration_type popplerStructureElement'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_text_indent popplerStructureElement'
let result' = realToFrac result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
nTextSpans <- allocMem :: IO (Ptr Word32)
result <- poppler_structure_element_get_text_spans popplerStructureElement' nTextSpans
nTextSpans' <- peek nTextSpans
checkUnexpectedReturnNULL "structureElementGetTextSpans" result
result' <- (unpackPtrArrayWithLength nTextSpans') result
result'' <- mapM (wrapBoxed Poppler.TextSpan.TextSpan) result'
freeMem result
touchManagedPtr popplerStructureElement
freeMem nTextSpans
return result''
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_title popplerStructureElement'
checkUnexpectedReturnNULL "structureElementGetTitle" result
result' <- cstringToText result
freeMem result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_width popplerStructureElement'
let result' = realToFrac result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_get_writing_mode popplerStructureElement'
let result' = (toEnum . fromIntegral) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_is_block popplerStructureElement'
let result' = (/= 0) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_is_content popplerStructureElement'
let result' = (/= 0) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_is_grouping popplerStructureElement'
let result' = (/= 0) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 popplerStructureElement = liftIO $ do
popplerStructureElement' <- unsafeManagedPtrCastPtr popplerStructureElement
result <- poppler_structure_element_is_inline popplerStructureElement'
let result' = (/= 0) result
touchManagedPtr popplerStructureElement
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data StructureElementIsInlineMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStructureElement a) => O.MethodInfo StructureElementIsInlineMethodInfo a signature where
overloadedMethod _ = structureElementIsInline
#endif