{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Poppler.Structs.AnnotCalloutLine
(
AnnotCalloutLine(..) ,
newZeroAnnotCalloutLine ,
#if defined(ENABLE_OVERLOADING)
ResolveAnnotCalloutLineMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
AnnotCalloutLineCopyMethodInfo ,
#endif
annotCalloutLineCopy ,
#if defined(ENABLE_OVERLOADING)
AnnotCalloutLineFreeMethodInfo ,
#endif
annotCalloutLineFree ,
annotCalloutLineNew ,
#if defined(ENABLE_OVERLOADING)
annotCalloutLine_multiline ,
#endif
getAnnotCalloutLineMultiline ,
setAnnotCalloutLineMultiline ,
#if defined(ENABLE_OVERLOADING)
annotCalloutLine_x1 ,
#endif
getAnnotCalloutLineX1 ,
setAnnotCalloutLineX1 ,
#if defined(ENABLE_OVERLOADING)
annotCalloutLine_x2 ,
#endif
getAnnotCalloutLineX2 ,
setAnnotCalloutLineX2 ,
#if defined(ENABLE_OVERLOADING)
annotCalloutLine_x3 ,
#endif
getAnnotCalloutLineX3 ,
setAnnotCalloutLineX3 ,
#if defined(ENABLE_OVERLOADING)
annotCalloutLine_y1 ,
#endif
getAnnotCalloutLineY1 ,
setAnnotCalloutLineY1 ,
#if defined(ENABLE_OVERLOADING)
annotCalloutLine_y2 ,
#endif
getAnnotCalloutLineY2 ,
setAnnotCalloutLineY2 ,
#if defined(ENABLE_OVERLOADING)
annotCalloutLine_y3 ,
#endif
getAnnotCalloutLineY3 ,
setAnnotCalloutLineY3 ,
) 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.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
newtype AnnotCalloutLine = AnnotCalloutLine (SP.ManagedPtr AnnotCalloutLine)
deriving (AnnotCalloutLine -> AnnotCalloutLine -> Bool
(AnnotCalloutLine -> AnnotCalloutLine -> Bool)
-> (AnnotCalloutLine -> AnnotCalloutLine -> Bool)
-> Eq AnnotCalloutLine
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AnnotCalloutLine -> AnnotCalloutLine -> Bool
$c/= :: AnnotCalloutLine -> AnnotCalloutLine -> Bool
== :: AnnotCalloutLine -> AnnotCalloutLine -> Bool
$c== :: AnnotCalloutLine -> AnnotCalloutLine -> Bool
Eq)
instance SP.ManagedPtrNewtype AnnotCalloutLine where
toManagedPtr :: AnnotCalloutLine -> ManagedPtr AnnotCalloutLine
toManagedPtr (AnnotCalloutLine ManagedPtr AnnotCalloutLine
p) = ManagedPtr AnnotCalloutLine
p
foreign import ccall "poppler_annot_callout_line_get_type" c_poppler_annot_callout_line_get_type ::
IO GType
type instance O.ParentTypes AnnotCalloutLine = '[]
instance O.HasParentTypes AnnotCalloutLine
instance B.Types.TypedObject AnnotCalloutLine where
glibType :: IO GType
glibType = IO GType
c_poppler_annot_callout_line_get_type
instance B.Types.GBoxed AnnotCalloutLine
instance B.GValue.IsGValue AnnotCalloutLine where
toGValue :: AnnotCalloutLine -> IO GValue
toGValue AnnotCalloutLine
o = do
GType
gtype <- IO GType
c_poppler_annot_callout_line_get_type
AnnotCalloutLine
-> (Ptr AnnotCalloutLine -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr AnnotCalloutLine
o (GType
-> (GValue -> Ptr AnnotCalloutLine -> IO ())
-> Ptr AnnotCalloutLine
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr AnnotCalloutLine -> IO ()
forall a. GValue -> Ptr a -> IO ()
B.GValue.set_boxed)
fromGValue :: GValue -> IO AnnotCalloutLine
fromGValue GValue
gv = do
Ptr AnnotCalloutLine
ptr <- GValue -> IO (Ptr AnnotCalloutLine)
forall b. GValue -> IO (Ptr b)
B.GValue.get_boxed GValue
gv :: IO (Ptr AnnotCalloutLine)
(ManagedPtr AnnotCalloutLine -> AnnotCalloutLine)
-> Ptr AnnotCalloutLine -> IO AnnotCalloutLine
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr AnnotCalloutLine -> AnnotCalloutLine
AnnotCalloutLine Ptr AnnotCalloutLine
ptr
newZeroAnnotCalloutLine :: MonadIO m => m AnnotCalloutLine
newZeroAnnotCalloutLine :: m AnnotCalloutLine
newZeroAnnotCalloutLine = IO AnnotCalloutLine -> m AnnotCalloutLine
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AnnotCalloutLine -> m AnnotCalloutLine)
-> IO AnnotCalloutLine -> m AnnotCalloutLine
forall a b. (a -> b) -> a -> b
$ Int -> IO (Ptr AnnotCalloutLine)
forall a. GBoxed a => Int -> IO (Ptr a)
callocBoxedBytes Int
56 IO (Ptr AnnotCalloutLine)
-> (Ptr AnnotCalloutLine -> IO AnnotCalloutLine)
-> IO AnnotCalloutLine
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr AnnotCalloutLine -> AnnotCalloutLine)
-> Ptr AnnotCalloutLine -> IO AnnotCalloutLine
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr AnnotCalloutLine -> AnnotCalloutLine
AnnotCalloutLine
instance tag ~ 'AttrSet => Constructible AnnotCalloutLine tag where
new :: (ManagedPtr AnnotCalloutLine -> AnnotCalloutLine)
-> [AttrOp AnnotCalloutLine tag] -> m AnnotCalloutLine
new ManagedPtr AnnotCalloutLine -> AnnotCalloutLine
_ [AttrOp AnnotCalloutLine tag]
attrs = do
AnnotCalloutLine
o <- m AnnotCalloutLine
forall (m :: * -> *). MonadIO m => m AnnotCalloutLine
newZeroAnnotCalloutLine
AnnotCalloutLine -> [AttrOp AnnotCalloutLine 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set AnnotCalloutLine
o [AttrOp AnnotCalloutLine tag]
[AttrOp AnnotCalloutLine 'AttrSet]
attrs
AnnotCalloutLine -> m AnnotCalloutLine
forall (m :: * -> *) a. Monad m => a -> m a
return AnnotCalloutLine
o
getAnnotCalloutLineMultiline :: MonadIO m => AnnotCalloutLine -> m Bool
getAnnotCalloutLineMultiline :: AnnotCalloutLine -> m Bool
getAnnotCalloutLineMultiline AnnotCalloutLine
s = 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
$ AnnotCalloutLine -> (Ptr AnnotCalloutLine -> IO Bool) -> IO Bool
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr AnnotCalloutLine
s ((Ptr AnnotCalloutLine -> IO Bool) -> IO Bool)
-> (Ptr AnnotCalloutLine -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \Ptr AnnotCalloutLine
ptr -> do
CInt
val <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr AnnotCalloutLine
ptr Ptr AnnotCalloutLine -> Int -> Ptr CInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO CInt
let val' :: Bool
val' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
val
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
val'
setAnnotCalloutLineMultiline :: MonadIO m => AnnotCalloutLine -> Bool -> m ()
setAnnotCalloutLineMultiline :: AnnotCalloutLine -> Bool -> m ()
setAnnotCalloutLineMultiline AnnotCalloutLine
s Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ AnnotCalloutLine -> (Ptr AnnotCalloutLine -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr AnnotCalloutLine
s ((Ptr AnnotCalloutLine -> IO ()) -> IO ())
-> (Ptr AnnotCalloutLine -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr AnnotCalloutLine
ptr -> do
let val' :: CInt
val' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
val
Ptr CInt -> CInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr AnnotCalloutLine
ptr Ptr AnnotCalloutLine -> Int -> Ptr CInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CInt
val' :: CInt)
#if defined(ENABLE_OVERLOADING)
data AnnotCalloutLineMultilineFieldInfo
instance AttrInfo AnnotCalloutLineMultilineFieldInfo where
type AttrBaseTypeConstraint AnnotCalloutLineMultilineFieldInfo = (~) AnnotCalloutLine
type AttrAllowedOps AnnotCalloutLineMultilineFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint AnnotCalloutLineMultilineFieldInfo = (~) Bool
type AttrTransferTypeConstraint AnnotCalloutLineMultilineFieldInfo = (~)Bool
type AttrTransferType AnnotCalloutLineMultilineFieldInfo = Bool
type AttrGetType AnnotCalloutLineMultilineFieldInfo = Bool
type AttrLabel AnnotCalloutLineMultilineFieldInfo = "multiline"
type AttrOrigin AnnotCalloutLineMultilineFieldInfo = AnnotCalloutLine
attrGet = getAnnotCalloutLineMultiline
attrSet = setAnnotCalloutLineMultiline
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
annotCalloutLine_multiline :: AttrLabelProxy "multiline"
annotCalloutLine_multiline = AttrLabelProxy
#endif
getAnnotCalloutLineX1 :: MonadIO m => AnnotCalloutLine -> m Double
getAnnotCalloutLineX1 :: AnnotCalloutLine -> m Double
getAnnotCalloutLineX1 AnnotCalloutLine
s = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ AnnotCalloutLine
-> (Ptr AnnotCalloutLine -> IO Double) -> IO Double
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr AnnotCalloutLine
s ((Ptr AnnotCalloutLine -> IO Double) -> IO Double)
-> (Ptr AnnotCalloutLine -> IO Double) -> IO Double
forall a b. (a -> b) -> a -> b
$ \Ptr AnnotCalloutLine
ptr -> do
CDouble
val <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek (Ptr AnnotCalloutLine
ptr Ptr AnnotCalloutLine -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) :: IO CDouble
let val' :: Double
val' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'
setAnnotCalloutLineX1 :: MonadIO m => AnnotCalloutLine -> Double -> m ()
setAnnotCalloutLineX1 :: AnnotCalloutLine -> Double -> m ()
setAnnotCalloutLineX1 AnnotCalloutLine
s Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ AnnotCalloutLine -> (Ptr AnnotCalloutLine -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr AnnotCalloutLine
s ((Ptr AnnotCalloutLine -> IO ()) -> IO ())
-> (Ptr AnnotCalloutLine -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr AnnotCalloutLine
ptr -> do
let val' :: CDouble
val' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr AnnotCalloutLine
ptr Ptr AnnotCalloutLine -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data AnnotCalloutLineX1FieldInfo
instance AttrInfo AnnotCalloutLineX1FieldInfo where
type AttrBaseTypeConstraint AnnotCalloutLineX1FieldInfo = (~) AnnotCalloutLine
type AttrAllowedOps AnnotCalloutLineX1FieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint AnnotCalloutLineX1FieldInfo = (~) Double
type AttrTransferTypeConstraint AnnotCalloutLineX1FieldInfo = (~)Double
type AttrTransferType AnnotCalloutLineX1FieldInfo = Double
type AttrGetType AnnotCalloutLineX1FieldInfo = Double
type AttrLabel AnnotCalloutLineX1FieldInfo = "x1"
type AttrOrigin AnnotCalloutLineX1FieldInfo = AnnotCalloutLine
attrGet = getAnnotCalloutLineX1
attrSet = setAnnotCalloutLineX1
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
annotCalloutLine_x1 :: AttrLabelProxy "x1"
annotCalloutLine_x1 = AttrLabelProxy
#endif
getAnnotCalloutLineY1 :: MonadIO m => AnnotCalloutLine -> m Double
getAnnotCalloutLineY1 :: AnnotCalloutLine -> m Double
getAnnotCalloutLineY1 AnnotCalloutLine
s = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ AnnotCalloutLine
-> (Ptr AnnotCalloutLine -> IO Double) -> IO Double
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr AnnotCalloutLine
s ((Ptr AnnotCalloutLine -> IO Double) -> IO Double)
-> (Ptr AnnotCalloutLine -> IO Double) -> IO Double
forall a b. (a -> b) -> a -> b
$ \Ptr AnnotCalloutLine
ptr -> do
CDouble
val <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek (Ptr AnnotCalloutLine
ptr Ptr AnnotCalloutLine -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: IO CDouble
let val' :: Double
val' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'
setAnnotCalloutLineY1 :: MonadIO m => AnnotCalloutLine -> Double -> m ()
setAnnotCalloutLineY1 :: AnnotCalloutLine -> Double -> m ()
setAnnotCalloutLineY1 AnnotCalloutLine
s Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ AnnotCalloutLine -> (Ptr AnnotCalloutLine -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr AnnotCalloutLine
s ((Ptr AnnotCalloutLine -> IO ()) -> IO ())
-> (Ptr AnnotCalloutLine -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr AnnotCalloutLine
ptr -> do
let val' :: CDouble
val' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr AnnotCalloutLine
ptr Ptr AnnotCalloutLine -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data AnnotCalloutLineY1FieldInfo
instance AttrInfo AnnotCalloutLineY1FieldInfo where
type AttrBaseTypeConstraint AnnotCalloutLineY1FieldInfo = (~) AnnotCalloutLine
type AttrAllowedOps AnnotCalloutLineY1FieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint AnnotCalloutLineY1FieldInfo = (~) Double
type AttrTransferTypeConstraint AnnotCalloutLineY1FieldInfo = (~)Double
type AttrTransferType AnnotCalloutLineY1FieldInfo = Double
type AttrGetType AnnotCalloutLineY1FieldInfo = Double
type AttrLabel AnnotCalloutLineY1FieldInfo = "y1"
type AttrOrigin AnnotCalloutLineY1FieldInfo = AnnotCalloutLine
attrGet = getAnnotCalloutLineY1
attrSet = setAnnotCalloutLineY1
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
annotCalloutLine_y1 :: AttrLabelProxy "y1"
annotCalloutLine_y1 = AttrLabelProxy
#endif
getAnnotCalloutLineX2 :: MonadIO m => AnnotCalloutLine -> m Double
getAnnotCalloutLineX2 :: AnnotCalloutLine -> m Double
getAnnotCalloutLineX2 AnnotCalloutLine
s = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ AnnotCalloutLine
-> (Ptr AnnotCalloutLine -> IO Double) -> IO Double
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr AnnotCalloutLine
s ((Ptr AnnotCalloutLine -> IO Double) -> IO Double)
-> (Ptr AnnotCalloutLine -> IO Double) -> IO Double
forall a b. (a -> b) -> a -> b
$ \Ptr AnnotCalloutLine
ptr -> do
CDouble
val <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek (Ptr AnnotCalloutLine
ptr Ptr AnnotCalloutLine -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) :: IO CDouble
let val' :: Double
val' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'
setAnnotCalloutLineX2 :: MonadIO m => AnnotCalloutLine -> Double -> m ()
setAnnotCalloutLineX2 :: AnnotCalloutLine -> Double -> m ()
setAnnotCalloutLineX2 AnnotCalloutLine
s Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ AnnotCalloutLine -> (Ptr AnnotCalloutLine -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr AnnotCalloutLine
s ((Ptr AnnotCalloutLine -> IO ()) -> IO ())
-> (Ptr AnnotCalloutLine -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr AnnotCalloutLine
ptr -> do
let val' :: CDouble
val' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr AnnotCalloutLine
ptr Ptr AnnotCalloutLine -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data AnnotCalloutLineX2FieldInfo
instance AttrInfo AnnotCalloutLineX2FieldInfo where
type AttrBaseTypeConstraint AnnotCalloutLineX2FieldInfo = (~) AnnotCalloutLine
type AttrAllowedOps AnnotCalloutLineX2FieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint AnnotCalloutLineX2FieldInfo = (~) Double
type AttrTransferTypeConstraint AnnotCalloutLineX2FieldInfo = (~)Double
type AttrTransferType AnnotCalloutLineX2FieldInfo = Double
type AttrGetType AnnotCalloutLineX2FieldInfo = Double
type AttrLabel AnnotCalloutLineX2FieldInfo = "x2"
type AttrOrigin AnnotCalloutLineX2FieldInfo = AnnotCalloutLine
attrGet = getAnnotCalloutLineX2
attrSet = setAnnotCalloutLineX2
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
annotCalloutLine_x2 :: AttrLabelProxy "x2"
annotCalloutLine_x2 = AttrLabelProxy
#endif
getAnnotCalloutLineY2 :: MonadIO m => AnnotCalloutLine -> m Double
getAnnotCalloutLineY2 :: AnnotCalloutLine -> m Double
getAnnotCalloutLineY2 AnnotCalloutLine
s = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ AnnotCalloutLine
-> (Ptr AnnotCalloutLine -> IO Double) -> IO Double
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr AnnotCalloutLine
s ((Ptr AnnotCalloutLine -> IO Double) -> IO Double)
-> (Ptr AnnotCalloutLine -> IO Double) -> IO Double
forall a b. (a -> b) -> a -> b
$ \Ptr AnnotCalloutLine
ptr -> do
CDouble
val <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek (Ptr AnnotCalloutLine
ptr Ptr AnnotCalloutLine -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) :: IO CDouble
let val' :: Double
val' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'
setAnnotCalloutLineY2 :: MonadIO m => AnnotCalloutLine -> Double -> m ()
setAnnotCalloutLineY2 :: AnnotCalloutLine -> Double -> m ()
setAnnotCalloutLineY2 AnnotCalloutLine
s Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ AnnotCalloutLine -> (Ptr AnnotCalloutLine -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr AnnotCalloutLine
s ((Ptr AnnotCalloutLine -> IO ()) -> IO ())
-> (Ptr AnnotCalloutLine -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr AnnotCalloutLine
ptr -> do
let val' :: CDouble
val' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr AnnotCalloutLine
ptr Ptr AnnotCalloutLine -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data AnnotCalloutLineY2FieldInfo
instance AttrInfo AnnotCalloutLineY2FieldInfo where
type AttrBaseTypeConstraint AnnotCalloutLineY2FieldInfo = (~) AnnotCalloutLine
type AttrAllowedOps AnnotCalloutLineY2FieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint AnnotCalloutLineY2FieldInfo = (~) Double
type AttrTransferTypeConstraint AnnotCalloutLineY2FieldInfo = (~)Double
type AttrTransferType AnnotCalloutLineY2FieldInfo = Double
type AttrGetType AnnotCalloutLineY2FieldInfo = Double
type AttrLabel AnnotCalloutLineY2FieldInfo = "y2"
type AttrOrigin AnnotCalloutLineY2FieldInfo = AnnotCalloutLine
attrGet = getAnnotCalloutLineY2
attrSet = setAnnotCalloutLineY2
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
annotCalloutLine_y2 :: AttrLabelProxy "y2"
annotCalloutLine_y2 = AttrLabelProxy
#endif
getAnnotCalloutLineX3 :: MonadIO m => AnnotCalloutLine -> m Double
getAnnotCalloutLineX3 :: AnnotCalloutLine -> m Double
getAnnotCalloutLineX3 AnnotCalloutLine
s = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ AnnotCalloutLine
-> (Ptr AnnotCalloutLine -> IO Double) -> IO Double
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr AnnotCalloutLine
s ((Ptr AnnotCalloutLine -> IO Double) -> IO Double)
-> (Ptr AnnotCalloutLine -> IO Double) -> IO Double
forall a b. (a -> b) -> a -> b
$ \Ptr AnnotCalloutLine
ptr -> do
CDouble
val <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek (Ptr AnnotCalloutLine
ptr Ptr AnnotCalloutLine -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) :: IO CDouble
let val' :: Double
val' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'
setAnnotCalloutLineX3 :: MonadIO m => AnnotCalloutLine -> Double -> m ()
setAnnotCalloutLineX3 :: AnnotCalloutLine -> Double -> m ()
setAnnotCalloutLineX3 AnnotCalloutLine
s Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ AnnotCalloutLine -> (Ptr AnnotCalloutLine -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr AnnotCalloutLine
s ((Ptr AnnotCalloutLine -> IO ()) -> IO ())
-> (Ptr AnnotCalloutLine -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr AnnotCalloutLine
ptr -> do
let val' :: CDouble
val' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr AnnotCalloutLine
ptr Ptr AnnotCalloutLine -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data AnnotCalloutLineX3FieldInfo
instance AttrInfo AnnotCalloutLineX3FieldInfo where
type AttrBaseTypeConstraint AnnotCalloutLineX3FieldInfo = (~) AnnotCalloutLine
type AttrAllowedOps AnnotCalloutLineX3FieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint AnnotCalloutLineX3FieldInfo = (~) Double
type AttrTransferTypeConstraint AnnotCalloutLineX3FieldInfo = (~)Double
type AttrTransferType AnnotCalloutLineX3FieldInfo = Double
type AttrGetType AnnotCalloutLineX3FieldInfo = Double
type AttrLabel AnnotCalloutLineX3FieldInfo = "x3"
type AttrOrigin AnnotCalloutLineX3FieldInfo = AnnotCalloutLine
attrGet = getAnnotCalloutLineX3
attrSet = setAnnotCalloutLineX3
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
annotCalloutLine_x3 :: AttrLabelProxy "x3"
annotCalloutLine_x3 = AttrLabelProxy
#endif
getAnnotCalloutLineY3 :: MonadIO m => AnnotCalloutLine -> m Double
getAnnotCalloutLineY3 :: AnnotCalloutLine -> m Double
getAnnotCalloutLineY3 AnnotCalloutLine
s = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ AnnotCalloutLine
-> (Ptr AnnotCalloutLine -> IO Double) -> IO Double
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr AnnotCalloutLine
s ((Ptr AnnotCalloutLine -> IO Double) -> IO Double)
-> (Ptr AnnotCalloutLine -> IO Double) -> IO Double
forall a b. (a -> b) -> a -> b
$ \Ptr AnnotCalloutLine
ptr -> do
CDouble
val <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek (Ptr AnnotCalloutLine
ptr Ptr AnnotCalloutLine -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) :: IO CDouble
let val' :: Double
val' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
val
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
val'
setAnnotCalloutLineY3 :: MonadIO m => AnnotCalloutLine -> Double -> m ()
setAnnotCalloutLineY3 :: AnnotCalloutLine -> Double -> m ()
setAnnotCalloutLineY3 AnnotCalloutLine
s Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ AnnotCalloutLine -> (Ptr AnnotCalloutLine -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr AnnotCalloutLine
s ((Ptr AnnotCalloutLine -> IO ()) -> IO ())
-> (Ptr AnnotCalloutLine -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr AnnotCalloutLine
ptr -> do
let val' :: CDouble
val' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
val
Ptr CDouble -> CDouble -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr AnnotCalloutLine
ptr Ptr AnnotCalloutLine -> Int -> Ptr CDouble
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (CDouble
val' :: CDouble)
#if defined(ENABLE_OVERLOADING)
data AnnotCalloutLineY3FieldInfo
instance AttrInfo AnnotCalloutLineY3FieldInfo where
type AttrBaseTypeConstraint AnnotCalloutLineY3FieldInfo = (~) AnnotCalloutLine
type AttrAllowedOps AnnotCalloutLineY3FieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint AnnotCalloutLineY3FieldInfo = (~) Double
type AttrTransferTypeConstraint AnnotCalloutLineY3FieldInfo = (~)Double
type AttrTransferType AnnotCalloutLineY3FieldInfo = Double
type AttrGetType AnnotCalloutLineY3FieldInfo = Double
type AttrLabel AnnotCalloutLineY3FieldInfo = "y3"
type AttrOrigin AnnotCalloutLineY3FieldInfo = AnnotCalloutLine
attrGet = getAnnotCalloutLineY3
attrSet = setAnnotCalloutLineY3
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
annotCalloutLine_y3 :: AttrLabelProxy "y3"
annotCalloutLine_y3 = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList AnnotCalloutLine
type instance O.AttributeList AnnotCalloutLine = AnnotCalloutLineAttributeList
type AnnotCalloutLineAttributeList = ('[ '("multiline", AnnotCalloutLineMultilineFieldInfo), '("x1", AnnotCalloutLineX1FieldInfo), '("y1", AnnotCalloutLineY1FieldInfo), '("x2", AnnotCalloutLineX2FieldInfo), '("y2", AnnotCalloutLineY2FieldInfo), '("x3", AnnotCalloutLineX3FieldInfo), '("y3", AnnotCalloutLineY3FieldInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "poppler_annot_callout_line_new" poppler_annot_callout_line_new ::
IO (Ptr AnnotCalloutLine)
annotCalloutLineNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m AnnotCalloutLine
annotCalloutLineNew :: m AnnotCalloutLine
annotCalloutLineNew = IO AnnotCalloutLine -> m AnnotCalloutLine
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AnnotCalloutLine -> m AnnotCalloutLine)
-> IO AnnotCalloutLine -> m AnnotCalloutLine
forall a b. (a -> b) -> a -> b
$ do
Ptr AnnotCalloutLine
result <- IO (Ptr AnnotCalloutLine)
poppler_annot_callout_line_new
Text -> Ptr AnnotCalloutLine -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotCalloutLineNew" Ptr AnnotCalloutLine
result
AnnotCalloutLine
result' <- ((ManagedPtr AnnotCalloutLine -> AnnotCalloutLine)
-> Ptr AnnotCalloutLine -> IO AnnotCalloutLine
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr AnnotCalloutLine -> AnnotCalloutLine
AnnotCalloutLine) Ptr AnnotCalloutLine
result
AnnotCalloutLine -> IO AnnotCalloutLine
forall (m :: * -> *) a. Monad m => a -> m a
return AnnotCalloutLine
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "poppler_annot_callout_line_copy" poppler_annot_callout_line_copy ::
Ptr AnnotCalloutLine ->
IO (Ptr AnnotCalloutLine)
annotCalloutLineCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
AnnotCalloutLine
-> m AnnotCalloutLine
annotCalloutLineCopy :: AnnotCalloutLine -> m AnnotCalloutLine
annotCalloutLineCopy AnnotCalloutLine
callout = IO AnnotCalloutLine -> m AnnotCalloutLine
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AnnotCalloutLine -> m AnnotCalloutLine)
-> IO AnnotCalloutLine -> m AnnotCalloutLine
forall a b. (a -> b) -> a -> b
$ do
Ptr AnnotCalloutLine
callout' <- AnnotCalloutLine -> IO (Ptr AnnotCalloutLine)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr AnnotCalloutLine
callout
Ptr AnnotCalloutLine
result <- Ptr AnnotCalloutLine -> IO (Ptr AnnotCalloutLine)
poppler_annot_callout_line_copy Ptr AnnotCalloutLine
callout'
Text -> Ptr AnnotCalloutLine -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"annotCalloutLineCopy" Ptr AnnotCalloutLine
result
AnnotCalloutLine
result' <- ((ManagedPtr AnnotCalloutLine -> AnnotCalloutLine)
-> Ptr AnnotCalloutLine -> IO AnnotCalloutLine
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr AnnotCalloutLine -> AnnotCalloutLine
AnnotCalloutLine) Ptr AnnotCalloutLine
result
AnnotCalloutLine -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr AnnotCalloutLine
callout
AnnotCalloutLine -> IO AnnotCalloutLine
forall (m :: * -> *) a. Monad m => a -> m a
return AnnotCalloutLine
result'
#if defined(ENABLE_OVERLOADING)
data AnnotCalloutLineCopyMethodInfo
instance (signature ~ (m AnnotCalloutLine), MonadIO m) => O.MethodInfo AnnotCalloutLineCopyMethodInfo AnnotCalloutLine signature where
overloadedMethod = annotCalloutLineCopy
#endif
foreign import ccall "poppler_annot_callout_line_free" poppler_annot_callout_line_free ::
Ptr AnnotCalloutLine ->
IO ()
annotCalloutLineFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
AnnotCalloutLine
-> m ()
annotCalloutLineFree :: AnnotCalloutLine -> m ()
annotCalloutLineFree AnnotCalloutLine
callout = 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 AnnotCalloutLine
callout' <- AnnotCalloutLine -> IO (Ptr AnnotCalloutLine)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr AnnotCalloutLine
callout
Ptr AnnotCalloutLine -> IO ()
poppler_annot_callout_line_free Ptr AnnotCalloutLine
callout'
AnnotCalloutLine -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr AnnotCalloutLine
callout
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AnnotCalloutLineFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo AnnotCalloutLineFreeMethodInfo AnnotCalloutLine signature where
overloadedMethod = annotCalloutLineFree
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveAnnotCalloutLineMethod (t :: Symbol) (o :: *) :: * where
ResolveAnnotCalloutLineMethod "copy" o = AnnotCalloutLineCopyMethodInfo
ResolveAnnotCalloutLineMethod "free" o = AnnotCalloutLineFreeMethodInfo
ResolveAnnotCalloutLineMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAnnotCalloutLineMethod t AnnotCalloutLine, O.MethodInfo info AnnotCalloutLine p) => OL.IsLabel t (AnnotCalloutLine -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif