{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Poppler.Structs.ActionLaunch
(
ActionLaunch(..) ,
newZeroActionLaunch ,
noActionLaunch ,
#if defined(ENABLE_OVERLOADING)
ResolveActionLaunchMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
actionLaunch_fileName ,
#endif
clearActionLaunchFileName ,
getActionLaunchFileName ,
setActionLaunchFileName ,
#if defined(ENABLE_OVERLOADING)
actionLaunch_params ,
#endif
clearActionLaunchParams ,
getActionLaunchParams ,
setActionLaunchParams ,
#if defined(ENABLE_OVERLOADING)
actionLaunch_title ,
#endif
clearActionLaunchTitle ,
getActionLaunchTitle ,
setActionLaunchTitle ,
#if defined(ENABLE_OVERLOADING)
actionLaunch_type ,
#endif
getActionLaunchType ,
setActionLaunchType ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import {-# SOURCE #-} qualified GI.Poppler.Enums as Poppler.Enums
newtype ActionLaunch = ActionLaunch (ManagedPtr ActionLaunch)
deriving (ActionLaunch -> ActionLaunch -> Bool
(ActionLaunch -> ActionLaunch -> Bool)
-> (ActionLaunch -> ActionLaunch -> Bool) -> Eq ActionLaunch
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ActionLaunch -> ActionLaunch -> Bool
$c/= :: ActionLaunch -> ActionLaunch -> Bool
== :: ActionLaunch -> ActionLaunch -> Bool
$c== :: ActionLaunch -> ActionLaunch -> Bool
Eq)
instance WrappedPtr ActionLaunch where
wrappedPtrCalloc :: IO (Ptr ActionLaunch)
wrappedPtrCalloc = Int -> IO (Ptr ActionLaunch)
forall a. Int -> IO (Ptr a)
callocBytes 32
wrappedPtrCopy :: ActionLaunch -> IO ActionLaunch
wrappedPtrCopy = \p :: ActionLaunch
p -> ActionLaunch
-> (Ptr ActionLaunch -> IO ActionLaunch) -> IO ActionLaunch
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ActionLaunch
p (Int -> Ptr ActionLaunch -> IO (Ptr ActionLaunch)
forall a. WrappedPtr a => Int -> Ptr a -> IO (Ptr a)
copyBytes 32 (Ptr ActionLaunch -> IO (Ptr ActionLaunch))
-> (Ptr ActionLaunch -> IO ActionLaunch)
-> Ptr ActionLaunch
-> IO ActionLaunch
forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> (ManagedPtr ActionLaunch -> ActionLaunch)
-> Ptr ActionLaunch -> IO ActionLaunch
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr ActionLaunch -> ActionLaunch
ActionLaunch)
wrappedPtrFree :: Maybe (GDestroyNotify ActionLaunch)
wrappedPtrFree = GDestroyNotify ActionLaunch -> Maybe (GDestroyNotify ActionLaunch)
forall a. a -> Maybe a
Just GDestroyNotify ActionLaunch
forall a. FunPtr (Ptr a -> IO ())
ptr_to_g_free
newZeroActionLaunch :: MonadIO m => m ActionLaunch
newZeroActionLaunch :: m ActionLaunch
newZeroActionLaunch = IO ActionLaunch -> m ActionLaunch
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ActionLaunch -> m ActionLaunch)
-> IO ActionLaunch -> m ActionLaunch
forall a b. (a -> b) -> a -> b
$ IO (Ptr ActionLaunch)
forall a. WrappedPtr a => IO (Ptr a)
wrappedPtrCalloc IO (Ptr ActionLaunch)
-> (Ptr ActionLaunch -> IO ActionLaunch) -> IO ActionLaunch
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr ActionLaunch -> ActionLaunch)
-> Ptr ActionLaunch -> IO ActionLaunch
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr ActionLaunch -> ActionLaunch
ActionLaunch
instance tag ~ 'AttrSet => Constructible ActionLaunch tag where
new :: (ManagedPtr ActionLaunch -> ActionLaunch)
-> [AttrOp ActionLaunch tag] -> m ActionLaunch
new _ attrs :: [AttrOp ActionLaunch tag]
attrs = do
ActionLaunch
o <- m ActionLaunch
forall (m :: * -> *). MonadIO m => m ActionLaunch
newZeroActionLaunch
ActionLaunch -> [AttrOp ActionLaunch 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set ActionLaunch
o [AttrOp ActionLaunch tag]
[AttrOp ActionLaunch 'AttrSet]
attrs
ActionLaunch -> m ActionLaunch
forall (m :: * -> *) a. Monad m => a -> m a
return ActionLaunch
o
noActionLaunch :: Maybe ActionLaunch
noActionLaunch :: Maybe ActionLaunch
noActionLaunch = Maybe ActionLaunch
forall a. Maybe a
Nothing
getActionLaunchType :: MonadIO m => ActionLaunch -> m Poppler.Enums.ActionType
getActionLaunchType :: ActionLaunch -> m ActionType
getActionLaunchType s :: ActionLaunch
s = IO ActionType -> m ActionType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ActionType -> m ActionType) -> IO ActionType -> m ActionType
forall a b. (a -> b) -> a -> b
$ ActionLaunch
-> (Ptr ActionLaunch -> IO ActionType) -> IO ActionType
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ActionLaunch
s ((Ptr ActionLaunch -> IO ActionType) -> IO ActionType)
-> (Ptr ActionLaunch -> IO ActionType) -> IO ActionType
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr ActionLaunch
ptr -> do
CUInt
val <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr ActionLaunch
ptr Ptr ActionLaunch -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO CUInt
let val' :: ActionType
val' = (Int -> ActionType
forall a. Enum a => Int -> a
toEnum (Int -> ActionType) -> (CUInt -> Int) -> CUInt -> ActionType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
val
ActionType -> IO ActionType
forall (m :: * -> *) a. Monad m => a -> m a
return ActionType
val'
setActionLaunchType :: MonadIO m => ActionLaunch -> Poppler.Enums.ActionType -> m ()
setActionLaunchType :: ActionLaunch -> ActionType -> m ()
setActionLaunchType s :: ActionLaunch
s val :: ActionType
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ ActionLaunch -> (Ptr ActionLaunch -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ActionLaunch
s ((Ptr ActionLaunch -> IO ()) -> IO ())
-> (Ptr ActionLaunch -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr ActionLaunch
ptr -> do
let val' :: CUInt
val' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (ActionType -> Int) -> ActionType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ActionType -> Int
forall a. Enum a => a -> Int
fromEnum) ActionType
val
Ptr CUInt -> CUInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ActionLaunch
ptr Ptr ActionLaunch -> Int -> Ptr CUInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (CUInt
val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data ActionLaunchTypeFieldInfo
instance AttrInfo ActionLaunchTypeFieldInfo where
type AttrBaseTypeConstraint ActionLaunchTypeFieldInfo = (~) ActionLaunch
type AttrAllowedOps ActionLaunchTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint ActionLaunchTypeFieldInfo = (~) Poppler.Enums.ActionType
type AttrTransferTypeConstraint ActionLaunchTypeFieldInfo = (~)Poppler.Enums.ActionType
type AttrTransferType ActionLaunchTypeFieldInfo = Poppler.Enums.ActionType
type AttrGetType ActionLaunchTypeFieldInfo = Poppler.Enums.ActionType
type AttrLabel ActionLaunchTypeFieldInfo = "type"
type AttrOrigin ActionLaunchTypeFieldInfo = ActionLaunch
attrGet = getActionLaunchType
attrSet = setActionLaunchType
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
actionLaunch_type :: AttrLabelProxy "type"
actionLaunch_type = AttrLabelProxy
#endif
getActionLaunchTitle :: MonadIO m => ActionLaunch -> m (Maybe T.Text)
getActionLaunchTitle :: ActionLaunch -> m (Maybe Text)
getActionLaunchTitle s :: ActionLaunch
s = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ ActionLaunch
-> (Ptr ActionLaunch -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ActionLaunch
s ((Ptr ActionLaunch -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr ActionLaunch -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr ActionLaunch
ptr -> do
CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr ActionLaunch
ptr Ptr ActionLaunch -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) :: IO CString
Maybe Text
result <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \val' :: CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
val'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setActionLaunchTitle :: MonadIO m => ActionLaunch -> CString -> m ()
setActionLaunchTitle :: ActionLaunch -> CString -> m ()
setActionLaunchTitle s :: ActionLaunch
s val :: CString
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ ActionLaunch -> (Ptr ActionLaunch -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ActionLaunch
s ((Ptr ActionLaunch -> IO ()) -> IO ())
-> (Ptr ActionLaunch -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr ActionLaunch
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ActionLaunch
ptr Ptr ActionLaunch -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) (CString
val :: CString)
clearActionLaunchTitle :: MonadIO m => ActionLaunch -> m ()
clearActionLaunchTitle :: ActionLaunch -> m ()
clearActionLaunchTitle s :: ActionLaunch
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ ActionLaunch -> (Ptr ActionLaunch -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ActionLaunch
s ((Ptr ActionLaunch -> IO ()) -> IO ())
-> (Ptr ActionLaunch -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr ActionLaunch
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ActionLaunch
ptr Ptr ActionLaunch -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) (CString
forall a. Ptr a
FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data ActionLaunchTitleFieldInfo
instance AttrInfo ActionLaunchTitleFieldInfo where
type AttrBaseTypeConstraint ActionLaunchTitleFieldInfo = (~) ActionLaunch
type AttrAllowedOps ActionLaunchTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ActionLaunchTitleFieldInfo = (~) CString
type AttrTransferTypeConstraint ActionLaunchTitleFieldInfo = (~)CString
type AttrTransferType ActionLaunchTitleFieldInfo = CString
type AttrGetType ActionLaunchTitleFieldInfo = Maybe T.Text
type AttrLabel ActionLaunchTitleFieldInfo = "title"
type AttrOrigin ActionLaunchTitleFieldInfo = ActionLaunch
attrGet = getActionLaunchTitle
attrSet = setActionLaunchTitle
attrConstruct = undefined
attrClear = clearActionLaunchTitle
attrTransfer _ v = do
return v
actionLaunch_title :: AttrLabelProxy "title"
actionLaunch_title = AttrLabelProxy
#endif
getActionLaunchFileName :: MonadIO m => ActionLaunch -> m (Maybe T.Text)
getActionLaunchFileName :: ActionLaunch -> m (Maybe Text)
getActionLaunchFileName s :: ActionLaunch
s = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ ActionLaunch
-> (Ptr ActionLaunch -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ActionLaunch
s ((Ptr ActionLaunch -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr ActionLaunch -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr ActionLaunch
ptr -> do
CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr ActionLaunch
ptr Ptr ActionLaunch -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) :: IO CString
Maybe Text
result <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \val' :: CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
val'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setActionLaunchFileName :: MonadIO m => ActionLaunch -> CString -> m ()
setActionLaunchFileName :: ActionLaunch -> CString -> m ()
setActionLaunchFileName s :: ActionLaunch
s val :: CString
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ ActionLaunch -> (Ptr ActionLaunch -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ActionLaunch
s ((Ptr ActionLaunch -> IO ()) -> IO ())
-> (Ptr ActionLaunch -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr ActionLaunch
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ActionLaunch
ptr Ptr ActionLaunch -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) (CString
val :: CString)
clearActionLaunchFileName :: MonadIO m => ActionLaunch -> m ()
clearActionLaunchFileName :: ActionLaunch -> m ()
clearActionLaunchFileName s :: ActionLaunch
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ ActionLaunch -> (Ptr ActionLaunch -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ActionLaunch
s ((Ptr ActionLaunch -> IO ()) -> IO ())
-> (Ptr ActionLaunch -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr ActionLaunch
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ActionLaunch
ptr Ptr ActionLaunch -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) (CString
forall a. Ptr a
FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data ActionLaunchFileNameFieldInfo
instance AttrInfo ActionLaunchFileNameFieldInfo where
type AttrBaseTypeConstraint ActionLaunchFileNameFieldInfo = (~) ActionLaunch
type AttrAllowedOps ActionLaunchFileNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ActionLaunchFileNameFieldInfo = (~) CString
type AttrTransferTypeConstraint ActionLaunchFileNameFieldInfo = (~)CString
type AttrTransferType ActionLaunchFileNameFieldInfo = CString
type AttrGetType ActionLaunchFileNameFieldInfo = Maybe T.Text
type AttrLabel ActionLaunchFileNameFieldInfo = "file_name"
type AttrOrigin ActionLaunchFileNameFieldInfo = ActionLaunch
attrGet = getActionLaunchFileName
attrSet = setActionLaunchFileName
attrConstruct = undefined
attrClear = clearActionLaunchFileName
attrTransfer _ v = do
return v
actionLaunch_fileName :: AttrLabelProxy "fileName"
actionLaunch_fileName = AttrLabelProxy
#endif
getActionLaunchParams :: MonadIO m => ActionLaunch -> m (Maybe T.Text)
getActionLaunchParams :: ActionLaunch -> m (Maybe Text)
getActionLaunchParams s :: ActionLaunch
s = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ ActionLaunch
-> (Ptr ActionLaunch -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ActionLaunch
s ((Ptr ActionLaunch -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr ActionLaunch -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr ActionLaunch
ptr -> do
CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr ActionLaunch
ptr Ptr ActionLaunch -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 24) :: IO CString
Maybe Text
result <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \val' :: CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
val'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setActionLaunchParams :: MonadIO m => ActionLaunch -> CString -> m ()
setActionLaunchParams :: ActionLaunch -> CString -> m ()
setActionLaunchParams s :: ActionLaunch
s val :: CString
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ ActionLaunch -> (Ptr ActionLaunch -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ActionLaunch
s ((Ptr ActionLaunch -> IO ()) -> IO ())
-> (Ptr ActionLaunch -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr ActionLaunch
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ActionLaunch
ptr Ptr ActionLaunch -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 24) (CString
val :: CString)
clearActionLaunchParams :: MonadIO m => ActionLaunch -> m ()
clearActionLaunchParams :: ActionLaunch -> m ()
clearActionLaunchParams s :: ActionLaunch
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ ActionLaunch -> (Ptr ActionLaunch -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ActionLaunch
s ((Ptr ActionLaunch -> IO ()) -> IO ())
-> (Ptr ActionLaunch -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr ActionLaunch
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ActionLaunch
ptr Ptr ActionLaunch -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 24) (CString
forall a. Ptr a
FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data ActionLaunchParamsFieldInfo
instance AttrInfo ActionLaunchParamsFieldInfo where
type AttrBaseTypeConstraint ActionLaunchParamsFieldInfo = (~) ActionLaunch
type AttrAllowedOps ActionLaunchParamsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ActionLaunchParamsFieldInfo = (~) CString
type AttrTransferTypeConstraint ActionLaunchParamsFieldInfo = (~)CString
type AttrTransferType ActionLaunchParamsFieldInfo = CString
type AttrGetType ActionLaunchParamsFieldInfo = Maybe T.Text
type AttrLabel ActionLaunchParamsFieldInfo = "params"
type AttrOrigin ActionLaunchParamsFieldInfo = ActionLaunch
attrGet = getActionLaunchParams
attrSet = setActionLaunchParams
attrConstruct = undefined
attrClear = clearActionLaunchParams
attrTransfer _ v = do
return v
actionLaunch_params :: AttrLabelProxy "params"
actionLaunch_params = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ActionLaunch
type instance O.AttributeList ActionLaunch = ActionLaunchAttributeList
type ActionLaunchAttributeList = ('[ '("type", ActionLaunchTypeFieldInfo), '("title", ActionLaunchTitleFieldInfo), '("fileName", ActionLaunchFileNameFieldInfo), '("params", ActionLaunchParamsFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveActionLaunchMethod (t :: Symbol) (o :: *) :: * where
ResolveActionLaunchMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveActionLaunchMethod t ActionLaunch, O.MethodInfo info ActionLaunch p) => OL.IsLabel t (ActionLaunch -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif