{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Poppler.Objects.AnnotTextMarkup
(
AnnotTextMarkup(..) ,
IsAnnotTextMarkup ,
toAnnotTextMarkup ,
#if defined(ENABLE_OVERLOADING)
ResolveAnnotTextMarkupMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
AnnotTextMarkupGetQuadrilateralsMethodInfo,
#endif
annotTextMarkupGetQuadrilaterals ,
annotTextMarkupNewHighlight ,
annotTextMarkupNewSquiggly ,
annotTextMarkupNewStrikeout ,
annotTextMarkupNewUnderline ,
#if defined(ENABLE_OVERLOADING)
AnnotTextMarkupSetQuadrilateralsMethodInfo,
#endif
annotTextMarkupSetQuadrilaterals ,
) 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.GHashTable as B.GHT
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.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.Document as Poppler.Document
import {-# SOURCE #-} qualified GI.Poppler.Structs.Quadrilateral as Poppler.Quadrilateral
import {-# SOURCE #-} qualified GI.Poppler.Structs.Rectangle as Poppler.Rectangle
newtype AnnotTextMarkup = AnnotTextMarkup (SP.ManagedPtr AnnotTextMarkup)
deriving (AnnotTextMarkup -> AnnotTextMarkup -> Bool
(AnnotTextMarkup -> AnnotTextMarkup -> Bool)
-> (AnnotTextMarkup -> AnnotTextMarkup -> Bool)
-> Eq AnnotTextMarkup
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnnotTextMarkup -> AnnotTextMarkup -> Bool
== :: AnnotTextMarkup -> AnnotTextMarkup -> Bool
$c/= :: AnnotTextMarkup -> AnnotTextMarkup -> Bool
/= :: AnnotTextMarkup -> AnnotTextMarkup -> Bool
Eq)
instance SP.ManagedPtrNewtype AnnotTextMarkup where
toManagedPtr :: AnnotTextMarkup -> ManagedPtr AnnotTextMarkup
toManagedPtr (AnnotTextMarkup ManagedPtr AnnotTextMarkup
p) = ManagedPtr AnnotTextMarkup
p
foreign import ccall "poppler_annot_text_markup_get_type"
c_poppler_annot_text_markup_get_type :: IO B.Types.GType
instance B.Types.TypedObject AnnotTextMarkup where
glibType :: IO GType
glibType = IO GType
c_poppler_annot_text_markup_get_type
instance B.Types.GObject AnnotTextMarkup
class (SP.GObject o, O.IsDescendantOf AnnotTextMarkup o) => IsAnnotTextMarkup o
instance (SP.GObject o, O.IsDescendantOf AnnotTextMarkup o) => IsAnnotTextMarkup o
instance O.HasParentTypes AnnotTextMarkup
type instance O.ParentTypes AnnotTextMarkup = '[Poppler.AnnotMarkup.AnnotMarkup, Poppler.Annot.Annot, GObject.Object.Object]
toAnnotTextMarkup :: (MIO.MonadIO m, IsAnnotTextMarkup o) => o -> m AnnotTextMarkup
toAnnotTextMarkup :: forall (m :: * -> *) o.
(MonadIO m, IsAnnotTextMarkup o) =>
o -> m AnnotTextMarkup
toAnnotTextMarkup = IO AnnotTextMarkup -> m AnnotTextMarkup
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO AnnotTextMarkup -> m AnnotTextMarkup)
-> (o -> IO AnnotTextMarkup) -> o -> m AnnotTextMarkup
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr AnnotTextMarkup -> AnnotTextMarkup)
-> o -> IO AnnotTextMarkup
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr AnnotTextMarkup -> AnnotTextMarkup
AnnotTextMarkup
instance B.GValue.IsGValue (Maybe AnnotTextMarkup) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_poppler_annot_text_markup_get_type
gvalueSet_ :: Ptr GValue -> Maybe AnnotTextMarkup -> IO ()
gvalueSet_ Ptr GValue
gv Maybe AnnotTextMarkup
P.Nothing = Ptr GValue -> Ptr AnnotTextMarkup -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr AnnotTextMarkup
forall a. Ptr a
FP.nullPtr :: FP.Ptr AnnotTextMarkup)
gvalueSet_ Ptr GValue
gv (P.Just AnnotTextMarkup
obj) = AnnotTextMarkup -> (Ptr AnnotTextMarkup -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr AnnotTextMarkup
obj (Ptr GValue -> Ptr AnnotTextMarkup -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe AnnotTextMarkup)
gvalueGet_ Ptr GValue
gv = do
Ptr AnnotTextMarkup
ptr <- Ptr GValue -> IO (Ptr AnnotTextMarkup)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr AnnotTextMarkup)
if Ptr AnnotTextMarkup
ptr Ptr AnnotTextMarkup -> Ptr AnnotTextMarkup -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr AnnotTextMarkup
forall a. Ptr a
FP.nullPtr
then AnnotTextMarkup -> Maybe AnnotTextMarkup
forall a. a -> Maybe a
P.Just (AnnotTextMarkup -> Maybe AnnotTextMarkup)
-> IO AnnotTextMarkup -> IO (Maybe AnnotTextMarkup)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr AnnotTextMarkup -> AnnotTextMarkup)
-> Ptr AnnotTextMarkup -> IO AnnotTextMarkup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr AnnotTextMarkup -> AnnotTextMarkup
AnnotTextMarkup Ptr AnnotTextMarkup
ptr
else Maybe AnnotTextMarkup -> IO (Maybe AnnotTextMarkup)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe AnnotTextMarkup
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveAnnotTextMarkupMethod (t :: Symbol) (o :: *) :: * where
ResolveAnnotTextMarkupMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAnnotTextMarkupMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAnnotTextMarkupMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAnnotTextMarkupMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAnnotTextMarkupMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAnnotTextMarkupMethod "hasPopup" o = Poppler.AnnotMarkup.AnnotMarkupHasPopupMethodInfo
ResolveAnnotTextMarkupMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAnnotTextMarkupMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAnnotTextMarkupMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAnnotTextMarkupMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAnnotTextMarkupMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAnnotTextMarkupMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAnnotTextMarkupMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAnnotTextMarkupMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAnnotTextMarkupMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAnnotTextMarkupMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAnnotTextMarkupMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAnnotTextMarkupMethod "getAnnotType" o = Poppler.Annot.AnnotGetAnnotTypeMethodInfo
ResolveAnnotTextMarkupMethod "getColor" o = Poppler.Annot.AnnotGetColorMethodInfo
ResolveAnnotTextMarkupMethod "getContents" o = Poppler.Annot.AnnotGetContentsMethodInfo
ResolveAnnotTextMarkupMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAnnotTextMarkupMethod "getDate" o = Poppler.AnnotMarkup.AnnotMarkupGetDateMethodInfo
ResolveAnnotTextMarkupMethod "getExternalData" o = Poppler.AnnotMarkup.AnnotMarkupGetExternalDataMethodInfo
ResolveAnnotTextMarkupMethod "getFlags" o = Poppler.Annot.AnnotGetFlagsMethodInfo
ResolveAnnotTextMarkupMethod "getLabel" o = Poppler.AnnotMarkup.AnnotMarkupGetLabelMethodInfo
ResolveAnnotTextMarkupMethod "getModified" o = Poppler.Annot.AnnotGetModifiedMethodInfo
ResolveAnnotTextMarkupMethod "getName" o = Poppler.Annot.AnnotGetNameMethodInfo
ResolveAnnotTextMarkupMethod "getOpacity" o = Poppler.AnnotMarkup.AnnotMarkupGetOpacityMethodInfo
ResolveAnnotTextMarkupMethod "getPageIndex" o = Poppler.Annot.AnnotGetPageIndexMethodInfo
ResolveAnnotTextMarkupMethod "getPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupIsOpenMethodInfo
ResolveAnnotTextMarkupMethod "getPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupGetPopupRectangleMethodInfo
ResolveAnnotTextMarkupMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAnnotTextMarkupMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAnnotTextMarkupMethod "getQuadrilaterals" o = AnnotTextMarkupGetQuadrilateralsMethodInfo
ResolveAnnotTextMarkupMethod "getRectangle" o = Poppler.Annot.AnnotGetRectangleMethodInfo
ResolveAnnotTextMarkupMethod "getReplyTo" o = Poppler.AnnotMarkup.AnnotMarkupGetReplyToMethodInfo
ResolveAnnotTextMarkupMethod "getSubject" o = Poppler.AnnotMarkup.AnnotMarkupGetSubjectMethodInfo
ResolveAnnotTextMarkupMethod "setColor" o = Poppler.Annot.AnnotSetColorMethodInfo
ResolveAnnotTextMarkupMethod "setContents" o = Poppler.Annot.AnnotSetContentsMethodInfo
ResolveAnnotTextMarkupMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAnnotTextMarkupMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveAnnotTextMarkupMethod "setFlags" o = Poppler.Annot.AnnotSetFlagsMethodInfo
ResolveAnnotTextMarkupMethod "setLabel" o = Poppler.AnnotMarkup.AnnotMarkupSetLabelMethodInfo
ResolveAnnotTextMarkupMethod "setOpacity" o = Poppler.AnnotMarkup.AnnotMarkupSetOpacityMethodInfo
ResolveAnnotTextMarkupMethod "setPopup" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupMethodInfo
ResolveAnnotTextMarkupMethod "setPopupIsOpen" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupIsOpenMethodInfo
ResolveAnnotTextMarkupMethod "setPopupRectangle" o = Poppler.AnnotMarkup.AnnotMarkupSetPopupRectangleMethodInfo
ResolveAnnotTextMarkupMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAnnotTextMarkupMethod "setQuadrilaterals" o = AnnotTextMarkupSetQuadrilateralsMethodInfo
ResolveAnnotTextMarkupMethod "setRectangle" o = Poppler.Annot.AnnotSetRectangleMethodInfo
ResolveAnnotTextMarkupMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAnnotTextMarkupMethod t AnnotTextMarkup, O.OverloadedMethod info AnnotTextMarkup p) => OL.IsLabel t (AnnotTextMarkup -> 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 ~ ResolveAnnotTextMarkupMethod t AnnotTextMarkup, O.OverloadedMethod info AnnotTextMarkup p, R.HasField t AnnotTextMarkup p) => R.HasField t AnnotTextMarkup p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveAnnotTextMarkupMethod t AnnotTextMarkup, O.OverloadedMethodInfo info AnnotTextMarkup) => OL.IsLabel t (O.MethodProxy info AnnotTextMarkup) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList AnnotTextMarkup
type instance O.AttributeList AnnotTextMarkup = AnnotTextMarkupAttributeList
type AnnotTextMarkupAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList AnnotTextMarkup = AnnotTextMarkupSignalList
type AnnotTextMarkupSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "poppler_annot_text_markup_new_highlight" poppler_annot_text_markup_new_highlight ::
Ptr Poppler.Document.Document ->
Ptr Poppler.Rectangle.Rectangle ->
Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)) ->
IO (Ptr AnnotTextMarkup)
annotTextMarkupNewHighlight ::
(B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
a
-> Poppler.Rectangle.Rectangle
-> [Poppler.Quadrilateral.Quadrilateral]
-> m AnnotTextMarkup
annotTextMarkupNewHighlight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Rectangle -> [Quadrilateral] -> m AnnotTextMarkup
annotTextMarkupNewHighlight a
doc Rectangle
rect [Quadrilateral]
quadrilaterals = IO AnnotTextMarkup -> m AnnotTextMarkup
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AnnotTextMarkup -> m AnnotTextMarkup)
-> IO AnnotTextMarkup -> m AnnotTextMarkup
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
doc' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
doc
Ptr Rectangle
rect' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
rect
[Ptr Quadrilateral]
quadrilaterals' <- (Quadrilateral -> IO (Ptr Quadrilateral))
-> [Quadrilateral] -> IO [Ptr Quadrilateral]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM Quadrilateral -> IO (Ptr Quadrilateral)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [Quadrilateral]
quadrilaterals
Ptr (GArray (Ptr Quadrilateral))
quadrilaterals'' <- [Ptr Quadrilateral] -> IO (Ptr (GArray (Ptr Quadrilateral)))
forall a. Storable a => [a] -> IO (Ptr (GArray a))
packGArray [Ptr Quadrilateral]
quadrilaterals'
Ptr AnnotTextMarkup
result <- Ptr Document
-> Ptr Rectangle
-> Ptr (GArray (Ptr Quadrilateral))
-> IO (Ptr AnnotTextMarkup)
poppler_annot_text_markup_new_highlight Ptr Document
doc' Ptr Rectangle
rect' Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
Text -> Ptr AnnotTextMarkup -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotTextMarkupNewHighlight" Ptr AnnotTextMarkup
result
AnnotTextMarkup
result' <- ((ManagedPtr AnnotTextMarkup -> AnnotTextMarkup)
-> Ptr AnnotTextMarkup -> IO AnnotTextMarkup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr AnnotTextMarkup -> AnnotTextMarkup
AnnotTextMarkup) Ptr AnnotTextMarkup
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
doc
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
rect
(Quadrilateral -> IO ()) -> [Quadrilateral] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Quadrilateral -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [Quadrilateral]
quadrilaterals
Ptr (GArray (Ptr Quadrilateral)) -> IO ()
forall a. Ptr (GArray a) -> IO ()
unrefGArray Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
AnnotTextMarkup -> IO AnnotTextMarkup
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return AnnotTextMarkup
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "poppler_annot_text_markup_new_squiggly" poppler_annot_text_markup_new_squiggly ::
Ptr Poppler.Document.Document ->
Ptr Poppler.Rectangle.Rectangle ->
Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)) ->
IO (Ptr AnnotTextMarkup)
annotTextMarkupNewSquiggly ::
(B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
a
-> Poppler.Rectangle.Rectangle
-> [Poppler.Quadrilateral.Quadrilateral]
-> m AnnotTextMarkup
annotTextMarkupNewSquiggly :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Rectangle -> [Quadrilateral] -> m AnnotTextMarkup
annotTextMarkupNewSquiggly a
doc Rectangle
rect [Quadrilateral]
quadrilaterals = IO AnnotTextMarkup -> m AnnotTextMarkup
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AnnotTextMarkup -> m AnnotTextMarkup)
-> IO AnnotTextMarkup -> m AnnotTextMarkup
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
doc' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
doc
Ptr Rectangle
rect' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
rect
[Ptr Quadrilateral]
quadrilaterals' <- (Quadrilateral -> IO (Ptr Quadrilateral))
-> [Quadrilateral] -> IO [Ptr Quadrilateral]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM Quadrilateral -> IO (Ptr Quadrilateral)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [Quadrilateral]
quadrilaterals
Ptr (GArray (Ptr Quadrilateral))
quadrilaterals'' <- [Ptr Quadrilateral] -> IO (Ptr (GArray (Ptr Quadrilateral)))
forall a. Storable a => [a] -> IO (Ptr (GArray a))
packGArray [Ptr Quadrilateral]
quadrilaterals'
Ptr AnnotTextMarkup
result <- Ptr Document
-> Ptr Rectangle
-> Ptr (GArray (Ptr Quadrilateral))
-> IO (Ptr AnnotTextMarkup)
poppler_annot_text_markup_new_squiggly Ptr Document
doc' Ptr Rectangle
rect' Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
Text -> Ptr AnnotTextMarkup -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotTextMarkupNewSquiggly" Ptr AnnotTextMarkup
result
AnnotTextMarkup
result' <- ((ManagedPtr AnnotTextMarkup -> AnnotTextMarkup)
-> Ptr AnnotTextMarkup -> IO AnnotTextMarkup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr AnnotTextMarkup -> AnnotTextMarkup
AnnotTextMarkup) Ptr AnnotTextMarkup
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
doc
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
rect
(Quadrilateral -> IO ()) -> [Quadrilateral] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Quadrilateral -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [Quadrilateral]
quadrilaterals
Ptr (GArray (Ptr Quadrilateral)) -> IO ()
forall a. Ptr (GArray a) -> IO ()
unrefGArray Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
AnnotTextMarkup -> IO AnnotTextMarkup
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return AnnotTextMarkup
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "poppler_annot_text_markup_new_strikeout" poppler_annot_text_markup_new_strikeout ::
Ptr Poppler.Document.Document ->
Ptr Poppler.Rectangle.Rectangle ->
Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)) ->
IO (Ptr AnnotTextMarkup)
annotTextMarkupNewStrikeout ::
(B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
a
-> Poppler.Rectangle.Rectangle
-> [Poppler.Quadrilateral.Quadrilateral]
-> m AnnotTextMarkup
annotTextMarkupNewStrikeout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Rectangle -> [Quadrilateral] -> m AnnotTextMarkup
annotTextMarkupNewStrikeout a
doc Rectangle
rect [Quadrilateral]
quadrilaterals = IO AnnotTextMarkup -> m AnnotTextMarkup
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AnnotTextMarkup -> m AnnotTextMarkup)
-> IO AnnotTextMarkup -> m AnnotTextMarkup
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
doc' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
doc
Ptr Rectangle
rect' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
rect
[Ptr Quadrilateral]
quadrilaterals' <- (Quadrilateral -> IO (Ptr Quadrilateral))
-> [Quadrilateral] -> IO [Ptr Quadrilateral]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM Quadrilateral -> IO (Ptr Quadrilateral)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [Quadrilateral]
quadrilaterals
Ptr (GArray (Ptr Quadrilateral))
quadrilaterals'' <- [Ptr Quadrilateral] -> IO (Ptr (GArray (Ptr Quadrilateral)))
forall a. Storable a => [a] -> IO (Ptr (GArray a))
packGArray [Ptr Quadrilateral]
quadrilaterals'
Ptr AnnotTextMarkup
result <- Ptr Document
-> Ptr Rectangle
-> Ptr (GArray (Ptr Quadrilateral))
-> IO (Ptr AnnotTextMarkup)
poppler_annot_text_markup_new_strikeout Ptr Document
doc' Ptr Rectangle
rect' Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
Text -> Ptr AnnotTextMarkup -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotTextMarkupNewStrikeout" Ptr AnnotTextMarkup
result
AnnotTextMarkup
result' <- ((ManagedPtr AnnotTextMarkup -> AnnotTextMarkup)
-> Ptr AnnotTextMarkup -> IO AnnotTextMarkup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr AnnotTextMarkup -> AnnotTextMarkup
AnnotTextMarkup) Ptr AnnotTextMarkup
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
doc
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
rect
(Quadrilateral -> IO ()) -> [Quadrilateral] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Quadrilateral -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [Quadrilateral]
quadrilaterals
Ptr (GArray (Ptr Quadrilateral)) -> IO ()
forall a. Ptr (GArray a) -> IO ()
unrefGArray Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
AnnotTextMarkup -> IO AnnotTextMarkup
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return AnnotTextMarkup
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "poppler_annot_text_markup_new_underline" poppler_annot_text_markup_new_underline ::
Ptr Poppler.Document.Document ->
Ptr Poppler.Rectangle.Rectangle ->
Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)) ->
IO (Ptr AnnotTextMarkup)
annotTextMarkupNewUnderline ::
(B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
a
-> Poppler.Rectangle.Rectangle
-> [Poppler.Quadrilateral.Quadrilateral]
-> m AnnotTextMarkup
annotTextMarkupNewUnderline :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDocument a) =>
a -> Rectangle -> [Quadrilateral] -> m AnnotTextMarkup
annotTextMarkupNewUnderline a
doc Rectangle
rect [Quadrilateral]
quadrilaterals = IO AnnotTextMarkup -> m AnnotTextMarkup
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AnnotTextMarkup -> m AnnotTextMarkup)
-> IO AnnotTextMarkup -> m AnnotTextMarkup
forall a b. (a -> b) -> a -> b
$ do
Ptr Document
doc' <- a -> IO (Ptr Document)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
doc
Ptr Rectangle
rect' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
rect
[Ptr Quadrilateral]
quadrilaterals' <- (Quadrilateral -> IO (Ptr Quadrilateral))
-> [Quadrilateral] -> IO [Ptr Quadrilateral]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM Quadrilateral -> IO (Ptr Quadrilateral)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [Quadrilateral]
quadrilaterals
Ptr (GArray (Ptr Quadrilateral))
quadrilaterals'' <- [Ptr Quadrilateral] -> IO (Ptr (GArray (Ptr Quadrilateral)))
forall a. Storable a => [a] -> IO (Ptr (GArray a))
packGArray [Ptr Quadrilateral]
quadrilaterals'
Ptr AnnotTextMarkup
result <- Ptr Document
-> Ptr Rectangle
-> Ptr (GArray (Ptr Quadrilateral))
-> IO (Ptr AnnotTextMarkup)
poppler_annot_text_markup_new_underline Ptr Document
doc' Ptr Rectangle
rect' Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
Text -> Ptr AnnotTextMarkup -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotTextMarkupNewUnderline" Ptr AnnotTextMarkup
result
AnnotTextMarkup
result' <- ((ManagedPtr AnnotTextMarkup -> AnnotTextMarkup)
-> Ptr AnnotTextMarkup -> IO AnnotTextMarkup
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr AnnotTextMarkup -> AnnotTextMarkup
AnnotTextMarkup) Ptr AnnotTextMarkup
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
doc
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
rect
(Quadrilateral -> IO ()) -> [Quadrilateral] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Quadrilateral -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [Quadrilateral]
quadrilaterals
Ptr (GArray (Ptr Quadrilateral)) -> IO ()
forall a. Ptr (GArray a) -> IO ()
unrefGArray Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
AnnotTextMarkup -> IO AnnotTextMarkup
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return AnnotTextMarkup
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "poppler_annot_text_markup_get_quadrilaterals" poppler_annot_text_markup_get_quadrilaterals ::
Ptr AnnotTextMarkup ->
IO (Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)))
annotTextMarkupGetQuadrilaterals ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotTextMarkup a) =>
a
-> m [Poppler.Quadrilateral.Quadrilateral]
annotTextMarkupGetQuadrilaterals :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnnotTextMarkup a) =>
a -> m [Quadrilateral]
annotTextMarkupGetQuadrilaterals a
popplerAnnot = IO [Quadrilateral] -> m [Quadrilateral]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Quadrilateral] -> m [Quadrilateral])
-> IO [Quadrilateral] -> m [Quadrilateral]
forall a b. (a -> b) -> a -> b
$ do
Ptr AnnotTextMarkup
popplerAnnot' <- a -> IO (Ptr AnnotTextMarkup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerAnnot
Ptr (GArray (Ptr Quadrilateral))
result <- Ptr AnnotTextMarkup -> IO (Ptr (GArray (Ptr Quadrilateral)))
poppler_annot_text_markup_get_quadrilaterals Ptr AnnotTextMarkup
popplerAnnot'
Text -> Ptr (GArray (Ptr Quadrilateral)) -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotTextMarkupGetQuadrilaterals" Ptr (GArray (Ptr Quadrilateral))
result
[Ptr Quadrilateral]
result' <- Ptr (GArray (Ptr Quadrilateral)) -> IO [Ptr Quadrilateral]
forall a. Storable a => Ptr (GArray a) -> IO [a]
unpackGArray Ptr (GArray (Ptr Quadrilateral))
result
[Quadrilateral]
result'' <- (Ptr Quadrilateral -> IO Quadrilateral)
-> [Ptr Quadrilateral] -> IO [Quadrilateral]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr Quadrilateral -> Quadrilateral)
-> Ptr Quadrilateral -> IO Quadrilateral
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Quadrilateral -> Quadrilateral
Poppler.Quadrilateral.Quadrilateral) [Ptr Quadrilateral]
result'
Ptr (GArray (Ptr Quadrilateral)) -> IO ()
forall a. Ptr (GArray a) -> IO ()
unrefGArray Ptr (GArray (Ptr Quadrilateral))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerAnnot
[Quadrilateral] -> IO [Quadrilateral]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Quadrilateral]
result''
#if defined(ENABLE_OVERLOADING)
data AnnotTextMarkupGetQuadrilateralsMethodInfo
instance (signature ~ (m [Poppler.Quadrilateral.Quadrilateral]), MonadIO m, IsAnnotTextMarkup a) => O.OverloadedMethod AnnotTextMarkupGetQuadrilateralsMethodInfo a signature where
overloadedMethod = annotTextMarkupGetQuadrilaterals
instance O.OverloadedMethodInfo AnnotTextMarkupGetQuadrilateralsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.AnnotTextMarkup.annotTextMarkupGetQuadrilaterals",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-AnnotTextMarkup.html#v:annotTextMarkupGetQuadrilaterals"
})
#endif
foreign import ccall "poppler_annot_text_markup_set_quadrilaterals" poppler_annot_text_markup_set_quadrilaterals ::
Ptr AnnotTextMarkup ->
Ptr (GArray (Ptr Poppler.Quadrilateral.Quadrilateral)) ->
IO ()
annotTextMarkupSetQuadrilaterals ::
(B.CallStack.HasCallStack, MonadIO m, IsAnnotTextMarkup a) =>
a
-> [Poppler.Quadrilateral.Quadrilateral]
-> m ()
annotTextMarkupSetQuadrilaterals :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAnnotTextMarkup a) =>
a -> [Quadrilateral] -> m ()
annotTextMarkupSetQuadrilaterals a
popplerAnnot [Quadrilateral]
quadrilaterals = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr AnnotTextMarkup
popplerAnnot' <- a -> IO (Ptr AnnotTextMarkup)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
popplerAnnot
[Ptr Quadrilateral]
quadrilaterals' <- (Quadrilateral -> IO (Ptr Quadrilateral))
-> [Quadrilateral] -> IO [Ptr Quadrilateral]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM Quadrilateral -> IO (Ptr Quadrilateral)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [Quadrilateral]
quadrilaterals
Ptr (GArray (Ptr Quadrilateral))
quadrilaterals'' <- [Ptr Quadrilateral] -> IO (Ptr (GArray (Ptr Quadrilateral)))
forall a. Storable a => [a] -> IO (Ptr (GArray a))
packGArray [Ptr Quadrilateral]
quadrilaterals'
Ptr AnnotTextMarkup -> Ptr (GArray (Ptr Quadrilateral)) -> IO ()
poppler_annot_text_markup_set_quadrilaterals Ptr AnnotTextMarkup
popplerAnnot' Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
popplerAnnot
(Quadrilateral -> IO ()) -> [Quadrilateral] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Quadrilateral -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [Quadrilateral]
quadrilaterals
Ptr (GArray (Ptr Quadrilateral)) -> IO ()
forall a. Ptr (GArray a) -> IO ()
unrefGArray Ptr (GArray (Ptr Quadrilateral))
quadrilaterals''
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AnnotTextMarkupSetQuadrilateralsMethodInfo
instance (signature ~ ([Poppler.Quadrilateral.Quadrilateral] -> m ()), MonadIO m, IsAnnotTextMarkup a) => O.OverloadedMethod AnnotTextMarkupSetQuadrilateralsMethodInfo a signature where
overloadedMethod = annotTextMarkupSetQuadrilaterals
instance O.OverloadedMethodInfo AnnotTextMarkupSetQuadrilateralsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Objects.AnnotTextMarkup.annotTextMarkupSetQuadrilaterals",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.27/docs/GI-Poppler-Objects-AnnotTextMarkup.html#v:annotTextMarkupSetQuadrilaterals"
})
#endif