{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Poppler.Objects.AnnotFileAttachment
(
AnnotFileAttachment(..) ,
IsAnnotFileAttachment ,
toAnnotFileAttachment ,
#if defined(ENABLE_OVERLOADING)
ResolveAnnotFileAttachmentMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
AnnotFileAttachmentGetAttachmentMethodInfo,
#endif
annotFileAttachmentGetAttachment ,
#if defined(ENABLE_OVERLOADING)
AnnotFileAttachmentGetNameMethodInfo ,
#endif
annotFileAttachmentGetName ,
) 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.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.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 GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Poppler.Objects.Annot as Poppler.Annot
import {-# SOURCE #-} qualified GI.Poppler.Objects.AnnotMarkup as Poppler.AnnotMarkup
import {-# SOURCE #-} qualified GI.Poppler.Objects.Attachment as Poppler.Attachment
newtype AnnotFileAttachment = AnnotFileAttachment (SP.ManagedPtr AnnotFileAttachment)
deriving (AnnotFileAttachment -> AnnotFileAttachment -> Bool
(AnnotFileAttachment -> AnnotFileAttachment -> Bool)
-> (AnnotFileAttachment -> AnnotFileAttachment -> Bool)
-> Eq AnnotFileAttachment
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AnnotFileAttachment -> AnnotFileAttachment -> Bool
$c/= :: AnnotFileAttachment -> AnnotFileAttachment -> Bool
== :: AnnotFileAttachment -> AnnotFileAttachment -> Bool
$c== :: AnnotFileAttachment -> AnnotFileAttachment -> Bool
Eq)
instance SP.ManagedPtrNewtype AnnotFileAttachment where
toManagedPtr :: AnnotFileAttachment -> ManagedPtr AnnotFileAttachment
toManagedPtr (AnnotFileAttachment ManagedPtr AnnotFileAttachment
p) = ManagedPtr AnnotFileAttachment
p
foreign import ccall "poppler_annot_file_attachment_get_type"
c_poppler_annot_file_attachment_get_type :: IO B.Types.GType
instance B.Types.TypedObject AnnotFileAttachment where
glibType :: IO GType
glibType = IO GType
c_poppler_annot_file_attachment_get_type
instance B.Types.GObject AnnotFileAttachment
instance B.GValue.IsGValue AnnotFileAttachment where
toGValue :: AnnotFileAttachment -> IO GValue
toGValue AnnotFileAttachment
o = do
GType
gtype <- IO GType
c_poppler_annot_file_attachment_get_type
AnnotFileAttachment
-> (Ptr AnnotFileAttachment -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr AnnotFileAttachment
o (GType
-> (GValue -> Ptr AnnotFileAttachment -> IO ())
-> Ptr AnnotFileAttachment
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr AnnotFileAttachment -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO AnnotFileAttachment
fromGValue GValue
gv = do
Ptr AnnotFileAttachment
ptr <- GValue -> IO (Ptr AnnotFileAttachment)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr AnnotFileAttachment)
(ManagedPtr AnnotFileAttachment -> AnnotFileAttachment)
-> Ptr AnnotFileAttachment -> IO AnnotFileAttachment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr AnnotFileAttachment -> AnnotFileAttachment
AnnotFileAttachment Ptr AnnotFileAttachment
ptr
class (SP.GObject o, O.IsDescendantOf AnnotFileAttachment o) => IsAnnotFileAttachment o
instance (SP.GObject o, O.IsDescendantOf AnnotFileAttachment o) => IsAnnotFileAttachment o
instance O.HasParentTypes AnnotFileAttachment
type instance O.ParentTypes AnnotFileAttachment = '[Poppler.AnnotMarkup.AnnotMarkup, Poppler.Annot.Annot, GObject.Object.Object]
toAnnotFileAttachment :: (MonadIO m, IsAnnotFileAttachment o) => o -> m AnnotFileAttachment
toAnnotFileAttachment :: o -> m AnnotFileAttachment
toAnnotFileAttachment = IO AnnotFileAttachment -> m AnnotFileAttachment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AnnotFileAttachment -> m AnnotFileAttachment)
-> (o -> IO AnnotFileAttachment) -> o -> m AnnotFileAttachment
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr AnnotFileAttachment -> AnnotFileAttachment)
-> o -> IO AnnotFileAttachment
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr AnnotFileAttachment -> AnnotFileAttachment
AnnotFileAttachment
#if defined(ENABLE_OVERLOADING)
type family ResolveAnnotFileAttachmentMethod (t :: Symbol) (o :: *) :: * where
ResolveAnnotFileAttachmentMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAnnotFileAttachmentMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAnnotFileAttachmentMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAnnotFileAttachmentMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAnnotFileAttachmentMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAnnotFileAttachmentMethod "hasPopup" o = Poppler.AnnotMarkup.AnnotMarkupHasPopupMethodInfo
ResolveAnnotFileAttachmentMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAnnotFileAttachmentMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAnnotFileAttachmentMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAnnotFileAttachmentMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAnnotFileAttachmentMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAnnotFileAttachmentMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAnnotFileAttachmentMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAnnotFileAttachmentMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAnnotFileAttachmentMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAnnotFileAttachmentMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAnnotFileAttachmentMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAnnotFileAttachmentMethod "getAnnotType" o = Poppler.Annot.AnnotGetAnnotTypeMethodInfo
ResolveAnnotFileAttachmentMethod "getAttachment" o = AnnotFileAttachmentGetAttachmentMethodInfo
ResolveAnnotFileAttachmentMethod "getColor" o = Poppler.Annot.AnnotGetColorMethodInfo
ResolveAnnotFileAttachmentMethod "getContents" o = Poppler.Annot.AnnotGetContentsMethodInfo
ResolveAnnotFileAttachmentMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAnnotFileAttachmentMethod "getDate" o = Poppler.AnnotMarkup.AnnotMarkupGetDateMethodInfo
ResolveAnnotFileAttachmentMethod "getExternalData" o = Poppler.AnnotMarkup.AnnotMarkupGetExternalDataMethodInfo
ResolveAnnotFileAttachmentMethod "getFlags" o = Poppler.Annot.AnnotGetFlagsMethodInfo
ResolveAnnotFileAttachmentMethod "getLabel" o = Poppler.AnnotMarkup.AnnotMarkupGetLabelMethodInfo
ResolveAnnotFileAttachmentMethod "getModified" o = Poppler.Annot.AnnotGetModifiedMethodInfo
ResolveAnnotFileAttachmentMethod "getName" o = AnnotFileAttachmentGetNameMethodInfo
ResolveAnnotFileAttachmentMethod "getOpacity" o = Poppler.AnnotMarkup.AnnotMarkupGetOpacityMethodInfo
ResolveAnnotFileAttachmentMethod "getPageIndex" o = Poppler.Annot.AnnotGetPageIndexMethodInfo
ResolveAnnotFileAttachmentMethod "getPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupIsOpenMethodInfo
ResolveAnnotFileAttachmentMethod "getPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupRectangleMethodInfo
ResolveAnnotFileAttachmentMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAnnotFileAttachmentMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAnnotFileAttachmentMethod "getRectangle" o = Poppler.Annot.AnnotGetRectangleMethodInfo
ResolveAnnotFileAttachmentMethod "getReplyTo" o = Poppler.AnnotMarkup.AnnotMarkupGetReplyToMethodInfo
ResolveAnnotFileAttachmentMethod "getSubject" o = Poppler.AnnotMarkup.AnnotMarkupGetSubjectMethodInfo
ResolveAnnotFileAttachmentMethod "setColor" o = Poppler.Annot.AnnotSetColorMethodInfo
ResolveAnnotFileAttachmentMethod "setContents" o = Poppler.Annot.AnnotSetContentsMethodInfo
ResolveAnnotFileAttachmentMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAnnotFileAttachmentMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveAnnotFileAttachmentMethod "setFlags" o = Poppler.Annot.AnnotSetFlagsMethodInfo
ResolveAnnotFileAttachmentMethod "setLabel" o = Poppler.AnnotMarkup.AnnotMarkupSetLabelMethodInfo
ResolveAnnotFileAttachmentMethod "setOpacity" o = Poppler.AnnotMarkup.AnnotMarkupSetOpacityMethodInfo
ResolveAnnotFileAttachmentMethod "setPopup" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupMethodInfo
ResolveAnnotFileAttachmentMethod "setPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupIsOpenMethodInfo
ResolveAnnotFileAttachmentMethod "setPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupRectangleMethodInfo
ResolveAnnotFileAttachmentMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAnnotFileAttachmentMethod "setRectangle" o = Poppler.Annot.AnnotSetRectangleMethodInfo
ResolveAnnotFileAttachmentMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAnnotFileAttachmentMethod t AnnotFileAttachment, O.MethodInfo info AnnotFileAttachment p) => OL.IsLabel t (AnnotFileAttachment -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList AnnotFileAttachment
type instance O.AttributeList AnnotFileAttachment = AnnotFileAttachmentAttributeList
type AnnotFileAttachmentAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList AnnotFileAttachment = AnnotFileAttachmentSignalList
type AnnotFileAttachmentSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "poppler_annot_file_attachment_get_attachment" poppler_annot_file_attachment_get_attachment ::
Ptr AnnotFileAttachment ->
IO (Ptr Poppler.Attachment.Attachment)
annotFileAttachmentGetAttachment ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotFileAttachment a) =>
a
-> m Poppler.Attachment.Attachment
annotFileAttachmentGetAttachment :: a -> m Attachment
annotFileAttachmentGetAttachment a
popplerAnnot = 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 AnnotFileAttachment
popplerAnnot' <- a -> IO (Ptr AnnotFileAttachment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerAnnot
Ptr Attachment
result <- Ptr AnnotFileAttachment -> IO (Ptr Attachment)
poppler_annot_file_attachment_get_attachment Ptr AnnotFileAttachment
popplerAnnot'
Text -> Ptr Attachment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotFileAttachmentGetAttachment" Ptr Attachment
result
Attachment
result' <- ((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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerAnnot
Attachment -> IO Attachment
forall (m :: * -> *) a. Monad m => a -> m a
return Attachment
result'
#if defined(ENABLE_OVERLOADING)
data AnnotFileAttachmentGetAttachmentMethodInfo
instance (signature ~ (m Poppler.Attachment.Attachment), MonadIO m, IsAnnotFileAttachment a) => O.MethodInfo AnnotFileAttachmentGetAttachmentMethodInfo a signature where
overloadedMethod = annotFileAttachmentGetAttachment
#endif
foreign import ccall "poppler_annot_file_attachment_get_name" poppler_annot_file_attachment_get_name ::
Ptr AnnotFileAttachment ->
IO CString
annotFileAttachmentGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotFileAttachment a) =>
a
-> m T.Text
annotFileAttachmentGetName :: a -> m Text
annotFileAttachmentGetName a
popplerAnnot = 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 AnnotFileAttachment
popplerAnnot' <- a -> IO (Ptr AnnotFileAttachment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerAnnot
CString
result <- Ptr AnnotFileAttachment -> IO CString
poppler_annot_file_attachment_get_name Ptr AnnotFileAttachment
popplerAnnot'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotFileAttachmentGetName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerAnnot
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AnnotFileAttachmentGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAnnotFileAttachment a) => O.MethodInfo AnnotFileAttachmentGetNameMethodInfo a signature where
overloadedMethod = annotFileAttachmentGetName
#endif