gi-poppler-0.0.30.12: GI/Poppler/Objects/Page.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
-}
module GI.Poppler.Objects.Page
(
-- * Exported types
Page(..) ,
PageK ,
toPage ,
noPage ,
-- * Methods
-- ** pageAddAnnot
pageAddAnnot ,
-- ** pageFindText
pageFindText ,
-- ** pageFindTextWithOptions
pageFindTextWithOptions ,
-- ** pageFreeAnnotMapping
pageFreeAnnotMapping ,
-- ** pageFreeFormFieldMapping
pageFreeFormFieldMapping ,
-- ** pageFreeImageMapping
pageFreeImageMapping ,
-- ** pageFreeLinkMapping
pageFreeLinkMapping ,
-- ** pageFreeTextAttributes
pageFreeTextAttributes ,
-- ** pageGetAnnotMapping
pageGetAnnotMapping ,
-- ** pageGetCropBox
pageGetCropBox ,
-- ** pageGetDuration
pageGetDuration ,
-- ** pageGetFormFieldMapping
pageGetFormFieldMapping ,
-- ** pageGetImage
pageGetImage ,
-- ** pageGetImageMapping
pageGetImageMapping ,
-- ** pageGetIndex
pageGetIndex ,
-- ** pageGetLabel
pageGetLabel ,
-- ** pageGetLinkMapping
pageGetLinkMapping ,
-- ** pageGetSelectedRegion
pageGetSelectedRegion ,
-- ** pageGetSelectedText
pageGetSelectedText ,
-- ** pageGetSelectionRegion
pageGetSelectionRegion ,
-- ** pageGetSize
pageGetSize ,
-- ** pageGetText
pageGetText ,
-- ** pageGetTextAttributes
pageGetTextAttributes ,
-- ** pageGetTextAttributesForArea
pageGetTextAttributesForArea ,
-- ** pageGetTextForArea
pageGetTextForArea ,
-- ** pageGetTextLayout
pageGetTextLayout ,
-- ** pageGetTextLayoutForArea
pageGetTextLayoutForArea ,
-- ** pageGetThumbnail
pageGetThumbnail ,
-- ** pageGetThumbnailSize
pageGetThumbnailSize ,
-- ** pageGetTransition
pageGetTransition ,
-- ** pageRemoveAnnot
pageRemoveAnnot ,
-- ** pageRender
pageRender ,
-- ** pageRenderForPrinting
pageRenderForPrinting ,
-- ** pageRenderForPrintingWithOptions
pageRenderForPrintingWithOptions ,
-- ** pageRenderSelection
pageRenderSelection ,
-- ** pageRenderToPs
pageRenderToPs ,
-- ** pageSelectionRegionFree
pageSelectionRegionFree ,
-- * Properties
-- ** Label
PageLabelPropertyInfo ,
getPageLabel ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Poppler.Types
import GI.Poppler.Callbacks
import qualified GI.GObject as GObject
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
-- VVV Prop "label"
-- Type: TBasicType TUTF8
-- Flags: [PropertyReadable]
getPageLabel :: (MonadIO m, PageK o) => o -> m T.Text
getPageLabel obj = liftIO $ getObjectPropertyString obj "label"
data PageLabelPropertyInfo
instance AttrInfo PageLabelPropertyInfo where
type AttrAllowedOps PageLabelPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint PageLabelPropertyInfo = (~) ()
type AttrBaseTypeConstraint PageLabelPropertyInfo = PageK
type AttrGetType PageLabelPropertyInfo = T.Text
type AttrLabel PageLabelPropertyInfo = "Page::label"
attrGet _ = getPageLabel
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList Page = PageAttributeList
type PageAttributeList = ('[ '("label", PageLabelPropertyInfo)] :: [(Symbol, *)])
type instance SignalList Page = PageSignalList
type PageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method Page::add_annot
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "annot", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "annot", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- 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 ()
pageAddAnnot _obj annot = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let annot' = unsafeManagedPtrCastPtr annot
poppler_page_add_annot _obj' annot'
touchManagedPtr _obj
touchManagedPtr annot
return ()
-- method Page::find_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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]
pageFindText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
result <- poppler_page_find_text _obj' text'
checkUnexpectedReturnNULL "poppler_page_find_text" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed Rectangle) result'
g_list_free result
touchManagedPtr _obj
freeMem text'
return result''
-- method Page::find_text_with_options
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Poppler" "FindFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Poppler" "FindFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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]
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'
checkUnexpectedReturnNULL "poppler_page_find_text_with_options" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed Rectangle) result'
g_list_free result
touchManagedPtr _obj
freeMem text'
return result''
-- method Page::get_annot_mapping
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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]
pageGetAnnotMapping _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_page_get_annot_mapping _obj'
checkUnexpectedReturnNULL "poppler_page_get_annot_mapping" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed AnnotMapping) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method Page::get_crop_box
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Poppler" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- 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)
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'
-- method Page::get_duration
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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
pageGetDuration _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_page_get_duration _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
-- method Page::get_form_field_mapping
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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]
pageGetFormFieldMapping _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_page_get_form_field_mapping _obj'
checkUnexpectedReturnNULL "poppler_page_get_form_field_mapping" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed FormFieldMapping) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method Page::get_image
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "image_id", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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 TInt32
IO (Ptr Cairo.Surface)
pageGetImage ::
(MonadIO m, PageK a) =>
a -> -- _obj
Int32 -> -- image_id
m Cairo.Surface
pageGetImage _obj image_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_page_get_image _obj' image_id
checkUnexpectedReturnNULL "poppler_page_get_image" result
result' <- (wrapBoxed Cairo.Surface) result
touchManagedPtr _obj
return result'
-- method Page::get_image_mapping
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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]
pageGetImageMapping _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_page_get_image_mapping _obj'
checkUnexpectedReturnNULL "poppler_page_get_image_mapping" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed ImageMapping) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method Page::get_index
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- 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
pageGetIndex _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_page_get_index _obj'
touchManagedPtr _obj
return result
-- method Page::get_label
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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
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'
-- method Page::get_link_mapping
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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]
pageGetLinkMapping _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_page_get_link_mapping _obj'
checkUnexpectedReturnNULL "poppler_page_get_link_mapping" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed LinkMapping) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method Page::get_selected_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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
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'
-- method Page::get_selected_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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
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'
-- method Page::get_selection_region
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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]
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'
checkUnexpectedReturnNULL "poppler_page_get_selection_region" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed Rectangle) result'
g_list_free result
touchManagedPtr _obj
touchManagedPtr selection
return result''
-- method Page::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- 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)
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'')
-- method Page::get_text
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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
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'
-- method Page::get_text_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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]
pageGetTextAttributes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- poppler_page_get_text_attributes _obj'
checkUnexpectedReturnNULL "poppler_page_get_text_attributes" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed TextAttributes) result'
g_list_free result
touchManagedPtr _obj
return result''
-- method Page::get_text_attributes_for_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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]
pageGetTextAttributesForArea _obj area = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let area' = unsafeManagedPtrGetPtr area
result <- poppler_page_get_text_attributes_for_area _obj' area'
checkUnexpectedReturnNULL "poppler_page_get_text_attributes_for_area" result
result' <- unpackGList result
result'' <- mapM (wrapBoxed TextAttributes) result'
g_list_free result
touchManagedPtr _obj
touchManagedPtr area
return result''
-- method Page::get_text_for_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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
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'
-- method Page::get_text_layout
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangles", argType = TCArray False (-1) 2 (TInterface "Poppler" "Rectangle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_rectangles", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "n_rectangles", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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 TUInt32
IO CInt
pageGetTextLayout ::
(MonadIO m, PageK a) =>
a -> -- _obj
m (Bool,[Rectangle])
pageGetTextLayout _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
rectangles <- allocMem :: IO (Ptr (Ptr Rectangle))
n_rectangles <- allocMem :: IO (Ptr Word32)
result <- poppler_page_get_text_layout _obj' rectangles n_rectangles
n_rectangles' <- peek n_rectangles
let result' = (/= 0) result
rectangles' <- peek rectangles
rectangles'' <- (unpackBoxedArrayWithLength 32 n_rectangles') rectangles'
rectangles''' <- mapM (newBoxed Rectangle) rectangles''
freeMem rectangles'
touchManagedPtr _obj
freeMem rectangles
freeMem n_rectangles
return (result', rectangles''')
-- method Page::get_text_layout_for_area
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangles", argType = TCArray False (-1) 3 (TInterface "Poppler" "Rectangle"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferContainer},Arg {argName = "n_rectangles", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "n_rectangles", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "area", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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 TUInt32
IO CInt
pageGetTextLayoutForArea ::
(MonadIO m, PageK a) =>
a -> -- _obj
Rectangle -> -- area
m (Bool,[Rectangle])
pageGetTextLayoutForArea _obj area = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let area' = unsafeManagedPtrGetPtr area
rectangles <- allocMem :: IO (Ptr (Ptr Rectangle))
n_rectangles <- allocMem :: IO (Ptr Word32)
result <- poppler_page_get_text_layout_for_area _obj' area' rectangles n_rectangles
n_rectangles' <- peek n_rectangles
let result' = (/= 0) result
rectangles' <- peek rectangles
rectangles'' <- (unpackBoxedArrayWithLength 32 n_rectangles') rectangles'
rectangles''' <- mapM (newBoxed Rectangle) rectangles''
freeMem rectangles'
touchManagedPtr _obj
touchManagedPtr area
freeMem rectangles
freeMem n_rectangles
return (result', rectangles''')
-- method Page::get_thumbnail
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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
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'
-- method Page::get_thumbnail_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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 TInt32
Ptr Int32 -> -- height : TBasicType TInt32
IO CInt
pageGetThumbnailSize ::
(MonadIO m, PageK a) =>
a -> -- _obj
m (Bool,Int32,Int32)
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')
-- method Page::get_transition
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : 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
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'
-- method Page::remove_annot
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "annot", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "annot", argType = TInterface "Poppler" "Annot", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- 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 ()
pageRemoveAnnot _obj annot = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let annot' = unsafeManagedPtrCastPtr annot
poppler_page_remove_annot _obj' annot'
touchManagedPtr _obj
touchManagedPtr annot
return ()
-- method Page::render
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- 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 ()
pageRender _obj cairo = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cairo' = unsafeManagedPtrGetPtr cairo
poppler_page_render _obj' cairo'
touchManagedPtr _obj
touchManagedPtr cairo
return ()
-- method Page::render_for_printing
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- 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 ()
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 ()
-- method Page::render_for_printing_with_options
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Poppler" "PrintFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Poppler" "PrintFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- 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 ()
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 ()
-- method Page::render_selection
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cairo", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "old_selection", argType = TInterface "Poppler" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "style", argType = TInterface "Poppler" "SelectionStyle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "glyph_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "background_color", argType = TInterface "Poppler" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- 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 -> -- old_selection
SelectionStyle -> -- style
Color -> -- glyph_color
Color -> -- background_color
m ()
pageRenderSelection _obj cairo selection old_selection style glyph_color background_color = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let cairo' = unsafeManagedPtrGetPtr cairo
let selection' = unsafeManagedPtrGetPtr selection
let old_selection' = unsafeManagedPtrGetPtr old_selection
let style' = (fromIntegral . fromEnum) style
let glyph_color' = unsafeManagedPtrGetPtr glyph_color
let background_color' = unsafeManagedPtrGetPtr background_color
poppler_page_render_selection _obj' cairo' selection' old_selection' style' glyph_color' background_color'
touchManagedPtr _obj
touchManagedPtr cairo
touchManagedPtr selection
touchManagedPtr old_selection
touchManagedPtr glyph_color
touchManagedPtr background_color
return ()
-- method Page::render_to_ps
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ps_file", argType = TInterface "Poppler" "PSFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Poppler" "Page", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ps_file", argType = TInterface "Poppler" "PSFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- 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 -> -- ps_file
m ()
pageRenderToPs _obj ps_file = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let ps_file' = unsafeManagedPtrCastPtr ps_file
poppler_page_render_to_ps _obj' ps_file'
touchManagedPtr _obj
touchManagedPtr ps_file
return ()
-- method Page::free_annot_mapping
-- method type : MemberFunction
-- Args : [Arg {argName = "list", argType = TGList (TInterface "Poppler" "AnnotMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "list", argType = TGList (TInterface "Poppler" "AnnotMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- 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 ()
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 {argName = "list", argType = TGList (TInterface "Poppler" "FormFieldMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "list", argType = TGList (TInterface "Poppler" "FormFieldMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- 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 ()
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 {argName = "list", argType = TGList (TInterface "Poppler" "ImageMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "list", argType = TGList (TInterface "Poppler" "ImageMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- 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 ()
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 {argName = "list", argType = TGList (TInterface "Poppler" "LinkMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "list", argType = TGList (TInterface "Poppler" "LinkMapping"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- 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 ()
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 {argName = "list", argType = TGList (TInterface "Poppler" "TextAttributes"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "list", argType = TGList (TInterface "Poppler" "TextAttributes"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- 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 ()
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 {argName = "region", argType = TGList (TInterface "Poppler" "Rectangle"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "region", argType = TGList (TInterface "Poppler" "Rectangle"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- 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 ()
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 ()