{-# 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 ,
noAnnotTextMarkup ,
#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.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 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.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 (ManagedPtr AnnotTextMarkup)
deriving (AnnotTextMarkup -> AnnotTextMarkup -> Bool
(AnnotTextMarkup -> AnnotTextMarkup -> Bool)
-> (AnnotTextMarkup -> AnnotTextMarkup -> Bool)
-> Eq AnnotTextMarkup
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AnnotTextMarkup -> AnnotTextMarkup -> Bool
$c/= :: AnnotTextMarkup -> AnnotTextMarkup -> Bool
== :: AnnotTextMarkup -> AnnotTextMarkup -> Bool
$c== :: AnnotTextMarkup -> AnnotTextMarkup -> Bool
Eq)
foreign import ccall "poppler_annot_text_markup_get_type"
c_poppler_annot_text_markup_get_type :: IO GType
instance GObject AnnotTextMarkup where
gobjectType :: IO GType
gobjectType = IO GType
c_poppler_annot_text_markup_get_type
instance B.GValue.IsGValue AnnotTextMarkup where
toGValue :: AnnotTextMarkup -> IO GValue
toGValue o :: AnnotTextMarkup
o = do
GType
gtype <- IO GType
c_poppler_annot_text_markup_get_type
AnnotTextMarkup -> (Ptr AnnotTextMarkup -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr AnnotTextMarkup
o (GType
-> (GValue -> Ptr AnnotTextMarkup -> IO ())
-> Ptr AnnotTextMarkup
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr AnnotTextMarkup -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO AnnotTextMarkup
fromGValue gv :: GValue
gv = do
Ptr AnnotTextMarkup
ptr <- GValue -> IO (Ptr AnnotTextMarkup)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr AnnotTextMarkup)
(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
class (GObject o, O.IsDescendantOf AnnotTextMarkup o) => IsAnnotTextMarkup o
instance (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 :: (MonadIO m, IsAnnotTextMarkup o) => o -> m AnnotTextMarkup
toAnnotTextMarkup :: o -> m AnnotTextMarkup
toAnnotTextMarkup = IO AnnotTextMarkup -> m AnnotTextMarkup
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr AnnotTextMarkup -> AnnotTextMarkup
AnnotTextMarkup
noAnnotTextMarkup :: Maybe AnnotTextMarkup
noAnnotTextMarkup :: Maybe AnnotTextMarkup
noAnnotTextMarkup = Maybe AnnotTextMarkup
forall a. Maybe a
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.MethodInfo 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
#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 :: a -> Rectangle -> [Quadrilateral] -> m AnnotTextMarkup
annotTextMarkupNewHighlight doc :: a
doc rect :: Rectangle
rect quadrilaterals :: [Quadrilateral]
quadrilaterals = IO AnnotTextMarkup -> m AnnotTextMarkup
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)
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 "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 (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 :: a -> Rectangle -> [Quadrilateral] -> m AnnotTextMarkup
annotTextMarkupNewSquiggly doc :: a
doc rect :: Rectangle
rect quadrilaterals :: [Quadrilateral]
quadrilaterals = IO AnnotTextMarkup -> m AnnotTextMarkup
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)
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 "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 (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 :: a -> Rectangle -> [Quadrilateral] -> m AnnotTextMarkup
annotTextMarkupNewStrikeout doc :: a
doc rect :: Rectangle
rect quadrilaterals :: [Quadrilateral]
quadrilaterals = IO AnnotTextMarkup -> m AnnotTextMarkup
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)
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 "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 (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 :: a -> Rectangle -> [Quadrilateral] -> m AnnotTextMarkup
annotTextMarkupNewUnderline doc :: a
doc rect :: Rectangle
rect quadrilaterals :: [Quadrilateral]
quadrilaterals = IO AnnotTextMarkup -> m AnnotTextMarkup
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)
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 "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 (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 :: a -> m [Quadrilateral]
annotTextMarkupGetQuadrilaterals popplerAnnot :: a
popplerAnnot = IO [Quadrilateral] -> m [Quadrilateral]
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 "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)
mapM ((ManagedPtr Quadrilateral -> Quadrilateral)
-> Ptr Quadrilateral -> IO Quadrilateral
forall a.
(HasCallStack, BoxedObject 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 (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.MethodInfo AnnotTextMarkupGetQuadrilateralsMethodInfo a signature where
overloadedMethod = 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 :: a -> [Quadrilateral] -> m ()
annotTextMarkupSetQuadrilaterals popplerAnnot :: a
popplerAnnot quadrilaterals :: [Quadrilateral]
quadrilaterals = 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 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)
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 (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.MethodInfo AnnotTextMarkupSetQuadrilateralsMethodInfo a signature where
overloadedMethod = annotTextMarkupSetQuadrilaterals
#endif