#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Gio.Objects.ApplicationCommandLine
(
ApplicationCommandLine(..) ,
IsApplicationCommandLine ,
toApplicationCommandLine ,
noApplicationCommandLine ,
#if ENABLE_OVERLOADING
ApplicationCommandLineCreateFileForArgMethodInfo,
#endif
applicationCommandLineCreateFileForArg ,
#if ENABLE_OVERLOADING
ApplicationCommandLineGetArgumentsMethodInfo,
#endif
applicationCommandLineGetArguments ,
#if ENABLE_OVERLOADING
ApplicationCommandLineGetCwdMethodInfo ,
#endif
applicationCommandLineGetCwd ,
#if ENABLE_OVERLOADING
ApplicationCommandLineGetEnvironMethodInfo,
#endif
applicationCommandLineGetEnviron ,
#if ENABLE_OVERLOADING
ApplicationCommandLineGetExitStatusMethodInfo,
#endif
applicationCommandLineGetExitStatus ,
#if ENABLE_OVERLOADING
ApplicationCommandLineGetIsRemoteMethodInfo,
#endif
applicationCommandLineGetIsRemote ,
#if ENABLE_OVERLOADING
ApplicationCommandLineGetOptionsDictMethodInfo,
#endif
applicationCommandLineGetOptionsDict ,
#if ENABLE_OVERLOADING
ApplicationCommandLineGetPlatformDataMethodInfo,
#endif
applicationCommandLineGetPlatformData ,
#if ENABLE_OVERLOADING
ApplicationCommandLineGetStdinMethodInfo,
#endif
applicationCommandLineGetStdin ,
#if ENABLE_OVERLOADING
ApplicationCommandLineGetenvMethodInfo ,
#endif
applicationCommandLineGetenv ,
#if ENABLE_OVERLOADING
ApplicationCommandLineSetExitStatusMethodInfo,
#endif
applicationCommandLineSetExitStatus ,
#if ENABLE_OVERLOADING
ApplicationCommandLineArgumentsPropertyInfo,
#endif
#if ENABLE_OVERLOADING
applicationCommandLineArguments ,
#endif
constructApplicationCommandLineArguments,
#if ENABLE_OVERLOADING
ApplicationCommandLineIsRemotePropertyInfo,
#endif
#if ENABLE_OVERLOADING
applicationCommandLineIsRemote ,
#endif
getApplicationCommandLineIsRemote ,
#if ENABLE_OVERLOADING
ApplicationCommandLineOptionsPropertyInfo,
#endif
#if ENABLE_OVERLOADING
applicationCommandLineOptions ,
#endif
constructApplicationCommandLineOptions ,
#if ENABLE_OVERLOADING
ApplicationCommandLinePlatformDataPropertyInfo,
#endif
#if 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.ManagedPtr as B.ManagedPtr
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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
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 (ManagedPtr ApplicationCommandLine)
foreign import ccall "g_application_command_line_get_type"
c_g_application_command_line_get_type :: IO GType
instance GObject ApplicationCommandLine where
gobjectType :: ApplicationCommandLine -> IO GType
gobjectType _ = IO GType
c_g_application_command_line_get_type
class GObject o => IsApplicationCommandLine o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError ApplicationCommandLine a) =>
IsApplicationCommandLine a
#endif
instance IsApplicationCommandLine ApplicationCommandLine
instance GObject.Object.IsObject ApplicationCommandLine
toApplicationCommandLine :: (MonadIO m, IsApplicationCommandLine o) => o -> m ApplicationCommandLine
toApplicationCommandLine :: o -> m ApplicationCommandLine
toApplicationCommandLine = IO ApplicationCommandLine -> m ApplicationCommandLine
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ApplicationCommandLine -> m ApplicationCommandLine)
-> (o -> IO ApplicationCommandLine)
-> o
-> m ApplicationCommandLine
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ApplicationCommandLine -> ApplicationCommandLine)
-> o -> IO ApplicationCommandLine
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr ApplicationCommandLine -> ApplicationCommandLine
ApplicationCommandLine
noApplicationCommandLine :: Maybe ApplicationCommandLine
noApplicationCommandLine :: Maybe ApplicationCommandLine
noApplicationCommandLine = Maybe ApplicationCommandLine
forall a. Maybe a
Nothing
#if 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 "setExitStatus" o = ApplicationCommandLineSetExitStatusMethodInfo
ResolveApplicationCommandLineMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveApplicationCommandLineMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveApplicationCommandLineMethod t ApplicationCommandLine, O.MethodInfo info ApplicationCommandLine p) => O.IsLabelProxy t (ApplicationCommandLine -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveApplicationCommandLineMethod t ApplicationCommandLine, O.MethodInfo info ApplicationCommandLine p) => O.IsLabel t (ApplicationCommandLine -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
constructApplicationCommandLineArguments :: (IsApplicationCommandLine o) => GVariant -> IO (GValueConstruct o)
constructApplicationCommandLineArguments :: GVariant -> IO (GValueConstruct o)
constructApplicationCommandLineArguments val :: GVariant
val = String -> Maybe GVariant -> IO (GValueConstruct o)
forall o. String -> Maybe GVariant -> IO (GValueConstruct o)
constructObjectPropertyVariant "arguments" (GVariant -> Maybe GVariant
forall a. a -> Maybe a
Just GVariant
val)
#if ENABLE_OVERLOADING
data ApplicationCommandLineArgumentsPropertyInfo
instance AttrInfo ApplicationCommandLineArgumentsPropertyInfo where
type AttrAllowedOps ApplicationCommandLineArgumentsPropertyInfo = '[ 'AttrConstruct, 'AttrClear]
type AttrSetTypeConstraint ApplicationCommandLineArgumentsPropertyInfo = (~) GVariant
type AttrBaseTypeConstraint ApplicationCommandLineArgumentsPropertyInfo = IsApplicationCommandLine
type AttrGetType ApplicationCommandLineArgumentsPropertyInfo = ()
type AttrLabel ApplicationCommandLineArgumentsPropertyInfo = "arguments"
type AttrOrigin ApplicationCommandLineArgumentsPropertyInfo = ApplicationCommandLine
attrGet _ = undefined
attrSet _ = undefined
attrConstruct _ = constructApplicationCommandLineArguments
attrClear _ = undefined
#endif
getApplicationCommandLineIsRemote :: (MonadIO m, IsApplicationCommandLine o) => o -> m Bool
getApplicationCommandLineIsRemote :: o -> m Bool
getApplicationCommandLineIsRemote obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
getObjectPropertyBool o
obj "is-remote"
#if ENABLE_OVERLOADING
data ApplicationCommandLineIsRemotePropertyInfo
instance AttrInfo ApplicationCommandLineIsRemotePropertyInfo where
type AttrAllowedOps ApplicationCommandLineIsRemotePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint ApplicationCommandLineIsRemotePropertyInfo = (~) ()
type AttrBaseTypeConstraint ApplicationCommandLineIsRemotePropertyInfo = IsApplicationCommandLine
type AttrGetType ApplicationCommandLineIsRemotePropertyInfo = Bool
type AttrLabel ApplicationCommandLineIsRemotePropertyInfo = "is-remote"
type AttrOrigin ApplicationCommandLineIsRemotePropertyInfo = ApplicationCommandLine
attrGet _ = getApplicationCommandLineIsRemote
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
constructApplicationCommandLineOptions :: (IsApplicationCommandLine o) => GVariant -> IO (GValueConstruct o)
constructApplicationCommandLineOptions :: GVariant -> IO (GValueConstruct o)
constructApplicationCommandLineOptions val :: GVariant
val = String -> Maybe GVariant -> IO (GValueConstruct o)
forall o. String -> Maybe GVariant -> IO (GValueConstruct o)
constructObjectPropertyVariant "options" (GVariant -> Maybe GVariant
forall a. a -> Maybe a
Just GVariant
val)
#if ENABLE_OVERLOADING
data ApplicationCommandLineOptionsPropertyInfo
instance AttrInfo ApplicationCommandLineOptionsPropertyInfo where
type AttrAllowedOps ApplicationCommandLineOptionsPropertyInfo = '[ 'AttrConstruct, 'AttrClear]
type AttrSetTypeConstraint ApplicationCommandLineOptionsPropertyInfo = (~) GVariant
type AttrBaseTypeConstraint ApplicationCommandLineOptionsPropertyInfo = IsApplicationCommandLine
type AttrGetType ApplicationCommandLineOptionsPropertyInfo = ()
type AttrLabel ApplicationCommandLineOptionsPropertyInfo = "options"
type AttrOrigin ApplicationCommandLineOptionsPropertyInfo = ApplicationCommandLine
attrGet _ = undefined
attrSet _ = undefined
attrConstruct _ = constructApplicationCommandLineOptions
attrClear _ = undefined
#endif
constructApplicationCommandLinePlatformData :: (IsApplicationCommandLine o) => GVariant -> IO (GValueConstruct o)
constructApplicationCommandLinePlatformData :: GVariant -> IO (GValueConstruct o)
constructApplicationCommandLinePlatformData val :: GVariant
val = String -> Maybe GVariant -> IO (GValueConstruct o)
forall o. String -> Maybe GVariant -> IO (GValueConstruct o)
constructObjectPropertyVariant "platform-data" (GVariant -> Maybe GVariant
forall a. a -> Maybe a
Just GVariant
val)
#if ENABLE_OVERLOADING
data ApplicationCommandLinePlatformDataPropertyInfo
instance AttrInfo ApplicationCommandLinePlatformDataPropertyInfo where
type AttrAllowedOps ApplicationCommandLinePlatformDataPropertyInfo = '[ 'AttrConstruct, 'AttrClear]
type AttrSetTypeConstraint ApplicationCommandLinePlatformDataPropertyInfo = (~) GVariant
type AttrBaseTypeConstraint ApplicationCommandLinePlatformDataPropertyInfo = IsApplicationCommandLine
type AttrGetType ApplicationCommandLinePlatformDataPropertyInfo = ()
type AttrLabel ApplicationCommandLinePlatformDataPropertyInfo = "platform-data"
type AttrOrigin ApplicationCommandLinePlatformDataPropertyInfo = ApplicationCommandLine
attrGet _ = undefined
attrSet _ = undefined
attrConstruct _ = constructApplicationCommandLinePlatformData
attrClear _ = undefined
#endif
#if 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 ENABLE_OVERLOADING
applicationCommandLineArguments :: AttrLabelProxy "arguments"
applicationCommandLineArguments = AttrLabelProxy
applicationCommandLineIsRemote :: AttrLabelProxy "isRemote"
applicationCommandLineIsRemote = AttrLabelProxy
applicationCommandLineOptions :: AttrLabelProxy "options"
applicationCommandLineOptions = AttrLabelProxy
applicationCommandLinePlatformData :: AttrLabelProxy "platformData"
applicationCommandLinePlatformData = AttrLabelProxy
#endif
#if 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 :: a -> String -> m File
applicationCommandLineCreateFileForArg cmdline :: a
cmdline arg :: String
arg = IO File -> m File
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO File -> m File) -> IO File -> m File
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- a -> IO (Ptr ApplicationCommandLine)
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'
Text -> Ptr File -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "applicationCommandLineCreateFileForArg" Ptr File
result
File
result' <- ((ManagedPtr File -> File) -> Ptr File -> IO File
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
arg'
File -> IO File
forall (m :: * -> *) a. Monad m => a -> m a
return File
result'
#if ENABLE_OVERLOADING
data ApplicationCommandLineCreateFileForArgMethodInfo
instance (signature ~ ([Char] -> m Gio.File.File), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineCreateFileForArgMethodInfo a signature where
overloadedMethod _ = 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 :: a -> m [String]
applicationCommandLineGetArguments cmdline :: a
cmdline = IO [String] -> m [String]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [String] -> m [String]) -> IO [String] -> m [String]
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- a -> IO (Ptr ApplicationCommandLine)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
cmdline
Ptr Int32
argc <- IO (Ptr Int32)
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' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
argc
Text -> Ptr CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "applicationCommandLineGetArguments" Ptr CString
result
[String]
result' <- (Int32 -> Ptr CString -> IO [String]
forall a.
(HasCallStack, Integral a) =>
a -> Ptr CString -> IO [String]
unpackFileNameArrayWithLength Int32
argc') Ptr CString
result
(Int32 -> (CString -> IO ()) -> Ptr CString -> IO ()
forall a b c.
(Storable a, Integral b) =>
b -> (a -> IO c) -> Ptr a -> IO ()
mapCArrayWithLength Int32
argc') CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
result
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
argc
[String] -> IO [String]
forall (m :: * -> *) a. Monad m => a -> m a
return [String]
result'
#if ENABLE_OVERLOADING
data ApplicationCommandLineGetArgumentsMethodInfo
instance (signature ~ (m [[Char]]), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetArgumentsMethodInfo a signature where
overloadedMethod _ = 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 :: a -> m (Maybe String)
applicationCommandLineGetCwd cmdline :: a
cmdline = IO (Maybe String) -> m (Maybe String)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe String) -> m (Maybe String))
-> IO (Maybe String) -> m (Maybe String)
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- a -> IO (Ptr ApplicationCommandLine)
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 <- CString -> (CString -> IO String) -> IO (Maybe String)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO String) -> IO (Maybe String))
-> (CString -> IO String) -> IO (Maybe String)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
String
result'' <- HasCallStack => CString -> IO String
CString -> IO String
cstringToString CString
result'
String -> IO String
forall (m :: * -> *) a. Monad m => a -> m a
return String
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
Maybe String -> IO (Maybe String)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe String
maybeResult
#if ENABLE_OVERLOADING
data ApplicationCommandLineGetCwdMethodInfo
instance (signature ~ (m (Maybe [Char])), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetCwdMethodInfo a signature where
overloadedMethod _ = 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 :: a -> m [String]
applicationCommandLineGetEnviron cmdline :: a
cmdline = IO [String] -> m [String]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [String] -> m [String]) -> IO [String] -> m [String]
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- a -> IO (Ptr ApplicationCommandLine)
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'
Text -> Ptr CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "applicationCommandLineGetEnviron" Ptr CString
result
[String]
result' <- HasCallStack => Ptr CString -> IO [String]
Ptr CString -> IO [String]
unpackZeroTerminatedFileNameArray Ptr CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
[String] -> IO [String]
forall (m :: * -> *) a. Monad m => a -> m a
return [String]
result'
#if ENABLE_OVERLOADING
data ApplicationCommandLineGetEnvironMethodInfo
instance (signature ~ (m [[Char]]), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetEnvironMethodInfo a signature where
overloadedMethod _ = 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 :: a -> m Int32
applicationCommandLineGetExitStatus cmdline :: a
cmdline = IO Int32 -> m Int32
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 ApplicationCommandLine
cmdline' <- a -> IO (Ptr ApplicationCommandLine)
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'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if ENABLE_OVERLOADING
data ApplicationCommandLineGetExitStatusMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetExitStatusMethodInfo a signature where
overloadedMethod _ = 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 :: a -> m Bool
applicationCommandLineGetIsRemote cmdline :: a
cmdline = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- a -> IO (Ptr ApplicationCommandLine)
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' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if ENABLE_OVERLOADING
data ApplicationCommandLineGetIsRemoteMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetIsRemoteMethodInfo a signature where
overloadedMethod _ = 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 :: a -> m VariantDict
applicationCommandLineGetOptionsDict cmdline :: a
cmdline = IO VariantDict -> m VariantDict
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VariantDict -> m VariantDict)
-> IO VariantDict -> m VariantDict
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- a -> IO (Ptr ApplicationCommandLine)
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'
Text -> Ptr VariantDict -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "applicationCommandLineGetOptionsDict" Ptr VariantDict
result
VariantDict
result' <- ((ManagedPtr VariantDict -> VariantDict)
-> Ptr VariantDict -> IO VariantDict
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr VariantDict -> VariantDict
GLib.VariantDict.VariantDict) Ptr VariantDict
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
VariantDict -> IO VariantDict
forall (m :: * -> *) a. Monad m => a -> m a
return VariantDict
result'
#if ENABLE_OVERLOADING
data ApplicationCommandLineGetOptionsDictMethodInfo
instance (signature ~ (m GLib.VariantDict.VariantDict), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetOptionsDictMethodInfo a signature where
overloadedMethod _ = 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 :: a -> m (Maybe GVariant)
applicationCommandLineGetPlatformData cmdline :: a
cmdline = IO (Maybe GVariant) -> m (Maybe GVariant)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe GVariant) -> m (Maybe GVariant))
-> IO (Maybe GVariant) -> m (Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- a -> IO (Ptr ApplicationCommandLine)
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 <- Ptr GVariant
-> (Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr GVariant
result ((Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant))
-> (Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr GVariant
result' -> do
GVariant
result'' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result'
GVariant -> IO GVariant
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
Maybe GVariant -> IO (Maybe GVariant)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GVariant
maybeResult
#if ENABLE_OVERLOADING
data ApplicationCommandLineGetPlatformDataMethodInfo
instance (signature ~ (m (Maybe GVariant)), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetPlatformDataMethodInfo a signature where
overloadedMethod _ = 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 Gio.InputStream.InputStream
applicationCommandLineGetStdin :: a -> m InputStream
applicationCommandLineGetStdin cmdline :: a
cmdline = IO InputStream -> m InputStream
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO InputStream -> m InputStream)
-> IO InputStream -> m InputStream
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- a -> IO (Ptr ApplicationCommandLine)
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'
Text -> Ptr InputStream -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "applicationCommandLineGetStdin" Ptr InputStream
result
InputStream
result' <- ((ManagedPtr InputStream -> InputStream)
-> Ptr InputStream -> IO InputStream
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
InputStream -> IO InputStream
forall (m :: * -> *) a. Monad m => a -> m a
return InputStream
result'
#if ENABLE_OVERLOADING
data ApplicationCommandLineGetStdinMethodInfo
instance (signature ~ (m Gio.InputStream.InputStream), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetStdinMethodInfo a signature where
overloadedMethod _ = 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 T.Text
applicationCommandLineGetenv :: a -> String -> m Text
applicationCommandLineGetenv cmdline :: a
cmdline name :: String
name = IO Text -> m Text
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 ApplicationCommandLine
cmdline' <- a -> IO (Ptr ApplicationCommandLine)
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'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "applicationCommandLineGetenv" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data ApplicationCommandLineGetenvMethodInfo
instance (signature ~ ([Char] -> m T.Text), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineGetenvMethodInfo a signature where
overloadedMethod _ = 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 :: a -> Int32 -> m ()
applicationCommandLineSetExitStatus cmdline :: a
cmdline exitStatus :: Int32
exitStatus = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ApplicationCommandLine
cmdline' <- a -> IO (Ptr ApplicationCommandLine)
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
cmdline
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data ApplicationCommandLineSetExitStatusMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsApplicationCommandLine a) => O.MethodInfo ApplicationCommandLineSetExitStatusMethodInfo a signature where
overloadedMethod _ = applicationCommandLineSetExitStatus
#endif