{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Objects.ApplicationCommandLine
(
ApplicationCommandLine(..) ,
IsApplicationCommandLine ,
toApplicationCommandLine ,
#if defined(ENABLE_OVERLOADING)
ResolveApplicationCommandLineMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLineCreateFileForArgMethodInfo,
#endif
applicationCommandLineCreateFileForArg ,
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLineGetArgumentsMethodInfo,
#endif
applicationCommandLineGetArguments ,
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLineGetCwdMethodInfo ,
#endif
applicationCommandLineGetCwd ,
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLineGetEnvironMethodInfo,
#endif
applicationCommandLineGetEnviron ,
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLineGetExitStatusMethodInfo,
#endif
applicationCommandLineGetExitStatus ,
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLineGetIsRemoteMethodInfo,
#endif
applicationCommandLineGetIsRemote ,
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLineGetOptionsDictMethodInfo,
#endif
applicationCommandLineGetOptionsDict ,
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLineGetPlatformDataMethodInfo,
#endif
applicationCommandLineGetPlatformData ,
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLineGetStdinMethodInfo,
#endif
applicationCommandLineGetStdin ,
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLineGetenvMethodInfo ,
#endif
applicationCommandLineGetenv ,
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLineSetExitStatusMethodInfo,
#endif
applicationCommandLineSetExitStatus ,
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLineArgumentsPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
applicationCommandLineArguments ,
#endif
constructApplicationCommandLineArguments,
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLineIsRemotePropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
applicationCommandLineIsRemote ,
#endif
getApplicationCommandLineIsRemote ,
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLineOptionsPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
applicationCommandLineOptions ,
#endif
constructApplicationCommandLineOptions ,
#if defined(ENABLE_OVERLOADING)
ApplicationCommandLinePlatformDataPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
applicationCommandLinePlatformData ,
#endif
constructApplicationCommandLinePlatformData,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GLib.Structs.VariantDict as GLib.VariantDict
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gio.Interfaces.File as Gio.File
import {-# SOURCE #-} qualified GI.Gio.Objects.InputStream as Gio.InputStream
newtype ApplicationCommandLine = ApplicationCommandLine (SP.ManagedPtr ApplicationCommandLine)
deriving (ApplicationCommandLine -> ApplicationCommandLine -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ApplicationCommandLine -> ApplicationCommandLine -> Bool
$c/= :: ApplicationCommandLine -> ApplicationCommandLine -> Bool
== :: ApplicationCommandLine -> ApplicationCommandLine -> Bool
$c== :: ApplicationCommandLine -> ApplicationCommandLine -> Bool
Eq)
instance SP.ManagedPtrNewtype ApplicationCommandLine where
toManagedPtr :: ApplicationCommandLine -> ManagedPtr ApplicationCommandLine
toManagedPtr (ApplicationCommandLine ManagedPtr ApplicationCommandLine
p) = ManagedPtr ApplicationCommandLine
p
foreign import ccall "g_application_command_line_get_type"
c_g_application_command_line_get_type :: IO B.Types.GType
instance B.Types.TypedObject ApplicationCommandLine where
glibType :: IO GType
glibType = IO GType
c_g_application_command_line_get_type
instance B.Types.GObject ApplicationCommandLine
class (SP.GObject o, O.IsDescendantOf ApplicationCommandLine o) => IsApplicationCommandLine o
instance (SP.GObject o, O.IsDescendantOf ApplicationCommandLine o) => IsApplicationCommandLine o
instance O.HasParentTypes ApplicationCommandLine
type instance O.ParentTypes ApplicationCommandLine = '[GObject.Object.Object]
toApplicationCommandLine :: (MIO.MonadIO m, IsApplicationCommandLine o) => o -> m ApplicationCommandLine
toApplicationCommandLine :: forall (m :: * -> *) o.
(MonadIO m, IsApplicationCommandLine o) =>
o -> m ApplicationCommandLine
toApplicationCommandLine = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ApplicationCommandLine -> ApplicationCommandLine
ApplicationCommandLine
instance B.GValue.IsGValue (Maybe ApplicationCommandLine) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_g_application_command_line_get_type
gvalueSet_ :: Ptr GValue -> Maybe ApplicationCommandLine -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ApplicationCommandLine
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr ApplicationCommandLine)
gvalueSet_ Ptr GValue
gv (P.Just ApplicationCommandLine
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ApplicationCommandLine
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ApplicationCommandLine)
gvalueGet_ Ptr GValue
gv = do
Ptr ApplicationCommandLine
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ApplicationCommandLine)
if Ptr ApplicationCommandLine
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ApplicationCommandLine -> ApplicationCommandLine
ApplicationCommandLine Ptr ApplicationCommandLine
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveApplicationCommandLineMethod (t :: Symbol) (o :: *) :: * where
ResolveApplicationCommandLineMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveApplicationCommandLineMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveApplicationCommandLineMethod "createFileForArg" o = ApplicationCommandLineCreateFileForArgMethodInfo
ResolveApplicationCommandLineMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveApplicationCommandLineMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveApplicationCommandLineMethod "getenv" o = ApplicationCommandLineGetenvMethodInfo
ResolveApplicationCommandLineMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveApplicationCommandLineMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveApplicationCommandLineMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveApplicationCommandLineMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveApplicationCommandLineMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveApplicationCommandLineMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveApplicationCommandLineMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveApplicationCommandLineMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveApplicationCommandLineMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveApplicationCommandLineMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveApplicationCommandLineMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveApplicationCommandLineMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveApplicationCommandLineMethod "getArguments" o = ApplicationCommandLineGetArgumentsMethodInfo
ResolveApplicationCommandLineMethod "getCwd" o = ApplicationCommandLineGetCwdMethodInfo
ResolveApplicationCommandLineMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveApplicationCommandLineMethod "getEnviron" o = ApplicationCommandLineGetEnvironMethodInfo
ResolveApplicationCommandLineMethod "getExitStatus" o = ApplicationCommandLineGetExitStatusMethodInfo
ResolveApplicationCommandLineMethod "getIsRemote" o = ApplicationCommandLineGetIsRemoteMethodInfo
ResolveApplicationCommandLineMethod "getOptionsDict" o = ApplicationCommandLineGetOptionsDictMethodInfo
ResolveApplicationCommandLineMethod "getPlatformData" o = ApplicationCommandLineGetPlatformDataMethodInfo
ResolveApplicationCommandLineMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveApplicationCommandLineMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveApplicationCommandLineMethod "getStdin" o = ApplicationCommandLineGetStdinMethodInfo
ResolveApplicationCommandLineMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveApplicationCommandLineMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveApplicationCommandLineMethod "setExitStatus" o = ApplicationCommandLineSetExitStatusMethodInfo
ResolveApplicationCommandLineMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveApplicationCommandLineMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveApplicationCommandLineMethod t ApplicationCommandLine, O.OverloadedMethod info ApplicationCommandLine p) => OL.IsLabel t (ApplicationCommandLine -> 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 ~ ResolveApplicationCommandLineMethod t ApplicationCommandLine, O.OverloadedMethod info ApplicationCommandLine p, R.HasField t ApplicationCommandLine p) => R.HasField t ApplicationCommandLine p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveApplicationCommandLineMethod t ApplicationCommandLine, O.OverloadedMethodInfo info ApplicationCommandLine) => OL.IsLabel t (O.MethodProxy info ApplicationCommandLine) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
constructApplicationCommandLineArguments :: (IsApplicationCommandLine o, MIO.MonadIO m) => GVariant -> m (GValueConstruct o)
constructApplicationCommandLineArguments :: forall o (m :: * -> *).
(IsApplicationCommandLine o, MonadIO m) =>
GVariant -> m (GValueConstruct o)
constructApplicationCommandLineArguments GVariant
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe GVariant -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyVariant String
"arguments" (forall a. a -> Maybe a
P.Just GVariant
val)
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLineArgumentsPropertyInfo
instance AttrInfo ApplicationCommandLineArgumentsPropertyInfo where
type AttrAllowedOps ApplicationCommandLineArgumentsPropertyInfo = '[ 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint ApplicationCommandLineArgumentsPropertyInfo = IsApplicationCommandLine
type AttrSetTypeConstraint ApplicationCommandLineArgumentsPropertyInfo = (~) GVariant
type AttrTransferTypeConstraint ApplicationCommandLineArgumentsPropertyInfo = (~) GVariant
type AttrTransferType ApplicationCommandLineArgumentsPropertyInfo = GVariant
type AttrGetType ApplicationCommandLineArgumentsPropertyInfo = ()
type AttrLabel ApplicationCommandLineArgumentsPropertyInfo = "arguments"
type AttrOrigin ApplicationCommandLineArgumentsPropertyInfo = ApplicationCommandLine
attrGet = undefined
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructApplicationCommandLineArguments
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.ApplicationCommandLine.arguments"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-ApplicationCommandLine.html#g:attr:arguments"
})
#endif
getApplicationCommandLineIsRemote :: (MonadIO m, IsApplicationCommandLine o) => o -> m Bool
getApplicationCommandLineIsRemote :: forall (m :: * -> *) o.
(MonadIO m, IsApplicationCommandLine o) =>
o -> m Bool
getApplicationCommandLineIsRemote o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"is-remote"
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLineIsRemotePropertyInfo
instance AttrInfo ApplicationCommandLineIsRemotePropertyInfo where
type AttrAllowedOps ApplicationCommandLineIsRemotePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ApplicationCommandLineIsRemotePropertyInfo = IsApplicationCommandLine
type AttrSetTypeConstraint ApplicationCommandLineIsRemotePropertyInfo = (~) ()
type AttrTransferTypeConstraint ApplicationCommandLineIsRemotePropertyInfo = (~) ()
type AttrTransferType ApplicationCommandLineIsRemotePropertyInfo = ()
type AttrGetType ApplicationCommandLineIsRemotePropertyInfo = Bool
type AttrLabel ApplicationCommandLineIsRemotePropertyInfo = "is-remote"
type AttrOrigin ApplicationCommandLineIsRemotePropertyInfo = ApplicationCommandLine
attrGet = getApplicationCommandLineIsRemote
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.ApplicationCommandLine.isRemote"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-ApplicationCommandLine.html#g:attr:isRemote"
})
#endif
constructApplicationCommandLineOptions :: (IsApplicationCommandLine o, MIO.MonadIO m) => GVariant -> m (GValueConstruct o)
constructApplicationCommandLineOptions :: forall o (m :: * -> *).
(IsApplicationCommandLine o, MonadIO m) =>
GVariant -> m (GValueConstruct o)
constructApplicationCommandLineOptions GVariant
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe GVariant -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyVariant String
"options" (forall a. a -> Maybe a
P.Just GVariant
val)
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLineOptionsPropertyInfo
instance AttrInfo ApplicationCommandLineOptionsPropertyInfo where
type AttrAllowedOps ApplicationCommandLineOptionsPropertyInfo = '[ 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint ApplicationCommandLineOptionsPropertyInfo = IsApplicationCommandLine
type AttrSetTypeConstraint ApplicationCommandLineOptionsPropertyInfo = (~) GVariant
type AttrTransferTypeConstraint ApplicationCommandLineOptionsPropertyInfo = (~) GVariant
type AttrTransferType ApplicationCommandLineOptionsPropertyInfo = GVariant
type AttrGetType ApplicationCommandLineOptionsPropertyInfo = ()
type AttrLabel ApplicationCommandLineOptionsPropertyInfo = "options"
type AttrOrigin ApplicationCommandLineOptionsPropertyInfo = ApplicationCommandLine
attrGet = undefined
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructApplicationCommandLineOptions
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.ApplicationCommandLine.options"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-ApplicationCommandLine.html#g:attr:options"
})
#endif
constructApplicationCommandLinePlatformData :: (IsApplicationCommandLine o, MIO.MonadIO m) => GVariant -> m (GValueConstruct o)
constructApplicationCommandLinePlatformData :: forall o (m :: * -> *).
(IsApplicationCommandLine o, MonadIO m) =>
GVariant -> m (GValueConstruct o)
constructApplicationCommandLinePlatformData GVariant
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe GVariant -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyVariant String
"platform-data" (forall a. a -> Maybe a
P.Just GVariant
val)
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLinePlatformDataPropertyInfo
instance AttrInfo ApplicationCommandLinePlatformDataPropertyInfo where
type AttrAllowedOps ApplicationCommandLinePlatformDataPropertyInfo = '[ 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint ApplicationCommandLinePlatformDataPropertyInfo = IsApplicationCommandLine
type AttrSetTypeConstraint ApplicationCommandLinePlatformDataPropertyInfo = (~) GVariant
type AttrTransferTypeConstraint ApplicationCommandLinePlatformDataPropertyInfo = (~) GVariant
type AttrTransferType ApplicationCommandLinePlatformDataPropertyInfo = GVariant
type AttrGetType ApplicationCommandLinePlatformDataPropertyInfo = ()
type AttrLabel ApplicationCommandLinePlatformDataPropertyInfo = "platform-data"
type AttrOrigin ApplicationCommandLinePlatformDataPropertyInfo = ApplicationCommandLine
attrGet = undefined
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructApplicationCommandLinePlatformData
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.ApplicationCommandLine.platformData"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-ApplicationCommandLine.html#g:attr:platformData"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ApplicationCommandLine
type instance O.AttributeList ApplicationCommandLine = ApplicationCommandLineAttributeList
type ApplicationCommandLineAttributeList = ('[ '("arguments", ApplicationCommandLineArgumentsPropertyInfo), '("isRemote", ApplicationCommandLineIsRemotePropertyInfo), '("options", ApplicationCommandLineOptionsPropertyInfo), '("platformData", ApplicationCommandLinePlatformDataPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
applicationCommandLineArguments :: AttrLabelProxy "arguments"
applicationCommandLineArguments = AttrLabelProxy
applicationCommandLineIsRemote :: AttrLabelProxy "isRemote"
applicationCommandLineIsRemote = AttrLabelProxy
applicationCommandLineOptions :: AttrLabelProxy "options"
applicationCommandLineOptions = AttrLabelProxy
applicationCommandLinePlatformData :: AttrLabelProxy "platformData"
applicationCommandLinePlatformData = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ApplicationCommandLine = ApplicationCommandLineSignalList
type ApplicationCommandLineSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "g_application_command_line_create_file_for_arg" g_application_command_line_create_file_for_arg ::
Ptr ApplicationCommandLine ->
CString ->
IO (Ptr Gio.File.File)
applicationCommandLineCreateFileForArg ::
(B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a
-> [Char]
-> m Gio.File.File
applicationCommandLineCreateFileForArg :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a -> String -> m File
applicationCommandLineCreateFileForArg a
cmdline String
arg = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cmdline
CString
arg' <- String -> IO CString
stringToCString String
arg
Ptr File
result <- Ptr ApplicationCommandLine -> CString -> IO (Ptr File)
g_application_command_line_create_file_for_arg Ptr ApplicationCommandLine
cmdline' CString
arg'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"applicationCommandLineCreateFileForArg" Ptr File
result
File
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr File -> File
Gio.File.File) Ptr File
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
forall a. Ptr a -> IO ()
freeMem CString
arg'
forall (m :: * -> *) a. Monad m => a -> m a
return File
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLineCreateFileForArgMethodInfo
instance (signature ~ ([Char] -> m Gio.File.File), MonadIO m, IsApplicationCommandLine a) => O.OverloadedMethod ApplicationCommandLineCreateFileForArgMethodInfo a signature where
overloadedMethod = applicationCommandLineCreateFileForArg
instance O.OverloadedMethodInfo ApplicationCommandLineCreateFileForArgMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineCreateFileForArg",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-ApplicationCommandLine.html#v:applicationCommandLineCreateFileForArg"
})
#endif
foreign import ccall "g_application_command_line_get_arguments" g_application_command_line_get_arguments ::
Ptr ApplicationCommandLine ->
Ptr Int32 ->
IO (Ptr CString)
applicationCommandLineGetArguments ::
(B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a
-> m [[Char]]
applicationCommandLineGetArguments :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a -> m [String]
applicationCommandLineGetArguments a
cmdline = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cmdline
Ptr Int32
argc <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr CString
result <- Ptr ApplicationCommandLine -> Ptr Int32 -> IO (Ptr CString)
g_application_command_line_get_arguments Ptr ApplicationCommandLine
cmdline' Ptr Int32
argc
Int32
argc' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
argc
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"applicationCommandLineGetArguments" Ptr CString
result
[String]
result' <- (forall a.
(HasCallStack, Integral a) =>
a -> Ptr CString -> IO [String]
unpackFileNameArrayWithLength Int32
argc') Ptr CString
result
(forall a b c.
(Storable a, Integral b) =>
b -> (a -> IO c) -> Ptr a -> IO ()
mapCArrayWithLength Int32
argc') forall a. Ptr a -> IO ()
freeMem Ptr CString
result
forall a. Ptr a -> IO ()
freeMem Ptr CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
forall a. Ptr a -> IO ()
freeMem Ptr Int32
argc
forall (m :: * -> *) a. Monad m => a -> m a
return [String]
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLineGetArgumentsMethodInfo
instance (signature ~ (m [[Char]]), MonadIO m, IsApplicationCommandLine a) => O.OverloadedMethod ApplicationCommandLineGetArgumentsMethodInfo a signature where
overloadedMethod = applicationCommandLineGetArguments
instance O.OverloadedMethodInfo ApplicationCommandLineGetArgumentsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetArguments",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-ApplicationCommandLine.html#v:applicationCommandLineGetArguments"
})
#endif
foreign import ccall "g_application_command_line_get_cwd" g_application_command_line_get_cwd ::
Ptr ApplicationCommandLine ->
IO CString
applicationCommandLineGetCwd ::
(B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a
-> m (Maybe [Char])
applicationCommandLineGetCwd :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a -> m (Maybe String)
applicationCommandLineGetCwd a
cmdline = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cmdline
CString
result <- Ptr ApplicationCommandLine -> IO CString
g_application_command_line_get_cwd Ptr ApplicationCommandLine
cmdline'
Maybe String
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
String
result'' <- HasCallStack => CString -> IO String
cstringToString CString
result'
forall (m :: * -> *) a. Monad m => a -> m a
return String
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe String
maybeResult
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLineGetCwdMethodInfo
instance (signature ~ (m (Maybe [Char])), MonadIO m, IsApplicationCommandLine a) => O.OverloadedMethod ApplicationCommandLineGetCwdMethodInfo a signature where
overloadedMethod = applicationCommandLineGetCwd
instance O.OverloadedMethodInfo ApplicationCommandLineGetCwdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetCwd",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-ApplicationCommandLine.html#v:applicationCommandLineGetCwd"
})
#endif
foreign import ccall "g_application_command_line_get_environ" g_application_command_line_get_environ ::
Ptr ApplicationCommandLine ->
IO (Ptr CString)
applicationCommandLineGetEnviron ::
(B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a
-> m [[Char]]
applicationCommandLineGetEnviron :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a -> m [String]
applicationCommandLineGetEnviron a
cmdline = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cmdline
Ptr CString
result <- Ptr ApplicationCommandLine -> IO (Ptr CString)
g_application_command_line_get_environ Ptr ApplicationCommandLine
cmdline'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"applicationCommandLineGetEnviron" Ptr CString
result
[String]
result' <- HasCallStack => Ptr CString -> IO [String]
unpackZeroTerminatedFileNameArray Ptr CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
forall (m :: * -> *) a. Monad m => a -> m a
return [String]
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLineGetEnvironMethodInfo
instance (signature ~ (m [[Char]]), MonadIO m, IsApplicationCommandLine a) => O.OverloadedMethod ApplicationCommandLineGetEnvironMethodInfo a signature where
overloadedMethod = applicationCommandLineGetEnviron
instance O.OverloadedMethodInfo ApplicationCommandLineGetEnvironMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetEnviron",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-ApplicationCommandLine.html#v:applicationCommandLineGetEnviron"
})
#endif
foreign import ccall "g_application_command_line_get_exit_status" g_application_command_line_get_exit_status ::
Ptr ApplicationCommandLine ->
IO Int32
applicationCommandLineGetExitStatus ::
(B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a
-> m Int32
applicationCommandLineGetExitStatus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a -> m Int32
applicationCommandLineGetExitStatus a
cmdline = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cmdline
Int32
result <- Ptr ApplicationCommandLine -> IO Int32
g_application_command_line_get_exit_status Ptr ApplicationCommandLine
cmdline'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLineGetExitStatusMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsApplicationCommandLine a) => O.OverloadedMethod ApplicationCommandLineGetExitStatusMethodInfo a signature where
overloadedMethod = applicationCommandLineGetExitStatus
instance O.OverloadedMethodInfo ApplicationCommandLineGetExitStatusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetExitStatus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-ApplicationCommandLine.html#v:applicationCommandLineGetExitStatus"
})
#endif
foreign import ccall "g_application_command_line_get_is_remote" g_application_command_line_get_is_remote ::
Ptr ApplicationCommandLine ->
IO CInt
applicationCommandLineGetIsRemote ::
(B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a
-> m Bool
applicationCommandLineGetIsRemote :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a -> m Bool
applicationCommandLineGetIsRemote a
cmdline = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cmdline
CInt
result <- Ptr ApplicationCommandLine -> IO CInt
g_application_command_line_get_is_remote Ptr ApplicationCommandLine
cmdline'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLineGetIsRemoteMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsApplicationCommandLine a) => O.OverloadedMethod ApplicationCommandLineGetIsRemoteMethodInfo a signature where
overloadedMethod = applicationCommandLineGetIsRemote
instance O.OverloadedMethodInfo ApplicationCommandLineGetIsRemoteMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetIsRemote",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-ApplicationCommandLine.html#v:applicationCommandLineGetIsRemote"
})
#endif
foreign import ccall "g_application_command_line_get_options_dict" g_application_command_line_get_options_dict ::
Ptr ApplicationCommandLine ->
IO (Ptr GLib.VariantDict.VariantDict)
applicationCommandLineGetOptionsDict ::
(B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a
-> m GLib.VariantDict.VariantDict
applicationCommandLineGetOptionsDict :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a -> m VariantDict
applicationCommandLineGetOptionsDict a
cmdline = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cmdline
Ptr VariantDict
result <- Ptr ApplicationCommandLine -> IO (Ptr VariantDict)
g_application_command_line_get_options_dict Ptr ApplicationCommandLine
cmdline'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"applicationCommandLineGetOptionsDict" Ptr VariantDict
result
VariantDict
result' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr VariantDict -> VariantDict
GLib.VariantDict.VariantDict) Ptr VariantDict
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
forall (m :: * -> *) a. Monad m => a -> m a
return VariantDict
result'
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLineGetOptionsDictMethodInfo
instance (signature ~ (m GLib.VariantDict.VariantDict), MonadIO m, IsApplicationCommandLine a) => O.OverloadedMethod ApplicationCommandLineGetOptionsDictMethodInfo a signature where
overloadedMethod = applicationCommandLineGetOptionsDict
instance O.OverloadedMethodInfo ApplicationCommandLineGetOptionsDictMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetOptionsDict",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-ApplicationCommandLine.html#v:applicationCommandLineGetOptionsDict"
})
#endif
foreign import ccall "g_application_command_line_get_platform_data" g_application_command_line_get_platform_data ::
Ptr ApplicationCommandLine ->
IO (Ptr GVariant)
applicationCommandLineGetPlatformData ::
(B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a
-> m (Maybe GVariant)
applicationCommandLineGetPlatformData :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a -> m (Maybe GVariant)
applicationCommandLineGetPlatformData a
cmdline = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cmdline
Ptr GVariant
result <- Ptr ApplicationCommandLine -> IO (Ptr GVariant)
g_application_command_line_get_platform_data Ptr ApplicationCommandLine
cmdline'
Maybe GVariant
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr GVariant
result forall a b. (a -> b) -> a -> b
$ \Ptr GVariant
result' -> do
GVariant
result'' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result'
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GVariant
maybeResult
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLineGetPlatformDataMethodInfo
instance (signature ~ (m (Maybe GVariant)), MonadIO m, IsApplicationCommandLine a) => O.OverloadedMethod ApplicationCommandLineGetPlatformDataMethodInfo a signature where
overloadedMethod = applicationCommandLineGetPlatformData
instance O.OverloadedMethodInfo ApplicationCommandLineGetPlatformDataMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetPlatformData",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-ApplicationCommandLine.html#v:applicationCommandLineGetPlatformData"
})
#endif
foreign import ccall "g_application_command_line_get_stdin" g_application_command_line_get_stdin ::
Ptr ApplicationCommandLine ->
IO (Ptr Gio.InputStream.InputStream)
applicationCommandLineGetStdin ::
(B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a
-> m (Maybe Gio.InputStream.InputStream)
applicationCommandLineGetStdin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a -> m (Maybe InputStream)
applicationCommandLineGetStdin a
cmdline = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cmdline
Ptr InputStream
result <- Ptr ApplicationCommandLine -> IO (Ptr InputStream)
g_application_command_line_get_stdin Ptr ApplicationCommandLine
cmdline'
Maybe InputStream
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr InputStream
result forall a b. (a -> b) -> a -> b
$ \Ptr InputStream
result' -> do
InputStream
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr InputStream -> InputStream
Gio.InputStream.InputStream) Ptr InputStream
result'
forall (m :: * -> *) a. Monad m => a -> m a
return InputStream
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe InputStream
maybeResult
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLineGetStdinMethodInfo
instance (signature ~ (m (Maybe Gio.InputStream.InputStream)), MonadIO m, IsApplicationCommandLine a) => O.OverloadedMethod ApplicationCommandLineGetStdinMethodInfo a signature where
overloadedMethod = applicationCommandLineGetStdin
instance O.OverloadedMethodInfo ApplicationCommandLineGetStdinMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetStdin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-ApplicationCommandLine.html#v:applicationCommandLineGetStdin"
})
#endif
foreign import ccall "g_application_command_line_getenv" g_application_command_line_getenv ::
Ptr ApplicationCommandLine ->
CString ->
IO CString
applicationCommandLineGetenv ::
(B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a
-> [Char]
-> m (Maybe T.Text)
applicationCommandLineGetenv :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a -> String -> m (Maybe Text)
applicationCommandLineGetenv a
cmdline String
name = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cmdline
CString
name' <- String -> IO CString
stringToCString String
name
CString
result <- Ptr ApplicationCommandLine -> CString -> IO CString
g_application_command_line_getenv Ptr ApplicationCommandLine
cmdline' CString
name'
Maybe Text
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
cstringToText CString
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
forall a. Ptr a -> IO ()
freeMem CString
name'
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLineGetenvMethodInfo
instance (signature ~ ([Char] -> m (Maybe T.Text)), MonadIO m, IsApplicationCommandLine a) => O.OverloadedMethod ApplicationCommandLineGetenvMethodInfo a signature where
overloadedMethod = applicationCommandLineGetenv
instance O.OverloadedMethodInfo ApplicationCommandLineGetenvMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineGetenv",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-ApplicationCommandLine.html#v:applicationCommandLineGetenv"
})
#endif
foreign import ccall "g_application_command_line_set_exit_status" g_application_command_line_set_exit_status ::
Ptr ApplicationCommandLine ->
Int32 ->
IO ()
applicationCommandLineSetExitStatus ::
(B.CallStack.HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a
-> Int32
-> m ()
applicationCommandLineSetExitStatus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsApplicationCommandLine a) =>
a -> Int32 -> m ()
applicationCommandLineSetExitStatus a
cmdline Int32
exitStatus = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cmdline
Ptr ApplicationCommandLine -> Int32 -> IO ()
g_application_command_line_set_exit_status Ptr ApplicationCommandLine
cmdline' Int32
exitStatus
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ApplicationCommandLineSetExitStatusMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsApplicationCommandLine a) => O.OverloadedMethod ApplicationCommandLineSetExitStatusMethodInfo a signature where
overloadedMethod = applicationCommandLineSetExitStatus
instance O.OverloadedMethodInfo ApplicationCommandLineSetExitStatusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Objects.ApplicationCommandLine.applicationCommandLineSetExitStatus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.30/docs/GI-Gio-Objects-ApplicationCommandLine.html#v:applicationCommandLineSetExitStatus"
})
#endif