gi-poppler-0.0.34.13: GI/Poppler/Objects/StructureElement.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Poppler.Objects.StructureElement
(
-- * Exported types
StructureElement(..) ,
StructureElementK ,
toStructureElement ,
noStructureElement ,
-- * Methods
-- ** structureElementGetAbbreviation
StructureElementGetAbbreviationMethodInfo,
structureElementGetAbbreviation ,
-- ** structureElementGetActualText
StructureElementGetActualTextMethodInfo ,
structureElementGetActualText ,
-- ** structureElementGetAltText
StructureElementGetAltTextMethodInfo ,
structureElementGetAltText ,
-- ** structureElementGetBackgroundColor
StructureElementGetBackgroundColorMethodInfo,
structureElementGetBackgroundColor ,
-- ** structureElementGetBaselineShift
StructureElementGetBaselineShiftMethodInfo,
structureElementGetBaselineShift ,
-- ** structureElementGetBlockAlign
StructureElementGetBlockAlignMethodInfo ,
structureElementGetBlockAlign ,
-- ** structureElementGetBorderColor
StructureElementGetBorderColorMethodInfo,
structureElementGetBorderColor ,
-- ** structureElementGetBorderStyle
StructureElementGetBorderStyleMethodInfo,
structureElementGetBorderStyle ,
-- ** structureElementGetBorderThickness
StructureElementGetBorderThicknessMethodInfo,
structureElementGetBorderThickness ,
-- ** structureElementGetBoundingBox
StructureElementGetBoundingBoxMethodInfo,
structureElementGetBoundingBox ,
-- ** structureElementGetColor
StructureElementGetColorMethodInfo ,
structureElementGetColor ,
-- ** structureElementGetColumnCount
StructureElementGetColumnCountMethodInfo,
structureElementGetColumnCount ,
-- ** structureElementGetColumnGaps
StructureElementGetColumnGapsMethodInfo ,
structureElementGetColumnGaps ,
-- ** structureElementGetColumnWidths
StructureElementGetColumnWidthsMethodInfo,
structureElementGetColumnWidths ,
-- ** structureElementGetEndIndent
StructureElementGetEndIndentMethodInfo ,
structureElementGetEndIndent ,
-- ** structureElementGetFormDescription
StructureElementGetFormDescriptionMethodInfo,
structureElementGetFormDescription ,
-- ** structureElementGetFormRole
StructureElementGetFormRoleMethodInfo ,
structureElementGetFormRole ,
-- ** structureElementGetFormState
StructureElementGetFormStateMethodInfo ,
structureElementGetFormState ,
-- ** structureElementGetGlyphOrientation
StructureElementGetGlyphOrientationMethodInfo,
structureElementGetGlyphOrientation ,
-- ** structureElementGetHeight
StructureElementGetHeightMethodInfo ,
structureElementGetHeight ,
-- ** structureElementGetId
StructureElementGetIdMethodInfo ,
structureElementGetId ,
-- ** structureElementGetInlineAlign
StructureElementGetInlineAlignMethodInfo,
structureElementGetInlineAlign ,
-- ** structureElementGetKind
StructureElementGetKindMethodInfo ,
structureElementGetKind ,
-- ** structureElementGetLanguage
StructureElementGetLanguageMethodInfo ,
structureElementGetLanguage ,
-- ** structureElementGetLineHeight
StructureElementGetLineHeightMethodInfo ,
structureElementGetLineHeight ,
-- ** structureElementGetListNumbering
StructureElementGetListNumberingMethodInfo,
structureElementGetListNumbering ,
-- ** structureElementGetPadding
StructureElementGetPaddingMethodInfo ,
structureElementGetPadding ,
-- ** structureElementGetPage
StructureElementGetPageMethodInfo ,
structureElementGetPage ,
-- ** structureElementGetPlacement
StructureElementGetPlacementMethodInfo ,
structureElementGetPlacement ,
-- ** structureElementGetRubyAlign
StructureElementGetRubyAlignMethodInfo ,
structureElementGetRubyAlign ,
-- ** structureElementGetRubyPosition
StructureElementGetRubyPositionMethodInfo,
structureElementGetRubyPosition ,
-- ** structureElementGetSpaceAfter
StructureElementGetSpaceAfterMethodInfo ,
structureElementGetSpaceAfter ,
-- ** structureElementGetSpaceBefore
StructureElementGetSpaceBeforeMethodInfo,
structureElementGetSpaceBefore ,
-- ** structureElementGetStartIndent
StructureElementGetStartIndentMethodInfo,
structureElementGetStartIndent ,
-- ** structureElementGetTableBorderStyle
StructureElementGetTableBorderStyleMethodInfo,
structureElementGetTableBorderStyle ,
-- ** structureElementGetTableColumnSpan
StructureElementGetTableColumnSpanMethodInfo,
structureElementGetTableColumnSpan ,
-- ** structureElementGetTableHeaders
StructureElementGetTableHeadersMethodInfo,
structureElementGetTableHeaders ,
-- ** structureElementGetTablePadding
StructureElementGetTablePaddingMethodInfo,
structureElementGetTablePadding ,
-- ** structureElementGetTableRowSpan
StructureElementGetTableRowSpanMethodInfo,
structureElementGetTableRowSpan ,
-- ** structureElementGetTableScope
StructureElementGetTableScopeMethodInfo ,
structureElementGetTableScope ,
-- ** structureElementGetTableSummary
StructureElementGetTableSummaryMethodInfo,
structureElementGetTableSummary ,
-- ** structureElementGetText
StructureElementGetTextMethodInfo ,
structureElementGetText ,
-- ** structureElementGetTextAlign
StructureElementGetTextAlignMethodInfo ,
structureElementGetTextAlign ,
-- ** structureElementGetTextDecorationColor
StructureElementGetTextDecorationColorMethodInfo,
structureElementGetTextDecorationColor ,
-- ** structureElementGetTextDecorationThickness
StructureElementGetTextDecorationThicknessMethodInfo,
structureElementGetTextDecorationThickness,
-- ** structureElementGetTextDecorationType
StructureElementGetTextDecorationTypeMethodInfo,
structureElementGetTextDecorationType ,
-- ** structureElementGetTextIndent
StructureElementGetTextIndentMethodInfo ,
structureElementGetTextIndent ,
-- ** structureElementGetTextSpans
StructureElementGetTextSpansMethodInfo ,
structureElementGetTextSpans ,
-- ** structureElementGetTitle
StructureElementGetTitleMethodInfo ,
structureElementGetTitle ,
-- ** structureElementGetWidth
StructureElementGetWidthMethodInfo ,
structureElementGetWidth ,
-- ** structureElementGetWritingMode
StructureElementGetWritingModeMethodInfo,
structureElementGetWritingMode ,
-- ** structureElementIsBlock
StructureElementIsBlockMethodInfo ,
structureElementIsBlock ,
-- ** structureElementIsContent
StructureElementIsContentMethodInfo ,
structureElementIsContent ,
-- ** structureElementIsGrouping
StructureElementIsGroupingMethodInfo ,
structureElementIsGrouping ,
-- ** structureElementIsInline
StructureElementIsInlineMethodInfo ,
structureElementIsInline ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Poppler.Types
import GI.Poppler.Callbacks
import qualified GI.GObject as GObject
newtype StructureElement = StructureElement (ForeignPtr StructureElement)
foreign import ccall "poppler_structure_element_get_type"
c_poppler_structure_element_get_type :: IO GType
type instance ParentTypes StructureElement = StructureElementParentTypes
type StructureElementParentTypes = '[GObject.Object]
instance GObject StructureElement where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_poppler_structure_element_get_type
class GObject o => StructureElementK o
instance (GObject o, IsDescendantOf StructureElement o) => StructureElementK o
toStructureElement :: StructureElementK o => o -> IO StructureElement
toStructureElement = unsafeCastTo StructureElement
noStructureElement :: Maybe StructureElement
noStructureElement = Nothing
type family ResolveStructureElementMethod (t :: Symbol) (o :: *) :: * where
ResolveStructureElementMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo
ResolveStructureElementMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo
ResolveStructureElementMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo
ResolveStructureElementMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo
ResolveStructureElementMethod "isBlock" o = StructureElementIsBlockMethodInfo
ResolveStructureElementMethod "isContent" o = StructureElementIsContentMethodInfo
ResolveStructureElementMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo
ResolveStructureElementMethod "isGrouping" o = StructureElementIsGroupingMethodInfo
ResolveStructureElementMethod "isInline" o = StructureElementIsInlineMethodInfo
ResolveStructureElementMethod "notify" o = GObject.ObjectNotifyMethodInfo
ResolveStructureElementMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo
ResolveStructureElementMethod "ref" o = GObject.ObjectRefMethodInfo
ResolveStructureElementMethod "refSink" o = GObject.ObjectRefSinkMethodInfo
ResolveStructureElementMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo
ResolveStructureElementMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo
ResolveStructureElementMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo
ResolveStructureElementMethod "stealData" o = GObject.ObjectStealDataMethodInfo
ResolveStructureElementMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo
ResolveStructureElementMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo
ResolveStructureElementMethod "unref" o = GObject.ObjectUnrefMethodInfo
ResolveStructureElementMethod "watchClosure" o = GObject.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.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.ObjectGetPropertyMethodInfo
ResolveStructureElementMethod "getQdata" o = GObject.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.ObjectSetDataMethodInfo
ResolveStructureElementMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo
ResolveStructureElementMethod l o = MethodResolutionFailed l o
instance (info ~ ResolveStructureElementMethod t StructureElement, MethodInfo info StructureElement p) => IsLabelProxy t (StructureElement -> p) where
fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveStructureElementMethod t StructureElement, MethodInfo info StructureElement p) => IsLabel t (StructureElement -> p) where
fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)
#endif
type instance AttributeList StructureElement = StructureElementAttributeList
type StructureElementAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList StructureElement = StructureElementSignalList
type StructureElementSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method StructureElement::get_abbreviation
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_abbreviation" poppler_structure_element_get_abbreviation ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CString
structureElementGetAbbreviation ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m T.Text -- result
structureElementGetAbbreviation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_abbreviation _obj'
checkUnexpectedReturnNULL "poppler_structure_element_get_abbreviation" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
data StructureElementGetAbbreviationMethodInfo
instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetAbbreviationMethodInfo a signature where
overloadedMethod _ = structureElementGetAbbreviation
-- method StructureElement::get_actual_text
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_actual_text" poppler_structure_element_get_actual_text ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CString
structureElementGetActualText ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m T.Text -- result
structureElementGetActualText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_actual_text _obj'
checkUnexpectedReturnNULL "poppler_structure_element_get_actual_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
data StructureElementGetActualTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetActualTextMethodInfo a signature where
overloadedMethod _ = structureElementGetActualText
-- method StructureElement::get_alt_text
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_alt_text" poppler_structure_element_get_alt_text ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CString
structureElementGetAltText ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m T.Text -- result
structureElementGetAltText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_alt_text _obj'
checkUnexpectedReturnNULL "poppler_structure_element_get_alt_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
data StructureElementGetAltTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetAltTextMethodInfo a signature where
overloadedMethod _ = structureElementGetAltText
-- method StructureElement::get_background_color
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Poppler" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_background_color" poppler_structure_element_get_background_color ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
Ptr Color -> -- color : TInterface "Poppler" "Color"
IO CInt
structureElementGetBackgroundColor ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m (Bool,Color) -- result
structureElementGetBackgroundColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
color <- callocBoxedBytes 6 :: IO (Ptr Color)
result <- poppler_structure_element_get_background_color _obj' color
let result' = (/= 0) result
color' <- (wrapBoxed Color) color
touchManagedPtr _obj
return (result', color')
data StructureElementGetBackgroundColorMethodInfo
instance (signature ~ (m (Bool,Color)), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetBackgroundColorMethodInfo a signature where
overloadedMethod _ = structureElementGetBackgroundColor
-- method StructureElement::get_baseline_shift
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_baseline_shift" poppler_structure_element_get_baseline_shift ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CDouble
structureElementGetBaselineShift ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Double -- result
structureElementGetBaselineShift _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_baseline_shift _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data StructureElementGetBaselineShiftMethodInfo
instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetBaselineShiftMethodInfo a signature where
overloadedMethod _ = structureElementGetBaselineShift
-- method StructureElement::get_block_align
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Poppler" "StructureBlockAlign"
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_block_align" poppler_structure_element_get_block_align ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CUInt
structureElementGetBlockAlign ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m StructureBlockAlign -- result
structureElementGetBlockAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_block_align _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data StructureElementGetBlockAlignMethodInfo
instance (signature ~ (m StructureBlockAlign), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetBlockAlignMethodInfo a signature where
overloadedMethod _ = structureElementGetBlockAlign
-- method StructureElement::get_border_color
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colors", argType = TCArray False 4 (-1) (TInterface "Poppler" "Color"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_border_color" poppler_structure_element_get_border_color ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
Ptr Color -> -- colors : TCArray False 4 (-1) (TInterface "Poppler" "Color")
IO CInt
structureElementGetBorderColor ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> [Color] -- colors
-> m (Bool,[Color]) -- result
structureElementGetBorderColor _obj colors = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let colors' = map unsafeManagedPtrGetPtr colors
colors'' <- packBlockArray 6 colors'
result <- poppler_structure_element_get_border_color _obj' colors''
let result' = (/= 0) result
colors''' <- (unpackBoxedArrayWithLength 6 4) colors''
colors'''' <- mapM (newBoxed Color) colors'''
touchManagedPtr _obj
mapM_ touchManagedPtr colors
freeMem colors''
return (result', colors'''')
data StructureElementGetBorderColorMethodInfo
instance (signature ~ ([Color] -> m (Bool,[Color])), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetBorderColorMethodInfo a signature where
overloadedMethod _ = structureElementGetBorderColor
-- method StructureElement::get_border_style
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border_styles", argType = TCArray False 4 (-1) (TInterface "Poppler" "StructureBorderStyle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_border_style" poppler_structure_element_get_border_style ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
Ptr (Ptr CUInt) -> -- border_styles : TCArray False 4 (-1) (TInterface "Poppler" "StructureBorderStyle")
IO ()
structureElementGetBorderStyle ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m ([StructureBorderStyle]) -- result
structureElementGetBorderStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
borderStyles <- allocMem :: IO (Ptr (Ptr CUInt))
poppler_structure_element_get_border_style _obj' borderStyles
borderStyles' <- peek borderStyles
borderStyles'' <- (unpackStorableArrayWithLength 4) borderStyles'
let borderStyles''' = map (toEnum . fromIntegral) borderStyles''
freeMem borderStyles'
touchManagedPtr _obj
freeMem borderStyles
return borderStyles'''
data StructureElementGetBorderStyleMethodInfo
instance (signature ~ (m ([StructureBorderStyle])), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetBorderStyleMethodInfo a signature where
overloadedMethod _ = structureElementGetBorderStyle
-- method StructureElement::get_border_thickness
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border_thicknesses", argType = TCArray False 4 (-1) (TBasicType TDouble), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_border_thickness" poppler_structure_element_get_border_thickness ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
Ptr (Ptr CDouble) -> -- border_thicknesses : TCArray False 4 (-1) (TBasicType TDouble)
IO CInt
structureElementGetBorderThickness ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m (Bool,[Double]) -- result
structureElementGetBorderThickness _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
borderThicknesses <- allocMem :: IO (Ptr (Ptr CDouble))
result <- poppler_structure_element_get_border_thickness _obj' borderThicknesses
let result' = (/= 0) result
borderThicknesses' <- peek borderThicknesses
borderThicknesses'' <- (unpackMapStorableArrayWithLength realToFrac 4) borderThicknesses'
freeMem borderThicknesses'
touchManagedPtr _obj
freeMem borderThicknesses
return (result', borderThicknesses'')
data StructureElementGetBorderThicknessMethodInfo
instance (signature ~ (m (Bool,[Double])), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetBorderThicknessMethodInfo a signature where
overloadedMethod _ = structureElementGetBorderThickness
-- method StructureElement::get_bounding_box
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bounding_box", argType = TInterface "Poppler" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_bounding_box" poppler_structure_element_get_bounding_box ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
Ptr Rectangle -> -- bounding_box : TInterface "Poppler" "Rectangle"
IO CInt
structureElementGetBoundingBox ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m (Bool,Rectangle) -- result
structureElementGetBoundingBox _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
boundingBox <- callocBoxedBytes 32 :: IO (Ptr Rectangle)
result <- poppler_structure_element_get_bounding_box _obj' boundingBox
let result' = (/= 0) result
boundingBox' <- (wrapBoxed Rectangle) boundingBox
touchManagedPtr _obj
return (result', boundingBox')
data StructureElementGetBoundingBoxMethodInfo
instance (signature ~ (m (Bool,Rectangle)), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetBoundingBoxMethodInfo a signature where
overloadedMethod _ = structureElementGetBoundingBox
-- method StructureElement::get_color
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Poppler" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_color" poppler_structure_element_get_color ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
Ptr Color -> -- color : TInterface "Poppler" "Color"
IO CInt
structureElementGetColor ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m (Bool,Color) -- result
structureElementGetColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
color <- callocBoxedBytes 6 :: IO (Ptr Color)
result <- poppler_structure_element_get_color _obj' color
let result' = (/= 0) result
color' <- (wrapBoxed Color) color
touchManagedPtr _obj
return (result', color')
data StructureElementGetColorMethodInfo
instance (signature ~ (m (Bool,Color)), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetColorMethodInfo a signature where
overloadedMethod _ = structureElementGetColor
-- method StructureElement::get_column_count
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_column_count" poppler_structure_element_get_column_count ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO Word32
structureElementGetColumnCount ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Word32 -- result
structureElementGetColumnCount _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_column_count _obj'
touchManagedPtr _obj
return result
data StructureElementGetColumnCountMethodInfo
instance (signature ~ (m Word32), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetColumnCountMethodInfo a signature where
overloadedMethod _ = structureElementGetColumnCount
-- method StructureElement::get_column_gaps
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : [Arg {argCName = "n_values", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- returnType : TCArray False (-1) 1 (TBasicType TDouble)
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_column_gaps" poppler_structure_element_get_column_gaps ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
Ptr Word32 -> -- n_values : TBasicType TUInt32
IO (Ptr CDouble)
structureElementGetColumnGaps ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m [Double] -- result
structureElementGetColumnGaps _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
nValues <- allocMem :: IO (Ptr Word32)
result <- poppler_structure_element_get_column_gaps _obj' nValues
nValues' <- peek nValues
checkUnexpectedReturnNULL "poppler_structure_element_get_column_gaps" result
result' <- (unpackMapStorableArrayWithLength realToFrac nValues') result
freeMem result
touchManagedPtr _obj
freeMem nValues
return result'
data StructureElementGetColumnGapsMethodInfo
instance (signature ~ (m [Double]), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetColumnGapsMethodInfo a signature where
overloadedMethod _ = structureElementGetColumnGaps
-- method StructureElement::get_column_widths
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_values", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : [Arg {argCName = "n_values", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- returnType : TCArray False (-1) 1 (TBasicType TDouble)
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_column_widths" poppler_structure_element_get_column_widths ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
Ptr Word32 -> -- n_values : TBasicType TUInt32
IO (Ptr CDouble)
structureElementGetColumnWidths ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m [Double] -- result
structureElementGetColumnWidths _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
nValues <- allocMem :: IO (Ptr Word32)
result <- poppler_structure_element_get_column_widths _obj' nValues
nValues' <- peek nValues
checkUnexpectedReturnNULL "poppler_structure_element_get_column_widths" result
result' <- (unpackMapStorableArrayWithLength realToFrac nValues') result
freeMem result
touchManagedPtr _obj
freeMem nValues
return result'
data StructureElementGetColumnWidthsMethodInfo
instance (signature ~ (m [Double]), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetColumnWidthsMethodInfo a signature where
overloadedMethod _ = structureElementGetColumnWidths
-- method StructureElement::get_end_indent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_end_indent" poppler_structure_element_get_end_indent ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CDouble
structureElementGetEndIndent ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Double -- result
structureElementGetEndIndent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_end_indent _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data StructureElementGetEndIndentMethodInfo
instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetEndIndentMethodInfo a signature where
overloadedMethod _ = structureElementGetEndIndent
-- method StructureElement::get_form_description
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_form_description" poppler_structure_element_get_form_description ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CString
structureElementGetFormDescription ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m T.Text -- result
structureElementGetFormDescription _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_form_description _obj'
checkUnexpectedReturnNULL "poppler_structure_element_get_form_description" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
data StructureElementGetFormDescriptionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetFormDescriptionMethodInfo a signature where
overloadedMethod _ = structureElementGetFormDescription
-- method StructureElement::get_form_role
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Poppler" "StructureFormRole"
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_form_role" poppler_structure_element_get_form_role ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CUInt
structureElementGetFormRole ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m StructureFormRole -- result
structureElementGetFormRole _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_form_role _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data StructureElementGetFormRoleMethodInfo
instance (signature ~ (m StructureFormRole), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetFormRoleMethodInfo a signature where
overloadedMethod _ = structureElementGetFormRole
-- method StructureElement::get_form_state
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Poppler" "StructureFormState"
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_form_state" poppler_structure_element_get_form_state ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CUInt
structureElementGetFormState ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m StructureFormState -- result
structureElementGetFormState _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_form_state _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data StructureElementGetFormStateMethodInfo
instance (signature ~ (m StructureFormState), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetFormStateMethodInfo a signature where
overloadedMethod _ = structureElementGetFormState
-- method StructureElement::get_glyph_orientation
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Poppler" "StructureGlyphOrientation"
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_glyph_orientation" poppler_structure_element_get_glyph_orientation ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CUInt
structureElementGetGlyphOrientation ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m StructureGlyphOrientation -- result
structureElementGetGlyphOrientation _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_glyph_orientation _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data StructureElementGetGlyphOrientationMethodInfo
instance (signature ~ (m StructureGlyphOrientation), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetGlyphOrientationMethodInfo a signature where
overloadedMethod _ = structureElementGetGlyphOrientation
-- method StructureElement::get_height
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_height" poppler_structure_element_get_height ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CDouble
structureElementGetHeight ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Double -- result
structureElementGetHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_height _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data StructureElementGetHeightMethodInfo
instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetHeightMethodInfo a signature where
overloadedMethod _ = structureElementGetHeight
-- method StructureElement::get_id
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_id" poppler_structure_element_get_id ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CString
structureElementGetId ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m T.Text -- result
structureElementGetId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_id _obj'
checkUnexpectedReturnNULL "poppler_structure_element_get_id" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
data StructureElementGetIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetIdMethodInfo a signature where
overloadedMethod _ = structureElementGetId
-- method StructureElement::get_inline_align
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Poppler" "StructureInlineAlign"
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_inline_align" poppler_structure_element_get_inline_align ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CUInt
structureElementGetInlineAlign ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m StructureInlineAlign -- result
structureElementGetInlineAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_inline_align _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data StructureElementGetInlineAlignMethodInfo
instance (signature ~ (m StructureInlineAlign), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetInlineAlignMethodInfo a signature where
overloadedMethod _ = structureElementGetInlineAlign
-- method StructureElement::get_kind
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Poppler" "StructureElementKind"
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_kind" poppler_structure_element_get_kind ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CUInt
structureElementGetKind ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m StructureElementKind -- result
structureElementGetKind _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_kind _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data StructureElementGetKindMethodInfo
instance (signature ~ (m StructureElementKind), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetKindMethodInfo a signature where
overloadedMethod _ = structureElementGetKind
-- method StructureElement::get_language
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_language" poppler_structure_element_get_language ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CString
structureElementGetLanguage ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m T.Text -- result
structureElementGetLanguage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_language _obj'
checkUnexpectedReturnNULL "poppler_structure_element_get_language" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
data StructureElementGetLanguageMethodInfo
instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetLanguageMethodInfo a signature where
overloadedMethod _ = structureElementGetLanguage
-- method StructureElement::get_line_height
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_line_height" poppler_structure_element_get_line_height ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CDouble
structureElementGetLineHeight ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Double -- result
structureElementGetLineHeight _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_line_height _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data StructureElementGetLineHeightMethodInfo
instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetLineHeightMethodInfo a signature where
overloadedMethod _ = structureElementGetLineHeight
-- method StructureElement::get_list_numbering
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Poppler" "StructureListNumbering"
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_list_numbering" poppler_structure_element_get_list_numbering ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CUInt
structureElementGetListNumbering ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m StructureListNumbering -- result
structureElementGetListNumbering _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_list_numbering _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data StructureElementGetListNumberingMethodInfo
instance (signature ~ (m StructureListNumbering), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetListNumberingMethodInfo a signature where
overloadedMethod _ = structureElementGetListNumbering
-- method StructureElement::get_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paddings", argType = TCArray False 4 (-1) (TBasicType TDouble), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_padding" poppler_structure_element_get_padding ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
Ptr (Ptr CDouble) -> -- paddings : TCArray False 4 (-1) (TBasicType TDouble)
IO ()
structureElementGetPadding ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m ([Double]) -- result
structureElementGetPadding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
paddings <- allocMem :: IO (Ptr (Ptr CDouble))
poppler_structure_element_get_padding _obj' paddings
paddings' <- peek paddings
paddings'' <- (unpackMapStorableArrayWithLength realToFrac 4) paddings'
freeMem paddings'
touchManagedPtr _obj
freeMem paddings
return paddings''
data StructureElementGetPaddingMethodInfo
instance (signature ~ (m ([Double])), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetPaddingMethodInfo a signature where
overloadedMethod _ = structureElementGetPadding
-- method StructureElement::get_page
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_page" poppler_structure_element_get_page ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO Int32
structureElementGetPage ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Int32 -- result
structureElementGetPage _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_page _obj'
touchManagedPtr _obj
return result
data StructureElementGetPageMethodInfo
instance (signature ~ (m Int32), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetPageMethodInfo a signature where
overloadedMethod _ = structureElementGetPage
-- method StructureElement::get_placement
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Poppler" "StructurePlacement"
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_placement" poppler_structure_element_get_placement ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CUInt
structureElementGetPlacement ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m StructurePlacement -- result
structureElementGetPlacement _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_placement _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data StructureElementGetPlacementMethodInfo
instance (signature ~ (m StructurePlacement), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetPlacementMethodInfo a signature where
overloadedMethod _ = structureElementGetPlacement
-- method StructureElement::get_ruby_align
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Poppler" "StructureRubyAlign"
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_ruby_align" poppler_structure_element_get_ruby_align ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CUInt
structureElementGetRubyAlign ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m StructureRubyAlign -- result
structureElementGetRubyAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_ruby_align _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data StructureElementGetRubyAlignMethodInfo
instance (signature ~ (m StructureRubyAlign), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetRubyAlignMethodInfo a signature where
overloadedMethod _ = structureElementGetRubyAlign
-- method StructureElement::get_ruby_position
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Poppler" "StructureRubyPosition"
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_ruby_position" poppler_structure_element_get_ruby_position ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CUInt
structureElementGetRubyPosition ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m StructureRubyPosition -- result
structureElementGetRubyPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_ruby_position _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data StructureElementGetRubyPositionMethodInfo
instance (signature ~ (m StructureRubyPosition), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetRubyPositionMethodInfo a signature where
overloadedMethod _ = structureElementGetRubyPosition
-- method StructureElement::get_space_after
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_space_after" poppler_structure_element_get_space_after ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CDouble
structureElementGetSpaceAfter ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Double -- result
structureElementGetSpaceAfter _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_space_after _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data StructureElementGetSpaceAfterMethodInfo
instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetSpaceAfterMethodInfo a signature where
overloadedMethod _ = structureElementGetSpaceAfter
-- method StructureElement::get_space_before
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_space_before" poppler_structure_element_get_space_before ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CDouble
structureElementGetSpaceBefore ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Double -- result
structureElementGetSpaceBefore _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_space_before _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data StructureElementGetSpaceBeforeMethodInfo
instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetSpaceBeforeMethodInfo a signature where
overloadedMethod _ = structureElementGetSpaceBefore
-- method StructureElement::get_start_indent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_start_indent" poppler_structure_element_get_start_indent ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CDouble
structureElementGetStartIndent ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Double -- result
structureElementGetStartIndent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_start_indent _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data StructureElementGetStartIndentMethodInfo
instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetStartIndentMethodInfo a signature where
overloadedMethod _ = structureElementGetStartIndent
-- method StructureElement::get_table_border_style
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "border_styles", argType = TCArray False 4 (-1) (TInterface "Poppler" "StructureBorderStyle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_table_border_style" poppler_structure_element_get_table_border_style ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
Ptr (Ptr CUInt) -> -- border_styles : TCArray False 4 (-1) (TInterface "Poppler" "StructureBorderStyle")
IO ()
structureElementGetTableBorderStyle ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m ([StructureBorderStyle]) -- result
structureElementGetTableBorderStyle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
borderStyles <- allocMem :: IO (Ptr (Ptr CUInt))
poppler_structure_element_get_table_border_style _obj' borderStyles
borderStyles' <- peek borderStyles
borderStyles'' <- (unpackStorableArrayWithLength 4) borderStyles'
let borderStyles''' = map (toEnum . fromIntegral) borderStyles''
freeMem borderStyles'
touchManagedPtr _obj
freeMem borderStyles
return borderStyles'''
data StructureElementGetTableBorderStyleMethodInfo
instance (signature ~ (m ([StructureBorderStyle])), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTableBorderStyleMethodInfo a signature where
overloadedMethod _ = structureElementGetTableBorderStyle
-- method StructureElement::get_table_column_span
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_table_column_span" poppler_structure_element_get_table_column_span ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO Word32
structureElementGetTableColumnSpan ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Word32 -- result
structureElementGetTableColumnSpan _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_table_column_span _obj'
touchManagedPtr _obj
return result
data StructureElementGetTableColumnSpanMethodInfo
instance (signature ~ (m Word32), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTableColumnSpanMethodInfo a signature where
overloadedMethod _ = structureElementGetTableColumnSpan
-- method StructureElement::get_table_headers
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_table_headers" poppler_structure_element_get_table_headers ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO (Ptr CString)
structureElementGetTableHeaders ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m [T.Text] -- result
structureElementGetTableHeaders _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_table_headers _obj'
checkUnexpectedReturnNULL "poppler_structure_element_get_table_headers" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr _obj
return result'
data StructureElementGetTableHeadersMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTableHeadersMethodInfo a signature where
overloadedMethod _ = structureElementGetTableHeaders
-- method StructureElement::get_table_padding
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "paddings", argType = TCArray False 4 (-1) (TBasicType TDouble), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_table_padding" poppler_structure_element_get_table_padding ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
Ptr (Ptr CDouble) -> -- paddings : TCArray False 4 (-1) (TBasicType TDouble)
IO ()
structureElementGetTablePadding ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m ([Double]) -- result
structureElementGetTablePadding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
paddings <- allocMem :: IO (Ptr (Ptr CDouble))
poppler_structure_element_get_table_padding _obj' paddings
paddings' <- peek paddings
paddings'' <- (unpackMapStorableArrayWithLength realToFrac 4) paddings'
freeMem paddings'
touchManagedPtr _obj
freeMem paddings
return paddings''
data StructureElementGetTablePaddingMethodInfo
instance (signature ~ (m ([Double])), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTablePaddingMethodInfo a signature where
overloadedMethod _ = structureElementGetTablePadding
-- method StructureElement::get_table_row_span
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_table_row_span" poppler_structure_element_get_table_row_span ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO Word32
structureElementGetTableRowSpan ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Word32 -- result
structureElementGetTableRowSpan _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_table_row_span _obj'
touchManagedPtr _obj
return result
data StructureElementGetTableRowSpanMethodInfo
instance (signature ~ (m Word32), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTableRowSpanMethodInfo a signature where
overloadedMethod _ = structureElementGetTableRowSpan
-- method StructureElement::get_table_scope
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Poppler" "StructureTableScope"
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_table_scope" poppler_structure_element_get_table_scope ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CUInt
structureElementGetTableScope ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m StructureTableScope -- result
structureElementGetTableScope _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_table_scope _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data StructureElementGetTableScopeMethodInfo
instance (signature ~ (m StructureTableScope), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTableScopeMethodInfo a signature where
overloadedMethod _ = structureElementGetTableScope
-- method StructureElement::get_table_summary
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_table_summary" poppler_structure_element_get_table_summary ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CString
structureElementGetTableSummary ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m T.Text -- result
structureElementGetTableSummary _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_table_summary _obj'
checkUnexpectedReturnNULL "poppler_structure_element_get_table_summary" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
data StructureElementGetTableSummaryMethodInfo
instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTableSummaryMethodInfo a signature where
overloadedMethod _ = structureElementGetTableSummary
-- method StructureElement::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Poppler" "StructureGetTextFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_text" poppler_structure_element_get_text ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
CUInt -> -- flags : TInterface "Poppler" "StructureGetTextFlags"
IO CString
structureElementGetText ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> [StructureGetTextFlags] -- flags
-> m T.Text -- result
structureElementGetText _obj flags = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let flags' = gflagsToWord flags
result <- poppler_structure_element_get_text _obj' flags'
checkUnexpectedReturnNULL "poppler_structure_element_get_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
data StructureElementGetTextMethodInfo
instance (signature ~ ([StructureGetTextFlags] -> m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTextMethodInfo a signature where
overloadedMethod _ = structureElementGetText
-- method StructureElement::get_text_align
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Poppler" "StructureTextAlign"
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_text_align" poppler_structure_element_get_text_align ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CUInt
structureElementGetTextAlign ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m StructureTextAlign -- result
structureElementGetTextAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_text_align _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data StructureElementGetTextAlignMethodInfo
instance (signature ~ (m StructureTextAlign), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTextAlignMethodInfo a signature where
overloadedMethod _ = structureElementGetTextAlign
-- method StructureElement::get_text_decoration_color
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Poppler" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_text_decoration_color" poppler_structure_element_get_text_decoration_color ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
Ptr Color -> -- color : TInterface "Poppler" "Color"
IO CInt
structureElementGetTextDecorationColor ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m (Bool,Color) -- result
structureElementGetTextDecorationColor _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
color <- callocBoxedBytes 6 :: IO (Ptr Color)
result <- poppler_structure_element_get_text_decoration_color _obj' color
let result' = (/= 0) result
color' <- (wrapBoxed Color) color
touchManagedPtr _obj
return (result', color')
data StructureElementGetTextDecorationColorMethodInfo
instance (signature ~ (m (Bool,Color)), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTextDecorationColorMethodInfo a signature where
overloadedMethod _ = structureElementGetTextDecorationColor
-- method StructureElement::get_text_decoration_thickness
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_text_decoration_thickness" poppler_structure_element_get_text_decoration_thickness ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CDouble
structureElementGetTextDecorationThickness ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Double -- result
structureElementGetTextDecorationThickness _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_text_decoration_thickness _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data StructureElementGetTextDecorationThicknessMethodInfo
instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTextDecorationThicknessMethodInfo a signature where
overloadedMethod _ = structureElementGetTextDecorationThickness
-- method StructureElement::get_text_decoration_type
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Poppler" "StructureTextDecoration"
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_text_decoration_type" poppler_structure_element_get_text_decoration_type ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CUInt
structureElementGetTextDecorationType ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m StructureTextDecoration -- result
structureElementGetTextDecorationType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_text_decoration_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data StructureElementGetTextDecorationTypeMethodInfo
instance (signature ~ (m StructureTextDecoration), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTextDecorationTypeMethodInfo a signature where
overloadedMethod _ = structureElementGetTextDecorationType
-- method StructureElement::get_text_indent
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_text_indent" poppler_structure_element_get_text_indent ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CDouble
structureElementGetTextIndent ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Double -- result
structureElementGetTextIndent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_text_indent _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data StructureElementGetTextIndentMethodInfo
instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTextIndentMethodInfo a signature where
overloadedMethod _ = structureElementGetTextIndent
-- method StructureElement::get_text_spans
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_text_spans", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : [Arg {argCName = "n_text_spans", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- returnType : TCArray False (-1) 1 (TInterface "Poppler" "TextSpan")
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_text_spans" poppler_structure_element_get_text_spans ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
Ptr Word32 -> -- n_text_spans : TBasicType TUInt32
IO (Ptr (Ptr TextSpan))
structureElementGetTextSpans ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m [TextSpan] -- result
structureElementGetTextSpans _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
nTextSpans <- allocMem :: IO (Ptr Word32)
result <- poppler_structure_element_get_text_spans _obj' nTextSpans
nTextSpans' <- peek nTextSpans
checkUnexpectedReturnNULL "poppler_structure_element_get_text_spans" result
result' <- (unpackPtrArrayWithLength nTextSpans') result
result'' <- mapM (wrapBoxed TextSpan) result'
freeMem result
touchManagedPtr _obj
freeMem nTextSpans
return result''
data StructureElementGetTextSpansMethodInfo
instance (signature ~ (m [TextSpan]), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTextSpansMethodInfo a signature where
overloadedMethod _ = structureElementGetTextSpans
-- method StructureElement::get_title
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_title" poppler_structure_element_get_title ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CString
structureElementGetTitle ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m T.Text -- result
structureElementGetTitle _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_title _obj'
checkUnexpectedReturnNULL "poppler_structure_element_get_title" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
data StructureElementGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetTitleMethodInfo a signature where
overloadedMethod _ = structureElementGetTitle
-- method StructureElement::get_width
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TDouble
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_width" poppler_structure_element_get_width ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CDouble
structureElementGetWidth ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Double -- result
structureElementGetWidth _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_width _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
data StructureElementGetWidthMethodInfo
instance (signature ~ (m Double), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetWidthMethodInfo a signature where
overloadedMethod _ = structureElementGetWidth
-- method StructureElement::get_writing_mode
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Poppler" "StructureWritingMode"
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_get_writing_mode" poppler_structure_element_get_writing_mode ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CUInt
structureElementGetWritingMode ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m StructureWritingMode -- result
structureElementGetWritingMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_get_writing_mode _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
data StructureElementGetWritingModeMethodInfo
instance (signature ~ (m StructureWritingMode), MonadIO m, StructureElementK a) => MethodInfo StructureElementGetWritingModeMethodInfo a signature where
overloadedMethod _ = structureElementGetWritingMode
-- method StructureElement::is_block
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_is_block" poppler_structure_element_is_block ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CInt
structureElementIsBlock ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Bool -- result
structureElementIsBlock _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_is_block _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data StructureElementIsBlockMethodInfo
instance (signature ~ (m Bool), MonadIO m, StructureElementK a) => MethodInfo StructureElementIsBlockMethodInfo a signature where
overloadedMethod _ = structureElementIsBlock
-- method StructureElement::is_content
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_is_content" poppler_structure_element_is_content ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CInt
structureElementIsContent ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Bool -- result
structureElementIsContent _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_is_content _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data StructureElementIsContentMethodInfo
instance (signature ~ (m Bool), MonadIO m, StructureElementK a) => MethodInfo StructureElementIsContentMethodInfo a signature where
overloadedMethod _ = structureElementIsContent
-- method StructureElement::is_grouping
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_is_grouping" poppler_structure_element_is_grouping ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CInt
structureElementIsGrouping ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Bool -- result
structureElementIsGrouping _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_is_grouping _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data StructureElementIsGroupingMethodInfo
instance (signature ~ (m Bool), MonadIO m, StructureElementK a) => MethodInfo StructureElementIsGroupingMethodInfo a signature where
overloadedMethod _ = structureElementIsGrouping
-- method StructureElement::is_inline
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElement", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "poppler_structure_element_is_inline" poppler_structure_element_is_inline ::
Ptr StructureElement -> -- _obj : TInterface "Poppler" "StructureElement"
IO CInt
structureElementIsInline ::
(MonadIO m, StructureElementK a) =>
a -- _obj
-> m Bool -- result
structureElementIsInline _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_structure_element_is_inline _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
data StructureElementIsInlineMethodInfo
instance (signature ~ (m Bool), MonadIO m, StructureElementK a) => MethodInfo StructureElementIsInlineMethodInfo a signature where
overloadedMethod _ = structureElementIsInline