{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Poppler.Objects.Document
(
Document(..) ,
IsDocument ,
toDocument ,
#if defined(ENABLE_OVERLOADING)
ResolveDocumentMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DocumentCreateDestsTreeMethodInfo ,
#endif
documentCreateDestsTree ,
#if defined(ENABLE_OVERLOADING)
DocumentFindDestMethodInfo ,
#endif
documentFindDest ,
#if defined(ENABLE_OVERLOADING)
DocumentGetAttachmentsMethodInfo ,
#endif
documentGetAttachments ,
#if defined(ENABLE_OVERLOADING)
DocumentGetAuthorMethodInfo ,
#endif
documentGetAuthor ,
#if defined(ENABLE_OVERLOADING)
DocumentGetCreationDateMethodInfo ,
#endif
documentGetCreationDate ,
#if defined(ENABLE_OVERLOADING)
DocumentGetCreationDateTimeMethodInfo ,
#endif
documentGetCreationDateTime ,
#if defined(ENABLE_OVERLOADING)
DocumentGetCreatorMethodInfo ,
#endif
documentGetCreator ,
#if defined(ENABLE_OVERLOADING)
DocumentGetFormFieldMethodInfo ,
#endif
documentGetFormField ,
#if defined(ENABLE_OVERLOADING)
DocumentGetIdMethodInfo ,
#endif
documentGetId ,
#if defined(ENABLE_OVERLOADING)
DocumentGetKeywordsMethodInfo ,
#endif
documentGetKeywords ,
#if defined(ENABLE_OVERLOADING)
DocumentGetMetadataMethodInfo ,
#endif
documentGetMetadata ,
#if defined(ENABLE_OVERLOADING)
DocumentGetModificationDateMethodInfo ,
#endif
documentGetModificationDate ,
#if defined(ENABLE_OVERLOADING)
DocumentGetModificationDateTimeMethodInfo,
#endif
documentGetModificationDateTime ,
#if defined(ENABLE_OVERLOADING)
DocumentGetNAttachmentsMethodInfo ,
#endif
documentGetNAttachments ,
#if defined(ENABLE_OVERLOADING)
DocumentGetNPagesMethodInfo ,
#endif
documentGetNPages ,
#if defined(ENABLE_OVERLOADING)
DocumentGetPageMethodInfo ,
#endif
documentGetPage ,
#if defined(ENABLE_OVERLOADING)
DocumentGetPageByLabelMethodInfo ,
#endif
documentGetPageByLabel ,
#if defined(ENABLE_OVERLOADING)
DocumentGetPageLayoutMethodInfo ,
#endif
documentGetPageLayout ,
#if defined(ENABLE_OVERLOADING)
DocumentGetPageModeMethodInfo ,
#endif
documentGetPageMode ,
#if defined(ENABLE_OVERLOADING)
DocumentGetPdfConformanceMethodInfo ,
#endif
documentGetPdfConformance ,
#if defined(ENABLE_OVERLOADING)
DocumentGetPdfPartMethodInfo ,
#endif
documentGetPdfPart ,
#if defined(ENABLE_OVERLOADING)
DocumentGetPdfSubtypeMethodInfo ,
#endif
documentGetPdfSubtype ,
#if defined(ENABLE_OVERLOADING)
DocumentGetPdfSubtypeStringMethodInfo ,
#endif
documentGetPdfSubtypeString ,
#if defined(ENABLE_OVERLOADING)
DocumentGetPdfVersionMethodInfo ,
#endif
documentGetPdfVersion ,
#if defined(ENABLE_OVERLOADING)
DocumentGetPdfVersionStringMethodInfo ,
#endif
documentGetPdfVersionString ,
#if defined(ENABLE_OVERLOADING)
DocumentGetPermissionsMethodInfo ,
#endif
documentGetPermissions ,
#if defined(ENABLE_OVERLOADING)
DocumentGetPrintDuplexMethodInfo ,
#endif
documentGetPrintDuplex ,
#if defined(ENABLE_OVERLOADING)
DocumentGetPrintNCopiesMethodInfo ,
#endif
documentGetPrintNCopies ,
#if defined(ENABLE_OVERLOADING)
DocumentGetPrintPageRangesMethodInfo ,
#endif
documentGetPrintPageRanges ,
#if defined(ENABLE_OVERLOADING)
DocumentGetPrintScalingMethodInfo ,
#endif
documentGetPrintScaling ,
#if defined(ENABLE_OVERLOADING)
DocumentGetProducerMethodInfo ,
#endif
documentGetProducer ,
#if defined(ENABLE_OVERLOADING)
DocumentGetSubjectMethodInfo ,
#endif
documentGetSubject ,
#if defined(ENABLE_OVERLOADING)
DocumentGetTitleMethodInfo ,
#endif
documentGetTitle ,
#if defined(ENABLE_OVERLOADING)
DocumentHasAttachmentsMethodInfo ,
#endif
documentHasAttachments ,
#if defined(ENABLE_OVERLOADING)
DocumentHasJavascriptMethodInfo ,
#endif
documentHasJavascript ,
#if defined(ENABLE_OVERLOADING)
DocumentIsLinearizedMethodInfo ,
#endif
documentIsLinearized ,
documentNewFromBytes ,
documentNewFromData ,
documentNewFromFile ,
documentNewFromGfile ,
documentNewFromStream ,
#if defined(ENABLE_OVERLOADING)
DocumentSaveMethodInfo ,
#endif
documentSave ,
#if defined(ENABLE_OVERLOADING)
DocumentSaveACopyMethodInfo ,
#endif
documentSaveACopy ,
#if defined(ENABLE_OVERLOADING)
DocumentSetAuthorMethodInfo ,
#endif
documentSetAuthor ,
#if defined(ENABLE_OVERLOADING)
DocumentSetCreationDateMethodInfo ,
#endif
documentSetCreationDate ,
#if defined(ENABLE_OVERLOADING)
DocumentSetCreationDateTimeMethodInfo ,
#endif
documentSetCreationDateTime ,
#if defined(ENABLE_OVERLOADING)
DocumentSetCreatorMethodInfo ,
#endif
documentSetCreator ,
#if defined(ENABLE_OVERLOADING)
DocumentSetKeywordsMethodInfo ,
#endif
documentSetKeywords ,
#if defined(ENABLE_OVERLOADING)
DocumentSetModificationDateMethodInfo ,
#endif
documentSetModificationDate ,
#if defined(ENABLE_OVERLOADING)
DocumentSetModificationDateTimeMethodInfo,
#endif
documentSetModificationDateTime ,
#if defined(ENABLE_OVERLOADING)
DocumentSetProducerMethodInfo ,
#endif
documentSetProducer ,
#if defined(ENABLE_OVERLOADING)
DocumentSetSubjectMethodInfo ,
#endif
documentSetSubject ,
#if defined(ENABLE_OVERLOADING)
DocumentSetTitleMethodInfo ,
#endif
documentSetTitle ,
#if defined(ENABLE_OVERLOADING)
DocumentAuthorPropertyInfo ,
#endif
constructDocumentAuthor ,
#if defined(ENABLE_OVERLOADING)
documentAuthor ,
#endif
getDocumentAuthor ,
setDocumentAuthor ,
#if defined(ENABLE_OVERLOADING)
DocumentCreationDatePropertyInfo ,
#endif
constructDocumentCreationDate ,
#if defined(ENABLE_OVERLOADING)
documentCreationDate ,
#endif
getDocumentCreationDate ,
setDocumentCreationDate ,
#if defined(ENABLE_OVERLOADING)
DocumentCreationDatetimePropertyInfo ,
#endif
clearDocumentCreationDatetime ,
constructDocumentCreationDatetime ,
#if defined(ENABLE_OVERLOADING)
documentCreationDatetime ,
#endif
getDocumentCreationDatetime ,
setDocumentCreationDatetime ,
#if defined(ENABLE_OVERLOADING)
DocumentCreatorPropertyInfo ,
#endif
constructDocumentCreator ,
#if defined(ENABLE_OVERLOADING)
documentCreator ,
#endif
getDocumentCreator ,
setDocumentCreator ,
#if defined(ENABLE_OVERLOADING)
DocumentFormatPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentFormat ,
#endif
getDocumentFormat ,
#if defined(ENABLE_OVERLOADING)
DocumentFormatMajorPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentFormatMajor ,
#endif
getDocumentFormatMajor ,
#if defined(ENABLE_OVERLOADING)
DocumentFormatMinorPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentFormatMinor ,
#endif
getDocumentFormatMinor ,
#if defined(ENABLE_OVERLOADING)
DocumentKeywordsPropertyInfo ,
#endif
constructDocumentKeywords ,
#if defined(ENABLE_OVERLOADING)
documentKeywords ,
#endif
getDocumentKeywords ,
setDocumentKeywords ,
#if defined(ENABLE_OVERLOADING)
DocumentLinearizedPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentLinearized ,
#endif
getDocumentLinearized ,
#if defined(ENABLE_OVERLOADING)
DocumentMetadataPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentMetadata ,
#endif
getDocumentMetadata ,
#if defined(ENABLE_OVERLOADING)
DocumentModDatePropertyInfo ,
#endif
constructDocumentModDate ,
#if defined(ENABLE_OVERLOADING)
documentModDate ,
#endif
getDocumentModDate ,
setDocumentModDate ,
#if defined(ENABLE_OVERLOADING)
DocumentModDatetimePropertyInfo ,
#endif
clearDocumentModDatetime ,
constructDocumentModDatetime ,
#if defined(ENABLE_OVERLOADING)
documentModDatetime ,
#endif
getDocumentModDatetime ,
setDocumentModDatetime ,
#if defined(ENABLE_OVERLOADING)
DocumentPageLayoutPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentPageLayout ,
#endif
getDocumentPageLayout ,
#if defined(ENABLE_OVERLOADING)
DocumentPageModePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentPageMode ,
#endif
getDocumentPageMode ,
#if defined(ENABLE_OVERLOADING)
DocumentPermissionsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentPermissions ,
#endif
getDocumentPermissions ,
#if defined(ENABLE_OVERLOADING)
DocumentPrintDuplexPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentPrintDuplex ,
#endif
getDocumentPrintDuplex ,
#if defined(ENABLE_OVERLOADING)
DocumentPrintNCopiesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentPrintNCopies ,
#endif
getDocumentPrintNCopies ,
#if defined(ENABLE_OVERLOADING)
DocumentPrintScalingPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentPrintScaling ,
#endif
getDocumentPrintScaling ,
#if defined(ENABLE_OVERLOADING)
DocumentProducerPropertyInfo ,
#endif
constructDocumentProducer ,
#if defined(ENABLE_OVERLOADING)
documentProducer ,
#endif
getDocumentProducer ,
setDocumentProducer ,
#if defined(ENABLE_OVERLOADING)
DocumentSubjectPropertyInfo ,
#endif
constructDocumentSubject ,
#if defined(ENABLE_OVERLOADING)
documentSubject ,
#endif
getDocumentSubject ,
setDocumentSubject ,
#if defined(ENABLE_OVERLOADING)
DocumentSubtypePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentSubtype ,
#endif
getDocumentSubtype ,
#if defined(ENABLE_OVERLOADING)
DocumentSubtypeConformancePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentSubtypeConformance ,
#endif
getDocumentSubtypeConformance ,
#if defined(ENABLE_OVERLOADING)
DocumentSubtypePartPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentSubtypePart ,
#endif
getDocumentSubtypePart ,
#if defined(ENABLE_OVERLOADING)
DocumentSubtypeStringPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentSubtypeString ,
#endif
getDocumentSubtypeString ,
#if defined(ENABLE_OVERLOADING)
DocumentTitlePropertyInfo ,
#endif
constructDocumentTitle ,
#if defined(ENABLE_OVERLOADING)
documentTitle ,
#endif
getDocumentTitle ,
setDocumentTitle ,
#if defined(ENABLE_OVERLOADING)
DocumentViewerPreferencesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
documentViewerPreferences ,
#endif
getDocumentViewerPreferences ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GLib.Structs.DateTime as GLib.DateTime
import qualified GI.GLib.Structs.Tree as GLib.Tree
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.File as Gio.File
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.InputStream as Gio.InputStream
import {-# SOURCE #-} qualified GI.Poppler.Enums as Poppler.Enums
import {-# SOURCE #-} qualified GI.Poppler.Flags as Poppler.Flags
import {-# SOURCE #-} qualified GI.Poppler.Objects.Attachment as Poppler.Attachment
import {-# SOURCE #-} qualified GI.Poppler.Objects.FormField as Poppler.FormField
import {-# SOURCE #-} qualified GI.Poppler.Objects.Page as Poppler.Page
import {-# SOURCE #-} qualified GI.Poppler.Structs.Dest as Poppler.Dest
import {-# SOURCE #-} qualified GI.Poppler.Structs.PageRange as Poppler.PageRange
newtype Document = Document (SP.ManagedPtr Document)
deriving (Document -> Document -> Bool
(Document -> Document -> Bool)
-> (Document -> Document -> Bool) -> Eq Document
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Document -> Document -> Bool
$c/= :: Document -> Document -> Bool
== :: Document -> Document -> Bool
$c== :: Document -> Document -> Bool
Eq)
instance SP.ManagedPtrNewtype Document where
toManagedPtr :: Document -> ManagedPtr Document
toManagedPtr (Document ManagedPtr Document
p) = ManagedPtr Document
p
foreign import ccall "poppler_document_get_type"
c_poppler_document_get_type :: IO B.Types.GType
instance B.Types.TypedObject Document where
glibType :: IO GType
glibType = IO GType
c_poppler_document_get_type
instance B.Types.GObject Document
class (SP.GObject o, O.IsDescendantOf Document o) => IsDocument o
instance (SP.GObject o, O.IsDescendantOf Document o) => IsDocument o
instance O.HasParentTypes Document
type instance O.ParentTypes Document = '[GObject.Object.Object]
toDocument :: (MIO.MonadIO m, IsDocument o) => o -> m Document
toDocument :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m Document
toDocument = IO Document -> m Document
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Document -> m Document)
-> (o -> IO Document) -> o -> m Document
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Document -> Document) -> o -> IO Document
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Document -> Document
Document
instance B.GValue.IsGValue (Maybe Document) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_poppler_document_get_type
gvalueSet_ :: Ptr GValue -> Maybe Document -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Document
P.Nothing = Ptr GValue -> Ptr Document -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Document
forall a. Ptr a
FP.nullPtr :: FP.Ptr Document)
gvalueSet_ Ptr GValue
gv (P.Just Document
obj) = Document -> (Ptr Document -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Document
obj (Ptr GValue -> Ptr Document -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Document)
gvalueGet_ Ptr GValue
gv = do
Ptr Document
ptr <- Ptr GValue -> IO (Ptr Document)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Document)
if Ptr Document
ptr Ptr Document -> Ptr Document -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Document
forall a. Ptr a
FP.nullPtr
then Document -> Maybe Document
forall a. a -> Maybe a
P.Just (Document -> Maybe Document) -> IO Document -> IO (Maybe Document)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Document -> Document) -> Ptr Document -> IO Document
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Document -> Document
Document Ptr Document
ptr
else Maybe Document -> IO (Maybe Document)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Document
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDocumentMethod (t :: Symbol) (o :: *) :: * where
ResolveDocumentMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDocumentMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDocumentMethod "createDestsTree" o = DocumentCreateDestsTreeMethodInfo
ResolveDocumentMethod "findDest" o = DocumentFindDestMethodInfo
ResolveDocumentMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDocumentMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDocumentMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDocumentMethod "hasAttachments" o = DocumentHasAttachmentsMethodInfo
ResolveDocumentMethod "hasJavascript" o = DocumentHasJavascriptMethodInfo
ResolveDocumentMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDocumentMethod "isLinearized" o = DocumentIsLinearizedMethodInfo
ResolveDocumentMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDocumentMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDocumentMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDocumentMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDocumentMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDocumentMethod "save" o = DocumentSaveMethodInfo
ResolveDocumentMethod "saveACopy" o = DocumentSaveACopyMethodInfo
ResolveDocumentMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDocumentMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDocumentMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDocumentMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDocumentMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDocumentMethod "getAttachments" o = DocumentGetAttachmentsMethodInfo
ResolveDocumentMethod "getAuthor" o = DocumentGetAuthorMethodInfo
ResolveDocumentMethod "getCreationDate" o = DocumentGetCreationDateMethodInfo
ResolveDocumentMethod "getCreationDateTime" o = DocumentGetCreationDateTimeMethodInfo
ResolveDocumentMethod "getCreator" o = DocumentGetCreatorMethodInfo
ResolveDocumentMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDocumentMethod "getFormField" o = DocumentGetFormFieldMethodInfo
ResolveDocumentMethod "getId" o = DocumentGetIdMethodInfo
ResolveDocumentMethod "getKeywords" o = DocumentGetKeywordsMethodInfo
ResolveDocumentMethod "getMetadata" o = DocumentGetMetadataMethodInfo
ResolveDocumentMethod "getModificationDate" o = DocumentGetModificationDateMethodInfo
ResolveDocumentMethod "getModificationDateTime" o = DocumentGetModificationDateTimeMethodInfo
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 "getPdfConformance" o = DocumentGetPdfConformanceMethodInfo
ResolveDocumentMethod "getPdfPart" o = DocumentGetPdfPartMethodInfo
ResolveDocumentMethod "getPdfSubtype" o = DocumentGetPdfSubtypeMethodInfo
ResolveDocumentMethod "getPdfSubtypeString" o = DocumentGetPdfSubtypeStringMethodInfo
ResolveDocumentMethod "getPdfVersion" o = DocumentGetPdfVersionMethodInfo
ResolveDocumentMethod "getPdfVersionString" o = DocumentGetPdfVersionStringMethodInfo
ResolveDocumentMethod "getPermissions" o = DocumentGetPermissionsMethodInfo
ResolveDocumentMethod "getPrintDuplex" o = DocumentGetPrintDuplexMethodInfo
ResolveDocumentMethod "getPrintNCopies" o = DocumentGetPrintNCopiesMethodInfo
ResolveDocumentMethod "getPrintPageRanges" o = DocumentGetPrintPageRangesMethodInfo
ResolveDocumentMethod "getPrintScaling" o = DocumentGetPrintScalingMethodInfo
ResolveDocumentMethod "getProducer" o = DocumentGetProducerMethodInfo
ResolveDocumentMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDocumentMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDocumentMethod "getSubject" o = DocumentGetSubjectMethodInfo
ResolveDocumentMethod "getTitle" o = DocumentGetTitleMethodInfo
ResolveDocumentMethod "setAuthor" o = DocumentSetAuthorMethodInfo
ResolveDocumentMethod "setCreationDate" o = DocumentSetCreationDateMethodInfo
ResolveDocumentMethod "setCreationDateTime" o = DocumentSetCreationDateTimeMethodInfo
ResolveDocumentMethod "setCreator" o = DocumentSetCreatorMethodInfo
ResolveDocumentMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDocumentMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDocumentMethod "setKeywords" o = DocumentSetKeywordsMethodInfo
ResolveDocumentMethod "setModificationDate" o = DocumentSetModificationDateMethodInfo
ResolveDocumentMethod "setModificationDateTime" o = DocumentSetModificationDateTimeMethodInfo
ResolveDocumentMethod "setProducer" o = DocumentSetProducerMethodInfo
ResolveDocumentMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDocumentMethod "setSubject" o = DocumentSetSubjectMethodInfo
ResolveDocumentMethod "setTitle" o = DocumentSetTitleMethodInfo
ResolveDocumentMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDocumentMethod t Document, O.OverloadedMethod info Document p) => OL.IsLabel t (Document -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveDocumentMethod t Document, O.OverloadedMethod info Document p, R.HasField t Document p) => R.HasField t Document p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDocumentMethod t Document, O.OverloadedMethodInfo info Document) => OL.IsLabel t (O.MethodProxy info Document) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDocumentAuthor :: (MonadIO m, IsDocument o) => o -> m (Maybe T.Text)
getDocumentAuthor :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m (Maybe Text)
getDocumentAuthor o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"author"
setDocumentAuthor :: (MonadIO m, IsDocument o) => o -> T.Text -> m ()
setDocumentAuthor :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> Text -> m ()
setDocumentAuthor o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"author" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDocumentAuthor :: (IsDocument o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDocumentAuthor :: forall o (m :: * -> *).
(IsDocument o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDocumentAuthor Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"author" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DocumentAuthorPropertyInfo
instance AttrInfo DocumentAuthorPropertyInfo where
type AttrAllowedOps DocumentAuthorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DocumentAuthorPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentAuthorPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DocumentAuthorPropertyInfo = (~) T.Text
type AttrTransferType DocumentAuthorPropertyInfo = T.Text
type AttrGetType DocumentAuthorPropertyInfo = (Maybe T.Text)
type AttrLabel DocumentAuthorPropertyInfo = "author"
type AttrOrigin DocumentAuthorPropertyInfo = Document
attrGet = getDocumentAuthor
attrSet = setDocumentAuthor
attrTransfer _ v = do
return v
attrConstruct = constructDocumentAuthor
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.author"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:author"
})
#endif
getDocumentCreationDate :: (MonadIO m, IsDocument o) => o -> m Int32
getDocumentCreationDate :: forall (m :: * -> *) o. (MonadIO m, IsDocument o) => o -> m Int32
getDocumentCreationDate o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"creation-date"
setDocumentCreationDate :: (MonadIO m, IsDocument o) => o -> Int32 -> m ()
setDocumentCreationDate :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> Int32 -> m ()
setDocumentCreationDate o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"creation-date" Int32
val
constructDocumentCreationDate :: (IsDocument o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructDocumentCreationDate :: forall o (m :: * -> *).
(IsDocument o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructDocumentCreationDate Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"creation-date" Int32
val
#if defined(ENABLE_OVERLOADING)
data DocumentCreationDatePropertyInfo
instance AttrInfo DocumentCreationDatePropertyInfo where
type AttrAllowedOps DocumentCreationDatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DocumentCreationDatePropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentCreationDatePropertyInfo = (~) Int32
type AttrTransferTypeConstraint DocumentCreationDatePropertyInfo = (~) Int32
type AttrTransferType DocumentCreationDatePropertyInfo = Int32
type AttrGetType DocumentCreationDatePropertyInfo = Int32
type AttrLabel DocumentCreationDatePropertyInfo = "creation-date"
type AttrOrigin DocumentCreationDatePropertyInfo = Document
attrGet = getDocumentCreationDate
attrSet = setDocumentCreationDate
attrTransfer _ v = do
return v
attrConstruct = constructDocumentCreationDate
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.creationDate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:creationDate"
})
#endif
getDocumentCreationDatetime :: (MonadIO m, IsDocument o) => o -> m (Maybe GLib.DateTime.DateTime)
getDocumentCreationDatetime :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m (Maybe DateTime)
getDocumentCreationDatetime o
obj = IO (Maybe DateTime) -> m (Maybe DateTime)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe DateTime) -> m (Maybe DateTime))
-> IO (Maybe DateTime) -> m (Maybe DateTime)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DateTime -> DateTime)
-> IO (Maybe DateTime)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"creation-datetime" ManagedPtr DateTime -> DateTime
GLib.DateTime.DateTime
setDocumentCreationDatetime :: (MonadIO m, IsDocument o) => o -> GLib.DateTime.DateTime -> m ()
setDocumentCreationDatetime :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> DateTime -> m ()
setDocumentCreationDatetime o
obj DateTime
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe DateTime -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"creation-datetime" (DateTime -> Maybe DateTime
forall a. a -> Maybe a
Just DateTime
val)
constructDocumentCreationDatetime :: (IsDocument o, MIO.MonadIO m) => GLib.DateTime.DateTime -> m (GValueConstruct o)
constructDocumentCreationDatetime :: forall o (m :: * -> *).
(IsDocument o, MonadIO m) =>
DateTime -> m (GValueConstruct o)
constructDocumentCreationDatetime DateTime
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe DateTime -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"creation-datetime" (DateTime -> Maybe DateTime
forall a. a -> Maybe a
P.Just DateTime
val)
clearDocumentCreationDatetime :: (MonadIO m, IsDocument o) => o -> m ()
clearDocumentCreationDatetime :: forall (m :: * -> *) o. (MonadIO m, IsDocument o) => o -> m ()
clearDocumentCreationDatetime o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe DateTime -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"creation-datetime" (Maybe DateTime
forall a. Maybe a
Nothing :: Maybe GLib.DateTime.DateTime)
#if defined(ENABLE_OVERLOADING)
data DocumentCreationDatetimePropertyInfo
instance AttrInfo DocumentCreationDatetimePropertyInfo where
type AttrAllowedOps DocumentCreationDatetimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DocumentCreationDatetimePropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentCreationDatetimePropertyInfo = (~) GLib.DateTime.DateTime
type AttrTransferTypeConstraint DocumentCreationDatetimePropertyInfo = (~) GLib.DateTime.DateTime
type AttrTransferType DocumentCreationDatetimePropertyInfo = GLib.DateTime.DateTime
type AttrGetType DocumentCreationDatetimePropertyInfo = (Maybe GLib.DateTime.DateTime)
type AttrLabel DocumentCreationDatetimePropertyInfo = "creation-datetime"
type AttrOrigin DocumentCreationDatetimePropertyInfo = Document
attrGet = getDocumentCreationDatetime
attrSet = setDocumentCreationDatetime
attrTransfer _ v = do
return v
attrConstruct = constructDocumentCreationDatetime
attrClear = clearDocumentCreationDatetime
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.creationDatetime"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:creationDatetime"
})
#endif
getDocumentCreator :: (MonadIO m, IsDocument o) => o -> m (Maybe T.Text)
getDocumentCreator :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m (Maybe Text)
getDocumentCreator o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"creator"
setDocumentCreator :: (MonadIO m, IsDocument o) => o -> T.Text -> m ()
setDocumentCreator :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> Text -> m ()
setDocumentCreator o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"creator" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDocumentCreator :: (IsDocument o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDocumentCreator :: forall o (m :: * -> *).
(IsDocument o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDocumentCreator Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"creator" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DocumentCreatorPropertyInfo
instance AttrInfo DocumentCreatorPropertyInfo where
type AttrAllowedOps DocumentCreatorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DocumentCreatorPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentCreatorPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DocumentCreatorPropertyInfo = (~) T.Text
type AttrTransferType DocumentCreatorPropertyInfo = T.Text
type AttrGetType DocumentCreatorPropertyInfo = (Maybe T.Text)
type AttrLabel DocumentCreatorPropertyInfo = "creator"
type AttrOrigin DocumentCreatorPropertyInfo = Document
attrGet = getDocumentCreator
attrSet = setDocumentCreator
attrTransfer _ v = do
return v
attrConstruct = constructDocumentCreator
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.creator"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:creator"
})
#endif
getDocumentFormat :: (MonadIO m, IsDocument o) => o -> m (Maybe T.Text)
getDocumentFormat :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m (Maybe Text)
getDocumentFormat o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"format"
#if defined(ENABLE_OVERLOADING)
data DocumentFormatPropertyInfo
instance AttrInfo DocumentFormatPropertyInfo where
type AttrAllowedOps DocumentFormatPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DocumentFormatPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentFormatPropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentFormatPropertyInfo = (~) ()
type AttrTransferType DocumentFormatPropertyInfo = ()
type AttrGetType DocumentFormatPropertyInfo = (Maybe T.Text)
type AttrLabel DocumentFormatPropertyInfo = "format"
type AttrOrigin DocumentFormatPropertyInfo = Document
attrGet = getDocumentFormat
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.format"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:format"
})
#endif
getDocumentFormatMajor :: (MonadIO m, IsDocument o) => o -> m Word32
getDocumentFormatMajor :: forall (m :: * -> *) o. (MonadIO m, IsDocument o) => o -> m Word32
getDocumentFormatMajor o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"format-major"
#if defined(ENABLE_OVERLOADING)
data DocumentFormatMajorPropertyInfo
instance AttrInfo DocumentFormatMajorPropertyInfo where
type AttrAllowedOps DocumentFormatMajorPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DocumentFormatMajorPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentFormatMajorPropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentFormatMajorPropertyInfo = (~) ()
type AttrTransferType DocumentFormatMajorPropertyInfo = ()
type AttrGetType DocumentFormatMajorPropertyInfo = Word32
type AttrLabel DocumentFormatMajorPropertyInfo = "format-major"
type AttrOrigin DocumentFormatMajorPropertyInfo = Document
attrGet = getDocumentFormatMajor
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.formatMajor"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:formatMajor"
})
#endif
getDocumentFormatMinor :: (MonadIO m, IsDocument o) => o -> m Word32
getDocumentFormatMinor :: forall (m :: * -> *) o. (MonadIO m, IsDocument o) => o -> m Word32
getDocumentFormatMinor o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"format-minor"
#if defined(ENABLE_OVERLOADING)
data DocumentFormatMinorPropertyInfo
instance AttrInfo DocumentFormatMinorPropertyInfo where
type AttrAllowedOps DocumentFormatMinorPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DocumentFormatMinorPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentFormatMinorPropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentFormatMinorPropertyInfo = (~) ()
type AttrTransferType DocumentFormatMinorPropertyInfo = ()
type AttrGetType DocumentFormatMinorPropertyInfo = Word32
type AttrLabel DocumentFormatMinorPropertyInfo = "format-minor"
type AttrOrigin DocumentFormatMinorPropertyInfo = Document
attrGet = getDocumentFormatMinor
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.formatMinor"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:formatMinor"
})
#endif
getDocumentKeywords :: (MonadIO m, IsDocument o) => o -> m (Maybe T.Text)
getDocumentKeywords :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m (Maybe Text)
getDocumentKeywords o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"keywords"
setDocumentKeywords :: (MonadIO m, IsDocument o) => o -> T.Text -> m ()
setDocumentKeywords :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> Text -> m ()
setDocumentKeywords o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"keywords" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDocumentKeywords :: (IsDocument o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDocumentKeywords :: forall o (m :: * -> *).
(IsDocument o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDocumentKeywords Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"keywords" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DocumentKeywordsPropertyInfo
instance AttrInfo DocumentKeywordsPropertyInfo where
type AttrAllowedOps DocumentKeywordsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DocumentKeywordsPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentKeywordsPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DocumentKeywordsPropertyInfo = (~) T.Text
type AttrTransferType DocumentKeywordsPropertyInfo = T.Text
type AttrGetType DocumentKeywordsPropertyInfo = (Maybe T.Text)
type AttrLabel DocumentKeywordsPropertyInfo = "keywords"
type AttrOrigin DocumentKeywordsPropertyInfo = Document
attrGet = getDocumentKeywords
attrSet = setDocumentKeywords
attrTransfer _ v = do
return v
attrConstruct = constructDocumentKeywords
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.keywords"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:keywords"
})
#endif
getDocumentLinearized :: (MonadIO m, IsDocument o) => o -> m Bool
getDocumentLinearized :: forall (m :: * -> *) o. (MonadIO m, IsDocument o) => o -> m Bool
getDocumentLinearized o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"linearized"
#if defined(ENABLE_OVERLOADING)
data DocumentLinearizedPropertyInfo
instance AttrInfo DocumentLinearizedPropertyInfo where
type AttrAllowedOps DocumentLinearizedPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DocumentLinearizedPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentLinearizedPropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentLinearizedPropertyInfo = (~) ()
type AttrTransferType DocumentLinearizedPropertyInfo = ()
type AttrGetType DocumentLinearizedPropertyInfo = Bool
type AttrLabel DocumentLinearizedPropertyInfo = "linearized"
type AttrOrigin DocumentLinearizedPropertyInfo = Document
attrGet = getDocumentLinearized
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.linearized"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:linearized"
})
#endif
getDocumentMetadata :: (MonadIO m, IsDocument o) => o -> m (Maybe T.Text)
getDocumentMetadata :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m (Maybe Text)
getDocumentMetadata o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"metadata"
#if defined(ENABLE_OVERLOADING)
data DocumentMetadataPropertyInfo
instance AttrInfo DocumentMetadataPropertyInfo where
type AttrAllowedOps DocumentMetadataPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DocumentMetadataPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentMetadataPropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentMetadataPropertyInfo = (~) ()
type AttrTransferType DocumentMetadataPropertyInfo = ()
type AttrGetType DocumentMetadataPropertyInfo = (Maybe T.Text)
type AttrLabel DocumentMetadataPropertyInfo = "metadata"
type AttrOrigin DocumentMetadataPropertyInfo = Document
attrGet = getDocumentMetadata
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.metadata"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:metadata"
})
#endif
getDocumentModDate :: (MonadIO m, IsDocument o) => o -> m Int32
getDocumentModDate :: forall (m :: * -> *) o. (MonadIO m, IsDocument o) => o -> m Int32
getDocumentModDate o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"mod-date"
setDocumentModDate :: (MonadIO m, IsDocument o) => o -> Int32 -> m ()
setDocumentModDate :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> Int32 -> m ()
setDocumentModDate o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"mod-date" Int32
val
constructDocumentModDate :: (IsDocument o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructDocumentModDate :: forall o (m :: * -> *).
(IsDocument o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructDocumentModDate Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"mod-date" Int32
val
#if defined(ENABLE_OVERLOADING)
data DocumentModDatePropertyInfo
instance AttrInfo DocumentModDatePropertyInfo where
type AttrAllowedOps DocumentModDatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DocumentModDatePropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentModDatePropertyInfo = (~) Int32
type AttrTransferTypeConstraint DocumentModDatePropertyInfo = (~) Int32
type AttrTransferType DocumentModDatePropertyInfo = Int32
type AttrGetType DocumentModDatePropertyInfo = Int32
type AttrLabel DocumentModDatePropertyInfo = "mod-date"
type AttrOrigin DocumentModDatePropertyInfo = Document
attrGet = getDocumentModDate
attrSet = setDocumentModDate
attrTransfer _ v = do
return v
attrConstruct = constructDocumentModDate
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.modDate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:modDate"
})
#endif
getDocumentModDatetime :: (MonadIO m, IsDocument o) => o -> m (Maybe GLib.DateTime.DateTime)
getDocumentModDatetime :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m (Maybe DateTime)
getDocumentModDatetime o
obj = IO (Maybe DateTime) -> m (Maybe DateTime)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe DateTime) -> m (Maybe DateTime))
-> IO (Maybe DateTime) -> m (Maybe DateTime)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DateTime -> DateTime)
-> IO (Maybe DateTime)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"mod-datetime" ManagedPtr DateTime -> DateTime
GLib.DateTime.DateTime
setDocumentModDatetime :: (MonadIO m, IsDocument o) => o -> GLib.DateTime.DateTime -> m ()
setDocumentModDatetime :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> DateTime -> m ()
setDocumentModDatetime o
obj DateTime
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe DateTime -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"mod-datetime" (DateTime -> Maybe DateTime
forall a. a -> Maybe a
Just DateTime
val)
constructDocumentModDatetime :: (IsDocument o, MIO.MonadIO m) => GLib.DateTime.DateTime -> m (GValueConstruct o)
constructDocumentModDatetime :: forall o (m :: * -> *).
(IsDocument o, MonadIO m) =>
DateTime -> m (GValueConstruct o)
constructDocumentModDatetime DateTime
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe DateTime -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"mod-datetime" (DateTime -> Maybe DateTime
forall a. a -> Maybe a
P.Just DateTime
val)
clearDocumentModDatetime :: (MonadIO m, IsDocument o) => o -> m ()
clearDocumentModDatetime :: forall (m :: * -> *) o. (MonadIO m, IsDocument o) => o -> m ()
clearDocumentModDatetime o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe DateTime -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"mod-datetime" (Maybe DateTime
forall a. Maybe a
Nothing :: Maybe GLib.DateTime.DateTime)
#if defined(ENABLE_OVERLOADING)
data DocumentModDatetimePropertyInfo
instance AttrInfo DocumentModDatetimePropertyInfo where
type AttrAllowedOps DocumentModDatetimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DocumentModDatetimePropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentModDatetimePropertyInfo = (~) GLib.DateTime.DateTime
type AttrTransferTypeConstraint DocumentModDatetimePropertyInfo = (~) GLib.DateTime.DateTime
type AttrTransferType DocumentModDatetimePropertyInfo = GLib.DateTime.DateTime
type AttrGetType DocumentModDatetimePropertyInfo = (Maybe GLib.DateTime.DateTime)
type AttrLabel DocumentModDatetimePropertyInfo = "mod-datetime"
type AttrOrigin DocumentModDatetimePropertyInfo = Document
attrGet = getDocumentModDatetime
attrSet = setDocumentModDatetime
attrTransfer _ v = do
return v
attrConstruct = constructDocumentModDatetime
attrClear = clearDocumentModDatetime
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.modDatetime"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:modDatetime"
})
#endif
getDocumentPageLayout :: (MonadIO m, IsDocument o) => o -> m Poppler.Enums.PageLayout
getDocumentPageLayout :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m PageLayout
getDocumentPageLayout o
obj = IO PageLayout -> m PageLayout
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PageLayout -> m PageLayout) -> IO PageLayout -> m PageLayout
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PageLayout
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"page-layout"
#if defined(ENABLE_OVERLOADING)
data DocumentPageLayoutPropertyInfo
instance AttrInfo DocumentPageLayoutPropertyInfo where
type AttrAllowedOps DocumentPageLayoutPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DocumentPageLayoutPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentPageLayoutPropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentPageLayoutPropertyInfo = (~) ()
type AttrTransferType DocumentPageLayoutPropertyInfo = ()
type AttrGetType DocumentPageLayoutPropertyInfo = Poppler.Enums.PageLayout
type AttrLabel DocumentPageLayoutPropertyInfo = "page-layout"
type AttrOrigin DocumentPageLayoutPropertyInfo = Document
attrGet = getDocumentPageLayout
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.pageLayout"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:pageLayout"
})
#endif
getDocumentPageMode :: (MonadIO m, IsDocument o) => o -> m Poppler.Enums.PageMode
getDocumentPageMode :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m PageMode
getDocumentPageMode o
obj = IO PageMode -> m PageMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PageMode -> m PageMode) -> IO PageMode -> m PageMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PageMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"page-mode"
#if defined(ENABLE_OVERLOADING)
data DocumentPageModePropertyInfo
instance AttrInfo DocumentPageModePropertyInfo where
type AttrAllowedOps DocumentPageModePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DocumentPageModePropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentPageModePropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentPageModePropertyInfo = (~) ()
type AttrTransferType DocumentPageModePropertyInfo = ()
type AttrGetType DocumentPageModePropertyInfo = Poppler.Enums.PageMode
type AttrLabel DocumentPageModePropertyInfo = "page-mode"
type AttrOrigin DocumentPageModePropertyInfo = Document
attrGet = getDocumentPageMode
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.pageMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:pageMode"
})
#endif
getDocumentPermissions :: (MonadIO m, IsDocument o) => o -> m [Poppler.Flags.Permissions]
getDocumentPermissions :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m [Permissions]
getDocumentPermissions o
obj = IO [Permissions] -> m [Permissions]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO [Permissions] -> m [Permissions])
-> IO [Permissions] -> m [Permissions]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [Permissions]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"permissions"
#if defined(ENABLE_OVERLOADING)
data DocumentPermissionsPropertyInfo
instance AttrInfo DocumentPermissionsPropertyInfo where
type AttrAllowedOps DocumentPermissionsPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DocumentPermissionsPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentPermissionsPropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentPermissionsPropertyInfo = (~) ()
type AttrTransferType DocumentPermissionsPropertyInfo = ()
type AttrGetType DocumentPermissionsPropertyInfo = [Poppler.Flags.Permissions]
type AttrLabel DocumentPermissionsPropertyInfo = "permissions"
type AttrOrigin DocumentPermissionsPropertyInfo = Document
attrGet = getDocumentPermissions
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.permissions"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:permissions"
})
#endif
getDocumentPrintDuplex :: (MonadIO m, IsDocument o) => o -> m Poppler.Enums.PrintDuplex
getDocumentPrintDuplex :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m PrintDuplex
getDocumentPrintDuplex o
obj = IO PrintDuplex -> m PrintDuplex
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PrintDuplex -> m PrintDuplex)
-> IO PrintDuplex -> m PrintDuplex
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PrintDuplex
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"print-duplex"
#if defined(ENABLE_OVERLOADING)
data DocumentPrintDuplexPropertyInfo
instance AttrInfo DocumentPrintDuplexPropertyInfo where
type AttrAllowedOps DocumentPrintDuplexPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DocumentPrintDuplexPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentPrintDuplexPropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentPrintDuplexPropertyInfo = (~) ()
type AttrTransferType DocumentPrintDuplexPropertyInfo = ()
type AttrGetType DocumentPrintDuplexPropertyInfo = Poppler.Enums.PrintDuplex
type AttrLabel DocumentPrintDuplexPropertyInfo = "print-duplex"
type AttrOrigin DocumentPrintDuplexPropertyInfo = Document
attrGet = getDocumentPrintDuplex
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.printDuplex"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:printDuplex"
})
#endif
getDocumentPrintNCopies :: (MonadIO m, IsDocument o) => o -> m Int32
getDocumentPrintNCopies :: forall (m :: * -> *) o. (MonadIO m, IsDocument o) => o -> m Int32
getDocumentPrintNCopies o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"print-n-copies"
#if defined(ENABLE_OVERLOADING)
data DocumentPrintNCopiesPropertyInfo
instance AttrInfo DocumentPrintNCopiesPropertyInfo where
type AttrAllowedOps DocumentPrintNCopiesPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DocumentPrintNCopiesPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentPrintNCopiesPropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentPrintNCopiesPropertyInfo = (~) ()
type AttrTransferType DocumentPrintNCopiesPropertyInfo = ()
type AttrGetType DocumentPrintNCopiesPropertyInfo = Int32
type AttrLabel DocumentPrintNCopiesPropertyInfo = "print-n-copies"
type AttrOrigin DocumentPrintNCopiesPropertyInfo = Document
attrGet = getDocumentPrintNCopies
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.printNCopies"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:printNCopies"
})
#endif
getDocumentPrintScaling :: (MonadIO m, IsDocument o) => o -> m Poppler.Enums.PrintScaling
getDocumentPrintScaling :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m PrintScaling
getDocumentPrintScaling o
obj = IO PrintScaling -> m PrintScaling
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PrintScaling -> m PrintScaling)
-> IO PrintScaling -> m PrintScaling
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PrintScaling
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"print-scaling"
#if defined(ENABLE_OVERLOADING)
data DocumentPrintScalingPropertyInfo
instance AttrInfo DocumentPrintScalingPropertyInfo where
type AttrAllowedOps DocumentPrintScalingPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DocumentPrintScalingPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentPrintScalingPropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentPrintScalingPropertyInfo = (~) ()
type AttrTransferType DocumentPrintScalingPropertyInfo = ()
type AttrGetType DocumentPrintScalingPropertyInfo = Poppler.Enums.PrintScaling
type AttrLabel DocumentPrintScalingPropertyInfo = "print-scaling"
type AttrOrigin DocumentPrintScalingPropertyInfo = Document
attrGet = getDocumentPrintScaling
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.printScaling"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:printScaling"
})
#endif
getDocumentProducer :: (MonadIO m, IsDocument o) => o -> m (Maybe T.Text)
getDocumentProducer :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m (Maybe Text)
getDocumentProducer o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"producer"
setDocumentProducer :: (MonadIO m, IsDocument o) => o -> T.Text -> m ()
setDocumentProducer :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> Text -> m ()
setDocumentProducer o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"producer" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDocumentProducer :: (IsDocument o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDocumentProducer :: forall o (m :: * -> *).
(IsDocument o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDocumentProducer Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"producer" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DocumentProducerPropertyInfo
instance AttrInfo DocumentProducerPropertyInfo where
type AttrAllowedOps DocumentProducerPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DocumentProducerPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentProducerPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DocumentProducerPropertyInfo = (~) T.Text
type AttrTransferType DocumentProducerPropertyInfo = T.Text
type AttrGetType DocumentProducerPropertyInfo = (Maybe T.Text)
type AttrLabel DocumentProducerPropertyInfo = "producer"
type AttrOrigin DocumentProducerPropertyInfo = Document
attrGet = getDocumentProducer
attrSet = setDocumentProducer
attrTransfer _ v = do
return v
attrConstruct = constructDocumentProducer
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.producer"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:producer"
})
#endif
getDocumentSubject :: (MonadIO m, IsDocument o) => o -> m (Maybe T.Text)
getDocumentSubject :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m (Maybe Text)
getDocumentSubject o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"subject"
setDocumentSubject :: (MonadIO m, IsDocument o) => o -> T.Text -> m ()
setDocumentSubject :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> Text -> m ()
setDocumentSubject o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"subject" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDocumentSubject :: (IsDocument o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDocumentSubject :: forall o (m :: * -> *).
(IsDocument o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDocumentSubject Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"subject" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DocumentSubjectPropertyInfo
instance AttrInfo DocumentSubjectPropertyInfo where
type AttrAllowedOps DocumentSubjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DocumentSubjectPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentSubjectPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DocumentSubjectPropertyInfo = (~) T.Text
type AttrTransferType DocumentSubjectPropertyInfo = T.Text
type AttrGetType DocumentSubjectPropertyInfo = (Maybe T.Text)
type AttrLabel DocumentSubjectPropertyInfo = "subject"
type AttrOrigin DocumentSubjectPropertyInfo = Document
attrGet = getDocumentSubject
attrSet = setDocumentSubject
attrTransfer _ v = do
return v
attrConstruct = constructDocumentSubject
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.subject"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:subject"
})
#endif
getDocumentSubtype :: (MonadIO m, IsDocument o) => o -> m Poppler.Enums.PDFSubtype
getDocumentSubtype :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m PDFSubtype
getDocumentSubtype o
obj = IO PDFSubtype -> m PDFSubtype
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PDFSubtype -> m PDFSubtype) -> IO PDFSubtype -> m PDFSubtype
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PDFSubtype
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"subtype"
#if defined(ENABLE_OVERLOADING)
data DocumentSubtypePropertyInfo
instance AttrInfo DocumentSubtypePropertyInfo where
type AttrAllowedOps DocumentSubtypePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DocumentSubtypePropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentSubtypePropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentSubtypePropertyInfo = (~) ()
type AttrTransferType DocumentSubtypePropertyInfo = ()
type AttrGetType DocumentSubtypePropertyInfo = Poppler.Enums.PDFSubtype
type AttrLabel DocumentSubtypePropertyInfo = "subtype"
type AttrOrigin DocumentSubtypePropertyInfo = Document
attrGet = getDocumentSubtype
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.subtype"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:subtype"
})
#endif
getDocumentSubtypeConformance :: (MonadIO m, IsDocument o) => o -> m Poppler.Enums.PDFConformance
getDocumentSubtypeConformance :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m PDFConformance
getDocumentSubtypeConformance o
obj = IO PDFConformance -> m PDFConformance
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PDFConformance -> m PDFConformance)
-> IO PDFConformance -> m PDFConformance
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PDFConformance
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"subtype-conformance"
#if defined(ENABLE_OVERLOADING)
data DocumentSubtypeConformancePropertyInfo
instance AttrInfo DocumentSubtypeConformancePropertyInfo where
type AttrAllowedOps DocumentSubtypeConformancePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DocumentSubtypeConformancePropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentSubtypeConformancePropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentSubtypeConformancePropertyInfo = (~) ()
type AttrTransferType DocumentSubtypeConformancePropertyInfo = ()
type AttrGetType DocumentSubtypeConformancePropertyInfo = Poppler.Enums.PDFConformance
type AttrLabel DocumentSubtypeConformancePropertyInfo = "subtype-conformance"
type AttrOrigin DocumentSubtypeConformancePropertyInfo = Document
attrGet = getDocumentSubtypeConformance
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.subtypeConformance"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:subtypeConformance"
})
#endif
getDocumentSubtypePart :: (MonadIO m, IsDocument o) => o -> m Poppler.Enums.PDFPart
getDocumentSubtypePart :: forall (m :: * -> *) o. (MonadIO m, IsDocument o) => o -> m PDFPart
getDocumentSubtypePart o
obj = IO PDFPart -> m PDFPart
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO PDFPart -> m PDFPart) -> IO PDFPart -> m PDFPart
forall a b. (a -> b) -> a -> b
$ o -> String -> IO PDFPart
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"subtype-part"
#if defined(ENABLE_OVERLOADING)
data DocumentSubtypePartPropertyInfo
instance AttrInfo DocumentSubtypePartPropertyInfo where
type AttrAllowedOps DocumentSubtypePartPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DocumentSubtypePartPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentSubtypePartPropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentSubtypePartPropertyInfo = (~) ()
type AttrTransferType DocumentSubtypePartPropertyInfo = ()
type AttrGetType DocumentSubtypePartPropertyInfo = Poppler.Enums.PDFPart
type AttrLabel DocumentSubtypePartPropertyInfo = "subtype-part"
type AttrOrigin DocumentSubtypePartPropertyInfo = Document
attrGet = getDocumentSubtypePart
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.subtypePart"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:subtypePart"
})
#endif
getDocumentSubtypeString :: (MonadIO m, IsDocument o) => o -> m (Maybe T.Text)
getDocumentSubtypeString :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m (Maybe Text)
getDocumentSubtypeString o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"subtype-string"
#if defined(ENABLE_OVERLOADING)
data DocumentSubtypeStringPropertyInfo
instance AttrInfo DocumentSubtypeStringPropertyInfo where
type AttrAllowedOps DocumentSubtypeStringPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DocumentSubtypeStringPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentSubtypeStringPropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentSubtypeStringPropertyInfo = (~) ()
type AttrTransferType DocumentSubtypeStringPropertyInfo = ()
type AttrGetType DocumentSubtypeStringPropertyInfo = (Maybe T.Text)
type AttrLabel DocumentSubtypeStringPropertyInfo = "subtype-string"
type AttrOrigin DocumentSubtypeStringPropertyInfo = Document
attrGet = getDocumentSubtypeString
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.subtypeString"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:subtypeString"
})
#endif
getDocumentTitle :: (MonadIO m, IsDocument o) => o -> m (Maybe T.Text)
getDocumentTitle :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m (Maybe Text)
getDocumentTitle o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"title"
setDocumentTitle :: (MonadIO m, IsDocument o) => o -> T.Text -> m ()
setDocumentTitle :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> Text -> m ()
setDocumentTitle o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDocumentTitle :: (IsDocument o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructDocumentTitle :: forall o (m :: * -> *).
(IsDocument o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructDocumentTitle Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data DocumentTitlePropertyInfo
instance AttrInfo DocumentTitlePropertyInfo where
type AttrAllowedOps DocumentTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint DocumentTitlePropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DocumentTitlePropertyInfo = (~) T.Text
type AttrTransferType DocumentTitlePropertyInfo = T.Text
type AttrGetType DocumentTitlePropertyInfo = (Maybe T.Text)
type AttrLabel DocumentTitlePropertyInfo = "title"
type AttrOrigin DocumentTitlePropertyInfo = Document
attrGet = getDocumentTitle
attrSet = setDocumentTitle
attrTransfer _ v = do
return v
attrConstruct = constructDocumentTitle
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:title"
})
#endif
getDocumentViewerPreferences :: (MonadIO m, IsDocument o) => o -> m [Poppler.Flags.ViewerPreferences]
getDocumentViewerPreferences :: forall (m :: * -> *) o.
(MonadIO m, IsDocument o) =>
o -> m [ViewerPreferences]
getDocumentViewerPreferences o
obj = IO [ViewerPreferences] -> m [ViewerPreferences]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO [ViewerPreferences] -> m [ViewerPreferences])
-> IO [ViewerPreferences] -> m [ViewerPreferences]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [ViewerPreferences]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"viewer-preferences"
#if defined(ENABLE_OVERLOADING)
data DocumentViewerPreferencesPropertyInfo
instance AttrInfo DocumentViewerPreferencesPropertyInfo where
type AttrAllowedOps DocumentViewerPreferencesPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DocumentViewerPreferencesPropertyInfo = IsDocument
type AttrSetTypeConstraint DocumentViewerPreferencesPropertyInfo = (~) ()
type AttrTransferTypeConstraint DocumentViewerPreferencesPropertyInfo = (~) ()
type AttrTransferType DocumentViewerPreferencesPropertyInfo = ()
type AttrGetType DocumentViewerPreferencesPropertyInfo = [Poppler.Flags.ViewerPreferences]
type AttrLabel DocumentViewerPreferencesPropertyInfo = "viewer-preferences"
type AttrOrigin DocumentViewerPreferencesPropertyInfo = Document
attrGet = getDocumentViewerPreferences
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.viewerPreferences"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#g:attr:viewerPreferences"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Document
type instance O.AttributeList Document = DocumentAttributeList
type DocumentAttributeList = ('[ '("author", DocumentAuthorPropertyInfo), '("creationDate", DocumentCreationDatePropertyInfo), '("creationDatetime", DocumentCreationDatetimePropertyInfo), '("creator", DocumentCreatorPropertyInfo), '("format", DocumentFormatPropertyInfo), '("formatMajor", DocumentFormatMajorPropertyInfo), '("formatMinor", DocumentFormatMinorPropertyInfo), '("keywords", DocumentKeywordsPropertyInfo), '("linearized", DocumentLinearizedPropertyInfo), '("metadata", DocumentMetadataPropertyInfo), '("modDate", DocumentModDatePropertyInfo), '("modDatetime", DocumentModDatetimePropertyInfo), '("pageLayout", DocumentPageLayoutPropertyInfo), '("pageMode", DocumentPageModePropertyInfo), '("permissions", DocumentPermissionsPropertyInfo), '("printDuplex", DocumentPrintDuplexPropertyInfo), '("printNCopies", DocumentPrintNCopiesPropertyInfo), '("printScaling", DocumentPrintScalingPropertyInfo), '("producer", DocumentProducerPropertyInfo), '("subject", DocumentSubjectPropertyInfo), '("subtype", DocumentSubtypePropertyInfo), '("subtypeConformance", DocumentSubtypeConformancePropertyInfo), '("subtypePart", DocumentSubtypePartPropertyInfo), '("subtypeString", DocumentSubtypeStringPropertyInfo), '("title", DocumentTitlePropertyInfo), '("viewerPreferences", DocumentViewerPreferencesPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
documentAuthor :: AttrLabelProxy "author"
documentAuthor = AttrLabelProxy
documentCreationDate :: AttrLabelProxy "creationDate"
documentCreationDate = AttrLabelProxy
documentCreationDatetime :: AttrLabelProxy "creationDatetime"
documentCreationDatetime = 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
documentModDatetime :: AttrLabelProxy "modDatetime"
documentModDatetime = AttrLabelProxy
documentPageLayout :: AttrLabelProxy "pageLayout"
documentPageLayout = AttrLabelProxy
documentPageMode :: AttrLabelProxy "pageMode"
documentPageMode = AttrLabelProxy
documentPermissions :: AttrLabelProxy "permissions"
documentPermissions = AttrLabelProxy
documentPrintDuplex :: AttrLabelProxy "printDuplex"
documentPrintDuplex = AttrLabelProxy
documentPrintNCopies :: AttrLabelProxy "printNCopies"
documentPrintNCopies = AttrLabelProxy
documentPrintScaling :: AttrLabelProxy "printScaling"
documentPrintScaling = AttrLabelProxy
documentProducer :: AttrLabelProxy "producer"
documentProducer = AttrLabelProxy
documentSubject :: AttrLabelProxy "subject"
documentSubject = AttrLabelProxy
documentSubtype :: AttrLabelProxy "subtype"
documentSubtype = AttrLabelProxy
documentSubtypeConformance :: AttrLabelProxy "subtypeConformance"
documentSubtypeConformance = AttrLabelProxy
documentSubtypePart :: AttrLabelProxy "subtypePart"
documentSubtypePart = AttrLabelProxy
documentSubtypeString :: AttrLabelProxy "subtypeString"
documentSubtypeString = AttrLabelProxy
documentTitle :: AttrLabelProxy "title"
documentTitle = AttrLabelProxy
documentViewerPreferences :: AttrLabelProxy "viewerPreferences"
documentViewerPreferences = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Document = DocumentSignalList
type DocumentSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "poppler_document_new_from_bytes" poppler_document_new_from_bytes ::
Ptr GLib.Bytes.Bytes ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr Document)
documentNewFromBytes ::
(B.CallStack.HasCallStack, MonadIO m) =>
GLib.Bytes.Bytes
-> Maybe (T.Text)
-> m Document
documentNewFromBytes :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Bytes -> Maybe Text -> m Document
documentNewFromBytes Bytes
bytes Maybe Text
password = IO Document -> m Document
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Document -> m Document) -> IO Document -> m Document
forall a b. (a -> b) -> a -> b
$ do
Ptr Bytes
bytes' <- Bytes -> IO (Ptr Bytes)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Bytes
bytes
Ptr CChar
maybePassword <- case Maybe Text
password of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jPassword -> do
Ptr CChar
jPassword' <- Text -> IO (Ptr CChar)
textToCString Text
jPassword
Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jPassword'
IO Document -> IO () -> IO Document
forall a b. IO a -> IO b -> IO a
onException (do
Ptr Document
result <- (Ptr (Ptr GError) -> IO (Ptr Document)) -> IO (Ptr Document)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr Document)) -> IO (Ptr Document))
-> (Ptr (Ptr GError) -> IO (Ptr Document)) -> IO (Ptr Document)
forall a b. (a -> b) -> a -> b
$ Ptr Bytes -> Ptr CChar -> Ptr (Ptr GError) -> IO (Ptr Document)
poppler_document_new_from_bytes Ptr Bytes
bytes' Ptr CChar
maybePassword
Text -> Ptr Document -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentNewFromBytes" Ptr Document
result
Document
result' <- ((ManagedPtr Document -> Document) -> Ptr Document -> IO Document
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Document -> Document
Document) Ptr Document
result
Bytes -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Bytes
bytes
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybePassword
Document -> IO Document
forall (m :: * -> *) a. Monad m => a -> m a
return Document
result'
) (do
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybePassword
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "poppler_document_new_from_data" poppler_document_new_from_data ::
Ptr Word8 ->
Int32 ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr Document)
{-# DEPRECATED documentNewFromData ["(Since version 0.82)","This requires directly managing /@length@/ and /@data@/.","Use 'GI.Poppler.Objects.Document.documentNewFromBytes' instead."] #-}
documentNewFromData ::
(B.CallStack.HasCallStack, MonadIO m) =>
ByteString
-> Maybe (T.Text)
-> m Document
documentNewFromData :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ByteString -> Maybe Text -> m Document
documentNewFromData ByteString
data_ Maybe Text
password = IO Document -> m Document
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Document -> m Document) -> IO Document -> m Document
forall a b. (a -> b) -> a -> b
$ do
let length_ :: Int32
length_ = Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int32) -> Int -> Int32
forall a b. (a -> b) -> a -> b
$ ByteString -> Int
B.length ByteString
data_
Ptr Word8
data_' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
data_
Ptr CChar
maybePassword <- case Maybe Text
password of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jPassword -> do
Ptr CChar
jPassword' <- Text -> IO (Ptr CChar)
textToCString Text
jPassword
Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jPassword'
IO Document -> IO () -> IO Document
forall a b. IO a -> IO b -> IO a
onException (do
Ptr Document
result <- (Ptr (Ptr GError) -> IO (Ptr Document)) -> IO (Ptr Document)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr Document)) -> IO (Ptr Document))
-> (Ptr (Ptr GError) -> IO (Ptr Document)) -> IO (Ptr Document)
forall a b. (a -> b) -> a -> b
$ Ptr Word8
-> Int32 -> Ptr CChar -> Ptr (Ptr GError) -> IO (Ptr Document)
poppler_document_new_from_data Ptr Word8
data_' Int32
length_ Ptr CChar
maybePassword
Text -> Ptr Document -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentNewFromData" Ptr Document
result
Document
result' <- ((ManagedPtr Document -> Document) -> Ptr Document -> IO Document
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Document -> Document
Document) Ptr Document
result
Ptr Word8 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word8
data_'
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybePassword
Document -> IO Document
forall (m :: * -> *) a. Monad m => a -> m a
return Document
result'
) (do
Ptr Word8 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word8
data_'
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybePassword
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "poppler_document_new_from_file" poppler_document_new_from_file ::
CString ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr Document)
documentNewFromFile ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> Maybe (T.Text)
-> m Document
documentNewFromFile :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> Maybe Text -> m Document
documentNewFromFile Text
uri Maybe Text
password = IO Document -> m Document
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Document -> m Document) -> IO Document -> m Document
forall a b. (a -> b) -> a -> b
$ do
Ptr CChar
uri' <- Text -> IO (Ptr CChar)
textToCString Text
uri
Ptr CChar
maybePassword <- case Maybe Text
password of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jPassword -> do
Ptr CChar
jPassword' <- Text -> IO (Ptr CChar)
textToCString Text
jPassword
Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jPassword'
IO Document -> IO () -> IO Document
forall a b. IO a -> IO b -> IO a
onException (do
Ptr Document
result <- (Ptr (Ptr GError) -> IO (Ptr Document)) -> IO (Ptr Document)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr Document)) -> IO (Ptr Document))
-> (Ptr (Ptr GError) -> IO (Ptr Document)) -> IO (Ptr Document)
forall a b. (a -> b) -> a -> b
$ Ptr CChar -> Ptr CChar -> Ptr (Ptr GError) -> IO (Ptr Document)
poppler_document_new_from_file Ptr CChar
uri' Ptr CChar
maybePassword
Text -> Ptr Document -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentNewFromFile" Ptr Document
result
Document
result' <- ((ManagedPtr Document -> Document) -> Ptr Document -> IO Document
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Document -> Document
Document) Ptr Document
result
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
uri'
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybePassword
Document -> IO Document
forall (m :: * -> *) a. Monad m => a -> m a
return Document
result'
) (do
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
uri'
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybePassword
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "poppler_document_new_from_gfile" poppler_document_new_from_gfile ::
Ptr Gio.File.File ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr Document)
documentNewFromGfile ::
(B.CallStack.HasCallStack, MonadIO m, Gio.File.IsFile a, Gio.Cancellable.IsCancellable b) =>
a
-> Maybe (T.Text)
-> Maybe (b)
-> m Document
documentNewFromGfile :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFile a, IsCancellable b) =>
a -> Maybe Text -> Maybe b -> m Document
documentNewFromGfile a
file Maybe Text
password Maybe b
cancellable = IO Document -> m Document
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Document -> m Document) -> IO Document -> m Document
forall a b. (a -> b) -> a -> b
$ do
Ptr File
file' <- a -> IO (Ptr File)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
file
Ptr CChar
maybePassword <- case Maybe Text
password of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jPassword -> do
Ptr CChar
jPassword' <- Text -> IO (Ptr CChar)
textToCString Text
jPassword
Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jPassword'
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
IO Document -> IO () -> IO Document
forall a b. IO a -> IO b -> IO a
onException (do
Ptr Document
result <- (Ptr (Ptr GError) -> IO (Ptr Document)) -> IO (Ptr Document)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr Document)) -> IO (Ptr Document))
-> (Ptr (Ptr GError) -> IO (Ptr Document)) -> IO (Ptr Document)
forall a b. (a -> b) -> a -> b
$ Ptr File
-> Ptr CChar
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO (Ptr Document)
poppler_document_new_from_gfile Ptr File
file' Ptr CChar
maybePassword Ptr Cancellable
maybeCancellable
Text -> Ptr Document -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentNewFromGfile" Ptr Document
result
Document
result' <- ((ManagedPtr Document -> Document) -> Ptr Document -> IO Document
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Document -> Document
Document) Ptr Document
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
file
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybePassword
Document -> IO Document
forall (m :: * -> *) a. Monad m => a -> m a
return Document
result'
) (do
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybePassword
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "poppler_document_new_from_stream" poppler_document_new_from_stream ::
Ptr Gio.InputStream.InputStream ->
Int64 ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr Document)
documentNewFromStream ::
(B.CallStack.HasCallStack, MonadIO m, Gio.InputStream.IsInputStream a, Gio.Cancellable.IsCancellable b) =>
a
-> Int64
-> Maybe (T.Text)
-> Maybe (b)
-> m Document
documentNewFromStream :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsInputStream a, IsCancellable b) =>
a -> Int64 -> Maybe Text -> Maybe b -> m Document
documentNewFromStream a
stream Int64
length_ Maybe Text
password Maybe b
cancellable = IO Document -> m Document
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Document -> m Document) -> IO Document -> m Document
forall a b. (a -> b) -> a -> b
$ do
Ptr InputStream
stream' <- a -> IO (Ptr InputStream)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
stream
Ptr CChar
maybePassword <- case Maybe Text
password of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jPassword -> do
Ptr CChar
jPassword' <- Text -> IO (Ptr CChar)
textToCString Text
jPassword
Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jPassword'
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
nullPtr
Just b
jCancellable -> do
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
IO Document -> IO () -> IO Document
forall a b. IO a -> IO b -> IO a
onException (do
Ptr Document
result <- (Ptr (Ptr GError) -> IO (Ptr Document)) -> IO (Ptr Document)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr Document)) -> IO (Ptr Document))
-> (Ptr (Ptr GError) -> IO (Ptr Document)) -> IO (Ptr Document)
forall a b. (a -> b) -> a -> b
$ Ptr InputStream
-> Int64
-> Ptr CChar
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO (Ptr Document)
poppler_document_new_from_stream Ptr InputStream
stream' Int64
length_ Ptr CChar
maybePassword Ptr Cancellable
maybeCancellable
Text -> Ptr Document -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentNewFromStream" Ptr Document
result
Document
result' <- ((ManagedPtr Document -> Document) -> Ptr Document -> IO Document
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Document -> Document
Document) Ptr Document
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
stream
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybePassword
Document -> IO Document
forall (m :: * -> *) a. Monad m => a -> m a
return Document
result'
) (do
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybePassword
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "poppler_document_create_dests_tree" poppler_document_create_dests_tree ::
Ptr Document ->
IO (Ptr GLib.Tree.Tree)
documentCreateDestsTree ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m (Maybe GLib.Tree.Tree)
documentCreateDestsTree :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m (Maybe Tree)
documentCreateDestsTree a
document = IO (Maybe Tree) -> m (Maybe Tree)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Tree) -> m (Maybe Tree))
-> IO (Maybe Tree) -> m (Maybe Tree)
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr Tree
result <- Ptr Document -> IO (Ptr Tree)
poppler_document_create_dests_tree Ptr Document
document'
Maybe Tree
maybeResult <- Ptr Tree -> (Ptr Tree -> IO Tree) -> IO (Maybe Tree)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Tree
result ((Ptr Tree -> IO Tree) -> IO (Maybe Tree))
-> (Ptr Tree -> IO Tree) -> IO (Maybe Tree)
forall a b. (a -> b) -> a -> b
$ \Ptr Tree
result' -> do
Tree
result'' <- ((ManagedPtr Tree -> Tree) -> Ptr Tree -> IO Tree
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Tree -> Tree
GLib.Tree.Tree) Ptr Tree
result'
Tree -> IO Tree
forall (m :: * -> *) a. Monad m => a -> m a
return Tree
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Maybe Tree -> IO (Maybe Tree)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Tree
maybeResult
#if defined(ENABLE_OVERLOADING)
data DocumentCreateDestsTreeMethodInfo
instance (signature ~ (m (Maybe GLib.Tree.Tree)), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentCreateDestsTreeMethodInfo a signature where
overloadedMethod = documentCreateDestsTree
instance O.OverloadedMethodInfo DocumentCreateDestsTreeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentCreateDestsTree",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentCreateDestsTree"
})
#endif
foreign import ccall "poppler_document_find_dest" poppler_document_find_dest ::
Ptr Document ->
CString ->
IO (Ptr Poppler.Dest.Dest)
documentFindDest ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> T.Text
-> m Poppler.Dest.Dest
documentFindDest :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Text -> m Dest
documentFindDest a
document Text
linkName = IO Dest -> m Dest
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Dest -> m Dest) -> IO Dest -> m Dest
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
linkName' <- Text -> IO (Ptr CChar)
textToCString Text
linkName
Ptr Dest
result <- Ptr Document -> Ptr CChar -> IO (Ptr Dest)
poppler_document_find_dest Ptr Document
document' Ptr CChar
linkName'
Text -> Ptr Dest -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentFindDest" Ptr Dest
result
Dest
result' <- ((ManagedPtr Dest -> Dest) -> Ptr Dest -> IO Dest
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Dest -> Dest
Poppler.Dest.Dest) Ptr Dest
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
linkName'
Dest -> IO Dest
forall (m :: * -> *) a. Monad m => a -> m a
return Dest
result'
#if defined(ENABLE_OVERLOADING)
data DocumentFindDestMethodInfo
instance (signature ~ (T.Text -> m Poppler.Dest.Dest), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentFindDestMethodInfo a signature where
overloadedMethod = documentFindDest
instance O.OverloadedMethodInfo DocumentFindDestMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentFindDest",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentFindDest"
})
#endif
foreign import ccall "poppler_document_get_attachments" poppler_document_get_attachments ::
Ptr Document ->
IO (Ptr (GList (Ptr Poppler.Attachment.Attachment)))
documentGetAttachments ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m [Poppler.Attachment.Attachment]
documentGetAttachments :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m [Attachment]
documentGetAttachments a
document = IO [Attachment] -> m [Attachment]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Attachment] -> m [Attachment])
-> IO [Attachment] -> m [Attachment]
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr (GList (Ptr Attachment))
result <- Ptr Document -> IO (Ptr (GList (Ptr Attachment)))
poppler_document_get_attachments Ptr Document
document'
[Ptr Attachment]
result' <- Ptr (GList (Ptr Attachment)) -> IO [Ptr Attachment]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr Attachment))
result
[Attachment]
result'' <- (Ptr Attachment -> IO Attachment)
-> [Ptr Attachment] -> IO [Attachment]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr Attachment -> Attachment)
-> Ptr Attachment -> IO Attachment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Attachment -> Attachment
Poppler.Attachment.Attachment) [Ptr Attachment]
result'
Ptr (GList (Ptr Attachment)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr Attachment))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
[Attachment] -> IO [Attachment]
forall (m :: * -> *) a. Monad m => a -> m a
return [Attachment]
result''
#if defined(ENABLE_OVERLOADING)
data DocumentGetAttachmentsMethodInfo
instance (signature ~ (m [Poppler.Attachment.Attachment]), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetAttachmentsMethodInfo a signature where
overloadedMethod = documentGetAttachments
instance O.OverloadedMethodInfo DocumentGetAttachmentsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetAttachments",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetAttachments"
})
#endif
foreign import ccall "poppler_document_get_author" poppler_document_get_author ::
Ptr Document ->
IO CString
documentGetAuthor ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m T.Text
documentGetAuthor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m Text
documentGetAuthor a
document = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
result <- Ptr Document -> IO (Ptr CChar)
poppler_document_get_author Ptr Document
document'
Text -> Ptr CChar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentGetAuthor" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetAuthorMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetAuthorMethodInfo a signature where
overloadedMethod = documentGetAuthor
instance O.OverloadedMethodInfo DocumentGetAuthorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetAuthor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetAuthor"
})
#endif
foreign import ccall "poppler_document_get_creation_date" poppler_document_get_creation_date ::
Ptr Document ->
IO CLong
documentGetCreationDate ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m CLong
documentGetCreationDate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m CLong
documentGetCreationDate a
document = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CLong
result <- Ptr Document -> IO CLong
poppler_document_get_creation_date Ptr Document
document'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DocumentGetCreationDateMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetCreationDateMethodInfo a signature where
overloadedMethod = documentGetCreationDate
instance O.OverloadedMethodInfo DocumentGetCreationDateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetCreationDate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetCreationDate"
})
#endif
foreign import ccall "poppler_document_get_creation_date_time" poppler_document_get_creation_date_time ::
Ptr Document ->
IO (Ptr GLib.DateTime.DateTime)
documentGetCreationDateTime ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m (Maybe GLib.DateTime.DateTime)
documentGetCreationDateTime :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m (Maybe DateTime)
documentGetCreationDateTime a
document = IO (Maybe DateTime) -> m (Maybe DateTime)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DateTime) -> m (Maybe DateTime))
-> IO (Maybe DateTime) -> m (Maybe DateTime)
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr DateTime
result <- Ptr Document -> IO (Ptr DateTime)
poppler_document_get_creation_date_time Ptr Document
document'
Maybe DateTime
maybeResult <- Ptr DateTime
-> (Ptr DateTime -> IO DateTime) -> IO (Maybe DateTime)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr DateTime
result ((Ptr DateTime -> IO DateTime) -> IO (Maybe DateTime))
-> (Ptr DateTime -> IO DateTime) -> IO (Maybe DateTime)
forall a b. (a -> b) -> a -> b
$ \Ptr DateTime
result' -> do
DateTime
result'' <- ((ManagedPtr DateTime -> DateTime) -> Ptr DateTime -> IO DateTime
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr DateTime -> DateTime
GLib.DateTime.DateTime) Ptr DateTime
result'
DateTime -> IO DateTime
forall (m :: * -> *) a. Monad m => a -> m a
return DateTime
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Maybe DateTime -> IO (Maybe DateTime)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DateTime
maybeResult
#if defined(ENABLE_OVERLOADING)
data DocumentGetCreationDateTimeMethodInfo
instance (signature ~ (m (Maybe GLib.DateTime.DateTime)), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetCreationDateTimeMethodInfo a signature where
overloadedMethod = documentGetCreationDateTime
instance O.OverloadedMethodInfo DocumentGetCreationDateTimeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetCreationDateTime",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetCreationDateTime"
})
#endif
foreign import ccall "poppler_document_get_creator" poppler_document_get_creator ::
Ptr Document ->
IO CString
documentGetCreator ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m T.Text
documentGetCreator :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m Text
documentGetCreator a
document = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
result <- Ptr Document -> IO (Ptr CChar)
poppler_document_get_creator Ptr Document
document'
Text -> Ptr CChar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentGetCreator" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetCreatorMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetCreatorMethodInfo a signature where
overloadedMethod = documentGetCreator
instance O.OverloadedMethodInfo DocumentGetCreatorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetCreator",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetCreator"
})
#endif
foreign import ccall "poppler_document_get_form_field" poppler_document_get_form_field ::
Ptr Document ->
Int32 ->
IO (Ptr Poppler.FormField.FormField)
documentGetFormField ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> Int32
-> m Poppler.FormField.FormField
documentGetFormField :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Int32 -> m FormField
documentGetFormField a
document Int32
id = IO FormField -> m FormField
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FormField -> m FormField) -> IO FormField -> m FormField
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr FormField
result <- Ptr Document -> Int32 -> IO (Ptr FormField)
poppler_document_get_form_field Ptr Document
document' Int32
id
Text -> Ptr FormField -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentGetFormField" Ptr FormField
result
FormField
result' <- ((ManagedPtr FormField -> FormField)
-> Ptr FormField -> IO FormField
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr FormField -> FormField
Poppler.FormField.FormField) Ptr FormField
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
FormField -> IO FormField
forall (m :: * -> *) a. Monad m => a -> m a
return FormField
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetFormFieldMethodInfo
instance (signature ~ (Int32 -> m Poppler.FormField.FormField), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetFormFieldMethodInfo a signature where
overloadedMethod = documentGetFormField
instance O.OverloadedMethodInfo DocumentGetFormFieldMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetFormField",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetFormField"
})
#endif
foreign import ccall "poppler_document_get_id" poppler_document_get_id ::
Ptr Document ->
Ptr CString ->
Ptr CString ->
IO CInt
documentGetId ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m ((Bool, T.Text, T.Text))
documentGetId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m (Bool, Text, Text)
documentGetId a
document = IO (Bool, Text, Text) -> m (Bool, Text, Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Text, Text) -> m (Bool, Text, Text))
-> IO (Bool, Text, Text) -> m (Bool, Text, Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr (Ptr CChar)
permanentId <- IO (Ptr (Ptr CChar))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr CString)
Ptr (Ptr CChar)
updateId <- IO (Ptr (Ptr CChar))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr CString)
CInt
result <- Ptr Document -> Ptr (Ptr CChar) -> Ptr (Ptr CChar) -> IO CInt
poppler_document_get_id Ptr Document
document' Ptr (Ptr CChar)
permanentId Ptr (Ptr CChar)
updateId
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Ptr CChar
permanentId' <- Ptr (Ptr CChar) -> IO (Ptr CChar)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr CChar)
permanentId
Text
permanentId'' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
permanentId'
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
permanentId'
Ptr CChar
updateId' <- Ptr (Ptr CChar) -> IO (Ptr CChar)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr CChar)
updateId
Text
updateId'' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
updateId'
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
updateId'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Ptr (Ptr CChar) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
permanentId
Ptr (Ptr CChar) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CChar)
updateId
(Bool, Text, Text) -> IO (Bool, Text, Text)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Text
permanentId'', Text
updateId'')
#if defined(ENABLE_OVERLOADING)
data DocumentGetIdMethodInfo
instance (signature ~ (m ((Bool, T.Text, T.Text))), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetIdMethodInfo a signature where
overloadedMethod = documentGetId
instance O.OverloadedMethodInfo DocumentGetIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetId"
})
#endif
foreign import ccall "poppler_document_get_keywords" poppler_document_get_keywords ::
Ptr Document ->
IO CString
documentGetKeywords ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m T.Text
documentGetKeywords :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m Text
documentGetKeywords a
document = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
result <- Ptr Document -> IO (Ptr CChar)
poppler_document_get_keywords Ptr Document
document'
Text -> Ptr CChar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentGetKeywords" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetKeywordsMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetKeywordsMethodInfo a signature where
overloadedMethod = documentGetKeywords
instance O.OverloadedMethodInfo DocumentGetKeywordsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetKeywords",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetKeywords"
})
#endif
foreign import ccall "poppler_document_get_metadata" poppler_document_get_metadata ::
Ptr Document ->
IO CString
documentGetMetadata ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m T.Text
documentGetMetadata :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m Text
documentGetMetadata a
document = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
result <- Ptr Document -> IO (Ptr CChar)
poppler_document_get_metadata Ptr Document
document'
Text -> Ptr CChar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentGetMetadata" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetMetadataMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetMetadataMethodInfo a signature where
overloadedMethod = documentGetMetadata
instance O.OverloadedMethodInfo DocumentGetMetadataMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetMetadata",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetMetadata"
})
#endif
foreign import ccall "poppler_document_get_modification_date" poppler_document_get_modification_date ::
Ptr Document ->
IO CLong
documentGetModificationDate ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m CLong
documentGetModificationDate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m CLong
documentGetModificationDate a
document = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CLong
result <- Ptr Document -> IO CLong
poppler_document_get_modification_date Ptr Document
document'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data DocumentGetModificationDateMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetModificationDateMethodInfo a signature where
overloadedMethod = documentGetModificationDate
instance O.OverloadedMethodInfo DocumentGetModificationDateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetModificationDate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetModificationDate"
})
#endif
foreign import ccall "poppler_document_get_modification_date_time" poppler_document_get_modification_date_time ::
Ptr Document ->
IO (Ptr GLib.DateTime.DateTime)
documentGetModificationDateTime ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m (Maybe GLib.DateTime.DateTime)
documentGetModificationDateTime :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m (Maybe DateTime)
documentGetModificationDateTime a
document = IO (Maybe DateTime) -> m (Maybe DateTime)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DateTime) -> m (Maybe DateTime))
-> IO (Maybe DateTime) -> m (Maybe DateTime)
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr DateTime
result <- Ptr Document -> IO (Ptr DateTime)
poppler_document_get_modification_date_time Ptr Document
document'
Maybe DateTime
maybeResult <- Ptr DateTime
-> (Ptr DateTime -> IO DateTime) -> IO (Maybe DateTime)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr DateTime
result ((Ptr DateTime -> IO DateTime) -> IO (Maybe DateTime))
-> (Ptr DateTime -> IO DateTime) -> IO (Maybe DateTime)
forall a b. (a -> b) -> a -> b
$ \Ptr DateTime
result' -> do
DateTime
result'' <- ((ManagedPtr DateTime -> DateTime) -> Ptr DateTime -> IO DateTime
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr DateTime -> DateTime
GLib.DateTime.DateTime) Ptr DateTime
result'
DateTime -> IO DateTime
forall (m :: * -> *) a. Monad m => a -> m a
return DateTime
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Maybe DateTime -> IO (Maybe DateTime)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DateTime
maybeResult
#if defined(ENABLE_OVERLOADING)
data DocumentGetModificationDateTimeMethodInfo
instance (signature ~ (m (Maybe GLib.DateTime.DateTime)), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetModificationDateTimeMethodInfo a signature where
overloadedMethod = documentGetModificationDateTime
instance O.OverloadedMethodInfo DocumentGetModificationDateTimeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetModificationDateTime",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetModificationDateTime"
})
#endif
foreign import ccall "poppler_document_get_n_attachments" poppler_document_get_n_attachments ::
Ptr Document ->
IO Word32
documentGetNAttachments ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m Word32
documentGetNAttachments :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m Word32
documentGetNAttachments a
document = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Word32
result <- Ptr Document -> IO Word32
poppler_document_get_n_attachments Ptr Document
document'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data DocumentGetNAttachmentsMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetNAttachmentsMethodInfo a signature where
overloadedMethod = documentGetNAttachments
instance O.OverloadedMethodInfo DocumentGetNAttachmentsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetNAttachments",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetNAttachments"
})
#endif
foreign import ccall "poppler_document_get_n_pages" poppler_document_get_n_pages ::
Ptr Document ->
IO Int32
documentGetNPages ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m Int32
documentGetNPages :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m Int32
documentGetNPages a
document = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Int32
result <- Ptr Document -> IO Int32
poppler_document_get_n_pages Ptr Document
document'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data DocumentGetNPagesMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetNPagesMethodInfo a signature where
overloadedMethod = documentGetNPages
instance O.OverloadedMethodInfo DocumentGetNPagesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetNPages",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetNPages"
})
#endif
foreign import ccall "poppler_document_get_page" poppler_document_get_page ::
Ptr Document ->
Int32 ->
IO (Ptr Poppler.Page.Page)
documentGetPage ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> Int32
-> m Poppler.Page.Page
documentGetPage :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Int32 -> m Page
documentGetPage a
document Int32
index = IO Page -> m Page
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Page -> m Page) -> IO Page -> m Page
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr Page
result <- Ptr Document -> Int32 -> IO (Ptr Page)
poppler_document_get_page Ptr Document
document' Int32
index
Text -> Ptr Page -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentGetPage" Ptr Page
result
Page
result' <- ((ManagedPtr Page -> Page) -> Ptr Page -> IO Page
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Page -> Page
Poppler.Page.Page) Ptr Page
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Page -> IO Page
forall (m :: * -> *) a. Monad m => a -> m a
return Page
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetPageMethodInfo
instance (signature ~ (Int32 -> m Poppler.Page.Page), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetPageMethodInfo a signature where
overloadedMethod = documentGetPage
instance O.OverloadedMethodInfo DocumentGetPageMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetPage"
})
#endif
foreign import ccall "poppler_document_get_page_by_label" poppler_document_get_page_by_label ::
Ptr Document ->
CString ->
IO (Ptr Poppler.Page.Page)
documentGetPageByLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> T.Text
-> m Poppler.Page.Page
documentGetPageByLabel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Text -> m Page
documentGetPageByLabel a
document Text
label = IO Page -> m Page
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Page -> m Page) -> IO Page -> m Page
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
label' <- Text -> IO (Ptr CChar)
textToCString Text
label
Ptr Page
result <- Ptr Document -> Ptr CChar -> IO (Ptr Page)
poppler_document_get_page_by_label Ptr Document
document' Ptr CChar
label'
Text -> Ptr Page -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentGetPageByLabel" Ptr Page
result
Page
result' <- ((ManagedPtr Page -> Page) -> Ptr Page -> IO Page
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Page -> Page
Poppler.Page.Page) Ptr Page
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
label'
Page -> IO Page
forall (m :: * -> *) a. Monad m => a -> m a
return Page
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetPageByLabelMethodInfo
instance (signature ~ (T.Text -> m Poppler.Page.Page), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetPageByLabelMethodInfo a signature where
overloadedMethod = documentGetPageByLabel
instance O.OverloadedMethodInfo DocumentGetPageByLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetPageByLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetPageByLabel"
})
#endif
foreign import ccall "poppler_document_get_page_layout" poppler_document_get_page_layout ::
Ptr Document ->
IO CUInt
documentGetPageLayout ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m Poppler.Enums.PageLayout
documentGetPageLayout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m PageLayout
documentGetPageLayout a
document = IO PageLayout -> m PageLayout
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PageLayout -> m PageLayout) -> IO PageLayout -> m PageLayout
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CUInt
result <- Ptr Document -> IO CUInt
poppler_document_get_page_layout Ptr Document
document'
let result' :: PageLayout
result' = (Int -> PageLayout
forall a. Enum a => Int -> a
toEnum (Int -> PageLayout) -> (CUInt -> Int) -> CUInt -> PageLayout
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
PageLayout -> IO PageLayout
forall (m :: * -> *) a. Monad m => a -> m a
return PageLayout
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetPageLayoutMethodInfo
instance (signature ~ (m Poppler.Enums.PageLayout), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetPageLayoutMethodInfo a signature where
overloadedMethod = documentGetPageLayout
instance O.OverloadedMethodInfo DocumentGetPageLayoutMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetPageLayout",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetPageLayout"
})
#endif
foreign import ccall "poppler_document_get_page_mode" poppler_document_get_page_mode ::
Ptr Document ->
IO CUInt
documentGetPageMode ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m Poppler.Enums.PageMode
documentGetPageMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m PageMode
documentGetPageMode a
document = IO PageMode -> m PageMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PageMode -> m PageMode) -> IO PageMode -> m PageMode
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CUInt
result <- Ptr Document -> IO CUInt
poppler_document_get_page_mode Ptr Document
document'
let result' :: PageMode
result' = (Int -> PageMode
forall a. Enum a => Int -> a
toEnum (Int -> PageMode) -> (CUInt -> Int) -> CUInt -> PageMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
PageMode -> IO PageMode
forall (m :: * -> *) a. Monad m => a -> m a
return PageMode
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetPageModeMethodInfo
instance (signature ~ (m Poppler.Enums.PageMode), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetPageModeMethodInfo a signature where
overloadedMethod = documentGetPageMode
instance O.OverloadedMethodInfo DocumentGetPageModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetPageMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetPageMode"
})
#endif
foreign import ccall "poppler_document_get_pdf_conformance" poppler_document_get_pdf_conformance ::
Ptr Document ->
IO CUInt
documentGetPdfConformance ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m Poppler.Enums.PDFConformance
documentGetPdfConformance :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m PDFConformance
documentGetPdfConformance a
document = IO PDFConformance -> m PDFConformance
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PDFConformance -> m PDFConformance)
-> IO PDFConformance -> m PDFConformance
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CUInt
result <- Ptr Document -> IO CUInt
poppler_document_get_pdf_conformance Ptr Document
document'
let result' :: PDFConformance
result' = (Int -> PDFConformance
forall a. Enum a => Int -> a
toEnum (Int -> PDFConformance)
-> (CUInt -> Int) -> CUInt -> PDFConformance
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
PDFConformance -> IO PDFConformance
forall (m :: * -> *) a. Monad m => a -> m a
return PDFConformance
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetPdfConformanceMethodInfo
instance (signature ~ (m Poppler.Enums.PDFConformance), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetPdfConformanceMethodInfo a signature where
overloadedMethod = documentGetPdfConformance
instance O.OverloadedMethodInfo DocumentGetPdfConformanceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetPdfConformance",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetPdfConformance"
})
#endif
foreign import ccall "poppler_document_get_pdf_part" poppler_document_get_pdf_part ::
Ptr Document ->
IO CUInt
documentGetPdfPart ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m Poppler.Enums.PDFPart
documentGetPdfPart :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m PDFPart
documentGetPdfPart a
document = IO PDFPart -> m PDFPart
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PDFPart -> m PDFPart) -> IO PDFPart -> m PDFPart
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CUInt
result <- Ptr Document -> IO CUInt
poppler_document_get_pdf_part Ptr Document
document'
let result' :: PDFPart
result' = (Int -> PDFPart
forall a. Enum a => Int -> a
toEnum (Int -> PDFPart) -> (CUInt -> Int) -> CUInt -> PDFPart
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
PDFPart -> IO PDFPart
forall (m :: * -> *) a. Monad m => a -> m a
return PDFPart
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetPdfPartMethodInfo
instance (signature ~ (m Poppler.Enums.PDFPart), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetPdfPartMethodInfo a signature where
overloadedMethod = documentGetPdfPart
instance O.OverloadedMethodInfo DocumentGetPdfPartMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetPdfPart",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetPdfPart"
})
#endif
foreign import ccall "poppler_document_get_pdf_subtype" poppler_document_get_pdf_subtype ::
Ptr Document ->
IO CUInt
documentGetPdfSubtype ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m Poppler.Enums.PDFSubtype
documentGetPdfSubtype :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m PDFSubtype
documentGetPdfSubtype a
document = IO PDFSubtype -> m PDFSubtype
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PDFSubtype -> m PDFSubtype) -> IO PDFSubtype -> m PDFSubtype
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CUInt
result <- Ptr Document -> IO CUInt
poppler_document_get_pdf_subtype Ptr Document
document'
let result' :: PDFSubtype
result' = (Int -> PDFSubtype
forall a. Enum a => Int -> a
toEnum (Int -> PDFSubtype) -> (CUInt -> Int) -> CUInt -> PDFSubtype
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
PDFSubtype -> IO PDFSubtype
forall (m :: * -> *) a. Monad m => a -> m a
return PDFSubtype
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetPdfSubtypeMethodInfo
instance (signature ~ (m Poppler.Enums.PDFSubtype), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetPdfSubtypeMethodInfo a signature where
overloadedMethod = documentGetPdfSubtype
instance O.OverloadedMethodInfo DocumentGetPdfSubtypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetPdfSubtype",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetPdfSubtype"
})
#endif
foreign import ccall "poppler_document_get_pdf_subtype_string" poppler_document_get_pdf_subtype_string ::
Ptr Document ->
IO CString
documentGetPdfSubtypeString ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m (Maybe T.Text)
documentGetPdfSubtypeString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m (Maybe Text)
documentGetPdfSubtypeString a
document = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
result <- Ptr Document -> IO (Ptr CChar)
poppler_document_get_pdf_subtype_string Ptr Document
document'
Maybe Text
maybeResult <- Ptr CChar -> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CChar
result ((Ptr CChar -> IO Text) -> IO (Maybe Text))
-> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
result' -> do
Text
result'' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result'
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data DocumentGetPdfSubtypeStringMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetPdfSubtypeStringMethodInfo a signature where
overloadedMethod = documentGetPdfSubtypeString
instance O.OverloadedMethodInfo DocumentGetPdfSubtypeStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetPdfSubtypeString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetPdfSubtypeString"
})
#endif
foreign import ccall "poppler_document_get_pdf_version" poppler_document_get_pdf_version ::
Ptr Document ->
Ptr Word32 ->
Ptr Word32 ->
IO ()
documentGetPdfVersion ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m ((Word32, Word32))
documentGetPdfVersion :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m (Word32, Word32)
documentGetPdfVersion a
document = IO (Word32, Word32) -> m (Word32, Word32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Word32, Word32) -> m (Word32, Word32))
-> IO (Word32, Word32) -> m (Word32, Word32)
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr Word32
majorVersion <- IO (Ptr Word32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word32)
Ptr Word32
minorVersion <- IO (Ptr Word32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word32)
Ptr Document -> Ptr Word32 -> Ptr Word32 -> IO ()
poppler_document_get_pdf_version Ptr Document
document' Ptr Word32
majorVersion Ptr Word32
minorVersion
Word32
majorVersion' <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek Ptr Word32
majorVersion
Word32
minorVersion' <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek Ptr Word32
minorVersion
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Ptr Word32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word32
majorVersion
Ptr Word32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word32
minorVersion
(Word32, Word32) -> IO (Word32, Word32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Word32
majorVersion', Word32
minorVersion')
#if defined(ENABLE_OVERLOADING)
data DocumentGetPdfVersionMethodInfo
instance (signature ~ (m ((Word32, Word32))), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetPdfVersionMethodInfo a signature where
overloadedMethod = documentGetPdfVersion
instance O.OverloadedMethodInfo DocumentGetPdfVersionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetPdfVersion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetPdfVersion"
})
#endif
foreign import ccall "poppler_document_get_pdf_version_string" poppler_document_get_pdf_version_string ::
Ptr Document ->
IO CString
documentGetPdfVersionString ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m T.Text
documentGetPdfVersionString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m Text
documentGetPdfVersionString a
document = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
result <- Ptr Document -> IO (Ptr CChar)
poppler_document_get_pdf_version_string Ptr Document
document'
Text -> Ptr CChar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentGetPdfVersionString" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetPdfVersionStringMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetPdfVersionStringMethodInfo a signature where
overloadedMethod = documentGetPdfVersionString
instance O.OverloadedMethodInfo DocumentGetPdfVersionStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetPdfVersionString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetPdfVersionString"
})
#endif
foreign import ccall "poppler_document_get_permissions" poppler_document_get_permissions ::
Ptr Document ->
IO CUInt
documentGetPermissions ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m [Poppler.Flags.Permissions]
documentGetPermissions :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m [Permissions]
documentGetPermissions a
document = IO [Permissions] -> m [Permissions]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Permissions] -> m [Permissions])
-> IO [Permissions] -> m [Permissions]
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CUInt
result <- Ptr Document -> IO CUInt
poppler_document_get_permissions Ptr Document
document'
let result' :: [Permissions]
result' = CUInt -> [Permissions]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
[Permissions] -> IO [Permissions]
forall (m :: * -> *) a. Monad m => a -> m a
return [Permissions]
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetPermissionsMethodInfo
instance (signature ~ (m [Poppler.Flags.Permissions]), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetPermissionsMethodInfo a signature where
overloadedMethod = documentGetPermissions
instance O.OverloadedMethodInfo DocumentGetPermissionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetPermissions",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetPermissions"
})
#endif
foreign import ccall "poppler_document_get_print_duplex" poppler_document_get_print_duplex ::
Ptr Document ->
IO CUInt
documentGetPrintDuplex ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m Poppler.Enums.PrintDuplex
documentGetPrintDuplex :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m PrintDuplex
documentGetPrintDuplex a
document = IO PrintDuplex -> m PrintDuplex
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PrintDuplex -> m PrintDuplex)
-> IO PrintDuplex -> m PrintDuplex
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CUInt
result <- Ptr Document -> IO CUInt
poppler_document_get_print_duplex Ptr Document
document'
let result' :: PrintDuplex
result' = (Int -> PrintDuplex
forall a. Enum a => Int -> a
toEnum (Int -> PrintDuplex) -> (CUInt -> Int) -> CUInt -> PrintDuplex
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
PrintDuplex -> IO PrintDuplex
forall (m :: * -> *) a. Monad m => a -> m a
return PrintDuplex
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetPrintDuplexMethodInfo
instance (signature ~ (m Poppler.Enums.PrintDuplex), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetPrintDuplexMethodInfo a signature where
overloadedMethod = documentGetPrintDuplex
instance O.OverloadedMethodInfo DocumentGetPrintDuplexMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetPrintDuplex",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetPrintDuplex"
})
#endif
foreign import ccall "poppler_document_get_print_n_copies" poppler_document_get_print_n_copies ::
Ptr Document ->
IO Int32
documentGetPrintNCopies ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m Int32
documentGetPrintNCopies :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m Int32
documentGetPrintNCopies a
document = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Int32
result <- Ptr Document -> IO Int32
poppler_document_get_print_n_copies Ptr Document
document'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data DocumentGetPrintNCopiesMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetPrintNCopiesMethodInfo a signature where
overloadedMethod = documentGetPrintNCopies
instance O.OverloadedMethodInfo DocumentGetPrintNCopiesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetPrintNCopies",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetPrintNCopies"
})
#endif
foreign import ccall "poppler_document_get_print_page_ranges" poppler_document_get_print_page_ranges ::
Ptr Document ->
Ptr Int32 ->
IO (Ptr Poppler.PageRange.PageRange)
documentGetPrintPageRanges ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m [Poppler.PageRange.PageRange]
a
document = IO [PageRange] -> m [PageRange]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [PageRange] -> m [PageRange])
-> IO [PageRange] -> m [PageRange]
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr Int32
nRanges <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr PageRange
result <- Ptr Document -> Ptr Int32 -> IO (Ptr PageRange)
poppler_document_get_print_page_ranges Ptr Document
document' Ptr Int32
nRanges
Int32
nRanges' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
nRanges
Text -> Ptr PageRange -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentGetPrintPageRanges" Ptr PageRange
result
[Ptr PageRange]
result' <- (Int -> Int32 -> Ptr PageRange -> IO [Ptr PageRange]
forall a b. Integral a => Int -> a -> Ptr b -> IO [Ptr b]
unpackBlockArrayWithLength Int
8 Int32
nRanges') Ptr PageRange
result
[PageRange]
result'' <- (Ptr PageRange -> IO PageRange)
-> [Ptr PageRange] -> IO [PageRange]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr PageRange -> PageRange)
-> Ptr PageRange -> IO PageRange
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr PageRange -> PageRange
Poppler.PageRange.PageRange) [Ptr PageRange]
result'
Ptr PageRange -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr PageRange
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
nRanges
[PageRange] -> IO [PageRange]
forall (m :: * -> *) a. Monad m => a -> m a
return [PageRange]
result''
#if defined(ENABLE_OVERLOADING)
data DocumentGetPrintPageRangesMethodInfo
instance (signature ~ (m [Poppler.PageRange.PageRange]), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetPrintPageRangesMethodInfo a signature where
overloadedMethod = documentGetPrintPageRanges
instance O.OverloadedMethodInfo DocumentGetPrintPageRangesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetPrintPageRanges",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetPrintPageRanges"
})
#endif
foreign import ccall "poppler_document_get_print_scaling" poppler_document_get_print_scaling ::
Ptr Document ->
IO CUInt
documentGetPrintScaling ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m Poppler.Enums.PrintScaling
documentGetPrintScaling :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m PrintScaling
documentGetPrintScaling a
document = IO PrintScaling -> m PrintScaling
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PrintScaling -> m PrintScaling)
-> IO PrintScaling -> m PrintScaling
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CUInt
result <- Ptr Document -> IO CUInt
poppler_document_get_print_scaling Ptr Document
document'
let result' :: PrintScaling
result' = (Int -> PrintScaling
forall a. Enum a => Int -> a
toEnum (Int -> PrintScaling) -> (CUInt -> Int) -> CUInt -> PrintScaling
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
PrintScaling -> IO PrintScaling
forall (m :: * -> *) a. Monad m => a -> m a
return PrintScaling
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetPrintScalingMethodInfo
instance (signature ~ (m Poppler.Enums.PrintScaling), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetPrintScalingMethodInfo a signature where
overloadedMethod = documentGetPrintScaling
instance O.OverloadedMethodInfo DocumentGetPrintScalingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetPrintScaling",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetPrintScaling"
})
#endif
foreign import ccall "poppler_document_get_producer" poppler_document_get_producer ::
Ptr Document ->
IO CString
documentGetProducer ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m T.Text
documentGetProducer :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m Text
documentGetProducer a
document = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
result <- Ptr Document -> IO (Ptr CChar)
poppler_document_get_producer Ptr Document
document'
Text -> Ptr CChar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentGetProducer" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetProducerMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetProducerMethodInfo a signature where
overloadedMethod = documentGetProducer
instance O.OverloadedMethodInfo DocumentGetProducerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetProducer",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetProducer"
})
#endif
foreign import ccall "poppler_document_get_subject" poppler_document_get_subject ::
Ptr Document ->
IO CString
documentGetSubject ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m T.Text
documentGetSubject :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m Text
documentGetSubject a
document = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
result <- Ptr Document -> IO (Ptr CChar)
poppler_document_get_subject Ptr Document
document'
Text -> Ptr CChar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentGetSubject" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetSubjectMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetSubjectMethodInfo a signature where
overloadedMethod = documentGetSubject
instance O.OverloadedMethodInfo DocumentGetSubjectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetSubject",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetSubject"
})
#endif
foreign import ccall "poppler_document_get_title" poppler_document_get_title ::
Ptr Document ->
IO CString
documentGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m T.Text
documentGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m Text
documentGetTitle a
document = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
result <- Ptr Document -> IO (Ptr CChar)
poppler_document_get_title Ptr Document
document'
Text -> Ptr CChar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"documentGetTitle" Ptr CChar
result
Text
result' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DocumentGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentGetTitleMethodInfo a signature where
overloadedMethod = documentGetTitle
instance O.OverloadedMethodInfo DocumentGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentGetTitle"
})
#endif
foreign import ccall "poppler_document_has_attachments" poppler_document_has_attachments ::
Ptr Document ->
IO CInt
documentHasAttachments ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m Bool
documentHasAttachments :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m Bool
documentHasAttachments a
document = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CInt
result <- Ptr Document -> IO CInt
poppler_document_has_attachments Ptr Document
document'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DocumentHasAttachmentsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentHasAttachmentsMethodInfo a signature where
overloadedMethod = documentHasAttachments
instance O.OverloadedMethodInfo DocumentHasAttachmentsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentHasAttachments",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentHasAttachments"
})
#endif
foreign import ccall "poppler_document_has_javascript" poppler_document_has_javascript ::
Ptr Document ->
IO CInt
documentHasJavascript ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m Bool
documentHasJavascript :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m Bool
documentHasJavascript a
document = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CInt
result <- Ptr Document -> IO CInt
poppler_document_has_javascript Ptr Document
document'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DocumentHasJavascriptMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentHasJavascriptMethodInfo a signature where
overloadedMethod = documentHasJavascript
instance O.OverloadedMethodInfo DocumentHasJavascriptMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentHasJavascript",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentHasJavascript"
})
#endif
foreign import ccall "poppler_document_is_linearized" poppler_document_is_linearized ::
Ptr Document ->
IO CInt
documentIsLinearized ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> m Bool
documentIsLinearized :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> m Bool
documentIsLinearized a
document = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
CInt
result <- Ptr Document -> IO CInt
poppler_document_is_linearized Ptr Document
document'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DocumentIsLinearizedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentIsLinearizedMethodInfo a signature where
overloadedMethod = documentIsLinearized
instance O.OverloadedMethodInfo DocumentIsLinearizedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentIsLinearized",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentIsLinearized"
})
#endif
foreign import ccall "poppler_document_save" poppler_document_save ::
Ptr Document ->
CString ->
Ptr (Ptr GError) ->
IO CInt
documentSave ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> T.Text
-> m ()
documentSave :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Text -> m ()
documentSave a
document Text
uri = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
uri' <- Text -> IO (Ptr CChar)
textToCString Text
uri
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Document -> Ptr CChar -> Ptr (Ptr GError) -> IO CInt
poppler_document_save Ptr Document
document' Ptr CChar
uri'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
uri'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
uri'
)
#if defined(ENABLE_OVERLOADING)
data DocumentSaveMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentSaveMethodInfo a signature where
overloadedMethod = documentSave
instance O.OverloadedMethodInfo DocumentSaveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentSave",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentSave"
})
#endif
foreign import ccall "poppler_document_save_a_copy" poppler_document_save_a_copy ::
Ptr Document ->
CString ->
Ptr (Ptr GError) ->
IO CInt
documentSaveACopy ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> T.Text
-> m ()
documentSaveACopy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Text -> m ()
documentSaveACopy a
document Text
uri = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
uri' <- Text -> IO (Ptr CChar)
textToCString Text
uri
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Document -> Ptr CChar -> Ptr (Ptr GError) -> IO CInt
poppler_document_save_a_copy Ptr Document
document' Ptr CChar
uri'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
uri'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
uri'
)
#if defined(ENABLE_OVERLOADING)
data DocumentSaveACopyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentSaveACopyMethodInfo a signature where
overloadedMethod = documentSaveACopy
instance O.OverloadedMethodInfo DocumentSaveACopyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentSaveACopy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentSaveACopy"
})
#endif
foreign import ccall "poppler_document_set_author" poppler_document_set_author ::
Ptr Document ->
CString ->
IO ()
documentSetAuthor ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> T.Text
-> m ()
documentSetAuthor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Text -> m ()
documentSetAuthor a
document Text
author = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
author' <- Text -> IO (Ptr CChar)
textToCString Text
author
Ptr Document -> Ptr CChar -> IO ()
poppler_document_set_author Ptr Document
document' Ptr CChar
author'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
author'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DocumentSetAuthorMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentSetAuthorMethodInfo a signature where
overloadedMethod = documentSetAuthor
instance O.OverloadedMethodInfo DocumentSetAuthorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentSetAuthor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentSetAuthor"
})
#endif
foreign import ccall "poppler_document_set_creation_date" poppler_document_set_creation_date ::
Ptr Document ->
CLong ->
IO ()
documentSetCreationDate ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> CLong
-> m ()
documentSetCreationDate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> CLong -> m ()
documentSetCreationDate a
document CLong
creationDate = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr Document -> CLong -> IO ()
poppler_document_set_creation_date Ptr Document
document' CLong
creationDate
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DocumentSetCreationDateMethodInfo
instance (signature ~ (CLong -> m ()), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentSetCreationDateMethodInfo a signature where
overloadedMethod = documentSetCreationDate
instance O.OverloadedMethodInfo DocumentSetCreationDateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentSetCreationDate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentSetCreationDate"
})
#endif
foreign import ccall "poppler_document_set_creation_date_time" poppler_document_set_creation_date_time ::
Ptr Document ->
Ptr GLib.DateTime.DateTime ->
IO ()
documentSetCreationDateTime ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> Maybe (GLib.DateTime.DateTime)
-> m ()
documentSetCreationDateTime :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Maybe DateTime -> m ()
documentSetCreationDateTime a
document Maybe DateTime
creationDatetime = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr DateTime
maybeCreationDatetime <- case Maybe DateTime
creationDatetime of
Maybe DateTime
Nothing -> Ptr DateTime -> IO (Ptr DateTime)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DateTime
forall a. Ptr a
nullPtr
Just DateTime
jCreationDatetime -> do
Ptr DateTime
jCreationDatetime' <- DateTime -> IO (Ptr DateTime)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr DateTime
jCreationDatetime
Ptr DateTime -> IO (Ptr DateTime)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DateTime
jCreationDatetime'
Ptr Document -> Ptr DateTime -> IO ()
poppler_document_set_creation_date_time Ptr Document
document' Ptr DateTime
maybeCreationDatetime
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Maybe DateTime -> (DateTime -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe DateTime
creationDatetime DateTime -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DocumentSetCreationDateTimeMethodInfo
instance (signature ~ (Maybe (GLib.DateTime.DateTime) -> m ()), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentSetCreationDateTimeMethodInfo a signature where
overloadedMethod = documentSetCreationDateTime
instance O.OverloadedMethodInfo DocumentSetCreationDateTimeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentSetCreationDateTime",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentSetCreationDateTime"
})
#endif
foreign import ccall "poppler_document_set_creator" poppler_document_set_creator ::
Ptr Document ->
CString ->
IO ()
documentSetCreator ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> T.Text
-> m ()
documentSetCreator :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Text -> m ()
documentSetCreator a
document Text
creator = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
creator' <- Text -> IO (Ptr CChar)
textToCString Text
creator
Ptr Document -> Ptr CChar -> IO ()
poppler_document_set_creator Ptr Document
document' Ptr CChar
creator'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
creator'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DocumentSetCreatorMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentSetCreatorMethodInfo a signature where
overloadedMethod = documentSetCreator
instance O.OverloadedMethodInfo DocumentSetCreatorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentSetCreator",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentSetCreator"
})
#endif
foreign import ccall "poppler_document_set_keywords" poppler_document_set_keywords ::
Ptr Document ->
CString ->
IO ()
documentSetKeywords ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> T.Text
-> m ()
documentSetKeywords :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Text -> m ()
documentSetKeywords a
document Text
keywords = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
keywords' <- Text -> IO (Ptr CChar)
textToCString Text
keywords
Ptr Document -> Ptr CChar -> IO ()
poppler_document_set_keywords Ptr Document
document' Ptr CChar
keywords'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
keywords'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DocumentSetKeywordsMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentSetKeywordsMethodInfo a signature where
overloadedMethod = documentSetKeywords
instance O.OverloadedMethodInfo DocumentSetKeywordsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentSetKeywords",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentSetKeywords"
})
#endif
foreign import ccall "poppler_document_set_modification_date" poppler_document_set_modification_date ::
Ptr Document ->
CLong ->
IO ()
documentSetModificationDate ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> CLong
-> m ()
documentSetModificationDate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> CLong -> m ()
documentSetModificationDate a
document CLong
modificationDate = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr Document -> CLong -> IO ()
poppler_document_set_modification_date Ptr Document
document' CLong
modificationDate
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DocumentSetModificationDateMethodInfo
instance (signature ~ (CLong -> m ()), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentSetModificationDateMethodInfo a signature where
overloadedMethod = documentSetModificationDate
instance O.OverloadedMethodInfo DocumentSetModificationDateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentSetModificationDate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentSetModificationDate"
})
#endif
foreign import ccall "poppler_document_set_modification_date_time" poppler_document_set_modification_date_time ::
Ptr Document ->
Ptr GLib.DateTime.DateTime ->
IO ()
documentSetModificationDateTime ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> Maybe (GLib.DateTime.DateTime)
-> m ()
documentSetModificationDateTime :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Maybe DateTime -> m ()
documentSetModificationDateTime a
document Maybe DateTime
modificationDatetime = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr DateTime
maybeModificationDatetime <- case Maybe DateTime
modificationDatetime of
Maybe DateTime
Nothing -> Ptr DateTime -> IO (Ptr DateTime)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DateTime
forall a. Ptr a
nullPtr
Just DateTime
jModificationDatetime -> do
Ptr DateTime
jModificationDatetime' <- DateTime -> IO (Ptr DateTime)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr DateTime
jModificationDatetime
Ptr DateTime -> IO (Ptr DateTime)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr DateTime
jModificationDatetime'
Ptr Document -> Ptr DateTime -> IO ()
poppler_document_set_modification_date_time Ptr Document
document' Ptr DateTime
maybeModificationDatetime
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Maybe DateTime -> (DateTime -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe DateTime
modificationDatetime DateTime -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DocumentSetModificationDateTimeMethodInfo
instance (signature ~ (Maybe (GLib.DateTime.DateTime) -> m ()), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentSetModificationDateTimeMethodInfo a signature where
overloadedMethod = documentSetModificationDateTime
instance O.OverloadedMethodInfo DocumentSetModificationDateTimeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentSetModificationDateTime",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentSetModificationDateTime"
})
#endif
foreign import ccall "poppler_document_set_producer" poppler_document_set_producer ::
Ptr Document ->
CString ->
IO ()
documentSetProducer ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> T.Text
-> m ()
documentSetProducer :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Text -> m ()
documentSetProducer a
document Text
producer = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
producer' <- Text -> IO (Ptr CChar)
textToCString Text
producer
Ptr Document -> Ptr CChar -> IO ()
poppler_document_set_producer Ptr Document
document' Ptr CChar
producer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
producer'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DocumentSetProducerMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentSetProducerMethodInfo a signature where
overloadedMethod = documentSetProducer
instance O.OverloadedMethodInfo DocumentSetProducerMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentSetProducer",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentSetProducer"
})
#endif
foreign import ccall "poppler_document_set_subject" poppler_document_set_subject ::
Ptr Document ->
CString ->
IO ()
documentSetSubject ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> T.Text
-> m ()
documentSetSubject :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Text -> m ()
documentSetSubject a
document Text
subject = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
subject' <- Text -> IO (Ptr CChar)
textToCString Text
subject
Ptr Document -> Ptr CChar -> IO ()
poppler_document_set_subject Ptr Document
document' Ptr CChar
subject'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
subject'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DocumentSetSubjectMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentSetSubjectMethodInfo a signature where
overloadedMethod = documentSetSubject
instance O.OverloadedMethodInfo DocumentSetSubjectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentSetSubject",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentSetSubject"
})
#endif
foreign import ccall "poppler_document_set_title" poppler_document_set_title ::
Ptr Document ->
CString ->
IO ()
documentSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsDocument a) =>
a
-> T.Text
-> m ()
documentSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Text -> m ()
documentSetTitle a
document Text
title = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
document' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
document
Ptr CChar
title' <- Text -> IO (Ptr CChar)
textToCString Text
title
Ptr Document -> Ptr CChar -> IO ()
poppler_document_set_title Ptr Document
document' Ptr CChar
title'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
document
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
title'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DocumentSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDocument a) => O.OverloadedMethod DocumentSetTitleMethodInfo a signature where
overloadedMethod = documentSetTitle
instance O.OverloadedMethodInfo DocumentSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.Document.documentSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.26/docs/GI-Poppler-Objects-Document.html#v:documentSetTitle"
})
#endif