diff --git a/GI/Poppler.hs b/GI/Poppler.hs deleted file mode 100644 --- a/GI/Poppler.hs +++ /dev/null @@ -1,46 +0,0 @@ - - -{- | -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 - ( module GI.Poppler.Callbacks , - module GI.Poppler.Constants , - module GI.Poppler.Enums , - module GI.Poppler.Flags , - module GI.Poppler.Functions , - module GI.Poppler.Objects , - module GI.Poppler.Structs , - module GI.Poppler.Unions , - - - - module Data.GI.Base , - - - ) where - -import GI.Poppler.Callbacks -import GI.Poppler.Constants -import GI.Poppler.Enums -import GI.Poppler.Flags -import GI.Poppler.Functions -import GI.Poppler.Objects -import GI.Poppler.Structs -import GI.Poppler.Unions - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 Data.GI.Base - diff --git a/GI/Poppler/Callbacks.hs b/GI/Poppler/Callbacks.hs deleted file mode 100644 --- a/GI/Poppler/Callbacks.hs +++ /dev/null @@ -1,115 +0,0 @@ - - -{- | -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.Callbacks - ( - - -- * Signals --- ** AttachmentSaveFunc - AttachmentSaveFunc , - AttachmentSaveFuncC , - attachmentSaveFuncClosure , - attachmentSaveFuncWrapper , - mkAttachmentSaveFunc , - noAttachmentSaveFunc , - - --- ** MediaSaveFunc - MediaSaveFunc , - MediaSaveFuncC , - mediaSaveFuncClosure , - mediaSaveFuncWrapper , - mkMediaSaveFunc , - noMediaSaveFunc , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Poppler.Types - - --- callback MediaSaveFunc -mediaSaveFuncClosure :: MediaSaveFunc -> IO Closure -mediaSaveFuncClosure cb = newCClosure =<< mkMediaSaveFunc wrapped - where wrapped = mediaSaveFuncWrapper Nothing cb - -type MediaSaveFuncC = - Ptr Word8 -> - Word64 -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkMediaSaveFunc :: MediaSaveFuncC -> IO (FunPtr MediaSaveFuncC) - -type MediaSaveFunc = - ByteString -> - IO Bool - -noMediaSaveFunc :: Maybe MediaSaveFunc -noMediaSaveFunc = Nothing - -mediaSaveFuncWrapper :: - Maybe (Ptr (FunPtr (MediaSaveFuncC))) -> - MediaSaveFunc -> - Ptr Word8 -> - Word64 -> - Ptr () -> - IO CInt -mediaSaveFuncWrapper funptrptr _cb buf count _ = do - buf' <- (unpackByteStringWithLength count) buf - result <- _cb buf' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback AttachmentSaveFunc -attachmentSaveFuncClosure :: AttachmentSaveFunc -> IO Closure -attachmentSaveFuncClosure cb = newCClosure =<< mkAttachmentSaveFunc wrapped - where wrapped = attachmentSaveFuncWrapper Nothing cb - -type AttachmentSaveFuncC = - Ptr Word8 -> - Word64 -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkAttachmentSaveFunc :: AttachmentSaveFuncC -> IO (FunPtr AttachmentSaveFuncC) - -type AttachmentSaveFunc = - ByteString -> - IO Bool - -noAttachmentSaveFunc :: Maybe AttachmentSaveFunc -noAttachmentSaveFunc = Nothing - -attachmentSaveFuncWrapper :: - Maybe (Ptr (FunPtr (AttachmentSaveFuncC))) -> - AttachmentSaveFunc -> - Ptr Word8 -> - Word64 -> - Ptr () -> - IO CInt -attachmentSaveFuncWrapper funptrptr _cb buf count _ = do - buf' <- (unpackByteStringWithLength count) buf - result <- _cb buf' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - - diff --git a/GI/Poppler/Constants.hs b/GI/Poppler/Constants.hs deleted file mode 100644 --- a/GI/Poppler/Constants.hs +++ /dev/null @@ -1,77 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} - - -{- | -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.Constants - ( - pattern MINOR_VERSION , - pattern MICRO_VERSION , - pattern MAJOR_VERSION , - pattern HAS_CAIRO , - pattern ANNOT_TEXT_ICON_PARAGRAPH , - pattern ANNOT_TEXT_ICON_NOTE , - pattern ANNOT_TEXT_ICON_NEW_PARAGRAPH , - pattern ANNOT_TEXT_ICON_KEY , - pattern ANNOT_TEXT_ICON_INSERT , - pattern ANNOT_TEXT_ICON_HELP , - pattern ANNOT_TEXT_ICON_CROSS , - pattern ANNOT_TEXT_ICON_COMMENT , - pattern ANNOT_TEXT_ICON_CIRCLE , - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - -pattern MINOR_VERSION = 34 :: Int32 - - -pattern MICRO_VERSION = 0 :: Int32 - - -pattern MAJOR_VERSION = 0 :: Int32 - - -pattern HAS_CAIRO = 1 :: Int32 - - -pattern ANNOT_TEXT_ICON_PARAGRAPH = "Paragraph" :: T.Text - - -pattern ANNOT_TEXT_ICON_NOTE = "Note" :: T.Text - - -pattern ANNOT_TEXT_ICON_NEW_PARAGRAPH = "NewParagraph" :: T.Text - - -pattern ANNOT_TEXT_ICON_KEY = "Key" :: T.Text - - -pattern ANNOT_TEXT_ICON_INSERT = "Insert" :: T.Text - - -pattern ANNOT_TEXT_ICON_HELP = "Help" :: T.Text - - -pattern ANNOT_TEXT_ICON_CROSS = "Cross" :: T.Text - - -pattern ANNOT_TEXT_ICON_COMMENT = "Comment" :: T.Text - - -pattern ANNOT_TEXT_ICON_CIRCLE = "Circle" :: T.Text - - diff --git a/GI/Poppler/Enums.hs b/GI/Poppler/Enums.hs deleted file mode 100644 --- a/GI/Poppler/Enums.hs +++ /dev/null @@ -1,1495 +0,0 @@ - - -{- | -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.Enums - ( - catchError , - handleError , - --- * Exported types - StructureWritingMode(..) , - StructureTextDecoration(..) , - StructureTextAlign(..) , - StructureTableScope(..) , - StructureRubyPosition(..) , - StructureRubyAlign(..) , - StructurePlacement(..) , - StructureListNumbering(..) , - StructureInlineAlign(..) , - StructureGlyphOrientation(..) , - StructureFormState(..) , - StructureFormRole(..) , - StructureElementKind(..) , - StructureBorderStyle(..) , - StructureBlockAlign(..) , - SelectionStyle(..) , - PageTransitionType(..) , - PageTransitionDirection(..) , - PageTransitionAlignment(..) , - PageMode(..) , - PageLayout(..) , - Orientation(..) , - FormTextType(..) , - FormFieldType(..) , - FormChoiceType(..) , - FormButtonType(..) , - FontType(..) , - Error(..) , - DestType(..) , - Backend(..) , - AnnotType(..) , - AnnotTextState(..) , - AnnotMarkupReplyType(..) , - AnnotFreeTextQuadding(..) , - AnnotExternalDataType(..) , - ActionType(..) , - ActionMovieOperation(..) , - ActionLayerAction(..) , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- Enum StructureWritingMode - -data StructureWritingMode = - StructureWritingModeLrTb - | StructureWritingModeRlTb - | StructureWritingModeTbRl - | AnotherStructureWritingMode Int - deriving (Show, Eq) - -instance Enum StructureWritingMode where - fromEnum StructureWritingModeLrTb = 0 - fromEnum StructureWritingModeRlTb = 1 - fromEnum StructureWritingModeTbRl = 2 - fromEnum (AnotherStructureWritingMode k) = k - - toEnum 0 = StructureWritingModeLrTb - toEnum 1 = StructureWritingModeRlTb - toEnum 2 = StructureWritingModeTbRl - toEnum k = AnotherStructureWritingMode k - -foreign import ccall "poppler_structure_writing_mode_get_type" c_poppler_structure_writing_mode_get_type :: - IO GType - -instance BoxedEnum StructureWritingMode where - boxedEnumType _ = c_poppler_structure_writing_mode_get_type - --- Enum StructureTextDecoration - -data StructureTextDecoration = - StructureTextDecorationNone - | StructureTextDecorationUnderline - | StructureTextDecorationOverline - | StructureTextDecorationLinethrough - | AnotherStructureTextDecoration Int - deriving (Show, Eq) - -instance Enum StructureTextDecoration where - fromEnum StructureTextDecorationNone = 0 - fromEnum StructureTextDecorationUnderline = 1 - fromEnum StructureTextDecorationOverline = 2 - fromEnum StructureTextDecorationLinethrough = 3 - fromEnum (AnotherStructureTextDecoration k) = k - - toEnum 0 = StructureTextDecorationNone - toEnum 1 = StructureTextDecorationUnderline - toEnum 2 = StructureTextDecorationOverline - toEnum 3 = StructureTextDecorationLinethrough - toEnum k = AnotherStructureTextDecoration k - -foreign import ccall "poppler_structure_text_decoration_get_type" c_poppler_structure_text_decoration_get_type :: - IO GType - -instance BoxedEnum StructureTextDecoration where - boxedEnumType _ = c_poppler_structure_text_decoration_get_type - --- Enum StructureTextAlign - -data StructureTextAlign = - StructureTextAlignStart - | StructureTextAlignCenter - | StructureTextAlignEnd - | StructureTextAlignJustify - | AnotherStructureTextAlign Int - deriving (Show, Eq) - -instance Enum StructureTextAlign where - fromEnum StructureTextAlignStart = 0 - fromEnum StructureTextAlignCenter = 1 - fromEnum StructureTextAlignEnd = 2 - fromEnum StructureTextAlignJustify = 3 - fromEnum (AnotherStructureTextAlign k) = k - - toEnum 0 = StructureTextAlignStart - toEnum 1 = StructureTextAlignCenter - toEnum 2 = StructureTextAlignEnd - toEnum 3 = StructureTextAlignJustify - toEnum k = AnotherStructureTextAlign k - -foreign import ccall "poppler_structure_text_align_get_type" c_poppler_structure_text_align_get_type :: - IO GType - -instance BoxedEnum StructureTextAlign where - boxedEnumType _ = c_poppler_structure_text_align_get_type - --- Enum StructureTableScope - -data StructureTableScope = - StructureTableScopeRow - | StructureTableScopeColumn - | StructureTableScopeBoth - | AnotherStructureTableScope Int - deriving (Show, Eq) - -instance Enum StructureTableScope where - fromEnum StructureTableScopeRow = 0 - fromEnum StructureTableScopeColumn = 1 - fromEnum StructureTableScopeBoth = 2 - fromEnum (AnotherStructureTableScope k) = k - - toEnum 0 = StructureTableScopeRow - toEnum 1 = StructureTableScopeColumn - toEnum 2 = StructureTableScopeBoth - toEnum k = AnotherStructureTableScope k - -foreign import ccall "poppler_structure_table_scope_get_type" c_poppler_structure_table_scope_get_type :: - IO GType - -instance BoxedEnum StructureTableScope where - boxedEnumType _ = c_poppler_structure_table_scope_get_type - --- Enum StructureRubyPosition - -data StructureRubyPosition = - StructureRubyPositionBefore - | StructureRubyPositionAfter - | StructureRubyPositionWarichu - | StructureRubyPositionInline - | AnotherStructureRubyPosition Int - deriving (Show, Eq) - -instance Enum StructureRubyPosition where - fromEnum StructureRubyPositionBefore = 0 - fromEnum StructureRubyPositionAfter = 1 - fromEnum StructureRubyPositionWarichu = 2 - fromEnum StructureRubyPositionInline = 3 - fromEnum (AnotherStructureRubyPosition k) = k - - toEnum 0 = StructureRubyPositionBefore - toEnum 1 = StructureRubyPositionAfter - toEnum 2 = StructureRubyPositionWarichu - toEnum 3 = StructureRubyPositionInline - toEnum k = AnotherStructureRubyPosition k - -foreign import ccall "poppler_structure_ruby_position_get_type" c_poppler_structure_ruby_position_get_type :: - IO GType - -instance BoxedEnum StructureRubyPosition where - boxedEnumType _ = c_poppler_structure_ruby_position_get_type - --- Enum StructureRubyAlign - -data StructureRubyAlign = - StructureRubyAlignStart - | StructureRubyAlignCenter - | StructureRubyAlignEnd - | StructureRubyAlignJustify - | StructureRubyAlignDistribute - | AnotherStructureRubyAlign Int - deriving (Show, Eq) - -instance Enum StructureRubyAlign where - fromEnum StructureRubyAlignStart = 0 - fromEnum StructureRubyAlignCenter = 1 - fromEnum StructureRubyAlignEnd = 2 - fromEnum StructureRubyAlignJustify = 3 - fromEnum StructureRubyAlignDistribute = 4 - fromEnum (AnotherStructureRubyAlign k) = k - - toEnum 0 = StructureRubyAlignStart - toEnum 1 = StructureRubyAlignCenter - toEnum 2 = StructureRubyAlignEnd - toEnum 3 = StructureRubyAlignJustify - toEnum 4 = StructureRubyAlignDistribute - toEnum k = AnotherStructureRubyAlign k - -foreign import ccall "poppler_structure_ruby_align_get_type" c_poppler_structure_ruby_align_get_type :: - IO GType - -instance BoxedEnum StructureRubyAlign where - boxedEnumType _ = c_poppler_structure_ruby_align_get_type - --- Enum StructurePlacement - -data StructurePlacement = - StructurePlacementBlock - | StructurePlacementInline - | StructurePlacementBefore - | StructurePlacementStart - | StructurePlacementEnd - | AnotherStructurePlacement Int - deriving (Show, Eq) - -instance Enum StructurePlacement where - fromEnum StructurePlacementBlock = 0 - fromEnum StructurePlacementInline = 1 - fromEnum StructurePlacementBefore = 2 - fromEnum StructurePlacementStart = 3 - fromEnum StructurePlacementEnd = 4 - fromEnum (AnotherStructurePlacement k) = k - - toEnum 0 = StructurePlacementBlock - toEnum 1 = StructurePlacementInline - toEnum 2 = StructurePlacementBefore - toEnum 3 = StructurePlacementStart - toEnum 4 = StructurePlacementEnd - toEnum k = AnotherStructurePlacement k - -foreign import ccall "poppler_structure_placement_get_type" c_poppler_structure_placement_get_type :: - IO GType - -instance BoxedEnum StructurePlacement where - boxedEnumType _ = c_poppler_structure_placement_get_type - --- Enum StructureListNumbering - -data StructureListNumbering = - StructureListNumberingNone - | StructureListNumberingDisc - | StructureListNumberingCircle - | StructureListNumberingSquare - | StructureListNumberingDecimal - | StructureListNumberingUpperRoman - | StructureListNumberingLowerRoman - | StructureListNumberingUpperAlpha - | StructureListNumberingLowerAlpha - | AnotherStructureListNumbering Int - deriving (Show, Eq) - -instance Enum StructureListNumbering where - fromEnum StructureListNumberingNone = 0 - fromEnum StructureListNumberingDisc = 1 - fromEnum StructureListNumberingCircle = 2 - fromEnum StructureListNumberingSquare = 3 - fromEnum StructureListNumberingDecimal = 4 - fromEnum StructureListNumberingUpperRoman = 5 - fromEnum StructureListNumberingLowerRoman = 6 - fromEnum StructureListNumberingUpperAlpha = 7 - fromEnum StructureListNumberingLowerAlpha = 8 - fromEnum (AnotherStructureListNumbering k) = k - - toEnum 0 = StructureListNumberingNone - toEnum 1 = StructureListNumberingDisc - toEnum 2 = StructureListNumberingCircle - toEnum 3 = StructureListNumberingSquare - toEnum 4 = StructureListNumberingDecimal - toEnum 5 = StructureListNumberingUpperRoman - toEnum 6 = StructureListNumberingLowerRoman - toEnum 7 = StructureListNumberingUpperAlpha - toEnum 8 = StructureListNumberingLowerAlpha - toEnum k = AnotherStructureListNumbering k - -foreign import ccall "poppler_structure_list_numbering_get_type" c_poppler_structure_list_numbering_get_type :: - IO GType - -instance BoxedEnum StructureListNumbering where - boxedEnumType _ = c_poppler_structure_list_numbering_get_type - --- Enum StructureInlineAlign - -data StructureInlineAlign = - StructureInlineAlignStart - | StructureInlineAlignCenter - | StructureInlineAlignEnd - | AnotherStructureInlineAlign Int - deriving (Show, Eq) - -instance Enum StructureInlineAlign where - fromEnum StructureInlineAlignStart = 0 - fromEnum StructureInlineAlignCenter = 1 - fromEnum StructureInlineAlignEnd = 2 - fromEnum (AnotherStructureInlineAlign k) = k - - toEnum 0 = StructureInlineAlignStart - toEnum 1 = StructureInlineAlignCenter - toEnum 2 = StructureInlineAlignEnd - toEnum k = AnotherStructureInlineAlign k - -foreign import ccall "poppler_structure_inline_align_get_type" c_poppler_structure_inline_align_get_type :: - IO GType - -instance BoxedEnum StructureInlineAlign where - boxedEnumType _ = c_poppler_structure_inline_align_get_type - --- Enum StructureGlyphOrientation - -data StructureGlyphOrientation = - StructureGlyphOrientationAuto - | StructureGlyphOrientation0 - | StructureGlyphOrientation90 - | StructureGlyphOrientation180 - | StructureGlyphOrientation270 - | AnotherStructureGlyphOrientation Int - deriving (Show, Eq) - -instance Enum StructureGlyphOrientation where - fromEnum StructureGlyphOrientationAuto = 0 - fromEnum StructureGlyphOrientation0 = 0 - fromEnum StructureGlyphOrientation90 = 1 - fromEnum StructureGlyphOrientation180 = 2 - fromEnum StructureGlyphOrientation270 = 3 - fromEnum (AnotherStructureGlyphOrientation k) = k - - toEnum 0 = StructureGlyphOrientationAuto - toEnum 1 = StructureGlyphOrientation90 - toEnum 2 = StructureGlyphOrientation180 - toEnum 3 = StructureGlyphOrientation270 - toEnum k = AnotherStructureGlyphOrientation k - -foreign import ccall "poppler_structure_glyph_orientation_get_type" c_poppler_structure_glyph_orientation_get_type :: - IO GType - -instance BoxedEnum StructureGlyphOrientation where - boxedEnumType _ = c_poppler_structure_glyph_orientation_get_type - --- Enum StructureFormState - -data StructureFormState = - StructureFormStateOn - | StructureFormStateOff - | StructureFormStateNeutral - | AnotherStructureFormState Int - deriving (Show, Eq) - -instance Enum StructureFormState where - fromEnum StructureFormStateOn = 0 - fromEnum StructureFormStateOff = 1 - fromEnum StructureFormStateNeutral = 2 - fromEnum (AnotherStructureFormState k) = k - - toEnum 0 = StructureFormStateOn - toEnum 1 = StructureFormStateOff - toEnum 2 = StructureFormStateNeutral - toEnum k = AnotherStructureFormState k - -foreign import ccall "poppler_structure_form_state_get_type" c_poppler_structure_form_state_get_type :: - IO GType - -instance BoxedEnum StructureFormState where - boxedEnumType _ = c_poppler_structure_form_state_get_type - --- Enum StructureFormRole - -data StructureFormRole = - StructureFormRoleUndefined - | StructureFormRoleRadioButton - | StructureFormRolePushButton - | StructureFormRoleTextValue - | StructureFormRoleCheckbox - | AnotherStructureFormRole Int - deriving (Show, Eq) - -instance Enum StructureFormRole where - fromEnum StructureFormRoleUndefined = 0 - fromEnum StructureFormRoleRadioButton = 1 - fromEnum StructureFormRolePushButton = 2 - fromEnum StructureFormRoleTextValue = 3 - fromEnum StructureFormRoleCheckbox = 4 - fromEnum (AnotherStructureFormRole k) = k - - toEnum 0 = StructureFormRoleUndefined - toEnum 1 = StructureFormRoleRadioButton - toEnum 2 = StructureFormRolePushButton - toEnum 3 = StructureFormRoleTextValue - toEnum 4 = StructureFormRoleCheckbox - toEnum k = AnotherStructureFormRole k - -foreign import ccall "poppler_structure_form_role_get_type" c_poppler_structure_form_role_get_type :: - IO GType - -instance BoxedEnum StructureFormRole where - boxedEnumType _ = c_poppler_structure_form_role_get_type - --- Enum StructureElementKind - -data StructureElementKind = - StructureElementKindContent - | StructureElementKindObjectReference - | StructureElementKindDocument - | StructureElementKindPart - | StructureElementKindArticle - | StructureElementKindSection - | StructureElementKindDiv - | StructureElementKindSpan - | StructureElementKindQuote - | StructureElementKindNote - | StructureElementKindReference - | StructureElementKindBibentry - | StructureElementKindCode - | StructureElementKindLink - | StructureElementKindAnnot - | StructureElementKindBlockquote - | StructureElementKindCaption - | StructureElementKindNonstruct - | StructureElementKindToc - | StructureElementKindTocItem - | StructureElementKindIndex - | StructureElementKindPrivate - | StructureElementKindParagraph - | StructureElementKindHeading - | StructureElementKindHeading1 - | StructureElementKindHeading2 - | StructureElementKindHeading3 - | StructureElementKindHeading4 - | StructureElementKindHeading5 - | StructureElementKindHeading6 - | StructureElementKindList - | StructureElementKindListItem - | StructureElementKindListLabel - | StructureElementKindListBody - | StructureElementKindTable - | StructureElementKindTableRow - | StructureElementKindTableHeading - | StructureElementKindTableData - | StructureElementKindTableHeader - | StructureElementKindTableFooter - | StructureElementKindTableBody - | StructureElementKindRuby - | StructureElementKindRubyBaseText - | StructureElementKindRubyAnnotText - | StructureElementKindRubyPunctuation - | StructureElementKindWarichu - | StructureElementKindWarichuText - | StructureElementKindWarichuPunctuation - | StructureElementKindFigure - | StructureElementKindFormula - | StructureElementKindForm - | AnotherStructureElementKind Int - deriving (Show, Eq) - -instance Enum StructureElementKind where - fromEnum StructureElementKindContent = 0 - fromEnum StructureElementKindObjectReference = 1 - fromEnum StructureElementKindDocument = 2 - fromEnum StructureElementKindPart = 3 - fromEnum StructureElementKindArticle = 4 - fromEnum StructureElementKindSection = 5 - fromEnum StructureElementKindDiv = 6 - fromEnum StructureElementKindSpan = 7 - fromEnum StructureElementKindQuote = 8 - fromEnum StructureElementKindNote = 9 - fromEnum StructureElementKindReference = 10 - fromEnum StructureElementKindBibentry = 11 - fromEnum StructureElementKindCode = 12 - fromEnum StructureElementKindLink = 13 - fromEnum StructureElementKindAnnot = 14 - fromEnum StructureElementKindBlockquote = 15 - fromEnum StructureElementKindCaption = 16 - fromEnum StructureElementKindNonstruct = 17 - fromEnum StructureElementKindToc = 18 - fromEnum StructureElementKindTocItem = 19 - fromEnum StructureElementKindIndex = 20 - fromEnum StructureElementKindPrivate = 21 - fromEnum StructureElementKindParagraph = 22 - fromEnum StructureElementKindHeading = 23 - fromEnum StructureElementKindHeading1 = 24 - fromEnum StructureElementKindHeading2 = 25 - fromEnum StructureElementKindHeading3 = 26 - fromEnum StructureElementKindHeading4 = 27 - fromEnum StructureElementKindHeading5 = 28 - fromEnum StructureElementKindHeading6 = 29 - fromEnum StructureElementKindList = 30 - fromEnum StructureElementKindListItem = 31 - fromEnum StructureElementKindListLabel = 32 - fromEnum StructureElementKindListBody = 33 - fromEnum StructureElementKindTable = 34 - fromEnum StructureElementKindTableRow = 35 - fromEnum StructureElementKindTableHeading = 36 - fromEnum StructureElementKindTableData = 37 - fromEnum StructureElementKindTableHeader = 38 - fromEnum StructureElementKindTableFooter = 39 - fromEnum StructureElementKindTableBody = 40 - fromEnum StructureElementKindRuby = 41 - fromEnum StructureElementKindRubyBaseText = 42 - fromEnum StructureElementKindRubyAnnotText = 43 - fromEnum StructureElementKindRubyPunctuation = 44 - fromEnum StructureElementKindWarichu = 45 - fromEnum StructureElementKindWarichuText = 46 - fromEnum StructureElementKindWarichuPunctuation = 47 - fromEnum StructureElementKindFigure = 48 - fromEnum StructureElementKindFormula = 49 - fromEnum StructureElementKindForm = 50 - fromEnum (AnotherStructureElementKind k) = k - - toEnum 0 = StructureElementKindContent - toEnum 1 = StructureElementKindObjectReference - toEnum 2 = StructureElementKindDocument - toEnum 3 = StructureElementKindPart - toEnum 4 = StructureElementKindArticle - toEnum 5 = StructureElementKindSection - toEnum 6 = StructureElementKindDiv - toEnum 7 = StructureElementKindSpan - toEnum 8 = StructureElementKindQuote - toEnum 9 = StructureElementKindNote - toEnum 10 = StructureElementKindReference - toEnum 11 = StructureElementKindBibentry - toEnum 12 = StructureElementKindCode - toEnum 13 = StructureElementKindLink - toEnum 14 = StructureElementKindAnnot - toEnum 15 = StructureElementKindBlockquote - toEnum 16 = StructureElementKindCaption - toEnum 17 = StructureElementKindNonstruct - toEnum 18 = StructureElementKindToc - toEnum 19 = StructureElementKindTocItem - toEnum 20 = StructureElementKindIndex - toEnum 21 = StructureElementKindPrivate - toEnum 22 = StructureElementKindParagraph - toEnum 23 = StructureElementKindHeading - toEnum 24 = StructureElementKindHeading1 - toEnum 25 = StructureElementKindHeading2 - toEnum 26 = StructureElementKindHeading3 - toEnum 27 = StructureElementKindHeading4 - toEnum 28 = StructureElementKindHeading5 - toEnum 29 = StructureElementKindHeading6 - toEnum 30 = StructureElementKindList - toEnum 31 = StructureElementKindListItem - toEnum 32 = StructureElementKindListLabel - toEnum 33 = StructureElementKindListBody - toEnum 34 = StructureElementKindTable - toEnum 35 = StructureElementKindTableRow - toEnum 36 = StructureElementKindTableHeading - toEnum 37 = StructureElementKindTableData - toEnum 38 = StructureElementKindTableHeader - toEnum 39 = StructureElementKindTableFooter - toEnum 40 = StructureElementKindTableBody - toEnum 41 = StructureElementKindRuby - toEnum 42 = StructureElementKindRubyBaseText - toEnum 43 = StructureElementKindRubyAnnotText - toEnum 44 = StructureElementKindRubyPunctuation - toEnum 45 = StructureElementKindWarichu - toEnum 46 = StructureElementKindWarichuText - toEnum 47 = StructureElementKindWarichuPunctuation - toEnum 48 = StructureElementKindFigure - toEnum 49 = StructureElementKindFormula - toEnum 50 = StructureElementKindForm - toEnum k = AnotherStructureElementKind k - -foreign import ccall "poppler_structure_element_kind_get_type" c_poppler_structure_element_kind_get_type :: - IO GType - -instance BoxedEnum StructureElementKind where - boxedEnumType _ = c_poppler_structure_element_kind_get_type - --- Enum StructureBorderStyle - -data StructureBorderStyle = - StructureBorderStyleNone - | StructureBorderStyleHidden - | StructureBorderStyleDotted - | StructureBorderStyleDashed - | StructureBorderStyleSolid - | StructureBorderStyleDouble - | StructureBorderStyleGroove - | StructureBorderStyleInset - | StructureBorderStyleOutset - | AnotherStructureBorderStyle Int - deriving (Show, Eq) - -instance Enum StructureBorderStyle where - fromEnum StructureBorderStyleNone = 0 - fromEnum StructureBorderStyleHidden = 1 - fromEnum StructureBorderStyleDotted = 2 - fromEnum StructureBorderStyleDashed = 3 - fromEnum StructureBorderStyleSolid = 4 - fromEnum StructureBorderStyleDouble = 5 - fromEnum StructureBorderStyleGroove = 6 - fromEnum StructureBorderStyleInset = 7 - fromEnum StructureBorderStyleOutset = 8 - fromEnum (AnotherStructureBorderStyle k) = k - - toEnum 0 = StructureBorderStyleNone - toEnum 1 = StructureBorderStyleHidden - toEnum 2 = StructureBorderStyleDotted - toEnum 3 = StructureBorderStyleDashed - toEnum 4 = StructureBorderStyleSolid - toEnum 5 = StructureBorderStyleDouble - toEnum 6 = StructureBorderStyleGroove - toEnum 7 = StructureBorderStyleInset - toEnum 8 = StructureBorderStyleOutset - toEnum k = AnotherStructureBorderStyle k - -foreign import ccall "poppler_structure_border_style_get_type" c_poppler_structure_border_style_get_type :: - IO GType - -instance BoxedEnum StructureBorderStyle where - boxedEnumType _ = c_poppler_structure_border_style_get_type - --- Enum StructureBlockAlign - -data StructureBlockAlign = - StructureBlockAlignBefore - | StructureBlockAlignMiddle - | StructureBlockAlignAfter - | StructureBlockAlignJustify - | AnotherStructureBlockAlign Int - deriving (Show, Eq) - -instance Enum StructureBlockAlign where - fromEnum StructureBlockAlignBefore = 0 - fromEnum StructureBlockAlignMiddle = 1 - fromEnum StructureBlockAlignAfter = 2 - fromEnum StructureBlockAlignJustify = 3 - fromEnum (AnotherStructureBlockAlign k) = k - - toEnum 0 = StructureBlockAlignBefore - toEnum 1 = StructureBlockAlignMiddle - toEnum 2 = StructureBlockAlignAfter - toEnum 3 = StructureBlockAlignJustify - toEnum k = AnotherStructureBlockAlign k - -foreign import ccall "poppler_structure_block_align_get_type" c_poppler_structure_block_align_get_type :: - IO GType - -instance BoxedEnum StructureBlockAlign where - boxedEnumType _ = c_poppler_structure_block_align_get_type - --- Enum SelectionStyle - -data SelectionStyle = - SelectionStyleGlyph - | SelectionStyleWord - | SelectionStyleLine - | AnotherSelectionStyle Int - deriving (Show, Eq) - -instance Enum SelectionStyle where - fromEnum SelectionStyleGlyph = 0 - fromEnum SelectionStyleWord = 1 - fromEnum SelectionStyleLine = 2 - fromEnum (AnotherSelectionStyle k) = k - - toEnum 0 = SelectionStyleGlyph - toEnum 1 = SelectionStyleWord - toEnum 2 = SelectionStyleLine - toEnum k = AnotherSelectionStyle k - -foreign import ccall "poppler_selection_style_get_type" c_poppler_selection_style_get_type :: - IO GType - -instance BoxedEnum SelectionStyle where - boxedEnumType _ = c_poppler_selection_style_get_type - --- Enum PageTransitionType - -data PageTransitionType = - PageTransitionTypeReplace - | PageTransitionTypeSplit - | PageTransitionTypeBlinds - | PageTransitionTypeBox - | PageTransitionTypeWipe - | PageTransitionTypeDissolve - | PageTransitionTypeGlitter - | PageTransitionTypeFly - | PageTransitionTypePush - | PageTransitionTypeCover - | PageTransitionTypeUncover - | PageTransitionTypeFade - | AnotherPageTransitionType Int - deriving (Show, Eq) - -instance Enum PageTransitionType where - fromEnum PageTransitionTypeReplace = 0 - fromEnum PageTransitionTypeSplit = 1 - fromEnum PageTransitionTypeBlinds = 2 - fromEnum PageTransitionTypeBox = 3 - fromEnum PageTransitionTypeWipe = 4 - fromEnum PageTransitionTypeDissolve = 5 - fromEnum PageTransitionTypeGlitter = 6 - fromEnum PageTransitionTypeFly = 7 - fromEnum PageTransitionTypePush = 8 - fromEnum PageTransitionTypeCover = 9 - fromEnum PageTransitionTypeUncover = 10 - fromEnum PageTransitionTypeFade = 11 - fromEnum (AnotherPageTransitionType k) = k - - toEnum 0 = PageTransitionTypeReplace - toEnum 1 = PageTransitionTypeSplit - toEnum 2 = PageTransitionTypeBlinds - toEnum 3 = PageTransitionTypeBox - toEnum 4 = PageTransitionTypeWipe - toEnum 5 = PageTransitionTypeDissolve - toEnum 6 = PageTransitionTypeGlitter - toEnum 7 = PageTransitionTypeFly - toEnum 8 = PageTransitionTypePush - toEnum 9 = PageTransitionTypeCover - toEnum 10 = PageTransitionTypeUncover - toEnum 11 = PageTransitionTypeFade - toEnum k = AnotherPageTransitionType k - -foreign import ccall "poppler_page_transition_type_get_type" c_poppler_page_transition_type_get_type :: - IO GType - -instance BoxedEnum PageTransitionType where - boxedEnumType _ = c_poppler_page_transition_type_get_type - --- Enum PageTransitionDirection - -data PageTransitionDirection = - PageTransitionDirectionInward - | PageTransitionDirectionOutward - | AnotherPageTransitionDirection Int - deriving (Show, Eq) - -instance Enum PageTransitionDirection where - fromEnum PageTransitionDirectionInward = 0 - fromEnum PageTransitionDirectionOutward = 1 - fromEnum (AnotherPageTransitionDirection k) = k - - toEnum 0 = PageTransitionDirectionInward - toEnum 1 = PageTransitionDirectionOutward - toEnum k = AnotherPageTransitionDirection k - -foreign import ccall "poppler_page_transition_direction_get_type" c_poppler_page_transition_direction_get_type :: - IO GType - -instance BoxedEnum PageTransitionDirection where - boxedEnumType _ = c_poppler_page_transition_direction_get_type - --- Enum PageTransitionAlignment - -data PageTransitionAlignment = - PageTransitionAlignmentHorizontal - | PageTransitionAlignmentVertical - | AnotherPageTransitionAlignment Int - deriving (Show, Eq) - -instance Enum PageTransitionAlignment where - fromEnum PageTransitionAlignmentHorizontal = 0 - fromEnum PageTransitionAlignmentVertical = 1 - fromEnum (AnotherPageTransitionAlignment k) = k - - toEnum 0 = PageTransitionAlignmentHorizontal - toEnum 1 = PageTransitionAlignmentVertical - toEnum k = AnotherPageTransitionAlignment k - -foreign import ccall "poppler_page_transition_alignment_get_type" c_poppler_page_transition_alignment_get_type :: - IO GType - -instance BoxedEnum PageTransitionAlignment where - boxedEnumType _ = c_poppler_page_transition_alignment_get_type - --- Enum PageMode - -data PageMode = - PageModeUnset - | PageModeNone - | PageModeUseOutlines - | PageModeUseThumbs - | PageModeFullScreen - | PageModeUseOc - | PageModeUseAttachments - | AnotherPageMode Int - deriving (Show, Eq) - -instance Enum PageMode where - fromEnum PageModeUnset = 0 - fromEnum PageModeNone = 1 - fromEnum PageModeUseOutlines = 2 - fromEnum PageModeUseThumbs = 3 - fromEnum PageModeFullScreen = 4 - fromEnum PageModeUseOc = 5 - fromEnum PageModeUseAttachments = 6 - fromEnum (AnotherPageMode k) = k - - toEnum 0 = PageModeUnset - toEnum 1 = PageModeNone - toEnum 2 = PageModeUseOutlines - toEnum 3 = PageModeUseThumbs - toEnum 4 = PageModeFullScreen - toEnum 5 = PageModeUseOc - toEnum 6 = PageModeUseAttachments - toEnum k = AnotherPageMode k - -foreign import ccall "poppler_page_mode_get_type" c_poppler_page_mode_get_type :: - IO GType - -instance BoxedEnum PageMode where - boxedEnumType _ = c_poppler_page_mode_get_type - --- Enum PageLayout - -data PageLayout = - PageLayoutUnset - | PageLayoutSinglePage - | PageLayoutOneColumn - | PageLayoutTwoColumnLeft - | PageLayoutTwoColumnRight - | PageLayoutTwoPageLeft - | PageLayoutTwoPageRight - | AnotherPageLayout Int - deriving (Show, Eq) - -instance Enum PageLayout where - fromEnum PageLayoutUnset = 0 - fromEnum PageLayoutSinglePage = 1 - fromEnum PageLayoutOneColumn = 2 - fromEnum PageLayoutTwoColumnLeft = 3 - fromEnum PageLayoutTwoColumnRight = 4 - fromEnum PageLayoutTwoPageLeft = 5 - fromEnum PageLayoutTwoPageRight = 6 - fromEnum (AnotherPageLayout k) = k - - toEnum 0 = PageLayoutUnset - toEnum 1 = PageLayoutSinglePage - toEnum 2 = PageLayoutOneColumn - toEnum 3 = PageLayoutTwoColumnLeft - toEnum 4 = PageLayoutTwoColumnRight - toEnum 5 = PageLayoutTwoPageLeft - toEnum 6 = PageLayoutTwoPageRight - toEnum k = AnotherPageLayout k - -foreign import ccall "poppler_page_layout_get_type" c_poppler_page_layout_get_type :: - IO GType - -instance BoxedEnum PageLayout where - boxedEnumType _ = c_poppler_page_layout_get_type - --- Enum Orientation - -data Orientation = - OrientationPortrait - | OrientationLandscape - | OrientationUpsidedown - | OrientationSeascape - | AnotherOrientation Int - deriving (Show, Eq) - -instance Enum Orientation where - fromEnum OrientationPortrait = 0 - fromEnum OrientationLandscape = 1 - fromEnum OrientationUpsidedown = 2 - fromEnum OrientationSeascape = 3 - fromEnum (AnotherOrientation k) = k - - toEnum 0 = OrientationPortrait - toEnum 1 = OrientationLandscape - toEnum 2 = OrientationUpsidedown - toEnum 3 = OrientationSeascape - toEnum k = AnotherOrientation k - -foreign import ccall "poppler_orientation_get_type" c_poppler_orientation_get_type :: - IO GType - -instance BoxedEnum Orientation where - boxedEnumType _ = c_poppler_orientation_get_type - --- Enum FormTextType - -data FormTextType = - FormTextTypeNormal - | FormTextTypeMultiline - | FormTextTypeFileSelect - | AnotherFormTextType Int - deriving (Show, Eq) - -instance Enum FormTextType where - fromEnum FormTextTypeNormal = 0 - fromEnum FormTextTypeMultiline = 1 - fromEnum FormTextTypeFileSelect = 2 - fromEnum (AnotherFormTextType k) = k - - toEnum 0 = FormTextTypeNormal - toEnum 1 = FormTextTypeMultiline - toEnum 2 = FormTextTypeFileSelect - toEnum k = AnotherFormTextType k - -foreign import ccall "poppler_form_text_type_get_type" c_poppler_form_text_type_get_type :: - IO GType - -instance BoxedEnum FormTextType where - boxedEnumType _ = c_poppler_form_text_type_get_type - --- Enum FormFieldType - -data FormFieldType = - FormFieldTypeUnknown - | FormFieldTypeButton - | FormFieldTypeText - | FormFieldTypeChoice - | FormFieldTypeSignature - | AnotherFormFieldType Int - deriving (Show, Eq) - -instance Enum FormFieldType where - fromEnum FormFieldTypeUnknown = 0 - fromEnum FormFieldTypeButton = 1 - fromEnum FormFieldTypeText = 2 - fromEnum FormFieldTypeChoice = 3 - fromEnum FormFieldTypeSignature = 4 - fromEnum (AnotherFormFieldType k) = k - - toEnum 0 = FormFieldTypeUnknown - toEnum 1 = FormFieldTypeButton - toEnum 2 = FormFieldTypeText - toEnum 3 = FormFieldTypeChoice - toEnum 4 = FormFieldTypeSignature - toEnum k = AnotherFormFieldType k - -foreign import ccall "poppler_form_field_type_get_type" c_poppler_form_field_type_get_type :: - IO GType - -instance BoxedEnum FormFieldType where - boxedEnumType _ = c_poppler_form_field_type_get_type - --- Enum FormChoiceType - -data FormChoiceType = - FormChoiceTypeCombo - | FormChoiceTypeList - | AnotherFormChoiceType Int - deriving (Show, Eq) - -instance Enum FormChoiceType where - fromEnum FormChoiceTypeCombo = 0 - fromEnum FormChoiceTypeList = 1 - fromEnum (AnotherFormChoiceType k) = k - - toEnum 0 = FormChoiceTypeCombo - toEnum 1 = FormChoiceTypeList - toEnum k = AnotherFormChoiceType k - -foreign import ccall "poppler_form_choice_type_get_type" c_poppler_form_choice_type_get_type :: - IO GType - -instance BoxedEnum FormChoiceType where - boxedEnumType _ = c_poppler_form_choice_type_get_type - --- Enum FormButtonType - -data FormButtonType = - FormButtonTypePush - | FormButtonTypeCheck - | FormButtonTypeRadio - | AnotherFormButtonType Int - deriving (Show, Eq) - -instance Enum FormButtonType where - fromEnum FormButtonTypePush = 0 - fromEnum FormButtonTypeCheck = 1 - fromEnum FormButtonTypeRadio = 2 - fromEnum (AnotherFormButtonType k) = k - - toEnum 0 = FormButtonTypePush - toEnum 1 = FormButtonTypeCheck - toEnum 2 = FormButtonTypeRadio - toEnum k = AnotherFormButtonType k - -foreign import ccall "poppler_form_button_type_get_type" c_poppler_form_button_type_get_type :: - IO GType - -instance BoxedEnum FormButtonType where - boxedEnumType _ = c_poppler_form_button_type_get_type - --- Enum FontType - -data FontType = - FontTypeUnknown - | FontTypeType1 - | FontTypeType1c - | FontTypeType1cot - | FontTypeType3 - | FontTypeTruetype - | FontTypeTruetypeot - | FontTypeCidType0 - | FontTypeCidType0c - | FontTypeCidType0cot - | FontTypeCidType2 - | FontTypeCidType2ot - | AnotherFontType Int - deriving (Show, Eq) - -instance Enum FontType where - fromEnum FontTypeUnknown = 0 - fromEnum FontTypeType1 = 1 - fromEnum FontTypeType1c = 2 - fromEnum FontTypeType1cot = 3 - fromEnum FontTypeType3 = 4 - fromEnum FontTypeTruetype = 5 - fromEnum FontTypeTruetypeot = 6 - fromEnum FontTypeCidType0 = 7 - fromEnum FontTypeCidType0c = 8 - fromEnum FontTypeCidType0cot = 9 - fromEnum FontTypeCidType2 = 10 - fromEnum FontTypeCidType2ot = 11 - fromEnum (AnotherFontType k) = k - - toEnum 0 = FontTypeUnknown - toEnum 1 = FontTypeType1 - toEnum 2 = FontTypeType1c - toEnum 3 = FontTypeType1cot - toEnum 4 = FontTypeType3 - toEnum 5 = FontTypeTruetype - toEnum 6 = FontTypeTruetypeot - toEnum 7 = FontTypeCidType0 - toEnum 8 = FontTypeCidType0c - toEnum 9 = FontTypeCidType0cot - toEnum 10 = FontTypeCidType2 - toEnum 11 = FontTypeCidType2ot - toEnum k = AnotherFontType k - -foreign import ccall "poppler_font_type_get_type" c_poppler_font_type_get_type :: - IO GType - -instance BoxedEnum FontType where - boxedEnumType _ = c_poppler_font_type_get_type - --- Enum Error - -data Error = - ErrorInvalid - | ErrorEncrypted - | ErrorOpenFile - | ErrorBadCatalog - | ErrorDamaged - | AnotherError Int - deriving (Show, Eq) - -instance Enum Error where - fromEnum ErrorInvalid = 0 - fromEnum ErrorEncrypted = 1 - fromEnum ErrorOpenFile = 2 - fromEnum ErrorBadCatalog = 3 - fromEnum ErrorDamaged = 4 - fromEnum (AnotherError k) = k - - toEnum 0 = ErrorInvalid - toEnum 1 = ErrorEncrypted - toEnum 2 = ErrorOpenFile - toEnum 3 = ErrorBadCatalog - toEnum 4 = ErrorDamaged - toEnum k = AnotherError k - -instance GErrorClass Error where - gerrorClassDomain _ = "poppler-quark" - -catchError :: - IO a -> - (Error -> GErrorMessage -> IO a) -> - IO a -catchError = catchGErrorJustDomain - -handleError :: - (Error -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleError = handleGErrorJustDomain - -foreign import ccall "poppler_error_get_type" c_poppler_error_get_type :: - IO GType - -instance BoxedEnum Error where - boxedEnumType _ = c_poppler_error_get_type - --- Enum DestType - -data DestType = - DestTypeUnknown - | DestTypeXyz - | DestTypeFit - | DestTypeFith - | DestTypeFitv - | DestTypeFitr - | DestTypeFitb - | DestTypeFitbh - | DestTypeFitbv - | DestTypeNamed - | AnotherDestType Int - deriving (Show, Eq) - -instance Enum DestType where - fromEnum DestTypeUnknown = 0 - fromEnum DestTypeXyz = 1 - fromEnum DestTypeFit = 2 - fromEnum DestTypeFith = 3 - fromEnum DestTypeFitv = 4 - fromEnum DestTypeFitr = 5 - fromEnum DestTypeFitb = 6 - fromEnum DestTypeFitbh = 7 - fromEnum DestTypeFitbv = 8 - fromEnum DestTypeNamed = 9 - fromEnum (AnotherDestType k) = k - - toEnum 0 = DestTypeUnknown - toEnum 1 = DestTypeXyz - toEnum 2 = DestTypeFit - toEnum 3 = DestTypeFith - toEnum 4 = DestTypeFitv - toEnum 5 = DestTypeFitr - toEnum 6 = DestTypeFitb - toEnum 7 = DestTypeFitbh - toEnum 8 = DestTypeFitbv - toEnum 9 = DestTypeNamed - toEnum k = AnotherDestType k - -foreign import ccall "poppler_dest_type_get_type" c_poppler_dest_type_get_type :: - IO GType - -instance BoxedEnum DestType where - boxedEnumType _ = c_poppler_dest_type_get_type - --- Enum Backend - -data Backend = - BackendUnknown - | BackendSplash - | BackendCairo - | AnotherBackend Int - deriving (Show, Eq) - -instance Enum Backend where - fromEnum BackendUnknown = 0 - fromEnum BackendSplash = 1 - fromEnum BackendCairo = 2 - fromEnum (AnotherBackend k) = k - - toEnum 0 = BackendUnknown - toEnum 1 = BackendSplash - toEnum 2 = BackendCairo - toEnum k = AnotherBackend k - -foreign import ccall "poppler_backend_get_type" c_poppler_backend_get_type :: - IO GType - -instance BoxedEnum Backend where - boxedEnumType _ = c_poppler_backend_get_type - --- Enum AnnotType - -data AnnotType = - AnnotTypeUnknown - | AnnotTypeText - | AnnotTypeLink - | AnnotTypeFreeText - | AnnotTypeLine - | AnnotTypeSquare - | AnnotTypeCircle - | AnnotTypePolygon - | AnnotTypePolyLine - | AnnotTypeHighlight - | AnnotTypeUnderline - | AnnotTypeSquiggly - | AnnotTypeStrikeOut - | AnnotTypeStamp - | AnnotTypeCaret - | AnnotTypeInk - | AnnotTypePopup - | AnnotTypeFileAttachment - | AnnotTypeSound - | AnnotTypeMovie - | AnnotTypeWidget - | AnnotTypeScreen - | AnnotTypePrinterMark - | AnnotTypeTrapNet - | AnnotTypeWatermark - | AnnotType3d - | AnotherAnnotType Int - deriving (Show, Eq) - -instance Enum AnnotType where - fromEnum AnnotTypeUnknown = 0 - fromEnum AnnotTypeText = 1 - fromEnum AnnotTypeLink = 2 - fromEnum AnnotTypeFreeText = 3 - fromEnum AnnotTypeLine = 4 - fromEnum AnnotTypeSquare = 5 - fromEnum AnnotTypeCircle = 6 - fromEnum AnnotTypePolygon = 7 - fromEnum AnnotTypePolyLine = 8 - fromEnum AnnotTypeHighlight = 9 - fromEnum AnnotTypeUnderline = 10 - fromEnum AnnotTypeSquiggly = 11 - fromEnum AnnotTypeStrikeOut = 12 - fromEnum AnnotTypeStamp = 13 - fromEnum AnnotTypeCaret = 14 - fromEnum AnnotTypeInk = 15 - fromEnum AnnotTypePopup = 16 - fromEnum AnnotTypeFileAttachment = 17 - fromEnum AnnotTypeSound = 18 - fromEnum AnnotTypeMovie = 19 - fromEnum AnnotTypeWidget = 20 - fromEnum AnnotTypeScreen = 21 - fromEnum AnnotTypePrinterMark = 22 - fromEnum AnnotTypeTrapNet = 23 - fromEnum AnnotTypeWatermark = 24 - fromEnum AnnotType3d = 25 - fromEnum (AnotherAnnotType k) = k - - toEnum 0 = AnnotTypeUnknown - toEnum 1 = AnnotTypeText - toEnum 2 = AnnotTypeLink - toEnum 3 = AnnotTypeFreeText - toEnum 4 = AnnotTypeLine - toEnum 5 = AnnotTypeSquare - toEnum 6 = AnnotTypeCircle - toEnum 7 = AnnotTypePolygon - toEnum 8 = AnnotTypePolyLine - toEnum 9 = AnnotTypeHighlight - toEnum 10 = AnnotTypeUnderline - toEnum 11 = AnnotTypeSquiggly - toEnum 12 = AnnotTypeStrikeOut - toEnum 13 = AnnotTypeStamp - toEnum 14 = AnnotTypeCaret - toEnum 15 = AnnotTypeInk - toEnum 16 = AnnotTypePopup - toEnum 17 = AnnotTypeFileAttachment - toEnum 18 = AnnotTypeSound - toEnum 19 = AnnotTypeMovie - toEnum 20 = AnnotTypeWidget - toEnum 21 = AnnotTypeScreen - toEnum 22 = AnnotTypePrinterMark - toEnum 23 = AnnotTypeTrapNet - toEnum 24 = AnnotTypeWatermark - toEnum 25 = AnnotType3d - toEnum k = AnotherAnnotType k - -foreign import ccall "poppler_annot_type_get_type" c_poppler_annot_type_get_type :: - IO GType - -instance BoxedEnum AnnotType where - boxedEnumType _ = c_poppler_annot_type_get_type - --- Enum AnnotTextState - -data AnnotTextState = - AnnotTextStateMarked - | AnnotTextStateUnmarked - | AnnotTextStateAccepted - | AnnotTextStateRejected - | AnnotTextStateCancelled - | AnnotTextStateCompleted - | AnnotTextStateNone - | AnnotTextStateUnknown - | AnotherAnnotTextState Int - deriving (Show, Eq) - -instance Enum AnnotTextState where - fromEnum AnnotTextStateMarked = 0 - fromEnum AnnotTextStateUnmarked = 1 - fromEnum AnnotTextStateAccepted = 2 - fromEnum AnnotTextStateRejected = 3 - fromEnum AnnotTextStateCancelled = 4 - fromEnum AnnotTextStateCompleted = 5 - fromEnum AnnotTextStateNone = 6 - fromEnum AnnotTextStateUnknown = 7 - fromEnum (AnotherAnnotTextState k) = k - - toEnum 0 = AnnotTextStateMarked - toEnum 1 = AnnotTextStateUnmarked - toEnum 2 = AnnotTextStateAccepted - toEnum 3 = AnnotTextStateRejected - toEnum 4 = AnnotTextStateCancelled - toEnum 5 = AnnotTextStateCompleted - toEnum 6 = AnnotTextStateNone - toEnum 7 = AnnotTextStateUnknown - toEnum k = AnotherAnnotTextState k - -foreign import ccall "poppler_annot_text_state_get_type" c_poppler_annot_text_state_get_type :: - IO GType - -instance BoxedEnum AnnotTextState where - boxedEnumType _ = c_poppler_annot_text_state_get_type - --- Enum AnnotMarkupReplyType - -data AnnotMarkupReplyType = - AnnotMarkupReplyTypeR - | AnnotMarkupReplyTypeGroup - | AnotherAnnotMarkupReplyType Int - deriving (Show, Eq) - -instance Enum AnnotMarkupReplyType where - fromEnum AnnotMarkupReplyTypeR = 0 - fromEnum AnnotMarkupReplyTypeGroup = 1 - fromEnum (AnotherAnnotMarkupReplyType k) = k - - toEnum 0 = AnnotMarkupReplyTypeR - toEnum 1 = AnnotMarkupReplyTypeGroup - toEnum k = AnotherAnnotMarkupReplyType k - -foreign import ccall "poppler_annot_markup_reply_type_get_type" c_poppler_annot_markup_reply_type_get_type :: - IO GType - -instance BoxedEnum AnnotMarkupReplyType where - boxedEnumType _ = c_poppler_annot_markup_reply_type_get_type - --- Enum AnnotFreeTextQuadding - -data AnnotFreeTextQuadding = - AnnotFreeTextQuaddingLeftJustified - | AnnotFreeTextQuaddingCentered - | AnnotFreeTextQuaddingRightJustified - | AnotherAnnotFreeTextQuadding Int - deriving (Show, Eq) - -instance Enum AnnotFreeTextQuadding where - fromEnum AnnotFreeTextQuaddingLeftJustified = 0 - fromEnum AnnotFreeTextQuaddingCentered = 1 - fromEnum AnnotFreeTextQuaddingRightJustified = 2 - fromEnum (AnotherAnnotFreeTextQuadding k) = k - - toEnum 0 = AnnotFreeTextQuaddingLeftJustified - toEnum 1 = AnnotFreeTextQuaddingCentered - toEnum 2 = AnnotFreeTextQuaddingRightJustified - toEnum k = AnotherAnnotFreeTextQuadding k - -foreign import ccall "poppler_annot_free_text_quadding_get_type" c_poppler_annot_free_text_quadding_get_type :: - IO GType - -instance BoxedEnum AnnotFreeTextQuadding where - boxedEnumType _ = c_poppler_annot_free_text_quadding_get_type - --- Enum AnnotExternalDataType - -data AnnotExternalDataType = - AnnotExternalDataType3d - | AnnotExternalDataTypeUnknown - | AnotherAnnotExternalDataType Int - deriving (Show, Eq) - -instance Enum AnnotExternalDataType where - fromEnum AnnotExternalDataType3d = 0 - fromEnum AnnotExternalDataTypeUnknown = 1 - fromEnum (AnotherAnnotExternalDataType k) = k - - toEnum 0 = AnnotExternalDataType3d - toEnum 1 = AnnotExternalDataTypeUnknown - toEnum k = AnotherAnnotExternalDataType k - -foreign import ccall "poppler_annot_external_data_type_get_type" c_poppler_annot_external_data_type_get_type :: - IO GType - -instance BoxedEnum AnnotExternalDataType where - boxedEnumType _ = c_poppler_annot_external_data_type_get_type - --- Enum ActionType - -data ActionType = - ActionTypeUnknown - | ActionTypeNone - | ActionTypeGotoDest - | ActionTypeGotoRemote - | ActionTypeLaunch - | ActionTypeUri - | ActionTypeNamed - | ActionTypeMovie - | ActionTypeRendition - | ActionTypeOcgState - | ActionTypeJavascript - | AnotherActionType Int - deriving (Show, Eq) - -instance Enum ActionType where - fromEnum ActionTypeUnknown = 0 - fromEnum ActionTypeNone = 1 - fromEnum ActionTypeGotoDest = 2 - fromEnum ActionTypeGotoRemote = 3 - fromEnum ActionTypeLaunch = 4 - fromEnum ActionTypeUri = 5 - fromEnum ActionTypeNamed = 6 - fromEnum ActionTypeMovie = 7 - fromEnum ActionTypeRendition = 8 - fromEnum ActionTypeOcgState = 9 - fromEnum ActionTypeJavascript = 10 - fromEnum (AnotherActionType k) = k - - toEnum 0 = ActionTypeUnknown - toEnum 1 = ActionTypeNone - toEnum 2 = ActionTypeGotoDest - toEnum 3 = ActionTypeGotoRemote - toEnum 4 = ActionTypeLaunch - toEnum 5 = ActionTypeUri - toEnum 6 = ActionTypeNamed - toEnum 7 = ActionTypeMovie - toEnum 8 = ActionTypeRendition - toEnum 9 = ActionTypeOcgState - toEnum 10 = ActionTypeJavascript - toEnum k = AnotherActionType k - -foreign import ccall "poppler_action_type_get_type" c_poppler_action_type_get_type :: - IO GType - -instance BoxedEnum ActionType where - boxedEnumType _ = c_poppler_action_type_get_type - --- Enum ActionMovieOperation - -data ActionMovieOperation = - ActionMovieOperationPlay - | ActionMovieOperationPause - | ActionMovieOperationResume - | ActionMovieOperationStop - | AnotherActionMovieOperation Int - deriving (Show, Eq) - -instance Enum ActionMovieOperation where - fromEnum ActionMovieOperationPlay = 0 - fromEnum ActionMovieOperationPause = 1 - fromEnum ActionMovieOperationResume = 2 - fromEnum ActionMovieOperationStop = 3 - fromEnum (AnotherActionMovieOperation k) = k - - toEnum 0 = ActionMovieOperationPlay - toEnum 1 = ActionMovieOperationPause - toEnum 2 = ActionMovieOperationResume - toEnum 3 = ActionMovieOperationStop - toEnum k = AnotherActionMovieOperation k - -foreign import ccall "poppler_action_movie_operation_get_type" c_poppler_action_movie_operation_get_type :: - IO GType - -instance BoxedEnum ActionMovieOperation where - boxedEnumType _ = c_poppler_action_movie_operation_get_type - --- Enum ActionLayerAction - -data ActionLayerAction = - ActionLayerActionOn - | ActionLayerActionOff - | ActionLayerActionToggle - | AnotherActionLayerAction Int - deriving (Show, Eq) - -instance Enum ActionLayerAction where - fromEnum ActionLayerActionOn = 0 - fromEnum ActionLayerActionOff = 1 - fromEnum ActionLayerActionToggle = 2 - fromEnum (AnotherActionLayerAction k) = k - - toEnum 0 = ActionLayerActionOn - toEnum 1 = ActionLayerActionOff - toEnum 2 = ActionLayerActionToggle - toEnum k = AnotherActionLayerAction k - -foreign import ccall "poppler_action_layer_action_get_type" c_poppler_action_layer_action_get_type :: - IO GType - -instance BoxedEnum ActionLayerAction where - boxedEnumType _ = c_poppler_action_layer_action_get_type - - diff --git a/GI/Poppler/Flags.hs b/GI/Poppler/Flags.hs deleted file mode 100644 --- a/GI/Poppler/Flags.hs +++ /dev/null @@ -1,260 +0,0 @@ - - -{- | -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.Flags - ( - --- * Exported types - ViewerPreferences(..) , - StructureGetTextFlags(..) , - PrintFlags(..) , - Permissions(..) , - FindFlags(..) , - AnnotFlag(..) , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- Flags ViewerPreferences - -data ViewerPreferences = - ViewerPreferencesUnset - | ViewerPreferencesHideToolbar - | ViewerPreferencesHideMenubar - | ViewerPreferencesHideWindowui - | ViewerPreferencesFitWindow - | ViewerPreferencesCenterWindow - | ViewerPreferencesDisplayDocTitle - | ViewerPreferencesDirectionRtl - | AnotherViewerPreferences Int - deriving (Show, Eq) - -instance Enum ViewerPreferences where - fromEnum ViewerPreferencesUnset = 0 - fromEnum ViewerPreferencesHideToolbar = 1 - fromEnum ViewerPreferencesHideMenubar = 2 - fromEnum ViewerPreferencesHideWindowui = 4 - fromEnum ViewerPreferencesFitWindow = 8 - fromEnum ViewerPreferencesCenterWindow = 16 - fromEnum ViewerPreferencesDisplayDocTitle = 32 - fromEnum ViewerPreferencesDirectionRtl = 64 - fromEnum (AnotherViewerPreferences k) = k - - toEnum 0 = ViewerPreferencesUnset - toEnum 1 = ViewerPreferencesHideToolbar - toEnum 2 = ViewerPreferencesHideMenubar - toEnum 4 = ViewerPreferencesHideWindowui - toEnum 8 = ViewerPreferencesFitWindow - toEnum 16 = ViewerPreferencesCenterWindow - toEnum 32 = ViewerPreferencesDisplayDocTitle - toEnum 64 = ViewerPreferencesDirectionRtl - toEnum k = AnotherViewerPreferences k - -foreign import ccall "poppler_viewer_preferences_get_type" c_poppler_viewer_preferences_get_type :: - IO GType - -instance BoxedFlags ViewerPreferences where - boxedFlagsType _ = c_poppler_viewer_preferences_get_type - -instance IsGFlag ViewerPreferences - --- Flags StructureGetTextFlags - -data StructureGetTextFlags = - StructureGetTextFlagsNone - | StructureGetTextFlagsRecursive - | AnotherStructureGetTextFlags Int - deriving (Show, Eq) - -instance Enum StructureGetTextFlags where - fromEnum StructureGetTextFlagsNone = 0 - fromEnum StructureGetTextFlagsRecursive = 1 - fromEnum (AnotherStructureGetTextFlags k) = k - - toEnum 0 = StructureGetTextFlagsNone - toEnum 1 = StructureGetTextFlagsRecursive - toEnum k = AnotherStructureGetTextFlags k - -foreign import ccall "poppler_structure_get_text_flags_get_type" c_poppler_structure_get_text_flags_get_type :: - IO GType - -instance BoxedFlags StructureGetTextFlags where - boxedFlagsType _ = c_poppler_structure_get_text_flags_get_type - -instance IsGFlag StructureGetTextFlags - --- Flags PrintFlags - -data PrintFlags = - PrintFlagsDocument - | PrintFlagsMarkupAnnots - | PrintFlagsStampAnnotsOnly - | PrintFlagsAll - | AnotherPrintFlags Int - deriving (Show, Eq) - -instance Enum PrintFlags where - fromEnum PrintFlagsDocument = 0 - fromEnum PrintFlagsMarkupAnnots = 1 - fromEnum PrintFlagsStampAnnotsOnly = 2 - fromEnum PrintFlagsAll = 1 - fromEnum (AnotherPrintFlags k) = k - - toEnum 0 = PrintFlagsDocument - toEnum 1 = PrintFlagsMarkupAnnots - toEnum 2 = PrintFlagsStampAnnotsOnly - toEnum k = AnotherPrintFlags k - -foreign import ccall "poppler_print_flags_get_type" c_poppler_print_flags_get_type :: - IO GType - -instance BoxedFlags PrintFlags where - boxedFlagsType _ = c_poppler_print_flags_get_type - -instance IsGFlag PrintFlags - --- Flags Permissions - -data Permissions = - PermissionsOkToPrint - | PermissionsOkToModify - | PermissionsOkToCopy - | PermissionsOkToAddNotes - | PermissionsOkToFillForm - | PermissionsOkToExtractContents - | PermissionsOkToAssemble - | PermissionsOkToPrintHighResolution - | PermissionsFull - | AnotherPermissions Int - deriving (Show, Eq) - -instance Enum Permissions where - fromEnum PermissionsOkToPrint = 1 - fromEnum PermissionsOkToModify = 2 - fromEnum PermissionsOkToCopy = 4 - fromEnum PermissionsOkToAddNotes = 8 - fromEnum PermissionsOkToFillForm = 16 - fromEnum PermissionsOkToExtractContents = 32 - fromEnum PermissionsOkToAssemble = 64 - fromEnum PermissionsOkToPrintHighResolution = 128 - fromEnum PermissionsFull = 255 - fromEnum (AnotherPermissions k) = k - - toEnum 1 = PermissionsOkToPrint - toEnum 2 = PermissionsOkToModify - toEnum 4 = PermissionsOkToCopy - toEnum 8 = PermissionsOkToAddNotes - toEnum 16 = PermissionsOkToFillForm - toEnum 32 = PermissionsOkToExtractContents - toEnum 64 = PermissionsOkToAssemble - toEnum 128 = PermissionsOkToPrintHighResolution - toEnum 255 = PermissionsFull - toEnum k = AnotherPermissions k - -foreign import ccall "poppler_permissions_get_type" c_poppler_permissions_get_type :: - IO GType - -instance BoxedFlags Permissions where - boxedFlagsType _ = c_poppler_permissions_get_type - -instance IsGFlag Permissions - --- Flags FindFlags - -data FindFlags = - FindFlagsDefault - | FindFlagsCaseSensitive - | FindFlagsBackwards - | FindFlagsWholeWordsOnly - | AnotherFindFlags Int - deriving (Show, Eq) - -instance Enum FindFlags where - fromEnum FindFlagsDefault = 0 - fromEnum FindFlagsCaseSensitive = 1 - fromEnum FindFlagsBackwards = 2 - fromEnum FindFlagsWholeWordsOnly = 4 - fromEnum (AnotherFindFlags k) = k - - toEnum 0 = FindFlagsDefault - toEnum 1 = FindFlagsCaseSensitive - toEnum 2 = FindFlagsBackwards - toEnum 4 = FindFlagsWholeWordsOnly - toEnum k = AnotherFindFlags k - -foreign import ccall "poppler_find_flags_get_type" c_poppler_find_flags_get_type :: - IO GType - -instance BoxedFlags FindFlags where - boxedFlagsType _ = c_poppler_find_flags_get_type - -instance IsGFlag FindFlags - --- Flags AnnotFlag - -data AnnotFlag = - AnnotFlagUnknown - | AnnotFlagInvisible - | AnnotFlagHidden - | AnnotFlagPrint - | AnnotFlagNoZoom - | AnnotFlagNoRotate - | AnnotFlagNoView - | AnnotFlagReadOnly - | AnnotFlagLocked - | AnnotFlagToggleNoView - | AnnotFlagLockedContents - | AnotherAnnotFlag Int - deriving (Show, Eq) - -instance Enum AnnotFlag where - fromEnum AnnotFlagUnknown = 0 - fromEnum AnnotFlagInvisible = 1 - fromEnum AnnotFlagHidden = 2 - fromEnum AnnotFlagPrint = 4 - fromEnum AnnotFlagNoZoom = 8 - fromEnum AnnotFlagNoRotate = 16 - fromEnum AnnotFlagNoView = 32 - fromEnum AnnotFlagReadOnly = 64 - fromEnum AnnotFlagLocked = 128 - fromEnum AnnotFlagToggleNoView = 256 - fromEnum AnnotFlagLockedContents = 512 - fromEnum (AnotherAnnotFlag k) = k - - toEnum 0 = AnnotFlagUnknown - toEnum 1 = AnnotFlagInvisible - toEnum 2 = AnnotFlagHidden - toEnum 4 = AnnotFlagPrint - toEnum 8 = AnnotFlagNoZoom - toEnum 16 = AnnotFlagNoRotate - toEnum 32 = AnnotFlagNoView - toEnum 64 = AnnotFlagReadOnly - toEnum 128 = AnnotFlagLocked - toEnum 256 = AnnotFlagToggleNoView - toEnum 512 = AnnotFlagLockedContents - toEnum k = AnotherAnnotFlag k - -foreign import ccall "poppler_annot_flag_get_type" c_poppler_annot_flag_get_type :: - IO GType - -instance BoxedFlags AnnotFlag where - boxedFlagsType _ = c_poppler_annot_flag_get_type - -instance IsGFlag AnnotFlag - - diff --git a/GI/Poppler/Functions.hs b/GI/Poppler/Functions.hs deleted file mode 100644 --- a/GI/Poppler/Functions.hs +++ /dev/null @@ -1,106 +0,0 @@ - - -{- | -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.Functions - ( - - -- * Methods --- ** dateParse - dateParse , - - --- ** getBackend - getBackend , - - --- ** getVersion - getVersion , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - --- function poppler_get_version --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_get_version" poppler_get_version :: - IO CString - - -getVersion :: - (MonadIO m) => - m T.Text -- result -getVersion = liftIO $ do - result <- poppler_get_version - checkUnexpectedReturnNULL "poppler_get_version" result - result' <- cstringToText result - return result' - - --- function poppler_get_backend --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Backend") --- throws : False --- Skip return : False - -foreign import ccall "poppler_get_backend" poppler_get_backend :: - IO CUInt - - -getBackend :: - (MonadIO m) => - m Backend -- result -getBackend = liftIO $ do - result <- poppler_get_backend - let result' = (toEnum . fromIntegral) result - return result' - - --- function poppler_date_parse --- Args : [Arg {argCName = "date", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timet", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_date_parse" poppler_date_parse :: - CString -> -- date : TBasicType TUTF8 - CLong -> -- timet : TBasicType TLong - IO CInt - - -dateParse :: - (MonadIO m) => - T.Text -- date - -> CLong -- timet - -> m Bool -- result -dateParse date timet = liftIO $ do - date' <- textToCString date - result <- poppler_date_parse date' timet - let result' = (/= 0) result - freeMem date' - return result' - - - diff --git a/GI/Poppler/Objects.hs b/GI/Poppler/Objects.hs deleted file mode 100644 --- a/GI/Poppler/Objects.hs +++ /dev/null @@ -1,67 +0,0 @@ - - -{- | -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 - ( module GI.Poppler.Objects.Annot , - module GI.Poppler.Objects.AnnotCircle , - module GI.Poppler.Objects.AnnotFileAttachment, - module GI.Poppler.Objects.AnnotFreeText , - module GI.Poppler.Objects.AnnotLine , - module GI.Poppler.Objects.AnnotMarkup , - module GI.Poppler.Objects.AnnotMovie , - module GI.Poppler.Objects.AnnotScreen , - module GI.Poppler.Objects.AnnotSquare , - module GI.Poppler.Objects.AnnotText , - module GI.Poppler.Objects.AnnotTextMarkup, - module GI.Poppler.Objects.Attachment , - module GI.Poppler.Objects.Document , - module GI.Poppler.Objects.FontInfo , - module GI.Poppler.Objects.FormField , - module GI.Poppler.Objects.Layer , - module GI.Poppler.Objects.Media , - module GI.Poppler.Objects.Movie , - module GI.Poppler.Objects.PSFile , - module GI.Poppler.Objects.Page , - module GI.Poppler.Objects.StructureElement, - - - ) where - -import GI.Poppler.Objects.Annot -import GI.Poppler.Objects.AnnotCircle -import GI.Poppler.Objects.AnnotFileAttachment -import GI.Poppler.Objects.AnnotFreeText -import GI.Poppler.Objects.AnnotLine -import GI.Poppler.Objects.AnnotMarkup -import GI.Poppler.Objects.AnnotMovie -import GI.Poppler.Objects.AnnotScreen -import GI.Poppler.Objects.AnnotSquare -import GI.Poppler.Objects.AnnotText -import GI.Poppler.Objects.AnnotTextMarkup -import GI.Poppler.Objects.Attachment -import GI.Poppler.Objects.Document -import GI.Poppler.Objects.FontInfo -import GI.Poppler.Objects.FormField -import GI.Poppler.Objects.Layer -import GI.Poppler.Objects.Media -import GI.Poppler.Objects.Movie -import GI.Poppler.Objects.PSFile -import GI.Poppler.Objects.Page -import GI.Poppler.Objects.StructureElement - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - diff --git a/GI/Poppler/Objects/Annot.hs b/GI/Poppler/Objects/Annot.hs deleted file mode 100644 --- a/GI/Poppler/Objects/Annot.hs +++ /dev/null @@ -1,526 +0,0 @@ - - -{- | -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.Annot - ( - --- * Exported types - Annot(..) , - AnnotK , - toAnnot , - noAnnot , - - - -- * Methods --- ** annotGetAnnotType - AnnotGetAnnotTypeMethodInfo , - annotGetAnnotType , - - --- ** annotGetColor - AnnotGetColorMethodInfo , - annotGetColor , - - --- ** annotGetContents - AnnotGetContentsMethodInfo , - annotGetContents , - - --- ** annotGetFlags - AnnotGetFlagsMethodInfo , - annotGetFlags , - - --- ** annotGetModified - AnnotGetModifiedMethodInfo , - annotGetModified , - - --- ** annotGetName - AnnotGetNameMethodInfo , - annotGetName , - - --- ** annotGetPageIndex - AnnotGetPageIndexMethodInfo , - annotGetPageIndex , - - --- ** annotGetRectangle - AnnotGetRectangleMethodInfo , - annotGetRectangle , - - --- ** annotSetColor - AnnotSetColorMethodInfo , - annotSetColor , - - --- ** annotSetContents - AnnotSetContentsMethodInfo , - annotSetContents , - - --- ** annotSetFlags - AnnotSetFlagsMethodInfo , - annotSetFlags , - - --- ** annotSetRectangle - AnnotSetRectangleMethodInfo , - annotSetRectangle , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 Annot = Annot (ForeignPtr Annot) -foreign import ccall "poppler_annot_get_type" - c_poppler_annot_get_type :: IO GType - -type instance ParentTypes Annot = AnnotParentTypes -type AnnotParentTypes = '[GObject.Object] - -instance GObject Annot where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_annot_get_type - - -class GObject o => AnnotK o -instance (GObject o, IsDescendantOf Annot o) => AnnotK o - -toAnnot :: AnnotK o => o -> IO Annot -toAnnot = unsafeCastTo Annot - -noAnnot :: Maybe Annot -noAnnot = Nothing - -type family ResolveAnnotMethod (t :: Symbol) (o :: *) :: * where - ResolveAnnotMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAnnotMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAnnotMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAnnotMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAnnotMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAnnotMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAnnotMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAnnotMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAnnotMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAnnotMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAnnotMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAnnotMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAnnotMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAnnotMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAnnotMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAnnotMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAnnotMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAnnotMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo - ResolveAnnotMethod "getColor" o = AnnotGetColorMethodInfo - ResolveAnnotMethod "getContents" o = AnnotGetContentsMethodInfo - ResolveAnnotMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAnnotMethod "getFlags" o = AnnotGetFlagsMethodInfo - ResolveAnnotMethod "getModified" o = AnnotGetModifiedMethodInfo - ResolveAnnotMethod "getName" o = AnnotGetNameMethodInfo - ResolveAnnotMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo - ResolveAnnotMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAnnotMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAnnotMethod "getRectangle" o = AnnotGetRectangleMethodInfo - ResolveAnnotMethod "setColor" o = AnnotSetColorMethodInfo - ResolveAnnotMethod "setContents" o = AnnotSetContentsMethodInfo - ResolveAnnotMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAnnotMethod "setFlags" o = AnnotSetFlagsMethodInfo - ResolveAnnotMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAnnotMethod "setRectangle" o = AnnotSetRectangleMethodInfo - ResolveAnnotMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAnnotMethod t Annot, MethodInfo info Annot p) => IsLabelProxy t (Annot -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAnnotMethod t Annot, MethodInfo info Annot p) => IsLabel t (Annot -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Annot = AnnotAttributeList -type AnnotAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Annot = AnnotSignalList -type AnnotSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Annot::get_annot_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotType") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_get_annot_type" poppler_annot_get_annot_type :: - Ptr Annot -> -- _obj : TInterface "Poppler" "Annot" - IO CUInt - - -annotGetAnnotType :: - (MonadIO m, AnnotK a) => - a -- _obj - -> m AnnotType -- result -annotGetAnnotType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_get_annot_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data AnnotGetAnnotTypeMethodInfo -instance (signature ~ (m AnnotType), MonadIO m, AnnotK a) => MethodInfo AnnotGetAnnotTypeMethodInfo a signature where - overloadedMethod _ = annotGetAnnotType - --- method Annot::get_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Color") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_get_color" poppler_annot_get_color :: - Ptr Annot -> -- _obj : TInterface "Poppler" "Annot" - IO (Ptr Color) - - -annotGetColor :: - (MonadIO m, AnnotK a) => - a -- _obj - -> m Color -- result -annotGetColor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_get_color _obj' - checkUnexpectedReturnNULL "poppler_annot_get_color" result - result' <- (wrapBoxed Color) result - touchManagedPtr _obj - return result' - -data AnnotGetColorMethodInfo -instance (signature ~ (m Color), MonadIO m, AnnotK a) => MethodInfo AnnotGetColorMethodInfo a signature where - overloadedMethod _ = annotGetColor - --- method Annot::get_contents --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_get_contents" poppler_annot_get_contents :: - Ptr Annot -> -- _obj : TInterface "Poppler" "Annot" - IO CString - - -annotGetContents :: - (MonadIO m, AnnotK a) => - a -- _obj - -> m T.Text -- result -annotGetContents _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_get_contents _obj' - checkUnexpectedReturnNULL "poppler_annot_get_contents" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data AnnotGetContentsMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AnnotK a) => MethodInfo AnnotGetContentsMethodInfo a signature where - overloadedMethod _ = annotGetContents - --- method Annot::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotFlag") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_get_flags" poppler_annot_get_flags :: - Ptr Annot -> -- _obj : TInterface "Poppler" "Annot" - IO CUInt - - -annotGetFlags :: - (MonadIO m, AnnotK a) => - a -- _obj - -> m [AnnotFlag] -- result -annotGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data AnnotGetFlagsMethodInfo -instance (signature ~ (m [AnnotFlag]), MonadIO m, AnnotK a) => MethodInfo AnnotGetFlagsMethodInfo a signature where - overloadedMethod _ = annotGetFlags - --- method Annot::get_modified --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_get_modified" poppler_annot_get_modified :: - Ptr Annot -> -- _obj : TInterface "Poppler" "Annot" - IO CString - - -annotGetModified :: - (MonadIO m, AnnotK a) => - a -- _obj - -> m T.Text -- result -annotGetModified _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_get_modified _obj' - checkUnexpectedReturnNULL "poppler_annot_get_modified" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data AnnotGetModifiedMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AnnotK a) => MethodInfo AnnotGetModifiedMethodInfo a signature where - overloadedMethod _ = annotGetModified - --- method Annot::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_get_name" poppler_annot_get_name :: - Ptr Annot -> -- _obj : TInterface "Poppler" "Annot" - IO CString - - -annotGetName :: - (MonadIO m, AnnotK a) => - a -- _obj - -> m T.Text -- result -annotGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_get_name _obj' - checkUnexpectedReturnNULL "poppler_annot_get_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data AnnotGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AnnotK a) => MethodInfo AnnotGetNameMethodInfo a signature where - overloadedMethod _ = annotGetName - --- method Annot::get_page_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_get_page_index" poppler_annot_get_page_index :: - Ptr Annot -> -- _obj : TInterface "Poppler" "Annot" - IO Int32 - - -annotGetPageIndex :: - (MonadIO m, AnnotK a) => - a -- _obj - -> m Int32 -- result -annotGetPageIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_get_page_index _obj' - touchManagedPtr _obj - return result - -data AnnotGetPageIndexMethodInfo -instance (signature ~ (m Int32), MonadIO m, AnnotK a) => MethodInfo AnnotGetPageIndexMethodInfo a signature where - overloadedMethod _ = annotGetPageIndex - --- method Annot::get_rectangle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_get_rectangle" poppler_annot_get_rectangle :: - Ptr Annot -> -- _obj : TInterface "Poppler" "Annot" - Ptr Rectangle -> -- poppler_rect : TInterface "Poppler" "Rectangle" - IO () - - -annotGetRectangle :: - (MonadIO m, AnnotK a) => - a -- _obj - -> m (Rectangle) -- result -annotGetRectangle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - popplerRect <- callocBoxedBytes 32 :: IO (Ptr Rectangle) - poppler_annot_get_rectangle _obj' popplerRect - popplerRect' <- (wrapBoxed Rectangle) popplerRect - touchManagedPtr _obj - return popplerRect' - -data AnnotGetRectangleMethodInfo -instance (signature ~ (m (Rectangle)), MonadIO m, AnnotK a) => MethodInfo AnnotGetRectangleMethodInfo a signature where - overloadedMethod _ = annotGetRectangle - --- method Annot::set_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_set_color" poppler_annot_set_color :: - Ptr Annot -> -- _obj : TInterface "Poppler" "Annot" - Ptr Color -> -- poppler_color : TInterface "Poppler" "Color" - IO () - - -annotSetColor :: - (MonadIO m, AnnotK a) => - a -- _obj - -> Maybe (Color) -- popplerColor - -> m () -- result -annotSetColor _obj popplerColor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePopplerColor <- case popplerColor of - Nothing -> return nullPtr - Just jPopplerColor -> do - let jPopplerColor' = unsafeManagedPtrGetPtr jPopplerColor - return jPopplerColor' - poppler_annot_set_color _obj' maybePopplerColor - touchManagedPtr _obj - whenJust popplerColor touchManagedPtr - return () - -data AnnotSetColorMethodInfo -instance (signature ~ (Maybe (Color) -> m ()), MonadIO m, AnnotK a) => MethodInfo AnnotSetColorMethodInfo a signature where - overloadedMethod _ = annotSetColor - --- method Annot::set_contents --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_set_contents" poppler_annot_set_contents :: - Ptr Annot -> -- _obj : TInterface "Poppler" "Annot" - CString -> -- contents : TBasicType TUTF8 - IO () - - -annotSetContents :: - (MonadIO m, AnnotK a) => - a -- _obj - -> T.Text -- contents - -> m () -- result -annotSetContents _obj contents = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - contents' <- textToCString contents - poppler_annot_set_contents _obj' contents' - touchManagedPtr _obj - freeMem contents' - return () - -data AnnotSetContentsMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AnnotK a) => MethodInfo AnnotSetContentsMethodInfo a signature where - overloadedMethod _ = annotSetContents - --- method Annot::set_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Poppler" "AnnotFlag", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_set_flags" poppler_annot_set_flags :: - Ptr Annot -> -- _obj : TInterface "Poppler" "Annot" - CUInt -> -- flags : TInterface "Poppler" "AnnotFlag" - IO () - - -annotSetFlags :: - (MonadIO m, AnnotK a) => - a -- _obj - -> [AnnotFlag] -- flags - -> m () -- result -annotSetFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - poppler_annot_set_flags _obj' flags' - touchManagedPtr _obj - return () - -data AnnotSetFlagsMethodInfo -instance (signature ~ ([AnnotFlag] -> m ()), MonadIO m, AnnotK a) => MethodInfo AnnotSetFlagsMethodInfo a signature where - overloadedMethod _ = annotSetFlags - --- method Annot::set_rectangle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_set_rectangle" poppler_annot_set_rectangle :: - Ptr Annot -> -- _obj : TInterface "Poppler" "Annot" - Ptr Rectangle -> -- poppler_rect : TInterface "Poppler" "Rectangle" - IO () - - -annotSetRectangle :: - (MonadIO m, AnnotK a) => - a -- _obj - -> Rectangle -- popplerRect - -> m () -- result -annotSetRectangle _obj popplerRect = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let popplerRect' = unsafeManagedPtrGetPtr popplerRect - poppler_annot_set_rectangle _obj' popplerRect' - touchManagedPtr _obj - touchManagedPtr popplerRect - return () - -data AnnotSetRectangleMethodInfo -instance (signature ~ (Rectangle -> m ()), MonadIO m, AnnotK a) => MethodInfo AnnotSetRectangleMethodInfo a signature where - overloadedMethod _ = annotSetRectangle - - diff --git a/GI/Poppler/Objects/Annot.hs-boot b/GI/Poppler/Objects/Annot.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/Annot.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.Poppler.Objects.Annot where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Annot = Annot (ForeignPtr Annot) -instance GObject Annot where -class GObject o => AnnotK o -instance (GObject o, IsDescendantOf Annot o) => AnnotK o -data AnnotGetAnnotTypeMethodInfo -data AnnotGetColorMethodInfo -data AnnotGetContentsMethodInfo -data AnnotGetFlagsMethodInfo -data AnnotGetModifiedMethodInfo -data AnnotGetNameMethodInfo -data AnnotGetPageIndexMethodInfo -data AnnotGetRectangleMethodInfo -data AnnotSetColorMethodInfo -data AnnotSetContentsMethodInfo -data AnnotSetFlagsMethodInfo -data AnnotSetRectangleMethodInfo diff --git a/GI/Poppler/Objects/AnnotCircle.hs b/GI/Poppler/Objects/AnnotCircle.hs deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotCircle.hs +++ /dev/null @@ -1,230 +0,0 @@ - - -{- | -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.AnnotCircle - ( - --- * Exported types - AnnotCircle(..) , - AnnotCircleK , - toAnnotCircle , - noAnnotCircle , - - - -- * Methods --- ** annotCircleGetInteriorColor - AnnotCircleGetInteriorColorMethodInfo , - annotCircleGetInteriorColor , - - --- ** annotCircleNew - annotCircleNew , - - --- ** annotCircleSetInteriorColor - AnnotCircleSetInteriorColorMethodInfo , - annotCircleSetInteriorColor , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 AnnotCircle = AnnotCircle (ForeignPtr AnnotCircle) -foreign import ccall "poppler_annot_circle_get_type" - c_poppler_annot_circle_get_type :: IO GType - -type instance ParentTypes AnnotCircle = AnnotCircleParentTypes -type AnnotCircleParentTypes = '[AnnotMarkup, Annot, GObject.Object] - -instance GObject AnnotCircle where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_annot_circle_get_type - - -class GObject o => AnnotCircleK o -instance (GObject o, IsDescendantOf AnnotCircle o) => AnnotCircleK o - -toAnnotCircle :: AnnotCircleK o => o -> IO AnnotCircle -toAnnotCircle = unsafeCastTo AnnotCircle - -noAnnotCircle :: Maybe AnnotCircle -noAnnotCircle = Nothing - -type family ResolveAnnotCircleMethod (t :: Symbol) (o :: *) :: * where - ResolveAnnotCircleMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAnnotCircleMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAnnotCircleMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAnnotCircleMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAnnotCircleMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo - ResolveAnnotCircleMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAnnotCircleMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAnnotCircleMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAnnotCircleMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAnnotCircleMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAnnotCircleMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAnnotCircleMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAnnotCircleMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAnnotCircleMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAnnotCircleMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAnnotCircleMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAnnotCircleMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAnnotCircleMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAnnotCircleMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo - ResolveAnnotCircleMethod "getColor" o = AnnotGetColorMethodInfo - ResolveAnnotCircleMethod "getContents" o = AnnotGetContentsMethodInfo - ResolveAnnotCircleMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAnnotCircleMethod "getDate" o = AnnotMarkupGetDateMethodInfo - ResolveAnnotCircleMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo - ResolveAnnotCircleMethod "getFlags" o = AnnotGetFlagsMethodInfo - ResolveAnnotCircleMethod "getInteriorColor" o = AnnotCircleGetInteriorColorMethodInfo - ResolveAnnotCircleMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo - ResolveAnnotCircleMethod "getModified" o = AnnotGetModifiedMethodInfo - ResolveAnnotCircleMethod "getName" o = AnnotGetNameMethodInfo - ResolveAnnotCircleMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo - ResolveAnnotCircleMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo - ResolveAnnotCircleMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo - ResolveAnnotCircleMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo - ResolveAnnotCircleMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAnnotCircleMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAnnotCircleMethod "getRectangle" o = AnnotGetRectangleMethodInfo - ResolveAnnotCircleMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo - ResolveAnnotCircleMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo - ResolveAnnotCircleMethod "setColor" o = AnnotSetColorMethodInfo - ResolveAnnotCircleMethod "setContents" o = AnnotSetContentsMethodInfo - ResolveAnnotCircleMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAnnotCircleMethod "setFlags" o = AnnotSetFlagsMethodInfo - ResolveAnnotCircleMethod "setInteriorColor" o = AnnotCircleSetInteriorColorMethodInfo - ResolveAnnotCircleMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo - ResolveAnnotCircleMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo - ResolveAnnotCircleMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo - ResolveAnnotCircleMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo - ResolveAnnotCircleMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo - ResolveAnnotCircleMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAnnotCircleMethod "setRectangle" o = AnnotSetRectangleMethodInfo - ResolveAnnotCircleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAnnotCircleMethod t AnnotCircle, MethodInfo info AnnotCircle p) => IsLabelProxy t (AnnotCircle -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAnnotCircleMethod t AnnotCircle, MethodInfo info AnnotCircle p) => IsLabel t (AnnotCircle -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AnnotCircle = AnnotCircleAttributeList -type AnnotCircleAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList AnnotCircle = AnnotCircleSignalList -type AnnotCircleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AnnotCircle::new --- method type : Constructor --- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotCircle") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_circle_new" poppler_annot_circle_new :: - Ptr Document -> -- doc : TInterface "Poppler" "Document" - Ptr Rectangle -> -- rect : TInterface "Poppler" "Rectangle" - IO (Ptr AnnotCircle) - - -annotCircleNew :: - (MonadIO m, DocumentK a) => - a -- doc - -> Rectangle -- rect - -> m AnnotCircle -- result -annotCircleNew doc rect = liftIO $ do - let doc' = unsafeManagedPtrCastPtr doc - let rect' = unsafeManagedPtrGetPtr rect - result <- poppler_annot_circle_new doc' rect' - checkUnexpectedReturnNULL "poppler_annot_circle_new" result - result' <- (wrapObject AnnotCircle) result - touchManagedPtr doc - touchManagedPtr rect - return result' - --- method AnnotCircle::get_interior_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotCircle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Color") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_circle_get_interior_color" poppler_annot_circle_get_interior_color :: - Ptr AnnotCircle -> -- _obj : TInterface "Poppler" "AnnotCircle" - IO (Ptr Color) - - -annotCircleGetInteriorColor :: - (MonadIO m, AnnotCircleK a) => - a -- _obj - -> m Color -- result -annotCircleGetInteriorColor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_circle_get_interior_color _obj' - checkUnexpectedReturnNULL "poppler_annot_circle_get_interior_color" result - result' <- (wrapBoxed Color) result - touchManagedPtr _obj - return result' - -data AnnotCircleGetInteriorColorMethodInfo -instance (signature ~ (m Color), MonadIO m, AnnotCircleK a) => MethodInfo AnnotCircleGetInteriorColorMethodInfo a signature where - overloadedMethod _ = annotCircleGetInteriorColor - --- method AnnotCircle::set_interior_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotCircle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_circle_set_interior_color" poppler_annot_circle_set_interior_color :: - Ptr AnnotCircle -> -- _obj : TInterface "Poppler" "AnnotCircle" - Ptr Color -> -- poppler_color : TInterface "Poppler" "Color" - IO () - - -annotCircleSetInteriorColor :: - (MonadIO m, AnnotCircleK a) => - a -- _obj - -> Maybe (Color) -- popplerColor - -> m () -- result -annotCircleSetInteriorColor _obj popplerColor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePopplerColor <- case popplerColor of - Nothing -> return nullPtr - Just jPopplerColor -> do - let jPopplerColor' = unsafeManagedPtrGetPtr jPopplerColor - return jPopplerColor' - poppler_annot_circle_set_interior_color _obj' maybePopplerColor - touchManagedPtr _obj - whenJust popplerColor touchManagedPtr - return () - -data AnnotCircleSetInteriorColorMethodInfo -instance (signature ~ (Maybe (Color) -> m ()), MonadIO m, AnnotCircleK a) => MethodInfo AnnotCircleSetInteriorColorMethodInfo a signature where - overloadedMethod _ = annotCircleSetInteriorColor - - diff --git a/GI/Poppler/Objects/AnnotCircle.hs-boot b/GI/Poppler/Objects/AnnotCircle.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotCircle.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Poppler.Objects.AnnotCircle where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AnnotCircle = AnnotCircle (ForeignPtr AnnotCircle) -instance GObject AnnotCircle where -class GObject o => AnnotCircleK o -instance (GObject o, IsDescendantOf AnnotCircle o) => AnnotCircleK o -data AnnotCircleGetInteriorColorMethodInfo -data AnnotCircleSetInteriorColorMethodInfo diff --git a/GI/Poppler/Objects/AnnotFileAttachment.hs b/GI/Poppler/Objects/AnnotFileAttachment.hs deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotFileAttachment.hs +++ /dev/null @@ -1,190 +0,0 @@ - - -{- | -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.AnnotFileAttachment - ( - --- * Exported types - AnnotFileAttachment(..) , - AnnotFileAttachmentK , - toAnnotFileAttachment , - noAnnotFileAttachment , - - - -- * Methods --- ** annotFileAttachmentGetAttachment - AnnotFileAttachmentGetAttachmentMethodInfo, - annotFileAttachmentGetAttachment , - - --- ** annotFileAttachmentGetName - AnnotFileAttachmentGetNameMethodInfo , - annotFileAttachmentGetName , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 AnnotFileAttachment = AnnotFileAttachment (ForeignPtr AnnotFileAttachment) -foreign import ccall "poppler_annot_file_attachment_get_type" - c_poppler_annot_file_attachment_get_type :: IO GType - -type instance ParentTypes AnnotFileAttachment = AnnotFileAttachmentParentTypes -type AnnotFileAttachmentParentTypes = '[AnnotMarkup, Annot, GObject.Object] - -instance GObject AnnotFileAttachment where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_annot_file_attachment_get_type - - -class GObject o => AnnotFileAttachmentK o -instance (GObject o, IsDescendantOf AnnotFileAttachment o) => AnnotFileAttachmentK o - -toAnnotFileAttachment :: AnnotFileAttachmentK o => o -> IO AnnotFileAttachment -toAnnotFileAttachment = unsafeCastTo AnnotFileAttachment - -noAnnotFileAttachment :: Maybe AnnotFileAttachment -noAnnotFileAttachment = Nothing - -type family ResolveAnnotFileAttachmentMethod (t :: Symbol) (o :: *) :: * where - ResolveAnnotFileAttachmentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAnnotFileAttachmentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAnnotFileAttachmentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAnnotFileAttachmentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAnnotFileAttachmentMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo - ResolveAnnotFileAttachmentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAnnotFileAttachmentMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAnnotFileAttachmentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAnnotFileAttachmentMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAnnotFileAttachmentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAnnotFileAttachmentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAnnotFileAttachmentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAnnotFileAttachmentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAnnotFileAttachmentMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAnnotFileAttachmentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAnnotFileAttachmentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAnnotFileAttachmentMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAnnotFileAttachmentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAnnotFileAttachmentMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo - ResolveAnnotFileAttachmentMethod "getAttachment" o = AnnotFileAttachmentGetAttachmentMethodInfo - ResolveAnnotFileAttachmentMethod "getColor" o = AnnotGetColorMethodInfo - ResolveAnnotFileAttachmentMethod "getContents" o = AnnotGetContentsMethodInfo - ResolveAnnotFileAttachmentMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAnnotFileAttachmentMethod "getDate" o = AnnotMarkupGetDateMethodInfo - ResolveAnnotFileAttachmentMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo - ResolveAnnotFileAttachmentMethod "getFlags" o = AnnotGetFlagsMethodInfo - ResolveAnnotFileAttachmentMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo - ResolveAnnotFileAttachmentMethod "getModified" o = AnnotGetModifiedMethodInfo - ResolveAnnotFileAttachmentMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo - ResolveAnnotFileAttachmentMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo - ResolveAnnotFileAttachmentMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo - ResolveAnnotFileAttachmentMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo - ResolveAnnotFileAttachmentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAnnotFileAttachmentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAnnotFileAttachmentMethod "getRectangle" o = AnnotGetRectangleMethodInfo - ResolveAnnotFileAttachmentMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo - ResolveAnnotFileAttachmentMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo - ResolveAnnotFileAttachmentMethod "setColor" o = AnnotSetColorMethodInfo - ResolveAnnotFileAttachmentMethod "setContents" o = AnnotSetContentsMethodInfo - ResolveAnnotFileAttachmentMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAnnotFileAttachmentMethod "setFlags" o = AnnotSetFlagsMethodInfo - ResolveAnnotFileAttachmentMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo - ResolveAnnotFileAttachmentMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo - ResolveAnnotFileAttachmentMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo - ResolveAnnotFileAttachmentMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo - ResolveAnnotFileAttachmentMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo - ResolveAnnotFileAttachmentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAnnotFileAttachmentMethod "setRectangle" o = AnnotSetRectangleMethodInfo - ResolveAnnotFileAttachmentMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAnnotFileAttachmentMethod t AnnotFileAttachment, MethodInfo info AnnotFileAttachment p) => IsLabelProxy t (AnnotFileAttachment -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAnnotFileAttachmentMethod t AnnotFileAttachment, MethodInfo info AnnotFileAttachment p) => IsLabel t (AnnotFileAttachment -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AnnotFileAttachment = AnnotFileAttachmentAttributeList -type AnnotFileAttachmentAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList AnnotFileAttachment = AnnotFileAttachmentSignalList -type AnnotFileAttachmentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AnnotFileAttachment::get_attachment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFileAttachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Attachment") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_file_attachment_get_attachment" poppler_annot_file_attachment_get_attachment :: - Ptr AnnotFileAttachment -> -- _obj : TInterface "Poppler" "AnnotFileAttachment" - IO (Ptr Attachment) - - -annotFileAttachmentGetAttachment :: - (MonadIO m, AnnotFileAttachmentK a) => - a -- _obj - -> m Attachment -- result -annotFileAttachmentGetAttachment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_file_attachment_get_attachment _obj' - checkUnexpectedReturnNULL "poppler_annot_file_attachment_get_attachment" result - result' <- (wrapObject Attachment) result - touchManagedPtr _obj - return result' - -data AnnotFileAttachmentGetAttachmentMethodInfo -instance (signature ~ (m Attachment), MonadIO m, AnnotFileAttachmentK a) => MethodInfo AnnotFileAttachmentGetAttachmentMethodInfo a signature where - overloadedMethod _ = annotFileAttachmentGetAttachment - --- method AnnotFileAttachment::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFileAttachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_file_attachment_get_name" poppler_annot_file_attachment_get_name :: - Ptr AnnotFileAttachment -> -- _obj : TInterface "Poppler" "AnnotFileAttachment" - IO CString - - -annotFileAttachmentGetName :: - (MonadIO m, AnnotFileAttachmentK a) => - a -- _obj - -> m T.Text -- result -annotFileAttachmentGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_file_attachment_get_name _obj' - checkUnexpectedReturnNULL "poppler_annot_file_attachment_get_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data AnnotFileAttachmentGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AnnotFileAttachmentK a) => MethodInfo AnnotFileAttachmentGetNameMethodInfo a signature where - overloadedMethod _ = annotFileAttachmentGetName - - diff --git a/GI/Poppler/Objects/AnnotFileAttachment.hs-boot b/GI/Poppler/Objects/AnnotFileAttachment.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotFileAttachment.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Poppler.Objects.AnnotFileAttachment where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AnnotFileAttachment = AnnotFileAttachment (ForeignPtr AnnotFileAttachment) -instance GObject AnnotFileAttachment where -class GObject o => AnnotFileAttachmentK o -instance (GObject o, IsDescendantOf AnnotFileAttachment o) => AnnotFileAttachmentK o -data AnnotFileAttachmentGetAttachmentMethodInfo -data AnnotFileAttachmentGetNameMethodInfo diff --git a/GI/Poppler/Objects/AnnotFreeText.hs b/GI/Poppler/Objects/AnnotFreeText.hs deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotFreeText.hs +++ /dev/null @@ -1,190 +0,0 @@ - - -{- | -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.AnnotFreeText - ( - --- * Exported types - AnnotFreeText(..) , - AnnotFreeTextK , - toAnnotFreeText , - noAnnotFreeText , - - - -- * Methods --- ** annotFreeTextGetCalloutLine - AnnotFreeTextGetCalloutLineMethodInfo , - annotFreeTextGetCalloutLine , - - --- ** annotFreeTextGetQuadding - AnnotFreeTextGetQuaddingMethodInfo , - annotFreeTextGetQuadding , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 AnnotFreeText = AnnotFreeText (ForeignPtr AnnotFreeText) -foreign import ccall "poppler_annot_free_text_get_type" - c_poppler_annot_free_text_get_type :: IO GType - -type instance ParentTypes AnnotFreeText = AnnotFreeTextParentTypes -type AnnotFreeTextParentTypes = '[AnnotMarkup, Annot, GObject.Object] - -instance GObject AnnotFreeText where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_annot_free_text_get_type - - -class GObject o => AnnotFreeTextK o -instance (GObject o, IsDescendantOf AnnotFreeText o) => AnnotFreeTextK o - -toAnnotFreeText :: AnnotFreeTextK o => o -> IO AnnotFreeText -toAnnotFreeText = unsafeCastTo AnnotFreeText - -noAnnotFreeText :: Maybe AnnotFreeText -noAnnotFreeText = Nothing - -type family ResolveAnnotFreeTextMethod (t :: Symbol) (o :: *) :: * where - ResolveAnnotFreeTextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAnnotFreeTextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAnnotFreeTextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAnnotFreeTextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAnnotFreeTextMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo - ResolveAnnotFreeTextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAnnotFreeTextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAnnotFreeTextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAnnotFreeTextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAnnotFreeTextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAnnotFreeTextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAnnotFreeTextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAnnotFreeTextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAnnotFreeTextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAnnotFreeTextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAnnotFreeTextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAnnotFreeTextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAnnotFreeTextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAnnotFreeTextMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo - ResolveAnnotFreeTextMethod "getCalloutLine" o = AnnotFreeTextGetCalloutLineMethodInfo - ResolveAnnotFreeTextMethod "getColor" o = AnnotGetColorMethodInfo - ResolveAnnotFreeTextMethod "getContents" o = AnnotGetContentsMethodInfo - ResolveAnnotFreeTextMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAnnotFreeTextMethod "getDate" o = AnnotMarkupGetDateMethodInfo - ResolveAnnotFreeTextMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo - ResolveAnnotFreeTextMethod "getFlags" o = AnnotGetFlagsMethodInfo - ResolveAnnotFreeTextMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo - ResolveAnnotFreeTextMethod "getModified" o = AnnotGetModifiedMethodInfo - ResolveAnnotFreeTextMethod "getName" o = AnnotGetNameMethodInfo - ResolveAnnotFreeTextMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo - ResolveAnnotFreeTextMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo - ResolveAnnotFreeTextMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo - ResolveAnnotFreeTextMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo - ResolveAnnotFreeTextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAnnotFreeTextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAnnotFreeTextMethod "getQuadding" o = AnnotFreeTextGetQuaddingMethodInfo - ResolveAnnotFreeTextMethod "getRectangle" o = AnnotGetRectangleMethodInfo - ResolveAnnotFreeTextMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo - ResolveAnnotFreeTextMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo - ResolveAnnotFreeTextMethod "setColor" o = AnnotSetColorMethodInfo - ResolveAnnotFreeTextMethod "setContents" o = AnnotSetContentsMethodInfo - ResolveAnnotFreeTextMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAnnotFreeTextMethod "setFlags" o = AnnotSetFlagsMethodInfo - ResolveAnnotFreeTextMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo - ResolveAnnotFreeTextMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo - ResolveAnnotFreeTextMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo - ResolveAnnotFreeTextMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo - ResolveAnnotFreeTextMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo - ResolveAnnotFreeTextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAnnotFreeTextMethod "setRectangle" o = AnnotSetRectangleMethodInfo - ResolveAnnotFreeTextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAnnotFreeTextMethod t AnnotFreeText, MethodInfo info AnnotFreeText p) => IsLabelProxy t (AnnotFreeText -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAnnotFreeTextMethod t AnnotFreeText, MethodInfo info AnnotFreeText p) => IsLabel t (AnnotFreeText -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AnnotFreeText = AnnotFreeTextAttributeList -type AnnotFreeTextAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList AnnotFreeText = AnnotFreeTextSignalList -type AnnotFreeTextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AnnotFreeText::get_callout_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFreeText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotCalloutLine") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_free_text_get_callout_line" poppler_annot_free_text_get_callout_line :: - Ptr AnnotFreeText -> -- _obj : TInterface "Poppler" "AnnotFreeText" - IO (Ptr AnnotCalloutLine) - - -annotFreeTextGetCalloutLine :: - (MonadIO m, AnnotFreeTextK a) => - a -- _obj - -> m AnnotCalloutLine -- result -annotFreeTextGetCalloutLine _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_free_text_get_callout_line _obj' - checkUnexpectedReturnNULL "poppler_annot_free_text_get_callout_line" result - result' <- (wrapBoxed AnnotCalloutLine) result - touchManagedPtr _obj - return result' - -data AnnotFreeTextGetCalloutLineMethodInfo -instance (signature ~ (m AnnotCalloutLine), MonadIO m, AnnotFreeTextK a) => MethodInfo AnnotFreeTextGetCalloutLineMethodInfo a signature where - overloadedMethod _ = annotFreeTextGetCalloutLine - --- method AnnotFreeText::get_quadding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotFreeText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotFreeTextQuadding") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_free_text_get_quadding" poppler_annot_free_text_get_quadding :: - Ptr AnnotFreeText -> -- _obj : TInterface "Poppler" "AnnotFreeText" - IO CUInt - - -annotFreeTextGetQuadding :: - (MonadIO m, AnnotFreeTextK a) => - a -- _obj - -> m AnnotFreeTextQuadding -- result -annotFreeTextGetQuadding _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_free_text_get_quadding _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data AnnotFreeTextGetQuaddingMethodInfo -instance (signature ~ (m AnnotFreeTextQuadding), MonadIO m, AnnotFreeTextK a) => MethodInfo AnnotFreeTextGetQuaddingMethodInfo a signature where - overloadedMethod _ = annotFreeTextGetQuadding - - diff --git a/GI/Poppler/Objects/AnnotFreeText.hs-boot b/GI/Poppler/Objects/AnnotFreeText.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotFreeText.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Poppler.Objects.AnnotFreeText where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AnnotFreeText = AnnotFreeText (ForeignPtr AnnotFreeText) -instance GObject AnnotFreeText where -class GObject o => AnnotFreeTextK o -instance (GObject o, IsDescendantOf AnnotFreeText o) => AnnotFreeTextK o -data AnnotFreeTextGetCalloutLineMethodInfo -data AnnotFreeTextGetQuaddingMethodInfo diff --git a/GI/Poppler/Objects/AnnotLine.hs b/GI/Poppler/Objects/AnnotLine.hs deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotLine.hs +++ /dev/null @@ -1,203 +0,0 @@ - - -{- | -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.AnnotLine - ( - --- * Exported types - AnnotLine(..) , - AnnotLineK , - toAnnotLine , - noAnnotLine , - - - -- * Methods --- ** annotLineNew - annotLineNew , - - --- ** annotLineSetVertices - AnnotLineSetVerticesMethodInfo , - annotLineSetVertices , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 AnnotLine = AnnotLine (ForeignPtr AnnotLine) -foreign import ccall "poppler_annot_line_get_type" - c_poppler_annot_line_get_type :: IO GType - -type instance ParentTypes AnnotLine = AnnotLineParentTypes -type AnnotLineParentTypes = '[AnnotMarkup, Annot, GObject.Object] - -instance GObject AnnotLine where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_annot_line_get_type - - -class GObject o => AnnotLineK o -instance (GObject o, IsDescendantOf AnnotLine o) => AnnotLineK o - -toAnnotLine :: AnnotLineK o => o -> IO AnnotLine -toAnnotLine = unsafeCastTo AnnotLine - -noAnnotLine :: Maybe AnnotLine -noAnnotLine = Nothing - -type family ResolveAnnotLineMethod (t :: Symbol) (o :: *) :: * where - ResolveAnnotLineMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAnnotLineMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAnnotLineMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAnnotLineMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAnnotLineMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo - ResolveAnnotLineMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAnnotLineMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAnnotLineMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAnnotLineMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAnnotLineMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAnnotLineMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAnnotLineMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAnnotLineMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAnnotLineMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAnnotLineMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAnnotLineMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAnnotLineMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAnnotLineMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAnnotLineMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo - ResolveAnnotLineMethod "getColor" o = AnnotGetColorMethodInfo - ResolveAnnotLineMethod "getContents" o = AnnotGetContentsMethodInfo - ResolveAnnotLineMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAnnotLineMethod "getDate" o = AnnotMarkupGetDateMethodInfo - ResolveAnnotLineMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo - ResolveAnnotLineMethod "getFlags" o = AnnotGetFlagsMethodInfo - ResolveAnnotLineMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo - ResolveAnnotLineMethod "getModified" o = AnnotGetModifiedMethodInfo - ResolveAnnotLineMethod "getName" o = AnnotGetNameMethodInfo - ResolveAnnotLineMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo - ResolveAnnotLineMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo - ResolveAnnotLineMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo - ResolveAnnotLineMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo - ResolveAnnotLineMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAnnotLineMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAnnotLineMethod "getRectangle" o = AnnotGetRectangleMethodInfo - ResolveAnnotLineMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo - ResolveAnnotLineMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo - ResolveAnnotLineMethod "setColor" o = AnnotSetColorMethodInfo - ResolveAnnotLineMethod "setContents" o = AnnotSetContentsMethodInfo - ResolveAnnotLineMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAnnotLineMethod "setFlags" o = AnnotSetFlagsMethodInfo - ResolveAnnotLineMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo - ResolveAnnotLineMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo - ResolveAnnotLineMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo - ResolveAnnotLineMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo - ResolveAnnotLineMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo - ResolveAnnotLineMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAnnotLineMethod "setRectangle" o = AnnotSetRectangleMethodInfo - ResolveAnnotLineMethod "setVertices" o = AnnotLineSetVerticesMethodInfo - ResolveAnnotLineMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAnnotLineMethod t AnnotLine, MethodInfo info AnnotLine p) => IsLabelProxy t (AnnotLine -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAnnotLineMethod t AnnotLine, MethodInfo info AnnotLine p) => IsLabel t (AnnotLine -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AnnotLine = AnnotLineAttributeList -type AnnotLineAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList AnnotLine = AnnotLineSignalList -type AnnotLineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AnnotLine::new --- method type : Constructor --- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotLine") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_line_new" poppler_annot_line_new :: - Ptr Document -> -- doc : TInterface "Poppler" "Document" - Ptr Rectangle -> -- rect : TInterface "Poppler" "Rectangle" - Ptr Point -> -- start : TInterface "Poppler" "Point" - Ptr Point -> -- end : TInterface "Poppler" "Point" - IO (Ptr AnnotLine) - - -annotLineNew :: - (MonadIO m, DocumentK a) => - a -- doc - -> Rectangle -- rect - -> Point -- start - -> Point -- end - -> m AnnotLine -- result -annotLineNew doc rect start end = liftIO $ do - let doc' = unsafeManagedPtrCastPtr doc - let rect' = unsafeManagedPtrGetPtr rect - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - result <- poppler_annot_line_new doc' rect' start' end' - checkUnexpectedReturnNULL "poppler_annot_line_new" result - result' <- (wrapObject AnnotLine) result - touchManagedPtr doc - touchManagedPtr rect - touchManagedPtr start - touchManagedPtr end - return result' - --- method AnnotLine::set_vertices --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_line_set_vertices" poppler_annot_line_set_vertices :: - Ptr AnnotLine -> -- _obj : TInterface "Poppler" "AnnotLine" - Ptr Point -> -- start : TInterface "Poppler" "Point" - Ptr Point -> -- end : TInterface "Poppler" "Point" - IO () - - -annotLineSetVertices :: - (MonadIO m, AnnotLineK a) => - a -- _obj - -> Point -- start - -> Point -- end - -> m () -- result -annotLineSetVertices _obj start end = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let start' = unsafeManagedPtrGetPtr start - let end' = unsafeManagedPtrGetPtr end - poppler_annot_line_set_vertices _obj' start' end' - touchManagedPtr _obj - touchManagedPtr start - touchManagedPtr end - return () - -data AnnotLineSetVerticesMethodInfo -instance (signature ~ (Point -> Point -> m ()), MonadIO m, AnnotLineK a) => MethodInfo AnnotLineSetVerticesMethodInfo a signature where - overloadedMethod _ = annotLineSetVertices - - diff --git a/GI/Poppler/Objects/AnnotLine.hs-boot b/GI/Poppler/Objects/AnnotLine.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotLine.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Poppler.Objects.AnnotLine where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AnnotLine = AnnotLine (ForeignPtr AnnotLine) -instance GObject AnnotLine where -class GObject o => AnnotLineK o -instance (GObject o, IsDescendantOf AnnotLine o) => AnnotLineK o -data AnnotLineSetVerticesMethodInfo diff --git a/GI/Poppler/Objects/AnnotMarkup.hs b/GI/Poppler/Objects/AnnotMarkup.hs deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotMarkup.hs +++ /dev/null @@ -1,609 +0,0 @@ - - -{- | -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.AnnotMarkup - ( - --- * Exported types - AnnotMarkup(..) , - AnnotMarkupK , - toAnnotMarkup , - noAnnotMarkup , - - - -- * Methods --- ** annotMarkupGetDate - AnnotMarkupGetDateMethodInfo , - annotMarkupGetDate , - - --- ** annotMarkupGetExternalData - AnnotMarkupGetExternalDataMethodInfo , - annotMarkupGetExternalData , - - --- ** annotMarkupGetLabel - AnnotMarkupGetLabelMethodInfo , - annotMarkupGetLabel , - - --- ** annotMarkupGetOpacity - AnnotMarkupGetOpacityMethodInfo , - annotMarkupGetOpacity , - - --- ** annotMarkupGetPopupIsOpen - AnnotMarkupGetPopupIsOpenMethodInfo , - annotMarkupGetPopupIsOpen , - - --- ** annotMarkupGetPopupRectangle - AnnotMarkupGetPopupRectangleMethodInfo , - annotMarkupGetPopupRectangle , - - --- ** annotMarkupGetReplyTo - AnnotMarkupGetReplyToMethodInfo , - annotMarkupGetReplyTo , - - --- ** annotMarkupGetSubject - AnnotMarkupGetSubjectMethodInfo , - annotMarkupGetSubject , - - --- ** annotMarkupHasPopup - AnnotMarkupHasPopupMethodInfo , - annotMarkupHasPopup , - - --- ** annotMarkupSetLabel - AnnotMarkupSetLabelMethodInfo , - annotMarkupSetLabel , - - --- ** annotMarkupSetOpacity - AnnotMarkupSetOpacityMethodInfo , - annotMarkupSetOpacity , - - --- ** annotMarkupSetPopup - AnnotMarkupSetPopupMethodInfo , - annotMarkupSetPopup , - - --- ** annotMarkupSetPopupIsOpen - AnnotMarkupSetPopupIsOpenMethodInfo , - annotMarkupSetPopupIsOpen , - - --- ** annotMarkupSetPopupRectangle - AnnotMarkupSetPopupRectangleMethodInfo , - annotMarkupSetPopupRectangle , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GLib as GLib -import qualified GI.GObject as GObject - -newtype AnnotMarkup = AnnotMarkup (ForeignPtr AnnotMarkup) -foreign import ccall "poppler_annot_markup_get_type" - c_poppler_annot_markup_get_type :: IO GType - -type instance ParentTypes AnnotMarkup = AnnotMarkupParentTypes -type AnnotMarkupParentTypes = '[Annot, GObject.Object] - -instance GObject AnnotMarkup where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_annot_markup_get_type - - -class GObject o => AnnotMarkupK o -instance (GObject o, IsDescendantOf AnnotMarkup o) => AnnotMarkupK o - -toAnnotMarkup :: AnnotMarkupK o => o -> IO AnnotMarkup -toAnnotMarkup = unsafeCastTo AnnotMarkup - -noAnnotMarkup :: Maybe AnnotMarkup -noAnnotMarkup = Nothing - -type family ResolveAnnotMarkupMethod (t :: Symbol) (o :: *) :: * where - ResolveAnnotMarkupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAnnotMarkupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAnnotMarkupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAnnotMarkupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAnnotMarkupMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo - ResolveAnnotMarkupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAnnotMarkupMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAnnotMarkupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAnnotMarkupMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAnnotMarkupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAnnotMarkupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAnnotMarkupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAnnotMarkupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAnnotMarkupMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAnnotMarkupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAnnotMarkupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAnnotMarkupMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAnnotMarkupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAnnotMarkupMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo - ResolveAnnotMarkupMethod "getColor" o = AnnotGetColorMethodInfo - ResolveAnnotMarkupMethod "getContents" o = AnnotGetContentsMethodInfo - ResolveAnnotMarkupMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAnnotMarkupMethod "getDate" o = AnnotMarkupGetDateMethodInfo - ResolveAnnotMarkupMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo - ResolveAnnotMarkupMethod "getFlags" o = AnnotGetFlagsMethodInfo - ResolveAnnotMarkupMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo - ResolveAnnotMarkupMethod "getModified" o = AnnotGetModifiedMethodInfo - ResolveAnnotMarkupMethod "getName" o = AnnotGetNameMethodInfo - ResolveAnnotMarkupMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo - ResolveAnnotMarkupMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo - ResolveAnnotMarkupMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo - ResolveAnnotMarkupMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo - ResolveAnnotMarkupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAnnotMarkupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAnnotMarkupMethod "getRectangle" o = AnnotGetRectangleMethodInfo - ResolveAnnotMarkupMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo - ResolveAnnotMarkupMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo - ResolveAnnotMarkupMethod "setColor" o = AnnotSetColorMethodInfo - ResolveAnnotMarkupMethod "setContents" o = AnnotSetContentsMethodInfo - ResolveAnnotMarkupMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAnnotMarkupMethod "setFlags" o = AnnotSetFlagsMethodInfo - ResolveAnnotMarkupMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo - ResolveAnnotMarkupMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo - ResolveAnnotMarkupMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo - ResolveAnnotMarkupMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo - ResolveAnnotMarkupMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo - ResolveAnnotMarkupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAnnotMarkupMethod "setRectangle" o = AnnotSetRectangleMethodInfo - ResolveAnnotMarkupMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAnnotMarkupMethod t AnnotMarkup, MethodInfo info AnnotMarkup p) => IsLabelProxy t (AnnotMarkup -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAnnotMarkupMethod t AnnotMarkup, MethodInfo info AnnotMarkup p) => IsLabel t (AnnotMarkup -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AnnotMarkup = AnnotMarkupAttributeList -type AnnotMarkupAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList AnnotMarkup = AnnotMarkupSignalList -type AnnotMarkupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AnnotMarkup::get_date --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Date") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_markup_get_date" poppler_annot_markup_get_date :: - Ptr AnnotMarkup -> -- _obj : TInterface "Poppler" "AnnotMarkup" - IO (Ptr GLib.Date) - - -annotMarkupGetDate :: - (MonadIO m, AnnotMarkupK a) => - a -- _obj - -> m GLib.Date -- result -annotMarkupGetDate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_markup_get_date _obj' - checkUnexpectedReturnNULL "poppler_annot_markup_get_date" result - result' <- (wrapBoxed GLib.Date) result - touchManagedPtr _obj - return result' - -data AnnotMarkupGetDateMethodInfo -instance (signature ~ (m GLib.Date), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetDateMethodInfo a signature where - overloadedMethod _ = annotMarkupGetDate - --- method AnnotMarkup::get_external_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotExternalDataType") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_markup_get_external_data" poppler_annot_markup_get_external_data :: - Ptr AnnotMarkup -> -- _obj : TInterface "Poppler" "AnnotMarkup" - IO CUInt - - -annotMarkupGetExternalData :: - (MonadIO m, AnnotMarkupK a) => - a -- _obj - -> m AnnotExternalDataType -- result -annotMarkupGetExternalData _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_markup_get_external_data _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data AnnotMarkupGetExternalDataMethodInfo -instance (signature ~ (m AnnotExternalDataType), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetExternalDataMethodInfo a signature where - overloadedMethod _ = annotMarkupGetExternalData - --- method AnnotMarkup::get_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_markup_get_label" poppler_annot_markup_get_label :: - Ptr AnnotMarkup -> -- _obj : TInterface "Poppler" "AnnotMarkup" - IO CString - - -annotMarkupGetLabel :: - (MonadIO m, AnnotMarkupK a) => - a -- _obj - -> m T.Text -- result -annotMarkupGetLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_markup_get_label _obj' - checkUnexpectedReturnNULL "poppler_annot_markup_get_label" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data AnnotMarkupGetLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetLabelMethodInfo a signature where - overloadedMethod _ = annotMarkupGetLabel - --- method AnnotMarkup::get_opacity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_markup_get_opacity" poppler_annot_markup_get_opacity :: - Ptr AnnotMarkup -> -- _obj : TInterface "Poppler" "AnnotMarkup" - IO CDouble - - -annotMarkupGetOpacity :: - (MonadIO m, AnnotMarkupK a) => - a -- _obj - -> m Double -- result -annotMarkupGetOpacity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_markup_get_opacity _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data AnnotMarkupGetOpacityMethodInfo -instance (signature ~ (m Double), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetOpacityMethodInfo a signature where - overloadedMethod _ = annotMarkupGetOpacity - --- method AnnotMarkup::get_popup_is_open --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_markup_get_popup_is_open" poppler_annot_markup_get_popup_is_open :: - Ptr AnnotMarkup -> -- _obj : TInterface "Poppler" "AnnotMarkup" - IO CInt - - -annotMarkupGetPopupIsOpen :: - (MonadIO m, AnnotMarkupK a) => - a -- _obj - -> m Bool -- result -annotMarkupGetPopupIsOpen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_markup_get_popup_is_open _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AnnotMarkupGetPopupIsOpenMethodInfo -instance (signature ~ (m Bool), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetPopupIsOpenMethodInfo a signature where - overloadedMethod _ = annotMarkupGetPopupIsOpen - --- method AnnotMarkup::get_popup_rectangle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_markup_get_popup_rectangle" poppler_annot_markup_get_popup_rectangle :: - Ptr AnnotMarkup -> -- _obj : TInterface "Poppler" "AnnotMarkup" - Ptr Rectangle -> -- poppler_rect : TInterface "Poppler" "Rectangle" - IO CInt - - -annotMarkupGetPopupRectangle :: - (MonadIO m, AnnotMarkupK a) => - a -- _obj - -> m (Bool,Rectangle) -- result -annotMarkupGetPopupRectangle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - popplerRect <- callocBoxedBytes 32 :: IO (Ptr Rectangle) - result <- poppler_annot_markup_get_popup_rectangle _obj' popplerRect - let result' = (/= 0) result - popplerRect' <- (wrapBoxed Rectangle) popplerRect - touchManagedPtr _obj - return (result', popplerRect') - -data AnnotMarkupGetPopupRectangleMethodInfo -instance (signature ~ (m (Bool,Rectangle)), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetPopupRectangleMethodInfo a signature where - overloadedMethod _ = annotMarkupGetPopupRectangle - --- method AnnotMarkup::get_reply_to --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotMarkupReplyType") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_markup_get_reply_to" poppler_annot_markup_get_reply_to :: - Ptr AnnotMarkup -> -- _obj : TInterface "Poppler" "AnnotMarkup" - IO CUInt - - -annotMarkupGetReplyTo :: - (MonadIO m, AnnotMarkupK a) => - a -- _obj - -> m AnnotMarkupReplyType -- result -annotMarkupGetReplyTo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_markup_get_reply_to _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data AnnotMarkupGetReplyToMethodInfo -instance (signature ~ (m AnnotMarkupReplyType), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetReplyToMethodInfo a signature where - overloadedMethod _ = annotMarkupGetReplyTo - --- method AnnotMarkup::get_subject --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_markup_get_subject" poppler_annot_markup_get_subject :: - Ptr AnnotMarkup -> -- _obj : TInterface "Poppler" "AnnotMarkup" - IO CString - - -annotMarkupGetSubject :: - (MonadIO m, AnnotMarkupK a) => - a -- _obj - -> m T.Text -- result -annotMarkupGetSubject _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_markup_get_subject _obj' - checkUnexpectedReturnNULL "poppler_annot_markup_get_subject" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data AnnotMarkupGetSubjectMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupGetSubjectMethodInfo a signature where - overloadedMethod _ = annotMarkupGetSubject - --- method AnnotMarkup::has_popup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_markup_has_popup" poppler_annot_markup_has_popup :: - Ptr AnnotMarkup -> -- _obj : TInterface "Poppler" "AnnotMarkup" - IO CInt - - -annotMarkupHasPopup :: - (MonadIO m, AnnotMarkupK a) => - a -- _obj - -> m Bool -- result -annotMarkupHasPopup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_markup_has_popup _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AnnotMarkupHasPopupMethodInfo -instance (signature ~ (m Bool), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupHasPopupMethodInfo a signature where - overloadedMethod _ = annotMarkupHasPopup - --- method AnnotMarkup::set_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_markup_set_label" poppler_annot_markup_set_label :: - Ptr AnnotMarkup -> -- _obj : TInterface "Poppler" "AnnotMarkup" - CString -> -- label : TBasicType TUTF8 - IO () - - -annotMarkupSetLabel :: - (MonadIO m, AnnotMarkupK a) => - a -- _obj - -> Maybe (T.Text) -- label - -> m () -- result -annotMarkupSetLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - poppler_annot_markup_set_label _obj' maybeLabel - touchManagedPtr _obj - freeMem maybeLabel - return () - -data AnnotMarkupSetLabelMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupSetLabelMethodInfo a signature where - overloadedMethod _ = annotMarkupSetLabel - --- method AnnotMarkup::set_opacity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_markup_set_opacity" poppler_annot_markup_set_opacity :: - Ptr AnnotMarkup -> -- _obj : TInterface "Poppler" "AnnotMarkup" - CDouble -> -- opacity : TBasicType TDouble - IO () - - -annotMarkupSetOpacity :: - (MonadIO m, AnnotMarkupK a) => - a -- _obj - -> Double -- opacity - -> m () -- result -annotMarkupSetOpacity _obj opacity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let opacity' = realToFrac opacity - poppler_annot_markup_set_opacity _obj' opacity' - touchManagedPtr _obj - return () - -data AnnotMarkupSetOpacityMethodInfo -instance (signature ~ (Double -> m ()), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupSetOpacityMethodInfo a signature where - overloadedMethod _ = annotMarkupSetOpacity - --- method AnnotMarkup::set_popup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "popup_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_markup_set_popup" poppler_annot_markup_set_popup :: - Ptr AnnotMarkup -> -- _obj : TInterface "Poppler" "AnnotMarkup" - Ptr Rectangle -> -- popup_rect : TInterface "Poppler" "Rectangle" - IO () - - -annotMarkupSetPopup :: - (MonadIO m, AnnotMarkupK a) => - a -- _obj - -> Rectangle -- popupRect - -> m () -- result -annotMarkupSetPopup _obj popupRect = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let popupRect' = unsafeManagedPtrGetPtr popupRect - poppler_annot_markup_set_popup _obj' popupRect' - touchManagedPtr _obj - touchManagedPtr popupRect - return () - -data AnnotMarkupSetPopupMethodInfo -instance (signature ~ (Rectangle -> m ()), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupSetPopupMethodInfo a signature where - overloadedMethod _ = annotMarkupSetPopup - --- method AnnotMarkup::set_popup_is_open --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_open", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_markup_set_popup_is_open" poppler_annot_markup_set_popup_is_open :: - Ptr AnnotMarkup -> -- _obj : TInterface "Poppler" "AnnotMarkup" - CInt -> -- is_open : TBasicType TBoolean - IO () - - -annotMarkupSetPopupIsOpen :: - (MonadIO m, AnnotMarkupK a) => - a -- _obj - -> Bool -- isOpen - -> m () -- result -annotMarkupSetPopupIsOpen _obj isOpen = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let isOpen' = (fromIntegral . fromEnum) isOpen - poppler_annot_markup_set_popup_is_open _obj' isOpen' - touchManagedPtr _obj - return () - -data AnnotMarkupSetPopupIsOpenMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupSetPopupIsOpenMethodInfo a signature where - overloadedMethod _ = annotMarkupSetPopupIsOpen - --- method AnnotMarkup::set_popup_rectangle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_markup_set_popup_rectangle" poppler_annot_markup_set_popup_rectangle :: - Ptr AnnotMarkup -> -- _obj : TInterface "Poppler" "AnnotMarkup" - Ptr Rectangle -> -- poppler_rect : TInterface "Poppler" "Rectangle" - IO () - - -annotMarkupSetPopupRectangle :: - (MonadIO m, AnnotMarkupK a) => - a -- _obj - -> Rectangle -- popplerRect - -> m () -- result -annotMarkupSetPopupRectangle _obj popplerRect = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let popplerRect' = unsafeManagedPtrGetPtr popplerRect - poppler_annot_markup_set_popup_rectangle _obj' popplerRect' - touchManagedPtr _obj - touchManagedPtr popplerRect - return () - -data AnnotMarkupSetPopupRectangleMethodInfo -instance (signature ~ (Rectangle -> m ()), MonadIO m, AnnotMarkupK a) => MethodInfo AnnotMarkupSetPopupRectangleMethodInfo a signature where - overloadedMethod _ = annotMarkupSetPopupRectangle - - diff --git a/GI/Poppler/Objects/AnnotMarkup.hs-boot b/GI/Poppler/Objects/AnnotMarkup.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotMarkup.hs-boot +++ /dev/null @@ -1,27 +0,0 @@ -module GI.Poppler.Objects.AnnotMarkup where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AnnotMarkup = AnnotMarkup (ForeignPtr AnnotMarkup) -instance GObject AnnotMarkup where -class GObject o => AnnotMarkupK o -instance (GObject o, IsDescendantOf AnnotMarkup o) => AnnotMarkupK o -data AnnotMarkupGetDateMethodInfo -data AnnotMarkupGetExternalDataMethodInfo -data AnnotMarkupGetLabelMethodInfo -data AnnotMarkupGetOpacityMethodInfo -data AnnotMarkupGetPopupIsOpenMethodInfo -data AnnotMarkupGetPopupRectangleMethodInfo -data AnnotMarkupGetReplyToMethodInfo -data AnnotMarkupGetSubjectMethodInfo -data AnnotMarkupHasPopupMethodInfo -data AnnotMarkupSetLabelMethodInfo -data AnnotMarkupSetOpacityMethodInfo -data AnnotMarkupSetPopupMethodInfo -data AnnotMarkupSetPopupIsOpenMethodInfo -data AnnotMarkupSetPopupRectangleMethodInfo diff --git a/GI/Poppler/Objects/AnnotMovie.hs b/GI/Poppler/Objects/AnnotMovie.hs deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotMovie.hs +++ /dev/null @@ -1,178 +0,0 @@ - - -{- | -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.AnnotMovie - ( - --- * Exported types - AnnotMovie(..) , - AnnotMovieK , - toAnnotMovie , - noAnnotMovie , - - - -- * Methods --- ** annotMovieGetMovie - AnnotMovieGetMovieMethodInfo , - annotMovieGetMovie , - - --- ** annotMovieGetTitle - AnnotMovieGetTitleMethodInfo , - annotMovieGetTitle , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 AnnotMovie = AnnotMovie (ForeignPtr AnnotMovie) -foreign import ccall "poppler_annot_movie_get_type" - c_poppler_annot_movie_get_type :: IO GType - -type instance ParentTypes AnnotMovie = AnnotMovieParentTypes -type AnnotMovieParentTypes = '[Annot, GObject.Object] - -instance GObject AnnotMovie where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_annot_movie_get_type - - -class GObject o => AnnotMovieK o -instance (GObject o, IsDescendantOf AnnotMovie o) => AnnotMovieK o - -toAnnotMovie :: AnnotMovieK o => o -> IO AnnotMovie -toAnnotMovie = unsafeCastTo AnnotMovie - -noAnnotMovie :: Maybe AnnotMovie -noAnnotMovie = Nothing - -type family ResolveAnnotMovieMethod (t :: Symbol) (o :: *) :: * where - ResolveAnnotMovieMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAnnotMovieMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAnnotMovieMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAnnotMovieMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAnnotMovieMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAnnotMovieMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAnnotMovieMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAnnotMovieMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAnnotMovieMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAnnotMovieMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAnnotMovieMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAnnotMovieMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAnnotMovieMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAnnotMovieMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAnnotMovieMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAnnotMovieMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAnnotMovieMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAnnotMovieMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo - ResolveAnnotMovieMethod "getColor" o = AnnotGetColorMethodInfo - ResolveAnnotMovieMethod "getContents" o = AnnotGetContentsMethodInfo - ResolveAnnotMovieMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAnnotMovieMethod "getFlags" o = AnnotGetFlagsMethodInfo - ResolveAnnotMovieMethod "getModified" o = AnnotGetModifiedMethodInfo - ResolveAnnotMovieMethod "getMovie" o = AnnotMovieGetMovieMethodInfo - ResolveAnnotMovieMethod "getName" o = AnnotGetNameMethodInfo - ResolveAnnotMovieMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo - ResolveAnnotMovieMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAnnotMovieMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAnnotMovieMethod "getRectangle" o = AnnotGetRectangleMethodInfo - ResolveAnnotMovieMethod "getTitle" o = AnnotMovieGetTitleMethodInfo - ResolveAnnotMovieMethod "setColor" o = AnnotSetColorMethodInfo - ResolveAnnotMovieMethod "setContents" o = AnnotSetContentsMethodInfo - ResolveAnnotMovieMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAnnotMovieMethod "setFlags" o = AnnotSetFlagsMethodInfo - ResolveAnnotMovieMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAnnotMovieMethod "setRectangle" o = AnnotSetRectangleMethodInfo - ResolveAnnotMovieMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAnnotMovieMethod t AnnotMovie, MethodInfo info AnnotMovie p) => IsLabelProxy t (AnnotMovie -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAnnotMovieMethod t AnnotMovie, MethodInfo info AnnotMovie p) => IsLabel t (AnnotMovie -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AnnotMovie = AnnotMovieAttributeList -type AnnotMovieAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList AnnotMovie = AnnotMovieSignalList -type AnnotMovieSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AnnotMovie::get_movie --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMovie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Movie") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_movie_get_movie" poppler_annot_movie_get_movie :: - Ptr AnnotMovie -> -- _obj : TInterface "Poppler" "AnnotMovie" - IO (Ptr Movie) - - -annotMovieGetMovie :: - (MonadIO m, AnnotMovieK a) => - a -- _obj - -> m Movie -- result -annotMovieGetMovie _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_movie_get_movie _obj' - checkUnexpectedReturnNULL "poppler_annot_movie_get_movie" result - result' <- (newObject Movie) result - touchManagedPtr _obj - return result' - -data AnnotMovieGetMovieMethodInfo -instance (signature ~ (m Movie), MonadIO m, AnnotMovieK a) => MethodInfo AnnotMovieGetMovieMethodInfo a signature where - overloadedMethod _ = annotMovieGetMovie - --- method AnnotMovie::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMovie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_movie_get_title" poppler_annot_movie_get_title :: - Ptr AnnotMovie -> -- _obj : TInterface "Poppler" "AnnotMovie" - IO CString - - -annotMovieGetTitle :: - (MonadIO m, AnnotMovieK a) => - a -- _obj - -> m T.Text -- result -annotMovieGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_movie_get_title _obj' - checkUnexpectedReturnNULL "poppler_annot_movie_get_title" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data AnnotMovieGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AnnotMovieK a) => MethodInfo AnnotMovieGetTitleMethodInfo a signature where - overloadedMethod _ = annotMovieGetTitle - - diff --git a/GI/Poppler/Objects/AnnotMovie.hs-boot b/GI/Poppler/Objects/AnnotMovie.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotMovie.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Poppler.Objects.AnnotMovie where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AnnotMovie = AnnotMovie (ForeignPtr AnnotMovie) -instance GObject AnnotMovie where -class GObject o => AnnotMovieK o -instance (GObject o, IsDescendantOf AnnotMovie o) => AnnotMovieK o -data AnnotMovieGetMovieMethodInfo -data AnnotMovieGetTitleMethodInfo diff --git a/GI/Poppler/Objects/AnnotScreen.hs b/GI/Poppler/Objects/AnnotScreen.hs deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotScreen.hs +++ /dev/null @@ -1,142 +0,0 @@ - - -{- | -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.AnnotScreen - ( - --- * Exported types - AnnotScreen(..) , - AnnotScreenK , - toAnnotScreen , - noAnnotScreen , - - - -- * Methods --- ** annotScreenGetAction - AnnotScreenGetActionMethodInfo , - annotScreenGetAction , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 AnnotScreen = AnnotScreen (ForeignPtr AnnotScreen) -foreign import ccall "poppler_annot_screen_get_type" - c_poppler_annot_screen_get_type :: IO GType - -type instance ParentTypes AnnotScreen = AnnotScreenParentTypes -type AnnotScreenParentTypes = '[Annot, GObject.Object] - -instance GObject AnnotScreen where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_annot_screen_get_type - - -class GObject o => AnnotScreenK o -instance (GObject o, IsDescendantOf AnnotScreen o) => AnnotScreenK o - -toAnnotScreen :: AnnotScreenK o => o -> IO AnnotScreen -toAnnotScreen = unsafeCastTo AnnotScreen - -noAnnotScreen :: Maybe AnnotScreen -noAnnotScreen = Nothing - -type family ResolveAnnotScreenMethod (t :: Symbol) (o :: *) :: * where - ResolveAnnotScreenMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAnnotScreenMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAnnotScreenMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAnnotScreenMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAnnotScreenMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAnnotScreenMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAnnotScreenMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAnnotScreenMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAnnotScreenMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAnnotScreenMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAnnotScreenMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAnnotScreenMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAnnotScreenMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAnnotScreenMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAnnotScreenMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAnnotScreenMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAnnotScreenMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAnnotScreenMethod "getAction" o = AnnotScreenGetActionMethodInfo - ResolveAnnotScreenMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo - ResolveAnnotScreenMethod "getColor" o = AnnotGetColorMethodInfo - ResolveAnnotScreenMethod "getContents" o = AnnotGetContentsMethodInfo - ResolveAnnotScreenMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAnnotScreenMethod "getFlags" o = AnnotGetFlagsMethodInfo - ResolveAnnotScreenMethod "getModified" o = AnnotGetModifiedMethodInfo - ResolveAnnotScreenMethod "getName" o = AnnotGetNameMethodInfo - ResolveAnnotScreenMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo - ResolveAnnotScreenMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAnnotScreenMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAnnotScreenMethod "getRectangle" o = AnnotGetRectangleMethodInfo - ResolveAnnotScreenMethod "setColor" o = AnnotSetColorMethodInfo - ResolveAnnotScreenMethod "setContents" o = AnnotSetContentsMethodInfo - ResolveAnnotScreenMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAnnotScreenMethod "setFlags" o = AnnotSetFlagsMethodInfo - ResolveAnnotScreenMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAnnotScreenMethod "setRectangle" o = AnnotSetRectangleMethodInfo - ResolveAnnotScreenMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAnnotScreenMethod t AnnotScreen, MethodInfo info AnnotScreen p) => IsLabelProxy t (AnnotScreen -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAnnotScreenMethod t AnnotScreen, MethodInfo info AnnotScreen p) => IsLabel t (AnnotScreen -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AnnotScreen = AnnotScreenAttributeList -type AnnotScreenAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList AnnotScreen = AnnotScreenSignalList -type AnnotScreenSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AnnotScreen::get_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotScreen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Action") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_screen_get_action" poppler_annot_screen_get_action :: - Ptr AnnotScreen -> -- _obj : TInterface "Poppler" "AnnotScreen" - IO (Ptr Action) - - -annotScreenGetAction :: - (MonadIO m, AnnotScreenK a) => - a -- _obj - -> m Action -- result -annotScreenGetAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_screen_get_action _obj' - checkUnexpectedReturnNULL "poppler_annot_screen_get_action" result - result' <- (newBoxed Action) result - touchManagedPtr _obj - return result' - -data AnnotScreenGetActionMethodInfo -instance (signature ~ (m Action), MonadIO m, AnnotScreenK a) => MethodInfo AnnotScreenGetActionMethodInfo a signature where - overloadedMethod _ = annotScreenGetAction - - diff --git a/GI/Poppler/Objects/AnnotScreen.hs-boot b/GI/Poppler/Objects/AnnotScreen.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotScreen.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Poppler.Objects.AnnotScreen where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AnnotScreen = AnnotScreen (ForeignPtr AnnotScreen) -instance GObject AnnotScreen where -class GObject o => AnnotScreenK o -instance (GObject o, IsDescendantOf AnnotScreen o) => AnnotScreenK o -data AnnotScreenGetActionMethodInfo diff --git a/GI/Poppler/Objects/AnnotSquare.hs b/GI/Poppler/Objects/AnnotSquare.hs deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotSquare.hs +++ /dev/null @@ -1,230 +0,0 @@ - - -{- | -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.AnnotSquare - ( - --- * Exported types - AnnotSquare(..) , - AnnotSquareK , - toAnnotSquare , - noAnnotSquare , - - - -- * Methods --- ** annotSquareGetInteriorColor - AnnotSquareGetInteriorColorMethodInfo , - annotSquareGetInteriorColor , - - --- ** annotSquareNew - annotSquareNew , - - --- ** annotSquareSetInteriorColor - AnnotSquareSetInteriorColorMethodInfo , - annotSquareSetInteriorColor , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 AnnotSquare = AnnotSquare (ForeignPtr AnnotSquare) -foreign import ccall "poppler_annot_square_get_type" - c_poppler_annot_square_get_type :: IO GType - -type instance ParentTypes AnnotSquare = AnnotSquareParentTypes -type AnnotSquareParentTypes = '[AnnotMarkup, Annot, GObject.Object] - -instance GObject AnnotSquare where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_annot_square_get_type - - -class GObject o => AnnotSquareK o -instance (GObject o, IsDescendantOf AnnotSquare o) => AnnotSquareK o - -toAnnotSquare :: AnnotSquareK o => o -> IO AnnotSquare -toAnnotSquare = unsafeCastTo AnnotSquare - -noAnnotSquare :: Maybe AnnotSquare -noAnnotSquare = Nothing - -type family ResolveAnnotSquareMethod (t :: Symbol) (o :: *) :: * where - ResolveAnnotSquareMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAnnotSquareMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAnnotSquareMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAnnotSquareMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAnnotSquareMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo - ResolveAnnotSquareMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAnnotSquareMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAnnotSquareMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAnnotSquareMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAnnotSquareMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAnnotSquareMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAnnotSquareMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAnnotSquareMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAnnotSquareMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAnnotSquareMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAnnotSquareMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAnnotSquareMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAnnotSquareMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAnnotSquareMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo - ResolveAnnotSquareMethod "getColor" o = AnnotGetColorMethodInfo - ResolveAnnotSquareMethod "getContents" o = AnnotGetContentsMethodInfo - ResolveAnnotSquareMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAnnotSquareMethod "getDate" o = AnnotMarkupGetDateMethodInfo - ResolveAnnotSquareMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo - ResolveAnnotSquareMethod "getFlags" o = AnnotGetFlagsMethodInfo - ResolveAnnotSquareMethod "getInteriorColor" o = AnnotSquareGetInteriorColorMethodInfo - ResolveAnnotSquareMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo - ResolveAnnotSquareMethod "getModified" o = AnnotGetModifiedMethodInfo - ResolveAnnotSquareMethod "getName" o = AnnotGetNameMethodInfo - ResolveAnnotSquareMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo - ResolveAnnotSquareMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo - ResolveAnnotSquareMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo - ResolveAnnotSquareMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo - ResolveAnnotSquareMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAnnotSquareMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAnnotSquareMethod "getRectangle" o = AnnotGetRectangleMethodInfo - ResolveAnnotSquareMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo - ResolveAnnotSquareMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo - ResolveAnnotSquareMethod "setColor" o = AnnotSetColorMethodInfo - ResolveAnnotSquareMethod "setContents" o = AnnotSetContentsMethodInfo - ResolveAnnotSquareMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAnnotSquareMethod "setFlags" o = AnnotSetFlagsMethodInfo - ResolveAnnotSquareMethod "setInteriorColor" o = AnnotSquareSetInteriorColorMethodInfo - ResolveAnnotSquareMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo - ResolveAnnotSquareMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo - ResolveAnnotSquareMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo - ResolveAnnotSquareMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo - ResolveAnnotSquareMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo - ResolveAnnotSquareMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAnnotSquareMethod "setRectangle" o = AnnotSetRectangleMethodInfo - ResolveAnnotSquareMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAnnotSquareMethod t AnnotSquare, MethodInfo info AnnotSquare p) => IsLabelProxy t (AnnotSquare -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAnnotSquareMethod t AnnotSquare, MethodInfo info AnnotSquare p) => IsLabel t (AnnotSquare -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AnnotSquare = AnnotSquareAttributeList -type AnnotSquareAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList AnnotSquare = AnnotSquareSignalList -type AnnotSquareSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AnnotSquare::new --- method type : Constructor --- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotSquare") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_square_new" poppler_annot_square_new :: - Ptr Document -> -- doc : TInterface "Poppler" "Document" - Ptr Rectangle -> -- rect : TInterface "Poppler" "Rectangle" - IO (Ptr AnnotSquare) - - -annotSquareNew :: - (MonadIO m, DocumentK a) => - a -- doc - -> Rectangle -- rect - -> m AnnotSquare -- result -annotSquareNew doc rect = liftIO $ do - let doc' = unsafeManagedPtrCastPtr doc - let rect' = unsafeManagedPtrGetPtr rect - result <- poppler_annot_square_new doc' rect' - checkUnexpectedReturnNULL "poppler_annot_square_new" result - result' <- (wrapObject AnnotSquare) result - touchManagedPtr doc - touchManagedPtr rect - return result' - --- method AnnotSquare::get_interior_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotSquare", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Color") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_square_get_interior_color" poppler_annot_square_get_interior_color :: - Ptr AnnotSquare -> -- _obj : TInterface "Poppler" "AnnotSquare" - IO (Ptr Color) - - -annotSquareGetInteriorColor :: - (MonadIO m, AnnotSquareK a) => - a -- _obj - -> m Color -- result -annotSquareGetInteriorColor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_square_get_interior_color _obj' - checkUnexpectedReturnNULL "poppler_annot_square_get_interior_color" result - result' <- (wrapBoxed Color) result - touchManagedPtr _obj - return result' - -data AnnotSquareGetInteriorColorMethodInfo -instance (signature ~ (m Color), MonadIO m, AnnotSquareK a) => MethodInfo AnnotSquareGetInteriorColorMethodInfo a signature where - overloadedMethod _ = annotSquareGetInteriorColor - --- method AnnotSquare::set_interior_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotSquare", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "poppler_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_square_set_interior_color" poppler_annot_square_set_interior_color :: - Ptr AnnotSquare -> -- _obj : TInterface "Poppler" "AnnotSquare" - Ptr Color -> -- poppler_color : TInterface "Poppler" "Color" - IO () - - -annotSquareSetInteriorColor :: - (MonadIO m, AnnotSquareK a) => - a -- _obj - -> Maybe (Color) -- popplerColor - -> m () -- result -annotSquareSetInteriorColor _obj popplerColor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePopplerColor <- case popplerColor of - Nothing -> return nullPtr - Just jPopplerColor -> do - let jPopplerColor' = unsafeManagedPtrGetPtr jPopplerColor - return jPopplerColor' - poppler_annot_square_set_interior_color _obj' maybePopplerColor - touchManagedPtr _obj - whenJust popplerColor touchManagedPtr - return () - -data AnnotSquareSetInteriorColorMethodInfo -instance (signature ~ (Maybe (Color) -> m ()), MonadIO m, AnnotSquareK a) => MethodInfo AnnotSquareSetInteriorColorMethodInfo a signature where - overloadedMethod _ = annotSquareSetInteriorColor - - diff --git a/GI/Poppler/Objects/AnnotSquare.hs-boot b/GI/Poppler/Objects/AnnotSquare.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotSquare.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Poppler.Objects.AnnotSquare where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AnnotSquare = AnnotSquare (ForeignPtr AnnotSquare) -instance GObject AnnotSquare where -class GObject o => AnnotSquareK o -instance (GObject o, IsDescendantOf AnnotSquare o) => AnnotSquareK o -data AnnotSquareGetInteriorColorMethodInfo -data AnnotSquareSetInteriorColorMethodInfo diff --git a/GI/Poppler/Objects/AnnotText.hs b/GI/Poppler/Objects/AnnotText.hs deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotText.hs +++ /dev/null @@ -1,331 +0,0 @@ - - -{- | -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.AnnotText - ( - --- * Exported types - AnnotText(..) , - AnnotTextK , - toAnnotText , - noAnnotText , - - - -- * Methods --- ** annotTextGetIcon - AnnotTextGetIconMethodInfo , - annotTextGetIcon , - - --- ** annotTextGetIsOpen - AnnotTextGetIsOpenMethodInfo , - annotTextGetIsOpen , - - --- ** annotTextGetState - AnnotTextGetStateMethodInfo , - annotTextGetState , - - --- ** annotTextNew - annotTextNew , - - --- ** annotTextSetIcon - AnnotTextSetIconMethodInfo , - annotTextSetIcon , - - --- ** annotTextSetIsOpen - AnnotTextSetIsOpenMethodInfo , - annotTextSetIsOpen , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 AnnotText = AnnotText (ForeignPtr AnnotText) -foreign import ccall "poppler_annot_text_get_type" - c_poppler_annot_text_get_type :: IO GType - -type instance ParentTypes AnnotText = AnnotTextParentTypes -type AnnotTextParentTypes = '[AnnotMarkup, Annot, GObject.Object] - -instance GObject AnnotText where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_annot_text_get_type - - -class GObject o => AnnotTextK o -instance (GObject o, IsDescendantOf AnnotText o) => AnnotTextK o - -toAnnotText :: AnnotTextK o => o -> IO AnnotText -toAnnotText = unsafeCastTo AnnotText - -noAnnotText :: Maybe AnnotText -noAnnotText = Nothing - -type family ResolveAnnotTextMethod (t :: Symbol) (o :: *) :: * where - ResolveAnnotTextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAnnotTextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAnnotTextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAnnotTextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAnnotTextMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo - ResolveAnnotTextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAnnotTextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAnnotTextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAnnotTextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAnnotTextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAnnotTextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAnnotTextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAnnotTextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAnnotTextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAnnotTextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAnnotTextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAnnotTextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAnnotTextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAnnotTextMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo - ResolveAnnotTextMethod "getColor" o = AnnotGetColorMethodInfo - ResolveAnnotTextMethod "getContents" o = AnnotGetContentsMethodInfo - ResolveAnnotTextMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAnnotTextMethod "getDate" o = AnnotMarkupGetDateMethodInfo - ResolveAnnotTextMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo - ResolveAnnotTextMethod "getFlags" o = AnnotGetFlagsMethodInfo - ResolveAnnotTextMethod "getIcon" o = AnnotTextGetIconMethodInfo - ResolveAnnotTextMethod "getIsOpen" o = AnnotTextGetIsOpenMethodInfo - ResolveAnnotTextMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo - ResolveAnnotTextMethod "getModified" o = AnnotGetModifiedMethodInfo - ResolveAnnotTextMethod "getName" o = AnnotGetNameMethodInfo - ResolveAnnotTextMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo - ResolveAnnotTextMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo - ResolveAnnotTextMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo - ResolveAnnotTextMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo - ResolveAnnotTextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAnnotTextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAnnotTextMethod "getRectangle" o = AnnotGetRectangleMethodInfo - ResolveAnnotTextMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo - ResolveAnnotTextMethod "getState" o = AnnotTextGetStateMethodInfo - ResolveAnnotTextMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo - ResolveAnnotTextMethod "setColor" o = AnnotSetColorMethodInfo - ResolveAnnotTextMethod "setContents" o = AnnotSetContentsMethodInfo - ResolveAnnotTextMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAnnotTextMethod "setFlags" o = AnnotSetFlagsMethodInfo - ResolveAnnotTextMethod "setIcon" o = AnnotTextSetIconMethodInfo - ResolveAnnotTextMethod "setIsOpen" o = AnnotTextSetIsOpenMethodInfo - ResolveAnnotTextMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo - ResolveAnnotTextMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo - ResolveAnnotTextMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo - ResolveAnnotTextMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo - ResolveAnnotTextMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo - ResolveAnnotTextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAnnotTextMethod "setRectangle" o = AnnotSetRectangleMethodInfo - ResolveAnnotTextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAnnotTextMethod t AnnotText, MethodInfo info AnnotText p) => IsLabelProxy t (AnnotText -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAnnotTextMethod t AnnotText, MethodInfo info AnnotText p) => IsLabel t (AnnotText -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AnnotText = AnnotTextAttributeList -type AnnotTextAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList AnnotText = AnnotTextSignalList -type AnnotTextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AnnotText::new --- method type : Constructor --- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotText") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_text_new" poppler_annot_text_new :: - Ptr Document -> -- doc : TInterface "Poppler" "Document" - Ptr Rectangle -> -- rect : TInterface "Poppler" "Rectangle" - IO (Ptr AnnotText) - - -annotTextNew :: - (MonadIO m, DocumentK a) => - a -- doc - -> Rectangle -- rect - -> m AnnotText -- result -annotTextNew doc rect = liftIO $ do - let doc' = unsafeManagedPtrCastPtr doc - let rect' = unsafeManagedPtrGetPtr rect - result <- poppler_annot_text_new doc' rect' - checkUnexpectedReturnNULL "poppler_annot_text_new" result - result' <- (wrapObject AnnotText) result - touchManagedPtr doc - touchManagedPtr rect - return result' - --- method AnnotText::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_text_get_icon" poppler_annot_text_get_icon :: - Ptr AnnotText -> -- _obj : TInterface "Poppler" "AnnotText" - IO CString - - -annotTextGetIcon :: - (MonadIO m, AnnotTextK a) => - a -- _obj - -> m T.Text -- result -annotTextGetIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_text_get_icon _obj' - checkUnexpectedReturnNULL "poppler_annot_text_get_icon" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data AnnotTextGetIconMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AnnotTextK a) => MethodInfo AnnotTextGetIconMethodInfo a signature where - overloadedMethod _ = annotTextGetIcon - --- method AnnotText::get_is_open --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_text_get_is_open" poppler_annot_text_get_is_open :: - Ptr AnnotText -> -- _obj : TInterface "Poppler" "AnnotText" - IO CInt - - -annotTextGetIsOpen :: - (MonadIO m, AnnotTextK a) => - a -- _obj - -> m Bool -- result -annotTextGetIsOpen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_text_get_is_open _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AnnotTextGetIsOpenMethodInfo -instance (signature ~ (m Bool), MonadIO m, AnnotTextK a) => MethodInfo AnnotTextGetIsOpenMethodInfo a signature where - overloadedMethod _ = annotTextGetIsOpen - --- method AnnotText::get_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotTextState") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_text_get_state" poppler_annot_text_get_state :: - Ptr AnnotText -> -- _obj : TInterface "Poppler" "AnnotText" - IO CUInt - - -annotTextGetState :: - (MonadIO m, AnnotTextK a) => - a -- _obj - -> m AnnotTextState -- result -annotTextGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_text_get_state _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data AnnotTextGetStateMethodInfo -instance (signature ~ (m AnnotTextState), MonadIO m, AnnotTextK a) => MethodInfo AnnotTextGetStateMethodInfo a signature where - overloadedMethod _ = annotTextGetState - --- method AnnotText::set_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_text_set_icon" poppler_annot_text_set_icon :: - Ptr AnnotText -> -- _obj : TInterface "Poppler" "AnnotText" - CString -> -- icon : TBasicType TUTF8 - IO () - - -annotTextSetIcon :: - (MonadIO m, AnnotTextK a) => - a -- _obj - -> T.Text -- icon - -> m () -- result -annotTextSetIcon _obj icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - icon' <- textToCString icon - poppler_annot_text_set_icon _obj' icon' - touchManagedPtr _obj - freeMem icon' - return () - -data AnnotTextSetIconMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AnnotTextK a) => MethodInfo AnnotTextSetIconMethodInfo a signature where - overloadedMethod _ = annotTextSetIcon - --- method AnnotText::set_is_open --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotText", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_open", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_text_set_is_open" poppler_annot_text_set_is_open :: - Ptr AnnotText -> -- _obj : TInterface "Poppler" "AnnotText" - CInt -> -- is_open : TBasicType TBoolean - IO () - - -annotTextSetIsOpen :: - (MonadIO m, AnnotTextK a) => - a -- _obj - -> Bool -- isOpen - -> m () -- result -annotTextSetIsOpen _obj isOpen = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let isOpen' = (fromIntegral . fromEnum) isOpen - poppler_annot_text_set_is_open _obj' isOpen' - touchManagedPtr _obj - return () - -data AnnotTextSetIsOpenMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, AnnotTextK a) => MethodInfo AnnotTextSetIsOpenMethodInfo a signature where - overloadedMethod _ = annotTextSetIsOpen - - diff --git a/GI/Poppler/Objects/AnnotText.hs-boot b/GI/Poppler/Objects/AnnotText.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotText.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Poppler.Objects.AnnotText where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AnnotText = AnnotText (ForeignPtr AnnotText) -instance GObject AnnotText where -class GObject o => AnnotTextK o -instance (GObject o, IsDescendantOf AnnotText o) => AnnotTextK o -data AnnotTextGetIconMethodInfo -data AnnotTextGetIsOpenMethodInfo -data AnnotTextGetStateMethodInfo -data AnnotTextSetIconMethodInfo -data AnnotTextSetIsOpenMethodInfo diff --git a/GI/Poppler/Objects/AnnotTextMarkup.hs b/GI/Poppler/Objects/AnnotTextMarkup.hs deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotTextMarkup.hs +++ /dev/null @@ -1,353 +0,0 @@ - - -{- | -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.AnnotTextMarkup - ( - --- * Exported types - AnnotTextMarkup(..) , - AnnotTextMarkupK , - toAnnotTextMarkup , - noAnnotTextMarkup , - - - -- * Methods --- ** annotTextMarkupGetQuadrilaterals - AnnotTextMarkupGetQuadrilateralsMethodInfo, - annotTextMarkupGetQuadrilaterals , - - --- ** annotTextMarkupNewHighlight - annotTextMarkupNewHighlight , - - --- ** annotTextMarkupNewSquiggly - annotTextMarkupNewSquiggly , - - --- ** annotTextMarkupNewStrikeout - annotTextMarkupNewStrikeout , - - --- ** annotTextMarkupNewUnderline - annotTextMarkupNewUnderline , - - --- ** annotTextMarkupSetQuadrilaterals - AnnotTextMarkupSetQuadrilateralsMethodInfo, - annotTextMarkupSetQuadrilaterals , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 AnnotTextMarkup = AnnotTextMarkup (ForeignPtr AnnotTextMarkup) -foreign import ccall "poppler_annot_text_markup_get_type" - c_poppler_annot_text_markup_get_type :: IO GType - -type instance ParentTypes AnnotTextMarkup = AnnotTextMarkupParentTypes -type AnnotTextMarkupParentTypes = '[AnnotMarkup, Annot, GObject.Object] - -instance GObject AnnotTextMarkup where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_annot_text_markup_get_type - - -class GObject o => AnnotTextMarkupK o -instance (GObject o, IsDescendantOf AnnotTextMarkup o) => AnnotTextMarkupK o - -toAnnotTextMarkup :: AnnotTextMarkupK o => o -> IO AnnotTextMarkup -toAnnotTextMarkup = unsafeCastTo AnnotTextMarkup - -noAnnotTextMarkup :: Maybe AnnotTextMarkup -noAnnotTextMarkup = Nothing - -type family ResolveAnnotTextMarkupMethod (t :: Symbol) (o :: *) :: * where - ResolveAnnotTextMarkupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAnnotTextMarkupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAnnotTextMarkupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAnnotTextMarkupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAnnotTextMarkupMethod "hasPopup" o = AnnotMarkupHasPopupMethodInfo - ResolveAnnotTextMarkupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAnnotTextMarkupMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAnnotTextMarkupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAnnotTextMarkupMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAnnotTextMarkupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAnnotTextMarkupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAnnotTextMarkupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAnnotTextMarkupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAnnotTextMarkupMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAnnotTextMarkupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAnnotTextMarkupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAnnotTextMarkupMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAnnotTextMarkupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAnnotTextMarkupMethod "getAnnotType" o = AnnotGetAnnotTypeMethodInfo - ResolveAnnotTextMarkupMethod "getColor" o = AnnotGetColorMethodInfo - ResolveAnnotTextMarkupMethod "getContents" o = AnnotGetContentsMethodInfo - ResolveAnnotTextMarkupMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAnnotTextMarkupMethod "getDate" o = AnnotMarkupGetDateMethodInfo - ResolveAnnotTextMarkupMethod "getExternalData" o = AnnotMarkupGetExternalDataMethodInfo - ResolveAnnotTextMarkupMethod "getFlags" o = AnnotGetFlagsMethodInfo - ResolveAnnotTextMarkupMethod "getLabel" o = AnnotMarkupGetLabelMethodInfo - ResolveAnnotTextMarkupMethod "getModified" o = AnnotGetModifiedMethodInfo - ResolveAnnotTextMarkupMethod "getName" o = AnnotGetNameMethodInfo - ResolveAnnotTextMarkupMethod "getOpacity" o = AnnotMarkupGetOpacityMethodInfo - ResolveAnnotTextMarkupMethod "getPageIndex" o = AnnotGetPageIndexMethodInfo - ResolveAnnotTextMarkupMethod "getPopupIsOpen" o = AnnotMarkupGetPopupIsOpenMethodInfo - ResolveAnnotTextMarkupMethod "getPopupRectangle" o = AnnotMarkupGetPopupRectangleMethodInfo - ResolveAnnotTextMarkupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAnnotTextMarkupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAnnotTextMarkupMethod "getQuadrilaterals" o = AnnotTextMarkupGetQuadrilateralsMethodInfo - ResolveAnnotTextMarkupMethod "getRectangle" o = AnnotGetRectangleMethodInfo - ResolveAnnotTextMarkupMethod "getReplyTo" o = AnnotMarkupGetReplyToMethodInfo - ResolveAnnotTextMarkupMethod "getSubject" o = AnnotMarkupGetSubjectMethodInfo - ResolveAnnotTextMarkupMethod "setColor" o = AnnotSetColorMethodInfo - ResolveAnnotTextMarkupMethod "setContents" o = AnnotSetContentsMethodInfo - ResolveAnnotTextMarkupMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAnnotTextMarkupMethod "setFlags" o = AnnotSetFlagsMethodInfo - ResolveAnnotTextMarkupMethod "setLabel" o = AnnotMarkupSetLabelMethodInfo - ResolveAnnotTextMarkupMethod "setOpacity" o = AnnotMarkupSetOpacityMethodInfo - ResolveAnnotTextMarkupMethod "setPopup" o = AnnotMarkupSetPopupMethodInfo - ResolveAnnotTextMarkupMethod "setPopupIsOpen" o = AnnotMarkupSetPopupIsOpenMethodInfo - ResolveAnnotTextMarkupMethod "setPopupRectangle" o = AnnotMarkupSetPopupRectangleMethodInfo - ResolveAnnotTextMarkupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAnnotTextMarkupMethod "setQuadrilaterals" o = AnnotTextMarkupSetQuadrilateralsMethodInfo - ResolveAnnotTextMarkupMethod "setRectangle" o = AnnotSetRectangleMethodInfo - ResolveAnnotTextMarkupMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAnnotTextMarkupMethod t AnnotTextMarkup, MethodInfo info AnnotTextMarkup p) => IsLabelProxy t (AnnotTextMarkup -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAnnotTextMarkupMethod t AnnotTextMarkup, MethodInfo info AnnotTextMarkup p) => IsLabel t (AnnotTextMarkup -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AnnotTextMarkup = AnnotTextMarkupAttributeList -type AnnotTextMarkupAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList AnnotTextMarkup = AnnotTextMarkupSignalList -type AnnotTextMarkupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AnnotTextMarkup::new_highlight --- method type : Constructor --- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotTextMarkup") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_text_markup_new_highlight" poppler_annot_text_markup_new_highlight :: - Ptr Document -> -- doc : TInterface "Poppler" "Document" - Ptr Rectangle -> -- rect : TInterface "Poppler" "Rectangle" - Ptr (GArray (Ptr Quadrilateral)) -> -- quadrilaterals : TGArray (TInterface "Poppler" "Quadrilateral") - IO (Ptr AnnotTextMarkup) - - -annotTextMarkupNewHighlight :: - (MonadIO m, DocumentK a) => - a -- doc - -> Rectangle -- rect - -> [Quadrilateral] -- quadrilaterals - -> m AnnotTextMarkup -- result -annotTextMarkupNewHighlight doc rect quadrilaterals = liftIO $ do - let doc' = unsafeManagedPtrCastPtr doc - let rect' = unsafeManagedPtrGetPtr rect - let quadrilaterals' = map unsafeManagedPtrGetPtr quadrilaterals - quadrilaterals'' <- packGArray quadrilaterals' - result <- poppler_annot_text_markup_new_highlight doc' rect' quadrilaterals'' - checkUnexpectedReturnNULL "poppler_annot_text_markup_new_highlight" result - result' <- (wrapObject AnnotTextMarkup) result - touchManagedPtr doc - touchManagedPtr rect - mapM_ touchManagedPtr quadrilaterals - unrefGArray quadrilaterals'' - return result' - --- method AnnotTextMarkup::new_squiggly --- method type : Constructor --- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotTextMarkup") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_text_markup_new_squiggly" poppler_annot_text_markup_new_squiggly :: - Ptr Document -> -- doc : TInterface "Poppler" "Document" - Ptr Rectangle -> -- rect : TInterface "Poppler" "Rectangle" - Ptr (GArray (Ptr Quadrilateral)) -> -- quadrilaterals : TGArray (TInterface "Poppler" "Quadrilateral") - IO (Ptr AnnotTextMarkup) - - -annotTextMarkupNewSquiggly :: - (MonadIO m, DocumentK a) => - a -- doc - -> Rectangle -- rect - -> [Quadrilateral] -- quadrilaterals - -> m AnnotTextMarkup -- result -annotTextMarkupNewSquiggly doc rect quadrilaterals = liftIO $ do - let doc' = unsafeManagedPtrCastPtr doc - let rect' = unsafeManagedPtrGetPtr rect - let quadrilaterals' = map unsafeManagedPtrGetPtr quadrilaterals - quadrilaterals'' <- packGArray quadrilaterals' - result <- poppler_annot_text_markup_new_squiggly doc' rect' quadrilaterals'' - checkUnexpectedReturnNULL "poppler_annot_text_markup_new_squiggly" result - result' <- (wrapObject AnnotTextMarkup) result - touchManagedPtr doc - touchManagedPtr rect - mapM_ touchManagedPtr quadrilaterals - unrefGArray quadrilaterals'' - return result' - --- method AnnotTextMarkup::new_strikeout --- method type : Constructor --- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotTextMarkup") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_text_markup_new_strikeout" poppler_annot_text_markup_new_strikeout :: - Ptr Document -> -- doc : TInterface "Poppler" "Document" - Ptr Rectangle -> -- rect : TInterface "Poppler" "Rectangle" - Ptr (GArray (Ptr Quadrilateral)) -> -- quadrilaterals : TGArray (TInterface "Poppler" "Quadrilateral") - IO (Ptr AnnotTextMarkup) - - -annotTextMarkupNewStrikeout :: - (MonadIO m, DocumentK a) => - a -- doc - -> Rectangle -- rect - -> [Quadrilateral] -- quadrilaterals - -> m AnnotTextMarkup -- result -annotTextMarkupNewStrikeout doc rect quadrilaterals = liftIO $ do - let doc' = unsafeManagedPtrCastPtr doc - let rect' = unsafeManagedPtrGetPtr rect - let quadrilaterals' = map unsafeManagedPtrGetPtr quadrilaterals - quadrilaterals'' <- packGArray quadrilaterals' - result <- poppler_annot_text_markup_new_strikeout doc' rect' quadrilaterals'' - checkUnexpectedReturnNULL "poppler_annot_text_markup_new_strikeout" result - result' <- (wrapObject AnnotTextMarkup) result - touchManagedPtr doc - touchManagedPtr rect - mapM_ touchManagedPtr quadrilaterals - unrefGArray quadrilaterals'' - return result' - --- method AnnotTextMarkup::new_underline --- method type : Constructor --- Args : [Arg {argCName = "doc", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotTextMarkup") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_text_markup_new_underline" poppler_annot_text_markup_new_underline :: - Ptr Document -> -- doc : TInterface "Poppler" "Document" - Ptr Rectangle -> -- rect : TInterface "Poppler" "Rectangle" - Ptr (GArray (Ptr Quadrilateral)) -> -- quadrilaterals : TGArray (TInterface "Poppler" "Quadrilateral") - IO (Ptr AnnotTextMarkup) - - -annotTextMarkupNewUnderline :: - (MonadIO m, DocumentK a) => - a -- doc - -> Rectangle -- rect - -> [Quadrilateral] -- quadrilaterals - -> m AnnotTextMarkup -- result -annotTextMarkupNewUnderline doc rect quadrilaterals = liftIO $ do - let doc' = unsafeManagedPtrCastPtr doc - let rect' = unsafeManagedPtrGetPtr rect - let quadrilaterals' = map unsafeManagedPtrGetPtr quadrilaterals - quadrilaterals'' <- packGArray quadrilaterals' - result <- poppler_annot_text_markup_new_underline doc' rect' quadrilaterals'' - checkUnexpectedReturnNULL "poppler_annot_text_markup_new_underline" result - result' <- (wrapObject AnnotTextMarkup) result - touchManagedPtr doc - touchManagedPtr rect - mapM_ touchManagedPtr quadrilaterals - unrefGArray quadrilaterals'' - return result' - --- method AnnotTextMarkup::get_quadrilaterals --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotTextMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGArray (TInterface "Poppler" "Quadrilateral")) --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_text_markup_get_quadrilaterals" poppler_annot_text_markup_get_quadrilaterals :: - Ptr AnnotTextMarkup -> -- _obj : TInterface "Poppler" "AnnotTextMarkup" - IO (Ptr (GArray (Ptr Quadrilateral))) - - -annotTextMarkupGetQuadrilaterals :: - (MonadIO m, AnnotTextMarkupK a) => - a -- _obj - -> m [Quadrilateral] -- result -annotTextMarkupGetQuadrilaterals _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_annot_text_markup_get_quadrilaterals _obj' - checkUnexpectedReturnNULL "poppler_annot_text_markup_get_quadrilaterals" result - result' <- unpackGArray result - result'' <- mapM (wrapBoxed Quadrilateral) result' - unrefGArray result - touchManagedPtr _obj - return result'' - -data AnnotTextMarkupGetQuadrilateralsMethodInfo -instance (signature ~ (m [Quadrilateral]), MonadIO m, AnnotTextMarkupK a) => MethodInfo AnnotTextMarkupGetQuadrilateralsMethodInfo a signature where - overloadedMethod _ = annotTextMarkupGetQuadrilaterals - --- method AnnotTextMarkup::set_quadrilaterals --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotTextMarkup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "quadrilaterals", argType = TGArray (TInterface "Poppler" "Quadrilateral"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_text_markup_set_quadrilaterals" poppler_annot_text_markup_set_quadrilaterals :: - Ptr AnnotTextMarkup -> -- _obj : TInterface "Poppler" "AnnotTextMarkup" - Ptr (GArray (Ptr Quadrilateral)) -> -- quadrilaterals : TGArray (TInterface "Poppler" "Quadrilateral") - IO () - - -annotTextMarkupSetQuadrilaterals :: - (MonadIO m, AnnotTextMarkupK a) => - a -- _obj - -> [Quadrilateral] -- quadrilaterals - -> m () -- result -annotTextMarkupSetQuadrilaterals _obj quadrilaterals = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let quadrilaterals' = map unsafeManagedPtrGetPtr quadrilaterals - quadrilaterals'' <- packGArray quadrilaterals' - poppler_annot_text_markup_set_quadrilaterals _obj' quadrilaterals'' - touchManagedPtr _obj - mapM_ touchManagedPtr quadrilaterals - unrefGArray quadrilaterals'' - return () - -data AnnotTextMarkupSetQuadrilateralsMethodInfo -instance (signature ~ ([Quadrilateral] -> m ()), MonadIO m, AnnotTextMarkupK a) => MethodInfo AnnotTextMarkupSetQuadrilateralsMethodInfo a signature where - overloadedMethod _ = annotTextMarkupSetQuadrilaterals - - diff --git a/GI/Poppler/Objects/AnnotTextMarkup.hs-boot b/GI/Poppler/Objects/AnnotTextMarkup.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/AnnotTextMarkup.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Poppler.Objects.AnnotTextMarkup where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AnnotTextMarkup = AnnotTextMarkup (ForeignPtr AnnotTextMarkup) -instance GObject AnnotTextMarkup where -class GObject o => AnnotTextMarkupK o -instance (GObject o, IsDescendantOf AnnotTextMarkup o) => AnnotTextMarkupK o -data AnnotTextMarkupGetQuadrilateralsMethodInfo -data AnnotTextMarkupSetQuadrilateralsMethodInfo diff --git a/GI/Poppler/Objects/Attachment.hs b/GI/Poppler/Objects/Attachment.hs deleted file mode 100644 --- a/GI/Poppler/Objects/Attachment.hs +++ /dev/null @@ -1,182 +0,0 @@ - - -{- | -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.Attachment - ( - --- * Exported types - Attachment(..) , - AttachmentK , - toAttachment , - noAttachment , - - - -- * Methods --- ** attachmentSave - AttachmentSaveMethodInfo , - attachmentSave , - - --- ** attachmentSaveToCallback - AttachmentSaveToCallbackMethodInfo , - attachmentSaveToCallback , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 Attachment = Attachment (ForeignPtr Attachment) -foreign import ccall "poppler_attachment_get_type" - c_poppler_attachment_get_type :: IO GType - -type instance ParentTypes Attachment = AttachmentParentTypes -type AttachmentParentTypes = '[GObject.Object] - -instance GObject Attachment where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_attachment_get_type - - -class GObject o => AttachmentK o -instance (GObject o, IsDescendantOf Attachment o) => AttachmentK o - -toAttachment :: AttachmentK o => o -> IO Attachment -toAttachment = unsafeCastTo Attachment - -noAttachment :: Maybe Attachment -noAttachment = Nothing - -type family ResolveAttachmentMethod (t :: Symbol) (o :: *) :: * where - ResolveAttachmentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAttachmentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAttachmentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAttachmentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAttachmentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAttachmentMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAttachmentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAttachmentMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAttachmentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAttachmentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAttachmentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAttachmentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAttachmentMethod "save" o = AttachmentSaveMethodInfo - ResolveAttachmentMethod "saveToCallback" o = AttachmentSaveToCallbackMethodInfo - ResolveAttachmentMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAttachmentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAttachmentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAttachmentMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAttachmentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAttachmentMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAttachmentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAttachmentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAttachmentMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAttachmentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAttachmentMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAttachmentMethod t Attachment, MethodInfo info Attachment p) => IsLabelProxy t (Attachment -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAttachmentMethod t Attachment, MethodInfo info Attachment p) => IsLabel t (Attachment -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Attachment = AttachmentAttributeList -type AttachmentAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Attachment = AttachmentSignalList -type AttachmentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Attachment::save --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Attachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "poppler_attachment_save" poppler_attachment_save :: - Ptr Attachment -> -- _obj : TInterface "Poppler" "Attachment" - CString -> -- filename : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -attachmentSave :: - (MonadIO m, AttachmentK a) => - a -- _obj - -> T.Text -- filename - -> m () -- result -attachmentSave _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- textToCString filename - onException (do - _ <- propagateGError $ poppler_attachment_save _obj' filename' - touchManagedPtr _obj - freeMem filename' - return () - ) (do - freeMem filename' - ) - -data AttachmentSaveMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AttachmentK a) => MethodInfo AttachmentSaveMethodInfo a signature where - overloadedMethod _ = attachmentSave - --- method Attachment::save_to_callback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Attachment", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_func", argType = TInterface "Poppler" "AttachmentSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "poppler_attachment_save_to_callback" poppler_attachment_save_to_callback :: - Ptr Attachment -> -- _obj : TInterface "Poppler" "Attachment" - FunPtr AttachmentSaveFuncC -> -- save_func : TInterface "Poppler" "AttachmentSaveFunc" - Ptr () -> -- user_data : TBasicType TPtr - Ptr (Ptr GError) -> -- error - IO CInt - - -attachmentSaveToCallback :: - (MonadIO m, AttachmentK a) => - a -- _obj - -> AttachmentSaveFunc -- saveFunc - -> m () -- result -attachmentSaveToCallback _obj saveFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - saveFunc' <- mkAttachmentSaveFunc (attachmentSaveFuncWrapper Nothing saveFunc) - let userData = nullPtr - onException (do - _ <- propagateGError $ poppler_attachment_save_to_callback _obj' saveFunc' userData - safeFreeFunPtr $ castFunPtrToPtr saveFunc' - touchManagedPtr _obj - return () - ) (do - safeFreeFunPtr $ castFunPtrToPtr saveFunc' - return () - ) - -data AttachmentSaveToCallbackMethodInfo -instance (signature ~ (AttachmentSaveFunc -> m ()), MonadIO m, AttachmentK a) => MethodInfo AttachmentSaveToCallbackMethodInfo a signature where - overloadedMethod _ = attachmentSaveToCallback - - diff --git a/GI/Poppler/Objects/Attachment.hs-boot b/GI/Poppler/Objects/Attachment.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/Attachment.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Poppler.Objects.Attachment where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Attachment = Attachment (ForeignPtr Attachment) -instance GObject Attachment where -class GObject o => AttachmentK o -instance (GObject o, IsDescendantOf Attachment o) => AttachmentK o -data AttachmentSaveMethodInfo -data AttachmentSaveToCallbackMethodInfo diff --git a/GI/Poppler/Objects/Document.hs b/GI/Poppler/Objects/Document.hs deleted file mode 100644 --- a/GI/Poppler/Objects/Document.hs +++ /dev/null @@ -1,1731 +0,0 @@ - - -{- | -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.Document - ( - --- * Exported types - Document(..) , - DocumentK , - toDocument , - noDocument , - - - -- * Methods --- ** documentFindDest - DocumentFindDestMethodInfo , - documentFindDest , - - --- ** documentGetAttachments - DocumentGetAttachmentsMethodInfo , - documentGetAttachments , - - --- ** documentGetAuthor - DocumentGetAuthorMethodInfo , - documentGetAuthor , - - --- ** documentGetCreationDate - DocumentGetCreationDateMethodInfo , - documentGetCreationDate , - - --- ** documentGetCreator - DocumentGetCreatorMethodInfo , - documentGetCreator , - - --- ** documentGetFormField - DocumentGetFormFieldMethodInfo , - documentGetFormField , - - --- ** documentGetId - DocumentGetIdMethodInfo , - documentGetId , - - --- ** documentGetKeywords - DocumentGetKeywordsMethodInfo , - documentGetKeywords , - - --- ** documentGetMetadata - DocumentGetMetadataMethodInfo , - documentGetMetadata , - - --- ** documentGetModificationDate - DocumentGetModificationDateMethodInfo , - documentGetModificationDate , - - --- ** documentGetNAttachments - DocumentGetNAttachmentsMethodInfo , - documentGetNAttachments , - - --- ** documentGetNPages - DocumentGetNPagesMethodInfo , - documentGetNPages , - - --- ** documentGetPage - DocumentGetPageMethodInfo , - documentGetPage , - - --- ** documentGetPageByLabel - DocumentGetPageByLabelMethodInfo , - documentGetPageByLabel , - - --- ** documentGetPageLayout - DocumentGetPageLayoutMethodInfo , - documentGetPageLayout , - - --- ** documentGetPageMode - DocumentGetPageModeMethodInfo , - documentGetPageMode , - - --- ** documentGetPdfVersion - DocumentGetPdfVersionMethodInfo , - documentGetPdfVersion , - - --- ** documentGetPdfVersionString - DocumentGetPdfVersionStringMethodInfo , - documentGetPdfVersionString , - - --- ** documentGetPermissions - DocumentGetPermissionsMethodInfo , - documentGetPermissions , - - --- ** documentGetProducer - DocumentGetProducerMethodInfo , - documentGetProducer , - - --- ** documentGetSubject - DocumentGetSubjectMethodInfo , - documentGetSubject , - - --- ** documentGetTitle - DocumentGetTitleMethodInfo , - documentGetTitle , - - --- ** documentHasAttachments - DocumentHasAttachmentsMethodInfo , - documentHasAttachments , - - --- ** documentIsLinearized - DocumentIsLinearizedMethodInfo , - documentIsLinearized , - - --- ** documentNewFromData - documentNewFromData , - - --- ** documentNewFromFile - documentNewFromFile , - - --- ** documentNewFromGfile - documentNewFromGfile , - - --- ** documentNewFromStream - documentNewFromStream , - - --- ** documentSave - DocumentSaveMethodInfo , - documentSave , - - --- ** documentSaveACopy - DocumentSaveACopyMethodInfo , - documentSaveACopy , - - - - - -- * Properties --- ** Author - DocumentAuthorPropertyInfo , - documentAuthor , - getDocumentAuthor , - - --- ** CreationDate - DocumentCreationDatePropertyInfo , - documentCreationDate , - getDocumentCreationDate , - - --- ** Creator - DocumentCreatorPropertyInfo , - documentCreator , - getDocumentCreator , - - --- ** Format - DocumentFormatPropertyInfo , - documentFormat , - getDocumentFormat , - - --- ** FormatMajor - DocumentFormatMajorPropertyInfo , - documentFormatMajor , - getDocumentFormatMajor , - - --- ** FormatMinor - DocumentFormatMinorPropertyInfo , - documentFormatMinor , - getDocumentFormatMinor , - - --- ** Keywords - DocumentKeywordsPropertyInfo , - documentKeywords , - getDocumentKeywords , - - --- ** Linearized - DocumentLinearizedPropertyInfo , - documentLinearized , - getDocumentLinearized , - - --- ** Metadata - DocumentMetadataPropertyInfo , - documentMetadata , - getDocumentMetadata , - - --- ** ModDate - DocumentModDatePropertyInfo , - documentModDate , - getDocumentModDate , - - --- ** PageLayout - DocumentPageLayoutPropertyInfo , - documentPageLayout , - getDocumentPageLayout , - - --- ** PageMode - DocumentPageModePropertyInfo , - documentPageMode , - getDocumentPageMode , - - --- ** Permissions - DocumentPermissionsPropertyInfo , - documentPermissions , - getDocumentPermissions , - - --- ** Producer - DocumentProducerPropertyInfo , - documentProducer , - getDocumentProducer , - - --- ** Subject - DocumentSubjectPropertyInfo , - documentSubject , - getDocumentSubject , - - --- ** Title - DocumentTitlePropertyInfo , - documentTitle , - getDocumentTitle , - - --- ** ViewerPreferences - DocumentViewerPreferencesPropertyInfo , - documentViewerPreferences , - getDocumentViewerPreferences , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -import qualified GI.Gio as Gio - -newtype Document = Document (ForeignPtr Document) -foreign import ccall "poppler_document_get_type" - c_poppler_document_get_type :: IO GType - -type instance ParentTypes Document = DocumentParentTypes -type DocumentParentTypes = '[GObject.Object] - -instance GObject Document where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_document_get_type - - -class GObject o => DocumentK o -instance (GObject o, IsDescendantOf Document o) => DocumentK o - -toDocument :: DocumentK o => o -> IO Document -toDocument = unsafeCastTo Document - -noDocument :: Maybe Document -noDocument = Nothing - -type family ResolveDocumentMethod (t :: Symbol) (o :: *) :: * where - ResolveDocumentMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDocumentMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDocumentMethod "findDest" o = DocumentFindDestMethodInfo - ResolveDocumentMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDocumentMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDocumentMethod "hasAttachments" o = DocumentHasAttachmentsMethodInfo - ResolveDocumentMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDocumentMethod "isLinearized" o = DocumentIsLinearizedMethodInfo - ResolveDocumentMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDocumentMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDocumentMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDocumentMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDocumentMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDocumentMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDocumentMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDocumentMethod "save" o = DocumentSaveMethodInfo - ResolveDocumentMethod "saveACopy" o = DocumentSaveACopyMethodInfo - ResolveDocumentMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDocumentMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDocumentMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDocumentMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDocumentMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDocumentMethod "getAttachments" o = DocumentGetAttachmentsMethodInfo - ResolveDocumentMethod "getAuthor" o = DocumentGetAuthorMethodInfo - ResolveDocumentMethod "getCreationDate" o = DocumentGetCreationDateMethodInfo - ResolveDocumentMethod "getCreator" o = DocumentGetCreatorMethodInfo - ResolveDocumentMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDocumentMethod "getFormField" o = DocumentGetFormFieldMethodInfo - ResolveDocumentMethod "getId" o = DocumentGetIdMethodInfo - ResolveDocumentMethod "getKeywords" o = DocumentGetKeywordsMethodInfo - ResolveDocumentMethod "getMetadata" o = DocumentGetMetadataMethodInfo - ResolveDocumentMethod "getModificationDate" o = DocumentGetModificationDateMethodInfo - ResolveDocumentMethod "getNAttachments" o = DocumentGetNAttachmentsMethodInfo - ResolveDocumentMethod "getNPages" o = DocumentGetNPagesMethodInfo - ResolveDocumentMethod "getPage" o = DocumentGetPageMethodInfo - ResolveDocumentMethod "getPageByLabel" o = DocumentGetPageByLabelMethodInfo - ResolveDocumentMethod "getPageLayout" o = DocumentGetPageLayoutMethodInfo - ResolveDocumentMethod "getPageMode" o = DocumentGetPageModeMethodInfo - ResolveDocumentMethod "getPdfVersion" o = DocumentGetPdfVersionMethodInfo - ResolveDocumentMethod "getPdfVersionString" o = DocumentGetPdfVersionStringMethodInfo - ResolveDocumentMethod "getPermissions" o = DocumentGetPermissionsMethodInfo - ResolveDocumentMethod "getProducer" o = DocumentGetProducerMethodInfo - ResolveDocumentMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDocumentMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDocumentMethod "getSubject" o = DocumentGetSubjectMethodInfo - ResolveDocumentMethod "getTitle" o = DocumentGetTitleMethodInfo - ResolveDocumentMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDocumentMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDocumentMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDocumentMethod t Document, MethodInfo info Document p) => IsLabelProxy t (Document -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDocumentMethod t Document, MethodInfo info Document p) => IsLabel t (Document -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "author" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDocumentAuthor :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) -getDocumentAuthor obj = liftIO $ getObjectPropertyString obj "author" - -data DocumentAuthorPropertyInfo -instance AttrInfo DocumentAuthorPropertyInfo where - type AttrAllowedOps DocumentAuthorPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DocumentAuthorPropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentAuthorPropertyInfo = DocumentK - type AttrGetType DocumentAuthorPropertyInfo = (Maybe T.Text) - type AttrLabel DocumentAuthorPropertyInfo = "author" - attrGet _ = getDocumentAuthor - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "creation-date" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDocumentCreationDate :: (MonadIO m, DocumentK o) => o -> m Int32 -getDocumentCreationDate obj = liftIO $ getObjectPropertyInt32 obj "creation-date" - -data DocumentCreationDatePropertyInfo -instance AttrInfo DocumentCreationDatePropertyInfo where - type AttrAllowedOps DocumentCreationDatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DocumentCreationDatePropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentCreationDatePropertyInfo = DocumentK - type AttrGetType DocumentCreationDatePropertyInfo = Int32 - type AttrLabel DocumentCreationDatePropertyInfo = "creation-date" - attrGet _ = getDocumentCreationDate - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "creator" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDocumentCreator :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) -getDocumentCreator obj = liftIO $ getObjectPropertyString obj "creator" - -data DocumentCreatorPropertyInfo -instance AttrInfo DocumentCreatorPropertyInfo where - type AttrAllowedOps DocumentCreatorPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DocumentCreatorPropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentCreatorPropertyInfo = DocumentK - type AttrGetType DocumentCreatorPropertyInfo = (Maybe T.Text) - type AttrLabel DocumentCreatorPropertyInfo = "creator" - attrGet _ = getDocumentCreator - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "format" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDocumentFormat :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) -getDocumentFormat obj = liftIO $ getObjectPropertyString obj "format" - -data DocumentFormatPropertyInfo -instance AttrInfo DocumentFormatPropertyInfo where - type AttrAllowedOps DocumentFormatPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DocumentFormatPropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentFormatPropertyInfo = DocumentK - type AttrGetType DocumentFormatPropertyInfo = (Maybe T.Text) - type AttrLabel DocumentFormatPropertyInfo = "format" - attrGet _ = getDocumentFormat - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "format-major" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDocumentFormatMajor :: (MonadIO m, DocumentK o) => o -> m Word32 -getDocumentFormatMajor obj = liftIO $ getObjectPropertyUInt32 obj "format-major" - -data DocumentFormatMajorPropertyInfo -instance AttrInfo DocumentFormatMajorPropertyInfo where - type AttrAllowedOps DocumentFormatMajorPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DocumentFormatMajorPropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentFormatMajorPropertyInfo = DocumentK - type AttrGetType DocumentFormatMajorPropertyInfo = Word32 - type AttrLabel DocumentFormatMajorPropertyInfo = "format-major" - attrGet _ = getDocumentFormatMajor - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "format-minor" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDocumentFormatMinor :: (MonadIO m, DocumentK o) => o -> m Word32 -getDocumentFormatMinor obj = liftIO $ getObjectPropertyUInt32 obj "format-minor" - -data DocumentFormatMinorPropertyInfo -instance AttrInfo DocumentFormatMinorPropertyInfo where - type AttrAllowedOps DocumentFormatMinorPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DocumentFormatMinorPropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentFormatMinorPropertyInfo = DocumentK - type AttrGetType DocumentFormatMinorPropertyInfo = Word32 - type AttrLabel DocumentFormatMinorPropertyInfo = "format-minor" - attrGet _ = getDocumentFormatMinor - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "keywords" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDocumentKeywords :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) -getDocumentKeywords obj = liftIO $ getObjectPropertyString obj "keywords" - -data DocumentKeywordsPropertyInfo -instance AttrInfo DocumentKeywordsPropertyInfo where - type AttrAllowedOps DocumentKeywordsPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DocumentKeywordsPropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentKeywordsPropertyInfo = DocumentK - type AttrGetType DocumentKeywordsPropertyInfo = (Maybe T.Text) - type AttrLabel DocumentKeywordsPropertyInfo = "keywords" - attrGet _ = getDocumentKeywords - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "linearized" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDocumentLinearized :: (MonadIO m, DocumentK o) => o -> m Bool -getDocumentLinearized obj = liftIO $ getObjectPropertyBool obj "linearized" - -data DocumentLinearizedPropertyInfo -instance AttrInfo DocumentLinearizedPropertyInfo where - type AttrAllowedOps DocumentLinearizedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DocumentLinearizedPropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentLinearizedPropertyInfo = DocumentK - type AttrGetType DocumentLinearizedPropertyInfo = Bool - type AttrLabel DocumentLinearizedPropertyInfo = "linearized" - attrGet _ = getDocumentLinearized - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "metadata" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDocumentMetadata :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) -getDocumentMetadata obj = liftIO $ getObjectPropertyString obj "metadata" - -data DocumentMetadataPropertyInfo -instance AttrInfo DocumentMetadataPropertyInfo where - type AttrAllowedOps DocumentMetadataPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DocumentMetadataPropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentMetadataPropertyInfo = DocumentK - type AttrGetType DocumentMetadataPropertyInfo = (Maybe T.Text) - type AttrLabel DocumentMetadataPropertyInfo = "metadata" - attrGet _ = getDocumentMetadata - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "mod-date" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDocumentModDate :: (MonadIO m, DocumentK o) => o -> m Int32 -getDocumentModDate obj = liftIO $ getObjectPropertyInt32 obj "mod-date" - -data DocumentModDatePropertyInfo -instance AttrInfo DocumentModDatePropertyInfo where - type AttrAllowedOps DocumentModDatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DocumentModDatePropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentModDatePropertyInfo = DocumentK - type AttrGetType DocumentModDatePropertyInfo = Int32 - type AttrLabel DocumentModDatePropertyInfo = "mod-date" - attrGet _ = getDocumentModDate - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "page-layout" - -- Type: TInterface "Poppler" "PageLayout" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDocumentPageLayout :: (MonadIO m, DocumentK o) => o -> m PageLayout -getDocumentPageLayout obj = liftIO $ getObjectPropertyEnum obj "page-layout" - -data DocumentPageLayoutPropertyInfo -instance AttrInfo DocumentPageLayoutPropertyInfo where - type AttrAllowedOps DocumentPageLayoutPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DocumentPageLayoutPropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentPageLayoutPropertyInfo = DocumentK - type AttrGetType DocumentPageLayoutPropertyInfo = PageLayout - type AttrLabel DocumentPageLayoutPropertyInfo = "page-layout" - attrGet _ = getDocumentPageLayout - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "page-mode" - -- Type: TInterface "Poppler" "PageMode" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDocumentPageMode :: (MonadIO m, DocumentK o) => o -> m PageMode -getDocumentPageMode obj = liftIO $ getObjectPropertyEnum obj "page-mode" - -data DocumentPageModePropertyInfo -instance AttrInfo DocumentPageModePropertyInfo where - type AttrAllowedOps DocumentPageModePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DocumentPageModePropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentPageModePropertyInfo = DocumentK - type AttrGetType DocumentPageModePropertyInfo = PageMode - type AttrLabel DocumentPageModePropertyInfo = "page-mode" - attrGet _ = getDocumentPageMode - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "permissions" - -- Type: TInterface "Poppler" "Permissions" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDocumentPermissions :: (MonadIO m, DocumentK o) => o -> m [Permissions] -getDocumentPermissions obj = liftIO $ getObjectPropertyFlags obj "permissions" - -data DocumentPermissionsPropertyInfo -instance AttrInfo DocumentPermissionsPropertyInfo where - type AttrAllowedOps DocumentPermissionsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DocumentPermissionsPropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentPermissionsPropertyInfo = DocumentK - type AttrGetType DocumentPermissionsPropertyInfo = [Permissions] - type AttrLabel DocumentPermissionsPropertyInfo = "permissions" - attrGet _ = getDocumentPermissions - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "producer" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDocumentProducer :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) -getDocumentProducer obj = liftIO $ getObjectPropertyString obj "producer" - -data DocumentProducerPropertyInfo -instance AttrInfo DocumentProducerPropertyInfo where - type AttrAllowedOps DocumentProducerPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DocumentProducerPropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentProducerPropertyInfo = DocumentK - type AttrGetType DocumentProducerPropertyInfo = (Maybe T.Text) - type AttrLabel DocumentProducerPropertyInfo = "producer" - attrGet _ = getDocumentProducer - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "subject" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDocumentSubject :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) -getDocumentSubject obj = liftIO $ getObjectPropertyString obj "subject" - -data DocumentSubjectPropertyInfo -instance AttrInfo DocumentSubjectPropertyInfo where - type AttrAllowedOps DocumentSubjectPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DocumentSubjectPropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentSubjectPropertyInfo = DocumentK - type AttrGetType DocumentSubjectPropertyInfo = (Maybe T.Text) - type AttrLabel DocumentSubjectPropertyInfo = "subject" - attrGet _ = getDocumentSubject - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "title" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDocumentTitle :: (MonadIO m, DocumentK o) => o -> m (Maybe T.Text) -getDocumentTitle obj = liftIO $ getObjectPropertyString obj "title" - -data DocumentTitlePropertyInfo -instance AttrInfo DocumentTitlePropertyInfo where - type AttrAllowedOps DocumentTitlePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DocumentTitlePropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentTitlePropertyInfo = DocumentK - type AttrGetType DocumentTitlePropertyInfo = (Maybe T.Text) - type AttrLabel DocumentTitlePropertyInfo = "title" - attrGet _ = getDocumentTitle - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "viewer-preferences" - -- Type: TInterface "Poppler" "ViewerPreferences" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDocumentViewerPreferences :: (MonadIO m, DocumentK o) => o -> m [ViewerPreferences] -getDocumentViewerPreferences obj = liftIO $ getObjectPropertyFlags obj "viewer-preferences" - -data DocumentViewerPreferencesPropertyInfo -instance AttrInfo DocumentViewerPreferencesPropertyInfo where - type AttrAllowedOps DocumentViewerPreferencesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DocumentViewerPreferencesPropertyInfo = (~) () - type AttrBaseTypeConstraint DocumentViewerPreferencesPropertyInfo = DocumentK - type AttrGetType DocumentViewerPreferencesPropertyInfo = [ViewerPreferences] - type AttrLabel DocumentViewerPreferencesPropertyInfo = "viewer-preferences" - attrGet _ = getDocumentViewerPreferences - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList Document = DocumentAttributeList -type DocumentAttributeList = ('[ '("author", DocumentAuthorPropertyInfo), '("creationDate", DocumentCreationDatePropertyInfo), '("creator", DocumentCreatorPropertyInfo), '("format", DocumentFormatPropertyInfo), '("formatMajor", DocumentFormatMajorPropertyInfo), '("formatMinor", DocumentFormatMinorPropertyInfo), '("keywords", DocumentKeywordsPropertyInfo), '("linearized", DocumentLinearizedPropertyInfo), '("metadata", DocumentMetadataPropertyInfo), '("modDate", DocumentModDatePropertyInfo), '("pageLayout", DocumentPageLayoutPropertyInfo), '("pageMode", DocumentPageModePropertyInfo), '("permissions", DocumentPermissionsPropertyInfo), '("producer", DocumentProducerPropertyInfo), '("subject", DocumentSubjectPropertyInfo), '("title", DocumentTitlePropertyInfo), '("viewerPreferences", DocumentViewerPreferencesPropertyInfo)] :: [(Symbol, *)]) - -documentAuthor :: AttrLabelProxy "author" -documentAuthor = AttrLabelProxy - -documentCreationDate :: AttrLabelProxy "creationDate" -documentCreationDate = AttrLabelProxy - -documentCreator :: AttrLabelProxy "creator" -documentCreator = AttrLabelProxy - -documentFormat :: AttrLabelProxy "format" -documentFormat = AttrLabelProxy - -documentFormatMajor :: AttrLabelProxy "formatMajor" -documentFormatMajor = AttrLabelProxy - -documentFormatMinor :: AttrLabelProxy "formatMinor" -documentFormatMinor = AttrLabelProxy - -documentKeywords :: AttrLabelProxy "keywords" -documentKeywords = AttrLabelProxy - -documentLinearized :: AttrLabelProxy "linearized" -documentLinearized = AttrLabelProxy - -documentMetadata :: AttrLabelProxy "metadata" -documentMetadata = AttrLabelProxy - -documentModDate :: AttrLabelProxy "modDate" -documentModDate = AttrLabelProxy - -documentPageLayout :: AttrLabelProxy "pageLayout" -documentPageLayout = AttrLabelProxy - -documentPageMode :: AttrLabelProxy "pageMode" -documentPageMode = AttrLabelProxy - -documentPermissions :: AttrLabelProxy "permissions" -documentPermissions = AttrLabelProxy - -documentProducer :: AttrLabelProxy "producer" -documentProducer = AttrLabelProxy - -documentSubject :: AttrLabelProxy "subject" -documentSubject = AttrLabelProxy - -documentTitle :: AttrLabelProxy "title" -documentTitle = AttrLabelProxy - -documentViewerPreferences :: AttrLabelProxy "viewerPreferences" -documentViewerPreferences = AttrLabelProxy - -type instance SignalList Document = DocumentSignalList -type DocumentSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Document::new_from_data --- method type : Constructor --- Args : [Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Document") --- throws : True --- Skip return : False - -foreign import ccall "poppler_document_new_from_data" poppler_document_new_from_data :: - CString -> -- data : TBasicType TUTF8 - Int32 -> -- length : TBasicType TInt - CString -> -- password : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr Document) - - -documentNewFromData :: - (MonadIO m) => - T.Text -- data_ - -> Int32 -- length_ - -> Maybe (T.Text) -- password - -> m Document -- result -documentNewFromData data_ length_ password = liftIO $ do - data_' <- textToCString data_ - maybePassword <- case password of - Nothing -> return nullPtr - Just jPassword -> do - jPassword' <- textToCString jPassword - return jPassword' - onException (do - result <- propagateGError $ poppler_document_new_from_data data_' length_ maybePassword - checkUnexpectedReturnNULL "poppler_document_new_from_data" result - result' <- (wrapObject Document) result - freeMem data_' - freeMem maybePassword - return result' - ) (do - freeMem data_' - freeMem maybePassword - ) - --- method Document::new_from_file --- method type : Constructor --- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Document") --- throws : True --- Skip return : False - -foreign import ccall "poppler_document_new_from_file" poppler_document_new_from_file :: - CString -> -- uri : TBasicType TUTF8 - CString -> -- password : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr Document) - - -documentNewFromFile :: - (MonadIO m) => - T.Text -- uri - -> Maybe (T.Text) -- password - -> m Document -- result -documentNewFromFile uri password = liftIO $ do - uri' <- textToCString uri - maybePassword <- case password of - Nothing -> return nullPtr - Just jPassword -> do - jPassword' <- textToCString jPassword - return jPassword' - onException (do - result <- propagateGError $ poppler_document_new_from_file uri' maybePassword - checkUnexpectedReturnNULL "poppler_document_new_from_file" result - result' <- (wrapObject Document) result - freeMem uri' - freeMem maybePassword - return result' - ) (do - freeMem uri' - freeMem maybePassword - ) - --- method Document::new_from_gfile --- method type : Constructor --- Args : [Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Document") --- throws : True --- Skip return : False - -foreign import ccall "poppler_document_new_from_gfile" poppler_document_new_from_gfile :: - Ptr Gio.File -> -- file : TInterface "Gio" "File" - CString -> -- password : TBasicType TUTF8 - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr Document) - - -documentNewFromGfile :: - (MonadIO m, Gio.FileK a, Gio.CancellableK b) => - a -- file - -> Maybe (T.Text) -- password - -> Maybe (b) -- cancellable - -> m Document -- result -documentNewFromGfile file password cancellable = liftIO $ do - let file' = unsafeManagedPtrCastPtr file - maybePassword <- case password of - Nothing -> return nullPtr - Just jPassword -> do - jPassword' <- textToCString jPassword - return jPassword' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ poppler_document_new_from_gfile file' maybePassword maybeCancellable - checkUnexpectedReturnNULL "poppler_document_new_from_gfile" result - result' <- (wrapObject Document) result - touchManagedPtr file - whenJust cancellable touchManagedPtr - freeMem maybePassword - return result' - ) (do - freeMem maybePassword - ) - --- method Document::new_from_stream --- method type : Constructor --- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Document") --- throws : True --- Skip return : False - -foreign import ccall "poppler_document_new_from_stream" poppler_document_new_from_stream :: - Ptr Gio.InputStream -> -- stream : TInterface "Gio" "InputStream" - Int64 -> -- length : TBasicType TInt64 - CString -> -- password : TBasicType TUTF8 - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr Document) - - -documentNewFromStream :: - (MonadIO m, Gio.InputStreamK a, Gio.CancellableK b) => - a -- stream - -> Int64 -- length_ - -> Maybe (T.Text) -- password - -> Maybe (b) -- cancellable - -> m Document -- result -documentNewFromStream stream length_ password cancellable = liftIO $ do - let stream' = unsafeManagedPtrCastPtr stream - maybePassword <- case password of - Nothing -> return nullPtr - Just jPassword -> do - jPassword' <- textToCString jPassword - return jPassword' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ poppler_document_new_from_stream stream' length_ maybePassword maybeCancellable - checkUnexpectedReturnNULL "poppler_document_new_from_stream" result - result' <- (wrapObject Document) result - touchManagedPtr stream - whenJust cancellable touchManagedPtr - freeMem maybePassword - return result' - ) (do - freeMem maybePassword - ) - --- method Document::find_dest --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "link_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Dest") --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_find_dest" poppler_document_find_dest :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - CString -> -- link_name : TBasicType TUTF8 - IO (Ptr Dest) - - -documentFindDest :: - (MonadIO m, DocumentK a) => - a -- _obj - -> T.Text -- linkName - -> m Dest -- result -documentFindDest _obj linkName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - linkName' <- textToCString linkName - result <- poppler_document_find_dest _obj' linkName' - checkUnexpectedReturnNULL "poppler_document_find_dest" result - result' <- (wrapBoxed Dest) result - touchManagedPtr _obj - freeMem linkName' - return result' - -data DocumentFindDestMethodInfo -instance (signature ~ (T.Text -> m Dest), MonadIO m, DocumentK a) => MethodInfo DocumentFindDestMethodInfo a signature where - overloadedMethod _ = documentFindDest - --- method Document::get_attachments --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Poppler" "Attachment")) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_attachments" poppler_document_get_attachments :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO (Ptr (GList (Ptr Attachment))) - - -documentGetAttachments :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m [Attachment] -- result -documentGetAttachments _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_attachments _obj' - result' <- unpackGList result - result'' <- mapM (wrapObject Attachment) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data DocumentGetAttachmentsMethodInfo -instance (signature ~ (m [Attachment]), MonadIO m, DocumentK a) => MethodInfo DocumentGetAttachmentsMethodInfo a signature where - overloadedMethod _ = documentGetAttachments - --- method Document::get_author --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_author" poppler_document_get_author :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO CString - - -documentGetAuthor :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m T.Text -- result -documentGetAuthor _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_author _obj' - checkUnexpectedReturnNULL "poppler_document_get_author" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data DocumentGetAuthorMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetAuthorMethodInfo a signature where - overloadedMethod _ = documentGetAuthor - --- method Document::get_creation_date --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_creation_date" poppler_document_get_creation_date :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO CLong - - -documentGetCreationDate :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m CLong -- result -documentGetCreationDate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_creation_date _obj' - touchManagedPtr _obj - return result - -data DocumentGetCreationDateMethodInfo -instance (signature ~ (m CLong), MonadIO m, DocumentK a) => MethodInfo DocumentGetCreationDateMethodInfo a signature where - overloadedMethod _ = documentGetCreationDate - --- method Document::get_creator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_creator" poppler_document_get_creator :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO CString - - -documentGetCreator :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m T.Text -- result -documentGetCreator _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_creator _obj' - checkUnexpectedReturnNULL "poppler_document_get_creator" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data DocumentGetCreatorMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetCreatorMethodInfo a signature where - overloadedMethod _ = documentGetCreator - --- method Document::get_form_field --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "FormField") --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_form_field" poppler_document_get_form_field :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - Int32 -> -- id : TBasicType TInt - IO (Ptr FormField) - - -documentGetFormField :: - (MonadIO m, DocumentK a) => - a -- _obj - -> Int32 -- id - -> m FormField -- result -documentGetFormField _obj id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_form_field _obj' id - checkUnexpectedReturnNULL "poppler_document_get_form_field" result - result' <- (wrapObject FormField) result - touchManagedPtr _obj - return result' - -data DocumentGetFormFieldMethodInfo -instance (signature ~ (Int32 -> m FormField), MonadIO m, DocumentK a) => MethodInfo DocumentGetFormFieldMethodInfo a signature where - overloadedMethod _ = documentGetFormField - --- method Document::get_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "permanent_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "update_id", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_id" poppler_document_get_id :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - Ptr CString -> -- permanent_id : TBasicType TUTF8 - Ptr CString -> -- update_id : TBasicType TUTF8 - IO CInt - - -documentGetId :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m (Bool,T.Text,T.Text) -- result -documentGetId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - permanentId <- allocMem :: IO (Ptr CString) - updateId <- allocMem :: IO (Ptr CString) - result <- poppler_document_get_id _obj' permanentId updateId - let result' = (/= 0) result - permanentId' <- peek permanentId - permanentId'' <- cstringToText permanentId' - freeMem permanentId' - updateId' <- peek updateId - updateId'' <- cstringToText updateId' - freeMem updateId' - touchManagedPtr _obj - freeMem permanentId - freeMem updateId - return (result', permanentId'', updateId'') - -data DocumentGetIdMethodInfo -instance (signature ~ (m (Bool,T.Text,T.Text)), MonadIO m, DocumentK a) => MethodInfo DocumentGetIdMethodInfo a signature where - overloadedMethod _ = documentGetId - --- method Document::get_keywords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_keywords" poppler_document_get_keywords :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO CString - - -documentGetKeywords :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m T.Text -- result -documentGetKeywords _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_keywords _obj' - checkUnexpectedReturnNULL "poppler_document_get_keywords" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data DocumentGetKeywordsMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetKeywordsMethodInfo a signature where - overloadedMethod _ = documentGetKeywords - --- method Document::get_metadata --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_metadata" poppler_document_get_metadata :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO CString - - -documentGetMetadata :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m T.Text -- result -documentGetMetadata _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_metadata _obj' - checkUnexpectedReturnNULL "poppler_document_get_metadata" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data DocumentGetMetadataMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetMetadataMethodInfo a signature where - overloadedMethod _ = documentGetMetadata - --- method Document::get_modification_date --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_modification_date" poppler_document_get_modification_date :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO CLong - - -documentGetModificationDate :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m CLong -- result -documentGetModificationDate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_modification_date _obj' - touchManagedPtr _obj - return result - -data DocumentGetModificationDateMethodInfo -instance (signature ~ (m CLong), MonadIO m, DocumentK a) => MethodInfo DocumentGetModificationDateMethodInfo a signature where - overloadedMethod _ = documentGetModificationDate - --- method Document::get_n_attachments --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_n_attachments" poppler_document_get_n_attachments :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO Word32 - - -documentGetNAttachments :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m Word32 -- result -documentGetNAttachments _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_n_attachments _obj' - touchManagedPtr _obj - return result - -data DocumentGetNAttachmentsMethodInfo -instance (signature ~ (m Word32), MonadIO m, DocumentK a) => MethodInfo DocumentGetNAttachmentsMethodInfo a signature where - overloadedMethod _ = documentGetNAttachments - --- method Document::get_n_pages --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_n_pages" poppler_document_get_n_pages :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO Int32 - - -documentGetNPages :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m Int32 -- result -documentGetNPages _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_n_pages _obj' - touchManagedPtr _obj - return result - -data DocumentGetNPagesMethodInfo -instance (signature ~ (m Int32), MonadIO m, DocumentK a) => MethodInfo DocumentGetNPagesMethodInfo a signature where - overloadedMethod _ = documentGetNPages - --- method Document::get_page --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Page") --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_page" poppler_document_get_page :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - Int32 -> -- index : TBasicType TInt - IO (Ptr Page) - - -documentGetPage :: - (MonadIO m, DocumentK a) => - a -- _obj - -> Int32 -- index - -> m Page -- result -documentGetPage _obj index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_page _obj' index - checkUnexpectedReturnNULL "poppler_document_get_page" result - result' <- (wrapObject Page) result - touchManagedPtr _obj - return result' - -data DocumentGetPageMethodInfo -instance (signature ~ (Int32 -> m Page), MonadIO m, DocumentK a) => MethodInfo DocumentGetPageMethodInfo a signature where - overloadedMethod _ = documentGetPage - --- method Document::get_page_by_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Page") --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_page_by_label" poppler_document_get_page_by_label :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - CString -> -- label : TBasicType TUTF8 - IO (Ptr Page) - - -documentGetPageByLabel :: - (MonadIO m, DocumentK a) => - a -- _obj - -> T.Text -- label - -> m Page -- result -documentGetPageByLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - label' <- textToCString label - result <- poppler_document_get_page_by_label _obj' label' - checkUnexpectedReturnNULL "poppler_document_get_page_by_label" result - result' <- (wrapObject Page) result - touchManagedPtr _obj - freeMem label' - return result' - -data DocumentGetPageByLabelMethodInfo -instance (signature ~ (T.Text -> m Page), MonadIO m, DocumentK a) => MethodInfo DocumentGetPageByLabelMethodInfo a signature where - overloadedMethod _ = documentGetPageByLabel - --- method Document::get_page_layout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "PageLayout") --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_page_layout" poppler_document_get_page_layout :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO CUInt - - -documentGetPageLayout :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m PageLayout -- result -documentGetPageLayout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_page_layout _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data DocumentGetPageLayoutMethodInfo -instance (signature ~ (m PageLayout), MonadIO m, DocumentK a) => MethodInfo DocumentGetPageLayoutMethodInfo a signature where - overloadedMethod _ = documentGetPageLayout - --- method Document::get_page_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "PageMode") --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_page_mode" poppler_document_get_page_mode :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO CUInt - - -documentGetPageMode :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m PageMode -- result -documentGetPageMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_page_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data DocumentGetPageModeMethodInfo -instance (signature ~ (m PageMode), MonadIO m, DocumentK a) => MethodInfo DocumentGetPageModeMethodInfo a signature where - overloadedMethod _ = documentGetPageMode - --- method Document::get_pdf_version --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major_version", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor_version", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_pdf_version" poppler_document_get_pdf_version :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - Ptr Word32 -> -- major_version : TBasicType TUInt - Ptr Word32 -> -- minor_version : TBasicType TUInt - IO () - - -documentGetPdfVersion :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m (Word32,Word32) -- result -documentGetPdfVersion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - majorVersion <- allocMem :: IO (Ptr Word32) - minorVersion <- allocMem :: IO (Ptr Word32) - poppler_document_get_pdf_version _obj' majorVersion minorVersion - majorVersion' <- peek majorVersion - minorVersion' <- peek minorVersion - touchManagedPtr _obj - freeMem majorVersion - freeMem minorVersion - return (majorVersion', minorVersion') - -data DocumentGetPdfVersionMethodInfo -instance (signature ~ (m (Word32,Word32)), MonadIO m, DocumentK a) => MethodInfo DocumentGetPdfVersionMethodInfo a signature where - overloadedMethod _ = documentGetPdfVersion - --- method Document::get_pdf_version_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_pdf_version_string" poppler_document_get_pdf_version_string :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO CString - - -documentGetPdfVersionString :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m T.Text -- result -documentGetPdfVersionString _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_pdf_version_string _obj' - checkUnexpectedReturnNULL "poppler_document_get_pdf_version_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data DocumentGetPdfVersionStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetPdfVersionStringMethodInfo a signature where - overloadedMethod _ = documentGetPdfVersionString - --- method Document::get_permissions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Permissions") --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_permissions" poppler_document_get_permissions :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO CUInt - - -documentGetPermissions :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m [Permissions] -- result -documentGetPermissions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_permissions _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data DocumentGetPermissionsMethodInfo -instance (signature ~ (m [Permissions]), MonadIO m, DocumentK a) => MethodInfo DocumentGetPermissionsMethodInfo a signature where - overloadedMethod _ = documentGetPermissions - --- method Document::get_producer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_producer" poppler_document_get_producer :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO CString - - -documentGetProducer :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m T.Text -- result -documentGetProducer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_producer _obj' - checkUnexpectedReturnNULL "poppler_document_get_producer" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data DocumentGetProducerMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetProducerMethodInfo a signature where - overloadedMethod _ = documentGetProducer - --- method Document::get_subject --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_subject" poppler_document_get_subject :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO CString - - -documentGetSubject :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m T.Text -- result -documentGetSubject _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_subject _obj' - checkUnexpectedReturnNULL "poppler_document_get_subject" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data DocumentGetSubjectMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetSubjectMethodInfo a signature where - overloadedMethod _ = documentGetSubject - --- method Document::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_get_title" poppler_document_get_title :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO CString - - -documentGetTitle :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m T.Text -- result -documentGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_get_title _obj' - checkUnexpectedReturnNULL "poppler_document_get_title" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data DocumentGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DocumentK a) => MethodInfo DocumentGetTitleMethodInfo a signature where - overloadedMethod _ = documentGetTitle - --- method Document::has_attachments --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_has_attachments" poppler_document_has_attachments :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO CInt - - -documentHasAttachments :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m Bool -- result -documentHasAttachments _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_has_attachments _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DocumentHasAttachmentsMethodInfo -instance (signature ~ (m Bool), MonadIO m, DocumentK a) => MethodInfo DocumentHasAttachmentsMethodInfo a signature where - overloadedMethod _ = documentHasAttachments - --- method Document::is_linearized --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_document_is_linearized" poppler_document_is_linearized :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - IO CInt - - -documentIsLinearized :: - (MonadIO m, DocumentK a) => - a -- _obj - -> m Bool -- result -documentIsLinearized _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_document_is_linearized _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DocumentIsLinearizedMethodInfo -instance (signature ~ (m Bool), MonadIO m, DocumentK a) => MethodInfo DocumentIsLinearizedMethodInfo a signature where - overloadedMethod _ = documentIsLinearized - --- method Document::save --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "poppler_document_save" poppler_document_save :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -documentSave :: - (MonadIO m, DocumentK a) => - a -- _obj - -> T.Text -- uri - -> m () -- result -documentSave _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - onException (do - _ <- propagateGError $ poppler_document_save _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - ) (do - freeMem uri' - ) - -data DocumentSaveMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DocumentK a) => MethodInfo DocumentSaveMethodInfo a signature where - overloadedMethod _ = documentSave - --- method Document::save_a_copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "poppler_document_save_a_copy" poppler_document_save_a_copy :: - Ptr Document -> -- _obj : TInterface "Poppler" "Document" - CString -> -- uri : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -documentSaveACopy :: - (MonadIO m, DocumentK a) => - a -- _obj - -> T.Text -- uri - -> m () -- result -documentSaveACopy _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - onException (do - _ <- propagateGError $ poppler_document_save_a_copy _obj' uri' - touchManagedPtr _obj - freeMem uri' - return () - ) (do - freeMem uri' - ) - -data DocumentSaveACopyMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DocumentK a) => MethodInfo DocumentSaveACopyMethodInfo a signature where - overloadedMethod _ = documentSaveACopy - - diff --git a/GI/Poppler/Objects/Document.hs-boot b/GI/Poppler/Objects/Document.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/Document.hs-boot +++ /dev/null @@ -1,56 +0,0 @@ -module GI.Poppler.Objects.Document where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Document = Document (ForeignPtr Document) -instance GObject Document where -class GObject o => DocumentK o -instance (GObject o, IsDescendantOf Document o) => DocumentK o -data DocumentAuthorPropertyInfo -data DocumentCreationDatePropertyInfo -data DocumentCreatorPropertyInfo -data DocumentFormatPropertyInfo -data DocumentFormatMajorPropertyInfo -data DocumentFormatMinorPropertyInfo -data DocumentKeywordsPropertyInfo -data DocumentLinearizedPropertyInfo -data DocumentMetadataPropertyInfo -data DocumentModDatePropertyInfo -data DocumentPageLayoutPropertyInfo -data DocumentPageModePropertyInfo -data DocumentPermissionsPropertyInfo -data DocumentProducerPropertyInfo -data DocumentSubjectPropertyInfo -data DocumentTitlePropertyInfo -data DocumentViewerPreferencesPropertyInfo -data DocumentFindDestMethodInfo -data DocumentGetAttachmentsMethodInfo -data DocumentGetAuthorMethodInfo -data DocumentGetCreationDateMethodInfo -data DocumentGetCreatorMethodInfo -data DocumentGetFormFieldMethodInfo -data DocumentGetIdMethodInfo -data DocumentGetKeywordsMethodInfo -data DocumentGetMetadataMethodInfo -data DocumentGetModificationDateMethodInfo -data DocumentGetNAttachmentsMethodInfo -data DocumentGetNPagesMethodInfo -data DocumentGetPageMethodInfo -data DocumentGetPageByLabelMethodInfo -data DocumentGetPageLayoutMethodInfo -data DocumentGetPageModeMethodInfo -data DocumentGetPdfVersionMethodInfo -data DocumentGetPdfVersionStringMethodInfo -data DocumentGetPermissionsMethodInfo -data DocumentGetProducerMethodInfo -data DocumentGetSubjectMethodInfo -data DocumentGetTitleMethodInfo -data DocumentHasAttachmentsMethodInfo -data DocumentIsLinearizedMethodInfo -data DocumentSaveMethodInfo -data DocumentSaveACopyMethodInfo diff --git a/GI/Poppler/Objects/FontInfo.hs b/GI/Poppler/Objects/FontInfo.hs deleted file mode 100644 --- a/GI/Poppler/Objects/FontInfo.hs +++ /dev/null @@ -1,198 +0,0 @@ - - -{- | -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.FontInfo - ( - --- * Exported types - FontInfo(..) , - FontInfoK , - toFontInfo , - noFontInfo , - - - -- * Methods --- ** fontInfoFree - FontInfoFreeMethodInfo , - fontInfoFree , - - --- ** fontInfoNew - fontInfoNew , - - --- ** fontInfoScan - FontInfoScanMethodInfo , - fontInfoScan , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 FontInfo = FontInfo (ForeignPtr FontInfo) -foreign import ccall "poppler_font_info_get_type" - c_poppler_font_info_get_type :: IO GType - -type instance ParentTypes FontInfo = FontInfoParentTypes -type FontInfoParentTypes = '[GObject.Object] - -instance GObject FontInfo where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_font_info_get_type - - -class GObject o => FontInfoK o -instance (GObject o, IsDescendantOf FontInfo o) => FontInfoK o - -toFontInfo :: FontInfoK o => o -> IO FontInfo -toFontInfo = unsafeCastTo FontInfo - -noFontInfo :: Maybe FontInfo -noFontInfo = Nothing - -type family ResolveFontInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveFontInfoMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFontInfoMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFontInfoMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFontInfoMethod "free" o = FontInfoFreeMethodInfo - ResolveFontInfoMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFontInfoMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFontInfoMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFontInfoMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFontInfoMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFontInfoMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFontInfoMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFontInfoMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFontInfoMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFontInfoMethod "scan" o = FontInfoScanMethodInfo - ResolveFontInfoMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFontInfoMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFontInfoMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFontInfoMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFontInfoMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFontInfoMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFontInfoMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFontInfoMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFontInfoMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFontInfoMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFontInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFontInfoMethod t FontInfo, MethodInfo info FontInfo p) => IsLabelProxy t (FontInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFontInfoMethod t FontInfo, MethodInfo info FontInfo p) => IsLabel t (FontInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FontInfo = FontInfoAttributeList -type FontInfoAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList FontInfo = FontInfoSignalList -type FontInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FontInfo::new --- method type : Constructor --- Args : [Arg {argCName = "document", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "FontInfo") --- throws : False --- Skip return : False - -foreign import ccall "poppler_font_info_new" poppler_font_info_new :: - Ptr Document -> -- document : TInterface "Poppler" "Document" - IO (Ptr FontInfo) - - -fontInfoNew :: - (MonadIO m, DocumentK a) => - a -- document - -> m FontInfo -- result -fontInfoNew document = liftIO $ do - let document' = unsafeManagedPtrCastPtr document - result <- poppler_font_info_new document' - checkUnexpectedReturnNULL "poppler_font_info_new" result - result' <- (wrapObject FontInfo) result - touchManagedPtr document - return result' - --- method FontInfo::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_font_info_free" poppler_font_info_free :: - Ptr FontInfo -> -- _obj : TInterface "Poppler" "FontInfo" - IO () - - -fontInfoFree :: - (MonadIO m, FontInfoK a) => - a -- _obj - -> m () -- result -fontInfoFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - poppler_font_info_free _obj' - touchManagedPtr _obj - return () - -data FontInfoFreeMethodInfo -instance (signature ~ (m ()), MonadIO m, FontInfoK a) => MethodInfo FontInfoFreeMethodInfo a signature where - overloadedMethod _ = fontInfoFree - --- method FontInfo::scan --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_pages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Poppler" "FontsIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_font_info_scan" poppler_font_info_scan :: - Ptr FontInfo -> -- _obj : TInterface "Poppler" "FontInfo" - Int32 -> -- n_pages : TBasicType TInt - Ptr (Ptr FontsIter) -> -- iter : TInterface "Poppler" "FontsIter" - IO CInt - - -fontInfoScan :: - (MonadIO m, FontInfoK a) => - a -- _obj - -> Int32 -- nPages - -> m (Bool,FontsIter) -- result -fontInfoScan _obj nPages = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iter <- allocMem :: IO (Ptr (Ptr FontsIter)) - result <- poppler_font_info_scan _obj' nPages iter - let result' = (/= 0) result - iter' <- peek iter - iter'' <- (wrapBoxed FontsIter) iter' - touchManagedPtr _obj - freeMem iter - return (result', iter'') - -data FontInfoScanMethodInfo -instance (signature ~ (Int32 -> m (Bool,FontsIter)), MonadIO m, FontInfoK a) => MethodInfo FontInfoScanMethodInfo a signature where - overloadedMethod _ = fontInfoScan - - diff --git a/GI/Poppler/Objects/FontInfo.hs-boot b/GI/Poppler/Objects/FontInfo.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/FontInfo.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Poppler.Objects.FontInfo where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FontInfo = FontInfo (ForeignPtr FontInfo) -instance GObject FontInfo where -class GObject o => FontInfoK o -instance (GObject o, IsDescendantOf FontInfo o) => FontInfoK o -data FontInfoFreeMethodInfo -data FontInfoScanMethodInfo diff --git a/GI/Poppler/Objects/FormField.hs b/GI/Poppler/Objects/FormField.hs deleted file mode 100644 --- a/GI/Poppler/Objects/FormField.hs +++ /dev/null @@ -1,1206 +0,0 @@ - - -{- | -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.FormField - ( - --- * Exported types - FormField(..) , - FormFieldK , - toFormField , - noFormField , - - - -- * Methods --- ** formFieldButtonGetButtonType - FormFieldButtonGetButtonTypeMethodInfo , - formFieldButtonGetButtonType , - - --- ** formFieldButtonGetState - FormFieldButtonGetStateMethodInfo , - formFieldButtonGetState , - - --- ** formFieldButtonSetState - FormFieldButtonSetStateMethodInfo , - formFieldButtonSetState , - - --- ** formFieldChoiceCanSelectMultiple - FormFieldChoiceCanSelectMultipleMethodInfo, - formFieldChoiceCanSelectMultiple , - - --- ** formFieldChoiceCommitOnChange - FormFieldChoiceCommitOnChangeMethodInfo , - formFieldChoiceCommitOnChange , - - --- ** formFieldChoiceDoSpellCheck - FormFieldChoiceDoSpellCheckMethodInfo , - formFieldChoiceDoSpellCheck , - - --- ** formFieldChoiceGetChoiceType - FormFieldChoiceGetChoiceTypeMethodInfo , - formFieldChoiceGetChoiceType , - - --- ** formFieldChoiceGetItem - FormFieldChoiceGetItemMethodInfo , - formFieldChoiceGetItem , - - --- ** formFieldChoiceGetNItems - FormFieldChoiceGetNItemsMethodInfo , - formFieldChoiceGetNItems , - - --- ** formFieldChoiceGetText - FormFieldChoiceGetTextMethodInfo , - formFieldChoiceGetText , - - --- ** formFieldChoiceIsEditable - FormFieldChoiceIsEditableMethodInfo , - formFieldChoiceIsEditable , - - --- ** formFieldChoiceIsItemSelected - FormFieldChoiceIsItemSelectedMethodInfo , - formFieldChoiceIsItemSelected , - - --- ** formFieldChoiceSelectItem - FormFieldChoiceSelectItemMethodInfo , - formFieldChoiceSelectItem , - - --- ** formFieldChoiceSetText - FormFieldChoiceSetTextMethodInfo , - formFieldChoiceSetText , - - --- ** formFieldChoiceToggleItem - FormFieldChoiceToggleItemMethodInfo , - formFieldChoiceToggleItem , - - --- ** formFieldChoiceUnselectAll - FormFieldChoiceUnselectAllMethodInfo , - formFieldChoiceUnselectAll , - - --- ** formFieldGetAction - FormFieldGetActionMethodInfo , - formFieldGetAction , - - --- ** formFieldGetFieldType - FormFieldGetFieldTypeMethodInfo , - formFieldGetFieldType , - - --- ** formFieldGetFontSize - FormFieldGetFontSizeMethodInfo , - formFieldGetFontSize , - - --- ** formFieldGetId - FormFieldGetIdMethodInfo , - formFieldGetId , - - --- ** formFieldGetMappingName - FormFieldGetMappingNameMethodInfo , - formFieldGetMappingName , - - --- ** formFieldGetName - FormFieldGetNameMethodInfo , - formFieldGetName , - - --- ** formFieldGetPartialName - FormFieldGetPartialNameMethodInfo , - formFieldGetPartialName , - - --- ** formFieldIsReadOnly - FormFieldIsReadOnlyMethodInfo , - formFieldIsReadOnly , - - --- ** formFieldTextDoScroll - FormFieldTextDoScrollMethodInfo , - formFieldTextDoScroll , - - --- ** formFieldTextDoSpellCheck - FormFieldTextDoSpellCheckMethodInfo , - formFieldTextDoSpellCheck , - - --- ** formFieldTextGetMaxLen - FormFieldTextGetMaxLenMethodInfo , - formFieldTextGetMaxLen , - - --- ** formFieldTextGetText - FormFieldTextGetTextMethodInfo , - formFieldTextGetText , - - --- ** formFieldTextGetTextType - FormFieldTextGetTextTypeMethodInfo , - formFieldTextGetTextType , - - --- ** formFieldTextIsPassword - FormFieldTextIsPasswordMethodInfo , - formFieldTextIsPassword , - - --- ** formFieldTextIsRichText - FormFieldTextIsRichTextMethodInfo , - formFieldTextIsRichText , - - --- ** formFieldTextSetText - FormFieldTextSetTextMethodInfo , - formFieldTextSetText , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 FormField = FormField (ForeignPtr FormField) -foreign import ccall "poppler_form_field_get_type" - c_poppler_form_field_get_type :: IO GType - -type instance ParentTypes FormField = FormFieldParentTypes -type FormFieldParentTypes = '[GObject.Object] - -instance GObject FormField where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_form_field_get_type - - -class GObject o => FormFieldK o -instance (GObject o, IsDescendantOf FormField o) => FormFieldK o - -toFormField :: FormFieldK o => o -> IO FormField -toFormField = unsafeCastTo FormField - -noFormField :: Maybe FormField -noFormField = Nothing - -type family ResolveFormFieldMethod (t :: Symbol) (o :: *) :: * where - ResolveFormFieldMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFormFieldMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFormFieldMethod "buttonGetButtonType" o = FormFieldButtonGetButtonTypeMethodInfo - ResolveFormFieldMethod "buttonGetState" o = FormFieldButtonGetStateMethodInfo - ResolveFormFieldMethod "buttonSetState" o = FormFieldButtonSetStateMethodInfo - ResolveFormFieldMethod "choiceCanSelectMultiple" o = FormFieldChoiceCanSelectMultipleMethodInfo - ResolveFormFieldMethod "choiceCommitOnChange" o = FormFieldChoiceCommitOnChangeMethodInfo - ResolveFormFieldMethod "choiceDoSpellCheck" o = FormFieldChoiceDoSpellCheckMethodInfo - ResolveFormFieldMethod "choiceGetChoiceType" o = FormFieldChoiceGetChoiceTypeMethodInfo - ResolveFormFieldMethod "choiceGetItem" o = FormFieldChoiceGetItemMethodInfo - ResolveFormFieldMethod "choiceGetNItems" o = FormFieldChoiceGetNItemsMethodInfo - ResolveFormFieldMethod "choiceGetText" o = FormFieldChoiceGetTextMethodInfo - ResolveFormFieldMethod "choiceIsEditable" o = FormFieldChoiceIsEditableMethodInfo - ResolveFormFieldMethod "choiceIsItemSelected" o = FormFieldChoiceIsItemSelectedMethodInfo - ResolveFormFieldMethod "choiceSelectItem" o = FormFieldChoiceSelectItemMethodInfo - ResolveFormFieldMethod "choiceSetText" o = FormFieldChoiceSetTextMethodInfo - ResolveFormFieldMethod "choiceToggleItem" o = FormFieldChoiceToggleItemMethodInfo - ResolveFormFieldMethod "choiceUnselectAll" o = FormFieldChoiceUnselectAllMethodInfo - ResolveFormFieldMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFormFieldMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFormFieldMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFormFieldMethod "isReadOnly" o = FormFieldIsReadOnlyMethodInfo - ResolveFormFieldMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFormFieldMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFormFieldMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFormFieldMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFormFieldMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFormFieldMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFormFieldMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFormFieldMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFormFieldMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFormFieldMethod "textDoScroll" o = FormFieldTextDoScrollMethodInfo - ResolveFormFieldMethod "textDoSpellCheck" o = FormFieldTextDoSpellCheckMethodInfo - ResolveFormFieldMethod "textGetMaxLen" o = FormFieldTextGetMaxLenMethodInfo - ResolveFormFieldMethod "textGetText" o = FormFieldTextGetTextMethodInfo - ResolveFormFieldMethod "textGetTextType" o = FormFieldTextGetTextTypeMethodInfo - ResolveFormFieldMethod "textIsPassword" o = FormFieldTextIsPasswordMethodInfo - ResolveFormFieldMethod "textIsRichText" o = FormFieldTextIsRichTextMethodInfo - ResolveFormFieldMethod "textSetText" o = FormFieldTextSetTextMethodInfo - ResolveFormFieldMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFormFieldMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFormFieldMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFormFieldMethod "getAction" o = FormFieldGetActionMethodInfo - ResolveFormFieldMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFormFieldMethod "getFieldType" o = FormFieldGetFieldTypeMethodInfo - ResolveFormFieldMethod "getFontSize" o = FormFieldGetFontSizeMethodInfo - ResolveFormFieldMethod "getId" o = FormFieldGetIdMethodInfo - ResolveFormFieldMethod "getMappingName" o = FormFieldGetMappingNameMethodInfo - ResolveFormFieldMethod "getName" o = FormFieldGetNameMethodInfo - ResolveFormFieldMethod "getPartialName" o = FormFieldGetPartialNameMethodInfo - ResolveFormFieldMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFormFieldMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFormFieldMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFormFieldMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFormFieldMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFormFieldMethod t FormField, MethodInfo info FormField p) => IsLabelProxy t (FormField -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFormFieldMethod t FormField, MethodInfo info FormField p) => IsLabel t (FormField -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FormField = FormFieldAttributeList -type FormFieldAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList FormField = FormFieldSignalList -type FormFieldSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FormField::button_get_button_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "FormButtonType") --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_button_get_button_type" poppler_form_field_button_get_button_type :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CUInt - - -formFieldButtonGetButtonType :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m FormButtonType -- result -formFieldButtonGetButtonType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_button_get_button_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data FormFieldButtonGetButtonTypeMethodInfo -instance (signature ~ (m FormButtonType), MonadIO m, FormFieldK a) => MethodInfo FormFieldButtonGetButtonTypeMethodInfo a signature where - overloadedMethod _ = formFieldButtonGetButtonType - --- method FormField::button_get_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_button_get_state" poppler_form_field_button_get_state :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CInt - - -formFieldButtonGetState :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m Bool -- result -formFieldButtonGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_button_get_state _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FormFieldButtonGetStateMethodInfo -instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldButtonGetStateMethodInfo a signature where - overloadedMethod _ = formFieldButtonGetState - --- method FormField::button_set_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_button_set_state" poppler_form_field_button_set_state :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - CInt -> -- state : TBasicType TBoolean - IO () - - -formFieldButtonSetState :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> Bool -- state - -> m () -- result -formFieldButtonSetState _obj state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let state' = (fromIntegral . fromEnum) state - poppler_form_field_button_set_state _obj' state' - touchManagedPtr _obj - return () - -data FormFieldButtonSetStateMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldButtonSetStateMethodInfo a signature where - overloadedMethod _ = formFieldButtonSetState - --- method FormField::choice_can_select_multiple --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_choice_can_select_multiple" poppler_form_field_choice_can_select_multiple :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CInt - - -formFieldChoiceCanSelectMultiple :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m Bool -- result -formFieldChoiceCanSelectMultiple _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_choice_can_select_multiple _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FormFieldChoiceCanSelectMultipleMethodInfo -instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceCanSelectMultipleMethodInfo a signature where - overloadedMethod _ = formFieldChoiceCanSelectMultiple - --- method FormField::choice_commit_on_change --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_choice_commit_on_change" poppler_form_field_choice_commit_on_change :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CInt - - -formFieldChoiceCommitOnChange :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m Bool -- result -formFieldChoiceCommitOnChange _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_choice_commit_on_change _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FormFieldChoiceCommitOnChangeMethodInfo -instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceCommitOnChangeMethodInfo a signature where - overloadedMethod _ = formFieldChoiceCommitOnChange - --- method FormField::choice_do_spell_check --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_choice_do_spell_check" poppler_form_field_choice_do_spell_check :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CInt - - -formFieldChoiceDoSpellCheck :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m Bool -- result -formFieldChoiceDoSpellCheck _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_choice_do_spell_check _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FormFieldChoiceDoSpellCheckMethodInfo -instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceDoSpellCheckMethodInfo a signature where - overloadedMethod _ = formFieldChoiceDoSpellCheck - --- method FormField::choice_get_choice_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "FormChoiceType") --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_choice_get_choice_type" poppler_form_field_choice_get_choice_type :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CUInt - - -formFieldChoiceGetChoiceType :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m FormChoiceType -- result -formFieldChoiceGetChoiceType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_choice_get_choice_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data FormFieldChoiceGetChoiceTypeMethodInfo -instance (signature ~ (m FormChoiceType), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceGetChoiceTypeMethodInfo a signature where - overloadedMethod _ = formFieldChoiceGetChoiceType - --- method FormField::choice_get_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_choice_get_item" poppler_form_field_choice_get_item :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - Int32 -> -- index : TBasicType TInt - IO CString - - -formFieldChoiceGetItem :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> Int32 -- index - -> m T.Text -- result -formFieldChoiceGetItem _obj index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_choice_get_item _obj' index - checkUnexpectedReturnNULL "poppler_form_field_choice_get_item" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FormFieldChoiceGetItemMethodInfo -instance (signature ~ (Int32 -> m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceGetItemMethodInfo a signature where - overloadedMethod _ = formFieldChoiceGetItem - --- method FormField::choice_get_n_items --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_choice_get_n_items" poppler_form_field_choice_get_n_items :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO Int32 - - -formFieldChoiceGetNItems :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m Int32 -- result -formFieldChoiceGetNItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_choice_get_n_items _obj' - touchManagedPtr _obj - return result - -data FormFieldChoiceGetNItemsMethodInfo -instance (signature ~ (m Int32), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceGetNItemsMethodInfo a signature where - overloadedMethod _ = formFieldChoiceGetNItems - --- method FormField::choice_get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_choice_get_text" poppler_form_field_choice_get_text :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CString - - -formFieldChoiceGetText :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m T.Text -- result -formFieldChoiceGetText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_choice_get_text _obj' - checkUnexpectedReturnNULL "poppler_form_field_choice_get_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FormFieldChoiceGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceGetTextMethodInfo a signature where - overloadedMethod _ = formFieldChoiceGetText - --- method FormField::choice_is_editable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_choice_is_editable" poppler_form_field_choice_is_editable :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CInt - - -formFieldChoiceIsEditable :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m Bool -- result -formFieldChoiceIsEditable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_choice_is_editable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FormFieldChoiceIsEditableMethodInfo -instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceIsEditableMethodInfo a signature where - overloadedMethod _ = formFieldChoiceIsEditable - --- method FormField::choice_is_item_selected --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_choice_is_item_selected" poppler_form_field_choice_is_item_selected :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - Int32 -> -- index : TBasicType TInt - IO CInt - - -formFieldChoiceIsItemSelected :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> Int32 -- index - -> m Bool -- result -formFieldChoiceIsItemSelected _obj index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_choice_is_item_selected _obj' index - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FormFieldChoiceIsItemSelectedMethodInfo -instance (signature ~ (Int32 -> m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceIsItemSelectedMethodInfo a signature where - overloadedMethod _ = formFieldChoiceIsItemSelected - --- method FormField::choice_select_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_choice_select_item" poppler_form_field_choice_select_item :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - Int32 -> -- index : TBasicType TInt - IO () - - -formFieldChoiceSelectItem :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> Int32 -- index - -> m () -- result -formFieldChoiceSelectItem _obj index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - poppler_form_field_choice_select_item _obj' index - touchManagedPtr _obj - return () - -data FormFieldChoiceSelectItemMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceSelectItemMethodInfo a signature where - overloadedMethod _ = formFieldChoiceSelectItem - --- method FormField::choice_set_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_choice_set_text" poppler_form_field_choice_set_text :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - CString -> -- text : TBasicType TUTF8 - IO () - - -formFieldChoiceSetText :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> T.Text -- text - -> m () -- result -formFieldChoiceSetText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - poppler_form_field_choice_set_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - -data FormFieldChoiceSetTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceSetTextMethodInfo a signature where - overloadedMethod _ = formFieldChoiceSetText - --- method FormField::choice_toggle_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_choice_toggle_item" poppler_form_field_choice_toggle_item :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - Int32 -> -- index : TBasicType TInt - IO () - - -formFieldChoiceToggleItem :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> Int32 -- index - -> m () -- result -formFieldChoiceToggleItem _obj index = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - poppler_form_field_choice_toggle_item _obj' index - touchManagedPtr _obj - return () - -data FormFieldChoiceToggleItemMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceToggleItemMethodInfo a signature where - overloadedMethod _ = formFieldChoiceToggleItem - --- method FormField::choice_unselect_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_choice_unselect_all" poppler_form_field_choice_unselect_all :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO () - - -formFieldChoiceUnselectAll :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m () -- result -formFieldChoiceUnselectAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - poppler_form_field_choice_unselect_all _obj' - touchManagedPtr _obj - return () - -data FormFieldChoiceUnselectAllMethodInfo -instance (signature ~ (m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldChoiceUnselectAllMethodInfo a signature where - overloadedMethod _ = formFieldChoiceUnselectAll - --- method FormField::get_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Action") --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_get_action" poppler_form_field_get_action :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO (Ptr Action) - - -formFieldGetAction :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m Action -- result -formFieldGetAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_get_action _obj' - checkUnexpectedReturnNULL "poppler_form_field_get_action" result - result' <- (newBoxed Action) result - touchManagedPtr _obj - return result' - -data FormFieldGetActionMethodInfo -instance (signature ~ (m Action), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetActionMethodInfo a signature where - overloadedMethod _ = formFieldGetAction - --- method FormField::get_field_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "FormFieldType") --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_get_field_type" poppler_form_field_get_field_type :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CUInt - - -formFieldGetFieldType :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m FormFieldType -- result -formFieldGetFieldType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_get_field_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data FormFieldGetFieldTypeMethodInfo -instance (signature ~ (m FormFieldType), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetFieldTypeMethodInfo a signature where - overloadedMethod _ = formFieldGetFieldType - --- method FormField::get_font_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_get_font_size" poppler_form_field_get_font_size :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CDouble - - -formFieldGetFontSize :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m Double -- result -formFieldGetFontSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_get_font_size _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data FormFieldGetFontSizeMethodInfo -instance (signature ~ (m Double), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetFontSizeMethodInfo a signature where - overloadedMethod _ = formFieldGetFontSize - --- method FormField::get_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_get_id" poppler_form_field_get_id :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO Int32 - - -formFieldGetId :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m Int32 -- result -formFieldGetId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_get_id _obj' - touchManagedPtr _obj - return result - -data FormFieldGetIdMethodInfo -instance (signature ~ (m Int32), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetIdMethodInfo a signature where - overloadedMethod _ = formFieldGetId - --- method FormField::get_mapping_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_get_mapping_name" poppler_form_field_get_mapping_name :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CString - - -formFieldGetMappingName :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m T.Text -- result -formFieldGetMappingName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_get_mapping_name _obj' - checkUnexpectedReturnNULL "poppler_form_field_get_mapping_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FormFieldGetMappingNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetMappingNameMethodInfo a signature where - overloadedMethod _ = formFieldGetMappingName - --- method FormField::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_get_name" poppler_form_field_get_name :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CString - - -formFieldGetName :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m T.Text -- result -formFieldGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_get_name _obj' - checkUnexpectedReturnNULL "poppler_form_field_get_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FormFieldGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetNameMethodInfo a signature where - overloadedMethod _ = formFieldGetName - --- method FormField::get_partial_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_get_partial_name" poppler_form_field_get_partial_name :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CString - - -formFieldGetPartialName :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m T.Text -- result -formFieldGetPartialName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_get_partial_name _obj' - checkUnexpectedReturnNULL "poppler_form_field_get_partial_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FormFieldGetPartialNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldGetPartialNameMethodInfo a signature where - overloadedMethod _ = formFieldGetPartialName - --- method FormField::is_read_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_is_read_only" poppler_form_field_is_read_only :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CInt - - -formFieldIsReadOnly :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m Bool -- result -formFieldIsReadOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_is_read_only _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FormFieldIsReadOnlyMethodInfo -instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldIsReadOnlyMethodInfo a signature where - overloadedMethod _ = formFieldIsReadOnly - --- method FormField::text_do_scroll --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_text_do_scroll" poppler_form_field_text_do_scroll :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CInt - - -formFieldTextDoScroll :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m Bool -- result -formFieldTextDoScroll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_text_do_scroll _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FormFieldTextDoScrollMethodInfo -instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextDoScrollMethodInfo a signature where - overloadedMethod _ = formFieldTextDoScroll - --- method FormField::text_do_spell_check --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_text_do_spell_check" poppler_form_field_text_do_spell_check :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CInt - - -formFieldTextDoSpellCheck :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m Bool -- result -formFieldTextDoSpellCheck _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_text_do_spell_check _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FormFieldTextDoSpellCheckMethodInfo -instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextDoSpellCheckMethodInfo a signature where - overloadedMethod _ = formFieldTextDoSpellCheck - --- method FormField::text_get_max_len --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_text_get_max_len" poppler_form_field_text_get_max_len :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO Int32 - - -formFieldTextGetMaxLen :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m Int32 -- result -formFieldTextGetMaxLen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_text_get_max_len _obj' - touchManagedPtr _obj - return result - -data FormFieldTextGetMaxLenMethodInfo -instance (signature ~ (m Int32), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextGetMaxLenMethodInfo a signature where - overloadedMethod _ = formFieldTextGetMaxLen - --- method FormField::text_get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_text_get_text" poppler_form_field_text_get_text :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CString - - -formFieldTextGetText :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m T.Text -- result -formFieldTextGetText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_text_get_text _obj' - checkUnexpectedReturnNULL "poppler_form_field_text_get_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FormFieldTextGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextGetTextMethodInfo a signature where - overloadedMethod _ = formFieldTextGetText - --- method FormField::text_get_text_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "FormTextType") --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_text_get_text_type" poppler_form_field_text_get_text_type :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CUInt - - -formFieldTextGetTextType :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m FormTextType -- result -formFieldTextGetTextType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_text_get_text_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data FormFieldTextGetTextTypeMethodInfo -instance (signature ~ (m FormTextType), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextGetTextTypeMethodInfo a signature where - overloadedMethod _ = formFieldTextGetTextType - --- method FormField::text_is_password --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_text_is_password" poppler_form_field_text_is_password :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CInt - - -formFieldTextIsPassword :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m Bool -- result -formFieldTextIsPassword _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_text_is_password _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FormFieldTextIsPasswordMethodInfo -instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextIsPasswordMethodInfo a signature where - overloadedMethod _ = formFieldTextIsPassword - --- method FormField::text_is_rich_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_text_is_rich_text" poppler_form_field_text_is_rich_text :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - IO CInt - - -formFieldTextIsRichText :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> m Bool -- result -formFieldTextIsRichText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_form_field_text_is_rich_text _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FormFieldTextIsRichTextMethodInfo -instance (signature ~ (m Bool), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextIsRichTextMethodInfo a signature where - overloadedMethod _ = formFieldTextIsRichText - --- method FormField::text_set_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_text_set_text" poppler_form_field_text_set_text :: - Ptr FormField -> -- _obj : TInterface "Poppler" "FormField" - CString -> -- text : TBasicType TUTF8 - IO () - - -formFieldTextSetText :: - (MonadIO m, FormFieldK a) => - a -- _obj - -> T.Text -- text - -> m () -- result -formFieldTextSetText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - poppler_form_field_text_set_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - -data FormFieldTextSetTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FormFieldK a) => MethodInfo FormFieldTextSetTextMethodInfo a signature where - overloadedMethod _ = formFieldTextSetText - - diff --git a/GI/Poppler/Objects/FormField.hs-boot b/GI/Poppler/Objects/FormField.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/FormField.hs-boot +++ /dev/null @@ -1,45 +0,0 @@ -module GI.Poppler.Objects.FormField where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FormField = FormField (ForeignPtr FormField) -instance GObject FormField where -class GObject o => FormFieldK o -instance (GObject o, IsDescendantOf FormField o) => FormFieldK o -data FormFieldButtonGetButtonTypeMethodInfo -data FormFieldButtonGetStateMethodInfo -data FormFieldButtonSetStateMethodInfo -data FormFieldChoiceCanSelectMultipleMethodInfo -data FormFieldChoiceCommitOnChangeMethodInfo -data FormFieldChoiceDoSpellCheckMethodInfo -data FormFieldChoiceGetChoiceTypeMethodInfo -data FormFieldChoiceGetItemMethodInfo -data FormFieldChoiceGetNItemsMethodInfo -data FormFieldChoiceGetTextMethodInfo -data FormFieldChoiceIsEditableMethodInfo -data FormFieldChoiceIsItemSelectedMethodInfo -data FormFieldChoiceSelectItemMethodInfo -data FormFieldChoiceSetTextMethodInfo -data FormFieldChoiceToggleItemMethodInfo -data FormFieldChoiceUnselectAllMethodInfo -data FormFieldGetActionMethodInfo -data FormFieldGetFieldTypeMethodInfo -data FormFieldGetFontSizeMethodInfo -data FormFieldGetIdMethodInfo -data FormFieldGetMappingNameMethodInfo -data FormFieldGetNameMethodInfo -data FormFieldGetPartialNameMethodInfo -data FormFieldIsReadOnlyMethodInfo -data FormFieldTextDoScrollMethodInfo -data FormFieldTextDoSpellCheckMethodInfo -data FormFieldTextGetMaxLenMethodInfo -data FormFieldTextGetTextMethodInfo -data FormFieldTextGetTextTypeMethodInfo -data FormFieldTextIsPasswordMethodInfo -data FormFieldTextIsRichTextMethodInfo -data FormFieldTextSetTextMethodInfo diff --git a/GI/Poppler/Objects/Layer.hs b/GI/Poppler/Objects/Layer.hs deleted file mode 100644 --- a/GI/Poppler/Objects/Layer.hs +++ /dev/null @@ -1,297 +0,0 @@ - - -{- | -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.Layer - ( - --- * Exported types - Layer(..) , - LayerK , - toLayer , - noLayer , - - - -- * Methods --- ** layerGetRadioButtonGroupId - LayerGetRadioButtonGroupIdMethodInfo , - layerGetRadioButtonGroupId , - - --- ** layerGetTitle - LayerGetTitleMethodInfo , - layerGetTitle , - - --- ** layerHide - LayerHideMethodInfo , - layerHide , - - --- ** layerIsParent - LayerIsParentMethodInfo , - layerIsParent , - - --- ** layerIsVisible - LayerIsVisibleMethodInfo , - layerIsVisible , - - --- ** layerShow - LayerShowMethodInfo , - layerShow , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 Layer = Layer (ForeignPtr Layer) -foreign import ccall "poppler_layer_get_type" - c_poppler_layer_get_type :: IO GType - -type instance ParentTypes Layer = LayerParentTypes -type LayerParentTypes = '[GObject.Object] - -instance GObject Layer where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_layer_get_type - - -class GObject o => LayerK o -instance (GObject o, IsDescendantOf Layer o) => LayerK o - -toLayer :: LayerK o => o -> IO Layer -toLayer = unsafeCastTo Layer - -noLayer :: Maybe Layer -noLayer = Nothing - -type family ResolveLayerMethod (t :: Symbol) (o :: *) :: * where - ResolveLayerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveLayerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveLayerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveLayerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveLayerMethod "hide" o = LayerHideMethodInfo - ResolveLayerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveLayerMethod "isParent" o = LayerIsParentMethodInfo - ResolveLayerMethod "isVisible" o = LayerIsVisibleMethodInfo - ResolveLayerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveLayerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveLayerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveLayerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveLayerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveLayerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveLayerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveLayerMethod "show" o = LayerShowMethodInfo - ResolveLayerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveLayerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveLayerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveLayerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveLayerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveLayerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveLayerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveLayerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveLayerMethod "getRadioButtonGroupId" o = LayerGetRadioButtonGroupIdMethodInfo - ResolveLayerMethod "getTitle" o = LayerGetTitleMethodInfo - ResolveLayerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveLayerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveLayerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveLayerMethod t Layer, MethodInfo info Layer p) => IsLabelProxy t (Layer -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveLayerMethod t Layer, MethodInfo info Layer p) => IsLabel t (Layer -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Layer = LayerAttributeList -type LayerAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Layer = LayerSignalList -type LayerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Layer::get_radio_button_group_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "poppler_layer_get_radio_button_group_id" poppler_layer_get_radio_button_group_id :: - Ptr Layer -> -- _obj : TInterface "Poppler" "Layer" - IO Int32 - - -layerGetRadioButtonGroupId :: - (MonadIO m, LayerK a) => - a -- _obj - -> m Int32 -- result -layerGetRadioButtonGroupId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_layer_get_radio_button_group_id _obj' - touchManagedPtr _obj - return result - -data LayerGetRadioButtonGroupIdMethodInfo -instance (signature ~ (m Int32), MonadIO m, LayerK a) => MethodInfo LayerGetRadioButtonGroupIdMethodInfo a signature where - overloadedMethod _ = layerGetRadioButtonGroupId - --- method Layer::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_layer_get_title" poppler_layer_get_title :: - Ptr Layer -> -- _obj : TInterface "Poppler" "Layer" - IO CString - - -layerGetTitle :: - (MonadIO m, LayerK a) => - a -- _obj - -> m T.Text -- result -layerGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_layer_get_title _obj' - checkUnexpectedReturnNULL "poppler_layer_get_title" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data LayerGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m, LayerK a) => MethodInfo LayerGetTitleMethodInfo a signature where - overloadedMethod _ = layerGetTitle - --- method Layer::hide --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_layer_hide" poppler_layer_hide :: - Ptr Layer -> -- _obj : TInterface "Poppler" "Layer" - IO () - - -layerHide :: - (MonadIO m, LayerK a) => - a -- _obj - -> m () -- result -layerHide _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - poppler_layer_hide _obj' - touchManagedPtr _obj - return () - -data LayerHideMethodInfo -instance (signature ~ (m ()), MonadIO m, LayerK a) => MethodInfo LayerHideMethodInfo a signature where - overloadedMethod _ = layerHide - --- method Layer::is_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_layer_is_parent" poppler_layer_is_parent :: - Ptr Layer -> -- _obj : TInterface "Poppler" "Layer" - IO CInt - - -layerIsParent :: - (MonadIO m, LayerK a) => - a -- _obj - -> m Bool -- result -layerIsParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_layer_is_parent _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data LayerIsParentMethodInfo -instance (signature ~ (m Bool), MonadIO m, LayerK a) => MethodInfo LayerIsParentMethodInfo a signature where - overloadedMethod _ = layerIsParent - --- method Layer::is_visible --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_layer_is_visible" poppler_layer_is_visible :: - Ptr Layer -> -- _obj : TInterface "Poppler" "Layer" - IO CInt - - -layerIsVisible :: - (MonadIO m, LayerK a) => - a -- _obj - -> m Bool -- result -layerIsVisible _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_layer_is_visible _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data LayerIsVisibleMethodInfo -instance (signature ~ (m Bool), MonadIO m, LayerK a) => MethodInfo LayerIsVisibleMethodInfo a signature where - overloadedMethod _ = layerIsVisible - --- method Layer::show --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Layer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_layer_show" poppler_layer_show :: - Ptr Layer -> -- _obj : TInterface "Poppler" "Layer" - IO () - - -layerShow :: - (MonadIO m, LayerK a) => - a -- _obj - -> m () -- result -layerShow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - poppler_layer_show _obj' - touchManagedPtr _obj - return () - -data LayerShowMethodInfo -instance (signature ~ (m ()), MonadIO m, LayerK a) => MethodInfo LayerShowMethodInfo a signature where - overloadedMethod _ = layerShow - - diff --git a/GI/Poppler/Objects/Layer.hs-boot b/GI/Poppler/Objects/Layer.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/Layer.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Poppler.Objects.Layer where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Layer = Layer (ForeignPtr Layer) -instance GObject Layer where -class GObject o => LayerK o -instance (GObject o, IsDescendantOf Layer o) => LayerK o -data LayerGetRadioButtonGroupIdMethodInfo -data LayerGetTitleMethodInfo -data LayerHideMethodInfo -data LayerIsParentMethodInfo -data LayerIsVisibleMethodInfo -data LayerShowMethodInfo diff --git a/GI/Poppler/Objects/Media.hs b/GI/Poppler/Objects/Media.hs deleted file mode 100644 --- a/GI/Poppler/Objects/Media.hs +++ /dev/null @@ -1,286 +0,0 @@ - - -{- | -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.Media - ( - --- * Exported types - Media(..) , - MediaK , - toMedia , - noMedia , - - - -- * Methods --- ** mediaGetFilename - MediaGetFilenameMethodInfo , - mediaGetFilename , - - --- ** mediaGetMimeType - MediaGetMimeTypeMethodInfo , - mediaGetMimeType , - - --- ** mediaIsEmbedded - MediaIsEmbeddedMethodInfo , - mediaIsEmbedded , - - --- ** mediaSave - MediaSaveMethodInfo , - mediaSave , - - --- ** mediaSaveToCallback - MediaSaveToCallbackMethodInfo , - mediaSaveToCallback , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 Media = Media (ForeignPtr Media) -foreign import ccall "poppler_media_get_type" - c_poppler_media_get_type :: IO GType - -type instance ParentTypes Media = MediaParentTypes -type MediaParentTypes = '[GObject.Object] - -instance GObject Media where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_media_get_type - - -class GObject o => MediaK o -instance (GObject o, IsDescendantOf Media o) => MediaK o - -toMedia :: MediaK o => o -> IO Media -toMedia = unsafeCastTo Media - -noMedia :: Maybe Media -noMedia = Nothing - -type family ResolveMediaMethod (t :: Symbol) (o :: *) :: * where - ResolveMediaMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMediaMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMediaMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMediaMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMediaMethod "isEmbedded" o = MediaIsEmbeddedMethodInfo - ResolveMediaMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMediaMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMediaMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMediaMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMediaMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMediaMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMediaMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMediaMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMediaMethod "save" o = MediaSaveMethodInfo - ResolveMediaMethod "saveToCallback" o = MediaSaveToCallbackMethodInfo - ResolveMediaMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMediaMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMediaMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMediaMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMediaMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMediaMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMediaMethod "getFilename" o = MediaGetFilenameMethodInfo - ResolveMediaMethod "getMimeType" o = MediaGetMimeTypeMethodInfo - ResolveMediaMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMediaMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMediaMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMediaMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMediaMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMediaMethod t Media, MethodInfo info Media p) => IsLabelProxy t (Media -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMediaMethod t Media, MethodInfo info Media p) => IsLabel t (Media -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Media = MediaAttributeList -type MediaAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Media = MediaSignalList -type MediaSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Media::get_filename --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_media_get_filename" poppler_media_get_filename :: - Ptr Media -> -- _obj : TInterface "Poppler" "Media" - IO CString - - -mediaGetFilename :: - (MonadIO m, MediaK a) => - a -- _obj - -> m T.Text -- result -mediaGetFilename _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_media_get_filename _obj' - checkUnexpectedReturnNULL "poppler_media_get_filename" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data MediaGetFilenameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, MediaK a) => MethodInfo MediaGetFilenameMethodInfo a signature where - overloadedMethod _ = mediaGetFilename - --- method Media::get_mime_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_media_get_mime_type" poppler_media_get_mime_type :: - Ptr Media -> -- _obj : TInterface "Poppler" "Media" - IO CString - - -mediaGetMimeType :: - (MonadIO m, MediaK a) => - a -- _obj - -> m T.Text -- result -mediaGetMimeType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_media_get_mime_type _obj' - checkUnexpectedReturnNULL "poppler_media_get_mime_type" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data MediaGetMimeTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, MediaK a) => MethodInfo MediaGetMimeTypeMethodInfo a signature where - overloadedMethod _ = mediaGetMimeType - --- method Media::is_embedded --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_media_is_embedded" poppler_media_is_embedded :: - Ptr Media -> -- _obj : TInterface "Poppler" "Media" - IO CInt - - -mediaIsEmbedded :: - (MonadIO m, MediaK a) => - a -- _obj - -> m Bool -- result -mediaIsEmbedded _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_media_is_embedded _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MediaIsEmbeddedMethodInfo -instance (signature ~ (m Bool), MonadIO m, MediaK a) => MethodInfo MediaIsEmbeddedMethodInfo a signature where - overloadedMethod _ = mediaIsEmbedded - --- method Media::save --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "poppler_media_save" poppler_media_save :: - Ptr Media -> -- _obj : TInterface "Poppler" "Media" - CString -> -- filename : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -mediaSave :: - (MonadIO m, MediaK a) => - a -- _obj - -> T.Text -- filename - -> m () -- result -mediaSave _obj filename = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filename' <- textToCString filename - onException (do - _ <- propagateGError $ poppler_media_save _obj' filename' - touchManagedPtr _obj - freeMem filename' - return () - ) (do - freeMem filename' - ) - -data MediaSaveMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, MediaK a) => MethodInfo MediaSaveMethodInfo a signature where - overloadedMethod _ = mediaSave - --- method Media::save_to_callback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Media", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save_func", argType = TInterface "Poppler" "MediaSaveFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "poppler_media_save_to_callback" poppler_media_save_to_callback :: - Ptr Media -> -- _obj : TInterface "Poppler" "Media" - FunPtr MediaSaveFuncC -> -- save_func : TInterface "Poppler" "MediaSaveFunc" - Ptr () -> -- user_data : TBasicType TPtr - Ptr (Ptr GError) -> -- error - IO CInt - - -mediaSaveToCallback :: - (MonadIO m, MediaK a) => - a -- _obj - -> MediaSaveFunc -- saveFunc - -> m () -- result -mediaSaveToCallback _obj saveFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - saveFunc' <- mkMediaSaveFunc (mediaSaveFuncWrapper Nothing saveFunc) - let userData = nullPtr - onException (do - _ <- propagateGError $ poppler_media_save_to_callback _obj' saveFunc' userData - safeFreeFunPtr $ castFunPtrToPtr saveFunc' - touchManagedPtr _obj - return () - ) (do - safeFreeFunPtr $ castFunPtrToPtr saveFunc' - return () - ) - -data MediaSaveToCallbackMethodInfo -instance (signature ~ (MediaSaveFunc -> m ()), MonadIO m, MediaK a) => MethodInfo MediaSaveToCallbackMethodInfo a signature where - overloadedMethod _ = mediaSaveToCallback - - diff --git a/GI/Poppler/Objects/Media.hs-boot b/GI/Poppler/Objects/Media.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/Media.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Poppler.Objects.Media where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Media = Media (ForeignPtr Media) -instance GObject Media where -class GObject o => MediaK o -instance (GObject o, IsDescendantOf Media o) => MediaK o -data MediaGetFilenameMethodInfo -data MediaGetMimeTypeMethodInfo -data MediaIsEmbeddedMethodInfo -data MediaSaveMethodInfo -data MediaSaveToCallbackMethodInfo diff --git a/GI/Poppler/Objects/Movie.hs b/GI/Poppler/Objects/Movie.hs deleted file mode 100644 --- a/GI/Poppler/Objects/Movie.hs +++ /dev/null @@ -1,198 +0,0 @@ - - -{- | -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.Movie - ( - --- * Exported types - Movie(..) , - MovieK , - toMovie , - noMovie , - - - -- * Methods --- ** movieGetFilename - MovieGetFilenameMethodInfo , - movieGetFilename , - - --- ** movieNeedPoster - MovieNeedPosterMethodInfo , - movieNeedPoster , - - --- ** movieShowControls - MovieShowControlsMethodInfo , - movieShowControls , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 Movie = Movie (ForeignPtr Movie) -foreign import ccall "poppler_movie_get_type" - c_poppler_movie_get_type :: IO GType - -type instance ParentTypes Movie = MovieParentTypes -type MovieParentTypes = '[GObject.Object] - -instance GObject Movie where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_movie_get_type - - -class GObject o => MovieK o -instance (GObject o, IsDescendantOf Movie o) => MovieK o - -toMovie :: MovieK o => o -> IO Movie -toMovie = unsafeCastTo Movie - -noMovie :: Maybe Movie -noMovie = Nothing - -type family ResolveMovieMethod (t :: Symbol) (o :: *) :: * where - ResolveMovieMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMovieMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMovieMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMovieMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMovieMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMovieMethod "needPoster" o = MovieNeedPosterMethodInfo - ResolveMovieMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMovieMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMovieMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMovieMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMovieMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMovieMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMovieMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMovieMethod "showControls" o = MovieShowControlsMethodInfo - ResolveMovieMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMovieMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMovieMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMovieMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMovieMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMovieMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMovieMethod "getFilename" o = MovieGetFilenameMethodInfo - ResolveMovieMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMovieMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMovieMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMovieMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMovieMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMovieMethod t Movie, MethodInfo info Movie p) => IsLabelProxy t (Movie -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMovieMethod t Movie, MethodInfo info Movie p) => IsLabel t (Movie -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Movie = MovieAttributeList -type MovieAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Movie = MovieSignalList -type MovieSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Movie::get_filename --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Movie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_movie_get_filename" poppler_movie_get_filename :: - Ptr Movie -> -- _obj : TInterface "Poppler" "Movie" - IO CString - - -movieGetFilename :: - (MonadIO m, MovieK a) => - a -- _obj - -> m T.Text -- result -movieGetFilename _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_movie_get_filename _obj' - checkUnexpectedReturnNULL "poppler_movie_get_filename" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data MovieGetFilenameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, MovieK a) => MethodInfo MovieGetFilenameMethodInfo a signature where - overloadedMethod _ = movieGetFilename - --- method Movie::need_poster --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Movie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_movie_need_poster" poppler_movie_need_poster :: - Ptr Movie -> -- _obj : TInterface "Poppler" "Movie" - IO CInt - - -movieNeedPoster :: - (MonadIO m, MovieK a) => - a -- _obj - -> m Bool -- result -movieNeedPoster _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_movie_need_poster _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MovieNeedPosterMethodInfo -instance (signature ~ (m Bool), MonadIO m, MovieK a) => MethodInfo MovieNeedPosterMethodInfo a signature where - overloadedMethod _ = movieNeedPoster - --- method Movie::show_controls --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Movie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_movie_show_controls" poppler_movie_show_controls :: - Ptr Movie -> -- _obj : TInterface "Poppler" "Movie" - IO CInt - - -movieShowControls :: - (MonadIO m, MovieK a) => - a -- _obj - -> m Bool -- result -movieShowControls _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_movie_show_controls _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MovieShowControlsMethodInfo -instance (signature ~ (m Bool), MonadIO m, MovieK a) => MethodInfo MovieShowControlsMethodInfo a signature where - overloadedMethod _ = movieShowControls - - diff --git a/GI/Poppler/Objects/Movie.hs-boot b/GI/Poppler/Objects/Movie.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/Movie.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Poppler.Objects.Movie where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Movie = Movie (ForeignPtr Movie) -instance GObject Movie where -class GObject o => MovieK o -instance (GObject o, IsDescendantOf Movie o) => MovieK o -data MovieGetFilenameMethodInfo -data MovieNeedPosterMethodInfo -data MovieShowControlsMethodInfo diff --git a/GI/Poppler/Objects/PSFile.hs b/GI/Poppler/Objects/PSFile.hs deleted file mode 100644 --- a/GI/Poppler/Objects/PSFile.hs +++ /dev/null @@ -1,240 +0,0 @@ - - -{- | -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.PSFile - ( - --- * Exported types - PSFile(..) , - PSFileK , - toPSFile , - noPSFile , - - - -- * Methods --- ** pSFileFree - PSFileFreeMethodInfo , - pSFileFree , - - --- ** pSFileNew - pSFileNew , - - --- ** pSFileSetDuplex - PSFileSetDuplexMethodInfo , - pSFileSetDuplex , - - --- ** pSFileSetPaperSize - PSFileSetPaperSizeMethodInfo , - pSFileSetPaperSize , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 PSFile = PSFile (ForeignPtr PSFile) -foreign import ccall "poppler_ps_file_get_type" - c_poppler_ps_file_get_type :: IO GType - -type instance ParentTypes PSFile = PSFileParentTypes -type PSFileParentTypes = '[GObject.Object] - -instance GObject PSFile where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_ps_file_get_type - - -class GObject o => PSFileK o -instance (GObject o, IsDescendantOf PSFile o) => PSFileK o - -toPSFile :: PSFileK o => o -> IO PSFile -toPSFile = unsafeCastTo PSFile - -noPSFile :: Maybe PSFile -noPSFile = Nothing - -type family ResolvePSFileMethod (t :: Symbol) (o :: *) :: * where - ResolvePSFileMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePSFileMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePSFileMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePSFileMethod "free" o = PSFileFreeMethodInfo - ResolvePSFileMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePSFileMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePSFileMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePSFileMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePSFileMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePSFileMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePSFileMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePSFileMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePSFileMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePSFileMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePSFileMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePSFileMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePSFileMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePSFileMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePSFileMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePSFileMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePSFileMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePSFileMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePSFileMethod "setDuplex" o = PSFileSetDuplexMethodInfo - ResolvePSFileMethod "setPaperSize" o = PSFileSetPaperSizeMethodInfo - ResolvePSFileMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePSFileMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePSFileMethod t PSFile, MethodInfo info PSFile p) => IsLabelProxy t (PSFile -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePSFileMethod t PSFile, MethodInfo info PSFile p) => IsLabel t (PSFile -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList PSFile = PSFileAttributeList -type PSFileAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PSFile = PSFileSignalList -type PSFileSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PSFile::new --- method type : Constructor --- Args : [Arg {argCName = "document", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "first_page", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_pages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "PSFile") --- throws : False --- Skip return : False - -foreign import ccall "poppler_ps_file_new" poppler_ps_file_new :: - Ptr Document -> -- document : TInterface "Poppler" "Document" - CString -> -- filename : TBasicType TUTF8 - Int32 -> -- first_page : TBasicType TInt - Int32 -> -- n_pages : TBasicType TInt - IO (Ptr PSFile) - - -pSFileNew :: - (MonadIO m, DocumentK a) => - a -- document - -> T.Text -- filename - -> Int32 -- firstPage - -> Int32 -- nPages - -> m PSFile -- result -pSFileNew document filename firstPage nPages = liftIO $ do - let document' = unsafeManagedPtrCastPtr document - filename' <- textToCString filename - result <- poppler_ps_file_new document' filename' firstPage nPages - checkUnexpectedReturnNULL "poppler_ps_file_new" result - result' <- (wrapObject PSFile) result - touchManagedPtr document - freeMem filename' - return result' - --- method PSFile::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "PSFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_ps_file_free" poppler_ps_file_free :: - Ptr PSFile -> -- _obj : TInterface "Poppler" "PSFile" - IO () - - -pSFileFree :: - (MonadIO m, PSFileK a) => - a -- _obj - -> m () -- result -pSFileFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - poppler_ps_file_free _obj' - touchManagedPtr _obj - return () - -data PSFileFreeMethodInfo -instance (signature ~ (m ()), MonadIO m, PSFileK a) => MethodInfo PSFileFreeMethodInfo a signature where - overloadedMethod _ = pSFileFree - --- method PSFile::set_duplex --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "PSFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "duplex", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_ps_file_set_duplex" poppler_ps_file_set_duplex :: - Ptr PSFile -> -- _obj : TInterface "Poppler" "PSFile" - CInt -> -- duplex : TBasicType TBoolean - IO () - - -pSFileSetDuplex :: - (MonadIO m, PSFileK a) => - a -- _obj - -> Bool -- duplex - -> m () -- result -pSFileSetDuplex _obj duplex = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let duplex' = (fromIntegral . fromEnum) duplex - poppler_ps_file_set_duplex _obj' duplex' - touchManagedPtr _obj - return () - -data PSFileSetDuplexMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, PSFileK a) => MethodInfo PSFileSetDuplexMethodInfo a signature where - overloadedMethod _ = pSFileSetDuplex - --- method PSFile::set_paper_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "PSFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_ps_file_set_paper_size" poppler_ps_file_set_paper_size :: - Ptr PSFile -> -- _obj : TInterface "Poppler" "PSFile" - CDouble -> -- width : TBasicType TDouble - CDouble -> -- height : TBasicType TDouble - IO () - - -pSFileSetPaperSize :: - (MonadIO m, PSFileK a) => - a -- _obj - -> Double -- width - -> Double -- height - -> m () -- result -pSFileSetPaperSize _obj width height = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let width' = realToFrac width - let height' = realToFrac height - poppler_ps_file_set_paper_size _obj' width' height' - touchManagedPtr _obj - return () - -data PSFileSetPaperSizeMethodInfo -instance (signature ~ (Double -> Double -> m ()), MonadIO m, PSFileK a) => MethodInfo PSFileSetPaperSizeMethodInfo a signature where - overloadedMethod _ = pSFileSetPaperSize - - diff --git a/GI/Poppler/Objects/PSFile.hs-boot b/GI/Poppler/Objects/PSFile.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/PSFile.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Poppler.Objects.PSFile where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PSFile = PSFile (ForeignPtr PSFile) -instance GObject PSFile where -class GObject o => PSFileK o -instance (GObject o, IsDescendantOf PSFile o) => PSFileK o -data PSFileFreeMethodInfo -data PSFileSetDuplexMethodInfo -data PSFileSetPaperSizeMethodInfo diff --git a/GI/Poppler/Objects/Page.hs b/GI/Poppler/Objects/Page.hs deleted file mode 100644 --- a/GI/Poppler/Objects/Page.hs +++ /dev/null @@ -1,1521 +0,0 @@ - - -{- | -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.Page - ( - --- * Exported types - Page(..) , - PageK , - toPage , - noPage , - - - -- * Methods --- ** pageAddAnnot - PageAddAnnotMethodInfo , - pageAddAnnot , - - --- ** pageFindText - PageFindTextMethodInfo , - pageFindText , - - --- ** pageFindTextWithOptions - PageFindTextWithOptionsMethodInfo , - pageFindTextWithOptions , - - --- ** pageFreeAnnotMapping - pageFreeAnnotMapping , - - --- ** pageFreeFormFieldMapping - pageFreeFormFieldMapping , - - --- ** pageFreeImageMapping - pageFreeImageMapping , - - --- ** pageFreeLinkMapping - pageFreeLinkMapping , - - --- ** pageFreeTextAttributes - pageFreeTextAttributes , - - --- ** pageGetAnnotMapping - PageGetAnnotMappingMethodInfo , - pageGetAnnotMapping , - - --- ** pageGetCropBox - PageGetCropBoxMethodInfo , - pageGetCropBox , - - --- ** pageGetDuration - PageGetDurationMethodInfo , - pageGetDuration , - - --- ** pageGetFormFieldMapping - PageGetFormFieldMappingMethodInfo , - pageGetFormFieldMapping , - - --- ** pageGetImage - PageGetImageMethodInfo , - pageGetImage , - - --- ** pageGetImageMapping - PageGetImageMappingMethodInfo , - pageGetImageMapping , - - --- ** pageGetIndex - PageGetIndexMethodInfo , - pageGetIndex , - - --- ** pageGetLabel - PageGetLabelMethodInfo , - pageGetLabel , - - --- ** pageGetLinkMapping - PageGetLinkMappingMethodInfo , - pageGetLinkMapping , - - --- ** pageGetSelectedRegion - PageGetSelectedRegionMethodInfo , - pageGetSelectedRegion , - - --- ** pageGetSelectedText - PageGetSelectedTextMethodInfo , - pageGetSelectedText , - - --- ** pageGetSelectionRegion - PageGetSelectionRegionMethodInfo , - pageGetSelectionRegion , - - --- ** pageGetSize - PageGetSizeMethodInfo , - pageGetSize , - - --- ** pageGetText - PageGetTextMethodInfo , - pageGetText , - - --- ** pageGetTextAttributes - PageGetTextAttributesMethodInfo , - pageGetTextAttributes , - - --- ** pageGetTextAttributesForArea - PageGetTextAttributesForAreaMethodInfo , - pageGetTextAttributesForArea , - - --- ** pageGetTextForArea - PageGetTextForAreaMethodInfo , - pageGetTextForArea , - - --- ** pageGetTextLayout - PageGetTextLayoutMethodInfo , - pageGetTextLayout , - - --- ** pageGetTextLayoutForArea - PageGetTextLayoutForAreaMethodInfo , - pageGetTextLayoutForArea , - - --- ** pageGetThumbnail - PageGetThumbnailMethodInfo , - pageGetThumbnail , - - --- ** pageGetThumbnailSize - PageGetThumbnailSizeMethodInfo , - pageGetThumbnailSize , - - --- ** pageGetTransition - PageGetTransitionMethodInfo , - pageGetTransition , - - --- ** pageRemoveAnnot - PageRemoveAnnotMethodInfo , - pageRemoveAnnot , - - --- ** pageRender - PageRenderMethodInfo , - pageRender , - - --- ** pageRenderForPrinting - PageRenderForPrintingMethodInfo , - pageRenderForPrinting , - - --- ** pageRenderForPrintingWithOptions - PageRenderForPrintingWithOptionsMethodInfo, - pageRenderForPrintingWithOptions , - - --- ** pageRenderSelection - PageRenderSelectionMethodInfo , - pageRenderSelection , - - --- ** pageRenderToPs - PageRenderToPsMethodInfo , - pageRenderToPs , - - --- ** pageSelectionRegionFree - pageSelectionRegionFree , - - - - - -- * Properties --- ** Label - PageLabelPropertyInfo , - getPageLabel , - pageLabel , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -import qualified GI.Cairo as Cairo - -newtype Page = Page (ForeignPtr Page) -foreign import ccall "poppler_page_get_type" - c_poppler_page_get_type :: IO GType - -type instance ParentTypes Page = PageParentTypes -type PageParentTypes = '[GObject.Object] - -instance GObject Page where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_poppler_page_get_type - - -class GObject o => PageK o -instance (GObject o, IsDescendantOf Page o) => PageK o - -toPage :: PageK o => o -> IO Page -toPage = unsafeCastTo Page - -noPage :: Maybe Page -noPage = Nothing - -type family ResolvePageMethod (t :: Symbol) (o :: *) :: * where - ResolvePageMethod "addAnnot" o = PageAddAnnotMethodInfo - ResolvePageMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePageMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePageMethod "findText" o = PageFindTextMethodInfo - ResolvePageMethod "findTextWithOptions" o = PageFindTextWithOptionsMethodInfo - ResolvePageMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePageMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePageMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePageMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePageMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePageMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePageMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePageMethod "removeAnnot" o = PageRemoveAnnotMethodInfo - ResolvePageMethod "render" o = PageRenderMethodInfo - ResolvePageMethod "renderForPrinting" o = PageRenderForPrintingMethodInfo - ResolvePageMethod "renderForPrintingWithOptions" o = PageRenderForPrintingWithOptionsMethodInfo - ResolvePageMethod "renderSelection" o = PageRenderSelectionMethodInfo - ResolvePageMethod "renderToPs" o = PageRenderToPsMethodInfo - ResolvePageMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePageMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePageMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePageMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePageMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePageMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePageMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePageMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePageMethod "getAnnotMapping" o = PageGetAnnotMappingMethodInfo - ResolvePageMethod "getCropBox" o = PageGetCropBoxMethodInfo - ResolvePageMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePageMethod "getDuration" o = PageGetDurationMethodInfo - ResolvePageMethod "getFormFieldMapping" o = PageGetFormFieldMappingMethodInfo - ResolvePageMethod "getImage" o = PageGetImageMethodInfo - ResolvePageMethod "getImageMapping" o = PageGetImageMappingMethodInfo - ResolvePageMethod "getIndex" o = PageGetIndexMethodInfo - ResolvePageMethod "getLabel" o = PageGetLabelMethodInfo - ResolvePageMethod "getLinkMapping" o = PageGetLinkMappingMethodInfo - ResolvePageMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePageMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePageMethod "getSelectedRegion" o = PageGetSelectedRegionMethodInfo - ResolvePageMethod "getSelectedText" o = PageGetSelectedTextMethodInfo - ResolvePageMethod "getSelectionRegion" o = PageGetSelectionRegionMethodInfo - ResolvePageMethod "getSize" o = PageGetSizeMethodInfo - ResolvePageMethod "getText" o = PageGetTextMethodInfo - ResolvePageMethod "getTextAttributes" o = PageGetTextAttributesMethodInfo - ResolvePageMethod "getTextAttributesForArea" o = PageGetTextAttributesForAreaMethodInfo - ResolvePageMethod "getTextForArea" o = PageGetTextForAreaMethodInfo - ResolvePageMethod "getTextLayout" o = PageGetTextLayoutMethodInfo - ResolvePageMethod "getTextLayoutForArea" o = PageGetTextLayoutForAreaMethodInfo - ResolvePageMethod "getThumbnail" o = PageGetThumbnailMethodInfo - ResolvePageMethod "getThumbnailSize" o = PageGetThumbnailSizeMethodInfo - ResolvePageMethod "getTransition" o = PageGetTransitionMethodInfo - ResolvePageMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePageMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePageMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePageMethod t Page, MethodInfo info Page p) => IsLabelProxy t (Page -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePageMethod t Page, MethodInfo info Page p) => IsLabel t (Page -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "label" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getPageLabel :: (MonadIO m, PageK o) => o -> m (Maybe T.Text) -getPageLabel obj = liftIO $ getObjectPropertyString obj "label" - -data PageLabelPropertyInfo -instance AttrInfo PageLabelPropertyInfo where - type AttrAllowedOps PageLabelPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PageLabelPropertyInfo = (~) () - type AttrBaseTypeConstraint PageLabelPropertyInfo = PageK - type AttrGetType PageLabelPropertyInfo = (Maybe T.Text) - type AttrLabel PageLabelPropertyInfo = "label" - attrGet _ = getPageLabel - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList Page = PageAttributeList -type PageAttributeList = ('[ '("label", PageLabelPropertyInfo)] :: [(Symbol, *)]) - -pageLabel :: AttrLabelProxy "label" -pageLabel = AttrLabelProxy - -type instance SignalList Page = PageSignalList -type PageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Page::add_annot --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "annot", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_add_annot" poppler_page_add_annot :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - Ptr Annot -> -- annot : TInterface "Poppler" "Annot" - IO () - - -pageAddAnnot :: - (MonadIO m, PageK a, AnnotK b) => - a -- _obj - -> b -- annot - -> m () -- result -pageAddAnnot _obj annot = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let annot' = unsafeManagedPtrCastPtr annot - poppler_page_add_annot _obj' annot' - touchManagedPtr _obj - touchManagedPtr annot - return () - -data PageAddAnnotMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, PageK a, AnnotK b) => MethodInfo PageAddAnnotMethodInfo a signature where - overloadedMethod _ = pageAddAnnot - --- method Page::find_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Poppler" "Rectangle")) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_find_text" poppler_page_find_text :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - CString -> -- text : TBasicType TUTF8 - IO (Ptr (GList (Ptr Rectangle))) - - -pageFindText :: - (MonadIO m, PageK a) => - a -- _obj - -> T.Text -- text - -> m [Rectangle] -- result -pageFindText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - result <- poppler_page_find_text _obj' text' - result' <- unpackGList result - result'' <- mapM (wrapBoxed Rectangle) result' - g_list_free result - touchManagedPtr _obj - freeMem text' - return result'' - -data PageFindTextMethodInfo -instance (signature ~ (T.Text -> m [Rectangle]), MonadIO m, PageK a) => MethodInfo PageFindTextMethodInfo a signature where - overloadedMethod _ = pageFindText - --- method Page::find_text_with_options --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Poppler" "FindFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Poppler" "Rectangle")) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_find_text_with_options" poppler_page_find_text_with_options :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - CString -> -- text : TBasicType TUTF8 - CUInt -> -- options : TInterface "Poppler" "FindFlags" - IO (Ptr (GList (Ptr Rectangle))) - - -pageFindTextWithOptions :: - (MonadIO m, PageK a) => - a -- _obj - -> T.Text -- text - -> [FindFlags] -- options - -> m [Rectangle] -- result -pageFindTextWithOptions _obj text options = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - let options' = gflagsToWord options - result <- poppler_page_find_text_with_options _obj' text' options' - result' <- unpackGList result - result'' <- mapM (wrapBoxed Rectangle) result' - g_list_free result - touchManagedPtr _obj - freeMem text' - return result'' - -data PageFindTextWithOptionsMethodInfo -instance (signature ~ (T.Text -> [FindFlags] -> m [Rectangle]), MonadIO m, PageK a) => MethodInfo PageFindTextWithOptionsMethodInfo a signature where - overloadedMethod _ = pageFindTextWithOptions - --- method Page::get_annot_mapping --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Poppler" "AnnotMapping")) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_annot_mapping" poppler_page_get_annot_mapping :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - IO (Ptr (GList (Ptr AnnotMapping))) - - -pageGetAnnotMapping :: - (MonadIO m, PageK a) => - a -- _obj - -> m [AnnotMapping] -- result -pageGetAnnotMapping _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_page_get_annot_mapping _obj' - result' <- unpackGList result - result'' <- mapM (wrapBoxed AnnotMapping) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data PageGetAnnotMappingMethodInfo -instance (signature ~ (m [AnnotMapping]), MonadIO m, PageK a) => MethodInfo PageGetAnnotMappingMethodInfo a signature where - overloadedMethod _ = pageGetAnnotMapping - --- method Page::get_crop_box --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_crop_box" poppler_page_get_crop_box :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - Ptr Rectangle -> -- rect : TInterface "Poppler" "Rectangle" - IO () - - -pageGetCropBox :: - (MonadIO m, PageK a) => - a -- _obj - -> m (Rectangle) -- result -pageGetCropBox _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rect <- callocBoxedBytes 32 :: IO (Ptr Rectangle) - poppler_page_get_crop_box _obj' rect - rect' <- (wrapBoxed Rectangle) rect - touchManagedPtr _obj - return rect' - -data PageGetCropBoxMethodInfo -instance (signature ~ (m (Rectangle)), MonadIO m, PageK a) => MethodInfo PageGetCropBoxMethodInfo a signature where - overloadedMethod _ = pageGetCropBox - --- method Page::get_duration --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_duration" poppler_page_get_duration :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - IO CDouble - - -pageGetDuration :: - (MonadIO m, PageK a) => - a -- _obj - -> m Double -- result -pageGetDuration _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_page_get_duration _obj' - let result' = realToFrac result - touchManagedPtr _obj - return result' - -data PageGetDurationMethodInfo -instance (signature ~ (m Double), MonadIO m, PageK a) => MethodInfo PageGetDurationMethodInfo a signature where - overloadedMethod _ = pageGetDuration - --- method Page::get_form_field_mapping --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Poppler" "FormFieldMapping")) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_form_field_mapping" poppler_page_get_form_field_mapping :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - IO (Ptr (GList (Ptr FormFieldMapping))) - - -pageGetFormFieldMapping :: - (MonadIO m, PageK a) => - a -- _obj - -> m [FormFieldMapping] -- result -pageGetFormFieldMapping _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_page_get_form_field_mapping _obj' - result' <- unpackGList result - result'' <- mapM (wrapBoxed FormFieldMapping) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data PageGetFormFieldMappingMethodInfo -instance (signature ~ (m [FormFieldMapping]), MonadIO m, PageK a) => MethodInfo PageGetFormFieldMappingMethodInfo a signature where - overloadedMethod _ = pageGetFormFieldMapping - --- method Page::get_image --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "image_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Surface") --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_image" poppler_page_get_image :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - Int32 -> -- image_id : TBasicType TInt - IO (Ptr Cairo.Surface) - - -pageGetImage :: - (MonadIO m, PageK a) => - a -- _obj - -> Int32 -- imageId - -> m Cairo.Surface -- result -pageGetImage _obj imageId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_page_get_image _obj' imageId - checkUnexpectedReturnNULL "poppler_page_get_image" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr _obj - return result' - -data PageGetImageMethodInfo -instance (signature ~ (Int32 -> m Cairo.Surface), MonadIO m, PageK a) => MethodInfo PageGetImageMethodInfo a signature where - overloadedMethod _ = pageGetImage - --- method Page::get_image_mapping --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Poppler" "ImageMapping")) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_image_mapping" poppler_page_get_image_mapping :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - IO (Ptr (GList (Ptr ImageMapping))) - - -pageGetImageMapping :: - (MonadIO m, PageK a) => - a -- _obj - -> m [ImageMapping] -- result -pageGetImageMapping _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_page_get_image_mapping _obj' - result' <- unpackGList result - result'' <- mapM (wrapBoxed ImageMapping) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data PageGetImageMappingMethodInfo -instance (signature ~ (m [ImageMapping]), MonadIO m, PageK a) => MethodInfo PageGetImageMappingMethodInfo a signature where - overloadedMethod _ = pageGetImageMapping - --- method Page::get_index --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_index" poppler_page_get_index :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - IO Int32 - - -pageGetIndex :: - (MonadIO m, PageK a) => - a -- _obj - -> m Int32 -- result -pageGetIndex _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_page_get_index _obj' - touchManagedPtr _obj - return result - -data PageGetIndexMethodInfo -instance (signature ~ (m Int32), MonadIO m, PageK a) => MethodInfo PageGetIndexMethodInfo a signature where - overloadedMethod _ = pageGetIndex - --- method Page::get_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_label" poppler_page_get_label :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - IO CString - - -pageGetLabel :: - (MonadIO m, PageK a) => - a -- _obj - -> m T.Text -- result -pageGetLabel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_page_get_label _obj' - checkUnexpectedReturnNULL "poppler_page_get_label" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data PageGetLabelMethodInfo -instance (signature ~ (m T.Text), MonadIO m, PageK a) => MethodInfo PageGetLabelMethodInfo a signature where - overloadedMethod _ = pageGetLabel - --- method Page::get_link_mapping --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Poppler" "LinkMapping")) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_link_mapping" poppler_page_get_link_mapping :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - IO (Ptr (GList (Ptr LinkMapping))) - - -pageGetLinkMapping :: - (MonadIO m, PageK a) => - a -- _obj - -> m [LinkMapping] -- result -pageGetLinkMapping _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_page_get_link_mapping _obj' - result' <- unpackGList result - result'' <- mapM (wrapBoxed LinkMapping) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data PageGetLinkMappingMethodInfo -instance (signature ~ (m [LinkMapping]), MonadIO m, PageK a) => MethodInfo PageGetLinkMappingMethodInfo a signature where - overloadedMethod _ = pageGetLinkMapping - --- method Page::get_selected_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Region") --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_selected_region" poppler_page_get_selected_region :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - CDouble -> -- scale : TBasicType TDouble - CUInt -> -- style : TInterface "Poppler" "SelectionStyle" - Ptr Rectangle -> -- selection : TInterface "Poppler" "Rectangle" - IO (Ptr Cairo.Region) - - -pageGetSelectedRegion :: - (MonadIO m, PageK a) => - a -- _obj - -> Double -- scale - -> SelectionStyle -- style - -> Rectangle -- selection - -> m Cairo.Region -- result -pageGetSelectedRegion _obj scale style selection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let scale' = realToFrac scale - let style' = (fromIntegral . fromEnum) style - let selection' = unsafeManagedPtrGetPtr selection - result <- poppler_page_get_selected_region _obj' scale' style' selection' - checkUnexpectedReturnNULL "poppler_page_get_selected_region" result - result' <- (wrapBoxed Cairo.Region) result - touchManagedPtr _obj - touchManagedPtr selection - return result' - -data PageGetSelectedRegionMethodInfo -instance (signature ~ (Double -> SelectionStyle -> Rectangle -> m Cairo.Region), MonadIO m, PageK a) => MethodInfo PageGetSelectedRegionMethodInfo a signature where - overloadedMethod _ = pageGetSelectedRegion - --- method Page::get_selected_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_selected_text" poppler_page_get_selected_text :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - CUInt -> -- style : TInterface "Poppler" "SelectionStyle" - Ptr Rectangle -> -- selection : TInterface "Poppler" "Rectangle" - IO CString - - -pageGetSelectedText :: - (MonadIO m, PageK a) => - a -- _obj - -> SelectionStyle -- style - -> Rectangle -- selection - -> m T.Text -- result -pageGetSelectedText _obj style selection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let style' = (fromIntegral . fromEnum) style - let selection' = unsafeManagedPtrGetPtr selection - result <- poppler_page_get_selected_text _obj' style' selection' - checkUnexpectedReturnNULL "poppler_page_get_selected_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr selection - return result' - -data PageGetSelectedTextMethodInfo -instance (signature ~ (SelectionStyle -> Rectangle -> m T.Text), MonadIO m, PageK a) => MethodInfo PageGetSelectedTextMethodInfo a signature where - overloadedMethod _ = pageGetSelectedText - --- method Page::get_selection_region --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Poppler" "Rectangle")) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_selection_region" poppler_page_get_selection_region :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - CDouble -> -- scale : TBasicType TDouble - CUInt -> -- style : TInterface "Poppler" "SelectionStyle" - Ptr Rectangle -> -- selection : TInterface "Poppler" "Rectangle" - IO (Ptr (GList (Ptr Rectangle))) - -{-# DEPRECATED pageGetSelectionRegion ["(Since version 0.16)","Use poppler_page_get_selected_region() instead."]#-} -pageGetSelectionRegion :: - (MonadIO m, PageK a) => - a -- _obj - -> Double -- scale - -> SelectionStyle -- style - -> Rectangle -- selection - -> m [Rectangle] -- result -pageGetSelectionRegion _obj scale style selection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let scale' = realToFrac scale - let style' = (fromIntegral . fromEnum) style - let selection' = unsafeManagedPtrGetPtr selection - result <- poppler_page_get_selection_region _obj' scale' style' selection' - result' <- unpackGList result - result'' <- mapM (wrapBoxed Rectangle) result' - g_list_free result - touchManagedPtr _obj - touchManagedPtr selection - return result'' - -data PageGetSelectionRegionMethodInfo -instance (signature ~ (Double -> SelectionStyle -> Rectangle -> m [Rectangle]), MonadIO m, PageK a) => MethodInfo PageGetSelectionRegionMethodInfo a signature where - overloadedMethod _ = pageGetSelectionRegion - --- method Page::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_size" poppler_page_get_size :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - Ptr CDouble -> -- width : TBasicType TDouble - Ptr CDouble -> -- height : TBasicType TDouble - IO () - - -pageGetSize :: - (MonadIO m, PageK a) => - a -- _obj - -> m (Double,Double) -- result -pageGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - width <- allocMem :: IO (Ptr CDouble) - height <- allocMem :: IO (Ptr CDouble) - poppler_page_get_size _obj' width height - width' <- peek width - let width'' = realToFrac width' - height' <- peek height - let height'' = realToFrac height' - touchManagedPtr _obj - freeMem width - freeMem height - return (width'', height'') - -data PageGetSizeMethodInfo -instance (signature ~ (m (Double,Double)), MonadIO m, PageK a) => MethodInfo PageGetSizeMethodInfo a signature where - overloadedMethod _ = pageGetSize - --- method Page::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_text" poppler_page_get_text :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - IO CString - - -pageGetText :: - (MonadIO m, PageK a) => - a -- _obj - -> m T.Text -- result -pageGetText _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_page_get_text _obj' - checkUnexpectedReturnNULL "poppler_page_get_text" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data PageGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m, PageK a) => MethodInfo PageGetTextMethodInfo a signature where - overloadedMethod _ = pageGetText - --- method Page::get_text_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Poppler" "TextAttributes")) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_text_attributes" poppler_page_get_text_attributes :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - IO (Ptr (GList (Ptr TextAttributes))) - - -pageGetTextAttributes :: - (MonadIO m, PageK a) => - a -- _obj - -> m [TextAttributes] -- result -pageGetTextAttributes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_page_get_text_attributes _obj' - result' <- unpackGList result - result'' <- mapM (wrapBoxed TextAttributes) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data PageGetTextAttributesMethodInfo -instance (signature ~ (m [TextAttributes]), MonadIO m, PageK a) => MethodInfo PageGetTextAttributesMethodInfo a signature where - overloadedMethod _ = pageGetTextAttributes - --- method Page::get_text_attributes_for_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Poppler" "TextAttributes")) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_text_attributes_for_area" poppler_page_get_text_attributes_for_area :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - Ptr Rectangle -> -- area : TInterface "Poppler" "Rectangle" - IO (Ptr (GList (Ptr TextAttributes))) - - -pageGetTextAttributesForArea :: - (MonadIO m, PageK a) => - a -- _obj - -> Rectangle -- area - -> m [TextAttributes] -- result -pageGetTextAttributesForArea _obj area = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let area' = unsafeManagedPtrGetPtr area - result <- poppler_page_get_text_attributes_for_area _obj' area' - result' <- unpackGList result - result'' <- mapM (wrapBoxed TextAttributes) result' - g_list_free result - touchManagedPtr _obj - touchManagedPtr area - return result'' - -data PageGetTextAttributesForAreaMethodInfo -instance (signature ~ (Rectangle -> m [TextAttributes]), MonadIO m, PageK a) => MethodInfo PageGetTextAttributesForAreaMethodInfo a signature where - overloadedMethod _ = pageGetTextAttributesForArea - --- method Page::get_text_for_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_text_for_area" poppler_page_get_text_for_area :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - Ptr Rectangle -> -- area : TInterface "Poppler" "Rectangle" - IO CString - - -pageGetTextForArea :: - (MonadIO m, PageK a) => - a -- _obj - -> Rectangle -- area - -> m T.Text -- result -pageGetTextForArea _obj area = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let area' = unsafeManagedPtrGetPtr area - result <- poppler_page_get_text_for_area _obj' area' - checkUnexpectedReturnNULL "poppler_page_get_text_for_area" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr area - return result' - -data PageGetTextForAreaMethodInfo -instance (signature ~ (Rectangle -> m T.Text), MonadIO m, PageK a) => MethodInfo PageGetTextForAreaMethodInfo a signature where - overloadedMethod _ = pageGetTextForArea - --- method Page::get_text_layout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangles", argType = TCArray False (-1) 2 (TInterface "Poppler" "Rectangle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_rectangles", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_rectangles", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_text_layout" poppler_page_get_text_layout :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - Ptr (Ptr Rectangle) -> -- rectangles : TCArray False (-1) 2 (TInterface "Poppler" "Rectangle") - Ptr Word32 -> -- n_rectangles : TBasicType TUInt - IO CInt - - -pageGetTextLayout :: - (MonadIO m, PageK a) => - a -- _obj - -> m (Bool,[Rectangle]) -- result -pageGetTextLayout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rectangles <- allocMem :: IO (Ptr (Ptr Rectangle)) - nRectangles <- allocMem :: IO (Ptr Word32) - result <- poppler_page_get_text_layout _obj' rectangles nRectangles - nRectangles' <- peek nRectangles - let result' = (/= 0) result - rectangles' <- peek rectangles - rectangles'' <- (unpackBoxedArrayWithLength 32 nRectangles') rectangles' - rectangles''' <- mapM (newBoxed Rectangle) rectangles'' - freeMem rectangles' - touchManagedPtr _obj - freeMem rectangles - freeMem nRectangles - return (result', rectangles''') - -data PageGetTextLayoutMethodInfo -instance (signature ~ (m (Bool,[Rectangle])), MonadIO m, PageK a) => MethodInfo PageGetTextLayoutMethodInfo a signature where - overloadedMethod _ = pageGetTextLayout - --- method Page::get_text_layout_for_area --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangles", argType = TCArray False (-1) 3 (TInterface "Poppler" "Rectangle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferContainer},Arg {argCName = "n_rectangles", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_rectangles", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_text_layout_for_area" poppler_page_get_text_layout_for_area :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - Ptr Rectangle -> -- area : TInterface "Poppler" "Rectangle" - Ptr (Ptr Rectangle) -> -- rectangles : TCArray False (-1) 3 (TInterface "Poppler" "Rectangle") - Ptr Word32 -> -- n_rectangles : TBasicType TUInt - IO CInt - - -pageGetTextLayoutForArea :: - (MonadIO m, PageK a) => - a -- _obj - -> Rectangle -- area - -> m (Bool,[Rectangle]) -- result -pageGetTextLayoutForArea _obj area = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let area' = unsafeManagedPtrGetPtr area - rectangles <- allocMem :: IO (Ptr (Ptr Rectangle)) - nRectangles <- allocMem :: IO (Ptr Word32) - result <- poppler_page_get_text_layout_for_area _obj' area' rectangles nRectangles - nRectangles' <- peek nRectangles - let result' = (/= 0) result - rectangles' <- peek rectangles - rectangles'' <- (unpackBoxedArrayWithLength 32 nRectangles') rectangles' - rectangles''' <- mapM (newBoxed Rectangle) rectangles'' - freeMem rectangles' - touchManagedPtr _obj - touchManagedPtr area - freeMem rectangles - freeMem nRectangles - return (result', rectangles''') - -data PageGetTextLayoutForAreaMethodInfo -instance (signature ~ (Rectangle -> m (Bool,[Rectangle])), MonadIO m, PageK a) => MethodInfo PageGetTextLayoutForAreaMethodInfo a signature where - overloadedMethod _ = pageGetTextLayoutForArea - --- method Page::get_thumbnail --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "cairo" "Surface") --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_thumbnail" poppler_page_get_thumbnail :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - IO (Ptr Cairo.Surface) - - -pageGetThumbnail :: - (MonadIO m, PageK a) => - a -- _obj - -> m Cairo.Surface -- result -pageGetThumbnail _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_page_get_thumbnail _obj' - checkUnexpectedReturnNULL "poppler_page_get_thumbnail" result - result' <- (wrapBoxed Cairo.Surface) result - touchManagedPtr _obj - return result' - -data PageGetThumbnailMethodInfo -instance (signature ~ (m Cairo.Surface), MonadIO m, PageK a) => MethodInfo PageGetThumbnailMethodInfo a signature where - overloadedMethod _ = pageGetThumbnail - --- method Page::get_thumbnail_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_thumbnail_size" poppler_page_get_thumbnail_size :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - Ptr Int32 -> -- width : TBasicType TInt - Ptr Int32 -> -- height : TBasicType TInt - IO CInt - - -pageGetThumbnailSize :: - (MonadIO m, PageK a) => - a -- _obj - -> m (Bool,Int32,Int32) -- result -pageGetThumbnailSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - width <- allocMem :: IO (Ptr Int32) - height <- allocMem :: IO (Ptr Int32) - result <- poppler_page_get_thumbnail_size _obj' width height - let result' = (/= 0) result - width' <- peek width - height' <- peek height - touchManagedPtr _obj - freeMem width - freeMem height - return (result', width', height') - -data PageGetThumbnailSizeMethodInfo -instance (signature ~ (m (Bool,Int32,Int32)), MonadIO m, PageK a) => MethodInfo PageGetThumbnailSizeMethodInfo a signature where - overloadedMethod _ = pageGetThumbnailSize - --- method Page::get_transition --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "PageTransition") --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_get_transition" poppler_page_get_transition :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - IO (Ptr PageTransition) - - -pageGetTransition :: - (MonadIO m, PageK a) => - a -- _obj - -> m PageTransition -- result -pageGetTransition _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- poppler_page_get_transition _obj' - checkUnexpectedReturnNULL "poppler_page_get_transition" result - result' <- (wrapBoxed PageTransition) result - touchManagedPtr _obj - return result' - -data PageGetTransitionMethodInfo -instance (signature ~ (m PageTransition), MonadIO m, PageK a) => MethodInfo PageGetTransitionMethodInfo a signature where - overloadedMethod _ = pageGetTransition - --- method Page::remove_annot --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "annot", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_remove_annot" poppler_page_remove_annot :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - Ptr Annot -> -- annot : TInterface "Poppler" "Annot" - IO () - - -pageRemoveAnnot :: - (MonadIO m, PageK a, AnnotK b) => - a -- _obj - -> b -- annot - -> m () -- result -pageRemoveAnnot _obj annot = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let annot' = unsafeManagedPtrCastPtr annot - poppler_page_remove_annot _obj' annot' - touchManagedPtr _obj - touchManagedPtr annot - return () - -data PageRemoveAnnotMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, PageK a, AnnotK b) => MethodInfo PageRemoveAnnotMethodInfo a signature where - overloadedMethod _ = pageRemoveAnnot - --- method Page::render --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_render" poppler_page_render :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - Ptr Cairo.Context -> -- cairo : TInterface "cairo" "Context" - IO () - - -pageRender :: - (MonadIO m, PageK a) => - a -- _obj - -> Cairo.Context -- cairo - -> m () -- result -pageRender _obj cairo = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cairo' = unsafeManagedPtrGetPtr cairo - poppler_page_render _obj' cairo' - touchManagedPtr _obj - touchManagedPtr cairo - return () - -data PageRenderMethodInfo -instance (signature ~ (Cairo.Context -> m ()), MonadIO m, PageK a) => MethodInfo PageRenderMethodInfo a signature where - overloadedMethod _ = pageRender - --- method Page::render_for_printing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_render_for_printing" poppler_page_render_for_printing :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - Ptr Cairo.Context -> -- cairo : TInterface "cairo" "Context" - IO () - - -pageRenderForPrinting :: - (MonadIO m, PageK a) => - a -- _obj - -> Cairo.Context -- cairo - -> m () -- result -pageRenderForPrinting _obj cairo = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cairo' = unsafeManagedPtrGetPtr cairo - poppler_page_render_for_printing _obj' cairo' - touchManagedPtr _obj - touchManagedPtr cairo - return () - -data PageRenderForPrintingMethodInfo -instance (signature ~ (Cairo.Context -> m ()), MonadIO m, PageK a) => MethodInfo PageRenderForPrintingMethodInfo a signature where - overloadedMethod _ = pageRenderForPrinting - --- method Page::render_for_printing_with_options --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Poppler" "PrintFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_render_for_printing_with_options" poppler_page_render_for_printing_with_options :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - Ptr Cairo.Context -> -- cairo : TInterface "cairo" "Context" - CUInt -> -- options : TInterface "Poppler" "PrintFlags" - IO () - - -pageRenderForPrintingWithOptions :: - (MonadIO m, PageK a) => - a -- _obj - -> Cairo.Context -- cairo - -> [PrintFlags] -- options - -> m () -- result -pageRenderForPrintingWithOptions _obj cairo options = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cairo' = unsafeManagedPtrGetPtr cairo - let options' = gflagsToWord options - poppler_page_render_for_printing_with_options _obj' cairo' options' - touchManagedPtr _obj - touchManagedPtr cairo - return () - -data PageRenderForPrintingWithOptionsMethodInfo -instance (signature ~ (Cairo.Context -> [PrintFlags] -> m ()), MonadIO m, PageK a) => MethodInfo PageRenderForPrintingWithOptionsMethodInfo a signature where - overloadedMethod _ = pageRenderForPrintingWithOptions - --- method Page::render_selection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "old_selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "glyph_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "background_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_render_selection" poppler_page_render_selection :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - Ptr Cairo.Context -> -- cairo : TInterface "cairo" "Context" - Ptr Rectangle -> -- selection : TInterface "Poppler" "Rectangle" - Ptr Rectangle -> -- old_selection : TInterface "Poppler" "Rectangle" - CUInt -> -- style : TInterface "Poppler" "SelectionStyle" - Ptr Color -> -- glyph_color : TInterface "Poppler" "Color" - Ptr Color -> -- background_color : TInterface "Poppler" "Color" - IO () - - -pageRenderSelection :: - (MonadIO m, PageK a) => - a -- _obj - -> Cairo.Context -- cairo - -> Rectangle -- selection - -> Rectangle -- oldSelection - -> SelectionStyle -- style - -> Color -- glyphColor - -> Color -- backgroundColor - -> m () -- result -pageRenderSelection _obj cairo selection oldSelection style glyphColor backgroundColor = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cairo' = unsafeManagedPtrGetPtr cairo - let selection' = unsafeManagedPtrGetPtr selection - let oldSelection' = unsafeManagedPtrGetPtr oldSelection - let style' = (fromIntegral . fromEnum) style - let glyphColor' = unsafeManagedPtrGetPtr glyphColor - let backgroundColor' = unsafeManagedPtrGetPtr backgroundColor - poppler_page_render_selection _obj' cairo' selection' oldSelection' style' glyphColor' backgroundColor' - touchManagedPtr _obj - touchManagedPtr cairo - touchManagedPtr selection - touchManagedPtr oldSelection - touchManagedPtr glyphColor - touchManagedPtr backgroundColor - return () - -data PageRenderSelectionMethodInfo -instance (signature ~ (Cairo.Context -> Rectangle -> Rectangle -> SelectionStyle -> Color -> Color -> m ()), MonadIO m, PageK a) => MethodInfo PageRenderSelectionMethodInfo a signature where - overloadedMethod _ = pageRenderSelection - --- method Page::render_to_ps --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ps_file", argType = TInterface "Poppler" "PSFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_render_to_ps" poppler_page_render_to_ps :: - Ptr Page -> -- _obj : TInterface "Poppler" "Page" - Ptr PSFile -> -- ps_file : TInterface "Poppler" "PSFile" - IO () - - -pageRenderToPs :: - (MonadIO m, PageK a, PSFileK b) => - a -- _obj - -> b -- psFile - -> m () -- result -pageRenderToPs _obj psFile = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let psFile' = unsafeManagedPtrCastPtr psFile - poppler_page_render_to_ps _obj' psFile' - touchManagedPtr _obj - touchManagedPtr psFile - return () - -data PageRenderToPsMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, PageK a, PSFileK b) => MethodInfo PageRenderToPsMethodInfo a signature where - overloadedMethod _ = pageRenderToPs - --- method Page::free_annot_mapping --- method type : MemberFunction --- Args : [Arg {argCName = "list", argType = TGList (TInterface "Poppler" "AnnotMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_free_annot_mapping" poppler_page_free_annot_mapping :: - Ptr (GList (Ptr AnnotMapping)) -> -- list : TGList (TInterface "Poppler" "AnnotMapping") - IO () - - -pageFreeAnnotMapping :: - (MonadIO m) => - [AnnotMapping] -- list - -> m () -- result -pageFreeAnnotMapping list = liftIO $ do - let list' = map unsafeManagedPtrGetPtr list - list'' <- packGList list' - poppler_page_free_annot_mapping list'' - mapM_ touchManagedPtr list - g_list_free list'' - return () - --- method Page::free_form_field_mapping --- method type : MemberFunction --- Args : [Arg {argCName = "list", argType = TGList (TInterface "Poppler" "FormFieldMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_free_form_field_mapping" poppler_page_free_form_field_mapping :: - Ptr (GList (Ptr FormFieldMapping)) -> -- list : TGList (TInterface "Poppler" "FormFieldMapping") - IO () - - -pageFreeFormFieldMapping :: - (MonadIO m) => - [FormFieldMapping] -- list - -> m () -- result -pageFreeFormFieldMapping list = liftIO $ do - let list' = map unsafeManagedPtrGetPtr list - list'' <- packGList list' - poppler_page_free_form_field_mapping list'' - mapM_ touchManagedPtr list - g_list_free list'' - return () - --- method Page::free_image_mapping --- method type : MemberFunction --- Args : [Arg {argCName = "list", argType = TGList (TInterface "Poppler" "ImageMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_free_image_mapping" poppler_page_free_image_mapping :: - Ptr (GList (Ptr ImageMapping)) -> -- list : TGList (TInterface "Poppler" "ImageMapping") - IO () - - -pageFreeImageMapping :: - (MonadIO m) => - [ImageMapping] -- list - -> m () -- result -pageFreeImageMapping list = liftIO $ do - let list' = map unsafeManagedPtrGetPtr list - list'' <- packGList list' - poppler_page_free_image_mapping list'' - mapM_ touchManagedPtr list - g_list_free list'' - return () - --- method Page::free_link_mapping --- method type : MemberFunction --- Args : [Arg {argCName = "list", argType = TGList (TInterface "Poppler" "LinkMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_free_link_mapping" poppler_page_free_link_mapping :: - Ptr (GList (Ptr LinkMapping)) -> -- list : TGList (TInterface "Poppler" "LinkMapping") - IO () - - -pageFreeLinkMapping :: - (MonadIO m) => - [LinkMapping] -- list - -> m () -- result -pageFreeLinkMapping list = liftIO $ do - let list' = map unsafeManagedPtrGetPtr list - list'' <- packGList list' - poppler_page_free_link_mapping list'' - mapM_ touchManagedPtr list - g_list_free list'' - return () - --- method Page::free_text_attributes --- method type : MemberFunction --- Args : [Arg {argCName = "list", argType = TGList (TInterface "Poppler" "TextAttributes"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_free_text_attributes" poppler_page_free_text_attributes :: - Ptr (GList (Ptr TextAttributes)) -> -- list : TGList (TInterface "Poppler" "TextAttributes") - IO () - - -pageFreeTextAttributes :: - (MonadIO m) => - [TextAttributes] -- list - -> m () -- result -pageFreeTextAttributes list = liftIO $ do - let list' = map unsafeManagedPtrGetPtr list - list'' <- packGList list' - poppler_page_free_text_attributes list'' - mapM_ touchManagedPtr list - g_list_free list'' - return () - --- method Page::selection_region_free --- method type : MemberFunction --- Args : [Arg {argCName = "region", argType = TGList (TInterface "Poppler" "Rectangle"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_selection_region_free" poppler_page_selection_region_free :: - Ptr (GList (Ptr Rectangle)) -> -- region : TGList (TInterface "Poppler" "Rectangle") - IO () - -{-# DEPRECATED pageSelectionRegionFree ["(Since version 0.16)"]#-} -pageSelectionRegionFree :: - (MonadIO m) => - [Rectangle] -- region - -> m () -- result -pageSelectionRegionFree region = liftIO $ do - let region' = map unsafeManagedPtrGetPtr region - region'' <- packGList region' - poppler_page_selection_region_free region'' - mapM_ touchManagedPtr region - g_list_free region'' - return () - - diff --git a/GI/Poppler/Objects/Page.hs-boot b/GI/Poppler/Objects/Page.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/Page.hs-boot +++ /dev/null @@ -1,45 +0,0 @@ -module GI.Poppler.Objects.Page where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Page = Page (ForeignPtr Page) -instance GObject Page where -class GObject o => PageK o -instance (GObject o, IsDescendantOf Page o) => PageK o -data PageLabelPropertyInfo -data PageAddAnnotMethodInfo -data PageFindTextMethodInfo -data PageFindTextWithOptionsMethodInfo -data PageGetAnnotMappingMethodInfo -data PageGetCropBoxMethodInfo -data PageGetDurationMethodInfo -data PageGetFormFieldMappingMethodInfo -data PageGetImageMethodInfo -data PageGetImageMappingMethodInfo -data PageGetIndexMethodInfo -data PageGetLabelMethodInfo -data PageGetLinkMappingMethodInfo -data PageGetSelectedRegionMethodInfo -data PageGetSelectedTextMethodInfo -data PageGetSelectionRegionMethodInfo -data PageGetSizeMethodInfo -data PageGetTextMethodInfo -data PageGetTextAttributesMethodInfo -data PageGetTextAttributesForAreaMethodInfo -data PageGetTextForAreaMethodInfo -data PageGetTextLayoutMethodInfo -data PageGetTextLayoutForAreaMethodInfo -data PageGetThumbnailMethodInfo -data PageGetThumbnailSizeMethodInfo -data PageGetTransitionMethodInfo -data PageRemoveAnnotMethodInfo -data PageRenderMethodInfo -data PageRenderForPrintingMethodInfo -data PageRenderForPrintingWithOptionsMethodInfo -data PageRenderSelectionMethodInfo -data PageRenderToPsMethodInfo diff --git a/GI/Poppler/Objects/StructureElement.hs b/GI/Poppler/Objects/StructureElement.hs deleted file mode 100644 --- a/GI/Poppler/Objects/StructureElement.hs +++ /dev/null @@ -1,2052 +0,0 @@ - - -{- | -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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Nothing --- 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 : Just (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 : Just (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 : Just (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 : Just (TBasicType TUInt) --- 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 TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_values", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (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 TUInt - 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 TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_values", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (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 TUInt - 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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Nothing --- 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 : Just (TBasicType TInt) --- 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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Nothing --- 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 : Just (TBasicType TUInt) --- 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 : Just (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 : Nothing --- 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 : Just (TBasicType TUInt) --- 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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "n_text_spans", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (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 TUInt - 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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 - - diff --git a/GI/Poppler/Objects/StructureElement.hs-boot b/GI/Poppler/Objects/StructureElement.hs-boot deleted file mode 100644 --- a/GI/Poppler/Objects/StructureElement.hs-boot +++ /dev/null @@ -1,68 +0,0 @@ -module GI.Poppler.Objects.StructureElement where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype StructureElement = StructureElement (ForeignPtr StructureElement) -instance GObject StructureElement where -class GObject o => StructureElementK o -instance (GObject o, IsDescendantOf StructureElement o) => StructureElementK o -data StructureElementGetAbbreviationMethodInfo -data StructureElementGetActualTextMethodInfo -data StructureElementGetAltTextMethodInfo -data StructureElementGetBackgroundColorMethodInfo -data StructureElementGetBaselineShiftMethodInfo -data StructureElementGetBlockAlignMethodInfo -data StructureElementGetBorderColorMethodInfo -data StructureElementGetBorderStyleMethodInfo -data StructureElementGetBorderThicknessMethodInfo -data StructureElementGetBoundingBoxMethodInfo -data StructureElementGetColorMethodInfo -data StructureElementGetColumnCountMethodInfo -data StructureElementGetColumnGapsMethodInfo -data StructureElementGetColumnWidthsMethodInfo -data StructureElementGetEndIndentMethodInfo -data StructureElementGetFormDescriptionMethodInfo -data StructureElementGetFormRoleMethodInfo -data StructureElementGetFormStateMethodInfo -data StructureElementGetGlyphOrientationMethodInfo -data StructureElementGetHeightMethodInfo -data StructureElementGetIdMethodInfo -data StructureElementGetInlineAlignMethodInfo -data StructureElementGetKindMethodInfo -data StructureElementGetLanguageMethodInfo -data StructureElementGetLineHeightMethodInfo -data StructureElementGetListNumberingMethodInfo -data StructureElementGetPaddingMethodInfo -data StructureElementGetPageMethodInfo -data StructureElementGetPlacementMethodInfo -data StructureElementGetRubyAlignMethodInfo -data StructureElementGetRubyPositionMethodInfo -data StructureElementGetSpaceAfterMethodInfo -data StructureElementGetSpaceBeforeMethodInfo -data StructureElementGetStartIndentMethodInfo -data StructureElementGetTableBorderStyleMethodInfo -data StructureElementGetTableColumnSpanMethodInfo -data StructureElementGetTableHeadersMethodInfo -data StructureElementGetTablePaddingMethodInfo -data StructureElementGetTableRowSpanMethodInfo -data StructureElementGetTableScopeMethodInfo -data StructureElementGetTableSummaryMethodInfo -data StructureElementGetTextMethodInfo -data StructureElementGetTextAlignMethodInfo -data StructureElementGetTextDecorationColorMethodInfo -data StructureElementGetTextDecorationThicknessMethodInfo -data StructureElementGetTextDecorationTypeMethodInfo -data StructureElementGetTextIndentMethodInfo -data StructureElementGetTextSpansMethodInfo -data StructureElementGetTitleMethodInfo -data StructureElementGetWidthMethodInfo -data StructureElementGetWritingModeMethodInfo -data StructureElementIsBlockMethodInfo -data StructureElementIsContentMethodInfo -data StructureElementIsGroupingMethodInfo -data StructureElementIsInlineMethodInfo diff --git a/GI/Poppler/Structs.hs b/GI/Poppler/Structs.hs deleted file mode 100644 --- a/GI/Poppler/Structs.hs +++ /dev/null @@ -1,81 +0,0 @@ - - -{- | -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.Structs - ( module GI.Poppler.Structs.ActionAny , - module GI.Poppler.Structs.ActionGotoDest, - module GI.Poppler.Structs.ActionGotoRemote, - module GI.Poppler.Structs.ActionJavascript, - module GI.Poppler.Structs.ActionLaunch , - module GI.Poppler.Structs.ActionLayer , - module GI.Poppler.Structs.ActionMovie , - module GI.Poppler.Structs.ActionNamed , - module GI.Poppler.Structs.ActionOCGState, - module GI.Poppler.Structs.ActionRendition, - module GI.Poppler.Structs.ActionUri , - module GI.Poppler.Structs.AnnotCalloutLine, - module GI.Poppler.Structs.AnnotMapping , - module GI.Poppler.Structs.Color , - module GI.Poppler.Structs.Dest , - module GI.Poppler.Structs.FontsIter , - module GI.Poppler.Structs.FormFieldMapping, - module GI.Poppler.Structs.ImageMapping , - module GI.Poppler.Structs.IndexIter , - module GI.Poppler.Structs.LayersIter , - module GI.Poppler.Structs.LinkMapping , - module GI.Poppler.Structs.PageTransition, - module GI.Poppler.Structs.Point , - module GI.Poppler.Structs.Quadrilateral , - module GI.Poppler.Structs.Rectangle , - module GI.Poppler.Structs.StructureElementIter, - module GI.Poppler.Structs.TextAttributes, - module GI.Poppler.Structs.TextSpan , - - - ) where - -import GI.Poppler.Structs.ActionAny -import GI.Poppler.Structs.ActionGotoDest -import GI.Poppler.Structs.ActionGotoRemote -import GI.Poppler.Structs.ActionJavascript -import GI.Poppler.Structs.ActionLaunch -import GI.Poppler.Structs.ActionLayer -import GI.Poppler.Structs.ActionMovie -import GI.Poppler.Structs.ActionNamed -import GI.Poppler.Structs.ActionOCGState -import GI.Poppler.Structs.ActionRendition -import GI.Poppler.Structs.ActionUri -import GI.Poppler.Structs.AnnotCalloutLine -import GI.Poppler.Structs.AnnotMapping -import GI.Poppler.Structs.Color -import GI.Poppler.Structs.Dest -import GI.Poppler.Structs.FontsIter -import GI.Poppler.Structs.FormFieldMapping -import GI.Poppler.Structs.ImageMapping -import GI.Poppler.Structs.IndexIter -import GI.Poppler.Structs.LayersIter -import GI.Poppler.Structs.LinkMapping -import GI.Poppler.Structs.PageTransition -import GI.Poppler.Structs.Point -import GI.Poppler.Structs.Quadrilateral -import GI.Poppler.Structs.Rectangle -import GI.Poppler.Structs.StructureElementIter -import GI.Poppler.Structs.TextAttributes -import GI.Poppler.Structs.TextSpan - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - diff --git a/GI/Poppler/Structs/ActionAny.hs b/GI/Poppler/Structs/ActionAny.hs deleted file mode 100644 --- a/GI/Poppler/Structs/ActionAny.hs +++ /dev/null @@ -1,140 +0,0 @@ - - -{- | -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.Structs.ActionAny - ( - --- * Exported types - ActionAny(..) , - newZeroActionAny , - noActionAny , - - - -- * Properties --- ** Title - actionAnyClearTitle , - actionAnyReadTitle , - actionAnyTitle , - actionAnyWriteTitle , - - --- ** Type - actionAnyReadType , - actionAnyType , - actionAnyWriteType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ActionAny = ActionAny (ForeignPtr ActionAny) -instance WrappedPtr ActionAny where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ActionAny` struct initialized to zero. -newZeroActionAny :: MonadIO m => m ActionAny -newZeroActionAny = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionAny - -instance tag ~ 'AttrSet => Constructible ActionAny tag where - new _ attrs = do - o <- newZeroActionAny - GI.Attributes.set o attrs - return o - - -noActionAny :: Maybe ActionAny -noActionAny = Nothing - -actionAnyReadType :: MonadIO m => ActionAny -> m ActionType -actionAnyReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -actionAnyWriteType :: MonadIO m => ActionAny -> ActionType -> m () -actionAnyWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data ActionAnyTypeFieldInfo -instance AttrInfo ActionAnyTypeFieldInfo where - type AttrAllowedOps ActionAnyTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ActionAnyTypeFieldInfo = (~) ActionType - type AttrBaseTypeConstraint ActionAnyTypeFieldInfo = (~) ActionAny - type AttrGetType ActionAnyTypeFieldInfo = ActionType - type AttrLabel ActionAnyTypeFieldInfo = "type" - attrGet _ = actionAnyReadType - attrSet _ = actionAnyWriteType - attrConstruct = undefined - attrClear _ = undefined - -actionAnyType :: AttrLabelProxy "type" -actionAnyType = AttrLabelProxy - - -actionAnyReadTitle :: MonadIO m => ActionAny -> m (Maybe T.Text) -actionAnyReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionAnyWriteTitle :: MonadIO m => ActionAny -> CString -> m () -actionAnyWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -actionAnyClearTitle :: MonadIO m => ActionAny -> m () -actionAnyClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data ActionAnyTitleFieldInfo -instance AttrInfo ActionAnyTitleFieldInfo where - type AttrAllowedOps ActionAnyTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionAnyTitleFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionAnyTitleFieldInfo = (~) ActionAny - type AttrGetType ActionAnyTitleFieldInfo = Maybe T.Text - type AttrLabel ActionAnyTitleFieldInfo = "title" - attrGet _ = actionAnyReadTitle - attrSet _ = actionAnyWriteTitle - attrConstruct = undefined - attrClear _ = actionAnyClearTitle - -actionAnyTitle :: AttrLabelProxy "title" -actionAnyTitle = AttrLabelProxy - - - -type instance AttributeList ActionAny = ActionAnyAttributeList -type ActionAnyAttributeList = ('[ '("type", ActionAnyTypeFieldInfo), '("title", ActionAnyTitleFieldInfo)] :: [(Symbol, *)]) - -type family ResolveActionAnyMethod (t :: Symbol) (o :: *) :: * where - ResolveActionAnyMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionAnyMethod t ActionAny, MethodInfo info ActionAny p) => IsLabelProxy t (ActionAny -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionAnyMethod t ActionAny, MethodInfo info ActionAny p) => IsLabel t (ActionAny -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/ActionAny.hs-boot b/GI/Poppler/Structs/ActionAny.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/ActionAny.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Poppler.Structs.ActionAny where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionAny = ActionAny (ForeignPtr ActionAny) -instance WrappedPtr ActionAny where diff --git a/GI/Poppler/Structs/ActionGotoDest.hs b/GI/Poppler/Structs/ActionGotoDest.hs deleted file mode 100644 --- a/GI/Poppler/Structs/ActionGotoDest.hs +++ /dev/null @@ -1,179 +0,0 @@ - - -{- | -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.Structs.ActionGotoDest - ( - --- * Exported types - ActionGotoDest(..) , - newZeroActionGotoDest , - noActionGotoDest , - - - -- * Properties --- ** Dest - actionGotoDestClearDest , - actionGotoDestDest , - actionGotoDestReadDest , - actionGotoDestWriteDest , - - --- ** Title - actionGotoDestClearTitle , - actionGotoDestReadTitle , - actionGotoDestTitle , - actionGotoDestWriteTitle , - - --- ** Type - actionGotoDestReadType , - actionGotoDestType , - actionGotoDestWriteType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ActionGotoDest = ActionGotoDest (ForeignPtr ActionGotoDest) -instance WrappedPtr ActionGotoDest where - wrappedPtrCalloc = callocBytes 24 - wrappedPtrCopy = copyPtr 24 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ActionGotoDest` struct initialized to zero. -newZeroActionGotoDest :: MonadIO m => m ActionGotoDest -newZeroActionGotoDest = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionGotoDest - -instance tag ~ 'AttrSet => Constructible ActionGotoDest tag where - new _ attrs = do - o <- newZeroActionGotoDest - GI.Attributes.set o attrs - return o - - -noActionGotoDest :: Maybe ActionGotoDest -noActionGotoDest = Nothing - -actionGotoDestReadType :: MonadIO m => ActionGotoDest -> m ActionType -actionGotoDestReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -actionGotoDestWriteType :: MonadIO m => ActionGotoDest -> ActionType -> m () -actionGotoDestWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data ActionGotoDestTypeFieldInfo -instance AttrInfo ActionGotoDestTypeFieldInfo where - type AttrAllowedOps ActionGotoDestTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ActionGotoDestTypeFieldInfo = (~) ActionType - type AttrBaseTypeConstraint ActionGotoDestTypeFieldInfo = (~) ActionGotoDest - type AttrGetType ActionGotoDestTypeFieldInfo = ActionType - type AttrLabel ActionGotoDestTypeFieldInfo = "type" - attrGet _ = actionGotoDestReadType - attrSet _ = actionGotoDestWriteType - attrConstruct = undefined - attrClear _ = undefined - -actionGotoDestType :: AttrLabelProxy "type" -actionGotoDestType = AttrLabelProxy - - -actionGotoDestReadTitle :: MonadIO m => ActionGotoDest -> m (Maybe T.Text) -actionGotoDestReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionGotoDestWriteTitle :: MonadIO m => ActionGotoDest -> CString -> m () -actionGotoDestWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -actionGotoDestClearTitle :: MonadIO m => ActionGotoDest -> m () -actionGotoDestClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data ActionGotoDestTitleFieldInfo -instance AttrInfo ActionGotoDestTitleFieldInfo where - type AttrAllowedOps ActionGotoDestTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionGotoDestTitleFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionGotoDestTitleFieldInfo = (~) ActionGotoDest - type AttrGetType ActionGotoDestTitleFieldInfo = Maybe T.Text - type AttrLabel ActionGotoDestTitleFieldInfo = "title" - attrGet _ = actionGotoDestReadTitle - attrSet _ = actionGotoDestWriteTitle - attrConstruct = undefined - attrClear _ = actionGotoDestClearTitle - -actionGotoDestTitle :: AttrLabelProxy "title" -actionGotoDestTitle = AttrLabelProxy - - -actionGotoDestReadDest :: MonadIO m => ActionGotoDest -> m (Maybe Dest) -actionGotoDestReadDest s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr Dest) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Dest) val' - return val'' - return result - -actionGotoDestWriteDest :: MonadIO m => ActionGotoDest -> Ptr Dest -> m () -actionGotoDestWriteDest s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Ptr Dest) - -actionGotoDestClearDest :: MonadIO m => ActionGotoDest -> m () -actionGotoDestClearDest s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: Ptr Dest) - -data ActionGotoDestDestFieldInfo -instance AttrInfo ActionGotoDestDestFieldInfo where - type AttrAllowedOps ActionGotoDestDestFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionGotoDestDestFieldInfo = (~) (Ptr Dest) - type AttrBaseTypeConstraint ActionGotoDestDestFieldInfo = (~) ActionGotoDest - type AttrGetType ActionGotoDestDestFieldInfo = Maybe Dest - type AttrLabel ActionGotoDestDestFieldInfo = "dest" - attrGet _ = actionGotoDestReadDest - attrSet _ = actionGotoDestWriteDest - attrConstruct = undefined - attrClear _ = actionGotoDestClearDest - -actionGotoDestDest :: AttrLabelProxy "dest" -actionGotoDestDest = AttrLabelProxy - - - -type instance AttributeList ActionGotoDest = ActionGotoDestAttributeList -type ActionGotoDestAttributeList = ('[ '("type", ActionGotoDestTypeFieldInfo), '("title", ActionGotoDestTitleFieldInfo), '("dest", ActionGotoDestDestFieldInfo)] :: [(Symbol, *)]) - -type family ResolveActionGotoDestMethod (t :: Symbol) (o :: *) :: * where - ResolveActionGotoDestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionGotoDestMethod t ActionGotoDest, MethodInfo info ActionGotoDest p) => IsLabelProxy t (ActionGotoDest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionGotoDestMethod t ActionGotoDest, MethodInfo info ActionGotoDest p) => IsLabel t (ActionGotoDest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/ActionGotoDest.hs-boot b/GI/Poppler/Structs/ActionGotoDest.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/ActionGotoDest.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Poppler.Structs.ActionGotoDest where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionGotoDest = ActionGotoDest (ForeignPtr ActionGotoDest) -instance WrappedPtr ActionGotoDest where diff --git a/GI/Poppler/Structs/ActionGotoRemote.hs b/GI/Poppler/Structs/ActionGotoRemote.hs deleted file mode 100644 --- a/GI/Poppler/Structs/ActionGotoRemote.hs +++ /dev/null @@ -1,218 +0,0 @@ - - -{- | -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.Structs.ActionGotoRemote - ( - --- * Exported types - ActionGotoRemote(..) , - newZeroActionGotoRemote , - noActionGotoRemote , - - - -- * Properties --- ** Dest - actionGotoRemoteClearDest , - actionGotoRemoteDest , - actionGotoRemoteReadDest , - actionGotoRemoteWriteDest , - - --- ** FileName - actionGotoRemoteClearFileName , - actionGotoRemoteFileName , - actionGotoRemoteReadFileName , - actionGotoRemoteWriteFileName , - - --- ** Title - actionGotoRemoteClearTitle , - actionGotoRemoteReadTitle , - actionGotoRemoteTitle , - actionGotoRemoteWriteTitle , - - --- ** Type - actionGotoRemoteReadType , - actionGotoRemoteType , - actionGotoRemoteWriteType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ActionGotoRemote = ActionGotoRemote (ForeignPtr ActionGotoRemote) -instance WrappedPtr ActionGotoRemote where - wrappedPtrCalloc = callocBytes 32 - wrappedPtrCopy = copyPtr 32 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ActionGotoRemote` struct initialized to zero. -newZeroActionGotoRemote :: MonadIO m => m ActionGotoRemote -newZeroActionGotoRemote = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionGotoRemote - -instance tag ~ 'AttrSet => Constructible ActionGotoRemote tag where - new _ attrs = do - o <- newZeroActionGotoRemote - GI.Attributes.set o attrs - return o - - -noActionGotoRemote :: Maybe ActionGotoRemote -noActionGotoRemote = Nothing - -actionGotoRemoteReadType :: MonadIO m => ActionGotoRemote -> m ActionType -actionGotoRemoteReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -actionGotoRemoteWriteType :: MonadIO m => ActionGotoRemote -> ActionType -> m () -actionGotoRemoteWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data ActionGotoRemoteTypeFieldInfo -instance AttrInfo ActionGotoRemoteTypeFieldInfo where - type AttrAllowedOps ActionGotoRemoteTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ActionGotoRemoteTypeFieldInfo = (~) ActionType - type AttrBaseTypeConstraint ActionGotoRemoteTypeFieldInfo = (~) ActionGotoRemote - type AttrGetType ActionGotoRemoteTypeFieldInfo = ActionType - type AttrLabel ActionGotoRemoteTypeFieldInfo = "type" - attrGet _ = actionGotoRemoteReadType - attrSet _ = actionGotoRemoteWriteType - attrConstruct = undefined - attrClear _ = undefined - -actionGotoRemoteType :: AttrLabelProxy "type" -actionGotoRemoteType = AttrLabelProxy - - -actionGotoRemoteReadTitle :: MonadIO m => ActionGotoRemote -> m (Maybe T.Text) -actionGotoRemoteReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionGotoRemoteWriteTitle :: MonadIO m => ActionGotoRemote -> CString -> m () -actionGotoRemoteWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -actionGotoRemoteClearTitle :: MonadIO m => ActionGotoRemote -> m () -actionGotoRemoteClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data ActionGotoRemoteTitleFieldInfo -instance AttrInfo ActionGotoRemoteTitleFieldInfo where - type AttrAllowedOps ActionGotoRemoteTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionGotoRemoteTitleFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionGotoRemoteTitleFieldInfo = (~) ActionGotoRemote - type AttrGetType ActionGotoRemoteTitleFieldInfo = Maybe T.Text - type AttrLabel ActionGotoRemoteTitleFieldInfo = "title" - attrGet _ = actionGotoRemoteReadTitle - attrSet _ = actionGotoRemoteWriteTitle - attrConstruct = undefined - attrClear _ = actionGotoRemoteClearTitle - -actionGotoRemoteTitle :: AttrLabelProxy "title" -actionGotoRemoteTitle = AttrLabelProxy - - -actionGotoRemoteReadFileName :: MonadIO m => ActionGotoRemote -> m (Maybe T.Text) -actionGotoRemoteReadFileName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionGotoRemoteWriteFileName :: MonadIO m => ActionGotoRemote -> CString -> m () -actionGotoRemoteWriteFileName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -actionGotoRemoteClearFileName :: MonadIO m => ActionGotoRemote -> m () -actionGotoRemoteClearFileName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data ActionGotoRemoteFileNameFieldInfo -instance AttrInfo ActionGotoRemoteFileNameFieldInfo where - type AttrAllowedOps ActionGotoRemoteFileNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionGotoRemoteFileNameFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionGotoRemoteFileNameFieldInfo = (~) ActionGotoRemote - type AttrGetType ActionGotoRemoteFileNameFieldInfo = Maybe T.Text - type AttrLabel ActionGotoRemoteFileNameFieldInfo = "file_name" - attrGet _ = actionGotoRemoteReadFileName - attrSet _ = actionGotoRemoteWriteFileName - attrConstruct = undefined - attrClear _ = actionGotoRemoteClearFileName - -actionGotoRemoteFileName :: AttrLabelProxy "fileName" -actionGotoRemoteFileName = AttrLabelProxy - - -actionGotoRemoteReadDest :: MonadIO m => ActionGotoRemote -> m (Maybe Dest) -actionGotoRemoteReadDest s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr Dest) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Dest) val' - return val'' - return result - -actionGotoRemoteWriteDest :: MonadIO m => ActionGotoRemote -> Ptr Dest -> m () -actionGotoRemoteWriteDest s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr Dest) - -actionGotoRemoteClearDest :: MonadIO m => ActionGotoRemote -> m () -actionGotoRemoteClearDest s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr Dest) - -data ActionGotoRemoteDestFieldInfo -instance AttrInfo ActionGotoRemoteDestFieldInfo where - type AttrAllowedOps ActionGotoRemoteDestFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionGotoRemoteDestFieldInfo = (~) (Ptr Dest) - type AttrBaseTypeConstraint ActionGotoRemoteDestFieldInfo = (~) ActionGotoRemote - type AttrGetType ActionGotoRemoteDestFieldInfo = Maybe Dest - type AttrLabel ActionGotoRemoteDestFieldInfo = "dest" - attrGet _ = actionGotoRemoteReadDest - attrSet _ = actionGotoRemoteWriteDest - attrConstruct = undefined - attrClear _ = actionGotoRemoteClearDest - -actionGotoRemoteDest :: AttrLabelProxy "dest" -actionGotoRemoteDest = AttrLabelProxy - - - -type instance AttributeList ActionGotoRemote = ActionGotoRemoteAttributeList -type ActionGotoRemoteAttributeList = ('[ '("type", ActionGotoRemoteTypeFieldInfo), '("title", ActionGotoRemoteTitleFieldInfo), '("fileName", ActionGotoRemoteFileNameFieldInfo), '("dest", ActionGotoRemoteDestFieldInfo)] :: [(Symbol, *)]) - -type family ResolveActionGotoRemoteMethod (t :: Symbol) (o :: *) :: * where - ResolveActionGotoRemoteMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionGotoRemoteMethod t ActionGotoRemote, MethodInfo info ActionGotoRemote p) => IsLabelProxy t (ActionGotoRemote -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionGotoRemoteMethod t ActionGotoRemote, MethodInfo info ActionGotoRemote p) => IsLabel t (ActionGotoRemote -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/ActionGotoRemote.hs-boot b/GI/Poppler/Structs/ActionGotoRemote.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/ActionGotoRemote.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Poppler.Structs.ActionGotoRemote where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionGotoRemote = ActionGotoRemote (ForeignPtr ActionGotoRemote) -instance WrappedPtr ActionGotoRemote where diff --git a/GI/Poppler/Structs/ActionJavascript.hs b/GI/Poppler/Structs/ActionJavascript.hs deleted file mode 100644 --- a/GI/Poppler/Structs/ActionJavascript.hs +++ /dev/null @@ -1,179 +0,0 @@ - - -{- | -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.Structs.ActionJavascript - ( - --- * Exported types - ActionJavascript(..) , - newZeroActionJavascript , - noActionJavascript , - - - -- * Properties --- ** Script - actionJavascriptClearScript , - actionJavascriptReadScript , - actionJavascriptScript , - actionJavascriptWriteScript , - - --- ** Title - actionJavascriptClearTitle , - actionJavascriptReadTitle , - actionJavascriptTitle , - actionJavascriptWriteTitle , - - --- ** Type - actionJavascriptReadType , - actionJavascriptType , - actionJavascriptWriteType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ActionJavascript = ActionJavascript (ForeignPtr ActionJavascript) -instance WrappedPtr ActionJavascript where - wrappedPtrCalloc = callocBytes 24 - wrappedPtrCopy = copyPtr 24 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ActionJavascript` struct initialized to zero. -newZeroActionJavascript :: MonadIO m => m ActionJavascript -newZeroActionJavascript = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionJavascript - -instance tag ~ 'AttrSet => Constructible ActionJavascript tag where - new _ attrs = do - o <- newZeroActionJavascript - GI.Attributes.set o attrs - return o - - -noActionJavascript :: Maybe ActionJavascript -noActionJavascript = Nothing - -actionJavascriptReadType :: MonadIO m => ActionJavascript -> m ActionType -actionJavascriptReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -actionJavascriptWriteType :: MonadIO m => ActionJavascript -> ActionType -> m () -actionJavascriptWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data ActionJavascriptTypeFieldInfo -instance AttrInfo ActionJavascriptTypeFieldInfo where - type AttrAllowedOps ActionJavascriptTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ActionJavascriptTypeFieldInfo = (~) ActionType - type AttrBaseTypeConstraint ActionJavascriptTypeFieldInfo = (~) ActionJavascript - type AttrGetType ActionJavascriptTypeFieldInfo = ActionType - type AttrLabel ActionJavascriptTypeFieldInfo = "type" - attrGet _ = actionJavascriptReadType - attrSet _ = actionJavascriptWriteType - attrConstruct = undefined - attrClear _ = undefined - -actionJavascriptType :: AttrLabelProxy "type" -actionJavascriptType = AttrLabelProxy - - -actionJavascriptReadTitle :: MonadIO m => ActionJavascript -> m (Maybe T.Text) -actionJavascriptReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionJavascriptWriteTitle :: MonadIO m => ActionJavascript -> CString -> m () -actionJavascriptWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -actionJavascriptClearTitle :: MonadIO m => ActionJavascript -> m () -actionJavascriptClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data ActionJavascriptTitleFieldInfo -instance AttrInfo ActionJavascriptTitleFieldInfo where - type AttrAllowedOps ActionJavascriptTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionJavascriptTitleFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionJavascriptTitleFieldInfo = (~) ActionJavascript - type AttrGetType ActionJavascriptTitleFieldInfo = Maybe T.Text - type AttrLabel ActionJavascriptTitleFieldInfo = "title" - attrGet _ = actionJavascriptReadTitle - attrSet _ = actionJavascriptWriteTitle - attrConstruct = undefined - attrClear _ = actionJavascriptClearTitle - -actionJavascriptTitle :: AttrLabelProxy "title" -actionJavascriptTitle = AttrLabelProxy - - -actionJavascriptReadScript :: MonadIO m => ActionJavascript -> m (Maybe T.Text) -actionJavascriptReadScript s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionJavascriptWriteScript :: MonadIO m => ActionJavascript -> CString -> m () -actionJavascriptWriteScript s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -actionJavascriptClearScript :: MonadIO m => ActionJavascript -> m () -actionJavascriptClearScript s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data ActionJavascriptScriptFieldInfo -instance AttrInfo ActionJavascriptScriptFieldInfo where - type AttrAllowedOps ActionJavascriptScriptFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionJavascriptScriptFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionJavascriptScriptFieldInfo = (~) ActionJavascript - type AttrGetType ActionJavascriptScriptFieldInfo = Maybe T.Text - type AttrLabel ActionJavascriptScriptFieldInfo = "script" - attrGet _ = actionJavascriptReadScript - attrSet _ = actionJavascriptWriteScript - attrConstruct = undefined - attrClear _ = actionJavascriptClearScript - -actionJavascriptScript :: AttrLabelProxy "script" -actionJavascriptScript = AttrLabelProxy - - - -type instance AttributeList ActionJavascript = ActionJavascriptAttributeList -type ActionJavascriptAttributeList = ('[ '("type", ActionJavascriptTypeFieldInfo), '("title", ActionJavascriptTitleFieldInfo), '("script", ActionJavascriptScriptFieldInfo)] :: [(Symbol, *)]) - -type family ResolveActionJavascriptMethod (t :: Symbol) (o :: *) :: * where - ResolveActionJavascriptMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionJavascriptMethod t ActionJavascript, MethodInfo info ActionJavascript p) => IsLabelProxy t (ActionJavascript -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionJavascriptMethod t ActionJavascript, MethodInfo info ActionJavascript p) => IsLabel t (ActionJavascript -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/ActionJavascript.hs-boot b/GI/Poppler/Structs/ActionJavascript.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/ActionJavascript.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Poppler.Structs.ActionJavascript where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionJavascript = ActionJavascript (ForeignPtr ActionJavascript) -instance WrappedPtr ActionJavascript where diff --git a/GI/Poppler/Structs/ActionLaunch.hs b/GI/Poppler/Structs/ActionLaunch.hs deleted file mode 100644 --- a/GI/Poppler/Structs/ActionLaunch.hs +++ /dev/null @@ -1,218 +0,0 @@ - - -{- | -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.Structs.ActionLaunch - ( - --- * Exported types - ActionLaunch(..) , - newZeroActionLaunch , - noActionLaunch , - - - -- * Properties --- ** FileName - actionLaunchClearFileName , - actionLaunchFileName , - actionLaunchReadFileName , - actionLaunchWriteFileName , - - --- ** Params - actionLaunchClearParams , - actionLaunchParams , - actionLaunchReadParams , - actionLaunchWriteParams , - - --- ** Title - actionLaunchClearTitle , - actionLaunchReadTitle , - actionLaunchTitle , - actionLaunchWriteTitle , - - --- ** Type - actionLaunchReadType , - actionLaunchType , - actionLaunchWriteType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ActionLaunch = ActionLaunch (ForeignPtr ActionLaunch) -instance WrappedPtr ActionLaunch where - wrappedPtrCalloc = callocBytes 32 - wrappedPtrCopy = copyPtr 32 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ActionLaunch` struct initialized to zero. -newZeroActionLaunch :: MonadIO m => m ActionLaunch -newZeroActionLaunch = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionLaunch - -instance tag ~ 'AttrSet => Constructible ActionLaunch tag where - new _ attrs = do - o <- newZeroActionLaunch - GI.Attributes.set o attrs - return o - - -noActionLaunch :: Maybe ActionLaunch -noActionLaunch = Nothing - -actionLaunchReadType :: MonadIO m => ActionLaunch -> m ActionType -actionLaunchReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -actionLaunchWriteType :: MonadIO m => ActionLaunch -> ActionType -> m () -actionLaunchWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data ActionLaunchTypeFieldInfo -instance AttrInfo ActionLaunchTypeFieldInfo where - type AttrAllowedOps ActionLaunchTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ActionLaunchTypeFieldInfo = (~) ActionType - type AttrBaseTypeConstraint ActionLaunchTypeFieldInfo = (~) ActionLaunch - type AttrGetType ActionLaunchTypeFieldInfo = ActionType - type AttrLabel ActionLaunchTypeFieldInfo = "type" - attrGet _ = actionLaunchReadType - attrSet _ = actionLaunchWriteType - attrConstruct = undefined - attrClear _ = undefined - -actionLaunchType :: AttrLabelProxy "type" -actionLaunchType = AttrLabelProxy - - -actionLaunchReadTitle :: MonadIO m => ActionLaunch -> m (Maybe T.Text) -actionLaunchReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionLaunchWriteTitle :: MonadIO m => ActionLaunch -> CString -> m () -actionLaunchWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -actionLaunchClearTitle :: MonadIO m => ActionLaunch -> m () -actionLaunchClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data ActionLaunchTitleFieldInfo -instance AttrInfo ActionLaunchTitleFieldInfo where - type AttrAllowedOps ActionLaunchTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionLaunchTitleFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionLaunchTitleFieldInfo = (~) ActionLaunch - type AttrGetType ActionLaunchTitleFieldInfo = Maybe T.Text - type AttrLabel ActionLaunchTitleFieldInfo = "title" - attrGet _ = actionLaunchReadTitle - attrSet _ = actionLaunchWriteTitle - attrConstruct = undefined - attrClear _ = actionLaunchClearTitle - -actionLaunchTitle :: AttrLabelProxy "title" -actionLaunchTitle = AttrLabelProxy - - -actionLaunchReadFileName :: MonadIO m => ActionLaunch -> m (Maybe T.Text) -actionLaunchReadFileName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionLaunchWriteFileName :: MonadIO m => ActionLaunch -> CString -> m () -actionLaunchWriteFileName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -actionLaunchClearFileName :: MonadIO m => ActionLaunch -> m () -actionLaunchClearFileName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data ActionLaunchFileNameFieldInfo -instance AttrInfo ActionLaunchFileNameFieldInfo where - type AttrAllowedOps ActionLaunchFileNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionLaunchFileNameFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionLaunchFileNameFieldInfo = (~) ActionLaunch - type AttrGetType ActionLaunchFileNameFieldInfo = Maybe T.Text - type AttrLabel ActionLaunchFileNameFieldInfo = "file_name" - attrGet _ = actionLaunchReadFileName - attrSet _ = actionLaunchWriteFileName - attrConstruct = undefined - attrClear _ = actionLaunchClearFileName - -actionLaunchFileName :: AttrLabelProxy "fileName" -actionLaunchFileName = AttrLabelProxy - - -actionLaunchReadParams :: MonadIO m => ActionLaunch -> m (Maybe T.Text) -actionLaunchReadParams s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionLaunchWriteParams :: MonadIO m => ActionLaunch -> CString -> m () -actionLaunchWriteParams s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: CString) - -actionLaunchClearParams :: MonadIO m => ActionLaunch -> m () -actionLaunchClearParams s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: CString) - -data ActionLaunchParamsFieldInfo -instance AttrInfo ActionLaunchParamsFieldInfo where - type AttrAllowedOps ActionLaunchParamsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionLaunchParamsFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionLaunchParamsFieldInfo = (~) ActionLaunch - type AttrGetType ActionLaunchParamsFieldInfo = Maybe T.Text - type AttrLabel ActionLaunchParamsFieldInfo = "params" - attrGet _ = actionLaunchReadParams - attrSet _ = actionLaunchWriteParams - attrConstruct = undefined - attrClear _ = actionLaunchClearParams - -actionLaunchParams :: AttrLabelProxy "params" -actionLaunchParams = AttrLabelProxy - - - -type instance AttributeList ActionLaunch = ActionLaunchAttributeList -type ActionLaunchAttributeList = ('[ '("type", ActionLaunchTypeFieldInfo), '("title", ActionLaunchTitleFieldInfo), '("fileName", ActionLaunchFileNameFieldInfo), '("params", ActionLaunchParamsFieldInfo)] :: [(Symbol, *)]) - -type family ResolveActionLaunchMethod (t :: Symbol) (o :: *) :: * where - ResolveActionLaunchMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionLaunchMethod t ActionLaunch, MethodInfo info ActionLaunch p) => IsLabelProxy t (ActionLaunch -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionLaunchMethod t ActionLaunch, MethodInfo info ActionLaunch p) => IsLabel t (ActionLaunch -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/ActionLaunch.hs-boot b/GI/Poppler/Structs/ActionLaunch.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/ActionLaunch.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Poppler.Structs.ActionLaunch where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionLaunch = ActionLaunch (ForeignPtr ActionLaunch) -instance WrappedPtr ActionLaunch where diff --git a/GI/Poppler/Structs/ActionLayer.hs b/GI/Poppler/Structs/ActionLayer.hs deleted file mode 100644 --- a/GI/Poppler/Structs/ActionLayer.hs +++ /dev/null @@ -1,140 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Action to perform over a list of layers --} - -module GI.Poppler.Structs.ActionLayer - ( - --- * Exported types - ActionLayer(..) , - newZeroActionLayer , - noActionLayer , - - - -- * Properties --- ** Action - actionLayerAction , - actionLayerReadAction , - actionLayerWriteAction , - - --- ** Layers - actionLayerClearLayers , - actionLayerLayers , - actionLayerReadLayers , - actionLayerWriteLayers , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ActionLayer = ActionLayer (ForeignPtr ActionLayer) -instance WrappedPtr ActionLayer where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ActionLayer` struct initialized to zero. -newZeroActionLayer :: MonadIO m => m ActionLayer -newZeroActionLayer = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionLayer - -instance tag ~ 'AttrSet => Constructible ActionLayer tag where - new _ attrs = do - o <- newZeroActionLayer - GI.Attributes.set o attrs - return o - - -noActionLayer :: Maybe ActionLayer -noActionLayer = Nothing - -actionLayerReadAction :: MonadIO m => ActionLayer -> m ActionLayerAction -actionLayerReadAction s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -actionLayerWriteAction :: MonadIO m => ActionLayer -> ActionLayerAction -> m () -actionLayerWriteAction s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data ActionLayerActionFieldInfo -instance AttrInfo ActionLayerActionFieldInfo where - type AttrAllowedOps ActionLayerActionFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ActionLayerActionFieldInfo = (~) ActionLayerAction - type AttrBaseTypeConstraint ActionLayerActionFieldInfo = (~) ActionLayer - type AttrGetType ActionLayerActionFieldInfo = ActionLayerAction - type AttrLabel ActionLayerActionFieldInfo = "action" - attrGet _ = actionLayerReadAction - attrSet _ = actionLayerWriteAction - attrConstruct = undefined - attrClear _ = undefined - -actionLayerAction :: AttrLabelProxy "action" -actionLayerAction = AttrLabelProxy - - -actionLayerReadLayers :: MonadIO m => ActionLayer -> m ([Ptr ()]) -actionLayerReadLayers s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr (GList (Ptr ()))) - val' <- unpackGList val - return val' - -actionLayerWriteLayers :: MonadIO m => ActionLayer -> Ptr (GList (Ptr ())) -> m () -actionLayerWriteLayers s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr (GList (Ptr ()))) - -actionLayerClearLayers :: MonadIO m => ActionLayer -> m () -actionLayerClearLayers s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr (GList (Ptr ()))) - -data ActionLayerLayersFieldInfo -instance AttrInfo ActionLayerLayersFieldInfo where - type AttrAllowedOps ActionLayerLayersFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionLayerLayersFieldInfo = (~) (Ptr (GList (Ptr ()))) - type AttrBaseTypeConstraint ActionLayerLayersFieldInfo = (~) ActionLayer - type AttrGetType ActionLayerLayersFieldInfo = [Ptr ()] - type AttrLabel ActionLayerLayersFieldInfo = "layers" - attrGet _ = actionLayerReadLayers - attrSet _ = actionLayerWriteLayers - attrConstruct = undefined - attrClear _ = actionLayerClearLayers - -actionLayerLayers :: AttrLabelProxy "layers" -actionLayerLayers = AttrLabelProxy - - - -type instance AttributeList ActionLayer = ActionLayerAttributeList -type ActionLayerAttributeList = ('[ '("action", ActionLayerActionFieldInfo), '("layers", ActionLayerLayersFieldInfo)] :: [(Symbol, *)]) - -type family ResolveActionLayerMethod (t :: Symbol) (o :: *) :: * where - ResolveActionLayerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionLayerMethod t ActionLayer, MethodInfo info ActionLayer p) => IsLabelProxy t (ActionLayer -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionLayerMethod t ActionLayer, MethodInfo info ActionLayer p) => IsLabel t (ActionLayer -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/ActionLayer.hs-boot b/GI/Poppler/Structs/ActionLayer.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/ActionLayer.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Poppler.Structs.ActionLayer where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionLayer = ActionLayer (ForeignPtr ActionLayer) -instance WrappedPtr ActionLayer where diff --git a/GI/Poppler/Structs/ActionMovie.hs b/GI/Poppler/Structs/ActionMovie.hs deleted file mode 100644 --- a/GI/Poppler/Structs/ActionMovie.hs +++ /dev/null @@ -1,212 +0,0 @@ - - -{- | -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.Structs.ActionMovie - ( - --- * Exported types - ActionMovie(..) , - newZeroActionMovie , - noActionMovie , - - - -- * Properties --- ** Movie - actionMovieClearMovie , - actionMovieMovie , - actionMovieReadMovie , - actionMovieWriteMovie , - - --- ** Operation - actionMovieOperation , - actionMovieReadOperation , - actionMovieWriteOperation , - - --- ** Title - actionMovieClearTitle , - actionMovieReadTitle , - actionMovieTitle , - actionMovieWriteTitle , - - --- ** Type - actionMovieReadType , - actionMovieType , - actionMovieWriteType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ActionMovie = ActionMovie (ForeignPtr ActionMovie) -instance WrappedPtr ActionMovie where - wrappedPtrCalloc = callocBytes 32 - wrappedPtrCopy = copyPtr 32 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ActionMovie` struct initialized to zero. -newZeroActionMovie :: MonadIO m => m ActionMovie -newZeroActionMovie = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionMovie - -instance tag ~ 'AttrSet => Constructible ActionMovie tag where - new _ attrs = do - o <- newZeroActionMovie - GI.Attributes.set o attrs - return o - - -noActionMovie :: Maybe ActionMovie -noActionMovie = Nothing - -actionMovieReadType :: MonadIO m => ActionMovie -> m ActionType -actionMovieReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -actionMovieWriteType :: MonadIO m => ActionMovie -> ActionType -> m () -actionMovieWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data ActionMovieTypeFieldInfo -instance AttrInfo ActionMovieTypeFieldInfo where - type AttrAllowedOps ActionMovieTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ActionMovieTypeFieldInfo = (~) ActionType - type AttrBaseTypeConstraint ActionMovieTypeFieldInfo = (~) ActionMovie - type AttrGetType ActionMovieTypeFieldInfo = ActionType - type AttrLabel ActionMovieTypeFieldInfo = "type" - attrGet _ = actionMovieReadType - attrSet _ = actionMovieWriteType - attrConstruct = undefined - attrClear _ = undefined - -actionMovieType :: AttrLabelProxy "type" -actionMovieType = AttrLabelProxy - - -actionMovieReadTitle :: MonadIO m => ActionMovie -> m (Maybe T.Text) -actionMovieReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionMovieWriteTitle :: MonadIO m => ActionMovie -> CString -> m () -actionMovieWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -actionMovieClearTitle :: MonadIO m => ActionMovie -> m () -actionMovieClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data ActionMovieTitleFieldInfo -instance AttrInfo ActionMovieTitleFieldInfo where - type AttrAllowedOps ActionMovieTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionMovieTitleFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionMovieTitleFieldInfo = (~) ActionMovie - type AttrGetType ActionMovieTitleFieldInfo = Maybe T.Text - type AttrLabel ActionMovieTitleFieldInfo = "title" - attrGet _ = actionMovieReadTitle - attrSet _ = actionMovieWriteTitle - attrConstruct = undefined - attrClear _ = actionMovieClearTitle - -actionMovieTitle :: AttrLabelProxy "title" -actionMovieTitle = AttrLabelProxy - - -actionMovieReadOperation :: MonadIO m => ActionMovie -> m ActionMovieOperation -actionMovieReadOperation s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -actionMovieWriteOperation :: MonadIO m => ActionMovie -> ActionMovieOperation -> m () -actionMovieWriteOperation s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 16) (val' :: CUInt) - -data ActionMovieOperationFieldInfo -instance AttrInfo ActionMovieOperationFieldInfo where - type AttrAllowedOps ActionMovieOperationFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ActionMovieOperationFieldInfo = (~) ActionMovieOperation - type AttrBaseTypeConstraint ActionMovieOperationFieldInfo = (~) ActionMovie - type AttrGetType ActionMovieOperationFieldInfo = ActionMovieOperation - type AttrLabel ActionMovieOperationFieldInfo = "operation" - attrGet _ = actionMovieReadOperation - attrSet _ = actionMovieWriteOperation - attrConstruct = undefined - attrClear _ = undefined - -actionMovieOperation :: AttrLabelProxy "operation" -actionMovieOperation = AttrLabelProxy - - -actionMovieReadMovie :: MonadIO m => ActionMovie -> m (Maybe Movie) -actionMovieReadMovie s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr Movie) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Movie) val' - return val'' - return result - -actionMovieWriteMovie :: MonadIO m => ActionMovie -> Ptr Movie -> m () -actionMovieWriteMovie s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr Movie) - -actionMovieClearMovie :: MonadIO m => ActionMovie -> m () -actionMovieClearMovie s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr Movie) - -data ActionMovieMovieFieldInfo -instance AttrInfo ActionMovieMovieFieldInfo where - type AttrAllowedOps ActionMovieMovieFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionMovieMovieFieldInfo = (~) (Ptr Movie) - type AttrBaseTypeConstraint ActionMovieMovieFieldInfo = (~) ActionMovie - type AttrGetType ActionMovieMovieFieldInfo = Maybe Movie - type AttrLabel ActionMovieMovieFieldInfo = "movie" - attrGet _ = actionMovieReadMovie - attrSet _ = actionMovieWriteMovie - attrConstruct = undefined - attrClear _ = actionMovieClearMovie - -actionMovieMovie :: AttrLabelProxy "movie" -actionMovieMovie = AttrLabelProxy - - - -type instance AttributeList ActionMovie = ActionMovieAttributeList -type ActionMovieAttributeList = ('[ '("type", ActionMovieTypeFieldInfo), '("title", ActionMovieTitleFieldInfo), '("operation", ActionMovieOperationFieldInfo), '("movie", ActionMovieMovieFieldInfo)] :: [(Symbol, *)]) - -type family ResolveActionMovieMethod (t :: Symbol) (o :: *) :: * where - ResolveActionMovieMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionMovieMethod t ActionMovie, MethodInfo info ActionMovie p) => IsLabelProxy t (ActionMovie -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionMovieMethod t ActionMovie, MethodInfo info ActionMovie p) => IsLabel t (ActionMovie -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/ActionMovie.hs-boot b/GI/Poppler/Structs/ActionMovie.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/ActionMovie.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Poppler.Structs.ActionMovie where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionMovie = ActionMovie (ForeignPtr ActionMovie) -instance WrappedPtr ActionMovie where diff --git a/GI/Poppler/Structs/ActionNamed.hs b/GI/Poppler/Structs/ActionNamed.hs deleted file mode 100644 --- a/GI/Poppler/Structs/ActionNamed.hs +++ /dev/null @@ -1,179 +0,0 @@ - - -{- | -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.Structs.ActionNamed - ( - --- * Exported types - ActionNamed(..) , - newZeroActionNamed , - noActionNamed , - - - -- * Properties --- ** NamedDest - actionNamedClearNamedDest , - actionNamedNamedDest , - actionNamedReadNamedDest , - actionNamedWriteNamedDest , - - --- ** Title - actionNamedClearTitle , - actionNamedReadTitle , - actionNamedTitle , - actionNamedWriteTitle , - - --- ** Type - actionNamedReadType , - actionNamedType , - actionNamedWriteType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ActionNamed = ActionNamed (ForeignPtr ActionNamed) -instance WrappedPtr ActionNamed where - wrappedPtrCalloc = callocBytes 24 - wrappedPtrCopy = copyPtr 24 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ActionNamed` struct initialized to zero. -newZeroActionNamed :: MonadIO m => m ActionNamed -newZeroActionNamed = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionNamed - -instance tag ~ 'AttrSet => Constructible ActionNamed tag where - new _ attrs = do - o <- newZeroActionNamed - GI.Attributes.set o attrs - return o - - -noActionNamed :: Maybe ActionNamed -noActionNamed = Nothing - -actionNamedReadType :: MonadIO m => ActionNamed -> m ActionType -actionNamedReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -actionNamedWriteType :: MonadIO m => ActionNamed -> ActionType -> m () -actionNamedWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data ActionNamedTypeFieldInfo -instance AttrInfo ActionNamedTypeFieldInfo where - type AttrAllowedOps ActionNamedTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ActionNamedTypeFieldInfo = (~) ActionType - type AttrBaseTypeConstraint ActionNamedTypeFieldInfo = (~) ActionNamed - type AttrGetType ActionNamedTypeFieldInfo = ActionType - type AttrLabel ActionNamedTypeFieldInfo = "type" - attrGet _ = actionNamedReadType - attrSet _ = actionNamedWriteType - attrConstruct = undefined - attrClear _ = undefined - -actionNamedType :: AttrLabelProxy "type" -actionNamedType = AttrLabelProxy - - -actionNamedReadTitle :: MonadIO m => ActionNamed -> m (Maybe T.Text) -actionNamedReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionNamedWriteTitle :: MonadIO m => ActionNamed -> CString -> m () -actionNamedWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -actionNamedClearTitle :: MonadIO m => ActionNamed -> m () -actionNamedClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data ActionNamedTitleFieldInfo -instance AttrInfo ActionNamedTitleFieldInfo where - type AttrAllowedOps ActionNamedTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionNamedTitleFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionNamedTitleFieldInfo = (~) ActionNamed - type AttrGetType ActionNamedTitleFieldInfo = Maybe T.Text - type AttrLabel ActionNamedTitleFieldInfo = "title" - attrGet _ = actionNamedReadTitle - attrSet _ = actionNamedWriteTitle - attrConstruct = undefined - attrClear _ = actionNamedClearTitle - -actionNamedTitle :: AttrLabelProxy "title" -actionNamedTitle = AttrLabelProxy - - -actionNamedReadNamedDest :: MonadIO m => ActionNamed -> m (Maybe T.Text) -actionNamedReadNamedDest s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionNamedWriteNamedDest :: MonadIO m => ActionNamed -> CString -> m () -actionNamedWriteNamedDest s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -actionNamedClearNamedDest :: MonadIO m => ActionNamed -> m () -actionNamedClearNamedDest s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data ActionNamedNamedDestFieldInfo -instance AttrInfo ActionNamedNamedDestFieldInfo where - type AttrAllowedOps ActionNamedNamedDestFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionNamedNamedDestFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionNamedNamedDestFieldInfo = (~) ActionNamed - type AttrGetType ActionNamedNamedDestFieldInfo = Maybe T.Text - type AttrLabel ActionNamedNamedDestFieldInfo = "named_dest" - attrGet _ = actionNamedReadNamedDest - attrSet _ = actionNamedWriteNamedDest - attrConstruct = undefined - attrClear _ = actionNamedClearNamedDest - -actionNamedNamedDest :: AttrLabelProxy "namedDest" -actionNamedNamedDest = AttrLabelProxy - - - -type instance AttributeList ActionNamed = ActionNamedAttributeList -type ActionNamedAttributeList = ('[ '("type", ActionNamedTypeFieldInfo), '("title", ActionNamedTitleFieldInfo), '("namedDest", ActionNamedNamedDestFieldInfo)] :: [(Symbol, *)]) - -type family ResolveActionNamedMethod (t :: Symbol) (o :: *) :: * where - ResolveActionNamedMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionNamedMethod t ActionNamed, MethodInfo info ActionNamed p) => IsLabelProxy t (ActionNamed -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionNamedMethod t ActionNamed, MethodInfo info ActionNamed p) => IsLabel t (ActionNamed -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/ActionNamed.hs-boot b/GI/Poppler/Structs/ActionNamed.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/ActionNamed.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Poppler.Structs.ActionNamed where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionNamed = ActionNamed (ForeignPtr ActionNamed) -instance WrappedPtr ActionNamed where diff --git a/GI/Poppler/Structs/ActionOCGState.hs b/GI/Poppler/Structs/ActionOCGState.hs deleted file mode 100644 --- a/GI/Poppler/Structs/ActionOCGState.hs +++ /dev/null @@ -1,177 +0,0 @@ - - -{- | -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.Structs.ActionOCGState - ( - --- * Exported types - ActionOCGState(..) , - newZeroActionOCGState , - noActionOCGState , - - - -- * Properties --- ** StateList - actionOCGStateClearStateList , - actionOCGStateReadStateList , - actionOCGStateStateList , - actionOCGStateWriteStateList , - - --- ** Title - actionOCGStateClearTitle , - actionOCGStateReadTitle , - actionOCGStateTitle , - actionOCGStateWriteTitle , - - --- ** Type - actionOCGStateReadType , - actionOCGStateType , - actionOCGStateWriteType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ActionOCGState = ActionOCGState (ForeignPtr ActionOCGState) -instance WrappedPtr ActionOCGState where - wrappedPtrCalloc = callocBytes 24 - wrappedPtrCopy = copyPtr 24 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ActionOCGState` struct initialized to zero. -newZeroActionOCGState :: MonadIO m => m ActionOCGState -newZeroActionOCGState = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionOCGState - -instance tag ~ 'AttrSet => Constructible ActionOCGState tag where - new _ attrs = do - o <- newZeroActionOCGState - GI.Attributes.set o attrs - return o - - -noActionOCGState :: Maybe ActionOCGState -noActionOCGState = Nothing - -actionOCGStateReadType :: MonadIO m => ActionOCGState -> m ActionType -actionOCGStateReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -actionOCGStateWriteType :: MonadIO m => ActionOCGState -> ActionType -> m () -actionOCGStateWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data ActionOCGStateTypeFieldInfo -instance AttrInfo ActionOCGStateTypeFieldInfo where - type AttrAllowedOps ActionOCGStateTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ActionOCGStateTypeFieldInfo = (~) ActionType - type AttrBaseTypeConstraint ActionOCGStateTypeFieldInfo = (~) ActionOCGState - type AttrGetType ActionOCGStateTypeFieldInfo = ActionType - type AttrLabel ActionOCGStateTypeFieldInfo = "type" - attrGet _ = actionOCGStateReadType - attrSet _ = actionOCGStateWriteType - attrConstruct = undefined - attrClear _ = undefined - -actionOCGStateType :: AttrLabelProxy "type" -actionOCGStateType = AttrLabelProxy - - -actionOCGStateReadTitle :: MonadIO m => ActionOCGState -> m (Maybe T.Text) -actionOCGStateReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionOCGStateWriteTitle :: MonadIO m => ActionOCGState -> CString -> m () -actionOCGStateWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -actionOCGStateClearTitle :: MonadIO m => ActionOCGState -> m () -actionOCGStateClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data ActionOCGStateTitleFieldInfo -instance AttrInfo ActionOCGStateTitleFieldInfo where - type AttrAllowedOps ActionOCGStateTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionOCGStateTitleFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionOCGStateTitleFieldInfo = (~) ActionOCGState - type AttrGetType ActionOCGStateTitleFieldInfo = Maybe T.Text - type AttrLabel ActionOCGStateTitleFieldInfo = "title" - attrGet _ = actionOCGStateReadTitle - attrSet _ = actionOCGStateWriteTitle - attrConstruct = undefined - attrClear _ = actionOCGStateClearTitle - -actionOCGStateTitle :: AttrLabelProxy "title" -actionOCGStateTitle = AttrLabelProxy - - -actionOCGStateReadStateList :: MonadIO m => ActionOCGState -> m ([Ptr ()]) -actionOCGStateReadStateList s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr (GList (Ptr ()))) - val' <- unpackGList val - return val' - -actionOCGStateWriteStateList :: MonadIO m => ActionOCGState -> Ptr (GList (Ptr ())) -> m () -actionOCGStateWriteStateList s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Ptr (GList (Ptr ()))) - -actionOCGStateClearStateList :: MonadIO m => ActionOCGState -> m () -actionOCGStateClearStateList s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: Ptr (GList (Ptr ()))) - -data ActionOCGStateStateListFieldInfo -instance AttrInfo ActionOCGStateStateListFieldInfo where - type AttrAllowedOps ActionOCGStateStateListFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionOCGStateStateListFieldInfo = (~) (Ptr (GList (Ptr ()))) - type AttrBaseTypeConstraint ActionOCGStateStateListFieldInfo = (~) ActionOCGState - type AttrGetType ActionOCGStateStateListFieldInfo = [Ptr ()] - type AttrLabel ActionOCGStateStateListFieldInfo = "state_list" - attrGet _ = actionOCGStateReadStateList - attrSet _ = actionOCGStateWriteStateList - attrConstruct = undefined - attrClear _ = actionOCGStateClearStateList - -actionOCGStateStateList :: AttrLabelProxy "stateList" -actionOCGStateStateList = AttrLabelProxy - - - -type instance AttributeList ActionOCGState = ActionOCGStateAttributeList -type ActionOCGStateAttributeList = ('[ '("type", ActionOCGStateTypeFieldInfo), '("title", ActionOCGStateTitleFieldInfo), '("stateList", ActionOCGStateStateListFieldInfo)] :: [(Symbol, *)]) - -type family ResolveActionOCGStateMethod (t :: Symbol) (o :: *) :: * where - ResolveActionOCGStateMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionOCGStateMethod t ActionOCGState, MethodInfo info ActionOCGState p) => IsLabelProxy t (ActionOCGState -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionOCGStateMethod t ActionOCGState, MethodInfo info ActionOCGState p) => IsLabel t (ActionOCGState -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/ActionOCGState.hs-boot b/GI/Poppler/Structs/ActionOCGState.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/ActionOCGState.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Poppler.Structs.ActionOCGState where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionOCGState = ActionOCGState (ForeignPtr ActionOCGState) -instance WrappedPtr ActionOCGState where diff --git a/GI/Poppler/Structs/ActionRendition.hs b/GI/Poppler/Structs/ActionRendition.hs deleted file mode 100644 --- a/GI/Poppler/Structs/ActionRendition.hs +++ /dev/null @@ -1,210 +0,0 @@ - - -{- | -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.Structs.ActionRendition - ( - --- * Exported types - ActionRendition(..) , - newZeroActionRendition , - noActionRendition , - - - -- * Properties --- ** Media - actionRenditionClearMedia , - actionRenditionMedia , - actionRenditionReadMedia , - actionRenditionWriteMedia , - - --- ** Op - actionRenditionOp , - actionRenditionReadOp , - actionRenditionWriteOp , - - --- ** Title - actionRenditionClearTitle , - actionRenditionReadTitle , - actionRenditionTitle , - actionRenditionWriteTitle , - - --- ** Type - actionRenditionReadType , - actionRenditionType , - actionRenditionWriteType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ActionRendition = ActionRendition (ForeignPtr ActionRendition) -instance WrappedPtr ActionRendition where - wrappedPtrCalloc = callocBytes 32 - wrappedPtrCopy = copyPtr 32 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ActionRendition` struct initialized to zero. -newZeroActionRendition :: MonadIO m => m ActionRendition -newZeroActionRendition = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionRendition - -instance tag ~ 'AttrSet => Constructible ActionRendition tag where - new _ attrs = do - o <- newZeroActionRendition - GI.Attributes.set o attrs - return o - - -noActionRendition :: Maybe ActionRendition -noActionRendition = Nothing - -actionRenditionReadType :: MonadIO m => ActionRendition -> m ActionType -actionRenditionReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -actionRenditionWriteType :: MonadIO m => ActionRendition -> ActionType -> m () -actionRenditionWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data ActionRenditionTypeFieldInfo -instance AttrInfo ActionRenditionTypeFieldInfo where - type AttrAllowedOps ActionRenditionTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ActionRenditionTypeFieldInfo = (~) ActionType - type AttrBaseTypeConstraint ActionRenditionTypeFieldInfo = (~) ActionRendition - type AttrGetType ActionRenditionTypeFieldInfo = ActionType - type AttrLabel ActionRenditionTypeFieldInfo = "type" - attrGet _ = actionRenditionReadType - attrSet _ = actionRenditionWriteType - attrConstruct = undefined - attrClear _ = undefined - -actionRenditionType :: AttrLabelProxy "type" -actionRenditionType = AttrLabelProxy - - -actionRenditionReadTitle :: MonadIO m => ActionRendition -> m (Maybe T.Text) -actionRenditionReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionRenditionWriteTitle :: MonadIO m => ActionRendition -> CString -> m () -actionRenditionWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -actionRenditionClearTitle :: MonadIO m => ActionRendition -> m () -actionRenditionClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data ActionRenditionTitleFieldInfo -instance AttrInfo ActionRenditionTitleFieldInfo where - type AttrAllowedOps ActionRenditionTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionRenditionTitleFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionRenditionTitleFieldInfo = (~) ActionRendition - type AttrGetType ActionRenditionTitleFieldInfo = Maybe T.Text - type AttrLabel ActionRenditionTitleFieldInfo = "title" - attrGet _ = actionRenditionReadTitle - attrSet _ = actionRenditionWriteTitle - attrConstruct = undefined - attrClear _ = actionRenditionClearTitle - -actionRenditionTitle :: AttrLabelProxy "title" -actionRenditionTitle = AttrLabelProxy - - -actionRenditionReadOp :: MonadIO m => ActionRendition -> m Int32 -actionRenditionReadOp s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int32 - return val - -actionRenditionWriteOp :: MonadIO m => ActionRendition -> Int32 -> m () -actionRenditionWriteOp s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int32) - -data ActionRenditionOpFieldInfo -instance AttrInfo ActionRenditionOpFieldInfo where - type AttrAllowedOps ActionRenditionOpFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ActionRenditionOpFieldInfo = (~) Int32 - type AttrBaseTypeConstraint ActionRenditionOpFieldInfo = (~) ActionRendition - type AttrGetType ActionRenditionOpFieldInfo = Int32 - type AttrLabel ActionRenditionOpFieldInfo = "op" - attrGet _ = actionRenditionReadOp - attrSet _ = actionRenditionWriteOp - attrConstruct = undefined - attrClear _ = undefined - -actionRenditionOp :: AttrLabelProxy "op" -actionRenditionOp = AttrLabelProxy - - -actionRenditionReadMedia :: MonadIO m => ActionRendition -> m (Maybe Media) -actionRenditionReadMedia s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr Media) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Media) val' - return val'' - return result - -actionRenditionWriteMedia :: MonadIO m => ActionRendition -> Ptr Media -> m () -actionRenditionWriteMedia s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr Media) - -actionRenditionClearMedia :: MonadIO m => ActionRendition -> m () -actionRenditionClearMedia s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr Media) - -data ActionRenditionMediaFieldInfo -instance AttrInfo ActionRenditionMediaFieldInfo where - type AttrAllowedOps ActionRenditionMediaFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionRenditionMediaFieldInfo = (~) (Ptr Media) - type AttrBaseTypeConstraint ActionRenditionMediaFieldInfo = (~) ActionRendition - type AttrGetType ActionRenditionMediaFieldInfo = Maybe Media - type AttrLabel ActionRenditionMediaFieldInfo = "media" - attrGet _ = actionRenditionReadMedia - attrSet _ = actionRenditionWriteMedia - attrConstruct = undefined - attrClear _ = actionRenditionClearMedia - -actionRenditionMedia :: AttrLabelProxy "media" -actionRenditionMedia = AttrLabelProxy - - - -type instance AttributeList ActionRendition = ActionRenditionAttributeList -type ActionRenditionAttributeList = ('[ '("type", ActionRenditionTypeFieldInfo), '("title", ActionRenditionTitleFieldInfo), '("op", ActionRenditionOpFieldInfo), '("media", ActionRenditionMediaFieldInfo)] :: [(Symbol, *)]) - -type family ResolveActionRenditionMethod (t :: Symbol) (o :: *) :: * where - ResolveActionRenditionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionRenditionMethod t ActionRendition, MethodInfo info ActionRendition p) => IsLabelProxy t (ActionRendition -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionRenditionMethod t ActionRendition, MethodInfo info ActionRendition p) => IsLabel t (ActionRendition -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/ActionRendition.hs-boot b/GI/Poppler/Structs/ActionRendition.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/ActionRendition.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Poppler.Structs.ActionRendition where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionRendition = ActionRendition (ForeignPtr ActionRendition) -instance WrappedPtr ActionRendition where diff --git a/GI/Poppler/Structs/ActionUri.hs b/GI/Poppler/Structs/ActionUri.hs deleted file mode 100644 --- a/GI/Poppler/Structs/ActionUri.hs +++ /dev/null @@ -1,179 +0,0 @@ - - -{- | -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.Structs.ActionUri - ( - --- * Exported types - ActionUri(..) , - newZeroActionUri , - noActionUri , - - - -- * Properties --- ** Title - actionUriClearTitle , - actionUriReadTitle , - actionUriTitle , - actionUriWriteTitle , - - --- ** Type - actionUriReadType , - actionUriType , - actionUriWriteType , - - --- ** Uri - actionUriClearUri , - actionUriReadUri , - actionUriUri , - actionUriWriteUri , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ActionUri = ActionUri (ForeignPtr ActionUri) -instance WrappedPtr ActionUri where - wrappedPtrCalloc = callocBytes 24 - wrappedPtrCopy = copyPtr 24 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ActionUri` struct initialized to zero. -newZeroActionUri :: MonadIO m => m ActionUri -newZeroActionUri = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionUri - -instance tag ~ 'AttrSet => Constructible ActionUri tag where - new _ attrs = do - o <- newZeroActionUri - GI.Attributes.set o attrs - return o - - -noActionUri :: Maybe ActionUri -noActionUri = Nothing - -actionUriReadType :: MonadIO m => ActionUri -> m ActionType -actionUriReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -actionUriWriteType :: MonadIO m => ActionUri -> ActionType -> m () -actionUriWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data ActionUriTypeFieldInfo -instance AttrInfo ActionUriTypeFieldInfo where - type AttrAllowedOps ActionUriTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ActionUriTypeFieldInfo = (~) ActionType - type AttrBaseTypeConstraint ActionUriTypeFieldInfo = (~) ActionUri - type AttrGetType ActionUriTypeFieldInfo = ActionType - type AttrLabel ActionUriTypeFieldInfo = "type" - attrGet _ = actionUriReadType - attrSet _ = actionUriWriteType - attrConstruct = undefined - attrClear _ = undefined - -actionUriType :: AttrLabelProxy "type" -actionUriType = AttrLabelProxy - - -actionUriReadTitle :: MonadIO m => ActionUri -> m (Maybe T.Text) -actionUriReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionUriWriteTitle :: MonadIO m => ActionUri -> CString -> m () -actionUriWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -actionUriClearTitle :: MonadIO m => ActionUri -> m () -actionUriClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data ActionUriTitleFieldInfo -instance AttrInfo ActionUriTitleFieldInfo where - type AttrAllowedOps ActionUriTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionUriTitleFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionUriTitleFieldInfo = (~) ActionUri - type AttrGetType ActionUriTitleFieldInfo = Maybe T.Text - type AttrLabel ActionUriTitleFieldInfo = "title" - attrGet _ = actionUriReadTitle - attrSet _ = actionUriWriteTitle - attrConstruct = undefined - attrClear _ = actionUriClearTitle - -actionUriTitle :: AttrLabelProxy "title" -actionUriTitle = AttrLabelProxy - - -actionUriReadUri :: MonadIO m => ActionUri -> m (Maybe T.Text) -actionUriReadUri s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionUriWriteUri :: MonadIO m => ActionUri -> CString -> m () -actionUriWriteUri s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -actionUriClearUri :: MonadIO m => ActionUri -> m () -actionUriClearUri s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data ActionUriUriFieldInfo -instance AttrInfo ActionUriUriFieldInfo where - type AttrAllowedOps ActionUriUriFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionUriUriFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionUriUriFieldInfo = (~) ActionUri - type AttrGetType ActionUriUriFieldInfo = Maybe T.Text - type AttrLabel ActionUriUriFieldInfo = "uri" - attrGet _ = actionUriReadUri - attrSet _ = actionUriWriteUri - attrConstruct = undefined - attrClear _ = actionUriClearUri - -actionUriUri :: AttrLabelProxy "uri" -actionUriUri = AttrLabelProxy - - - -type instance AttributeList ActionUri = ActionUriAttributeList -type ActionUriAttributeList = ('[ '("type", ActionUriTypeFieldInfo), '("title", ActionUriTitleFieldInfo), '("uri", ActionUriUriFieldInfo)] :: [(Symbol, *)]) - -type family ResolveActionUriMethod (t :: Symbol) (o :: *) :: * where - ResolveActionUriMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionUriMethod t ActionUri, MethodInfo info ActionUri p) => IsLabelProxy t (ActionUri -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionUriMethod t ActionUri, MethodInfo info ActionUri p) => IsLabel t (ActionUri -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/ActionUri.hs-boot b/GI/Poppler/Structs/ActionUri.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/ActionUri.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Poppler.Structs.ActionUri where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionUri = ActionUri (ForeignPtr ActionUri) -instance WrappedPtr ActionUri where diff --git a/GI/Poppler/Structs/AnnotCalloutLine.hs b/GI/Poppler/Structs/AnnotCalloutLine.hs deleted file mode 100644 --- a/GI/Poppler/Structs/AnnotCalloutLine.hs +++ /dev/null @@ -1,396 +0,0 @@ - - -{- | -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.Structs.AnnotCalloutLine - ( - --- * Exported types - AnnotCalloutLine(..) , - newZeroAnnotCalloutLine , - noAnnotCalloutLine , - - - -- * Methods --- ** annotCalloutLineCopy - AnnotCalloutLineCopyMethodInfo , - annotCalloutLineCopy , - - --- ** annotCalloutLineFree - AnnotCalloutLineFreeMethodInfo , - annotCalloutLineFree , - - --- ** annotCalloutLineNew - annotCalloutLineNew , - - - - - -- * Properties --- ** Multiline - annotCalloutLineMultiline , - annotCalloutLineReadMultiline , - annotCalloutLineWriteMultiline , - - --- ** X1 - annotCalloutLineReadX1 , - annotCalloutLineWriteX1 , - annotCalloutLineX1 , - - --- ** X2 - annotCalloutLineReadX2 , - annotCalloutLineWriteX2 , - annotCalloutLineX2 , - - --- ** X3 - annotCalloutLineReadX3 , - annotCalloutLineWriteX3 , - annotCalloutLineX3 , - - --- ** Y1 - annotCalloutLineReadY1 , - annotCalloutLineWriteY1 , - annotCalloutLineY1 , - - --- ** Y2 - annotCalloutLineReadY2 , - annotCalloutLineWriteY2 , - annotCalloutLineY2 , - - --- ** Y3 - annotCalloutLineReadY3 , - annotCalloutLineWriteY3 , - annotCalloutLineY3 , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype AnnotCalloutLine = AnnotCalloutLine (ForeignPtr AnnotCalloutLine) -foreign import ccall "poppler_annot_callout_line_get_type" c_poppler_annot_callout_line_get_type :: - IO GType - -instance BoxedObject AnnotCalloutLine where - boxedType _ = c_poppler_annot_callout_line_get_type - --- | Construct a `AnnotCalloutLine` struct initialized to zero. -newZeroAnnotCalloutLine :: MonadIO m => m AnnotCalloutLine -newZeroAnnotCalloutLine = liftIO $ callocBoxedBytes 56 >>= wrapBoxed AnnotCalloutLine - -instance tag ~ 'AttrSet => Constructible AnnotCalloutLine tag where - new _ attrs = do - o <- newZeroAnnotCalloutLine - GI.Attributes.set o attrs - return o - - -noAnnotCalloutLine :: Maybe AnnotCalloutLine -noAnnotCalloutLine = Nothing - -annotCalloutLineReadMultiline :: MonadIO m => AnnotCalloutLine -> m Bool -annotCalloutLineReadMultiline s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CInt - let val' = (/= 0) val - return val' - -annotCalloutLineWriteMultiline :: MonadIO m => AnnotCalloutLine -> Bool -> m () -annotCalloutLineWriteMultiline s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CInt) - -data AnnotCalloutLineMultilineFieldInfo -instance AttrInfo AnnotCalloutLineMultilineFieldInfo where - type AttrAllowedOps AnnotCalloutLineMultilineFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint AnnotCalloutLineMultilineFieldInfo = (~) Bool - type AttrBaseTypeConstraint AnnotCalloutLineMultilineFieldInfo = (~) AnnotCalloutLine - type AttrGetType AnnotCalloutLineMultilineFieldInfo = Bool - type AttrLabel AnnotCalloutLineMultilineFieldInfo = "multiline" - attrGet _ = annotCalloutLineReadMultiline - attrSet _ = annotCalloutLineWriteMultiline - attrConstruct = undefined - attrClear _ = undefined - -annotCalloutLineMultiline :: AttrLabelProxy "multiline" -annotCalloutLineMultiline = AttrLabelProxy - - -annotCalloutLineReadX1 :: MonadIO m => AnnotCalloutLine -> m Double -annotCalloutLineReadX1 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CDouble - let val' = realToFrac val - return val' - -annotCalloutLineWriteX1 :: MonadIO m => AnnotCalloutLine -> Double -> m () -annotCalloutLineWriteX1 s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 8) (val' :: CDouble) - -data AnnotCalloutLineX1FieldInfo -instance AttrInfo AnnotCalloutLineX1FieldInfo where - type AttrAllowedOps AnnotCalloutLineX1FieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint AnnotCalloutLineX1FieldInfo = (~) Double - type AttrBaseTypeConstraint AnnotCalloutLineX1FieldInfo = (~) AnnotCalloutLine - type AttrGetType AnnotCalloutLineX1FieldInfo = Double - type AttrLabel AnnotCalloutLineX1FieldInfo = "x1" - attrGet _ = annotCalloutLineReadX1 - attrSet _ = annotCalloutLineWriteX1 - attrConstruct = undefined - attrClear _ = undefined - -annotCalloutLineX1 :: AttrLabelProxy "x1" -annotCalloutLineX1 = AttrLabelProxy - - -annotCalloutLineReadY1 :: MonadIO m => AnnotCalloutLine -> m Double -annotCalloutLineReadY1 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CDouble - let val' = realToFrac val - return val' - -annotCalloutLineWriteY1 :: MonadIO m => AnnotCalloutLine -> Double -> m () -annotCalloutLineWriteY1 s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 16) (val' :: CDouble) - -data AnnotCalloutLineY1FieldInfo -instance AttrInfo AnnotCalloutLineY1FieldInfo where - type AttrAllowedOps AnnotCalloutLineY1FieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint AnnotCalloutLineY1FieldInfo = (~) Double - type AttrBaseTypeConstraint AnnotCalloutLineY1FieldInfo = (~) AnnotCalloutLine - type AttrGetType AnnotCalloutLineY1FieldInfo = Double - type AttrLabel AnnotCalloutLineY1FieldInfo = "y1" - attrGet _ = annotCalloutLineReadY1 - attrSet _ = annotCalloutLineWriteY1 - attrConstruct = undefined - attrClear _ = undefined - -annotCalloutLineY1 :: AttrLabelProxy "y1" -annotCalloutLineY1 = AttrLabelProxy - - -annotCalloutLineReadX2 :: MonadIO m => AnnotCalloutLine -> m Double -annotCalloutLineReadX2 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CDouble - let val' = realToFrac val - return val' - -annotCalloutLineWriteX2 :: MonadIO m => AnnotCalloutLine -> Double -> m () -annotCalloutLineWriteX2 s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 24) (val' :: CDouble) - -data AnnotCalloutLineX2FieldInfo -instance AttrInfo AnnotCalloutLineX2FieldInfo where - type AttrAllowedOps AnnotCalloutLineX2FieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint AnnotCalloutLineX2FieldInfo = (~) Double - type AttrBaseTypeConstraint AnnotCalloutLineX2FieldInfo = (~) AnnotCalloutLine - type AttrGetType AnnotCalloutLineX2FieldInfo = Double - type AttrLabel AnnotCalloutLineX2FieldInfo = "x2" - attrGet _ = annotCalloutLineReadX2 - attrSet _ = annotCalloutLineWriteX2 - attrConstruct = undefined - attrClear _ = undefined - -annotCalloutLineX2 :: AttrLabelProxy "x2" -annotCalloutLineX2 = AttrLabelProxy - - -annotCalloutLineReadY2 :: MonadIO m => AnnotCalloutLine -> m Double -annotCalloutLineReadY2 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CDouble - let val' = realToFrac val - return val' - -annotCalloutLineWriteY2 :: MonadIO m => AnnotCalloutLine -> Double -> m () -annotCalloutLineWriteY2 s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 32) (val' :: CDouble) - -data AnnotCalloutLineY2FieldInfo -instance AttrInfo AnnotCalloutLineY2FieldInfo where - type AttrAllowedOps AnnotCalloutLineY2FieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint AnnotCalloutLineY2FieldInfo = (~) Double - type AttrBaseTypeConstraint AnnotCalloutLineY2FieldInfo = (~) AnnotCalloutLine - type AttrGetType AnnotCalloutLineY2FieldInfo = Double - type AttrLabel AnnotCalloutLineY2FieldInfo = "y2" - attrGet _ = annotCalloutLineReadY2 - attrSet _ = annotCalloutLineWriteY2 - attrConstruct = undefined - attrClear _ = undefined - -annotCalloutLineY2 :: AttrLabelProxy "y2" -annotCalloutLineY2 = AttrLabelProxy - - -annotCalloutLineReadX3 :: MonadIO m => AnnotCalloutLine -> m Double -annotCalloutLineReadX3 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CDouble - let val' = realToFrac val - return val' - -annotCalloutLineWriteX3 :: MonadIO m => AnnotCalloutLine -> Double -> m () -annotCalloutLineWriteX3 s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 40) (val' :: CDouble) - -data AnnotCalloutLineX3FieldInfo -instance AttrInfo AnnotCalloutLineX3FieldInfo where - type AttrAllowedOps AnnotCalloutLineX3FieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint AnnotCalloutLineX3FieldInfo = (~) Double - type AttrBaseTypeConstraint AnnotCalloutLineX3FieldInfo = (~) AnnotCalloutLine - type AttrGetType AnnotCalloutLineX3FieldInfo = Double - type AttrLabel AnnotCalloutLineX3FieldInfo = "x3" - attrGet _ = annotCalloutLineReadX3 - attrSet _ = annotCalloutLineWriteX3 - attrConstruct = undefined - attrClear _ = undefined - -annotCalloutLineX3 :: AttrLabelProxy "x3" -annotCalloutLineX3 = AttrLabelProxy - - -annotCalloutLineReadY3 :: MonadIO m => AnnotCalloutLine -> m Double -annotCalloutLineReadY3 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CDouble - let val' = realToFrac val - return val' - -annotCalloutLineWriteY3 :: MonadIO m => AnnotCalloutLine -> Double -> m () -annotCalloutLineWriteY3 s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 48) (val' :: CDouble) - -data AnnotCalloutLineY3FieldInfo -instance AttrInfo AnnotCalloutLineY3FieldInfo where - type AttrAllowedOps AnnotCalloutLineY3FieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint AnnotCalloutLineY3FieldInfo = (~) Double - type AttrBaseTypeConstraint AnnotCalloutLineY3FieldInfo = (~) AnnotCalloutLine - type AttrGetType AnnotCalloutLineY3FieldInfo = Double - type AttrLabel AnnotCalloutLineY3FieldInfo = "y3" - attrGet _ = annotCalloutLineReadY3 - attrSet _ = annotCalloutLineWriteY3 - attrConstruct = undefined - attrClear _ = undefined - -annotCalloutLineY3 :: AttrLabelProxy "y3" -annotCalloutLineY3 = AttrLabelProxy - - - -type instance AttributeList AnnotCalloutLine = AnnotCalloutLineAttributeList -type AnnotCalloutLineAttributeList = ('[ '("multiline", AnnotCalloutLineMultilineFieldInfo), '("x1", AnnotCalloutLineX1FieldInfo), '("y1", AnnotCalloutLineY1FieldInfo), '("x2", AnnotCalloutLineX2FieldInfo), '("y2", AnnotCalloutLineY2FieldInfo), '("x3", AnnotCalloutLineX3FieldInfo), '("y3", AnnotCalloutLineY3FieldInfo)] :: [(Symbol, *)]) - --- method AnnotCalloutLine::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotCalloutLine") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_callout_line_new" poppler_annot_callout_line_new :: - IO (Ptr AnnotCalloutLine) - - -annotCalloutLineNew :: - (MonadIO m) => - m AnnotCalloutLine -- result -annotCalloutLineNew = liftIO $ do - result <- poppler_annot_callout_line_new - checkUnexpectedReturnNULL "poppler_annot_callout_line_new" result - result' <- (wrapBoxed AnnotCalloutLine) result - return result' - --- method AnnotCalloutLine::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotCalloutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotCalloutLine") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_callout_line_copy" poppler_annot_callout_line_copy :: - Ptr AnnotCalloutLine -> -- _obj : TInterface "Poppler" "AnnotCalloutLine" - IO (Ptr AnnotCalloutLine) - - -annotCalloutLineCopy :: - (MonadIO m) => - AnnotCalloutLine -- _obj - -> m AnnotCalloutLine -- result -annotCalloutLineCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_annot_callout_line_copy _obj' - checkUnexpectedReturnNULL "poppler_annot_callout_line_copy" result - result' <- (wrapBoxed AnnotCalloutLine) result - touchManagedPtr _obj - return result' - -data AnnotCalloutLineCopyMethodInfo -instance (signature ~ (m AnnotCalloutLine), MonadIO m) => MethodInfo AnnotCalloutLineCopyMethodInfo AnnotCalloutLine signature where - overloadedMethod _ = annotCalloutLineCopy - --- method AnnotCalloutLine::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotCalloutLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_callout_line_free" poppler_annot_callout_line_free :: - Ptr AnnotCalloutLine -> -- _obj : TInterface "Poppler" "AnnotCalloutLine" - IO () - - -annotCalloutLineFree :: - (MonadIO m) => - AnnotCalloutLine -- _obj - -> m () -- result -annotCalloutLineFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_annot_callout_line_free _obj' - touchManagedPtr _obj - return () - -data AnnotCalloutLineFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo AnnotCalloutLineFreeMethodInfo AnnotCalloutLine signature where - overloadedMethod _ = annotCalloutLineFree - -type family ResolveAnnotCalloutLineMethod (t :: Symbol) (o :: *) :: * where - ResolveAnnotCalloutLineMethod "copy" o = AnnotCalloutLineCopyMethodInfo - ResolveAnnotCalloutLineMethod "free" o = AnnotCalloutLineFreeMethodInfo - ResolveAnnotCalloutLineMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAnnotCalloutLineMethod t AnnotCalloutLine, MethodInfo info AnnotCalloutLine p) => IsLabelProxy t (AnnotCalloutLine -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAnnotCalloutLineMethod t AnnotCalloutLine, MethodInfo info AnnotCalloutLine p) => IsLabel t (AnnotCalloutLine -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/AnnotCalloutLine.hs-boot b/GI/Poppler/Structs/AnnotCalloutLine.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/AnnotCalloutLine.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Poppler.Structs.AnnotCalloutLine where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AnnotCalloutLine = AnnotCalloutLine (ForeignPtr AnnotCalloutLine) -instance BoxedObject AnnotCalloutLine where -data AnnotCalloutLineCopyMethodInfo -data AnnotCalloutLineFreeMethodInfo diff --git a/GI/Poppler/Structs/AnnotMapping.hs b/GI/Poppler/Structs/AnnotMapping.hs deleted file mode 100644 --- a/GI/Poppler/Structs/AnnotMapping.hs +++ /dev/null @@ -1,246 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #PopplerAnnotMapping structure represents the location -of @annot on the page --} - -module GI.Poppler.Structs.AnnotMapping - ( - --- * Exported types - AnnotMapping(..) , - newZeroAnnotMapping , - noAnnotMapping , - - - -- * Methods --- ** annotMappingCopy - AnnotMappingCopyMethodInfo , - annotMappingCopy , - - --- ** annotMappingFree - AnnotMappingFreeMethodInfo , - annotMappingFree , - - --- ** annotMappingNew - annotMappingNew , - - - - - -- * Properties --- ** Annot - annotMappingAnnot , - annotMappingClearAnnot , - annotMappingReadAnnot , - annotMappingWriteAnnot , - - --- ** Area - annotMappingArea , - annotMappingClearArea , - annotMappingReadArea , - annotMappingWriteArea , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype AnnotMapping = AnnotMapping (ForeignPtr AnnotMapping) -foreign import ccall "poppler_annot_mapping_get_type" c_poppler_annot_mapping_get_type :: - IO GType - -instance BoxedObject AnnotMapping where - boxedType _ = c_poppler_annot_mapping_get_type - --- | Construct a `AnnotMapping` struct initialized to zero. -newZeroAnnotMapping :: MonadIO m => m AnnotMapping -newZeroAnnotMapping = liftIO $ callocBoxedBytes 40 >>= wrapBoxed AnnotMapping - -instance tag ~ 'AttrSet => Constructible AnnotMapping tag where - new _ attrs = do - o <- newZeroAnnotMapping - GI.Attributes.set o attrs - return o - - -noAnnotMapping :: Maybe AnnotMapping -noAnnotMapping = Nothing - -annotMappingReadArea :: MonadIO m => AnnotMapping -> m (Maybe Rectangle) -annotMappingReadArea s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr Rectangle) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Rectangle) val' - return val'' - return result - -annotMappingWriteArea :: MonadIO m => AnnotMapping -> Ptr Rectangle -> m () -annotMappingWriteArea s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr Rectangle) - -annotMappingClearArea :: MonadIO m => AnnotMapping -> m () -annotMappingClearArea s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr Rectangle) - -data AnnotMappingAreaFieldInfo -instance AttrInfo AnnotMappingAreaFieldInfo where - type AttrAllowedOps AnnotMappingAreaFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AnnotMappingAreaFieldInfo = (~) (Ptr Rectangle) - type AttrBaseTypeConstraint AnnotMappingAreaFieldInfo = (~) AnnotMapping - type AttrGetType AnnotMappingAreaFieldInfo = Maybe Rectangle - type AttrLabel AnnotMappingAreaFieldInfo = "area" - attrGet _ = annotMappingReadArea - attrSet _ = annotMappingWriteArea - attrConstruct = undefined - attrClear _ = annotMappingClearArea - -annotMappingArea :: AttrLabelProxy "area" -annotMappingArea = AttrLabelProxy - - -annotMappingReadAnnot :: MonadIO m => AnnotMapping -> m (Maybe Annot) -annotMappingReadAnnot s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr Annot) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject Annot) val' - return val'' - return result - -annotMappingWriteAnnot :: MonadIO m => AnnotMapping -> Ptr Annot -> m () -annotMappingWriteAnnot s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr Annot) - -annotMappingClearAnnot :: MonadIO m => AnnotMapping -> m () -annotMappingClearAnnot s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr Annot) - -data AnnotMappingAnnotFieldInfo -instance AttrInfo AnnotMappingAnnotFieldInfo where - type AttrAllowedOps AnnotMappingAnnotFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AnnotMappingAnnotFieldInfo = (~) (Ptr Annot) - type AttrBaseTypeConstraint AnnotMappingAnnotFieldInfo = (~) AnnotMapping - type AttrGetType AnnotMappingAnnotFieldInfo = Maybe Annot - type AttrLabel AnnotMappingAnnotFieldInfo = "annot" - attrGet _ = annotMappingReadAnnot - attrSet _ = annotMappingWriteAnnot - attrConstruct = undefined - attrClear _ = annotMappingClearAnnot - -annotMappingAnnot :: AttrLabelProxy "annot" -annotMappingAnnot = AttrLabelProxy - - - -type instance AttributeList AnnotMapping = AnnotMappingAttributeList -type AnnotMappingAttributeList = ('[ '("area", AnnotMappingAreaFieldInfo), '("annot", AnnotMappingAnnotFieldInfo)] :: [(Symbol, *)]) - --- method AnnotMapping::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotMapping") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_mapping_new" poppler_annot_mapping_new :: - IO (Ptr AnnotMapping) - - -annotMappingNew :: - (MonadIO m) => - m AnnotMapping -- result -annotMappingNew = liftIO $ do - result <- poppler_annot_mapping_new - checkUnexpectedReturnNULL "poppler_annot_mapping_new" result - result' <- (wrapBoxed AnnotMapping) result - return result' - --- method AnnotMapping::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "AnnotMapping") --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_mapping_copy" poppler_annot_mapping_copy :: - Ptr AnnotMapping -> -- _obj : TInterface "Poppler" "AnnotMapping" - IO (Ptr AnnotMapping) - - -annotMappingCopy :: - (MonadIO m) => - AnnotMapping -- _obj - -> m AnnotMapping -- result -annotMappingCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_annot_mapping_copy _obj' - checkUnexpectedReturnNULL "poppler_annot_mapping_copy" result - result' <- (wrapBoxed AnnotMapping) result - touchManagedPtr _obj - return result' - -data AnnotMappingCopyMethodInfo -instance (signature ~ (m AnnotMapping), MonadIO m) => MethodInfo AnnotMappingCopyMethodInfo AnnotMapping signature where - overloadedMethod _ = annotMappingCopy - --- method AnnotMapping::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "AnnotMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_annot_mapping_free" poppler_annot_mapping_free :: - Ptr AnnotMapping -> -- _obj : TInterface "Poppler" "AnnotMapping" - IO () - - -annotMappingFree :: - (MonadIO m) => - AnnotMapping -- _obj - -> m () -- result -annotMappingFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_annot_mapping_free _obj' - touchManagedPtr _obj - return () - -data AnnotMappingFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo AnnotMappingFreeMethodInfo AnnotMapping signature where - overloadedMethod _ = annotMappingFree - -type family ResolveAnnotMappingMethod (t :: Symbol) (o :: *) :: * where - ResolveAnnotMappingMethod "copy" o = AnnotMappingCopyMethodInfo - ResolveAnnotMappingMethod "free" o = AnnotMappingFreeMethodInfo - ResolveAnnotMappingMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAnnotMappingMethod t AnnotMapping, MethodInfo info AnnotMapping p) => IsLabelProxy t (AnnotMapping -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAnnotMappingMethod t AnnotMapping, MethodInfo info AnnotMapping p) => IsLabel t (AnnotMapping -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/AnnotMapping.hs-boot b/GI/Poppler/Structs/AnnotMapping.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/AnnotMapping.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Poppler.Structs.AnnotMapping where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AnnotMapping = AnnotMapping (ForeignPtr AnnotMapping) -instance BoxedObject AnnotMapping where -data AnnotMappingCopyMethodInfo -data AnnotMappingFreeMethodInfo diff --git a/GI/Poppler/Structs/Color.hs b/GI/Poppler/Structs/Color.hs deleted file mode 100644 --- a/GI/Poppler/Structs/Color.hs +++ /dev/null @@ -1,261 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #PopplerColor describes a RGB color. Color components -are values between 0 and 65535 --} - -module GI.Poppler.Structs.Color - ( - --- * Exported types - Color(..) , - newZeroColor , - noColor , - - - -- * Methods --- ** colorCopy - ColorCopyMethodInfo , - colorCopy , - - --- ** colorFree - ColorFreeMethodInfo , - colorFree , - - --- ** colorNew - colorNew , - - - - - -- * Properties --- ** Blue - colorBlue , - colorReadBlue , - colorWriteBlue , - - --- ** Green - colorGreen , - colorReadGreen , - colorWriteGreen , - - --- ** Red - colorReadRed , - colorRed , - colorWriteRed , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype Color = Color (ForeignPtr Color) -foreign import ccall "poppler_color_get_type" c_poppler_color_get_type :: - IO GType - -instance BoxedObject Color where - boxedType _ = c_poppler_color_get_type - --- | Construct a `Color` struct initialized to zero. -newZeroColor :: MonadIO m => m Color -newZeroColor = liftIO $ callocBoxedBytes 6 >>= wrapBoxed Color - -instance tag ~ 'AttrSet => Constructible Color tag where - new _ attrs = do - o <- newZeroColor - GI.Attributes.set o attrs - return o - - -noColor :: Maybe Color -noColor = Nothing - -colorReadRed :: MonadIO m => Color -> m Word16 -colorReadRed s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Word16 - return val - -colorWriteRed :: MonadIO m => Color -> Word16 -> m () -colorWriteRed s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Word16) - -data ColorRedFieldInfo -instance AttrInfo ColorRedFieldInfo where - type AttrAllowedOps ColorRedFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ColorRedFieldInfo = (~) Word16 - type AttrBaseTypeConstraint ColorRedFieldInfo = (~) Color - type AttrGetType ColorRedFieldInfo = Word16 - type AttrLabel ColorRedFieldInfo = "red" - attrGet _ = colorReadRed - attrSet _ = colorWriteRed - attrConstruct = undefined - attrClear _ = undefined - -colorRed :: AttrLabelProxy "red" -colorRed = AttrLabelProxy - - -colorReadGreen :: MonadIO m => Color -> m Word16 -colorReadGreen s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 2) :: IO Word16 - return val - -colorWriteGreen :: MonadIO m => Color -> Word16 -> m () -colorWriteGreen s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 2) (val :: Word16) - -data ColorGreenFieldInfo -instance AttrInfo ColorGreenFieldInfo where - type AttrAllowedOps ColorGreenFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ColorGreenFieldInfo = (~) Word16 - type AttrBaseTypeConstraint ColorGreenFieldInfo = (~) Color - type AttrGetType ColorGreenFieldInfo = Word16 - type AttrLabel ColorGreenFieldInfo = "green" - attrGet _ = colorReadGreen - attrSet _ = colorWriteGreen - attrConstruct = undefined - attrClear _ = undefined - -colorGreen :: AttrLabelProxy "green" -colorGreen = AttrLabelProxy - - -colorReadBlue :: MonadIO m => Color -> m Word16 -colorReadBlue s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Word16 - return val - -colorWriteBlue :: MonadIO m => Color -> Word16 -> m () -colorWriteBlue s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Word16) - -data ColorBlueFieldInfo -instance AttrInfo ColorBlueFieldInfo where - type AttrAllowedOps ColorBlueFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ColorBlueFieldInfo = (~) Word16 - type AttrBaseTypeConstraint ColorBlueFieldInfo = (~) Color - type AttrGetType ColorBlueFieldInfo = Word16 - type AttrLabel ColorBlueFieldInfo = "blue" - attrGet _ = colorReadBlue - attrSet _ = colorWriteBlue - attrConstruct = undefined - attrClear _ = undefined - -colorBlue :: AttrLabelProxy "blue" -colorBlue = AttrLabelProxy - - - -type instance AttributeList Color = ColorAttributeList -type ColorAttributeList = ('[ '("red", ColorRedFieldInfo), '("green", ColorGreenFieldInfo), '("blue", ColorBlueFieldInfo)] :: [(Symbol, *)]) - --- method Color::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Color") --- throws : False --- Skip return : False - -foreign import ccall "poppler_color_new" poppler_color_new :: - IO (Ptr Color) - - -colorNew :: - (MonadIO m) => - m Color -- result -colorNew = liftIO $ do - result <- poppler_color_new - checkUnexpectedReturnNULL "poppler_color_new" result - result' <- (wrapBoxed Color) result - return result' - --- method Color::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Color") --- throws : False --- Skip return : False - -foreign import ccall "poppler_color_copy" poppler_color_copy :: - Ptr Color -> -- _obj : TInterface "Poppler" "Color" - IO (Ptr Color) - - -colorCopy :: - (MonadIO m) => - Color -- _obj - -> m Color -- result -colorCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_color_copy _obj' - checkUnexpectedReturnNULL "poppler_color_copy" result - result' <- (wrapBoxed Color) result - touchManagedPtr _obj - return result' - -data ColorCopyMethodInfo -instance (signature ~ (m Color), MonadIO m) => MethodInfo ColorCopyMethodInfo Color signature where - overloadedMethod _ = colorCopy - --- method Color::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_color_free" poppler_color_free :: - Ptr Color -> -- _obj : TInterface "Poppler" "Color" - IO () - - -colorFree :: - (MonadIO m) => - Color -- _obj - -> m () -- result -colorFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_color_free _obj' - touchManagedPtr _obj - return () - -data ColorFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo ColorFreeMethodInfo Color signature where - overloadedMethod _ = colorFree - -type family ResolveColorMethod (t :: Symbol) (o :: *) :: * where - ResolveColorMethod "copy" o = ColorCopyMethodInfo - ResolveColorMethod "free" o = ColorFreeMethodInfo - ResolveColorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveColorMethod t Color, MethodInfo info Color p) => IsLabelProxy t (Color -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveColorMethod t Color, MethodInfo info Color p) => IsLabel t (Color -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/Color.hs-boot b/GI/Poppler/Structs/Color.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/Color.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Poppler.Structs.Color where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Color = Color (ForeignPtr Color) -instance BoxedObject Color where -data ColorCopyMethodInfo -data ColorFreeMethodInfo diff --git a/GI/Poppler/Structs/Dest.hs b/GI/Poppler/Structs/Dest.hs deleted file mode 100644 --- a/GI/Poppler/Structs/Dest.hs +++ /dev/null @@ -1,503 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Data structure for holding a destination --} - -module GI.Poppler.Structs.Dest - ( - --- * Exported types - Dest(..) , - newZeroDest , - noDest , - - - -- * Methods --- ** destCopy - DestCopyMethodInfo , - destCopy , - - --- ** destFree - DestFreeMethodInfo , - destFree , - - - - - -- * Properties --- ** Bottom - destBottom , - destReadBottom , - destWriteBottom , - - --- ** ChangeLeft - destChangeLeft , - destReadChangeLeft , - destWriteChangeLeft , - - --- ** ChangeTop - destChangeTop , - destReadChangeTop , - destWriteChangeTop , - - --- ** ChangeZoom - destChangeZoom , - destReadChangeZoom , - destWriteChangeZoom , - - --- ** Left - destLeft , - destReadLeft , - destWriteLeft , - - --- ** NamedDest - destClearNamedDest , - destNamedDest , - destReadNamedDest , - destWriteNamedDest , - - --- ** PageNum - destPageNum , - destReadPageNum , - destWritePageNum , - - --- ** Right - destReadRight , - destRight , - destWriteRight , - - --- ** Top - destReadTop , - destTop , - destWriteTop , - - --- ** Type - destReadType , - destType , - destWriteType , - - --- ** Zoom - destReadZoom , - destWriteZoom , - destZoom , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype Dest = Dest (ForeignPtr Dest) -foreign import ccall "poppler_dest_get_type" c_poppler_dest_get_type :: - IO GType - -instance BoxedObject Dest where - boxedType _ = c_poppler_dest_get_type - --- | Construct a `Dest` struct initialized to zero. -newZeroDest :: MonadIO m => m Dest -newZeroDest = liftIO $ callocBoxedBytes 72 >>= wrapBoxed Dest - -instance tag ~ 'AttrSet => Constructible Dest tag where - new _ attrs = do - o <- newZeroDest - GI.Attributes.set o attrs - return o - - -noDest :: Maybe Dest -noDest = Nothing - -destReadType :: MonadIO m => Dest -> m DestType -destReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -destWriteType :: MonadIO m => Dest -> DestType -> m () -destWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data DestTypeFieldInfo -instance AttrInfo DestTypeFieldInfo where - type AttrAllowedOps DestTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DestTypeFieldInfo = (~) DestType - type AttrBaseTypeConstraint DestTypeFieldInfo = (~) Dest - type AttrGetType DestTypeFieldInfo = DestType - type AttrLabel DestTypeFieldInfo = "type" - attrGet _ = destReadType - attrSet _ = destWriteType - attrConstruct = undefined - attrClear _ = undefined - -destType :: AttrLabelProxy "type" -destType = AttrLabelProxy - - -destReadPageNum :: MonadIO m => Dest -> m Int32 -destReadPageNum s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - -destWritePageNum :: MonadIO m => Dest -> Int32 -> m () -destWritePageNum s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Int32) - -data DestPageNumFieldInfo -instance AttrInfo DestPageNumFieldInfo where - type AttrAllowedOps DestPageNumFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DestPageNumFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DestPageNumFieldInfo = (~) Dest - type AttrGetType DestPageNumFieldInfo = Int32 - type AttrLabel DestPageNumFieldInfo = "page_num" - attrGet _ = destReadPageNum - attrSet _ = destWritePageNum - attrConstruct = undefined - attrClear _ = undefined - -destPageNum :: AttrLabelProxy "pageNum" -destPageNum = AttrLabelProxy - - -destReadLeft :: MonadIO m => Dest -> m Double -destReadLeft s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CDouble - let val' = realToFrac val - return val' - -destWriteLeft :: MonadIO m => Dest -> Double -> m () -destWriteLeft s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 8) (val' :: CDouble) - -data DestLeftFieldInfo -instance AttrInfo DestLeftFieldInfo where - type AttrAllowedOps DestLeftFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DestLeftFieldInfo = (~) Double - type AttrBaseTypeConstraint DestLeftFieldInfo = (~) Dest - type AttrGetType DestLeftFieldInfo = Double - type AttrLabel DestLeftFieldInfo = "left" - attrGet _ = destReadLeft - attrSet _ = destWriteLeft - attrConstruct = undefined - attrClear _ = undefined - -destLeft :: AttrLabelProxy "left" -destLeft = AttrLabelProxy - - -destReadBottom :: MonadIO m => Dest -> m Double -destReadBottom s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CDouble - let val' = realToFrac val - return val' - -destWriteBottom :: MonadIO m => Dest -> Double -> m () -destWriteBottom s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 16) (val' :: CDouble) - -data DestBottomFieldInfo -instance AttrInfo DestBottomFieldInfo where - type AttrAllowedOps DestBottomFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DestBottomFieldInfo = (~) Double - type AttrBaseTypeConstraint DestBottomFieldInfo = (~) Dest - type AttrGetType DestBottomFieldInfo = Double - type AttrLabel DestBottomFieldInfo = "bottom" - attrGet _ = destReadBottom - attrSet _ = destWriteBottom - attrConstruct = undefined - attrClear _ = undefined - -destBottom :: AttrLabelProxy "bottom" -destBottom = AttrLabelProxy - - -destReadRight :: MonadIO m => Dest -> m Double -destReadRight s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CDouble - let val' = realToFrac val - return val' - -destWriteRight :: MonadIO m => Dest -> Double -> m () -destWriteRight s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 24) (val' :: CDouble) - -data DestRightFieldInfo -instance AttrInfo DestRightFieldInfo where - type AttrAllowedOps DestRightFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DestRightFieldInfo = (~) Double - type AttrBaseTypeConstraint DestRightFieldInfo = (~) Dest - type AttrGetType DestRightFieldInfo = Double - type AttrLabel DestRightFieldInfo = "right" - attrGet _ = destReadRight - attrSet _ = destWriteRight - attrConstruct = undefined - attrClear _ = undefined - -destRight :: AttrLabelProxy "right" -destRight = AttrLabelProxy - - -destReadTop :: MonadIO m => Dest -> m Double -destReadTop s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CDouble - let val' = realToFrac val - return val' - -destWriteTop :: MonadIO m => Dest -> Double -> m () -destWriteTop s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 32) (val' :: CDouble) - -data DestTopFieldInfo -instance AttrInfo DestTopFieldInfo where - type AttrAllowedOps DestTopFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DestTopFieldInfo = (~) Double - type AttrBaseTypeConstraint DestTopFieldInfo = (~) Dest - type AttrGetType DestTopFieldInfo = Double - type AttrLabel DestTopFieldInfo = "top" - attrGet _ = destReadTop - attrSet _ = destWriteTop - attrConstruct = undefined - attrClear _ = undefined - -destTop :: AttrLabelProxy "top" -destTop = AttrLabelProxy - - -destReadZoom :: MonadIO m => Dest -> m Double -destReadZoom s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CDouble - let val' = realToFrac val - return val' - -destWriteZoom :: MonadIO m => Dest -> Double -> m () -destWriteZoom s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 40) (val' :: CDouble) - -data DestZoomFieldInfo -instance AttrInfo DestZoomFieldInfo where - type AttrAllowedOps DestZoomFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DestZoomFieldInfo = (~) Double - type AttrBaseTypeConstraint DestZoomFieldInfo = (~) Dest - type AttrGetType DestZoomFieldInfo = Double - type AttrLabel DestZoomFieldInfo = "zoom" - attrGet _ = destReadZoom - attrSet _ = destWriteZoom - attrConstruct = undefined - attrClear _ = undefined - -destZoom :: AttrLabelProxy "zoom" -destZoom = AttrLabelProxy - - -destReadNamedDest :: MonadIO m => Dest -> m (Maybe T.Text) -destReadNamedDest s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -destWriteNamedDest :: MonadIO m => Dest -> CString -> m () -destWriteNamedDest s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (val :: CString) - -destClearNamedDest :: MonadIO m => Dest -> m () -destClearNamedDest s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (nullPtr :: CString) - -data DestNamedDestFieldInfo -instance AttrInfo DestNamedDestFieldInfo where - type AttrAllowedOps DestNamedDestFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DestNamedDestFieldInfo = (~) CString - type AttrBaseTypeConstraint DestNamedDestFieldInfo = (~) Dest - type AttrGetType DestNamedDestFieldInfo = Maybe T.Text - type AttrLabel DestNamedDestFieldInfo = "named_dest" - attrGet _ = destReadNamedDest - attrSet _ = destWriteNamedDest - attrConstruct = undefined - attrClear _ = destClearNamedDest - -destNamedDest :: AttrLabelProxy "namedDest" -destNamedDest = AttrLabelProxy - - -destReadChangeLeft :: MonadIO m => Dest -> m Word32 -destReadChangeLeft s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO Word32 - return val - -destWriteChangeLeft :: MonadIO m => Dest -> Word32 -> m () -destWriteChangeLeft s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (val :: Word32) - -data DestChangeLeftFieldInfo -instance AttrInfo DestChangeLeftFieldInfo where - type AttrAllowedOps DestChangeLeftFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DestChangeLeftFieldInfo = (~) Word32 - type AttrBaseTypeConstraint DestChangeLeftFieldInfo = (~) Dest - type AttrGetType DestChangeLeftFieldInfo = Word32 - type AttrLabel DestChangeLeftFieldInfo = "change_left" - attrGet _ = destReadChangeLeft - attrSet _ = destWriteChangeLeft - attrConstruct = undefined - attrClear _ = undefined - -destChangeLeft :: AttrLabelProxy "changeLeft" -destChangeLeft = AttrLabelProxy - - -destReadChangeTop :: MonadIO m => Dest -> m Word32 -destReadChangeTop s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 60) :: IO Word32 - return val - -destWriteChangeTop :: MonadIO m => Dest -> Word32 -> m () -destWriteChangeTop s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 60) (val :: Word32) - -data DestChangeTopFieldInfo -instance AttrInfo DestChangeTopFieldInfo where - type AttrAllowedOps DestChangeTopFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DestChangeTopFieldInfo = (~) Word32 - type AttrBaseTypeConstraint DestChangeTopFieldInfo = (~) Dest - type AttrGetType DestChangeTopFieldInfo = Word32 - type AttrLabel DestChangeTopFieldInfo = "change_top" - attrGet _ = destReadChangeTop - attrSet _ = destWriteChangeTop - attrConstruct = undefined - attrClear _ = undefined - -destChangeTop :: AttrLabelProxy "changeTop" -destChangeTop = AttrLabelProxy - - -destReadChangeZoom :: MonadIO m => Dest -> m Word32 -destReadChangeZoom s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 64) :: IO Word32 - return val - -destWriteChangeZoom :: MonadIO m => Dest -> Word32 -> m () -destWriteChangeZoom s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 64) (val :: Word32) - -data DestChangeZoomFieldInfo -instance AttrInfo DestChangeZoomFieldInfo where - type AttrAllowedOps DestChangeZoomFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DestChangeZoomFieldInfo = (~) Word32 - type AttrBaseTypeConstraint DestChangeZoomFieldInfo = (~) Dest - type AttrGetType DestChangeZoomFieldInfo = Word32 - type AttrLabel DestChangeZoomFieldInfo = "change_zoom" - attrGet _ = destReadChangeZoom - attrSet _ = destWriteChangeZoom - attrConstruct = undefined - attrClear _ = undefined - -destChangeZoom :: AttrLabelProxy "changeZoom" -destChangeZoom = AttrLabelProxy - - - -type instance AttributeList Dest = DestAttributeList -type DestAttributeList = ('[ '("type", DestTypeFieldInfo), '("pageNum", DestPageNumFieldInfo), '("left", DestLeftFieldInfo), '("bottom", DestBottomFieldInfo), '("right", DestRightFieldInfo), '("top", DestTopFieldInfo), '("zoom", DestZoomFieldInfo), '("namedDest", DestNamedDestFieldInfo), '("changeLeft", DestChangeLeftFieldInfo), '("changeTop", DestChangeTopFieldInfo), '("changeZoom", DestChangeZoomFieldInfo)] :: [(Symbol, *)]) - --- method Dest::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Dest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Dest") --- throws : False --- Skip return : False - -foreign import ccall "poppler_dest_copy" poppler_dest_copy :: - Ptr Dest -> -- _obj : TInterface "Poppler" "Dest" - IO (Ptr Dest) - - -destCopy :: - (MonadIO m) => - Dest -- _obj - -> m Dest -- result -destCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_dest_copy _obj' - checkUnexpectedReturnNULL "poppler_dest_copy" result - result' <- (wrapBoxed Dest) result - touchManagedPtr _obj - return result' - -data DestCopyMethodInfo -instance (signature ~ (m Dest), MonadIO m) => MethodInfo DestCopyMethodInfo Dest signature where - overloadedMethod _ = destCopy - --- method Dest::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Dest", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_dest_free" poppler_dest_free :: - Ptr Dest -> -- _obj : TInterface "Poppler" "Dest" - IO () - - -destFree :: - (MonadIO m) => - Dest -- _obj - -> m () -- result -destFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_dest_free _obj' - touchManagedPtr _obj - return () - -data DestFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo DestFreeMethodInfo Dest signature where - overloadedMethod _ = destFree - -type family ResolveDestMethod (t :: Symbol) (o :: *) :: * where - ResolveDestMethod "copy" o = DestCopyMethodInfo - ResolveDestMethod "free" o = DestFreeMethodInfo - ResolveDestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDestMethod t Dest, MethodInfo info Dest p) => IsLabelProxy t (Dest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDestMethod t Dest, MethodInfo info Dest p) => IsLabel t (Dest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/Dest.hs-boot b/GI/Poppler/Structs/Dest.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/Dest.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Poppler.Structs.Dest where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Dest = Dest (ForeignPtr Dest) -instance BoxedObject Dest where -data DestCopyMethodInfo -data DestFreeMethodInfo diff --git a/GI/Poppler/Structs/FontsIter.hs b/GI/Poppler/Structs/FontsIter.hs deleted file mode 100644 --- a/GI/Poppler/Structs/FontsIter.hs +++ /dev/null @@ -1,436 +0,0 @@ - - -{- | -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.Structs.FontsIter - ( - --- * Exported types - FontsIter(..) , - noFontsIter , - - - -- * Methods --- ** fontsIterCopy - FontsIterCopyMethodInfo , - fontsIterCopy , - - --- ** fontsIterFree - FontsIterFreeMethodInfo , - fontsIterFree , - - --- ** fontsIterGetEncoding - FontsIterGetEncodingMethodInfo , - fontsIterGetEncoding , - - --- ** fontsIterGetFileName - FontsIterGetFileNameMethodInfo , - fontsIterGetFileName , - - --- ** fontsIterGetFontType - FontsIterGetFontTypeMethodInfo , - fontsIterGetFontType , - - --- ** fontsIterGetFullName - FontsIterGetFullNameMethodInfo , - fontsIterGetFullName , - - --- ** fontsIterGetName - FontsIterGetNameMethodInfo , - fontsIterGetName , - - --- ** fontsIterGetSubstituteName - FontsIterGetSubstituteNameMethodInfo , - fontsIterGetSubstituteName , - - --- ** fontsIterIsEmbedded - FontsIterIsEmbeddedMethodInfo , - fontsIterIsEmbedded , - - --- ** fontsIterIsSubset - FontsIterIsSubsetMethodInfo , - fontsIterIsSubset , - - --- ** fontsIterNext - FontsIterNextMethodInfo , - fontsIterNext , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype FontsIter = FontsIter (ForeignPtr FontsIter) -foreign import ccall "poppler_fonts_iter_get_type" c_poppler_fonts_iter_get_type :: - IO GType - -instance BoxedObject FontsIter where - boxedType _ = c_poppler_fonts_iter_get_type - -noFontsIter :: Maybe FontsIter -noFontsIter = Nothing - - -type instance AttributeList FontsIter = FontsIterAttributeList -type FontsIterAttributeList = ('[ ] :: [(Symbol, *)]) - --- method FontsIter::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "FontsIter") --- throws : False --- Skip return : False - -foreign import ccall "poppler_fonts_iter_copy" poppler_fonts_iter_copy :: - Ptr FontsIter -> -- _obj : TInterface "Poppler" "FontsIter" - IO (Ptr FontsIter) - - -fontsIterCopy :: - (MonadIO m) => - FontsIter -- _obj - -> m FontsIter -- result -fontsIterCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_fonts_iter_copy _obj' - checkUnexpectedReturnNULL "poppler_fonts_iter_copy" result - result' <- (wrapBoxed FontsIter) result - touchManagedPtr _obj - return result' - -data FontsIterCopyMethodInfo -instance (signature ~ (m FontsIter), MonadIO m) => MethodInfo FontsIterCopyMethodInfo FontsIter signature where - overloadedMethod _ = fontsIterCopy - --- method FontsIter::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_fonts_iter_free" poppler_fonts_iter_free :: - Ptr FontsIter -> -- _obj : TInterface "Poppler" "FontsIter" - IO () - - -fontsIterFree :: - (MonadIO m) => - FontsIter -- _obj - -> m () -- result -fontsIterFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_fonts_iter_free _obj' - touchManagedPtr _obj - return () - -data FontsIterFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo FontsIterFreeMethodInfo FontsIter signature where - overloadedMethod _ = fontsIterFree - --- method FontsIter::get_encoding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_fonts_iter_get_encoding" poppler_fonts_iter_get_encoding :: - Ptr FontsIter -> -- _obj : TInterface "Poppler" "FontsIter" - IO CString - - -fontsIterGetEncoding :: - (MonadIO m) => - FontsIter -- _obj - -> m T.Text -- result -fontsIterGetEncoding _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_fonts_iter_get_encoding _obj' - checkUnexpectedReturnNULL "poppler_fonts_iter_get_encoding" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FontsIterGetEncodingMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FontsIterGetEncodingMethodInfo FontsIter signature where - overloadedMethod _ = fontsIterGetEncoding - --- method FontsIter::get_file_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_fonts_iter_get_file_name" poppler_fonts_iter_get_file_name :: - Ptr FontsIter -> -- _obj : TInterface "Poppler" "FontsIter" - IO CString - - -fontsIterGetFileName :: - (MonadIO m) => - FontsIter -- _obj - -> m T.Text -- result -fontsIterGetFileName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_fonts_iter_get_file_name _obj' - checkUnexpectedReturnNULL "poppler_fonts_iter_get_file_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FontsIterGetFileNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FontsIterGetFileNameMethodInfo FontsIter signature where - overloadedMethod _ = fontsIterGetFileName - --- method FontsIter::get_font_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "FontType") --- throws : False --- Skip return : False - -foreign import ccall "poppler_fonts_iter_get_font_type" poppler_fonts_iter_get_font_type :: - Ptr FontsIter -> -- _obj : TInterface "Poppler" "FontsIter" - IO CUInt - - -fontsIterGetFontType :: - (MonadIO m) => - FontsIter -- _obj - -> m FontType -- result -fontsIterGetFontType _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_fonts_iter_get_font_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data FontsIterGetFontTypeMethodInfo -instance (signature ~ (m FontType), MonadIO m) => MethodInfo FontsIterGetFontTypeMethodInfo FontsIter signature where - overloadedMethod _ = fontsIterGetFontType - --- method FontsIter::get_full_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_fonts_iter_get_full_name" poppler_fonts_iter_get_full_name :: - Ptr FontsIter -> -- _obj : TInterface "Poppler" "FontsIter" - IO CString - - -fontsIterGetFullName :: - (MonadIO m) => - FontsIter -- _obj - -> m T.Text -- result -fontsIterGetFullName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_fonts_iter_get_full_name _obj' - checkUnexpectedReturnNULL "poppler_fonts_iter_get_full_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FontsIterGetFullNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FontsIterGetFullNameMethodInfo FontsIter signature where - overloadedMethod _ = fontsIterGetFullName - --- method FontsIter::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_fonts_iter_get_name" poppler_fonts_iter_get_name :: - Ptr FontsIter -> -- _obj : TInterface "Poppler" "FontsIter" - IO CString - - -fontsIterGetName :: - (MonadIO m) => - FontsIter -- _obj - -> m T.Text -- result -fontsIterGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_fonts_iter_get_name _obj' - checkUnexpectedReturnNULL "poppler_fonts_iter_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FontsIterGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FontsIterGetNameMethodInfo FontsIter signature where - overloadedMethod _ = fontsIterGetName - --- method FontsIter::get_substitute_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_fonts_iter_get_substitute_name" poppler_fonts_iter_get_substitute_name :: - Ptr FontsIter -> -- _obj : TInterface "Poppler" "FontsIter" - IO CString - - -fontsIterGetSubstituteName :: - (MonadIO m) => - FontsIter -- _obj - -> m T.Text -- result -fontsIterGetSubstituteName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_fonts_iter_get_substitute_name _obj' - checkUnexpectedReturnNULL "poppler_fonts_iter_get_substitute_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FontsIterGetSubstituteNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FontsIterGetSubstituteNameMethodInfo FontsIter signature where - overloadedMethod _ = fontsIterGetSubstituteName - --- method FontsIter::is_embedded --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_fonts_iter_is_embedded" poppler_fonts_iter_is_embedded :: - Ptr FontsIter -> -- _obj : TInterface "Poppler" "FontsIter" - IO CInt - - -fontsIterIsEmbedded :: - (MonadIO m) => - FontsIter -- _obj - -> m Bool -- result -fontsIterIsEmbedded _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_fonts_iter_is_embedded _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FontsIterIsEmbeddedMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo FontsIterIsEmbeddedMethodInfo FontsIter signature where - overloadedMethod _ = fontsIterIsEmbedded - --- method FontsIter::is_subset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_fonts_iter_is_subset" poppler_fonts_iter_is_subset :: - Ptr FontsIter -> -- _obj : TInterface "Poppler" "FontsIter" - IO CInt - - -fontsIterIsSubset :: - (MonadIO m) => - FontsIter -- _obj - -> m Bool -- result -fontsIterIsSubset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_fonts_iter_is_subset _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FontsIterIsSubsetMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo FontsIterIsSubsetMethodInfo FontsIter signature where - overloadedMethod _ = fontsIterIsSubset - --- method FontsIter::next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FontsIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_fonts_iter_next" poppler_fonts_iter_next :: - Ptr FontsIter -> -- _obj : TInterface "Poppler" "FontsIter" - IO CInt - - -fontsIterNext :: - (MonadIO m) => - FontsIter -- _obj - -> m Bool -- result -fontsIterNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_fonts_iter_next _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FontsIterNextMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo FontsIterNextMethodInfo FontsIter signature where - overloadedMethod _ = fontsIterNext - -type family ResolveFontsIterMethod (t :: Symbol) (o :: *) :: * where - ResolveFontsIterMethod "copy" o = FontsIterCopyMethodInfo - ResolveFontsIterMethod "free" o = FontsIterFreeMethodInfo - ResolveFontsIterMethod "isEmbedded" o = FontsIterIsEmbeddedMethodInfo - ResolveFontsIterMethod "isSubset" o = FontsIterIsSubsetMethodInfo - ResolveFontsIterMethod "next" o = FontsIterNextMethodInfo - ResolveFontsIterMethod "getEncoding" o = FontsIterGetEncodingMethodInfo - ResolveFontsIterMethod "getFileName" o = FontsIterGetFileNameMethodInfo - ResolveFontsIterMethod "getFontType" o = FontsIterGetFontTypeMethodInfo - ResolveFontsIterMethod "getFullName" o = FontsIterGetFullNameMethodInfo - ResolveFontsIterMethod "getName" o = FontsIterGetNameMethodInfo - ResolveFontsIterMethod "getSubstituteName" o = FontsIterGetSubstituteNameMethodInfo - ResolveFontsIterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFontsIterMethod t FontsIter, MethodInfo info FontsIter p) => IsLabelProxy t (FontsIter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFontsIterMethod t FontsIter, MethodInfo info FontsIter p) => IsLabel t (FontsIter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/FontsIter.hs-boot b/GI/Poppler/Structs/FontsIter.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/FontsIter.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.Poppler.Structs.FontsIter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FontsIter = FontsIter (ForeignPtr FontsIter) -instance BoxedObject FontsIter where -data FontsIterCopyMethodInfo -data FontsIterFreeMethodInfo -data FontsIterGetEncodingMethodInfo -data FontsIterGetFileNameMethodInfo -data FontsIterGetFontTypeMethodInfo -data FontsIterGetFullNameMethodInfo -data FontsIterGetNameMethodInfo -data FontsIterGetSubstituteNameMethodInfo -data FontsIterIsEmbeddedMethodInfo -data FontsIterIsSubsetMethodInfo -data FontsIterNextMethodInfo diff --git a/GI/Poppler/Structs/FormFieldMapping.hs b/GI/Poppler/Structs/FormFieldMapping.hs deleted file mode 100644 --- a/GI/Poppler/Structs/FormFieldMapping.hs +++ /dev/null @@ -1,246 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #PopplerFormFieldMapping structure represents the location -of @field on the page --} - -module GI.Poppler.Structs.FormFieldMapping - ( - --- * Exported types - FormFieldMapping(..) , - newZeroFormFieldMapping , - noFormFieldMapping , - - - -- * Methods --- ** formFieldMappingCopy - FormFieldMappingCopyMethodInfo , - formFieldMappingCopy , - - --- ** formFieldMappingFree - FormFieldMappingFreeMethodInfo , - formFieldMappingFree , - - --- ** formFieldMappingNew - formFieldMappingNew , - - - - - -- * Properties --- ** Area - formFieldMappingArea , - formFieldMappingClearArea , - formFieldMappingReadArea , - formFieldMappingWriteArea , - - --- ** Field - formFieldMappingClearField , - formFieldMappingField , - formFieldMappingReadField , - formFieldMappingWriteField , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype FormFieldMapping = FormFieldMapping (ForeignPtr FormFieldMapping) -foreign import ccall "poppler_form_field_mapping_get_type" c_poppler_form_field_mapping_get_type :: - IO GType - -instance BoxedObject FormFieldMapping where - boxedType _ = c_poppler_form_field_mapping_get_type - --- | Construct a `FormFieldMapping` struct initialized to zero. -newZeroFormFieldMapping :: MonadIO m => m FormFieldMapping -newZeroFormFieldMapping = liftIO $ callocBoxedBytes 40 >>= wrapBoxed FormFieldMapping - -instance tag ~ 'AttrSet => Constructible FormFieldMapping tag where - new _ attrs = do - o <- newZeroFormFieldMapping - GI.Attributes.set o attrs - return o - - -noFormFieldMapping :: Maybe FormFieldMapping -noFormFieldMapping = Nothing - -formFieldMappingReadArea :: MonadIO m => FormFieldMapping -> m (Maybe Rectangle) -formFieldMappingReadArea s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr Rectangle) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Rectangle) val' - return val'' - return result - -formFieldMappingWriteArea :: MonadIO m => FormFieldMapping -> Ptr Rectangle -> m () -formFieldMappingWriteArea s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr Rectangle) - -formFieldMappingClearArea :: MonadIO m => FormFieldMapping -> m () -formFieldMappingClearArea s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr Rectangle) - -data FormFieldMappingAreaFieldInfo -instance AttrInfo FormFieldMappingAreaFieldInfo where - type AttrAllowedOps FormFieldMappingAreaFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FormFieldMappingAreaFieldInfo = (~) (Ptr Rectangle) - type AttrBaseTypeConstraint FormFieldMappingAreaFieldInfo = (~) FormFieldMapping - type AttrGetType FormFieldMappingAreaFieldInfo = Maybe Rectangle - type AttrLabel FormFieldMappingAreaFieldInfo = "area" - attrGet _ = formFieldMappingReadArea - attrSet _ = formFieldMappingWriteArea - attrConstruct = undefined - attrClear _ = formFieldMappingClearArea - -formFieldMappingArea :: AttrLabelProxy "area" -formFieldMappingArea = AttrLabelProxy - - -formFieldMappingReadField :: MonadIO m => FormFieldMapping -> m (Maybe FormField) -formFieldMappingReadField s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr FormField) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject FormField) val' - return val'' - return result - -formFieldMappingWriteField :: MonadIO m => FormFieldMapping -> Ptr FormField -> m () -formFieldMappingWriteField s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr FormField) - -formFieldMappingClearField :: MonadIO m => FormFieldMapping -> m () -formFieldMappingClearField s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr FormField) - -data FormFieldMappingFieldFieldInfo -instance AttrInfo FormFieldMappingFieldFieldInfo where - type AttrAllowedOps FormFieldMappingFieldFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FormFieldMappingFieldFieldInfo = (~) (Ptr FormField) - type AttrBaseTypeConstraint FormFieldMappingFieldFieldInfo = (~) FormFieldMapping - type AttrGetType FormFieldMappingFieldFieldInfo = Maybe FormField - type AttrLabel FormFieldMappingFieldFieldInfo = "field" - attrGet _ = formFieldMappingReadField - attrSet _ = formFieldMappingWriteField - attrConstruct = undefined - attrClear _ = formFieldMappingClearField - -formFieldMappingField :: AttrLabelProxy "field" -formFieldMappingField = AttrLabelProxy - - - -type instance AttributeList FormFieldMapping = FormFieldMappingAttributeList -type FormFieldMappingAttributeList = ('[ '("area", FormFieldMappingAreaFieldInfo), '("field", FormFieldMappingFieldFieldInfo)] :: [(Symbol, *)]) - --- method FormFieldMapping::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "FormFieldMapping") --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_mapping_new" poppler_form_field_mapping_new :: - IO (Ptr FormFieldMapping) - - -formFieldMappingNew :: - (MonadIO m) => - m FormFieldMapping -- result -formFieldMappingNew = liftIO $ do - result <- poppler_form_field_mapping_new - checkUnexpectedReturnNULL "poppler_form_field_mapping_new" result - result' <- (wrapBoxed FormFieldMapping) result - return result' - --- method FormFieldMapping::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormFieldMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "FormFieldMapping") --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_mapping_copy" poppler_form_field_mapping_copy :: - Ptr FormFieldMapping -> -- _obj : TInterface "Poppler" "FormFieldMapping" - IO (Ptr FormFieldMapping) - - -formFieldMappingCopy :: - (MonadIO m) => - FormFieldMapping -- _obj - -> m FormFieldMapping -- result -formFieldMappingCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_form_field_mapping_copy _obj' - checkUnexpectedReturnNULL "poppler_form_field_mapping_copy" result - result' <- (wrapBoxed FormFieldMapping) result - touchManagedPtr _obj - return result' - -data FormFieldMappingCopyMethodInfo -instance (signature ~ (m FormFieldMapping), MonadIO m) => MethodInfo FormFieldMappingCopyMethodInfo FormFieldMapping signature where - overloadedMethod _ = formFieldMappingCopy - --- method FormFieldMapping::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "FormFieldMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_form_field_mapping_free" poppler_form_field_mapping_free :: - Ptr FormFieldMapping -> -- _obj : TInterface "Poppler" "FormFieldMapping" - IO () - - -formFieldMappingFree :: - (MonadIO m) => - FormFieldMapping -- _obj - -> m () -- result -formFieldMappingFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_form_field_mapping_free _obj' - touchManagedPtr _obj - return () - -data FormFieldMappingFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo FormFieldMappingFreeMethodInfo FormFieldMapping signature where - overloadedMethod _ = formFieldMappingFree - -type family ResolveFormFieldMappingMethod (t :: Symbol) (o :: *) :: * where - ResolveFormFieldMappingMethod "copy" o = FormFieldMappingCopyMethodInfo - ResolveFormFieldMappingMethod "free" o = FormFieldMappingFreeMethodInfo - ResolveFormFieldMappingMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFormFieldMappingMethod t FormFieldMapping, MethodInfo info FormFieldMapping p) => IsLabelProxy t (FormFieldMapping -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFormFieldMappingMethod t FormFieldMapping, MethodInfo info FormFieldMapping p) => IsLabel t (FormFieldMapping -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/FormFieldMapping.hs-boot b/GI/Poppler/Structs/FormFieldMapping.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/FormFieldMapping.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Poppler.Structs.FormFieldMapping where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FormFieldMapping = FormFieldMapping (ForeignPtr FormFieldMapping) -instance BoxedObject FormFieldMapping where -data FormFieldMappingCopyMethodInfo -data FormFieldMappingFreeMethodInfo diff --git a/GI/Poppler/Structs/ImageMapping.hs b/GI/Poppler/Structs/ImageMapping.hs deleted file mode 100644 --- a/GI/Poppler/Structs/ImageMapping.hs +++ /dev/null @@ -1,238 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #PopplerImageMapping structure represents the location -of an image on the page --} - -module GI.Poppler.Structs.ImageMapping - ( - --- * Exported types - ImageMapping(..) , - newZeroImageMapping , - noImageMapping , - - - -- * Methods --- ** imageMappingCopy - ImageMappingCopyMethodInfo , - imageMappingCopy , - - --- ** imageMappingFree - ImageMappingFreeMethodInfo , - imageMappingFree , - - --- ** imageMappingNew - imageMappingNew , - - - - - -- * Properties --- ** Area - imageMappingArea , - imageMappingClearArea , - imageMappingReadArea , - imageMappingWriteArea , - - --- ** ImageId - imageMappingImageId , - imageMappingReadImageId , - imageMappingWriteImageId , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ImageMapping = ImageMapping (ForeignPtr ImageMapping) -foreign import ccall "poppler_image_mapping_get_type" c_poppler_image_mapping_get_type :: - IO GType - -instance BoxedObject ImageMapping where - boxedType _ = c_poppler_image_mapping_get_type - --- | Construct a `ImageMapping` struct initialized to zero. -newZeroImageMapping :: MonadIO m => m ImageMapping -newZeroImageMapping = liftIO $ callocBoxedBytes 40 >>= wrapBoxed ImageMapping - -instance tag ~ 'AttrSet => Constructible ImageMapping tag where - new _ attrs = do - o <- newZeroImageMapping - GI.Attributes.set o attrs - return o - - -noImageMapping :: Maybe ImageMapping -noImageMapping = Nothing - -imageMappingReadArea :: MonadIO m => ImageMapping -> m (Maybe Rectangle) -imageMappingReadArea s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr Rectangle) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Rectangle) val' - return val'' - return result - -imageMappingWriteArea :: MonadIO m => ImageMapping -> Ptr Rectangle -> m () -imageMappingWriteArea s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr Rectangle) - -imageMappingClearArea :: MonadIO m => ImageMapping -> m () -imageMappingClearArea s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr Rectangle) - -data ImageMappingAreaFieldInfo -instance AttrInfo ImageMappingAreaFieldInfo where - type AttrAllowedOps ImageMappingAreaFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ImageMappingAreaFieldInfo = (~) (Ptr Rectangle) - type AttrBaseTypeConstraint ImageMappingAreaFieldInfo = (~) ImageMapping - type AttrGetType ImageMappingAreaFieldInfo = Maybe Rectangle - type AttrLabel ImageMappingAreaFieldInfo = "area" - attrGet _ = imageMappingReadArea - attrSet _ = imageMappingWriteArea - attrConstruct = undefined - attrClear _ = imageMappingClearArea - -imageMappingArea :: AttrLabelProxy "area" -imageMappingArea = AttrLabelProxy - - -imageMappingReadImageId :: MonadIO m => ImageMapping -> m Int32 -imageMappingReadImageId s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Int32 - return val - -imageMappingWriteImageId :: MonadIO m => ImageMapping -> Int32 -> m () -imageMappingWriteImageId s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Int32) - -data ImageMappingImageIdFieldInfo -instance AttrInfo ImageMappingImageIdFieldInfo where - type AttrAllowedOps ImageMappingImageIdFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ImageMappingImageIdFieldInfo = (~) Int32 - type AttrBaseTypeConstraint ImageMappingImageIdFieldInfo = (~) ImageMapping - type AttrGetType ImageMappingImageIdFieldInfo = Int32 - type AttrLabel ImageMappingImageIdFieldInfo = "image_id" - attrGet _ = imageMappingReadImageId - attrSet _ = imageMappingWriteImageId - attrConstruct = undefined - attrClear _ = undefined - -imageMappingImageId :: AttrLabelProxy "imageId" -imageMappingImageId = AttrLabelProxy - - - -type instance AttributeList ImageMapping = ImageMappingAttributeList -type ImageMappingAttributeList = ('[ '("area", ImageMappingAreaFieldInfo), '("imageId", ImageMappingImageIdFieldInfo)] :: [(Symbol, *)]) - --- method ImageMapping::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "ImageMapping") --- throws : False --- Skip return : False - -foreign import ccall "poppler_image_mapping_new" poppler_image_mapping_new :: - IO (Ptr ImageMapping) - - -imageMappingNew :: - (MonadIO m) => - m ImageMapping -- result -imageMappingNew = liftIO $ do - result <- poppler_image_mapping_new - checkUnexpectedReturnNULL "poppler_image_mapping_new" result - result' <- (wrapBoxed ImageMapping) result - return result' - --- method ImageMapping::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "ImageMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "ImageMapping") --- throws : False --- Skip return : False - -foreign import ccall "poppler_image_mapping_copy" poppler_image_mapping_copy :: - Ptr ImageMapping -> -- _obj : TInterface "Poppler" "ImageMapping" - IO (Ptr ImageMapping) - - -imageMappingCopy :: - (MonadIO m) => - ImageMapping -- _obj - -> m ImageMapping -- result -imageMappingCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_image_mapping_copy _obj' - checkUnexpectedReturnNULL "poppler_image_mapping_copy" result - result' <- (wrapBoxed ImageMapping) result - touchManagedPtr _obj - return result' - -data ImageMappingCopyMethodInfo -instance (signature ~ (m ImageMapping), MonadIO m) => MethodInfo ImageMappingCopyMethodInfo ImageMapping signature where - overloadedMethod _ = imageMappingCopy - --- method ImageMapping::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "ImageMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_image_mapping_free" poppler_image_mapping_free :: - Ptr ImageMapping -> -- _obj : TInterface "Poppler" "ImageMapping" - IO () - - -imageMappingFree :: - (MonadIO m) => - ImageMapping -- _obj - -> m () -- result -imageMappingFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_image_mapping_free _obj' - touchManagedPtr _obj - return () - -data ImageMappingFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo ImageMappingFreeMethodInfo ImageMapping signature where - overloadedMethod _ = imageMappingFree - -type family ResolveImageMappingMethod (t :: Symbol) (o :: *) :: * where - ResolveImageMappingMethod "copy" o = ImageMappingCopyMethodInfo - ResolveImageMappingMethod "free" o = ImageMappingFreeMethodInfo - ResolveImageMappingMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveImageMappingMethod t ImageMapping, MethodInfo info ImageMapping p) => IsLabelProxy t (ImageMapping -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveImageMappingMethod t ImageMapping, MethodInfo info ImageMapping p) => IsLabel t (ImageMapping -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/ImageMapping.hs-boot b/GI/Poppler/Structs/ImageMapping.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/ImageMapping.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Poppler.Structs.ImageMapping where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ImageMapping = ImageMapping (ForeignPtr ImageMapping) -instance BoxedObject ImageMapping where -data ImageMappingCopyMethodInfo -data ImageMappingFreeMethodInfo diff --git a/GI/Poppler/Structs/IndexIter.hs b/GI/Poppler/Structs/IndexIter.hs deleted file mode 100644 --- a/GI/Poppler/Structs/IndexIter.hs +++ /dev/null @@ -1,292 +0,0 @@ - - -{- | -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.Structs.IndexIter - ( - --- * Exported types - IndexIter(..) , - noIndexIter , - - - -- * Methods --- ** indexIterCopy - IndexIterCopyMethodInfo , - indexIterCopy , - - --- ** indexIterFree - IndexIterFreeMethodInfo , - indexIterFree , - - --- ** indexIterGetAction - IndexIterGetActionMethodInfo , - indexIterGetAction , - - --- ** indexIterGetChild - IndexIterGetChildMethodInfo , - indexIterGetChild , - - --- ** indexIterIsOpen - IndexIterIsOpenMethodInfo , - indexIterIsOpen , - - --- ** indexIterNew - indexIterNew , - - --- ** indexIterNext - IndexIterNextMethodInfo , - indexIterNext , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype IndexIter = IndexIter (ForeignPtr IndexIter) -foreign import ccall "poppler_index_iter_get_type" c_poppler_index_iter_get_type :: - IO GType - -instance BoxedObject IndexIter where - boxedType _ = c_poppler_index_iter_get_type - -noIndexIter :: Maybe IndexIter -noIndexIter = Nothing - - -type instance AttributeList IndexIter = IndexIterAttributeList -type IndexIterAttributeList = ('[ ] :: [(Symbol, *)]) - --- method IndexIter::new --- method type : Constructor --- Args : [Arg {argCName = "document", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "IndexIter") --- throws : False --- Skip return : False - -foreign import ccall "poppler_index_iter_new" poppler_index_iter_new :: - Ptr Document -> -- document : TInterface "Poppler" "Document" - IO (Ptr IndexIter) - - -indexIterNew :: - (MonadIO m, DocumentK a) => - a -- document - -> m IndexIter -- result -indexIterNew document = liftIO $ do - let document' = unsafeManagedPtrCastPtr document - result <- poppler_index_iter_new document' - checkUnexpectedReturnNULL "poppler_index_iter_new" result - result' <- (wrapBoxed IndexIter) result - touchManagedPtr document - return result' - --- method IndexIter::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "IndexIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "IndexIter") --- throws : False --- Skip return : False - -foreign import ccall "poppler_index_iter_copy" poppler_index_iter_copy :: - Ptr IndexIter -> -- _obj : TInterface "Poppler" "IndexIter" - IO (Ptr IndexIter) - - -indexIterCopy :: - (MonadIO m) => - IndexIter -- _obj - -> m IndexIter -- result -indexIterCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_index_iter_copy _obj' - checkUnexpectedReturnNULL "poppler_index_iter_copy" result - result' <- (wrapBoxed IndexIter) result - touchManagedPtr _obj - return result' - -data IndexIterCopyMethodInfo -instance (signature ~ (m IndexIter), MonadIO m) => MethodInfo IndexIterCopyMethodInfo IndexIter signature where - overloadedMethod _ = indexIterCopy - --- method IndexIter::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "IndexIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_index_iter_free" poppler_index_iter_free :: - Ptr IndexIter -> -- _obj : TInterface "Poppler" "IndexIter" - IO () - - -indexIterFree :: - (MonadIO m) => - IndexIter -- _obj - -> m () -- result -indexIterFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_index_iter_free _obj' - touchManagedPtr _obj - return () - -data IndexIterFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo IndexIterFreeMethodInfo IndexIter signature where - overloadedMethod _ = indexIterFree - --- method IndexIter::get_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "IndexIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Action") --- throws : False --- Skip return : False - -foreign import ccall "poppler_index_iter_get_action" poppler_index_iter_get_action :: - Ptr IndexIter -> -- _obj : TInterface "Poppler" "IndexIter" - IO (Ptr Action) - - -indexIterGetAction :: - (MonadIO m) => - IndexIter -- _obj - -> m Action -- result -indexIterGetAction _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_index_iter_get_action _obj' - checkUnexpectedReturnNULL "poppler_index_iter_get_action" result - result' <- (wrapBoxed Action) result - touchManagedPtr _obj - return result' - -data IndexIterGetActionMethodInfo -instance (signature ~ (m Action), MonadIO m) => MethodInfo IndexIterGetActionMethodInfo IndexIter signature where - overloadedMethod _ = indexIterGetAction - --- method IndexIter::get_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "IndexIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "IndexIter") --- throws : False --- Skip return : False - -foreign import ccall "poppler_index_iter_get_child" poppler_index_iter_get_child :: - Ptr IndexIter -> -- _obj : TInterface "Poppler" "IndexIter" - IO (Ptr IndexIter) - - -indexIterGetChild :: - (MonadIO m) => - IndexIter -- _obj - -> m IndexIter -- result -indexIterGetChild _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_index_iter_get_child _obj' - checkUnexpectedReturnNULL "poppler_index_iter_get_child" result - result' <- (wrapBoxed IndexIter) result - touchManagedPtr _obj - return result' - -data IndexIterGetChildMethodInfo -instance (signature ~ (m IndexIter), MonadIO m) => MethodInfo IndexIterGetChildMethodInfo IndexIter signature where - overloadedMethod _ = indexIterGetChild - --- method IndexIter::is_open --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "IndexIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_index_iter_is_open" poppler_index_iter_is_open :: - Ptr IndexIter -> -- _obj : TInterface "Poppler" "IndexIter" - IO CInt - - -indexIterIsOpen :: - (MonadIO m) => - IndexIter -- _obj - -> m Bool -- result -indexIterIsOpen _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_index_iter_is_open _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data IndexIterIsOpenMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo IndexIterIsOpenMethodInfo IndexIter signature where - overloadedMethod _ = indexIterIsOpen - --- method IndexIter::next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "IndexIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_index_iter_next" poppler_index_iter_next :: - Ptr IndexIter -> -- _obj : TInterface "Poppler" "IndexIter" - IO CInt - - -indexIterNext :: - (MonadIO m) => - IndexIter -- _obj - -> m Bool -- result -indexIterNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_index_iter_next _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data IndexIterNextMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo IndexIterNextMethodInfo IndexIter signature where - overloadedMethod _ = indexIterNext - -type family ResolveIndexIterMethod (t :: Symbol) (o :: *) :: * where - ResolveIndexIterMethod "copy" o = IndexIterCopyMethodInfo - ResolveIndexIterMethod "free" o = IndexIterFreeMethodInfo - ResolveIndexIterMethod "isOpen" o = IndexIterIsOpenMethodInfo - ResolveIndexIterMethod "next" o = IndexIterNextMethodInfo - ResolveIndexIterMethod "getAction" o = IndexIterGetActionMethodInfo - ResolveIndexIterMethod "getChild" o = IndexIterGetChildMethodInfo - ResolveIndexIterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIndexIterMethod t IndexIter, MethodInfo info IndexIter p) => IsLabelProxy t (IndexIter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIndexIterMethod t IndexIter, MethodInfo info IndexIter p) => IsLabel t (IndexIter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/IndexIter.hs-boot b/GI/Poppler/Structs/IndexIter.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/IndexIter.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Poppler.Structs.IndexIter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IndexIter = IndexIter (ForeignPtr IndexIter) -instance BoxedObject IndexIter where -data IndexIterCopyMethodInfo -data IndexIterFreeMethodInfo -data IndexIterGetActionMethodInfo -data IndexIterGetChildMethodInfo -data IndexIterIsOpenMethodInfo -data IndexIterNextMethodInfo diff --git a/GI/Poppler/Structs/LayersIter.hs b/GI/Poppler/Structs/LayersIter.hs deleted file mode 100644 --- a/GI/Poppler/Structs/LayersIter.hs +++ /dev/null @@ -1,294 +0,0 @@ - - -{- | -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.Structs.LayersIter - ( - --- * Exported types - LayersIter(..) , - noLayersIter , - - - -- * Methods --- ** layersIterCopy - LayersIterCopyMethodInfo , - layersIterCopy , - - --- ** layersIterFree - LayersIterFreeMethodInfo , - layersIterFree , - - --- ** layersIterGetChild - LayersIterGetChildMethodInfo , - layersIterGetChild , - - --- ** layersIterGetLayer - LayersIterGetLayerMethodInfo , - layersIterGetLayer , - - --- ** layersIterGetTitle - LayersIterGetTitleMethodInfo , - layersIterGetTitle , - - --- ** layersIterNew - layersIterNew , - - --- ** layersIterNext - LayersIterNextMethodInfo , - layersIterNext , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype LayersIter = LayersIter (ForeignPtr LayersIter) -foreign import ccall "poppler_layers_iter_get_type" c_poppler_layers_iter_get_type :: - IO GType - -instance BoxedObject LayersIter where - boxedType _ = c_poppler_layers_iter_get_type - -noLayersIter :: Maybe LayersIter -noLayersIter = Nothing - - -type instance AttributeList LayersIter = LayersIterAttributeList -type LayersIterAttributeList = ('[ ] :: [(Symbol, *)]) - --- method LayersIter::new --- method type : Constructor --- Args : [Arg {argCName = "document", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "LayersIter") --- throws : False --- Skip return : False - -foreign import ccall "poppler_layers_iter_new" poppler_layers_iter_new :: - Ptr Document -> -- document : TInterface "Poppler" "Document" - IO (Ptr LayersIter) - - -layersIterNew :: - (MonadIO m, DocumentK a) => - a -- document - -> m LayersIter -- result -layersIterNew document = liftIO $ do - let document' = unsafeManagedPtrCastPtr document - result <- poppler_layers_iter_new document' - checkUnexpectedReturnNULL "poppler_layers_iter_new" result - result' <- (wrapBoxed LayersIter) result - touchManagedPtr document - return result' - --- method LayersIter::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LayersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "LayersIter") --- throws : False --- Skip return : False - -foreign import ccall "poppler_layers_iter_copy" poppler_layers_iter_copy :: - Ptr LayersIter -> -- _obj : TInterface "Poppler" "LayersIter" - IO (Ptr LayersIter) - - -layersIterCopy :: - (MonadIO m) => - LayersIter -- _obj - -> m LayersIter -- result -layersIterCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_layers_iter_copy _obj' - checkUnexpectedReturnNULL "poppler_layers_iter_copy" result - result' <- (wrapBoxed LayersIter) result - touchManagedPtr _obj - return result' - -data LayersIterCopyMethodInfo -instance (signature ~ (m LayersIter), MonadIO m) => MethodInfo LayersIterCopyMethodInfo LayersIter signature where - overloadedMethod _ = layersIterCopy - --- method LayersIter::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LayersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_layers_iter_free" poppler_layers_iter_free :: - Ptr LayersIter -> -- _obj : TInterface "Poppler" "LayersIter" - IO () - - -layersIterFree :: - (MonadIO m) => - LayersIter -- _obj - -> m () -- result -layersIterFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_layers_iter_free _obj' - touchManagedPtr _obj - return () - -data LayersIterFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo LayersIterFreeMethodInfo LayersIter signature where - overloadedMethod _ = layersIterFree - --- method LayersIter::get_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LayersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "LayersIter") --- throws : False --- Skip return : False - -foreign import ccall "poppler_layers_iter_get_child" poppler_layers_iter_get_child :: - Ptr LayersIter -> -- _obj : TInterface "Poppler" "LayersIter" - IO (Ptr LayersIter) - - -layersIterGetChild :: - (MonadIO m) => - LayersIter -- _obj - -> m LayersIter -- result -layersIterGetChild _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_layers_iter_get_child _obj' - checkUnexpectedReturnNULL "poppler_layers_iter_get_child" result - result' <- (wrapBoxed LayersIter) result - touchManagedPtr _obj - return result' - -data LayersIterGetChildMethodInfo -instance (signature ~ (m LayersIter), MonadIO m) => MethodInfo LayersIterGetChildMethodInfo LayersIter signature where - overloadedMethod _ = layersIterGetChild - --- method LayersIter::get_layer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LayersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Layer") --- throws : False --- Skip return : False - -foreign import ccall "poppler_layers_iter_get_layer" poppler_layers_iter_get_layer :: - Ptr LayersIter -> -- _obj : TInterface "Poppler" "LayersIter" - IO (Ptr Layer) - - -layersIterGetLayer :: - (MonadIO m) => - LayersIter -- _obj - -> m Layer -- result -layersIterGetLayer _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_layers_iter_get_layer _obj' - checkUnexpectedReturnNULL "poppler_layers_iter_get_layer" result - result' <- (wrapObject Layer) result - touchManagedPtr _obj - return result' - -data LayersIterGetLayerMethodInfo -instance (signature ~ (m Layer), MonadIO m) => MethodInfo LayersIterGetLayerMethodInfo LayersIter signature where - overloadedMethod _ = layersIterGetLayer - --- method LayersIter::get_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LayersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_layers_iter_get_title" poppler_layers_iter_get_title :: - Ptr LayersIter -> -- _obj : TInterface "Poppler" "LayersIter" - IO CString - - -layersIterGetTitle :: - (MonadIO m) => - LayersIter -- _obj - -> m T.Text -- result -layersIterGetTitle _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_layers_iter_get_title _obj' - checkUnexpectedReturnNULL "poppler_layers_iter_get_title" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data LayersIterGetTitleMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo LayersIterGetTitleMethodInfo LayersIter signature where - overloadedMethod _ = layersIterGetTitle - --- method LayersIter::next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LayersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_layers_iter_next" poppler_layers_iter_next :: - Ptr LayersIter -> -- _obj : TInterface "Poppler" "LayersIter" - IO CInt - - -layersIterNext :: - (MonadIO m) => - LayersIter -- _obj - -> m Bool -- result -layersIterNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_layers_iter_next _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data LayersIterNextMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo LayersIterNextMethodInfo LayersIter signature where - overloadedMethod _ = layersIterNext - -type family ResolveLayersIterMethod (t :: Symbol) (o :: *) :: * where - ResolveLayersIterMethod "copy" o = LayersIterCopyMethodInfo - ResolveLayersIterMethod "free" o = LayersIterFreeMethodInfo - ResolveLayersIterMethod "next" o = LayersIterNextMethodInfo - ResolveLayersIterMethod "getChild" o = LayersIterGetChildMethodInfo - ResolveLayersIterMethod "getLayer" o = LayersIterGetLayerMethodInfo - ResolveLayersIterMethod "getTitle" o = LayersIterGetTitleMethodInfo - ResolveLayersIterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveLayersIterMethod t LayersIter, MethodInfo info LayersIter p) => IsLabelProxy t (LayersIter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveLayersIterMethod t LayersIter, MethodInfo info LayersIter p) => IsLabel t (LayersIter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/LayersIter.hs-boot b/GI/Poppler/Structs/LayersIter.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/LayersIter.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Poppler.Structs.LayersIter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype LayersIter = LayersIter (ForeignPtr LayersIter) -instance BoxedObject LayersIter where -data LayersIterCopyMethodInfo -data LayersIterFreeMethodInfo -data LayersIterGetChildMethodInfo -data LayersIterGetLayerMethodInfo -data LayersIterGetTitleMethodInfo -data LayersIterNextMethodInfo diff --git a/GI/Poppler/Structs/LinkMapping.hs b/GI/Poppler/Structs/LinkMapping.hs deleted file mode 100644 --- a/GI/Poppler/Structs/LinkMapping.hs +++ /dev/null @@ -1,246 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #PopplerLinkMapping structure represents the location -of @action on the page --} - -module GI.Poppler.Structs.LinkMapping - ( - --- * Exported types - LinkMapping(..) , - newZeroLinkMapping , - noLinkMapping , - - - -- * Methods --- ** linkMappingCopy - LinkMappingCopyMethodInfo , - linkMappingCopy , - - --- ** linkMappingFree - LinkMappingFreeMethodInfo , - linkMappingFree , - - --- ** linkMappingNew - linkMappingNew , - - - - - -- * Properties --- ** Action - linkMappingAction , - linkMappingClearAction , - linkMappingReadAction , - linkMappingWriteAction , - - --- ** Area - linkMappingArea , - linkMappingClearArea , - linkMappingReadArea , - linkMappingWriteArea , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype LinkMapping = LinkMapping (ForeignPtr LinkMapping) -foreign import ccall "poppler_link_mapping_get_type" c_poppler_link_mapping_get_type :: - IO GType - -instance BoxedObject LinkMapping where - boxedType _ = c_poppler_link_mapping_get_type - --- | Construct a `LinkMapping` struct initialized to zero. -newZeroLinkMapping :: MonadIO m => m LinkMapping -newZeroLinkMapping = liftIO $ callocBoxedBytes 40 >>= wrapBoxed LinkMapping - -instance tag ~ 'AttrSet => Constructible LinkMapping tag where - new _ attrs = do - o <- newZeroLinkMapping - GI.Attributes.set o attrs - return o - - -noLinkMapping :: Maybe LinkMapping -noLinkMapping = Nothing - -linkMappingReadArea :: MonadIO m => LinkMapping -> m (Maybe Rectangle) -linkMappingReadArea s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr Rectangle) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Rectangle) val' - return val'' - return result - -linkMappingWriteArea :: MonadIO m => LinkMapping -> Ptr Rectangle -> m () -linkMappingWriteArea s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr Rectangle) - -linkMappingClearArea :: MonadIO m => LinkMapping -> m () -linkMappingClearArea s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr Rectangle) - -data LinkMappingAreaFieldInfo -instance AttrInfo LinkMappingAreaFieldInfo where - type AttrAllowedOps LinkMappingAreaFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint LinkMappingAreaFieldInfo = (~) (Ptr Rectangle) - type AttrBaseTypeConstraint LinkMappingAreaFieldInfo = (~) LinkMapping - type AttrGetType LinkMappingAreaFieldInfo = Maybe Rectangle - type AttrLabel LinkMappingAreaFieldInfo = "area" - attrGet _ = linkMappingReadArea - attrSet _ = linkMappingWriteArea - attrConstruct = undefined - attrClear _ = linkMappingClearArea - -linkMappingArea :: AttrLabelProxy "area" -linkMappingArea = AttrLabelProxy - - -linkMappingReadAction :: MonadIO m => LinkMapping -> m (Maybe Action) -linkMappingReadAction s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr Action) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Action) val' - return val'' - return result - -linkMappingWriteAction :: MonadIO m => LinkMapping -> Ptr Action -> m () -linkMappingWriteAction s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr Action) - -linkMappingClearAction :: MonadIO m => LinkMapping -> m () -linkMappingClearAction s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr Action) - -data LinkMappingActionFieldInfo -instance AttrInfo LinkMappingActionFieldInfo where - type AttrAllowedOps LinkMappingActionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint LinkMappingActionFieldInfo = (~) (Ptr Action) - type AttrBaseTypeConstraint LinkMappingActionFieldInfo = (~) LinkMapping - type AttrGetType LinkMappingActionFieldInfo = Maybe Action - type AttrLabel LinkMappingActionFieldInfo = "action" - attrGet _ = linkMappingReadAction - attrSet _ = linkMappingWriteAction - attrConstruct = undefined - attrClear _ = linkMappingClearAction - -linkMappingAction :: AttrLabelProxy "action" -linkMappingAction = AttrLabelProxy - - - -type instance AttributeList LinkMapping = LinkMappingAttributeList -type LinkMappingAttributeList = ('[ '("area", LinkMappingAreaFieldInfo), '("action", LinkMappingActionFieldInfo)] :: [(Symbol, *)]) - --- method LinkMapping::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "LinkMapping") --- throws : False --- Skip return : False - -foreign import ccall "poppler_link_mapping_new" poppler_link_mapping_new :: - IO (Ptr LinkMapping) - - -linkMappingNew :: - (MonadIO m) => - m LinkMapping -- result -linkMappingNew = liftIO $ do - result <- poppler_link_mapping_new - checkUnexpectedReturnNULL "poppler_link_mapping_new" result - result' <- (wrapBoxed LinkMapping) result - return result' - --- method LinkMapping::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LinkMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "LinkMapping") --- throws : False --- Skip return : False - -foreign import ccall "poppler_link_mapping_copy" poppler_link_mapping_copy :: - Ptr LinkMapping -> -- _obj : TInterface "Poppler" "LinkMapping" - IO (Ptr LinkMapping) - - -linkMappingCopy :: - (MonadIO m) => - LinkMapping -- _obj - -> m LinkMapping -- result -linkMappingCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_link_mapping_copy _obj' - checkUnexpectedReturnNULL "poppler_link_mapping_copy" result - result' <- (wrapBoxed LinkMapping) result - touchManagedPtr _obj - return result' - -data LinkMappingCopyMethodInfo -instance (signature ~ (m LinkMapping), MonadIO m) => MethodInfo LinkMappingCopyMethodInfo LinkMapping signature where - overloadedMethod _ = linkMappingCopy - --- method LinkMapping::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "LinkMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_link_mapping_free" poppler_link_mapping_free :: - Ptr LinkMapping -> -- _obj : TInterface "Poppler" "LinkMapping" - IO () - - -linkMappingFree :: - (MonadIO m) => - LinkMapping -- _obj - -> m () -- result -linkMappingFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_link_mapping_free _obj' - touchManagedPtr _obj - return () - -data LinkMappingFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo LinkMappingFreeMethodInfo LinkMapping signature where - overloadedMethod _ = linkMappingFree - -type family ResolveLinkMappingMethod (t :: Symbol) (o :: *) :: * where - ResolveLinkMappingMethod "copy" o = LinkMappingCopyMethodInfo - ResolveLinkMappingMethod "free" o = LinkMappingFreeMethodInfo - ResolveLinkMappingMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveLinkMappingMethod t LinkMapping, MethodInfo info LinkMapping p) => IsLabelProxy t (LinkMapping -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveLinkMappingMethod t LinkMapping, MethodInfo info LinkMapping p) => IsLabel t (LinkMapping -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/LinkMapping.hs-boot b/GI/Poppler/Structs/LinkMapping.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/LinkMapping.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Poppler.Structs.LinkMapping where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype LinkMapping = LinkMapping (ForeignPtr LinkMapping) -instance BoxedObject LinkMapping where -data LinkMappingCopyMethodInfo -data LinkMappingFreeMethodInfo diff --git a/GI/Poppler/Structs/PageTransition.hs b/GI/Poppler/Structs/PageTransition.hs deleted file mode 100644 --- a/GI/Poppler/Structs/PageTransition.hs +++ /dev/null @@ -1,395 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #PopplerPageTransition structures describes a visual transition -to use when moving between pages during a presentation --} - -module GI.Poppler.Structs.PageTransition - ( - --- * Exported types - PageTransition(..) , - newZeroPageTransition , - noPageTransition , - - - -- * Methods --- ** pageTransitionCopy - PageTransitionCopyMethodInfo , - pageTransitionCopy , - - --- ** pageTransitionFree - PageTransitionFreeMethodInfo , - pageTransitionFree , - - --- ** pageTransitionNew - pageTransitionNew , - - - - - -- * Properties --- ** Alignment - pageTransitionAlignment , - pageTransitionReadAlignment , - pageTransitionWriteAlignment , - - --- ** Angle - pageTransitionAngle , - pageTransitionReadAngle , - pageTransitionWriteAngle , - - --- ** Direction - pageTransitionDirection , - pageTransitionReadDirection , - pageTransitionWriteDirection , - - --- ** Duration - pageTransitionDuration , - pageTransitionReadDuration , - pageTransitionWriteDuration , - - --- ** Rectangular - pageTransitionReadRectangular , - pageTransitionRectangular , - pageTransitionWriteRectangular , - - --- ** Scale - pageTransitionReadScale , - pageTransitionScale , - pageTransitionWriteScale , - - --- ** Type - pageTransitionReadType , - pageTransitionType , - pageTransitionWriteType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype PageTransition = PageTransition (ForeignPtr PageTransition) -foreign import ccall "poppler_page_transition_get_type" c_poppler_page_transition_get_type :: - IO GType - -instance BoxedObject PageTransition where - boxedType _ = c_poppler_page_transition_get_type - --- | Construct a `PageTransition` struct initialized to zero. -newZeroPageTransition :: MonadIO m => m PageTransition -newZeroPageTransition = liftIO $ callocBoxedBytes 40 >>= wrapBoxed PageTransition - -instance tag ~ 'AttrSet => Constructible PageTransition tag where - new _ attrs = do - o <- newZeroPageTransition - GI.Attributes.set o attrs - return o - - -noPageTransition :: Maybe PageTransition -noPageTransition = Nothing - -pageTransitionReadType :: MonadIO m => PageTransition -> m PageTransitionType -pageTransitionReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -pageTransitionWriteType :: MonadIO m => PageTransition -> PageTransitionType -> m () -pageTransitionWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data PageTransitionTypeFieldInfo -instance AttrInfo PageTransitionTypeFieldInfo where - type AttrAllowedOps PageTransitionTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PageTransitionTypeFieldInfo = (~) PageTransitionType - type AttrBaseTypeConstraint PageTransitionTypeFieldInfo = (~) PageTransition - type AttrGetType PageTransitionTypeFieldInfo = PageTransitionType - type AttrLabel PageTransitionTypeFieldInfo = "type" - attrGet _ = pageTransitionReadType - attrSet _ = pageTransitionWriteType - attrConstruct = undefined - attrClear _ = undefined - -pageTransitionType :: AttrLabelProxy "type" -pageTransitionType = AttrLabelProxy - - -pageTransitionReadAlignment :: MonadIO m => PageTransition -> m PageTransitionAlignment -pageTransitionReadAlignment s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -pageTransitionWriteAlignment :: MonadIO m => PageTransition -> PageTransitionAlignment -> m () -pageTransitionWriteAlignment s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 4) (val' :: CUInt) - -data PageTransitionAlignmentFieldInfo -instance AttrInfo PageTransitionAlignmentFieldInfo where - type AttrAllowedOps PageTransitionAlignmentFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PageTransitionAlignmentFieldInfo = (~) PageTransitionAlignment - type AttrBaseTypeConstraint PageTransitionAlignmentFieldInfo = (~) PageTransition - type AttrGetType PageTransitionAlignmentFieldInfo = PageTransitionAlignment - type AttrLabel PageTransitionAlignmentFieldInfo = "alignment" - attrGet _ = pageTransitionReadAlignment - attrSet _ = pageTransitionWriteAlignment - attrConstruct = undefined - attrClear _ = undefined - -pageTransitionAlignment :: AttrLabelProxy "alignment" -pageTransitionAlignment = AttrLabelProxy - - -pageTransitionReadDirection :: MonadIO m => PageTransition -> m PageTransitionDirection -pageTransitionReadDirection s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -pageTransitionWriteDirection :: MonadIO m => PageTransition -> PageTransitionDirection -> m () -pageTransitionWriteDirection s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 8) (val' :: CUInt) - -data PageTransitionDirectionFieldInfo -instance AttrInfo PageTransitionDirectionFieldInfo where - type AttrAllowedOps PageTransitionDirectionFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PageTransitionDirectionFieldInfo = (~) PageTransitionDirection - type AttrBaseTypeConstraint PageTransitionDirectionFieldInfo = (~) PageTransition - type AttrGetType PageTransitionDirectionFieldInfo = PageTransitionDirection - type AttrLabel PageTransitionDirectionFieldInfo = "direction" - attrGet _ = pageTransitionReadDirection - attrSet _ = pageTransitionWriteDirection - attrConstruct = undefined - attrClear _ = undefined - -pageTransitionDirection :: AttrLabelProxy "direction" -pageTransitionDirection = AttrLabelProxy - - -pageTransitionReadDuration :: MonadIO m => PageTransition -> m Int32 -pageTransitionReadDuration s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - -pageTransitionWriteDuration :: MonadIO m => PageTransition -> Int32 -> m () -pageTransitionWriteDuration s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Int32) - -data PageTransitionDurationFieldInfo -instance AttrInfo PageTransitionDurationFieldInfo where - type AttrAllowedOps PageTransitionDurationFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PageTransitionDurationFieldInfo = (~) Int32 - type AttrBaseTypeConstraint PageTransitionDurationFieldInfo = (~) PageTransition - type AttrGetType PageTransitionDurationFieldInfo = Int32 - type AttrLabel PageTransitionDurationFieldInfo = "duration" - attrGet _ = pageTransitionReadDuration - attrSet _ = pageTransitionWriteDuration - attrConstruct = undefined - attrClear _ = undefined - -pageTransitionDuration :: AttrLabelProxy "duration" -pageTransitionDuration = AttrLabelProxy - - -pageTransitionReadAngle :: MonadIO m => PageTransition -> m Int32 -pageTransitionReadAngle s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int32 - return val - -pageTransitionWriteAngle :: MonadIO m => PageTransition -> Int32 -> m () -pageTransitionWriteAngle s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int32) - -data PageTransitionAngleFieldInfo -instance AttrInfo PageTransitionAngleFieldInfo where - type AttrAllowedOps PageTransitionAngleFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PageTransitionAngleFieldInfo = (~) Int32 - type AttrBaseTypeConstraint PageTransitionAngleFieldInfo = (~) PageTransition - type AttrGetType PageTransitionAngleFieldInfo = Int32 - type AttrLabel PageTransitionAngleFieldInfo = "angle" - attrGet _ = pageTransitionReadAngle - attrSet _ = pageTransitionWriteAngle - attrConstruct = undefined - attrClear _ = undefined - -pageTransitionAngle :: AttrLabelProxy "angle" -pageTransitionAngle = AttrLabelProxy - - -pageTransitionReadScale :: MonadIO m => PageTransition -> m Double -pageTransitionReadScale s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CDouble - let val' = realToFrac val - return val' - -pageTransitionWriteScale :: MonadIO m => PageTransition -> Double -> m () -pageTransitionWriteScale s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 24) (val' :: CDouble) - -data PageTransitionScaleFieldInfo -instance AttrInfo PageTransitionScaleFieldInfo where - type AttrAllowedOps PageTransitionScaleFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PageTransitionScaleFieldInfo = (~) Double - type AttrBaseTypeConstraint PageTransitionScaleFieldInfo = (~) PageTransition - type AttrGetType PageTransitionScaleFieldInfo = Double - type AttrLabel PageTransitionScaleFieldInfo = "scale" - attrGet _ = pageTransitionReadScale - attrSet _ = pageTransitionWriteScale - attrConstruct = undefined - attrClear _ = undefined - -pageTransitionScale :: AttrLabelProxy "scale" -pageTransitionScale = AttrLabelProxy - - -pageTransitionReadRectangular :: MonadIO m => PageTransition -> m Bool -pageTransitionReadRectangular s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO CInt - let val' = (/= 0) val - return val' - -pageTransitionWriteRectangular :: MonadIO m => PageTransition -> Bool -> m () -pageTransitionWriteRectangular s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 32) (val' :: CInt) - -data PageTransitionRectangularFieldInfo -instance AttrInfo PageTransitionRectangularFieldInfo where - type AttrAllowedOps PageTransitionRectangularFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PageTransitionRectangularFieldInfo = (~) Bool - type AttrBaseTypeConstraint PageTransitionRectangularFieldInfo = (~) PageTransition - type AttrGetType PageTransitionRectangularFieldInfo = Bool - type AttrLabel PageTransitionRectangularFieldInfo = "rectangular" - attrGet _ = pageTransitionReadRectangular - attrSet _ = pageTransitionWriteRectangular - attrConstruct = undefined - attrClear _ = undefined - -pageTransitionRectangular :: AttrLabelProxy "rectangular" -pageTransitionRectangular = AttrLabelProxy - - - -type instance AttributeList PageTransition = PageTransitionAttributeList -type PageTransitionAttributeList = ('[ '("type", PageTransitionTypeFieldInfo), '("alignment", PageTransitionAlignmentFieldInfo), '("direction", PageTransitionDirectionFieldInfo), '("duration", PageTransitionDurationFieldInfo), '("angle", PageTransitionAngleFieldInfo), '("scale", PageTransitionScaleFieldInfo), '("rectangular", PageTransitionRectangularFieldInfo)] :: [(Symbol, *)]) - --- method PageTransition::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "PageTransition") --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_transition_new" poppler_page_transition_new :: - IO (Ptr PageTransition) - - -pageTransitionNew :: - (MonadIO m) => - m PageTransition -- result -pageTransitionNew = liftIO $ do - result <- poppler_page_transition_new - checkUnexpectedReturnNULL "poppler_page_transition_new" result - result' <- (wrapBoxed PageTransition) result - return result' - --- method PageTransition::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "PageTransition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "PageTransition") --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_transition_copy" poppler_page_transition_copy :: - Ptr PageTransition -> -- _obj : TInterface "Poppler" "PageTransition" - IO (Ptr PageTransition) - - -pageTransitionCopy :: - (MonadIO m) => - PageTransition -- _obj - -> m PageTransition -- result -pageTransitionCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_page_transition_copy _obj' - checkUnexpectedReturnNULL "poppler_page_transition_copy" result - result' <- (wrapBoxed PageTransition) result - touchManagedPtr _obj - return result' - -data PageTransitionCopyMethodInfo -instance (signature ~ (m PageTransition), MonadIO m) => MethodInfo PageTransitionCopyMethodInfo PageTransition signature where - overloadedMethod _ = pageTransitionCopy - --- method PageTransition::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "PageTransition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_page_transition_free" poppler_page_transition_free :: - Ptr PageTransition -> -- _obj : TInterface "Poppler" "PageTransition" - IO () - - -pageTransitionFree :: - (MonadIO m) => - PageTransition -- _obj - -> m () -- result -pageTransitionFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_page_transition_free _obj' - touchManagedPtr _obj - return () - -data PageTransitionFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo PageTransitionFreeMethodInfo PageTransition signature where - overloadedMethod _ = pageTransitionFree - -type family ResolvePageTransitionMethod (t :: Symbol) (o :: *) :: * where - ResolvePageTransitionMethod "copy" o = PageTransitionCopyMethodInfo - ResolvePageTransitionMethod "free" o = PageTransitionFreeMethodInfo - ResolvePageTransitionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePageTransitionMethod t PageTransition, MethodInfo info PageTransition p) => IsLabelProxy t (PageTransition -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePageTransitionMethod t PageTransition, MethodInfo info PageTransition p) => IsLabel t (PageTransition -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/PageTransition.hs-boot b/GI/Poppler/Structs/PageTransition.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/PageTransition.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Poppler.Structs.PageTransition where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PageTransition = PageTransition (ForeignPtr PageTransition) -instance BoxedObject PageTransition where -data PageTransitionCopyMethodInfo -data PageTransitionFreeMethodInfo diff --git a/GI/Poppler/Structs/Point.hs b/GI/Poppler/Structs/Point.hs deleted file mode 100644 --- a/GI/Poppler/Structs/Point.hs +++ /dev/null @@ -1,233 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #PopplerPoint is used to describe a location point on a page --} - -module GI.Poppler.Structs.Point - ( - --- * Exported types - Point(..) , - newZeroPoint , - noPoint , - - - -- * Methods --- ** pointCopy - PointCopyMethodInfo , - pointCopy , - - --- ** pointFree - PointFreeMethodInfo , - pointFree , - - --- ** pointNew - pointNew , - - - - - -- * Properties --- ** X - pointReadX , - pointWriteX , - pointX , - - --- ** Y - pointReadY , - pointWriteY , - pointY , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype Point = Point (ForeignPtr Point) -foreign import ccall "poppler_point_get_type" c_poppler_point_get_type :: - IO GType - -instance BoxedObject Point where - boxedType _ = c_poppler_point_get_type - --- | Construct a `Point` struct initialized to zero. -newZeroPoint :: MonadIO m => m Point -newZeroPoint = liftIO $ callocBoxedBytes 16 >>= wrapBoxed Point - -instance tag ~ 'AttrSet => Constructible Point tag where - new _ attrs = do - o <- newZeroPoint - GI.Attributes.set o attrs - return o - - -noPoint :: Maybe Point -noPoint = Nothing - -pointReadX :: MonadIO m => Point -> m Double -pointReadX s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CDouble - let val' = realToFrac val - return val' - -pointWriteX :: MonadIO m => Point -> Double -> m () -pointWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 0) (val' :: CDouble) - -data PointXFieldInfo -instance AttrInfo PointXFieldInfo where - type AttrAllowedOps PointXFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PointXFieldInfo = (~) Double - type AttrBaseTypeConstraint PointXFieldInfo = (~) Point - type AttrGetType PointXFieldInfo = Double - type AttrLabel PointXFieldInfo = "x" - attrGet _ = pointReadX - attrSet _ = pointWriteX - attrConstruct = undefined - attrClear _ = undefined - -pointX :: AttrLabelProxy "x" -pointX = AttrLabelProxy - - -pointReadY :: MonadIO m => Point -> m Double -pointReadY s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CDouble - let val' = realToFrac val - return val' - -pointWriteY :: MonadIO m => Point -> Double -> m () -pointWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 8) (val' :: CDouble) - -data PointYFieldInfo -instance AttrInfo PointYFieldInfo where - type AttrAllowedOps PointYFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint PointYFieldInfo = (~) Double - type AttrBaseTypeConstraint PointYFieldInfo = (~) Point - type AttrGetType PointYFieldInfo = Double - type AttrLabel PointYFieldInfo = "y" - attrGet _ = pointReadY - attrSet _ = pointWriteY - attrConstruct = undefined - attrClear _ = undefined - -pointY :: AttrLabelProxy "y" -pointY = AttrLabelProxy - - - -type instance AttributeList Point = PointAttributeList -type PointAttributeList = ('[ '("x", PointXFieldInfo), '("y", PointYFieldInfo)] :: [(Symbol, *)]) - --- method Point::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Point") --- throws : False --- Skip return : False - -foreign import ccall "poppler_point_new" poppler_point_new :: - IO (Ptr Point) - - -pointNew :: - (MonadIO m) => - m Point -- result -pointNew = liftIO $ do - result <- poppler_point_new - checkUnexpectedReturnNULL "poppler_point_new" result - result' <- (wrapBoxed Point) result - return result' - --- method Point::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Point") --- throws : False --- Skip return : False - -foreign import ccall "poppler_point_copy" poppler_point_copy :: - Ptr Point -> -- _obj : TInterface "Poppler" "Point" - IO (Ptr Point) - - -pointCopy :: - (MonadIO m) => - Point -- _obj - -> m Point -- result -pointCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_point_copy _obj' - checkUnexpectedReturnNULL "poppler_point_copy" result - result' <- (wrapBoxed Point) result - touchManagedPtr _obj - return result' - -data PointCopyMethodInfo -instance (signature ~ (m Point), MonadIO m) => MethodInfo PointCopyMethodInfo Point signature where - overloadedMethod _ = pointCopy - --- method Point::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Point", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_point_free" poppler_point_free :: - Ptr Point -> -- _obj : TInterface "Poppler" "Point" - IO () - - -pointFree :: - (MonadIO m) => - Point -- _obj - -> m () -- result -pointFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_point_free _obj' - touchManagedPtr _obj - return () - -data PointFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo PointFreeMethodInfo Point signature where - overloadedMethod _ = pointFree - -type family ResolvePointMethod (t :: Symbol) (o :: *) :: * where - ResolvePointMethod "copy" o = PointCopyMethodInfo - ResolvePointMethod "free" o = PointFreeMethodInfo - ResolvePointMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePointMethod t Point, MethodInfo info Point p) => IsLabelProxy t (Point -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePointMethod t Point, MethodInfo info Point p) => IsLabel t (Point -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/Point.hs-boot b/GI/Poppler/Structs/Point.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/Point.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Poppler.Structs.Point where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Point = Point (ForeignPtr Point) -instance BoxedObject Point where -data PointCopyMethodInfo -data PointFreeMethodInfo diff --git a/GI/Poppler/Structs/Quadrilateral.hs b/GI/Poppler/Structs/Quadrilateral.hs deleted file mode 100644 --- a/GI/Poppler/Structs/Quadrilateral.hs +++ /dev/null @@ -1,326 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #PopplerQuadrilateral is used to describe rectangle-like polygon - with arbitrary inclination on a page. - - Since: 0.26 --} - -module GI.Poppler.Structs.Quadrilateral - ( - --- * Exported types - Quadrilateral(..) , - newZeroQuadrilateral , - noQuadrilateral , - - - -- * Methods --- ** quadrilateralCopy - QuadrilateralCopyMethodInfo , - quadrilateralCopy , - - --- ** quadrilateralFree - QuadrilateralFreeMethodInfo , - quadrilateralFree , - - --- ** quadrilateralNew - quadrilateralNew , - - - - - -- * Properties --- ** P1 - quadrilateralClearP1 , - quadrilateralP1 , - quadrilateralReadP1 , - quadrilateralWriteP1 , - - --- ** P2 - quadrilateralClearP2 , - quadrilateralP2 , - quadrilateralReadP2 , - quadrilateralWriteP2 , - - --- ** P3 - quadrilateralClearP3 , - quadrilateralP3 , - quadrilateralReadP3 , - quadrilateralWriteP3 , - - --- ** P4 - quadrilateralClearP4 , - quadrilateralP4 , - quadrilateralReadP4 , - quadrilateralWriteP4 , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype Quadrilateral = Quadrilateral (ForeignPtr Quadrilateral) -foreign import ccall "poppler_quadrilateral_get_type" c_poppler_quadrilateral_get_type :: - IO GType - -instance BoxedObject Quadrilateral where - boxedType _ = c_poppler_quadrilateral_get_type - --- | Construct a `Quadrilateral` struct initialized to zero. -newZeroQuadrilateral :: MonadIO m => m Quadrilateral -newZeroQuadrilateral = liftIO $ callocBoxedBytes 64 >>= wrapBoxed Quadrilateral - -instance tag ~ 'AttrSet => Constructible Quadrilateral tag where - new _ attrs = do - o <- newZeroQuadrilateral - GI.Attributes.set o attrs - return o - - -noQuadrilateral :: Maybe Quadrilateral -noQuadrilateral = Nothing - -quadrilateralReadP1 :: MonadIO m => Quadrilateral -> m (Maybe Point) -quadrilateralReadP1 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr Point) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Point) val' - return val'' - return result - -quadrilateralWriteP1 :: MonadIO m => Quadrilateral -> Ptr Point -> m () -quadrilateralWriteP1 s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr Point) - -quadrilateralClearP1 :: MonadIO m => Quadrilateral -> m () -quadrilateralClearP1 s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr Point) - -data QuadrilateralP1FieldInfo -instance AttrInfo QuadrilateralP1FieldInfo where - type AttrAllowedOps QuadrilateralP1FieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint QuadrilateralP1FieldInfo = (~) (Ptr Point) - type AttrBaseTypeConstraint QuadrilateralP1FieldInfo = (~) Quadrilateral - type AttrGetType QuadrilateralP1FieldInfo = Maybe Point - type AttrLabel QuadrilateralP1FieldInfo = "p1" - attrGet _ = quadrilateralReadP1 - attrSet _ = quadrilateralWriteP1 - attrConstruct = undefined - attrClear _ = quadrilateralClearP1 - -quadrilateralP1 :: AttrLabelProxy "p1" -quadrilateralP1 = AttrLabelProxy - - -quadrilateralReadP2 :: MonadIO m => Quadrilateral -> m (Maybe Point) -quadrilateralReadP2 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr Point) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Point) val' - return val'' - return result - -quadrilateralWriteP2 :: MonadIO m => Quadrilateral -> Ptr Point -> m () -quadrilateralWriteP2 s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Ptr Point) - -quadrilateralClearP2 :: MonadIO m => Quadrilateral -> m () -quadrilateralClearP2 s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: Ptr Point) - -data QuadrilateralP2FieldInfo -instance AttrInfo QuadrilateralP2FieldInfo where - type AttrAllowedOps QuadrilateralP2FieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint QuadrilateralP2FieldInfo = (~) (Ptr Point) - type AttrBaseTypeConstraint QuadrilateralP2FieldInfo = (~) Quadrilateral - type AttrGetType QuadrilateralP2FieldInfo = Maybe Point - type AttrLabel QuadrilateralP2FieldInfo = "p2" - attrGet _ = quadrilateralReadP2 - attrSet _ = quadrilateralWriteP2 - attrConstruct = undefined - attrClear _ = quadrilateralClearP2 - -quadrilateralP2 :: AttrLabelProxy "p2" -quadrilateralP2 = AttrLabelProxy - - -quadrilateralReadP3 :: MonadIO m => Quadrilateral -> m (Maybe Point) -quadrilateralReadP3 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr Point) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Point) val' - return val'' - return result - -quadrilateralWriteP3 :: MonadIO m => Quadrilateral -> Ptr Point -> m () -quadrilateralWriteP3 s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr Point) - -quadrilateralClearP3 :: MonadIO m => Quadrilateral -> m () -quadrilateralClearP3 s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr Point) - -data QuadrilateralP3FieldInfo -instance AttrInfo QuadrilateralP3FieldInfo where - type AttrAllowedOps QuadrilateralP3FieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint QuadrilateralP3FieldInfo = (~) (Ptr Point) - type AttrBaseTypeConstraint QuadrilateralP3FieldInfo = (~) Quadrilateral - type AttrGetType QuadrilateralP3FieldInfo = Maybe Point - type AttrLabel QuadrilateralP3FieldInfo = "p3" - attrGet _ = quadrilateralReadP3 - attrSet _ = quadrilateralWriteP3 - attrConstruct = undefined - attrClear _ = quadrilateralClearP3 - -quadrilateralP3 :: AttrLabelProxy "p3" -quadrilateralP3 = AttrLabelProxy - - -quadrilateralReadP4 :: MonadIO m => Quadrilateral -> m (Maybe Point) -quadrilateralReadP4 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO (Ptr Point) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Point) val' - return val'' - return result - -quadrilateralWriteP4 :: MonadIO m => Quadrilateral -> Ptr Point -> m () -quadrilateralWriteP4 s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (val :: Ptr Point) - -quadrilateralClearP4 :: MonadIO m => Quadrilateral -> m () -quadrilateralClearP4 s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (nullPtr :: Ptr Point) - -data QuadrilateralP4FieldInfo -instance AttrInfo QuadrilateralP4FieldInfo where - type AttrAllowedOps QuadrilateralP4FieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint QuadrilateralP4FieldInfo = (~) (Ptr Point) - type AttrBaseTypeConstraint QuadrilateralP4FieldInfo = (~) Quadrilateral - type AttrGetType QuadrilateralP4FieldInfo = Maybe Point - type AttrLabel QuadrilateralP4FieldInfo = "p4" - attrGet _ = quadrilateralReadP4 - attrSet _ = quadrilateralWriteP4 - attrConstruct = undefined - attrClear _ = quadrilateralClearP4 - -quadrilateralP4 :: AttrLabelProxy "p4" -quadrilateralP4 = AttrLabelProxy - - - -type instance AttributeList Quadrilateral = QuadrilateralAttributeList -type QuadrilateralAttributeList = ('[ '("p1", QuadrilateralP1FieldInfo), '("p2", QuadrilateralP2FieldInfo), '("p3", QuadrilateralP3FieldInfo), '("p4", QuadrilateralP4FieldInfo)] :: [(Symbol, *)]) - --- method Quadrilateral::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Quadrilateral") --- throws : False --- Skip return : False - -foreign import ccall "poppler_quadrilateral_new" poppler_quadrilateral_new :: - IO (Ptr Quadrilateral) - - -quadrilateralNew :: - (MonadIO m) => - m Quadrilateral -- result -quadrilateralNew = liftIO $ do - result <- poppler_quadrilateral_new - checkUnexpectedReturnNULL "poppler_quadrilateral_new" result - result' <- (wrapBoxed Quadrilateral) result - return result' - --- method Quadrilateral::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Quadrilateral", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Quadrilateral") --- throws : False --- Skip return : False - -foreign import ccall "poppler_quadrilateral_copy" poppler_quadrilateral_copy :: - Ptr Quadrilateral -> -- _obj : TInterface "Poppler" "Quadrilateral" - IO (Ptr Quadrilateral) - - -quadrilateralCopy :: - (MonadIO m) => - Quadrilateral -- _obj - -> m Quadrilateral -- result -quadrilateralCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_quadrilateral_copy _obj' - checkUnexpectedReturnNULL "poppler_quadrilateral_copy" result - result' <- (wrapBoxed Quadrilateral) result - touchManagedPtr _obj - return result' - -data QuadrilateralCopyMethodInfo -instance (signature ~ (m Quadrilateral), MonadIO m) => MethodInfo QuadrilateralCopyMethodInfo Quadrilateral signature where - overloadedMethod _ = quadrilateralCopy - --- method Quadrilateral::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Quadrilateral", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_quadrilateral_free" poppler_quadrilateral_free :: - Ptr Quadrilateral -> -- _obj : TInterface "Poppler" "Quadrilateral" - IO () - - -quadrilateralFree :: - (MonadIO m) => - Quadrilateral -- _obj - -> m () -- result -quadrilateralFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_quadrilateral_free _obj' - touchManagedPtr _obj - return () - -data QuadrilateralFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo QuadrilateralFreeMethodInfo Quadrilateral signature where - overloadedMethod _ = quadrilateralFree - -type family ResolveQuadrilateralMethod (t :: Symbol) (o :: *) :: * where - ResolveQuadrilateralMethod "copy" o = QuadrilateralCopyMethodInfo - ResolveQuadrilateralMethod "free" o = QuadrilateralFreeMethodInfo - ResolveQuadrilateralMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveQuadrilateralMethod t Quadrilateral, MethodInfo info Quadrilateral p) => IsLabelProxy t (Quadrilateral -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveQuadrilateralMethod t Quadrilateral, MethodInfo info Quadrilateral p) => IsLabel t (Quadrilateral -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/Quadrilateral.hs-boot b/GI/Poppler/Structs/Quadrilateral.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/Quadrilateral.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Poppler.Structs.Quadrilateral where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Quadrilateral = Quadrilateral (ForeignPtr Quadrilateral) -instance BoxedObject Quadrilateral where -data QuadrilateralCopyMethodInfo -data QuadrilateralFreeMethodInfo diff --git a/GI/Poppler/Structs/Rectangle.hs b/GI/Poppler/Structs/Rectangle.hs deleted file mode 100644 --- a/GI/Poppler/Structs/Rectangle.hs +++ /dev/null @@ -1,300 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #PopplerRectangle is used to describe -locations on a page and bounding boxes --} - -module GI.Poppler.Structs.Rectangle - ( - --- * Exported types - Rectangle(..) , - newZeroRectangle , - noRectangle , - - - -- * Methods --- ** rectangleCopy - RectangleCopyMethodInfo , - rectangleCopy , - - --- ** rectangleFree - RectangleFreeMethodInfo , - rectangleFree , - - --- ** rectangleNew - rectangleNew , - - - - - -- * Properties --- ** X1 - rectangleReadX1 , - rectangleWriteX1 , - rectangleX1 , - - --- ** X2 - rectangleReadX2 , - rectangleWriteX2 , - rectangleX2 , - - --- ** Y1 - rectangleReadY1 , - rectangleWriteY1 , - rectangleY1 , - - --- ** Y2 - rectangleReadY2 , - rectangleWriteY2 , - rectangleY2 , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype Rectangle = Rectangle (ForeignPtr Rectangle) -foreign import ccall "poppler_rectangle_get_type" c_poppler_rectangle_get_type :: - IO GType - -instance BoxedObject Rectangle where - boxedType _ = c_poppler_rectangle_get_type - --- | Construct a `Rectangle` struct initialized to zero. -newZeroRectangle :: MonadIO m => m Rectangle -newZeroRectangle = liftIO $ callocBoxedBytes 32 >>= wrapBoxed Rectangle - -instance tag ~ 'AttrSet => Constructible Rectangle tag where - new _ attrs = do - o <- newZeroRectangle - GI.Attributes.set o attrs - return o - - -noRectangle :: Maybe Rectangle -noRectangle = Nothing - -rectangleReadX1 :: MonadIO m => Rectangle -> m Double -rectangleReadX1 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CDouble - let val' = realToFrac val - return val' - -rectangleWriteX1 :: MonadIO m => Rectangle -> Double -> m () -rectangleWriteX1 s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 0) (val' :: CDouble) - -data RectangleX1FieldInfo -instance AttrInfo RectangleX1FieldInfo where - type AttrAllowedOps RectangleX1FieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RectangleX1FieldInfo = (~) Double - type AttrBaseTypeConstraint RectangleX1FieldInfo = (~) Rectangle - type AttrGetType RectangleX1FieldInfo = Double - type AttrLabel RectangleX1FieldInfo = "x1" - attrGet _ = rectangleReadX1 - attrSet _ = rectangleWriteX1 - attrConstruct = undefined - attrClear _ = undefined - -rectangleX1 :: AttrLabelProxy "x1" -rectangleX1 = AttrLabelProxy - - -rectangleReadY1 :: MonadIO m => Rectangle -> m Double -rectangleReadY1 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CDouble - let val' = realToFrac val - return val' - -rectangleWriteY1 :: MonadIO m => Rectangle -> Double -> m () -rectangleWriteY1 s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 8) (val' :: CDouble) - -data RectangleY1FieldInfo -instance AttrInfo RectangleY1FieldInfo where - type AttrAllowedOps RectangleY1FieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RectangleY1FieldInfo = (~) Double - type AttrBaseTypeConstraint RectangleY1FieldInfo = (~) Rectangle - type AttrGetType RectangleY1FieldInfo = Double - type AttrLabel RectangleY1FieldInfo = "y1" - attrGet _ = rectangleReadY1 - attrSet _ = rectangleWriteY1 - attrConstruct = undefined - attrClear _ = undefined - -rectangleY1 :: AttrLabelProxy "y1" -rectangleY1 = AttrLabelProxy - - -rectangleReadX2 :: MonadIO m => Rectangle -> m Double -rectangleReadX2 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CDouble - let val' = realToFrac val - return val' - -rectangleWriteX2 :: MonadIO m => Rectangle -> Double -> m () -rectangleWriteX2 s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 16) (val' :: CDouble) - -data RectangleX2FieldInfo -instance AttrInfo RectangleX2FieldInfo where - type AttrAllowedOps RectangleX2FieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RectangleX2FieldInfo = (~) Double - type AttrBaseTypeConstraint RectangleX2FieldInfo = (~) Rectangle - type AttrGetType RectangleX2FieldInfo = Double - type AttrLabel RectangleX2FieldInfo = "x2" - attrGet _ = rectangleReadX2 - attrSet _ = rectangleWriteX2 - attrConstruct = undefined - attrClear _ = undefined - -rectangleX2 :: AttrLabelProxy "x2" -rectangleX2 = AttrLabelProxy - - -rectangleReadY2 :: MonadIO m => Rectangle -> m Double -rectangleReadY2 s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CDouble - let val' = realToFrac val - return val' - -rectangleWriteY2 :: MonadIO m => Rectangle -> Double -> m () -rectangleWriteY2 s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 24) (val' :: CDouble) - -data RectangleY2FieldInfo -instance AttrInfo RectangleY2FieldInfo where - type AttrAllowedOps RectangleY2FieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RectangleY2FieldInfo = (~) Double - type AttrBaseTypeConstraint RectangleY2FieldInfo = (~) Rectangle - type AttrGetType RectangleY2FieldInfo = Double - type AttrLabel RectangleY2FieldInfo = "y2" - attrGet _ = rectangleReadY2 - attrSet _ = rectangleWriteY2 - attrConstruct = undefined - attrClear _ = undefined - -rectangleY2 :: AttrLabelProxy "y2" -rectangleY2 = AttrLabelProxy - - - -type instance AttributeList Rectangle = RectangleAttributeList -type RectangleAttributeList = ('[ '("x1", RectangleX1FieldInfo), '("y1", RectangleY1FieldInfo), '("x2", RectangleX2FieldInfo), '("y2", RectangleY2FieldInfo)] :: [(Symbol, *)]) - --- method Rectangle::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Rectangle") --- throws : False --- Skip return : False - -foreign import ccall "poppler_rectangle_new" poppler_rectangle_new :: - IO (Ptr Rectangle) - - -rectangleNew :: - (MonadIO m) => - m Rectangle -- result -rectangleNew = liftIO $ do - result <- poppler_rectangle_new - checkUnexpectedReturnNULL "poppler_rectangle_new" result - result' <- (wrapBoxed Rectangle) result - return result' - --- method Rectangle::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Rectangle") --- throws : False --- Skip return : False - -foreign import ccall "poppler_rectangle_copy" poppler_rectangle_copy :: - Ptr Rectangle -> -- _obj : TInterface "Poppler" "Rectangle" - IO (Ptr Rectangle) - - -rectangleCopy :: - (MonadIO m) => - Rectangle -- _obj - -> m Rectangle -- result -rectangleCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_rectangle_copy _obj' - checkUnexpectedReturnNULL "poppler_rectangle_copy" result - result' <- (wrapBoxed Rectangle) result - touchManagedPtr _obj - return result' - -data RectangleCopyMethodInfo -instance (signature ~ (m Rectangle), MonadIO m) => MethodInfo RectangleCopyMethodInfo Rectangle signature where - overloadedMethod _ = rectangleCopy - --- method Rectangle::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_rectangle_free" poppler_rectangle_free :: - Ptr Rectangle -> -- _obj : TInterface "Poppler" "Rectangle" - IO () - - -rectangleFree :: - (MonadIO m) => - Rectangle -- _obj - -> m () -- result -rectangleFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_rectangle_free _obj' - touchManagedPtr _obj - return () - -data RectangleFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo RectangleFreeMethodInfo Rectangle signature where - overloadedMethod _ = rectangleFree - -type family ResolveRectangleMethod (t :: Symbol) (o :: *) :: * where - ResolveRectangleMethod "copy" o = RectangleCopyMethodInfo - ResolveRectangleMethod "free" o = RectangleFreeMethodInfo - ResolveRectangleMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRectangleMethod t Rectangle, MethodInfo info Rectangle p) => IsLabelProxy t (Rectangle -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRectangleMethod t Rectangle, MethodInfo info Rectangle p) => IsLabel t (Rectangle -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/Rectangle.hs-boot b/GI/Poppler/Structs/Rectangle.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/Rectangle.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Poppler.Structs.Rectangle where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Rectangle = Rectangle (ForeignPtr Rectangle) -instance BoxedObject Rectangle where -data RectangleCopyMethodInfo -data RectangleFreeMethodInfo diff --git a/GI/Poppler/Structs/StructureElementIter.hs b/GI/Poppler/Structs/StructureElementIter.hs deleted file mode 100644 --- a/GI/Poppler/Structs/StructureElementIter.hs +++ /dev/null @@ -1,258 +0,0 @@ - - -{- | -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.Structs.StructureElementIter - ( - --- * Exported types - StructureElementIter(..) , - noStructureElementIter , - - - -- * Methods --- ** structureElementIterCopy - StructureElementIterCopyMethodInfo , - structureElementIterCopy , - - --- ** structureElementIterFree - StructureElementIterFreeMethodInfo , - structureElementIterFree , - - --- ** structureElementIterGetChild - StructureElementIterGetChildMethodInfo , - structureElementIterGetChild , - - --- ** structureElementIterGetElement - StructureElementIterGetElementMethodInfo, - structureElementIterGetElement , - - --- ** structureElementIterNew - structureElementIterNew , - - --- ** structureElementIterNext - StructureElementIterNextMethodInfo , - structureElementIterNext , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype StructureElementIter = StructureElementIter (ForeignPtr StructureElementIter) -foreign import ccall "poppler_structure_element_iter_get_type" c_poppler_structure_element_iter_get_type :: - IO GType - -instance BoxedObject StructureElementIter where - boxedType _ = c_poppler_structure_element_iter_get_type - -noStructureElementIter :: Maybe StructureElementIter -noStructureElementIter = Nothing - - -type instance AttributeList StructureElementIter = StructureElementIterAttributeList -type StructureElementIterAttributeList = ('[ ] :: [(Symbol, *)]) - --- method StructureElementIter::new --- method type : Constructor --- Args : [Arg {argCName = "poppler_document", argType = TInterface "Poppler" "Document", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "StructureElementIter") --- throws : False --- Skip return : False - -foreign import ccall "poppler_structure_element_iter_new" poppler_structure_element_iter_new :: - Ptr Document -> -- poppler_document : TInterface "Poppler" "Document" - IO (Ptr StructureElementIter) - - -structureElementIterNew :: - (MonadIO m, DocumentK a) => - a -- popplerDocument - -> m StructureElementIter -- result -structureElementIterNew popplerDocument = liftIO $ do - let popplerDocument' = unsafeManagedPtrCastPtr popplerDocument - result <- poppler_structure_element_iter_new popplerDocument' - checkUnexpectedReturnNULL "poppler_structure_element_iter_new" result - result' <- (wrapBoxed StructureElementIter) result - touchManagedPtr popplerDocument - return result' - --- method StructureElementIter::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElementIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "StructureElementIter") --- throws : False --- Skip return : False - -foreign import ccall "poppler_structure_element_iter_copy" poppler_structure_element_iter_copy :: - Ptr StructureElementIter -> -- _obj : TInterface "Poppler" "StructureElementIter" - IO (Ptr StructureElementIter) - - -structureElementIterCopy :: - (MonadIO m) => - StructureElementIter -- _obj - -> m StructureElementIter -- result -structureElementIterCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_structure_element_iter_copy _obj' - checkUnexpectedReturnNULL "poppler_structure_element_iter_copy" result - result' <- (wrapBoxed StructureElementIter) result - touchManagedPtr _obj - return result' - -data StructureElementIterCopyMethodInfo -instance (signature ~ (m StructureElementIter), MonadIO m) => MethodInfo StructureElementIterCopyMethodInfo StructureElementIter signature where - overloadedMethod _ = structureElementIterCopy - --- method StructureElementIter::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElementIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_structure_element_iter_free" poppler_structure_element_iter_free :: - Ptr StructureElementIter -> -- _obj : TInterface "Poppler" "StructureElementIter" - IO () - - -structureElementIterFree :: - (MonadIO m) => - StructureElementIter -- _obj - -> m () -- result -structureElementIterFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_structure_element_iter_free _obj' - touchManagedPtr _obj - return () - -data StructureElementIterFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo StructureElementIterFreeMethodInfo StructureElementIter signature where - overloadedMethod _ = structureElementIterFree - --- method StructureElementIter::get_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElementIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "StructureElementIter") --- throws : False --- Skip return : False - -foreign import ccall "poppler_structure_element_iter_get_child" poppler_structure_element_iter_get_child :: - Ptr StructureElementIter -> -- _obj : TInterface "Poppler" "StructureElementIter" - IO (Ptr StructureElementIter) - - -structureElementIterGetChild :: - (MonadIO m) => - StructureElementIter -- _obj - -> m StructureElementIter -- result -structureElementIterGetChild _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_structure_element_iter_get_child _obj' - checkUnexpectedReturnNULL "poppler_structure_element_iter_get_child" result - result' <- (wrapBoxed StructureElementIter) result - touchManagedPtr _obj - return result' - -data StructureElementIterGetChildMethodInfo -instance (signature ~ (m StructureElementIter), MonadIO m) => MethodInfo StructureElementIterGetChildMethodInfo StructureElementIter signature where - overloadedMethod _ = structureElementIterGetChild - --- method StructureElementIter::get_element --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElementIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "StructureElement") --- throws : False --- Skip return : False - -foreign import ccall "poppler_structure_element_iter_get_element" poppler_structure_element_iter_get_element :: - Ptr StructureElementIter -> -- _obj : TInterface "Poppler" "StructureElementIter" - IO (Ptr StructureElement) - - -structureElementIterGetElement :: - (MonadIO m) => - StructureElementIter -- _obj - -> m StructureElement -- result -structureElementIterGetElement _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_structure_element_iter_get_element _obj' - checkUnexpectedReturnNULL "poppler_structure_element_iter_get_element" result - result' <- (wrapObject StructureElement) result - touchManagedPtr _obj - return result' - -data StructureElementIterGetElementMethodInfo -instance (signature ~ (m StructureElement), MonadIO m) => MethodInfo StructureElementIterGetElementMethodInfo StructureElementIter signature where - overloadedMethod _ = structureElementIterGetElement - --- method StructureElementIter::next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "StructureElementIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_structure_element_iter_next" poppler_structure_element_iter_next :: - Ptr StructureElementIter -> -- _obj : TInterface "Poppler" "StructureElementIter" - IO CInt - - -structureElementIterNext :: - (MonadIO m) => - StructureElementIter -- _obj - -> m Bool -- result -structureElementIterNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_structure_element_iter_next _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data StructureElementIterNextMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo StructureElementIterNextMethodInfo StructureElementIter signature where - overloadedMethod _ = structureElementIterNext - -type family ResolveStructureElementIterMethod (t :: Symbol) (o :: *) :: * where - ResolveStructureElementIterMethod "copy" o = StructureElementIterCopyMethodInfo - ResolveStructureElementIterMethod "free" o = StructureElementIterFreeMethodInfo - ResolveStructureElementIterMethod "next" o = StructureElementIterNextMethodInfo - ResolveStructureElementIterMethod "getChild" o = StructureElementIterGetChildMethodInfo - ResolveStructureElementIterMethod "getElement" o = StructureElementIterGetElementMethodInfo - ResolveStructureElementIterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStructureElementIterMethod t StructureElementIter, MethodInfo info StructureElementIter p) => IsLabelProxy t (StructureElementIter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStructureElementIterMethod t StructureElementIter, MethodInfo info StructureElementIter p) => IsLabel t (StructureElementIter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/StructureElementIter.hs-boot b/GI/Poppler/Structs/StructureElementIter.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/StructureElementIter.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Poppler.Structs.StructureElementIter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype StructureElementIter = StructureElementIter (ForeignPtr StructureElementIter) -instance BoxedObject StructureElementIter where -data StructureElementIterCopyMethodInfo -data StructureElementIterFreeMethodInfo -data StructureElementIterGetChildMethodInfo -data StructureElementIterGetElementMethodInfo -data StructureElementIterNextMethodInfo diff --git a/GI/Poppler/Structs/TextAttributes.hs b/GI/Poppler/Structs/TextAttributes.hs deleted file mode 100644 --- a/GI/Poppler/Structs/TextAttributes.hs +++ /dev/null @@ -1,373 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #PopplerTextAttributes is used to describe text attributes of a range of text --} - -module GI.Poppler.Structs.TextAttributes - ( - --- * Exported types - TextAttributes(..) , - newZeroTextAttributes , - noTextAttributes , - - - -- * Methods --- ** textAttributesCopy - TextAttributesCopyMethodInfo , - textAttributesCopy , - - --- ** textAttributesFree - TextAttributesFreeMethodInfo , - textAttributesFree , - - --- ** textAttributesNew - textAttributesNew , - - - - - -- * Properties --- ** Color - textAttributesClearColor , - textAttributesColor , - textAttributesReadColor , - textAttributesWriteColor , - - --- ** EndIndex - textAttributesEndIndex , - textAttributesReadEndIndex , - textAttributesWriteEndIndex , - - --- ** FontName - textAttributesClearFontName , - textAttributesFontName , - textAttributesReadFontName , - textAttributesWriteFontName , - - --- ** FontSize - textAttributesFontSize , - textAttributesReadFontSize , - textAttributesWriteFontSize , - - --- ** IsUnderlined - textAttributesIsUnderlined , - textAttributesReadIsUnderlined , - textAttributesWriteIsUnderlined , - - --- ** StartIndex - textAttributesReadStartIndex , - textAttributesStartIndex , - textAttributesWriteStartIndex , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype TextAttributes = TextAttributes (ForeignPtr TextAttributes) -foreign import ccall "poppler_text_attributes_get_type" c_poppler_text_attributes_get_type :: - IO GType - -instance BoxedObject TextAttributes where - boxedType _ = c_poppler_text_attributes_get_type - --- | Construct a `TextAttributes` struct initialized to zero. -newZeroTextAttributes :: MonadIO m => m TextAttributes -newZeroTextAttributes = liftIO $ callocBoxedBytes 40 >>= wrapBoxed TextAttributes - -instance tag ~ 'AttrSet => Constructible TextAttributes tag where - new _ attrs = do - o <- newZeroTextAttributes - GI.Attributes.set o attrs - return o - - -noTextAttributes :: Maybe TextAttributes -noTextAttributes = Nothing - -textAttributesReadFontName :: MonadIO m => TextAttributes -> m (Maybe T.Text) -textAttributesReadFontName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -textAttributesWriteFontName :: MonadIO m => TextAttributes -> CString -> m () -textAttributesWriteFontName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -textAttributesClearFontName :: MonadIO m => TextAttributes -> m () -textAttributesClearFontName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data TextAttributesFontNameFieldInfo -instance AttrInfo TextAttributesFontNameFieldInfo where - type AttrAllowedOps TextAttributesFontNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextAttributesFontNameFieldInfo = (~) CString - type AttrBaseTypeConstraint TextAttributesFontNameFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesFontNameFieldInfo = Maybe T.Text - type AttrLabel TextAttributesFontNameFieldInfo = "font_name" - attrGet _ = textAttributesReadFontName - attrSet _ = textAttributesWriteFontName - attrConstruct = undefined - attrClear _ = textAttributesClearFontName - -textAttributesFontName :: AttrLabelProxy "fontName" -textAttributesFontName = AttrLabelProxy - - -textAttributesReadFontSize :: MonadIO m => TextAttributes -> m Double -textAttributesReadFontSize s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CDouble - let val' = realToFrac val - return val' - -textAttributesWriteFontSize :: MonadIO m => TextAttributes -> Double -> m () -textAttributesWriteFontSize s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = realToFrac val - poke (ptr `plusPtr` 8) (val' :: CDouble) - -data TextAttributesFontSizeFieldInfo -instance AttrInfo TextAttributesFontSizeFieldInfo where - type AttrAllowedOps TextAttributesFontSizeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesFontSizeFieldInfo = (~) Double - type AttrBaseTypeConstraint TextAttributesFontSizeFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesFontSizeFieldInfo = Double - type AttrLabel TextAttributesFontSizeFieldInfo = "font_size" - attrGet _ = textAttributesReadFontSize - attrSet _ = textAttributesWriteFontSize - attrConstruct = undefined - attrClear _ = undefined - -textAttributesFontSize :: AttrLabelProxy "fontSize" -textAttributesFontSize = AttrLabelProxy - - -textAttributesReadIsUnderlined :: MonadIO m => TextAttributes -> m Bool -textAttributesReadIsUnderlined s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CInt - let val' = (/= 0) val - return val' - -textAttributesWriteIsUnderlined :: MonadIO m => TextAttributes -> Bool -> m () -textAttributesWriteIsUnderlined s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 16) (val' :: CInt) - -data TextAttributesIsUnderlinedFieldInfo -instance AttrInfo TextAttributesIsUnderlinedFieldInfo where - type AttrAllowedOps TextAttributesIsUnderlinedFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesIsUnderlinedFieldInfo = (~) Bool - type AttrBaseTypeConstraint TextAttributesIsUnderlinedFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesIsUnderlinedFieldInfo = Bool - type AttrLabel TextAttributesIsUnderlinedFieldInfo = "is_underlined" - attrGet _ = textAttributesReadIsUnderlined - attrSet _ = textAttributesWriteIsUnderlined - attrConstruct = undefined - attrClear _ = undefined - -textAttributesIsUnderlined :: AttrLabelProxy "isUnderlined" -textAttributesIsUnderlined = AttrLabelProxy - - -textAttributesReadColor :: MonadIO m => TextAttributes -> m (Maybe Color) -textAttributesReadColor s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO (Ptr Color) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Color) val' - return val'' - return result - -textAttributesWriteColor :: MonadIO m => TextAttributes -> Ptr Color -> m () -textAttributesWriteColor s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Ptr Color) - -textAttributesClearColor :: MonadIO m => TextAttributes -> m () -textAttributesClearColor s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (nullPtr :: Ptr Color) - -data TextAttributesColorFieldInfo -instance AttrInfo TextAttributesColorFieldInfo where - type AttrAllowedOps TextAttributesColorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TextAttributesColorFieldInfo = (~) (Ptr Color) - type AttrBaseTypeConstraint TextAttributesColorFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesColorFieldInfo = Maybe Color - type AttrLabel TextAttributesColorFieldInfo = "color" - attrGet _ = textAttributesReadColor - attrSet _ = textAttributesWriteColor - attrConstruct = undefined - attrClear _ = textAttributesClearColor - -textAttributesColor :: AttrLabelProxy "color" -textAttributesColor = AttrLabelProxy - - -textAttributesReadStartIndex :: MonadIO m => TextAttributes -> m Int32 -textAttributesReadStartIndex s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO Int32 - return val - -textAttributesWriteStartIndex :: MonadIO m => TextAttributes -> Int32 -> m () -textAttributesWriteStartIndex s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 28) (val :: Int32) - -data TextAttributesStartIndexFieldInfo -instance AttrInfo TextAttributesStartIndexFieldInfo where - type AttrAllowedOps TextAttributesStartIndexFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesStartIndexFieldInfo = (~) Int32 - type AttrBaseTypeConstraint TextAttributesStartIndexFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesStartIndexFieldInfo = Int32 - type AttrLabel TextAttributesStartIndexFieldInfo = "start_index" - attrGet _ = textAttributesReadStartIndex - attrSet _ = textAttributesWriteStartIndex - attrConstruct = undefined - attrClear _ = undefined - -textAttributesStartIndex :: AttrLabelProxy "startIndex" -textAttributesStartIndex = AttrLabelProxy - - -textAttributesReadEndIndex :: MonadIO m => TextAttributes -> m Int32 -textAttributesReadEndIndex s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Int32 - return val - -textAttributesWriteEndIndex :: MonadIO m => TextAttributes -> Int32 -> m () -textAttributesWriteEndIndex s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Int32) - -data TextAttributesEndIndexFieldInfo -instance AttrInfo TextAttributesEndIndexFieldInfo where - type AttrAllowedOps TextAttributesEndIndexFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint TextAttributesEndIndexFieldInfo = (~) Int32 - type AttrBaseTypeConstraint TextAttributesEndIndexFieldInfo = (~) TextAttributes - type AttrGetType TextAttributesEndIndexFieldInfo = Int32 - type AttrLabel TextAttributesEndIndexFieldInfo = "end_index" - attrGet _ = textAttributesReadEndIndex - attrSet _ = textAttributesWriteEndIndex - attrConstruct = undefined - attrClear _ = undefined - -textAttributesEndIndex :: AttrLabelProxy "endIndex" -textAttributesEndIndex = AttrLabelProxy - - - -type instance AttributeList TextAttributes = TextAttributesAttributeList -type TextAttributesAttributeList = ('[ '("fontName", TextAttributesFontNameFieldInfo), '("fontSize", TextAttributesFontSizeFieldInfo), '("isUnderlined", TextAttributesIsUnderlinedFieldInfo), '("color", TextAttributesColorFieldInfo), '("startIndex", TextAttributesStartIndexFieldInfo), '("endIndex", TextAttributesEndIndexFieldInfo)] :: [(Symbol, *)]) - --- method TextAttributes::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "TextAttributes") --- throws : False --- Skip return : False - -foreign import ccall "poppler_text_attributes_new" poppler_text_attributes_new :: - IO (Ptr TextAttributes) - - -textAttributesNew :: - (MonadIO m) => - m TextAttributes -- result -textAttributesNew = liftIO $ do - result <- poppler_text_attributes_new - checkUnexpectedReturnNULL "poppler_text_attributes_new" result - result' <- (wrapBoxed TextAttributes) result - return result' - --- method TextAttributes::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "TextAttributes") --- throws : False --- Skip return : False - -foreign import ccall "poppler_text_attributes_copy" poppler_text_attributes_copy :: - Ptr TextAttributes -> -- _obj : TInterface "Poppler" "TextAttributes" - IO (Ptr TextAttributes) - - -textAttributesCopy :: - (MonadIO m) => - TextAttributes -- _obj - -> m TextAttributes -- result -textAttributesCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_text_attributes_copy _obj' - checkUnexpectedReturnNULL "poppler_text_attributes_copy" result - result' <- (wrapBoxed TextAttributes) result - touchManagedPtr _obj - return result' - -data TextAttributesCopyMethodInfo -instance (signature ~ (m TextAttributes), MonadIO m) => MethodInfo TextAttributesCopyMethodInfo TextAttributes signature where - overloadedMethod _ = textAttributesCopy - --- method TextAttributes::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextAttributes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_text_attributes_free" poppler_text_attributes_free :: - Ptr TextAttributes -> -- _obj : TInterface "Poppler" "TextAttributes" - IO () - - -textAttributesFree :: - (MonadIO m) => - TextAttributes -- _obj - -> m () -- result -textAttributesFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_text_attributes_free _obj' - touchManagedPtr _obj - return () - -data TextAttributesFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TextAttributesFreeMethodInfo TextAttributes signature where - overloadedMethod _ = textAttributesFree - -type family ResolveTextAttributesMethod (t :: Symbol) (o :: *) :: * where - ResolveTextAttributesMethod "copy" o = TextAttributesCopyMethodInfo - ResolveTextAttributesMethod "free" o = TextAttributesFreeMethodInfo - ResolveTextAttributesMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTextAttributesMethod t TextAttributes, MethodInfo info TextAttributes p) => IsLabelProxy t (TextAttributes -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTextAttributesMethod t TextAttributes, MethodInfo info TextAttributes p) => IsLabel t (TextAttributes -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/TextAttributes.hs-boot b/GI/Poppler/Structs/TextAttributes.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/TextAttributes.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Poppler.Structs.TextAttributes where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TextAttributes = TextAttributes (ForeignPtr TextAttributes) -instance BoxedObject TextAttributes where -data TextAttributesCopyMethodInfo -data TextAttributesFreeMethodInfo diff --git a/GI/Poppler/Structs/TextSpan.hs b/GI/Poppler/Structs/TextSpan.hs deleted file mode 100644 --- a/GI/Poppler/Structs/TextSpan.hs +++ /dev/null @@ -1,333 +0,0 @@ - - -{- | -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.Structs.TextSpan - ( - --- * Exported types - TextSpan(..) , - noTextSpan , - - - -- * Methods --- ** textSpanCopy - TextSpanCopyMethodInfo , - textSpanCopy , - - --- ** textSpanFree - TextSpanFreeMethodInfo , - textSpanFree , - - --- ** textSpanGetColor - TextSpanGetColorMethodInfo , - textSpanGetColor , - - --- ** textSpanGetFontName - TextSpanGetFontNameMethodInfo , - textSpanGetFontName , - - --- ** textSpanGetText - TextSpanGetTextMethodInfo , - textSpanGetText , - - --- ** textSpanIsBoldFont - TextSpanIsBoldFontMethodInfo , - textSpanIsBoldFont , - - --- ** textSpanIsFixedWidthFont - TextSpanIsFixedWidthFontMethodInfo , - textSpanIsFixedWidthFont , - - --- ** textSpanIsSerifFont - TextSpanIsSerifFontMethodInfo , - textSpanIsSerifFont , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype TextSpan = TextSpan (ForeignPtr TextSpan) -foreign import ccall "poppler_text_span_get_type" c_poppler_text_span_get_type :: - IO GType - -instance BoxedObject TextSpan where - boxedType _ = c_poppler_text_span_get_type - -noTextSpan :: Maybe TextSpan -noTextSpan = Nothing - - -type instance AttributeList TextSpan = TextSpanAttributeList -type TextSpanAttributeList = ('[ ] :: [(Symbol, *)]) - --- method TextSpan::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "TextSpan") --- throws : False --- Skip return : False - -foreign import ccall "poppler_text_span_copy" poppler_text_span_copy :: - Ptr TextSpan -> -- _obj : TInterface "Poppler" "TextSpan" - IO (Ptr TextSpan) - - -textSpanCopy :: - (MonadIO m) => - TextSpan -- _obj - -> m TextSpan -- result -textSpanCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_text_span_copy _obj' - checkUnexpectedReturnNULL "poppler_text_span_copy" result - result' <- (wrapBoxed TextSpan) result - touchManagedPtr _obj - return result' - -data TextSpanCopyMethodInfo -instance (signature ~ (m TextSpan), MonadIO m) => MethodInfo TextSpanCopyMethodInfo TextSpan signature where - overloadedMethod _ = textSpanCopy - --- method TextSpan::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_text_span_free" poppler_text_span_free :: - Ptr TextSpan -> -- _obj : TInterface "Poppler" "TextSpan" - IO () - - -textSpanFree :: - (MonadIO m) => - TextSpan -- _obj - -> m () -- result -textSpanFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_text_span_free _obj' - touchManagedPtr _obj - return () - -data TextSpanFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo TextSpanFreeMethodInfo TextSpan signature where - overloadedMethod _ = textSpanFree - --- method TextSpan::get_color --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_text_span_get_color" poppler_text_span_get_color :: - Ptr TextSpan -> -- _obj : TInterface "Poppler" "TextSpan" - Ptr Color -> -- color : TInterface "Poppler" "Color" - IO () - - -textSpanGetColor :: - (MonadIO m) => - TextSpan -- _obj - -> m (Color) -- result -textSpanGetColor _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - color <- callocBoxedBytes 6 :: IO (Ptr Color) - poppler_text_span_get_color _obj' color - color' <- (wrapBoxed Color) color - touchManagedPtr _obj - return color' - -data TextSpanGetColorMethodInfo -instance (signature ~ (m (Color)), MonadIO m) => MethodInfo TextSpanGetColorMethodInfo TextSpan signature where - overloadedMethod _ = textSpanGetColor - --- method TextSpan::get_font_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_text_span_get_font_name" poppler_text_span_get_font_name :: - Ptr TextSpan -> -- _obj : TInterface "Poppler" "TextSpan" - IO CString - - -textSpanGetFontName :: - (MonadIO m) => - TextSpan -- _obj - -> m T.Text -- result -textSpanGetFontName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_text_span_get_font_name _obj' - checkUnexpectedReturnNULL "poppler_text_span_get_font_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data TextSpanGetFontNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo TextSpanGetFontNameMethodInfo TextSpan signature where - overloadedMethod _ = textSpanGetFontName - --- method TextSpan::get_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "poppler_text_span_get_text" poppler_text_span_get_text :: - Ptr TextSpan -> -- _obj : TInterface "Poppler" "TextSpan" - IO CString - - -textSpanGetText :: - (MonadIO m) => - TextSpan -- _obj - -> m T.Text -- result -textSpanGetText _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_text_span_get_text _obj' - checkUnexpectedReturnNULL "poppler_text_span_get_text" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data TextSpanGetTextMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo TextSpanGetTextMethodInfo TextSpan signature where - overloadedMethod _ = textSpanGetText - --- method TextSpan::is_bold_font --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_text_span_is_bold_font" poppler_text_span_is_bold_font :: - Ptr TextSpan -> -- _obj : TInterface "Poppler" "TextSpan" - IO CInt - - -textSpanIsBoldFont :: - (MonadIO m) => - TextSpan -- _obj - -> m Bool -- result -textSpanIsBoldFont _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_text_span_is_bold_font _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextSpanIsBoldFontMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextSpanIsBoldFontMethodInfo TextSpan signature where - overloadedMethod _ = textSpanIsBoldFont - --- method TextSpan::is_fixed_width_font --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_text_span_is_fixed_width_font" poppler_text_span_is_fixed_width_font :: - Ptr TextSpan -> -- _obj : TInterface "Poppler" "TextSpan" - IO CInt - - -textSpanIsFixedWidthFont :: - (MonadIO m) => - TextSpan -- _obj - -> m Bool -- result -textSpanIsFixedWidthFont _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_text_span_is_fixed_width_font _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextSpanIsFixedWidthFontMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextSpanIsFixedWidthFontMethodInfo TextSpan signature where - overloadedMethod _ = textSpanIsFixedWidthFont - --- method TextSpan::is_serif_font --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "TextSpan", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "poppler_text_span_is_serif_font" poppler_text_span_is_serif_font :: - Ptr TextSpan -> -- _obj : TInterface "Poppler" "TextSpan" - IO CInt - - -textSpanIsSerifFont :: - (MonadIO m) => - TextSpan -- _obj - -> m Bool -- result -textSpanIsSerifFont _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_text_span_is_serif_font _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TextSpanIsSerifFontMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo TextSpanIsSerifFontMethodInfo TextSpan signature where - overloadedMethod _ = textSpanIsSerifFont - -type family ResolveTextSpanMethod (t :: Symbol) (o :: *) :: * where - ResolveTextSpanMethod "copy" o = TextSpanCopyMethodInfo - ResolveTextSpanMethod "free" o = TextSpanFreeMethodInfo - ResolveTextSpanMethod "isBoldFont" o = TextSpanIsBoldFontMethodInfo - ResolveTextSpanMethod "isFixedWidthFont" o = TextSpanIsFixedWidthFontMethodInfo - ResolveTextSpanMethod "isSerifFont" o = TextSpanIsSerifFontMethodInfo - ResolveTextSpanMethod "getColor" o = TextSpanGetColorMethodInfo - ResolveTextSpanMethod "getFontName" o = TextSpanGetFontNameMethodInfo - ResolveTextSpanMethod "getText" o = TextSpanGetTextMethodInfo - ResolveTextSpanMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTextSpanMethod t TextSpan, MethodInfo info TextSpan p) => IsLabelProxy t (TextSpan -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTextSpanMethod t TextSpan, MethodInfo info TextSpan p) => IsLabel t (TextSpan -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Structs/TextSpan.hs-boot b/GI/Poppler/Structs/TextSpan.hs-boot deleted file mode 100644 --- a/GI/Poppler/Structs/TextSpan.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Poppler.Structs.TextSpan where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TextSpan = TextSpan (ForeignPtr TextSpan) -instance BoxedObject TextSpan where -data TextSpanCopyMethodInfo -data TextSpanFreeMethodInfo -data TextSpanGetColorMethodInfo -data TextSpanGetFontNameMethodInfo -data TextSpanGetTextMethodInfo -data TextSpanIsBoldFontMethodInfo -data TextSpanIsFixedWidthFontMethodInfo -data TextSpanIsSerifFontMethodInfo diff --git a/GI/Poppler/Types.hs b/GI/Poppler/Types.hs deleted file mode 100644 --- a/GI/Poppler/Types.hs +++ /dev/null @@ -1,112 +0,0 @@ -module GI.Poppler.Types - ( module GI.Poppler.Objects.Annot , - module GI.Poppler.Objects.AnnotCircle , - module GI.Poppler.Objects.AnnotFileAttachment, - module GI.Poppler.Objects.AnnotFreeText , - module GI.Poppler.Objects.AnnotLine , - module GI.Poppler.Objects.AnnotMarkup , - module GI.Poppler.Objects.AnnotMovie , - module GI.Poppler.Objects.AnnotScreen , - module GI.Poppler.Objects.AnnotSquare , - module GI.Poppler.Objects.AnnotText , - module GI.Poppler.Objects.AnnotTextMarkup, - module GI.Poppler.Objects.Attachment , - module GI.Poppler.Objects.Document , - module GI.Poppler.Objects.FontInfo , - module GI.Poppler.Objects.FormField , - module GI.Poppler.Objects.Layer , - module GI.Poppler.Objects.Media , - module GI.Poppler.Objects.Movie , - module GI.Poppler.Objects.PSFile , - module GI.Poppler.Objects.Page , - module GI.Poppler.Objects.StructureElement, - module GI.Poppler.Structs.ActionAny , - module GI.Poppler.Structs.ActionGotoDest, - module GI.Poppler.Structs.ActionGotoRemote, - module GI.Poppler.Structs.ActionJavascript, - module GI.Poppler.Structs.ActionLaunch , - module GI.Poppler.Structs.ActionLayer , - module GI.Poppler.Structs.ActionMovie , - module GI.Poppler.Structs.ActionNamed , - module GI.Poppler.Structs.ActionOCGState, - module GI.Poppler.Structs.ActionRendition, - module GI.Poppler.Structs.ActionUri , - module GI.Poppler.Structs.AnnotCalloutLine, - module GI.Poppler.Structs.AnnotMapping , - module GI.Poppler.Structs.Color , - module GI.Poppler.Structs.Dest , - module GI.Poppler.Structs.FontsIter , - module GI.Poppler.Structs.FormFieldMapping, - module GI.Poppler.Structs.ImageMapping , - module GI.Poppler.Structs.IndexIter , - module GI.Poppler.Structs.LayersIter , - module GI.Poppler.Structs.LinkMapping , - module GI.Poppler.Structs.PageTransition, - module GI.Poppler.Structs.Point , - module GI.Poppler.Structs.Quadrilateral , - module GI.Poppler.Structs.Rectangle , - module GI.Poppler.Structs.StructureElementIter, - module GI.Poppler.Structs.TextAttributes, - module GI.Poppler.Structs.TextSpan , - module GI.Poppler.Unions.Action , - module GI.Poppler.Enums , - module GI.Poppler.Flags , - - - ) where - - -import {-# SOURCE #-} GI.Poppler.Objects.Annot -import {-# SOURCE #-} GI.Poppler.Objects.AnnotCircle -import {-# SOURCE #-} GI.Poppler.Objects.AnnotFileAttachment -import {-# SOURCE #-} GI.Poppler.Objects.AnnotFreeText -import {-# SOURCE #-} GI.Poppler.Objects.AnnotLine -import {-# SOURCE #-} GI.Poppler.Objects.AnnotMarkup -import {-# SOURCE #-} GI.Poppler.Objects.AnnotMovie -import {-# SOURCE #-} GI.Poppler.Objects.AnnotScreen -import {-# SOURCE #-} GI.Poppler.Objects.AnnotSquare -import {-# SOURCE #-} GI.Poppler.Objects.AnnotText -import {-# SOURCE #-} GI.Poppler.Objects.AnnotTextMarkup -import {-# SOURCE #-} GI.Poppler.Objects.Attachment -import {-# SOURCE #-} GI.Poppler.Objects.Document -import {-# SOURCE #-} GI.Poppler.Objects.FontInfo -import {-# SOURCE #-} GI.Poppler.Objects.FormField -import {-# SOURCE #-} GI.Poppler.Objects.Layer -import {-# SOURCE #-} GI.Poppler.Objects.Media -import {-# SOURCE #-} GI.Poppler.Objects.Movie -import {-# SOURCE #-} GI.Poppler.Objects.PSFile -import {-# SOURCE #-} GI.Poppler.Objects.Page -import {-# SOURCE #-} GI.Poppler.Objects.StructureElement -import {-# SOURCE #-} GI.Poppler.Structs.ActionAny -import {-# SOURCE #-} GI.Poppler.Structs.ActionGotoDest -import {-# SOURCE #-} GI.Poppler.Structs.ActionGotoRemote -import {-# SOURCE #-} GI.Poppler.Structs.ActionJavascript -import {-# SOURCE #-} GI.Poppler.Structs.ActionLaunch -import {-# SOURCE #-} GI.Poppler.Structs.ActionLayer -import {-# SOURCE #-} GI.Poppler.Structs.ActionMovie -import {-# SOURCE #-} GI.Poppler.Structs.ActionNamed -import {-# SOURCE #-} GI.Poppler.Structs.ActionOCGState -import {-# SOURCE #-} GI.Poppler.Structs.ActionRendition -import {-# SOURCE #-} GI.Poppler.Structs.ActionUri -import {-# SOURCE #-} GI.Poppler.Structs.AnnotCalloutLine -import {-# SOURCE #-} GI.Poppler.Structs.AnnotMapping -import {-# SOURCE #-} GI.Poppler.Structs.Color -import {-# SOURCE #-} GI.Poppler.Structs.Dest -import {-# SOURCE #-} GI.Poppler.Structs.FontsIter -import {-# SOURCE #-} GI.Poppler.Structs.FormFieldMapping -import {-# SOURCE #-} GI.Poppler.Structs.ImageMapping -import {-# SOURCE #-} GI.Poppler.Structs.IndexIter -import {-# SOURCE #-} GI.Poppler.Structs.LayersIter -import {-# SOURCE #-} GI.Poppler.Structs.LinkMapping -import {-# SOURCE #-} GI.Poppler.Structs.PageTransition -import {-# SOURCE #-} GI.Poppler.Structs.Point -import {-# SOURCE #-} GI.Poppler.Structs.Quadrilateral -import {-# SOURCE #-} GI.Poppler.Structs.Rectangle -import {-# SOURCE #-} GI.Poppler.Structs.StructureElementIter -import {-# SOURCE #-} GI.Poppler.Structs.TextAttributes -import {-# SOURCE #-} GI.Poppler.Structs.TextSpan -import {-# SOURCE #-} GI.Poppler.Unions.Action - -import GI.Poppler.Enums -import GI.Poppler.Flags - diff --git a/GI/Poppler/Unions.hs b/GI/Poppler/Unions.hs deleted file mode 100644 --- a/GI/Poppler/Unions.hs +++ /dev/null @@ -1,27 +0,0 @@ - - -{- | -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.Unions - ( module GI.Poppler.Unions.Action , - - - ) where - -import GI.Poppler.Unions.Action - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - diff --git a/GI/Poppler/Unions/Action.hs b/GI/Poppler/Unions/Action.hs deleted file mode 100644 --- a/GI/Poppler/Unions/Action.hs +++ /dev/null @@ -1,563 +0,0 @@ - - -{- | -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.Unions.Action - ( - --- * Exported types - Action(..) , - newZeroAction , - noAction , - - - -- * Methods --- ** actionCopy - ActionCopyMethodInfo , - actionCopy , - - --- ** actionFree - ActionFreeMethodInfo , - actionFree , - - - - - -- * Properties --- ** Any - actionAny , - actionClearAny , - actionReadAny , - actionWriteAny , - - --- ** GotoDest - actionClearGotoDest , - actionGotoDest , - actionReadGotoDest , - actionWriteGotoDest , - - --- ** GotoRemote - actionClearGotoRemote , - actionGotoRemote , - actionReadGotoRemote , - actionWriteGotoRemote , - - --- ** Javascript - actionClearJavascript , - actionJavascript , - actionReadJavascript , - actionWriteJavascript , - - --- ** Launch - actionClearLaunch , - actionLaunch , - actionReadLaunch , - actionWriteLaunch , - - --- ** Movie - actionClearMovie , - actionMovie , - actionReadMovie , - actionWriteMovie , - - --- ** Named - actionClearNamed , - actionNamed , - actionReadNamed , - actionWriteNamed , - - --- ** OcgState - actionClearOcgState , - actionOcgState , - actionReadOcgState , - actionWriteOcgState , - - --- ** Rendition - actionClearRendition , - actionReadRendition , - actionRendition , - actionWriteRendition , - - --- ** Type - actionReadType , - actionType , - actionWriteType , - - --- ** Uri - actionClearUri , - actionReadUri , - actionUri , - actionWriteUri , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype Action = Action (ForeignPtr Action) -foreign import ccall "poppler_action_get_type" c_poppler_action_get_type :: - IO GType - -instance BoxedObject Action where - boxedType _ = c_poppler_action_get_type - --- | Construct a `Action` struct initialized to zero. -newZeroAction :: MonadIO m => m Action -newZeroAction = liftIO $ callocBoxedBytes 32 >>= wrapBoxed Action - -instance tag ~ 'AttrSet => Constructible Action tag where - new _ attrs = do - o <- newZeroAction - GI.Attributes.set o attrs - return o - - -noAction :: Maybe Action -noAction = Nothing - -actionReadType :: MonadIO m => Action -> m ActionType -actionReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -actionWriteType :: MonadIO m => Action -> ActionType -> m () -actionWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 0) (val' :: CUInt) - -data ActionTypeFieldInfo -instance AttrInfo ActionTypeFieldInfo where - type AttrAllowedOps ActionTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint ActionTypeFieldInfo = (~) ActionType - type AttrBaseTypeConstraint ActionTypeFieldInfo = (~) Action - type AttrGetType ActionTypeFieldInfo = ActionType - type AttrLabel ActionTypeFieldInfo = "type" - attrGet _ = actionReadType - attrSet _ = actionWriteType - attrConstruct = undefined - attrClear _ = undefined - -actionType :: AttrLabelProxy "type" -actionType = AttrLabelProxy - - -actionReadAny :: MonadIO m => Action -> m (Maybe ActionAny) -actionReadAny s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionAny) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr ActionAny) val' - return val'' - return result - -actionWriteAny :: MonadIO m => Action -> Ptr ActionAny -> m () -actionWriteAny s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ActionAny) - -actionClearAny :: MonadIO m => Action -> m () -actionClearAny s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionAny) - -data ActionAnyFieldInfo -instance AttrInfo ActionAnyFieldInfo where - type AttrAllowedOps ActionAnyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionAnyFieldInfo = (~) (Ptr ActionAny) - type AttrBaseTypeConstraint ActionAnyFieldInfo = (~) Action - type AttrGetType ActionAnyFieldInfo = Maybe ActionAny - type AttrLabel ActionAnyFieldInfo = "any" - attrGet _ = actionReadAny - attrSet _ = actionWriteAny - attrConstruct = undefined - attrClear _ = actionClearAny - -actionAny :: AttrLabelProxy "any" -actionAny = AttrLabelProxy - - -actionReadGotoDest :: MonadIO m => Action -> m (Maybe ActionGotoDest) -actionReadGotoDest s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionGotoDest) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr ActionGotoDest) val' - return val'' - return result - -actionWriteGotoDest :: MonadIO m => Action -> Ptr ActionGotoDest -> m () -actionWriteGotoDest s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ActionGotoDest) - -actionClearGotoDest :: MonadIO m => Action -> m () -actionClearGotoDest s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionGotoDest) - -data ActionGotoDestFieldInfo -instance AttrInfo ActionGotoDestFieldInfo where - type AttrAllowedOps ActionGotoDestFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionGotoDestFieldInfo = (~) (Ptr ActionGotoDest) - type AttrBaseTypeConstraint ActionGotoDestFieldInfo = (~) Action - type AttrGetType ActionGotoDestFieldInfo = Maybe ActionGotoDest - type AttrLabel ActionGotoDestFieldInfo = "goto_dest" - attrGet _ = actionReadGotoDest - attrSet _ = actionWriteGotoDest - attrConstruct = undefined - attrClear _ = actionClearGotoDest - -actionGotoDest :: AttrLabelProxy "gotoDest" -actionGotoDest = AttrLabelProxy - - -actionReadGotoRemote :: MonadIO m => Action -> m (Maybe ActionGotoRemote) -actionReadGotoRemote s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionGotoRemote) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr ActionGotoRemote) val' - return val'' - return result - -actionWriteGotoRemote :: MonadIO m => Action -> Ptr ActionGotoRemote -> m () -actionWriteGotoRemote s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ActionGotoRemote) - -actionClearGotoRemote :: MonadIO m => Action -> m () -actionClearGotoRemote s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionGotoRemote) - -data ActionGotoRemoteFieldInfo -instance AttrInfo ActionGotoRemoteFieldInfo where - type AttrAllowedOps ActionGotoRemoteFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionGotoRemoteFieldInfo = (~) (Ptr ActionGotoRemote) - type AttrBaseTypeConstraint ActionGotoRemoteFieldInfo = (~) Action - type AttrGetType ActionGotoRemoteFieldInfo = Maybe ActionGotoRemote - type AttrLabel ActionGotoRemoteFieldInfo = "goto_remote" - attrGet _ = actionReadGotoRemote - attrSet _ = actionWriteGotoRemote - attrConstruct = undefined - attrClear _ = actionClearGotoRemote - -actionGotoRemote :: AttrLabelProxy "gotoRemote" -actionGotoRemote = AttrLabelProxy - - -actionReadLaunch :: MonadIO m => Action -> m (Maybe ActionLaunch) -actionReadLaunch s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionLaunch) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr ActionLaunch) val' - return val'' - return result - -actionWriteLaunch :: MonadIO m => Action -> Ptr ActionLaunch -> m () -actionWriteLaunch s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ActionLaunch) - -actionClearLaunch :: MonadIO m => Action -> m () -actionClearLaunch s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionLaunch) - -data ActionLaunchFieldInfo -instance AttrInfo ActionLaunchFieldInfo where - type AttrAllowedOps ActionLaunchFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionLaunchFieldInfo = (~) (Ptr ActionLaunch) - type AttrBaseTypeConstraint ActionLaunchFieldInfo = (~) Action - type AttrGetType ActionLaunchFieldInfo = Maybe ActionLaunch - type AttrLabel ActionLaunchFieldInfo = "launch" - attrGet _ = actionReadLaunch - attrSet _ = actionWriteLaunch - attrConstruct = undefined - attrClear _ = actionClearLaunch - -actionLaunch :: AttrLabelProxy "launch" -actionLaunch = AttrLabelProxy - - -actionReadUri :: MonadIO m => Action -> m (Maybe ActionUri) -actionReadUri s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionUri) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr ActionUri) val' - return val'' - return result - -actionWriteUri :: MonadIO m => Action -> Ptr ActionUri -> m () -actionWriteUri s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ActionUri) - -actionClearUri :: MonadIO m => Action -> m () -actionClearUri s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionUri) - -data ActionUriFieldInfo -instance AttrInfo ActionUriFieldInfo where - type AttrAllowedOps ActionUriFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionUriFieldInfo = (~) (Ptr ActionUri) - type AttrBaseTypeConstraint ActionUriFieldInfo = (~) Action - type AttrGetType ActionUriFieldInfo = Maybe ActionUri - type AttrLabel ActionUriFieldInfo = "uri" - attrGet _ = actionReadUri - attrSet _ = actionWriteUri - attrConstruct = undefined - attrClear _ = actionClearUri - -actionUri :: AttrLabelProxy "uri" -actionUri = AttrLabelProxy - - -actionReadNamed :: MonadIO m => Action -> m (Maybe ActionNamed) -actionReadNamed s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionNamed) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr ActionNamed) val' - return val'' - return result - -actionWriteNamed :: MonadIO m => Action -> Ptr ActionNamed -> m () -actionWriteNamed s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ActionNamed) - -actionClearNamed :: MonadIO m => Action -> m () -actionClearNamed s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionNamed) - -data ActionNamedFieldInfo -instance AttrInfo ActionNamedFieldInfo where - type AttrAllowedOps ActionNamedFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionNamedFieldInfo = (~) (Ptr ActionNamed) - type AttrBaseTypeConstraint ActionNamedFieldInfo = (~) Action - type AttrGetType ActionNamedFieldInfo = Maybe ActionNamed - type AttrLabel ActionNamedFieldInfo = "named" - attrGet _ = actionReadNamed - attrSet _ = actionWriteNamed - attrConstruct = undefined - attrClear _ = actionClearNamed - -actionNamed :: AttrLabelProxy "named" -actionNamed = AttrLabelProxy - - -actionReadMovie :: MonadIO m => Action -> m (Maybe ActionMovie) -actionReadMovie s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionMovie) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr ActionMovie) val' - return val'' - return result - -actionWriteMovie :: MonadIO m => Action -> Ptr ActionMovie -> m () -actionWriteMovie s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ActionMovie) - -actionClearMovie :: MonadIO m => Action -> m () -actionClearMovie s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionMovie) - -data ActionMovieFieldInfo -instance AttrInfo ActionMovieFieldInfo where - type AttrAllowedOps ActionMovieFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionMovieFieldInfo = (~) (Ptr ActionMovie) - type AttrBaseTypeConstraint ActionMovieFieldInfo = (~) Action - type AttrGetType ActionMovieFieldInfo = Maybe ActionMovie - type AttrLabel ActionMovieFieldInfo = "movie" - attrGet _ = actionReadMovie - attrSet _ = actionWriteMovie - attrConstruct = undefined - attrClear _ = actionClearMovie - -actionMovie :: AttrLabelProxy "movie" -actionMovie = AttrLabelProxy - - -actionReadRendition :: MonadIO m => Action -> m (Maybe ActionRendition) -actionReadRendition s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionRendition) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr ActionRendition) val' - return val'' - return result - -actionWriteRendition :: MonadIO m => Action -> Ptr ActionRendition -> m () -actionWriteRendition s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ActionRendition) - -actionClearRendition :: MonadIO m => Action -> m () -actionClearRendition s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionRendition) - -data ActionRenditionFieldInfo -instance AttrInfo ActionRenditionFieldInfo where - type AttrAllowedOps ActionRenditionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionRenditionFieldInfo = (~) (Ptr ActionRendition) - type AttrBaseTypeConstraint ActionRenditionFieldInfo = (~) Action - type AttrGetType ActionRenditionFieldInfo = Maybe ActionRendition - type AttrLabel ActionRenditionFieldInfo = "rendition" - attrGet _ = actionReadRendition - attrSet _ = actionWriteRendition - attrConstruct = undefined - attrClear _ = actionClearRendition - -actionRendition :: AttrLabelProxy "rendition" -actionRendition = AttrLabelProxy - - -actionReadOcgState :: MonadIO m => Action -> m (Maybe ActionOCGState) -actionReadOcgState s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionOCGState) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr ActionOCGState) val' - return val'' - return result - -actionWriteOcgState :: MonadIO m => Action -> Ptr ActionOCGState -> m () -actionWriteOcgState s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ActionOCGState) - -actionClearOcgState :: MonadIO m => Action -> m () -actionClearOcgState s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionOCGState) - -data ActionOcgStateFieldInfo -instance AttrInfo ActionOcgStateFieldInfo where - type AttrAllowedOps ActionOcgStateFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionOcgStateFieldInfo = (~) (Ptr ActionOCGState) - type AttrBaseTypeConstraint ActionOcgStateFieldInfo = (~) Action - type AttrGetType ActionOcgStateFieldInfo = Maybe ActionOCGState - type AttrLabel ActionOcgStateFieldInfo = "ocg_state" - attrGet _ = actionReadOcgState - attrSet _ = actionWriteOcgState - attrConstruct = undefined - attrClear _ = actionClearOcgState - -actionOcgState :: AttrLabelProxy "ocgState" -actionOcgState = AttrLabelProxy - - -actionReadJavascript :: MonadIO m => Action -> m (Maybe ActionJavascript) -actionReadJavascript s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ActionJavascript) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr ActionJavascript) val' - return val'' - return result - -actionWriteJavascript :: MonadIO m => Action -> Ptr ActionJavascript -> m () -actionWriteJavascript s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ActionJavascript) - -actionClearJavascript :: MonadIO m => Action -> m () -actionClearJavascript s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ActionJavascript) - -data ActionJavascriptFieldInfo -instance AttrInfo ActionJavascriptFieldInfo where - type AttrAllowedOps ActionJavascriptFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionJavascriptFieldInfo = (~) (Ptr ActionJavascript) - type AttrBaseTypeConstraint ActionJavascriptFieldInfo = (~) Action - type AttrGetType ActionJavascriptFieldInfo = Maybe ActionJavascript - type AttrLabel ActionJavascriptFieldInfo = "javascript" - attrGet _ = actionReadJavascript - attrSet _ = actionWriteJavascript - attrConstruct = undefined - attrClear _ = actionClearJavascript - -actionJavascript :: AttrLabelProxy "javascript" -actionJavascript = AttrLabelProxy - - - -type instance AttributeList Action = ActionAttributeList -type ActionAttributeList = ('[ '("type", ActionTypeFieldInfo), '("any", ActionAnyFieldInfo), '("gotoDest", ActionGotoDestFieldInfo), '("gotoRemote", ActionGotoRemoteFieldInfo), '("launch", ActionLaunchFieldInfo), '("uri", ActionUriFieldInfo), '("named", ActionNamedFieldInfo), '("movie", ActionMovieFieldInfo), '("rendition", ActionRenditionFieldInfo), '("ocgState", ActionOcgStateFieldInfo), '("javascript", ActionJavascriptFieldInfo)] :: [(Symbol, *)]) - --- method Action::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Poppler" "Action") --- throws : False --- Skip return : False - -foreign import ccall "poppler_action_copy" poppler_action_copy :: - Ptr Action -> -- _obj : TInterface "Poppler" "Action" - IO (Ptr Action) - - -actionCopy :: - (MonadIO m) => - Action -- _obj - -> m Action -- result -actionCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- poppler_action_copy _obj' - checkUnexpectedReturnNULL "poppler_action_copy" result - result' <- (wrapBoxed Action) result - touchManagedPtr _obj - return result' - -data ActionCopyMethodInfo -instance (signature ~ (m Action), MonadIO m) => MethodInfo ActionCopyMethodInfo Action signature where - overloadedMethod _ = actionCopy - --- method Action::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Poppler" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "poppler_action_free" poppler_action_free :: - Ptr Action -> -- _obj : TInterface "Poppler" "Action" - IO () - - -actionFree :: - (MonadIO m) => - Action -- _obj - -> m () -- result -actionFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - poppler_action_free _obj' - touchManagedPtr _obj - return () - -data ActionFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo ActionFreeMethodInfo Action signature where - overloadedMethod _ = actionFree - -type family ResolveActionMethod (t :: Symbol) (o :: *) :: * where - ResolveActionMethod "copy" o = ActionCopyMethodInfo - ResolveActionMethod "free" o = ActionFreeMethodInfo - ResolveActionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionMethod t Action, MethodInfo info Action p) => IsLabelProxy t (Action -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionMethod t Action, MethodInfo info Action p) => IsLabel t (Action -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Poppler/Unions/Action.hs-boot b/GI/Poppler/Unions/Action.hs-boot deleted file mode 100644 --- a/GI/Poppler/Unions/Action.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Poppler.Unions.Action where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Action = Action (ForeignPtr Action) -instance BoxedObject Action where -data ActionCopyMethodInfo -data ActionFreeMethodInfo diff --git a/Setup.hs b/Setup.hs --- a/Setup.hs +++ b/Setup.hs @@ -1,3 +1,12 @@ -#!/usr/bin/env runhaskell -import Distribution.Simple -main = defaultMain +{-# LANGUAGE OverloadedStrings #-} + +import Distribution.Simple (defaultMainWithHooks) +import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks) + +main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose + overridesFile outputDir) + where name = "Poppler" + version = "0.18" + verbose = False + overridesFile = Nothing + outputDir = Nothing diff --git a/gi-poppler.cabal b/gi-poppler.cabal --- a/gi-poppler.cabal +++ b/gi-poppler.cabal @@ -1,6 +1,5 @@ --- Autogenerated, do not edit. name: gi-poppler -version: 0.0.34.15 +version: 0.18.1 synopsis: Poppler bindings description: Bindings for Poppler, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -9,82 +8,28 @@ author: Will Thompson, Iñaki García Etxebarria and Jonas Platte maintainer: Iñaki García Etxebarria (garetxe@gmail.com) category: Bindings -build-type: Simple -cabal-version: >=1.10 +build-type: Custom +cabal-version: >= 1.24 +custom-setup + setup-depends: base >= 4.7, + Cabal >= 1.24, + haskell-gi >= 0.15 + library default-language: Haskell2010 default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts other-extensions: PatternSynonyms ViewPatterns ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations - exposed-modules: GI.Poppler.Types - GI.Poppler - GI.Poppler.Callbacks - GI.Poppler.Constants - GI.Poppler.Enums - GI.Poppler.Flags - GI.Poppler.Functions - GI.Poppler.Objects - GI.Poppler.Objects.Annot - GI.Poppler.Objects.AnnotCircle - GI.Poppler.Objects.AnnotFileAttachment - GI.Poppler.Objects.AnnotFreeText - GI.Poppler.Objects.AnnotLine - GI.Poppler.Objects.AnnotMarkup - GI.Poppler.Objects.AnnotMovie - GI.Poppler.Objects.AnnotScreen - GI.Poppler.Objects.AnnotSquare - GI.Poppler.Objects.AnnotText - GI.Poppler.Objects.AnnotTextMarkup - GI.Poppler.Objects.Attachment - GI.Poppler.Objects.Document - GI.Poppler.Objects.FontInfo - GI.Poppler.Objects.FormField - GI.Poppler.Objects.Layer - GI.Poppler.Objects.Media - GI.Poppler.Objects.Movie - GI.Poppler.Objects.PSFile - GI.Poppler.Objects.Page - GI.Poppler.Objects.StructureElement - GI.Poppler.Structs - GI.Poppler.Structs.ActionAny - GI.Poppler.Structs.ActionGotoDest - GI.Poppler.Structs.ActionGotoRemote - GI.Poppler.Structs.ActionJavascript - GI.Poppler.Structs.ActionLaunch - GI.Poppler.Structs.ActionLayer - GI.Poppler.Structs.ActionMovie - GI.Poppler.Structs.ActionNamed - GI.Poppler.Structs.ActionOCGState - GI.Poppler.Structs.ActionRendition - GI.Poppler.Structs.ActionUri - GI.Poppler.Structs.AnnotCalloutLine - GI.Poppler.Structs.AnnotMapping - GI.Poppler.Structs.Color - GI.Poppler.Structs.Dest - GI.Poppler.Structs.FontsIter - GI.Poppler.Structs.FormFieldMapping - GI.Poppler.Structs.ImageMapping - GI.Poppler.Structs.IndexIter - GI.Poppler.Structs.LayersIter - GI.Poppler.Structs.LinkMapping - GI.Poppler.Structs.PageTransition - GI.Poppler.Structs.Point - GI.Poppler.Structs.Quadrilateral - GI.Poppler.Structs.Rectangle - GI.Poppler.Structs.StructureElementIter - GI.Poppler.Structs.TextAttributes - GI.Poppler.Structs.TextSpan - GI.Poppler.Unions - GI.Poppler.Unions.Action - pkgconfig-depends: poppler-glib >= 0.34 + + pkgconfig-depends: poppler-glib >= 0.18 && < 1 build-depends: base >= 4.7 && <5, haskell-gi-base >= 0.15 && < 1, - gi-glib >= 0.2.46.15 && < 0.2.47, - gi-gobject >= 0.2.46.15 && < 0.2.47, - gi-gio >= 0.2.46.15 && < 0.2.47, - gi-cairo >= 0.1.14.15 && < 0.1.15, + gi-glib == 2.0.*, + gi-gobject == 2.0.*, + gi-gio == 2.0.*, + gi-cairo == 1.0.*, bytestring >= 0.10, containers >= 0.5, text >= 1.0, - transformers >= 0.3 + transformers >= 0.5