{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Poppler.Structs.SigningData
(
SigningData(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveSigningDataMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SigningDataCopyMethodInfo ,
#endif
signingDataCopy ,
#if defined(ENABLE_OVERLOADING)
SigningDataFreeMethodInfo ,
#endif
signingDataFree ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetBackgroundColorMethodInfo ,
#endif
signingDataGetBackgroundColor ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetBorderColorMethodInfo ,
#endif
signingDataGetBorderColor ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetBorderWidthMethodInfo ,
#endif
signingDataGetBorderWidth ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetCertificateInfoMethodInfo ,
#endif
signingDataGetCertificateInfo ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetDestinationFilenameMethodInfo,
#endif
signingDataGetDestinationFilename ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetDocumentOwnerPasswordMethodInfo,
#endif
signingDataGetDocumentOwnerPassword ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetDocumentUserPasswordMethodInfo,
#endif
signingDataGetDocumentUserPassword ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetFieldPartialNameMethodInfo,
#endif
signingDataGetFieldPartialName ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetFontColorMethodInfo ,
#endif
signingDataGetFontColor ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetFontSizeMethodInfo ,
#endif
signingDataGetFontSize ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetImagePathMethodInfo ,
#endif
signingDataGetImagePath ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetLeftFontSizeMethodInfo ,
#endif
signingDataGetLeftFontSize ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetLocationMethodInfo ,
#endif
signingDataGetLocation ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetPageMethodInfo ,
#endif
signingDataGetPage ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetPasswordMethodInfo ,
#endif
signingDataGetPassword ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetReasonMethodInfo ,
#endif
signingDataGetReason ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetSignatureRectangleMethodInfo,
#endif
signingDataGetSignatureRectangle ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetSignatureTextMethodInfo ,
#endif
signingDataGetSignatureText ,
#if defined(ENABLE_OVERLOADING)
SigningDataGetSignatureTextLeftMethodInfo,
#endif
signingDataGetSignatureTextLeft ,
signingDataNew ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetBackgroundColorMethodInfo ,
#endif
signingDataSetBackgroundColor ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetBorderColorMethodInfo ,
#endif
signingDataSetBorderColor ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetBorderWidthMethodInfo ,
#endif
signingDataSetBorderWidth ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetCertificateInfoMethodInfo ,
#endif
signingDataSetCertificateInfo ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetDestinationFilenameMethodInfo,
#endif
signingDataSetDestinationFilename ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetDocumentOwnerPasswordMethodInfo,
#endif
signingDataSetDocumentOwnerPassword ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetDocumentUserPasswordMethodInfo,
#endif
signingDataSetDocumentUserPassword ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetFieldPartialNameMethodInfo,
#endif
signingDataSetFieldPartialName ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetFontColorMethodInfo ,
#endif
signingDataSetFontColor ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetFontSizeMethodInfo ,
#endif
signingDataSetFontSize ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetImagePathMethodInfo ,
#endif
signingDataSetImagePath ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetLeftFontSizeMethodInfo ,
#endif
signingDataSetLeftFontSize ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetLocationMethodInfo ,
#endif
signingDataSetLocation ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetPageMethodInfo ,
#endif
signingDataSetPage ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetPasswordMethodInfo ,
#endif
signingDataSetPassword ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetReasonMethodInfo ,
#endif
signingDataSetReason ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetSignatureRectangleMethodInfo,
#endif
signingDataSetSignatureRectangle ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetSignatureTextMethodInfo ,
#endif
signingDataSetSignatureText ,
#if defined(ENABLE_OVERLOADING)
SigningDataSetSignatureTextLeftMethodInfo,
#endif
signingDataSetSignatureTextLeft ,
) 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.Kind as DK
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 Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.GLib.Structs.DateTime as GLib.DateTime
import {-# SOURCE #-} qualified GI.Poppler.Structs.CertificateInfo as Poppler.CertificateInfo
import {-# SOURCE #-} qualified GI.Poppler.Structs.Color as Poppler.Color
import {-# SOURCE #-} qualified GI.Poppler.Structs.Rectangle as Poppler.Rectangle
#else
import {-# SOURCE #-} qualified GI.Poppler.Structs.CertificateInfo as Poppler.CertificateInfo
import {-# SOURCE #-} qualified GI.Poppler.Structs.Color as Poppler.Color
import {-# SOURCE #-} qualified GI.Poppler.Structs.Rectangle as Poppler.Rectangle
#endif
newtype SigningData = SigningData (SP.ManagedPtr SigningData)
deriving (SigningData -> SigningData -> Bool
(SigningData -> SigningData -> Bool)
-> (SigningData -> SigningData -> Bool) -> Eq SigningData
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SigningData -> SigningData -> Bool
== :: SigningData -> SigningData -> Bool
$c/= :: SigningData -> SigningData -> Bool
/= :: SigningData -> SigningData -> Bool
Eq)
instance SP.ManagedPtrNewtype SigningData where
toManagedPtr :: SigningData -> ManagedPtr SigningData
toManagedPtr (SigningData ManagedPtr SigningData
p) = ManagedPtr SigningData
p
foreign import ccall "poppler_signing_data_get_type" c_poppler_signing_data_get_type ::
IO GType
type instance O.ParentTypes SigningData = '[]
instance O.HasParentTypes SigningData
instance B.Types.TypedObject SigningData where
glibType :: IO GType
glibType = IO GType
c_poppler_signing_data_get_type
instance B.Types.GBoxed SigningData
instance B.GValue.IsGValue (Maybe SigningData) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_poppler_signing_data_get_type
gvalueSet_ :: Ptr GValue -> Maybe SigningData -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SigningData
P.Nothing = Ptr GValue -> Ptr SigningData -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr SigningData
forall a. Ptr a
FP.nullPtr :: FP.Ptr SigningData)
gvalueSet_ Ptr GValue
gv (P.Just SigningData
obj) = SigningData -> (Ptr SigningData -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SigningData
obj (Ptr GValue -> Ptr SigningData -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SigningData)
gvalueGet_ Ptr GValue
gv = do
Ptr SigningData
ptr <- Ptr GValue -> IO (Ptr SigningData)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr SigningData)
if Ptr SigningData
ptr Ptr SigningData -> Ptr SigningData -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SigningData
forall a. Ptr a
FP.nullPtr
then SigningData -> Maybe SigningData
forall a. a -> Maybe a
P.Just (SigningData -> Maybe SigningData)
-> IO SigningData -> IO (Maybe SigningData)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SigningData -> SigningData)
-> Ptr SigningData -> IO SigningData
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr SigningData -> SigningData
SigningData Ptr SigningData
ptr
else Maybe SigningData -> IO (Maybe SigningData)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SigningData
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SigningData
type instance O.AttributeList SigningData = SigningDataAttributeList
type SigningDataAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "poppler_signing_data_new" poppler_signing_data_new ::
IO (Ptr SigningData)
signingDataNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m SigningData
signingDataNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m SigningData
signingDataNew = IO SigningData -> m SigningData
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SigningData -> m SigningData)
-> IO SigningData -> m SigningData
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
result <- IO (Ptr SigningData)
poppler_signing_data_new
Text -> Ptr SigningData -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataNew" Ptr SigningData
result
SigningData
result' <- ((ManagedPtr SigningData -> SigningData)
-> Ptr SigningData -> IO SigningData
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr SigningData -> SigningData
SigningData) Ptr SigningData
result
SigningData -> IO SigningData
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SigningData
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "poppler_signing_data_copy" poppler_signing_data_copy ::
Ptr SigningData ->
IO (Ptr SigningData)
signingDataCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m SigningData
signingDataCopy :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m SigningData
signingDataCopy SigningData
signingData = IO SigningData -> m SigningData
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SigningData -> m SigningData)
-> IO SigningData -> m SigningData
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
Ptr SigningData
result <- Ptr SigningData -> IO (Ptr SigningData)
poppler_signing_data_copy Ptr SigningData
signingData'
Text -> Ptr SigningData -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataCopy" Ptr SigningData
result
SigningData
result' <- ((ManagedPtr SigningData -> SigningData)
-> Ptr SigningData -> IO SigningData
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr SigningData -> SigningData
SigningData) Ptr SigningData
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
SigningData -> IO SigningData
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SigningData
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataCopyMethodInfo
instance (signature ~ (m SigningData), MonadIO m) => O.OverloadedMethod SigningDataCopyMethodInfo SigningData signature where
overloadedMethod = signingDataCopy
instance O.OverloadedMethodInfo SigningDataCopyMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataCopy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataCopy"
})
#endif
foreign import ccall "poppler_signing_data_free" poppler_signing_data_free ::
Ptr SigningData ->
IO ()
signingDataFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
Maybe (SigningData)
-> m ()
signingDataFree :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Maybe SigningData -> m ()
signingDataFree Maybe SigningData
signingData = 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 SigningData
maybeSigningData <- case Maybe SigningData
signingData of
Maybe SigningData
Nothing -> Ptr SigningData -> IO (Ptr SigningData)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SigningData
forall a. Ptr a
nullPtr
Just SigningData
jSigningData -> do
Ptr SigningData
jSigningData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
jSigningData
Ptr SigningData -> IO (Ptr SigningData)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SigningData
jSigningData'
Ptr SigningData -> IO ()
poppler_signing_data_free Ptr SigningData
maybeSigningData
Maybe SigningData -> (SigningData -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe SigningData
signingData SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod SigningDataFreeMethodInfo SigningData signature where
overloadedMethod i = signingDataFree (Just i)
instance O.OverloadedMethodInfo SigningDataFreeMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataFree",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataFree"
})
#endif
foreign import ccall "poppler_signing_data_get_background_color" poppler_signing_data_get_background_color ::
Ptr SigningData ->
IO (Ptr Poppler.Color.Color)
signingDataGetBackgroundColor ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m Poppler.Color.Color
signingDataGetBackgroundColor :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Color
signingDataGetBackgroundColor SigningData
signingData = IO Color -> m Color
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Color -> m Color) -> IO Color -> m Color
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
Ptr Color
result <- Ptr SigningData -> IO (Ptr Color)
poppler_signing_data_get_background_color Ptr SigningData
signingData'
Text -> Ptr Color -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataGetBackgroundColor" Ptr Color
result
Color
result' <- ((ManagedPtr Color -> Color) -> Ptr Color -> IO Color
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Color -> Color
Poppler.Color.Color) Ptr Color
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Color -> IO Color
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Color
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetBackgroundColorMethodInfo
instance (signature ~ (m Poppler.Color.Color), MonadIO m) => O.OverloadedMethod SigningDataGetBackgroundColorMethodInfo SigningData signature where
overloadedMethod = signingDataGetBackgroundColor
instance O.OverloadedMethodInfo SigningDataGetBackgroundColorMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetBackgroundColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetBackgroundColor"
})
#endif
foreign import ccall "poppler_signing_data_get_border_color" poppler_signing_data_get_border_color ::
Ptr SigningData ->
IO (Ptr Poppler.Color.Color)
signingDataGetBorderColor ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m Poppler.Color.Color
signingDataGetBorderColor :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Color
signingDataGetBorderColor SigningData
signingData = IO Color -> m Color
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Color -> m Color) -> IO Color -> m Color
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
Ptr Color
result <- Ptr SigningData -> IO (Ptr Color)
poppler_signing_data_get_border_color Ptr SigningData
signingData'
Text -> Ptr Color -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataGetBorderColor" Ptr Color
result
Color
result' <- ((ManagedPtr Color -> Color) -> Ptr Color -> IO Color
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Color -> Color
Poppler.Color.Color) Ptr Color
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Color -> IO Color
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Color
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetBorderColorMethodInfo
instance (signature ~ (m Poppler.Color.Color), MonadIO m) => O.OverloadedMethod SigningDataGetBorderColorMethodInfo SigningData signature where
overloadedMethod = signingDataGetBorderColor
instance O.OverloadedMethodInfo SigningDataGetBorderColorMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetBorderColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetBorderColor"
})
#endif
foreign import ccall "poppler_signing_data_get_border_width" poppler_signing_data_get_border_width ::
Ptr SigningData ->
IO CDouble
signingDataGetBorderWidth ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m Double
signingDataGetBorderWidth :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Double
signingDataGetBorderWidth SigningData
signingData = IO Double -> m Double
forall a. IO a -> m a
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
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CDouble
result <- Ptr SigningData -> IO CDouble
poppler_signing_data_get_border_width Ptr SigningData
signingData'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetBorderWidthMethodInfo
instance (signature ~ (m Double), MonadIO m) => O.OverloadedMethod SigningDataGetBorderWidthMethodInfo SigningData signature where
overloadedMethod = signingDataGetBorderWidth
instance O.OverloadedMethodInfo SigningDataGetBorderWidthMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetBorderWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetBorderWidth"
})
#endif
foreign import ccall "poppler_signing_data_get_certificate_info" poppler_signing_data_get_certificate_info ::
Ptr SigningData ->
IO (Ptr Poppler.CertificateInfo.CertificateInfo)
signingDataGetCertificateInfo ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m Poppler.CertificateInfo.CertificateInfo
signingDataGetCertificateInfo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m CertificateInfo
signingDataGetCertificateInfo SigningData
signingData = IO CertificateInfo -> m CertificateInfo
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CertificateInfo -> m CertificateInfo)
-> IO CertificateInfo -> m CertificateInfo
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
Ptr CertificateInfo
result <- Ptr SigningData -> IO (Ptr CertificateInfo)
poppler_signing_data_get_certificate_info Ptr SigningData
signingData'
Text -> Ptr CertificateInfo -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataGetCertificateInfo" Ptr CertificateInfo
result
CertificateInfo
result' <- ((ManagedPtr CertificateInfo -> CertificateInfo)
-> Ptr CertificateInfo -> IO CertificateInfo
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr CertificateInfo -> CertificateInfo
Poppler.CertificateInfo.CertificateInfo) Ptr CertificateInfo
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
CertificateInfo -> IO CertificateInfo
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CertificateInfo
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetCertificateInfoMethodInfo
instance (signature ~ (m Poppler.CertificateInfo.CertificateInfo), MonadIO m) => O.OverloadedMethod SigningDataGetCertificateInfoMethodInfo SigningData signature where
overloadedMethod = signingDataGetCertificateInfo
instance O.OverloadedMethodInfo SigningDataGetCertificateInfoMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetCertificateInfo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetCertificateInfo"
})
#endif
foreign import ccall "poppler_signing_data_get_destination_filename" poppler_signing_data_get_destination_filename ::
Ptr SigningData ->
IO CString
signingDataGetDestinationFilename ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m T.Text
signingDataGetDestinationFilename :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Text
signingDataGetDestinationFilename SigningData
signingData = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
result <- Ptr SigningData -> IO CString
poppler_signing_data_get_destination_filename Ptr SigningData
signingData'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataGetDestinationFilename" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetDestinationFilenameMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod SigningDataGetDestinationFilenameMethodInfo SigningData signature where
overloadedMethod = signingDataGetDestinationFilename
instance O.OverloadedMethodInfo SigningDataGetDestinationFilenameMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetDestinationFilename",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetDestinationFilename"
})
#endif
foreign import ccall "poppler_signing_data_get_document_owner_password" poppler_signing_data_get_document_owner_password ::
Ptr SigningData ->
IO CString
signingDataGetDocumentOwnerPassword ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m T.Text
signingDataGetDocumentOwnerPassword :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Text
signingDataGetDocumentOwnerPassword SigningData
signingData = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
result <- Ptr SigningData -> IO CString
poppler_signing_data_get_document_owner_password Ptr SigningData
signingData'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataGetDocumentOwnerPassword" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetDocumentOwnerPasswordMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod SigningDataGetDocumentOwnerPasswordMethodInfo SigningData signature where
overloadedMethod = signingDataGetDocumentOwnerPassword
instance O.OverloadedMethodInfo SigningDataGetDocumentOwnerPasswordMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetDocumentOwnerPassword",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetDocumentOwnerPassword"
})
#endif
foreign import ccall "poppler_signing_data_get_document_user_password" poppler_signing_data_get_document_user_password ::
Ptr SigningData ->
IO CString
signingDataGetDocumentUserPassword ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m T.Text
signingDataGetDocumentUserPassword :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Text
signingDataGetDocumentUserPassword SigningData
signingData = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
result <- Ptr SigningData -> IO CString
poppler_signing_data_get_document_user_password Ptr SigningData
signingData'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataGetDocumentUserPassword" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetDocumentUserPasswordMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod SigningDataGetDocumentUserPasswordMethodInfo SigningData signature where
overloadedMethod = signingDataGetDocumentUserPassword
instance O.OverloadedMethodInfo SigningDataGetDocumentUserPasswordMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetDocumentUserPassword",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetDocumentUserPassword"
})
#endif
foreign import ccall "poppler_signing_data_get_field_partial_name" poppler_signing_data_get_field_partial_name ::
Ptr SigningData ->
IO CString
signingDataGetFieldPartialName ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m T.Text
signingDataGetFieldPartialName :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Text
signingDataGetFieldPartialName SigningData
signingData = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
result <- Ptr SigningData -> IO CString
poppler_signing_data_get_field_partial_name Ptr SigningData
signingData'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataGetFieldPartialName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetFieldPartialNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod SigningDataGetFieldPartialNameMethodInfo SigningData signature where
overloadedMethod = signingDataGetFieldPartialName
instance O.OverloadedMethodInfo SigningDataGetFieldPartialNameMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetFieldPartialName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetFieldPartialName"
})
#endif
foreign import ccall "poppler_signing_data_get_font_color" poppler_signing_data_get_font_color ::
Ptr SigningData ->
IO (Ptr Poppler.Color.Color)
signingDataGetFontColor ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m Poppler.Color.Color
signingDataGetFontColor :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Color
signingDataGetFontColor SigningData
signingData = IO Color -> m Color
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Color -> m Color) -> IO Color -> m Color
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
Ptr Color
result <- Ptr SigningData -> IO (Ptr Color)
poppler_signing_data_get_font_color Ptr SigningData
signingData'
Text -> Ptr Color -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataGetFontColor" Ptr Color
result
Color
result' <- ((ManagedPtr Color -> Color) -> Ptr Color -> IO Color
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Color -> Color
Poppler.Color.Color) Ptr Color
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Color -> IO Color
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Color
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetFontColorMethodInfo
instance (signature ~ (m Poppler.Color.Color), MonadIO m) => O.OverloadedMethod SigningDataGetFontColorMethodInfo SigningData signature where
overloadedMethod = signingDataGetFontColor
instance O.OverloadedMethodInfo SigningDataGetFontColorMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetFontColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetFontColor"
})
#endif
foreign import ccall "poppler_signing_data_get_font_size" poppler_signing_data_get_font_size ::
Ptr SigningData ->
IO CDouble
signingDataGetFontSize ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m Double
signingDataGetFontSize :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Double
signingDataGetFontSize SigningData
signingData = IO Double -> m Double
forall a. IO a -> m a
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
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CDouble
result <- Ptr SigningData -> IO CDouble
poppler_signing_data_get_font_size Ptr SigningData
signingData'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetFontSizeMethodInfo
instance (signature ~ (m Double), MonadIO m) => O.OverloadedMethod SigningDataGetFontSizeMethodInfo SigningData signature where
overloadedMethod = signingDataGetFontSize
instance O.OverloadedMethodInfo SigningDataGetFontSizeMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetFontSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetFontSize"
})
#endif
foreign import ccall "poppler_signing_data_get_image_path" poppler_signing_data_get_image_path ::
Ptr SigningData ->
IO CString
signingDataGetImagePath ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m T.Text
signingDataGetImagePath :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Text
signingDataGetImagePath SigningData
signingData = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
result <- Ptr SigningData -> IO CString
poppler_signing_data_get_image_path Ptr SigningData
signingData'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataGetImagePath" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetImagePathMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod SigningDataGetImagePathMethodInfo SigningData signature where
overloadedMethod = signingDataGetImagePath
instance O.OverloadedMethodInfo SigningDataGetImagePathMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetImagePath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetImagePath"
})
#endif
foreign import ccall "poppler_signing_data_get_left_font_size" poppler_signing_data_get_left_font_size ::
Ptr SigningData ->
IO CDouble
signingDataGetLeftFontSize ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m Double
signingDataGetLeftFontSize :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Double
signingDataGetLeftFontSize SigningData
signingData = IO Double -> m Double
forall a. IO a -> m a
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
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CDouble
result <- Ptr SigningData -> IO CDouble
poppler_signing_data_get_left_font_size Ptr SigningData
signingData'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetLeftFontSizeMethodInfo
instance (signature ~ (m Double), MonadIO m) => O.OverloadedMethod SigningDataGetLeftFontSizeMethodInfo SigningData signature where
overloadedMethod = signingDataGetLeftFontSize
instance O.OverloadedMethodInfo SigningDataGetLeftFontSizeMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetLeftFontSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetLeftFontSize"
})
#endif
foreign import ccall "poppler_signing_data_get_location" poppler_signing_data_get_location ::
Ptr SigningData ->
IO CString
signingDataGetLocation ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m T.Text
signingDataGetLocation :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Text
signingDataGetLocation SigningData
signingData = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
result <- Ptr SigningData -> IO CString
poppler_signing_data_get_location Ptr SigningData
signingData'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataGetLocation" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetLocationMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod SigningDataGetLocationMethodInfo SigningData signature where
overloadedMethod = signingDataGetLocation
instance O.OverloadedMethodInfo SigningDataGetLocationMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetLocation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetLocation"
})
#endif
foreign import ccall "poppler_signing_data_get_page" poppler_signing_data_get_page ::
Ptr SigningData ->
IO Int32
signingDataGetPage ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m Int32
signingDataGetPage :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Int32
signingDataGetPage SigningData
signingData = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
Int32
result <- Ptr SigningData -> IO Int32
poppler_signing_data_get_page Ptr SigningData
signingData'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data SigningDataGetPageMethodInfo
instance (signature ~ (m Int32), MonadIO m) => O.OverloadedMethod SigningDataGetPageMethodInfo SigningData signature where
overloadedMethod = signingDataGetPage
instance O.OverloadedMethodInfo SigningDataGetPageMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetPage"
})
#endif
foreign import ccall "poppler_signing_data_get_password" poppler_signing_data_get_password ::
Ptr SigningData ->
IO CString
signingDataGetPassword ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m T.Text
signingDataGetPassword :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Text
signingDataGetPassword SigningData
signingData = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
result <- Ptr SigningData -> IO CString
poppler_signing_data_get_password Ptr SigningData
signingData'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataGetPassword" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetPasswordMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod SigningDataGetPasswordMethodInfo SigningData signature where
overloadedMethod = signingDataGetPassword
instance O.OverloadedMethodInfo SigningDataGetPasswordMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetPassword",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetPassword"
})
#endif
foreign import ccall "poppler_signing_data_get_reason" poppler_signing_data_get_reason ::
Ptr SigningData ->
IO CString
signingDataGetReason ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m T.Text
signingDataGetReason :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Text
signingDataGetReason SigningData
signingData = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
result <- Ptr SigningData -> IO CString
poppler_signing_data_get_reason Ptr SigningData
signingData'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataGetReason" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetReasonMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod SigningDataGetReasonMethodInfo SigningData signature where
overloadedMethod = signingDataGetReason
instance O.OverloadedMethodInfo SigningDataGetReasonMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetReason",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetReason"
})
#endif
foreign import ccall "poppler_signing_data_get_signature_rectangle" poppler_signing_data_get_signature_rectangle ::
Ptr SigningData ->
IO (Ptr Poppler.Rectangle.Rectangle)
signingDataGetSignatureRectangle ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m Poppler.Rectangle.Rectangle
signingDataGetSignatureRectangle :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Rectangle
signingDataGetSignatureRectangle SigningData
signingData = IO Rectangle -> m Rectangle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Rectangle -> m Rectangle) -> IO Rectangle -> m Rectangle
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
Ptr Rectangle
result <- Ptr SigningData -> IO (Ptr Rectangle)
poppler_signing_data_get_signature_rectangle Ptr SigningData
signingData'
Text -> Ptr Rectangle -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataGetSignatureRectangle" Ptr Rectangle
result
Rectangle
result' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Rectangle -> Rectangle
Poppler.Rectangle.Rectangle) Ptr Rectangle
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Rectangle -> IO Rectangle
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Rectangle
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetSignatureRectangleMethodInfo
instance (signature ~ (m Poppler.Rectangle.Rectangle), MonadIO m) => O.OverloadedMethod SigningDataGetSignatureRectangleMethodInfo SigningData signature where
overloadedMethod = signingDataGetSignatureRectangle
instance O.OverloadedMethodInfo SigningDataGetSignatureRectangleMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetSignatureRectangle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetSignatureRectangle"
})
#endif
foreign import ccall "poppler_signing_data_get_signature_text" poppler_signing_data_get_signature_text ::
Ptr SigningData ->
IO CString
signingDataGetSignatureText ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m T.Text
signingDataGetSignatureText :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Text
signingDataGetSignatureText SigningData
signingData = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
result <- Ptr SigningData -> IO CString
poppler_signing_data_get_signature_text Ptr SigningData
signingData'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataGetSignatureText" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetSignatureTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod SigningDataGetSignatureTextMethodInfo SigningData signature where
overloadedMethod = signingDataGetSignatureText
instance O.OverloadedMethodInfo SigningDataGetSignatureTextMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetSignatureText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetSignatureText"
})
#endif
foreign import ccall "poppler_signing_data_get_signature_text_left" poppler_signing_data_get_signature_text_left ::
Ptr SigningData ->
IO CString
signingDataGetSignatureTextLeft ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> m T.Text
signingDataGetSignatureTextLeft :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> m Text
signingDataGetSignatureTextLeft SigningData
signingData = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
result <- Ptr SigningData -> IO CString
poppler_signing_data_get_signature_text_left Ptr SigningData
signingData'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"signingDataGetSignatureTextLeft" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data SigningDataGetSignatureTextLeftMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod SigningDataGetSignatureTextLeftMethodInfo SigningData signature where
overloadedMethod = signingDataGetSignatureTextLeft
instance O.OverloadedMethodInfo SigningDataGetSignatureTextLeftMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataGetSignatureTextLeft",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataGetSignatureTextLeft"
})
#endif
foreign import ccall "poppler_signing_data_set_background_color" poppler_signing_data_set_background_color ::
Ptr SigningData ->
Ptr Poppler.Color.Color ->
IO ()
signingDataSetBackgroundColor ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> Poppler.Color.Color
-> m ()
signingDataSetBackgroundColor :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Color -> m ()
signingDataSetBackgroundColor SigningData
signingData Color
backgroundColor = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
Ptr Color
backgroundColor' <- Color -> IO (Ptr Color)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Color
backgroundColor
Ptr SigningData -> Ptr Color -> IO ()
poppler_signing_data_set_background_color Ptr SigningData
signingData' Ptr Color
backgroundColor'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Color -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Color
backgroundColor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetBackgroundColorMethodInfo
instance (signature ~ (Poppler.Color.Color -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetBackgroundColorMethodInfo SigningData signature where
overloadedMethod = signingDataSetBackgroundColor
instance O.OverloadedMethodInfo SigningDataSetBackgroundColorMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetBackgroundColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetBackgroundColor"
})
#endif
foreign import ccall "poppler_signing_data_set_border_color" poppler_signing_data_set_border_color ::
Ptr SigningData ->
Ptr Poppler.Color.Color ->
IO ()
signingDataSetBorderColor ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> Poppler.Color.Color
-> m ()
signingDataSetBorderColor :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Color -> m ()
signingDataSetBorderColor SigningData
signingData Color
borderColor = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
Ptr Color
borderColor' <- Color -> IO (Ptr Color)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Color
borderColor
Ptr SigningData -> Ptr Color -> IO ()
poppler_signing_data_set_border_color Ptr SigningData
signingData' Ptr Color
borderColor'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Color -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Color
borderColor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetBorderColorMethodInfo
instance (signature ~ (Poppler.Color.Color -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetBorderColorMethodInfo SigningData signature where
overloadedMethod = signingDataSetBorderColor
instance O.OverloadedMethodInfo SigningDataSetBorderColorMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetBorderColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetBorderColor"
})
#endif
foreign import ccall "poppler_signing_data_set_border_width" poppler_signing_data_set_border_width ::
Ptr SigningData ->
CDouble ->
IO ()
signingDataSetBorderWidth ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> Double
-> m ()
signingDataSetBorderWidth :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Double -> m ()
signingDataSetBorderWidth SigningData
signingData Double
borderWidth = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
let borderWidth' :: CDouble
borderWidth' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
borderWidth
Ptr SigningData -> CDouble -> IO ()
poppler_signing_data_set_border_width Ptr SigningData
signingData' CDouble
borderWidth'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetBorderWidthMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetBorderWidthMethodInfo SigningData signature where
overloadedMethod = signingDataSetBorderWidth
instance O.OverloadedMethodInfo SigningDataSetBorderWidthMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetBorderWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetBorderWidth"
})
#endif
foreign import ccall "poppler_signing_data_set_certificate_info" poppler_signing_data_set_certificate_info ::
Ptr SigningData ->
Ptr Poppler.CertificateInfo.CertificateInfo ->
IO ()
signingDataSetCertificateInfo ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> Poppler.CertificateInfo.CertificateInfo
-> m ()
signingDataSetCertificateInfo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> CertificateInfo -> m ()
signingDataSetCertificateInfo SigningData
signingData CertificateInfo
certificateInfo = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
Ptr CertificateInfo
certificateInfo' <- CertificateInfo -> IO (Ptr CertificateInfo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr CertificateInfo
certificateInfo
Ptr SigningData -> Ptr CertificateInfo -> IO ()
poppler_signing_data_set_certificate_info Ptr SigningData
signingData' Ptr CertificateInfo
certificateInfo'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
CertificateInfo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr CertificateInfo
certificateInfo
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetCertificateInfoMethodInfo
instance (signature ~ (Poppler.CertificateInfo.CertificateInfo -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetCertificateInfoMethodInfo SigningData signature where
overloadedMethod = signingDataSetCertificateInfo
instance O.OverloadedMethodInfo SigningDataSetCertificateInfoMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetCertificateInfo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetCertificateInfo"
})
#endif
foreign import ccall "poppler_signing_data_set_destination_filename" poppler_signing_data_set_destination_filename ::
Ptr SigningData ->
CString ->
IO ()
signingDataSetDestinationFilename ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> T.Text
-> m ()
signingDataSetDestinationFilename :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Text -> m ()
signingDataSetDestinationFilename SigningData
signingData Text
filename = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
filename' <- Text -> IO CString
textToCString Text
filename
Ptr SigningData -> CString -> IO ()
poppler_signing_data_set_destination_filename Ptr SigningData
signingData' CString
filename'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetDestinationFilenameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetDestinationFilenameMethodInfo SigningData signature where
overloadedMethod = signingDataSetDestinationFilename
instance O.OverloadedMethodInfo SigningDataSetDestinationFilenameMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetDestinationFilename",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetDestinationFilename"
})
#endif
foreign import ccall "poppler_signing_data_set_document_owner_password" poppler_signing_data_set_document_owner_password ::
Ptr SigningData ->
CString ->
IO ()
signingDataSetDocumentOwnerPassword ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> T.Text
-> m ()
signingDataSetDocumentOwnerPassword :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Text -> m ()
signingDataSetDocumentOwnerPassword SigningData
signingData Text
documentOwnerPassword = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
documentOwnerPassword' <- Text -> IO CString
textToCString Text
documentOwnerPassword
Ptr SigningData -> CString -> IO ()
poppler_signing_data_set_document_owner_password Ptr SigningData
signingData' CString
documentOwnerPassword'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
documentOwnerPassword'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetDocumentOwnerPasswordMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetDocumentOwnerPasswordMethodInfo SigningData signature where
overloadedMethod = signingDataSetDocumentOwnerPassword
instance O.OverloadedMethodInfo SigningDataSetDocumentOwnerPasswordMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetDocumentOwnerPassword",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetDocumentOwnerPassword"
})
#endif
foreign import ccall "poppler_signing_data_set_document_user_password" poppler_signing_data_set_document_user_password ::
Ptr SigningData ->
CString ->
IO ()
signingDataSetDocumentUserPassword ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> T.Text
-> m ()
signingDataSetDocumentUserPassword :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Text -> m ()
signingDataSetDocumentUserPassword SigningData
signingData Text
documentUserPassword = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
documentUserPassword' <- Text -> IO CString
textToCString Text
documentUserPassword
Ptr SigningData -> CString -> IO ()
poppler_signing_data_set_document_user_password Ptr SigningData
signingData' CString
documentUserPassword'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
documentUserPassword'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetDocumentUserPasswordMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetDocumentUserPasswordMethodInfo SigningData signature where
overloadedMethod = signingDataSetDocumentUserPassword
instance O.OverloadedMethodInfo SigningDataSetDocumentUserPasswordMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetDocumentUserPassword",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetDocumentUserPassword"
})
#endif
foreign import ccall "poppler_signing_data_set_field_partial_name" poppler_signing_data_set_field_partial_name ::
Ptr SigningData ->
CString ->
IO ()
signingDataSetFieldPartialName ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> T.Text
-> m ()
signingDataSetFieldPartialName :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Text -> m ()
signingDataSetFieldPartialName SigningData
signingData Text
fieldPartialName = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
fieldPartialName' <- Text -> IO CString
textToCString Text
fieldPartialName
Ptr SigningData -> CString -> IO ()
poppler_signing_data_set_field_partial_name Ptr SigningData
signingData' CString
fieldPartialName'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
fieldPartialName'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetFieldPartialNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetFieldPartialNameMethodInfo SigningData signature where
overloadedMethod = signingDataSetFieldPartialName
instance O.OverloadedMethodInfo SigningDataSetFieldPartialNameMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetFieldPartialName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetFieldPartialName"
})
#endif
foreign import ccall "poppler_signing_data_set_font_color" poppler_signing_data_set_font_color ::
Ptr SigningData ->
Ptr Poppler.Color.Color ->
IO ()
signingDataSetFontColor ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> Poppler.Color.Color
-> m ()
signingDataSetFontColor :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Color -> m ()
signingDataSetFontColor SigningData
signingData Color
fontColor = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
Ptr Color
fontColor' <- Color -> IO (Ptr Color)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Color
fontColor
Ptr SigningData -> Ptr Color -> IO ()
poppler_signing_data_set_font_color Ptr SigningData
signingData' Ptr Color
fontColor'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Color -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Color
fontColor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetFontColorMethodInfo
instance (signature ~ (Poppler.Color.Color -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetFontColorMethodInfo SigningData signature where
overloadedMethod = signingDataSetFontColor
instance O.OverloadedMethodInfo SigningDataSetFontColorMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetFontColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetFontColor"
})
#endif
foreign import ccall "poppler_signing_data_set_font_size" poppler_signing_data_set_font_size ::
Ptr SigningData ->
CDouble ->
IO ()
signingDataSetFontSize ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> Double
-> m ()
signingDataSetFontSize :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Double -> m ()
signingDataSetFontSize SigningData
signingData Double
fontSize = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
let fontSize' :: CDouble
fontSize' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
fontSize
Ptr SigningData -> CDouble -> IO ()
poppler_signing_data_set_font_size Ptr SigningData
signingData' CDouble
fontSize'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetFontSizeMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetFontSizeMethodInfo SigningData signature where
overloadedMethod = signingDataSetFontSize
instance O.OverloadedMethodInfo SigningDataSetFontSizeMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetFontSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetFontSize"
})
#endif
foreign import ccall "poppler_signing_data_set_image_path" poppler_signing_data_set_image_path ::
Ptr SigningData ->
CString ->
IO ()
signingDataSetImagePath ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> T.Text
-> m ()
signingDataSetImagePath :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Text -> m ()
signingDataSetImagePath SigningData
signingData Text
imagePath = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
imagePath' <- Text -> IO CString
textToCString Text
imagePath
Ptr SigningData -> CString -> IO ()
poppler_signing_data_set_image_path Ptr SigningData
signingData' CString
imagePath'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
imagePath'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetImagePathMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetImagePathMethodInfo SigningData signature where
overloadedMethod = signingDataSetImagePath
instance O.OverloadedMethodInfo SigningDataSetImagePathMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetImagePath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetImagePath"
})
#endif
foreign import ccall "poppler_signing_data_set_left_font_size" poppler_signing_data_set_left_font_size ::
Ptr SigningData ->
CDouble ->
IO ()
signingDataSetLeftFontSize ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> Double
-> m ()
signingDataSetLeftFontSize :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Double -> m ()
signingDataSetLeftFontSize SigningData
signingData Double
fontSize = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
let fontSize' :: CDouble
fontSize' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
fontSize
Ptr SigningData -> CDouble -> IO ()
poppler_signing_data_set_left_font_size Ptr SigningData
signingData' CDouble
fontSize'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetLeftFontSizeMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetLeftFontSizeMethodInfo SigningData signature where
overloadedMethod = signingDataSetLeftFontSize
instance O.OverloadedMethodInfo SigningDataSetLeftFontSizeMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetLeftFontSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetLeftFontSize"
})
#endif
foreign import ccall "poppler_signing_data_set_location" poppler_signing_data_set_location ::
Ptr SigningData ->
CString ->
IO ()
signingDataSetLocation ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> T.Text
-> m ()
signingDataSetLocation :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Text -> m ()
signingDataSetLocation SigningData
signingData Text
location = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
location' <- Text -> IO CString
textToCString Text
location
Ptr SigningData -> CString -> IO ()
poppler_signing_data_set_location Ptr SigningData
signingData' CString
location'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
location'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetLocationMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetLocationMethodInfo SigningData signature where
overloadedMethod = signingDataSetLocation
instance O.OverloadedMethodInfo SigningDataSetLocationMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetLocation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetLocation"
})
#endif
foreign import ccall "poppler_signing_data_set_page" poppler_signing_data_set_page ::
Ptr SigningData ->
Int32 ->
IO ()
signingDataSetPage ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> Int32
-> m ()
signingDataSetPage :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Int32 -> m ()
signingDataSetPage SigningData
signingData Int32
page = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
Ptr SigningData -> Int32 -> IO ()
poppler_signing_data_set_page Ptr SigningData
signingData' Int32
page
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetPageMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetPageMethodInfo SigningData signature where
overloadedMethod = signingDataSetPage
instance O.OverloadedMethodInfo SigningDataSetPageMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetPage",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetPage"
})
#endif
foreign import ccall "poppler_signing_data_set_password" poppler_signing_data_set_password ::
Ptr SigningData ->
CString ->
IO ()
signingDataSetPassword ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> T.Text
-> m ()
signingDataSetPassword :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Text -> m ()
signingDataSetPassword SigningData
signingData Text
password = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
password' <- Text -> IO CString
textToCString Text
password
Ptr SigningData -> CString -> IO ()
poppler_signing_data_set_password Ptr SigningData
signingData' CString
password'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
password'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetPasswordMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetPasswordMethodInfo SigningData signature where
overloadedMethod = signingDataSetPassword
instance O.OverloadedMethodInfo SigningDataSetPasswordMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetPassword",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetPassword"
})
#endif
foreign import ccall "poppler_signing_data_set_reason" poppler_signing_data_set_reason ::
Ptr SigningData ->
CString ->
IO ()
signingDataSetReason ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> T.Text
-> m ()
signingDataSetReason :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Text -> m ()
signingDataSetReason SigningData
signingData Text
reason = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
reason' <- Text -> IO CString
textToCString Text
reason
Ptr SigningData -> CString -> IO ()
poppler_signing_data_set_reason Ptr SigningData
signingData' CString
reason'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
reason'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetReasonMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetReasonMethodInfo SigningData signature where
overloadedMethod = signingDataSetReason
instance O.OverloadedMethodInfo SigningDataSetReasonMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetReason",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetReason"
})
#endif
foreign import ccall "poppler_signing_data_set_signature_rectangle" poppler_signing_data_set_signature_rectangle ::
Ptr SigningData ->
Ptr Poppler.Rectangle.Rectangle ->
IO ()
signingDataSetSignatureRectangle ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> Poppler.Rectangle.Rectangle
-> m ()
signingDataSetSignatureRectangle :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Rectangle -> m ()
signingDataSetSignatureRectangle SigningData
signingData Rectangle
signatureRect = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
Ptr Rectangle
signatureRect' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
signatureRect
Ptr SigningData -> Ptr Rectangle -> IO ()
poppler_signing_data_set_signature_rectangle Ptr SigningData
signingData' Ptr Rectangle
signatureRect'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
signatureRect
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetSignatureRectangleMethodInfo
instance (signature ~ (Poppler.Rectangle.Rectangle -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetSignatureRectangleMethodInfo SigningData signature where
overloadedMethod = signingDataSetSignatureRectangle
instance O.OverloadedMethodInfo SigningDataSetSignatureRectangleMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetSignatureRectangle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetSignatureRectangle"
})
#endif
foreign import ccall "poppler_signing_data_set_signature_text" poppler_signing_data_set_signature_text ::
Ptr SigningData ->
CString ->
IO ()
signingDataSetSignatureText ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> T.Text
-> m ()
signingDataSetSignatureText :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Text -> m ()
signingDataSetSignatureText SigningData
signingData Text
signatureText = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
signatureText' <- Text -> IO CString
textToCString Text
signatureText
Ptr SigningData -> CString -> IO ()
poppler_signing_data_set_signature_text Ptr SigningData
signingData' CString
signatureText'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
signatureText'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetSignatureTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetSignatureTextMethodInfo SigningData signature where
overloadedMethod = signingDataSetSignatureText
instance O.OverloadedMethodInfo SigningDataSetSignatureTextMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetSignatureText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetSignatureText"
})
#endif
foreign import ccall "poppler_signing_data_set_signature_text_left" poppler_signing_data_set_signature_text_left ::
Ptr SigningData ->
CString ->
IO ()
signingDataSetSignatureTextLeft ::
(B.CallStack.HasCallStack, MonadIO m) =>
SigningData
-> T.Text
-> m ()
signingDataSetSignatureTextLeft :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SigningData -> Text -> m ()
signingDataSetSignatureTextLeft SigningData
signingData Text
signatureTextLeft = 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 SigningData
signingData' <- SigningData -> IO (Ptr SigningData)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SigningData
signingData
CString
signatureTextLeft' <- Text -> IO CString
textToCString Text
signatureTextLeft
Ptr SigningData -> CString -> IO ()
poppler_signing_data_set_signature_text_left Ptr SigningData
signingData' CString
signatureTextLeft'
SigningData -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SigningData
signingData
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
signatureTextLeft'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SigningDataSetSignatureTextLeftMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m) => O.OverloadedMethod SigningDataSetSignatureTextLeftMethodInfo SigningData signature where
overloadedMethod = signingDataSetSignatureTextLeft
instance O.OverloadedMethodInfo SigningDataSetSignatureTextLeftMethodInfo SigningData where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Poppler.Structs.SigningData.signingDataSetSignatureTextLeft",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-poppler-0.18.30/docs/GI-Poppler-Structs-SigningData.html#v:signingDataSetSignatureTextLeft"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveSigningDataMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveSigningDataMethod "copy" o = SigningDataCopyMethodInfo
ResolveSigningDataMethod "free" o = SigningDataFreeMethodInfo
ResolveSigningDataMethod "getBackgroundColor" o = SigningDataGetBackgroundColorMethodInfo
ResolveSigningDataMethod "getBorderColor" o = SigningDataGetBorderColorMethodInfo
ResolveSigningDataMethod "getBorderWidth" o = SigningDataGetBorderWidthMethodInfo
ResolveSigningDataMethod "getCertificateInfo" o = SigningDataGetCertificateInfoMethodInfo
ResolveSigningDataMethod "getDestinationFilename" o = SigningDataGetDestinationFilenameMethodInfo
ResolveSigningDataMethod "getDocumentOwnerPassword" o = SigningDataGetDocumentOwnerPasswordMethodInfo
ResolveSigningDataMethod "getDocumentUserPassword" o = SigningDataGetDocumentUserPasswordMethodInfo
ResolveSigningDataMethod "getFieldPartialName" o = SigningDataGetFieldPartialNameMethodInfo
ResolveSigningDataMethod "getFontColor" o = SigningDataGetFontColorMethodInfo
ResolveSigningDataMethod "getFontSize" o = SigningDataGetFontSizeMethodInfo
ResolveSigningDataMethod "getImagePath" o = SigningDataGetImagePathMethodInfo
ResolveSigningDataMethod "getLeftFontSize" o = SigningDataGetLeftFontSizeMethodInfo
ResolveSigningDataMethod "getLocation" o = SigningDataGetLocationMethodInfo
ResolveSigningDataMethod "getPage" o = SigningDataGetPageMethodInfo
ResolveSigningDataMethod "getPassword" o = SigningDataGetPasswordMethodInfo
ResolveSigningDataMethod "getReason" o = SigningDataGetReasonMethodInfo
ResolveSigningDataMethod "getSignatureRectangle" o = SigningDataGetSignatureRectangleMethodInfo
ResolveSigningDataMethod "getSignatureText" o = SigningDataGetSignatureTextMethodInfo
ResolveSigningDataMethod "getSignatureTextLeft" o = SigningDataGetSignatureTextLeftMethodInfo
ResolveSigningDataMethod "setBackgroundColor" o = SigningDataSetBackgroundColorMethodInfo
ResolveSigningDataMethod "setBorderColor" o = SigningDataSetBorderColorMethodInfo
ResolveSigningDataMethod "setBorderWidth" o = SigningDataSetBorderWidthMethodInfo
ResolveSigningDataMethod "setCertificateInfo" o = SigningDataSetCertificateInfoMethodInfo
ResolveSigningDataMethod "setDestinationFilename" o = SigningDataSetDestinationFilenameMethodInfo
ResolveSigningDataMethod "setDocumentOwnerPassword" o = SigningDataSetDocumentOwnerPasswordMethodInfo
ResolveSigningDataMethod "setDocumentUserPassword" o = SigningDataSetDocumentUserPasswordMethodInfo
ResolveSigningDataMethod "setFieldPartialName" o = SigningDataSetFieldPartialNameMethodInfo
ResolveSigningDataMethod "setFontColor" o = SigningDataSetFontColorMethodInfo
ResolveSigningDataMethod "setFontSize" o = SigningDataSetFontSizeMethodInfo
ResolveSigningDataMethod "setImagePath" o = SigningDataSetImagePathMethodInfo
ResolveSigningDataMethod "setLeftFontSize" o = SigningDataSetLeftFontSizeMethodInfo
ResolveSigningDataMethod "setLocation" o = SigningDataSetLocationMethodInfo
ResolveSigningDataMethod "setPage" o = SigningDataSetPageMethodInfo
ResolveSigningDataMethod "setPassword" o = SigningDataSetPasswordMethodInfo
ResolveSigningDataMethod "setReason" o = SigningDataSetReasonMethodInfo
ResolveSigningDataMethod "setSignatureRectangle" o = SigningDataSetSignatureRectangleMethodInfo
ResolveSigningDataMethod "setSignatureText" o = SigningDataSetSignatureTextMethodInfo
ResolveSigningDataMethod "setSignatureTextLeft" o = SigningDataSetSignatureTextLeftMethodInfo
ResolveSigningDataMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSigningDataMethod t SigningData, O.OverloadedMethod info SigningData p) => OL.IsLabel t (SigningData -> 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 ~ ResolveSigningDataMethod t SigningData, O.OverloadedMethod info SigningData p, R.HasField t SigningData p) => R.HasField t SigningData p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSigningDataMethod t SigningData, O.OverloadedMethodInfo info SigningData) => OL.IsLabel t (O.MethodProxy info SigningData) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif