gi-glib-0.2.44.12: GI/GLib/Structs/OptionContext.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
A `GOptionContext` struct defines which options
are accepted by the commandline option parser. The struct has only private
fields and should not be directly accessed.
-}
module GI.GLib.Structs.OptionContext
(
-- * Exported types
OptionContext(..) ,
noOptionContext ,
-- * Methods
-- ** optionContextAddGroup
optionContextAddGroup ,
-- ** optionContextAddMainEntries
optionContextAddMainEntries ,
-- ** optionContextFree
optionContextFree ,
-- ** optionContextGetDescription
optionContextGetDescription ,
-- ** optionContextGetHelp
optionContextGetHelp ,
-- ** optionContextGetHelpEnabled
optionContextGetHelpEnabled ,
-- ** optionContextGetIgnoreUnknownOptions
optionContextGetIgnoreUnknownOptions ,
-- ** optionContextGetMainGroup
optionContextGetMainGroup ,
-- ** optionContextGetStrictPosix
optionContextGetStrictPosix ,
-- ** optionContextGetSummary
optionContextGetSummary ,
-- ** optionContextParseStrv
optionContextParseStrv ,
-- ** optionContextSetDescription
optionContextSetDescription ,
-- ** optionContextSetHelpEnabled
optionContextSetHelpEnabled ,
-- ** optionContextSetIgnoreUnknownOptions
optionContextSetIgnoreUnknownOptions ,
-- ** optionContextSetMainGroup
optionContextSetMainGroup ,
-- ** optionContextSetStrictPosix
optionContextSetStrictPosix ,
-- ** optionContextSetSummary
optionContextSetSummary ,
-- ** optionContextSetTranslateFunc
optionContextSetTranslateFunc ,
-- ** optionContextSetTranslationDomain
optionContextSetTranslationDomain ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.GLib.Types
import GI.GLib.Callbacks
newtype OptionContext = OptionContext (ForeignPtr OptionContext)
noOptionContext :: Maybe OptionContext
noOptionContext = Nothing
-- method OptionContext::add_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_add_group" g_option_context_add_group ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
Ptr OptionGroup -> -- group : TInterface "GLib" "OptionGroup"
IO ()
optionContextAddGroup ::
(MonadIO m) =>
OptionContext -> -- _obj
OptionGroup -> -- group
m ()
optionContextAddGroup _obj group = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
group' <- copyBoxed group
g_option_context_add_group _obj' group'
touchManagedPtr _obj
touchManagedPtr group
return ()
-- method OptionContext::add_main_entries
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "entries", argType = TInterface "GLib" "OptionEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "translation_domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_add_main_entries" g_option_context_add_main_entries ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
Ptr OptionEntry -> -- entries : TInterface "GLib" "OptionEntry"
CString -> -- translation_domain : TBasicType TUTF8
IO ()
optionContextAddMainEntries ::
(MonadIO m) =>
OptionContext -> -- _obj
OptionEntry -> -- entries
Maybe (T.Text) -> -- translation_domain
m ()
optionContextAddMainEntries _obj entries translation_domain = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let entries' = unsafeManagedPtrGetPtr entries
maybeTranslation_domain <- case translation_domain of
Nothing -> return nullPtr
Just jTranslation_domain -> do
jTranslation_domain' <- textToCString jTranslation_domain
return jTranslation_domain'
g_option_context_add_main_entries _obj' entries' maybeTranslation_domain
touchManagedPtr _obj
touchManagedPtr entries
freeMem maybeTranslation_domain
return ()
-- method OptionContext::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_free" g_option_context_free ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
IO ()
optionContextFree ::
(MonadIO m) =>
OptionContext -> -- _obj
m ()
optionContextFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
g_option_context_free _obj'
touchManagedPtr _obj
return ()
-- method OptionContext::get_description
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_get_description" g_option_context_get_description ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
IO CString
optionContextGetDescription ::
(MonadIO m) =>
OptionContext -> -- _obj
m T.Text
optionContextGetDescription _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- g_option_context_get_description _obj'
checkUnexpectedReturnNULL "g_option_context_get_description" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method OptionContext::get_help
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "main_help", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "main_help", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_get_help" g_option_context_get_help ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
CInt -> -- main_help : TBasicType TBoolean
Ptr OptionGroup -> -- group : TInterface "GLib" "OptionGroup"
IO CString
optionContextGetHelp ::
(MonadIO m) =>
OptionContext -> -- _obj
Bool -> -- main_help
Maybe (OptionGroup) -> -- group
m T.Text
optionContextGetHelp _obj main_help group = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let main_help' = (fromIntegral . fromEnum) main_help
maybeGroup <- case group of
Nothing -> return nullPtr
Just jGroup -> do
let jGroup' = unsafeManagedPtrGetPtr jGroup
return jGroup'
result <- g_option_context_get_help _obj' main_help' maybeGroup
checkUnexpectedReturnNULL "g_option_context_get_help" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
whenJust group touchManagedPtr
return result'
-- method OptionContext::get_help_enabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_get_help_enabled" g_option_context_get_help_enabled ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
IO CInt
optionContextGetHelpEnabled ::
(MonadIO m) =>
OptionContext -> -- _obj
m Bool
optionContextGetHelpEnabled _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- g_option_context_get_help_enabled _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method OptionContext::get_ignore_unknown_options
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_get_ignore_unknown_options" g_option_context_get_ignore_unknown_options ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
IO CInt
optionContextGetIgnoreUnknownOptions ::
(MonadIO m) =>
OptionContext -> -- _obj
m Bool
optionContextGetIgnoreUnknownOptions _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- g_option_context_get_ignore_unknown_options _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method OptionContext::get_main_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GLib" "OptionGroup"
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_get_main_group" g_option_context_get_main_group ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
IO (Ptr OptionGroup)
optionContextGetMainGroup ::
(MonadIO m) =>
OptionContext -> -- _obj
m OptionGroup
optionContextGetMainGroup _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- g_option_context_get_main_group _obj'
checkUnexpectedReturnNULL "g_option_context_get_main_group" result
result' <- (newBoxed OptionGroup) result
touchManagedPtr _obj
return result'
-- method OptionContext::get_strict_posix
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_get_strict_posix" g_option_context_get_strict_posix ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
IO CInt
optionContextGetStrictPosix ::
(MonadIO m) =>
OptionContext -> -- _obj
m Bool
optionContextGetStrictPosix _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- g_option_context_get_strict_posix _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method OptionContext::get_summary
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_get_summary" g_option_context_get_summary ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
IO CString
optionContextGetSummary ::
(MonadIO m) =>
OptionContext -> -- _obj
m T.Text
optionContextGetSummary _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- g_option_context_get_summary _obj'
checkUnexpectedReturnNULL "g_option_context_get_summary" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- XXX Could not generate method OptionContext::parse
-- Error was : Bad introspection data: "argument \"argc\" is not of nullable type (TBasicType TInt32), but it is marked as such."
-- method OptionContext::parse_strv
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arguments", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "arguments", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "g_option_context_parse_strv" g_option_context_parse_strv ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
Ptr (Ptr CString) -> -- arguments : TCArray False (-1) (-1) (TBasicType TUTF8)
Ptr (Ptr GError) -> -- error
IO CInt
optionContextParseStrv ::
(MonadIO m) =>
OptionContext -> -- _obj
Ptr CString -> -- arguments
m ((Ptr CString))
optionContextParseStrv _obj arguments = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
arguments' <- allocMem :: IO (Ptr (Ptr CString))
poke arguments' arguments
onException (do
_ <- propagateGError $ g_option_context_parse_strv _obj' arguments'
arguments'' <- peek arguments'
touchManagedPtr _obj
freeMem arguments'
return arguments''
) (do
freeMem arguments'
)
-- method OptionContext::set_description
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_set_description" g_option_context_set_description ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
CString -> -- description : TBasicType TUTF8
IO ()
optionContextSetDescription ::
(MonadIO m) =>
OptionContext -> -- _obj
Maybe (T.Text) -> -- description
m ()
optionContextSetDescription _obj description = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybeDescription <- case description of
Nothing -> return nullPtr
Just jDescription -> do
jDescription' <- textToCString jDescription
return jDescription'
g_option_context_set_description _obj' maybeDescription
touchManagedPtr _obj
freeMem maybeDescription
return ()
-- method OptionContext::set_help_enabled
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "help_enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_set_help_enabled" g_option_context_set_help_enabled ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
CInt -> -- help_enabled : TBasicType TBoolean
IO ()
optionContextSetHelpEnabled ::
(MonadIO m) =>
OptionContext -> -- _obj
Bool -> -- help_enabled
m ()
optionContextSetHelpEnabled _obj help_enabled = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let help_enabled' = (fromIntegral . fromEnum) help_enabled
g_option_context_set_help_enabled _obj' help_enabled'
touchManagedPtr _obj
return ()
-- method OptionContext::set_ignore_unknown_options
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_unknown", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ignore_unknown", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_set_ignore_unknown_options" g_option_context_set_ignore_unknown_options ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
CInt -> -- ignore_unknown : TBasicType TBoolean
IO ()
optionContextSetIgnoreUnknownOptions ::
(MonadIO m) =>
OptionContext -> -- _obj
Bool -> -- ignore_unknown
m ()
optionContextSetIgnoreUnknownOptions _obj ignore_unknown = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let ignore_unknown' = (fromIntegral . fromEnum) ignore_unknown
g_option_context_set_ignore_unknown_options _obj' ignore_unknown'
touchManagedPtr _obj
return ()
-- method OptionContext::set_main_group
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_set_main_group" g_option_context_set_main_group ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
Ptr OptionGroup -> -- group : TInterface "GLib" "OptionGroup"
IO ()
optionContextSetMainGroup ::
(MonadIO m) =>
OptionContext -> -- _obj
OptionGroup -> -- group
m ()
optionContextSetMainGroup _obj group = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
group' <- copyBoxed group
g_option_context_set_main_group _obj' group'
touchManagedPtr _obj
touchManagedPtr group
return ()
-- method OptionContext::set_strict_posix
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strict_posix", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "strict_posix", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_set_strict_posix" g_option_context_set_strict_posix ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
CInt -> -- strict_posix : TBasicType TBoolean
IO ()
optionContextSetStrictPosix ::
(MonadIO m) =>
OptionContext -> -- _obj
Bool -> -- strict_posix
m ()
optionContextSetStrictPosix _obj strict_posix = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let strict_posix' = (fromIntegral . fromEnum) strict_posix
g_option_context_set_strict_posix _obj' strict_posix'
touchManagedPtr _obj
return ()
-- method OptionContext::set_summary
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "summary", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_set_summary" g_option_context_set_summary ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
CString -> -- summary : TBasicType TUTF8
IO ()
optionContextSetSummary ::
(MonadIO m) =>
OptionContext -> -- _obj
Maybe (T.Text) -> -- summary
m ()
optionContextSetSummary _obj summary = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybeSummary <- case summary of
Nothing -> return nullPtr
Just jSummary -> do
jSummary' <- textToCString jSummary
return jSummary'
g_option_context_set_summary _obj' maybeSummary
touchManagedPtr _obj
freeMem maybeSummary
return ()
-- method OptionContext::set_translate_func
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "GLib" "TranslateFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_set_translate_func" g_option_context_set_translate_func ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
FunPtr TranslateFuncC -> -- func : TInterface "GLib" "TranslateFunc"
Ptr () -> -- data : TBasicType TVoid
FunPtr DestroyNotifyC -> -- destroy_notify : TInterface "GLib" "DestroyNotify"
IO ()
optionContextSetTranslateFunc ::
(MonadIO m) =>
OptionContext -> -- _obj
Maybe (TranslateFunc) -> -- func
m ()
optionContextSetTranslateFunc _obj func = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
maybeFunc <- case func of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jFunc -> do
jFunc' <- mkTranslateFunc (translateFuncWrapper Nothing jFunc)
return jFunc'
let data_ = castFunPtrToPtr maybeFunc
let destroy_notify = safeFreeFunPtrPtr
g_option_context_set_translate_func _obj' maybeFunc data_ destroy_notify
touchManagedPtr _obj
return ()
-- method OptionContext::set_translation_domain
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "GLib" "OptionContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_option_context_set_translation_domain" g_option_context_set_translation_domain ::
Ptr OptionContext -> -- _obj : TInterface "GLib" "OptionContext"
CString -> -- domain : TBasicType TUTF8
IO ()
optionContextSetTranslationDomain ::
(MonadIO m) =>
OptionContext -> -- _obj
T.Text -> -- domain
m ()
optionContextSetTranslationDomain _obj domain = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
domain' <- textToCString domain
g_option_context_set_translation_domain _obj' domain'
touchManagedPtr _obj
freeMem domain'
return ()