gi-gio-0.2.46.13: GI/Gio/Functions.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)
-}
module GI.Gio.Functions
(
-- * Methods
-- ** busGet
busGet ,
-- ** busGetFinish
busGetFinish ,
-- ** busGetSync
busGetSync ,
-- ** busOwnName
busOwnName ,
-- ** busOwnNameOnConnection
busOwnNameOnConnection ,
-- ** busUnownName
busUnownName ,
-- ** busUnwatchName
busUnwatchName ,
-- ** busWatchName
busWatchName ,
-- ** busWatchNameOnConnection
busWatchNameOnConnection ,
-- ** contentTypeCanBeExecutable
contentTypeCanBeExecutable ,
-- ** contentTypeEquals
contentTypeEquals ,
-- ** contentTypeFromMimeType
contentTypeFromMimeType ,
-- ** contentTypeGetDescription
contentTypeGetDescription ,
-- ** contentTypeGetGenericIconName
contentTypeGetGenericIconName ,
-- ** contentTypeGetIcon
contentTypeGetIcon ,
-- ** contentTypeGetMimeType
contentTypeGetMimeType ,
-- ** contentTypeGetSymbolicIcon
contentTypeGetSymbolicIcon ,
-- ** contentTypeGuess
contentTypeGuess ,
-- ** contentTypeGuessForTree
contentTypeGuessForTree ,
-- ** contentTypeIsA
contentTypeIsA ,
-- ** contentTypeIsUnknown
contentTypeIsUnknown ,
-- ** contentTypesGetRegistered
contentTypesGetRegistered ,
-- ** dbusAddressEscapeValue
dbusAddressEscapeValue ,
-- ** dbusAddressGetForBusSync
dbusAddressGetForBusSync ,
-- ** dbusAddressGetStream
dbusAddressGetStream ,
-- ** dbusAddressGetStreamFinish
dbusAddressGetStreamFinish ,
-- ** dbusAddressGetStreamSync
dbusAddressGetStreamSync ,
-- ** dbusGenerateGuid
dbusGenerateGuid ,
-- ** dbusGvalueToGvariant
dbusGvalueToGvariant ,
-- ** dbusGvariantToGvalue
dbusGvariantToGvalue ,
-- ** dbusIsAddress
dbusIsAddress ,
-- ** dbusIsGuid
dbusIsGuid ,
-- ** dbusIsInterfaceName
dbusIsInterfaceName ,
-- ** dbusIsMemberName
dbusIsMemberName ,
-- ** dbusIsName
dbusIsName ,
-- ** dbusIsSupportedAddress
dbusIsSupportedAddress ,
-- ** dbusIsUniqueName
dbusIsUniqueName ,
-- ** ioErrorFromErrno
ioErrorFromErrno ,
-- ** ioErrorQuark
ioErrorQuark ,
-- ** ioModulesScanAllInDirectory
ioModulesScanAllInDirectory ,
-- ** ioModulesScanAllInDirectoryWithScope
ioModulesScanAllInDirectoryWithScope ,
-- ** ioSchedulerCancelAllJobs
ioSchedulerCancelAllJobs ,
-- ** ioSchedulerPushJob
ioSchedulerPushJob ,
-- ** networkingInit
networkingInit ,
-- ** pollableSourceNew
pollableSourceNew ,
-- ** pollableSourceNewFull
pollableSourceNewFull ,
-- ** pollableStreamRead
pollableStreamRead ,
-- ** pollableStreamWrite
pollableStreamWrite ,
-- ** pollableStreamWriteAll
pollableStreamWriteAll ,
-- ** resourcesEnumerateChildren
resourcesEnumerateChildren ,
-- ** resourcesGetInfo
resourcesGetInfo ,
-- ** resourcesLookupData
resourcesLookupData ,
-- ** resourcesOpenStream
resourcesOpenStream ,
-- ** resourcesRegister
resourcesRegister ,
-- ** resourcesUnregister
resourcesUnregister ,
-- ** simpleAsyncReportGerrorInIdle
simpleAsyncReportGerrorInIdle ,
-- ** unixIsMountPathSystemInternal
unixIsMountPathSystemInternal ,
-- ** unixMountCompare
unixMountCompare ,
-- ** unixMountFree
unixMountFree ,
-- ** unixMountGetDevicePath
unixMountGetDevicePath ,
-- ** unixMountGetFsType
unixMountGetFsType ,
-- ** unixMountGetMountPath
unixMountGetMountPath ,
-- ** unixMountGuessCanEject
unixMountGuessCanEject ,
-- ** unixMountGuessIcon
unixMountGuessIcon ,
-- ** unixMountGuessName
unixMountGuessName ,
-- ** unixMountGuessShouldDisplay
unixMountGuessShouldDisplay ,
-- ** unixMountGuessSymbolicIcon
unixMountGuessSymbolicIcon ,
-- ** unixMountIsReadonly
unixMountIsReadonly ,
-- ** unixMountIsSystemInternal
unixMountIsSystemInternal ,
-- ** unixMountPointsChangedSince
unixMountPointsChangedSince ,
-- ** unixMountsChangedSince
unixMountsChangedSince ,
) 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.Gio.Types
import GI.Gio.Callbacks
import qualified GI.GLib as GLib
import qualified GI.GObject as GObject
-- function g_unix_mounts_changed_since
-- Args : [Arg {argCName = "time", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_unix_mounts_changed_since" g_unix_mounts_changed_since ::
Word64 -> -- time : TBasicType TUInt64
IO CInt
unixMountsChangedSince ::
(MonadIO m) =>
Word64 -- time
-> m Bool -- result
unixMountsChangedSince time = liftIO $ do
result <- g_unix_mounts_changed_since time
let result' = (/= 0) result
return result'
-- function g_unix_mount_points_changed_since
-- Args : [Arg {argCName = "time", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_unix_mount_points_changed_since" g_unix_mount_points_changed_since ::
Word64 -> -- time : TBasicType TUInt64
IO CInt
unixMountPointsChangedSince ::
(MonadIO m) =>
Word64 -- time
-> m Bool -- result
unixMountPointsChangedSince time = liftIO $ do
result <- g_unix_mount_points_changed_since time
let result' = (/= 0) result
return result'
-- function g_unix_mount_is_system_internal
-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_unix_mount_is_system_internal" g_unix_mount_is_system_internal ::
Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry"
IO CInt
unixMountIsSystemInternal ::
(MonadIO m) =>
UnixMountEntry -- mountEntry
-> m Bool -- result
unixMountIsSystemInternal mountEntry = liftIO $ do
let mountEntry' = unsafeManagedPtrGetPtr mountEntry
result <- g_unix_mount_is_system_internal mountEntry'
let result' = (/= 0) result
touchManagedPtr mountEntry
return result'
-- function g_unix_mount_is_readonly
-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_unix_mount_is_readonly" g_unix_mount_is_readonly ::
Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry"
IO CInt
unixMountIsReadonly ::
(MonadIO m) =>
UnixMountEntry -- mountEntry
-> m Bool -- result
unixMountIsReadonly mountEntry = liftIO $ do
let mountEntry' = unsafeManagedPtrGetPtr mountEntry
result <- g_unix_mount_is_readonly mountEntry'
let result' = (/= 0) result
touchManagedPtr mountEntry
return result'
-- function g_unix_mount_guess_symbolic_icon
-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gio" "Icon"
-- throws : False
-- Skip return : False
foreign import ccall "g_unix_mount_guess_symbolic_icon" g_unix_mount_guess_symbolic_icon ::
Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry"
IO (Ptr Icon)
unixMountGuessSymbolicIcon ::
(MonadIO m) =>
UnixMountEntry -- mountEntry
-> m Icon -- result
unixMountGuessSymbolicIcon mountEntry = liftIO $ do
let mountEntry' = unsafeManagedPtrGetPtr mountEntry
result <- g_unix_mount_guess_symbolic_icon mountEntry'
checkUnexpectedReturnNULL "g_unix_mount_guess_symbolic_icon" result
result' <- (wrapObject Icon) result
touchManagedPtr mountEntry
return result'
-- function g_unix_mount_guess_should_display
-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_unix_mount_guess_should_display" g_unix_mount_guess_should_display ::
Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry"
IO CInt
unixMountGuessShouldDisplay ::
(MonadIO m) =>
UnixMountEntry -- mountEntry
-> m Bool -- result
unixMountGuessShouldDisplay mountEntry = liftIO $ do
let mountEntry' = unsafeManagedPtrGetPtr mountEntry
result <- g_unix_mount_guess_should_display mountEntry'
let result' = (/= 0) result
touchManagedPtr mountEntry
return result'
-- function g_unix_mount_guess_name
-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_unix_mount_guess_name" g_unix_mount_guess_name ::
Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry"
IO CString
unixMountGuessName ::
(MonadIO m) =>
UnixMountEntry -- mountEntry
-> m T.Text -- result
unixMountGuessName mountEntry = liftIO $ do
let mountEntry' = unsafeManagedPtrGetPtr mountEntry
result <- g_unix_mount_guess_name mountEntry'
checkUnexpectedReturnNULL "g_unix_mount_guess_name" result
result' <- cstringToText result
freeMem result
touchManagedPtr mountEntry
return result'
-- function g_unix_mount_guess_icon
-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gio" "Icon"
-- throws : False
-- Skip return : False
foreign import ccall "g_unix_mount_guess_icon" g_unix_mount_guess_icon ::
Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry"
IO (Ptr Icon)
unixMountGuessIcon ::
(MonadIO m) =>
UnixMountEntry -- mountEntry
-> m Icon -- result
unixMountGuessIcon mountEntry = liftIO $ do
let mountEntry' = unsafeManagedPtrGetPtr mountEntry
result <- g_unix_mount_guess_icon mountEntry'
checkUnexpectedReturnNULL "g_unix_mount_guess_icon" result
result' <- (wrapObject Icon) result
touchManagedPtr mountEntry
return result'
-- function g_unix_mount_guess_can_eject
-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_unix_mount_guess_can_eject" g_unix_mount_guess_can_eject ::
Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry"
IO CInt
unixMountGuessCanEject ::
(MonadIO m) =>
UnixMountEntry -- mountEntry
-> m Bool -- result
unixMountGuessCanEject mountEntry = liftIO $ do
let mountEntry' = unsafeManagedPtrGetPtr mountEntry
result <- g_unix_mount_guess_can_eject mountEntry'
let result' = (/= 0) result
touchManagedPtr mountEntry
return result'
-- function g_unix_mount_get_mount_path
-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_unix_mount_get_mount_path" g_unix_mount_get_mount_path ::
Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry"
IO CString
unixMountGetMountPath ::
(MonadIO m) =>
UnixMountEntry -- mountEntry
-> m T.Text -- result
unixMountGetMountPath mountEntry = liftIO $ do
let mountEntry' = unsafeManagedPtrGetPtr mountEntry
result <- g_unix_mount_get_mount_path mountEntry'
checkUnexpectedReturnNULL "g_unix_mount_get_mount_path" result
result' <- cstringToText result
touchManagedPtr mountEntry
return result'
-- function g_unix_mount_get_fs_type
-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_unix_mount_get_fs_type" g_unix_mount_get_fs_type ::
Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry"
IO CString
unixMountGetFsType ::
(MonadIO m) =>
UnixMountEntry -- mountEntry
-> m T.Text -- result
unixMountGetFsType mountEntry = liftIO $ do
let mountEntry' = unsafeManagedPtrGetPtr mountEntry
result <- g_unix_mount_get_fs_type mountEntry'
checkUnexpectedReturnNULL "g_unix_mount_get_fs_type" result
result' <- cstringToText result
touchManagedPtr mountEntry
return result'
-- function g_unix_mount_get_device_path
-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_unix_mount_get_device_path" g_unix_mount_get_device_path ::
Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry"
IO CString
unixMountGetDevicePath ::
(MonadIO m) =>
UnixMountEntry -- mountEntry
-> m T.Text -- result
unixMountGetDevicePath mountEntry = liftIO $ do
let mountEntry' = unsafeManagedPtrGetPtr mountEntry
result <- g_unix_mount_get_device_path mountEntry'
checkUnexpectedReturnNULL "g_unix_mount_get_device_path" result
result' <- cstringToText result
touchManagedPtr mountEntry
return result'
-- function g_unix_mount_free
-- Args : [Arg {argCName = "mount_entry", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_unix_mount_free" g_unix_mount_free ::
Ptr UnixMountEntry -> -- mount_entry : TInterface "Gio" "UnixMountEntry"
IO ()
unixMountFree ::
(MonadIO m) =>
UnixMountEntry -- mountEntry
-> m () -- result
unixMountFree mountEntry = liftIO $ do
let mountEntry' = unsafeManagedPtrGetPtr mountEntry
g_unix_mount_free mountEntry'
touchManagedPtr mountEntry
return ()
-- function g_unix_mount_compare
-- Args : [Arg {argCName = "mount1", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount2", argType = TInterface "Gio" "UnixMountEntry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "g_unix_mount_compare" g_unix_mount_compare ::
Ptr UnixMountEntry -> -- mount1 : TInterface "Gio" "UnixMountEntry"
Ptr UnixMountEntry -> -- mount2 : TInterface "Gio" "UnixMountEntry"
IO Int32
unixMountCompare ::
(MonadIO m) =>
UnixMountEntry -- mount1
-> UnixMountEntry -- mount2
-> m Int32 -- result
unixMountCompare mount1 mount2 = liftIO $ do
let mount1' = unsafeManagedPtrGetPtr mount1
let mount2' = unsafeManagedPtrGetPtr mount2
result <- g_unix_mount_compare mount1' mount2'
touchManagedPtr mount1
touchManagedPtr mount2
return result
-- function g_unix_is_mount_path_system_internal
-- Args : [Arg {argCName = "mount_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_unix_is_mount_path_system_internal" g_unix_is_mount_path_system_internal ::
CString -> -- mount_path : TBasicType TUTF8
IO CInt
unixIsMountPathSystemInternal ::
(MonadIO m) =>
T.Text -- mountPath
-> m Bool -- result
unixIsMountPathSystemInternal mountPath = liftIO $ do
mountPath' <- textToCString mountPath
result <- g_unix_is_mount_path_system_internal mountPath'
let result' = (/= 0) result
freeMem mountPath'
return result'
-- function g_simple_async_report_gerror_in_idle
-- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error", argType = TError, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_simple_async_report_gerror_in_idle" g_simple_async_report_gerror_in_idle ::
Ptr GObject.Object -> -- object : TInterface "GObject" "Object"
FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
Ptr GError -> -- error : TError
IO ()
{-# DEPRECATED simpleAsyncReportGerrorInIdle ["(Since version 2.46)","Use g_task_report_error()."]#-}
simpleAsyncReportGerrorInIdle ::
(MonadIO m, GObject.ObjectK a) =>
Maybe (a) -- object
-> Maybe (AsyncReadyCallback) -- callback
-> GError -- error_
-> m () -- result
simpleAsyncReportGerrorInIdle object callback error_ = liftIO $ do
maybeObject <- case object of
Nothing -> return nullPtr
Just jObject -> do
let jObject' = unsafeManagedPtrCastPtr jObject
return jObject'
ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let error_' = unsafeManagedPtrGetPtr error_
let userData = nullPtr
g_simple_async_report_gerror_in_idle maybeObject maybeCallback userData error_'
whenJust object touchManagedPtr
touchManagedPtr error_
return ()
-- function g_resources_unregister
-- Args : [Arg {argCName = "resource", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_resources_unregister" g_resources_unregister ::
Ptr Resource -> -- resource : TInterface "Gio" "Resource"
IO ()
resourcesUnregister ::
(MonadIO m) =>
Resource -- resource
-> m () -- result
resourcesUnregister resource = liftIO $ do
let resource' = unsafeManagedPtrGetPtr resource
g_resources_unregister resource'
touchManagedPtr resource
return ()
-- function g_resources_register
-- Args : [Arg {argCName = "resource", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_resources_register" g_resources_register ::
Ptr Resource -> -- resource : TInterface "Gio" "Resource"
IO ()
resourcesRegister ::
(MonadIO m) =>
Resource -- resource
-> m () -- result
resourcesRegister resource = liftIO $ do
let resource' = unsafeManagedPtrGetPtr resource
g_resources_register resource'
touchManagedPtr resource
return ()
-- function g_resources_open_stream
-- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gio" "InputStream"
-- throws : True
-- Skip return : False
foreign import ccall "g_resources_open_stream" g_resources_open_stream ::
CString -> -- path : TBasicType TUTF8
CUInt -> -- lookup_flags : TInterface "Gio" "ResourceLookupFlags"
Ptr (Ptr GError) -> -- error
IO (Ptr InputStream)
resourcesOpenStream ::
(MonadIO m) =>
T.Text -- path
-> [ResourceLookupFlags] -- lookupFlags
-> m InputStream -- result
resourcesOpenStream path lookupFlags = liftIO $ do
path' <- textToCString path
let lookupFlags' = gflagsToWord lookupFlags
onException (do
result <- propagateGError $ g_resources_open_stream path' lookupFlags'
checkUnexpectedReturnNULL "g_resources_open_stream" result
result' <- (wrapObject InputStream) result
freeMem path'
return result'
) (do
freeMem path'
)
-- function g_resources_lookup_data
-- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "GLib" "Bytes"
-- throws : True
-- Skip return : False
foreign import ccall "g_resources_lookup_data" g_resources_lookup_data ::
CString -> -- path : TBasicType TUTF8
CUInt -> -- lookup_flags : TInterface "Gio" "ResourceLookupFlags"
Ptr (Ptr GError) -> -- error
IO (Ptr GLib.Bytes)
resourcesLookupData ::
(MonadIO m) =>
T.Text -- path
-> [ResourceLookupFlags] -- lookupFlags
-> m GLib.Bytes -- result
resourcesLookupData path lookupFlags = liftIO $ do
path' <- textToCString path
let lookupFlags' = gflagsToWord lookupFlags
onException (do
result <- propagateGError $ g_resources_lookup_data path' lookupFlags'
checkUnexpectedReturnNULL "g_resources_lookup_data" result
result' <- (wrapBoxed GLib.Bytes) result
freeMem path'
return result'
) (do
freeMem path'
)
-- function g_resources_get_info
-- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "flags", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "g_resources_get_info" g_resources_get_info ::
CString -> -- path : TBasicType TUTF8
CUInt -> -- lookup_flags : TInterface "Gio" "ResourceLookupFlags"
Ptr Word64 -> -- size : TBasicType TUInt64
Ptr Word32 -> -- flags : TBasicType TUInt32
Ptr (Ptr GError) -> -- error
IO CInt
resourcesGetInfo ::
(MonadIO m) =>
T.Text -- path
-> [ResourceLookupFlags] -- lookupFlags
-> m (Word64,Word32) -- result
resourcesGetInfo path lookupFlags = liftIO $ do
path' <- textToCString path
let lookupFlags' = gflagsToWord lookupFlags
size <- allocMem :: IO (Ptr Word64)
flags <- allocMem :: IO (Ptr Word32)
onException (do
_ <- propagateGError $ g_resources_get_info path' lookupFlags' size flags
size' <- peek size
flags' <- peek flags
freeMem path'
freeMem size
freeMem flags
return (size', flags')
) (do
freeMem path'
freeMem size
freeMem flags
)
-- function g_resources_enumerate_children
-- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lookup_flags", argType = TInterface "Gio" "ResourceLookupFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : True
-- Skip return : False
foreign import ccall "g_resources_enumerate_children" g_resources_enumerate_children ::
CString -> -- path : TBasicType TUTF8
CUInt -> -- lookup_flags : TInterface "Gio" "ResourceLookupFlags"
Ptr (Ptr GError) -> -- error
IO (Ptr CString)
resourcesEnumerateChildren ::
(MonadIO m) =>
T.Text -- path
-> [ResourceLookupFlags] -- lookupFlags
-> m [T.Text] -- result
resourcesEnumerateChildren path lookupFlags = liftIO $ do
path' <- textToCString path
let lookupFlags' = gflagsToWord lookupFlags
onException (do
result <- propagateGError $ g_resources_enumerate_children path' lookupFlags'
checkUnexpectedReturnNULL "g_resources_enumerate_children" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
freeMem path'
return result'
) (do
freeMem path'
)
-- function g_pollable_stream_write_all
-- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "g_pollable_stream_write_all" g_pollable_stream_write_all ::
Ptr OutputStream -> -- stream : TInterface "Gio" "OutputStream"
Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)
Word64 -> -- count : TBasicType TUInt64
CInt -> -- blocking : TBasicType TBoolean
Ptr Word64 -> -- bytes_written : TBasicType TUInt64
Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
Ptr (Ptr GError) -> -- error
IO CInt
pollableStreamWriteAll ::
(MonadIO m, OutputStreamK a, CancellableK b) =>
a -- stream
-> ByteString -- buffer
-> Bool -- blocking
-> Maybe (b) -- cancellable
-> m (Word64) -- result
pollableStreamWriteAll stream buffer blocking cancellable = liftIO $ do
let count = fromIntegral $ B.length buffer
let stream' = unsafeManagedPtrCastPtr stream
buffer' <- packByteString buffer
let blocking' = (fromIntegral . fromEnum) blocking
bytesWritten <- allocMem :: IO (Ptr Word64)
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
_ <- propagateGError $ g_pollable_stream_write_all stream' buffer' count blocking' bytesWritten maybeCancellable
bytesWritten' <- peek bytesWritten
touchManagedPtr stream
whenJust cancellable touchManagedPtr
freeMem buffer'
freeMem bytesWritten
return bytesWritten'
) (do
freeMem buffer'
freeMem bytesWritten
)
-- function g_pollable_stream_write
-- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- returnType : TBasicType TInt64
-- throws : True
-- Skip return : False
foreign import ccall "g_pollable_stream_write" g_pollable_stream_write ::
Ptr OutputStream -> -- stream : TInterface "Gio" "OutputStream"
Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)
Word64 -> -- count : TBasicType TUInt64
CInt -> -- blocking : TBasicType TBoolean
Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
Ptr (Ptr GError) -> -- error
IO Int64
pollableStreamWrite ::
(MonadIO m, OutputStreamK a, CancellableK b) =>
a -- stream
-> ByteString -- buffer
-> Bool -- blocking
-> Maybe (b) -- cancellable
-> m Int64 -- result
pollableStreamWrite stream buffer blocking cancellable = liftIO $ do
let count = fromIntegral $ B.length buffer
let stream' = unsafeManagedPtrCastPtr stream
buffer' <- packByteString buffer
let blocking' = (fromIntegral . fromEnum) blocking
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
result <- propagateGError $ g_pollable_stream_write stream' buffer' count blocking' maybeCancellable
touchManagedPtr stream
whenJust cancellable touchManagedPtr
freeMem buffer'
return result
) (do
freeMem buffer'
)
-- function g_pollable_stream_read
-- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blocking", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- returnType : TBasicType TInt64
-- throws : True
-- Skip return : False
foreign import ccall "g_pollable_stream_read" g_pollable_stream_read ::
Ptr InputStream -> -- stream : TInterface "Gio" "InputStream"
Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)
Word64 -> -- count : TBasicType TUInt64
CInt -> -- blocking : TBasicType TBoolean
Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
Ptr (Ptr GError) -> -- error
IO Int64
pollableStreamRead ::
(MonadIO m, InputStreamK a, CancellableK b) =>
a -- stream
-> ByteString -- buffer
-> Bool -- blocking
-> Maybe (b) -- cancellable
-> m Int64 -- result
pollableStreamRead stream buffer blocking cancellable = liftIO $ do
let count = fromIntegral $ B.length buffer
let stream' = unsafeManagedPtrCastPtr stream
buffer' <- packByteString buffer
let blocking' = (fromIntegral . fromEnum) blocking
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
result <- propagateGError $ g_pollable_stream_read stream' buffer' count blocking' maybeCancellable
touchManagedPtr stream
whenJust cancellable touchManagedPtr
freeMem buffer'
return result
) (do
freeMem buffer'
)
-- function g_pollable_source_new_full
-- Args : [Arg {argCName = "pollable_stream", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_source", argType = TInterface "GLib" "Source", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "GLib" "Source"
-- throws : False
-- Skip return : False
foreign import ccall "g_pollable_source_new_full" g_pollable_source_new_full ::
Ptr GObject.Object -> -- pollable_stream : TInterface "GObject" "Object"
Ptr GLib.Source -> -- child_source : TInterface "GLib" "Source"
Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
IO (Ptr GLib.Source)
pollableSourceNewFull ::
(MonadIO m, GObject.ObjectK a, CancellableK b) =>
a -- pollableStream
-> Maybe (GLib.Source) -- childSource
-> Maybe (b) -- cancellable
-> m GLib.Source -- result
pollableSourceNewFull pollableStream childSource cancellable = liftIO $ do
let pollableStream' = unsafeManagedPtrCastPtr pollableStream
maybeChildSource <- case childSource of
Nothing -> return nullPtr
Just jChildSource -> do
let jChildSource' = unsafeManagedPtrGetPtr jChildSource
return jChildSource'
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
result <- g_pollable_source_new_full pollableStream' maybeChildSource maybeCancellable
checkUnexpectedReturnNULL "g_pollable_source_new_full" result
result' <- (wrapBoxed GLib.Source) result
touchManagedPtr pollableStream
whenJust childSource touchManagedPtr
whenJust cancellable touchManagedPtr
return result'
-- function g_pollable_source_new
-- Args : [Arg {argCName = "pollable_stream", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "GLib" "Source"
-- throws : False
-- Skip return : False
foreign import ccall "g_pollable_source_new" g_pollable_source_new ::
Ptr GObject.Object -> -- pollable_stream : TInterface "GObject" "Object"
IO (Ptr GLib.Source)
pollableSourceNew ::
(MonadIO m, GObject.ObjectK a) =>
a -- pollableStream
-> m GLib.Source -- result
pollableSourceNew pollableStream = liftIO $ do
let pollableStream' = unsafeManagedPtrCastPtr pollableStream
result <- g_pollable_source_new pollableStream'
checkUnexpectedReturnNULL "g_pollable_source_new" result
result' <- (wrapBoxed GLib.Source) result
touchManagedPtr pollableStream
return result'
-- function g_networking_init
-- Args : []
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_networking_init" g_networking_init ::
IO ()
networkingInit ::
(MonadIO m) =>
m () -- result
networkingInit = liftIO $ do
g_networking_init
return ()
-- function g_io_scheduler_push_job
-- Args : [Arg {argCName = "job_func", argType = TInterface "Gio" "IOSchedulerJobFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 1, argDestroy = 2, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_io_scheduler_push_job" g_io_scheduler_push_job ::
FunPtr IOSchedulerJobFuncC -> -- job_func : TInterface "Gio" "IOSchedulerJobFunc"
Ptr () -> -- user_data : TBasicType TVoid
FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify"
Int32 -> -- io_priority : TBasicType TInt32
Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
IO ()
{-# DEPRECATED ioSchedulerPushJob ["use #GThreadPool or g_task_run_in_thread()"]#-}
ioSchedulerPushJob ::
(MonadIO m, CancellableK a) =>
IOSchedulerJobFunc -- jobFunc
-> Int32 -- ioPriority
-> Maybe (a) -- cancellable
-> m () -- result
ioSchedulerPushJob jobFunc ioPriority cancellable = liftIO $ do
jobFunc' <- mkIOSchedulerJobFunc (iOSchedulerJobFuncWrapper Nothing jobFunc)
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
let userData = castFunPtrToPtr jobFunc'
let notify = safeFreeFunPtrPtr
g_io_scheduler_push_job jobFunc' userData notify ioPriority maybeCancellable
whenJust cancellable touchManagedPtr
return ()
-- function g_io_scheduler_cancel_all_jobs
-- Args : []
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_io_scheduler_cancel_all_jobs" g_io_scheduler_cancel_all_jobs ::
IO ()
{-# DEPRECATED ioSchedulerCancelAllJobs ["You should never call this function, since you don't","know how other libraries in your program might be making use of","gioscheduler."]#-}
ioSchedulerCancelAllJobs ::
(MonadIO m) =>
m () -- result
ioSchedulerCancelAllJobs = liftIO $ do
g_io_scheduler_cancel_all_jobs
return ()
-- function g_io_modules_scan_all_in_directory_with_scope
-- Args : [Arg {argCName = "dirname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scope", argType = TInterface "Gio" "IOModuleScope", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_io_modules_scan_all_in_directory_with_scope" g_io_modules_scan_all_in_directory_with_scope ::
CString -> -- dirname : TBasicType TUTF8
Ptr IOModuleScope -> -- scope : TInterface "Gio" "IOModuleScope"
IO ()
ioModulesScanAllInDirectoryWithScope ::
(MonadIO m) =>
T.Text -- dirname
-> IOModuleScope -- scope
-> m () -- result
ioModulesScanAllInDirectoryWithScope dirname scope = liftIO $ do
dirname' <- textToCString dirname
let scope' = unsafeManagedPtrGetPtr scope
g_io_modules_scan_all_in_directory_with_scope dirname' scope'
touchManagedPtr scope
freeMem dirname'
return ()
-- function g_io_modules_scan_all_in_directory
-- Args : [Arg {argCName = "dirname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_io_modules_scan_all_in_directory" g_io_modules_scan_all_in_directory ::
CString -> -- dirname : TBasicType TUTF8
IO ()
ioModulesScanAllInDirectory ::
(MonadIO m) =>
T.Text -- dirname
-> m () -- result
ioModulesScanAllInDirectory dirname = liftIO $ do
dirname' <- textToCString dirname
g_io_modules_scan_all_in_directory dirname'
freeMem dirname'
return ()
-- function g_io_error_quark
-- Args : []
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "g_io_error_quark" g_io_error_quark ::
IO Word32
ioErrorQuark ::
(MonadIO m) =>
m Word32 -- result
ioErrorQuark = liftIO $ do
result <- g_io_error_quark
return result
-- function g_io_error_from_errno
-- Args : [Arg {argCName = "err_no", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gio" "IOErrorEnum"
-- throws : False
-- Skip return : False
foreign import ccall "g_io_error_from_errno" g_io_error_from_errno ::
Int32 -> -- err_no : TBasicType TInt32
IO CUInt
ioErrorFromErrno ::
(MonadIO m) =>
Int32 -- errNo
-> m IOErrorEnum -- result
ioErrorFromErrno errNo = liftIO $ do
result <- g_io_error_from_errno errNo
let result' = (toEnum . fromIntegral) result
return result'
-- function g_dbus_is_unique_name
-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_is_unique_name" g_dbus_is_unique_name ::
CString -> -- string : TBasicType TUTF8
IO CInt
dbusIsUniqueName ::
(MonadIO m) =>
T.Text -- string
-> m Bool -- result
dbusIsUniqueName string = liftIO $ do
string' <- textToCString string
result <- g_dbus_is_unique_name string'
let result' = (/= 0) result
freeMem string'
return result'
-- function g_dbus_is_supported_address
-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : True
-- Skip return : False
foreign import ccall "g_dbus_is_supported_address" g_dbus_is_supported_address ::
CString -> -- string : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO CInt
dbusIsSupportedAddress ::
(MonadIO m) =>
T.Text -- string
-> m () -- result
dbusIsSupportedAddress string = liftIO $ do
string' <- textToCString string
onException (do
_ <- propagateGError $ g_dbus_is_supported_address string'
freeMem string'
return ()
) (do
freeMem string'
)
-- function g_dbus_is_name
-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_is_name" g_dbus_is_name ::
CString -> -- string : TBasicType TUTF8
IO CInt
dbusIsName ::
(MonadIO m) =>
T.Text -- string
-> m Bool -- result
dbusIsName string = liftIO $ do
string' <- textToCString string
result <- g_dbus_is_name string'
let result' = (/= 0) result
freeMem string'
return result'
-- function g_dbus_is_member_name
-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_is_member_name" g_dbus_is_member_name ::
CString -> -- string : TBasicType TUTF8
IO CInt
dbusIsMemberName ::
(MonadIO m) =>
T.Text -- string
-> m Bool -- result
dbusIsMemberName string = liftIO $ do
string' <- textToCString string
result <- g_dbus_is_member_name string'
let result' = (/= 0) result
freeMem string'
return result'
-- function g_dbus_is_interface_name
-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_is_interface_name" g_dbus_is_interface_name ::
CString -> -- string : TBasicType TUTF8
IO CInt
dbusIsInterfaceName ::
(MonadIO m) =>
T.Text -- string
-> m Bool -- result
dbusIsInterfaceName string = liftIO $ do
string' <- textToCString string
result <- g_dbus_is_interface_name string'
let result' = (/= 0) result
freeMem string'
return result'
-- function g_dbus_is_guid
-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_is_guid" g_dbus_is_guid ::
CString -> -- string : TBasicType TUTF8
IO CInt
dbusIsGuid ::
(MonadIO m) =>
T.Text -- string
-> m Bool -- result
dbusIsGuid string = liftIO $ do
string' <- textToCString string
result <- g_dbus_is_guid string'
let result' = (/= 0) result
freeMem string'
return result'
-- function g_dbus_is_address
-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_is_address" g_dbus_is_address ::
CString -> -- string : TBasicType TUTF8
IO CInt
dbusIsAddress ::
(MonadIO m) =>
T.Text -- string
-> m Bool -- result
dbusIsAddress string = liftIO $ do
string' <- textToCString string
result <- g_dbus_is_address string'
let result' = (/= 0) result
freeMem string'
return result'
-- function g_dbus_gvariant_to_gvalue
-- Args : [Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_gvalue", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_gvariant_to_gvalue" g_dbus_gvariant_to_gvalue ::
Ptr GVariant -> -- value : TVariant
Ptr GValue -> -- out_gvalue : TInterface "GObject" "Value"
IO ()
dbusGvariantToGvalue ::
(MonadIO m) =>
GVariant -- value
-> m (GValue) -- result
dbusGvariantToGvalue value = liftIO $ do
let value' = unsafeManagedPtrGetPtr value
outGvalue <- callocBoxedBytes 24 :: IO (Ptr GValue)
g_dbus_gvariant_to_gvalue value' outGvalue
outGvalue' <- (wrapBoxed GValue) outGvalue
return outGvalue'
-- function g_dbus_gvalue_to_gvariant
-- Args : [Arg {argCName = "gvalue", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TVariant
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_gvalue_to_gvariant" g_dbus_gvalue_to_gvariant ::
Ptr GValue -> -- gvalue : TInterface "GObject" "Value"
Ptr GLib.VariantType -> -- type : TInterface "GLib" "VariantType"
IO (Ptr GVariant)
dbusGvalueToGvariant ::
(MonadIO m) =>
GValue -- gvalue
-> GLib.VariantType -- type_
-> m GVariant -- result
dbusGvalueToGvariant gvalue type_ = liftIO $ do
let gvalue' = unsafeManagedPtrGetPtr gvalue
let type_' = unsafeManagedPtrGetPtr type_
result <- g_dbus_gvalue_to_gvariant gvalue' type_'
checkUnexpectedReturnNULL "g_dbus_gvalue_to_gvariant" result
result' <- wrapGVariantPtr result
touchManagedPtr gvalue
touchManagedPtr type_
return result'
-- function g_dbus_generate_guid
-- Args : []
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_generate_guid" g_dbus_generate_guid ::
IO CString
dbusGenerateGuid ::
(MonadIO m) =>
m T.Text -- result
dbusGenerateGuid = liftIO $ do
result <- g_dbus_generate_guid
checkUnexpectedReturnNULL "g_dbus_generate_guid" result
result' <- cstringToText result
freeMem result
return result'
-- function g_dbus_address_get_stream_sync
-- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gio" "IOStream"
-- throws : True
-- Skip return : False
foreign import ccall "g_dbus_address_get_stream_sync" g_dbus_address_get_stream_sync ::
CString -> -- address : TBasicType TUTF8
CString -> -- out_guid : TBasicType TUTF8
Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
Ptr (Ptr GError) -> -- error
IO (Ptr IOStream)
dbusAddressGetStreamSync ::
(MonadIO m, CancellableK a) =>
T.Text -- address
-> T.Text -- outGuid
-> Maybe (a) -- cancellable
-> m IOStream -- result
dbusAddressGetStreamSync address outGuid cancellable = liftIO $ do
address' <- textToCString address
outGuid' <- textToCString outGuid
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
result <- propagateGError $ g_dbus_address_get_stream_sync address' outGuid' maybeCancellable
checkUnexpectedReturnNULL "g_dbus_address_get_stream_sync" result
result' <- (wrapObject IOStream) result
whenJust cancellable touchManagedPtr
freeMem address'
freeMem outGuid'
return result'
) (do
freeMem address'
freeMem outGuid'
)
-- function g_dbus_address_get_stream_finish
-- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gio" "IOStream"
-- throws : True
-- Skip return : False
foreign import ccall "g_dbus_address_get_stream_finish" g_dbus_address_get_stream_finish ::
Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult"
CString -> -- out_guid : TBasicType TUTF8
Ptr (Ptr GError) -> -- error
IO (Ptr IOStream)
dbusAddressGetStreamFinish ::
(MonadIO m, AsyncResultK a) =>
a -- res
-> T.Text -- outGuid
-> m IOStream -- result
dbusAddressGetStreamFinish res outGuid = liftIO $ do
let res' = unsafeManagedPtrCastPtr res
outGuid' <- textToCString outGuid
onException (do
result <- propagateGError $ g_dbus_address_get_stream_finish res' outGuid'
checkUnexpectedReturnNULL "g_dbus_address_get_stream_finish" result
result' <- (wrapObject IOStream) result
touchManagedPtr res
freeMem outGuid'
return result'
) (do
freeMem outGuid'
)
-- function g_dbus_address_get_stream
-- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_address_get_stream" g_dbus_address_get_stream ::
CString -> -- address : TBasicType TUTF8
Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
dbusAddressGetStream ::
(MonadIO m, CancellableK a) =>
T.Text -- address
-> Maybe (a) -- cancellable
-> Maybe (AsyncReadyCallback) -- callback
-> m () -- result
dbusAddressGetStream address cancellable callback = liftIO $ do
address' <- textToCString address
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
g_dbus_address_get_stream address' maybeCancellable maybeCallback userData
whenJust cancellable touchManagedPtr
freeMem address'
return ()
-- function g_dbus_address_get_for_bus_sync
-- Args : [Arg {argCName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : True
-- Skip return : False
foreign import ccall "g_dbus_address_get_for_bus_sync" g_dbus_address_get_for_bus_sync ::
CUInt -> -- bus_type : TInterface "Gio" "BusType"
Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
Ptr (Ptr GError) -> -- error
IO CString
dbusAddressGetForBusSync ::
(MonadIO m, CancellableK a) =>
BusType -- busType
-> Maybe (a) -- cancellable
-> m T.Text -- result
dbusAddressGetForBusSync busType cancellable = liftIO $ do
let busType' = (fromIntegral . fromEnum) busType
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
result <- propagateGError $ g_dbus_address_get_for_bus_sync busType' maybeCancellable
checkUnexpectedReturnNULL "g_dbus_address_get_for_bus_sync" result
result' <- cstringToText result
freeMem result
whenJust cancellable touchManagedPtr
return result'
) (do
return ()
)
-- function g_dbus_address_escape_value
-- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_dbus_address_escape_value" g_dbus_address_escape_value ::
CString -> -- string : TBasicType TUTF8
IO CString
dbusAddressEscapeValue ::
(MonadIO m) =>
T.Text -- string
-> m T.Text -- result
dbusAddressEscapeValue string = liftIO $ do
string' <- textToCString string
result <- g_dbus_address_escape_value string'
checkUnexpectedReturnNULL "g_dbus_address_escape_value" result
result' <- cstringToText result
freeMem result
freeMem string'
return result'
-- function g_content_types_get_registered
-- Args : []
-- Lengths : []
-- returnType : TGList (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "g_content_types_get_registered" g_content_types_get_registered ::
IO (Ptr (GList CString))
contentTypesGetRegistered ::
(MonadIO m) =>
m [T.Text] -- result
contentTypesGetRegistered = liftIO $ do
result <- g_content_types_get_registered
checkUnexpectedReturnNULL "g_content_types_get_registered" result
result' <- unpackGList result
result'' <- mapM cstringToText result'
mapGList freeMem result
g_list_free result
return result''
-- function g_content_type_is_unknown
-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_content_type_is_unknown" g_content_type_is_unknown ::
CString -> -- type : TBasicType TUTF8
IO CInt
contentTypeIsUnknown ::
(MonadIO m) =>
T.Text -- type_
-> m Bool -- result
contentTypeIsUnknown type_ = liftIO $ do
type_' <- textToCString type_
result <- g_content_type_is_unknown type_'
let result' = (/= 0) result
freeMem type_'
return result'
-- function g_content_type_is_a
-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "supertype", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_content_type_is_a" g_content_type_is_a ::
CString -> -- type : TBasicType TUTF8
CString -> -- supertype : TBasicType TUTF8
IO CInt
contentTypeIsA ::
(MonadIO m) =>
T.Text -- type_
-> T.Text -- supertype
-> m Bool -- result
contentTypeIsA type_ supertype = liftIO $ do
type_' <- textToCString type_
supertype' <- textToCString supertype
result <- g_content_type_is_a type_' supertype'
let result' = (/= 0) result
freeMem type_'
freeMem supertype'
return result'
-- function g_content_type_guess_for_tree
-- Args : [Arg {argCName = "root", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "g_content_type_guess_for_tree" g_content_type_guess_for_tree ::
Ptr File -> -- root : TInterface "Gio" "File"
IO (Ptr CString)
contentTypeGuessForTree ::
(MonadIO m, FileK a) =>
a -- root
-> m [T.Text] -- result
contentTypeGuessForTree root = liftIO $ do
let root' = unsafeManagedPtrCastPtr root
result <- g_content_type_guess_for_tree root'
checkUnexpectedReturnNULL "g_content_type_guess_for_tree" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr root
return result'
-- function g_content_type_guess
-- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result_uncertain", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]
-- Lengths : [Arg {argCName = "data_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_content_type_guess" g_content_type_guess ::
CString -> -- filename : TBasicType TUTF8
Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8)
Word64 -> -- data_size : TBasicType TUInt64
Ptr CInt -> -- result_uncertain : TBasicType TBoolean
IO CString
contentTypeGuess ::
(MonadIO m) =>
Maybe (T.Text) -- filename
-> Maybe (ByteString) -- data_
-> m (T.Text,Bool) -- result
contentTypeGuess filename data_ = liftIO $ do
let dataSize = case data_ of
Nothing -> 0
Just jData_ -> fromIntegral $ B.length jData_
maybeFilename <- case filename of
Nothing -> return nullPtr
Just jFilename -> do
jFilename' <- textToCString jFilename
return jFilename'
maybeData_ <- case data_ of
Nothing -> return nullPtr
Just jData_ -> do
jData_' <- packByteString jData_
return jData_'
resultUncertain <- allocMem :: IO (Ptr CInt)
result <- g_content_type_guess maybeFilename maybeData_ dataSize resultUncertain
checkUnexpectedReturnNULL "g_content_type_guess" result
result' <- cstringToText result
freeMem result
resultUncertain' <- peek resultUncertain
let resultUncertain'' = (/= 0) resultUncertain'
freeMem maybeFilename
freeMem maybeData_
freeMem resultUncertain
return (result', resultUncertain'')
-- function g_content_type_get_symbolic_icon
-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gio" "Icon"
-- throws : False
-- Skip return : False
foreign import ccall "g_content_type_get_symbolic_icon" g_content_type_get_symbolic_icon ::
CString -> -- type : TBasicType TUTF8
IO (Ptr Icon)
contentTypeGetSymbolicIcon ::
(MonadIO m) =>
T.Text -- type_
-> m Icon -- result
contentTypeGetSymbolicIcon type_ = liftIO $ do
type_' <- textToCString type_
result <- g_content_type_get_symbolic_icon type_'
checkUnexpectedReturnNULL "g_content_type_get_symbolic_icon" result
result' <- (wrapObject Icon) result
freeMem type_'
return result'
-- function g_content_type_get_mime_type
-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_content_type_get_mime_type" g_content_type_get_mime_type ::
CString -> -- type : TBasicType TUTF8
IO CString
contentTypeGetMimeType ::
(MonadIO m) =>
T.Text -- type_
-> m T.Text -- result
contentTypeGetMimeType type_ = liftIO $ do
type_' <- textToCString type_
result <- g_content_type_get_mime_type type_'
checkUnexpectedReturnNULL "g_content_type_get_mime_type" result
result' <- cstringToText result
freeMem result
freeMem type_'
return result'
-- function g_content_type_get_icon
-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gio" "Icon"
-- throws : False
-- Skip return : False
foreign import ccall "g_content_type_get_icon" g_content_type_get_icon ::
CString -> -- type : TBasicType TUTF8
IO (Ptr Icon)
contentTypeGetIcon ::
(MonadIO m) =>
T.Text -- type_
-> m Icon -- result
contentTypeGetIcon type_ = liftIO $ do
type_' <- textToCString type_
result <- g_content_type_get_icon type_'
checkUnexpectedReturnNULL "g_content_type_get_icon" result
result' <- (wrapObject Icon) result
freeMem type_'
return result'
-- function g_content_type_get_generic_icon_name
-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_content_type_get_generic_icon_name" g_content_type_get_generic_icon_name ::
CString -> -- type : TBasicType TUTF8
IO CString
contentTypeGetGenericIconName ::
(MonadIO m) =>
T.Text -- type_
-> m T.Text -- result
contentTypeGetGenericIconName type_ = liftIO $ do
type_' <- textToCString type_
result <- g_content_type_get_generic_icon_name type_'
checkUnexpectedReturnNULL "g_content_type_get_generic_icon_name" result
result' <- cstringToText result
freeMem result
freeMem type_'
return result'
-- function g_content_type_get_description
-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_content_type_get_description" g_content_type_get_description ::
CString -> -- type : TBasicType TUTF8
IO CString
contentTypeGetDescription ::
(MonadIO m) =>
T.Text -- type_
-> m T.Text -- result
contentTypeGetDescription type_ = liftIO $ do
type_' <- textToCString type_
result <- g_content_type_get_description type_'
checkUnexpectedReturnNULL "g_content_type_get_description" result
result' <- cstringToText result
freeMem result
freeMem type_'
return result'
-- function g_content_type_from_mime_type
-- Args : [Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_content_type_from_mime_type" g_content_type_from_mime_type ::
CString -> -- mime_type : TBasicType TUTF8
IO CString
contentTypeFromMimeType ::
(MonadIO m) =>
T.Text -- mimeType
-> m T.Text -- result
contentTypeFromMimeType mimeType = liftIO $ do
mimeType' <- textToCString mimeType
result <- g_content_type_from_mime_type mimeType'
checkUnexpectedReturnNULL "g_content_type_from_mime_type" result
result' <- cstringToText result
freeMem result
freeMem mimeType'
return result'
-- function g_content_type_equals
-- Args : [Arg {argCName = "type1", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type2", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_content_type_equals" g_content_type_equals ::
CString -> -- type1 : TBasicType TUTF8
CString -> -- type2 : TBasicType TUTF8
IO CInt
contentTypeEquals ::
(MonadIO m) =>
T.Text -- type1
-> T.Text -- type2
-> m Bool -- result
contentTypeEquals type1 type2 = liftIO $ do
type1' <- textToCString type1
type2' <- textToCString type2
result <- g_content_type_equals type1' type2'
let result' = (/= 0) result
freeMem type1'
freeMem type2'
return result'
-- function g_content_type_can_be_executable
-- Args : [Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_content_type_can_be_executable" g_content_type_can_be_executable ::
CString -> -- type : TBasicType TUTF8
IO CInt
contentTypeCanBeExecutable ::
(MonadIO m) =>
T.Text -- type_
-> m Bool -- result
contentTypeCanBeExecutable type_ = liftIO $ do
type_' <- textToCString type_
result <- g_content_type_can_be_executable type_'
let result' = (/= 0) result
freeMem type_'
return result'
-- function g_bus_watch_name_on_connection_with_closures
-- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "BusNameWatcherFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_appeared_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_vanished_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "g_bus_watch_name_on_connection_with_closures" g_bus_watch_name_on_connection_with_closures ::
Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection"
CString -> -- name : TBasicType TUTF8
CUInt -> -- flags : TInterface "Gio" "BusNameWatcherFlags"
Ptr Closure -> -- name_appeared_closure : TInterface "GObject" "Closure"
Ptr Closure -> -- name_vanished_closure : TInterface "GObject" "Closure"
IO Word32
busWatchNameOnConnection ::
(MonadIO m, DBusConnectionK a) =>
a -- connection
-> T.Text -- name
-> [BusNameWatcherFlags] -- flags
-> Maybe (Closure) -- nameAppearedClosure
-> Maybe (Closure) -- nameVanishedClosure
-> m Word32 -- result
busWatchNameOnConnection connection name flags nameAppearedClosure nameVanishedClosure = liftIO $ do
let connection' = unsafeManagedPtrCastPtr connection
name' <- textToCString name
let flags' = gflagsToWord flags
maybeNameAppearedClosure <- case nameAppearedClosure of
Nothing -> return nullPtr
Just jNameAppearedClosure -> do
let jNameAppearedClosure' = unsafeManagedPtrGetPtr jNameAppearedClosure
return jNameAppearedClosure'
maybeNameVanishedClosure <- case nameVanishedClosure of
Nothing -> return nullPtr
Just jNameVanishedClosure -> do
let jNameVanishedClosure' = unsafeManagedPtrGetPtr jNameVanishedClosure
return jNameVanishedClosure'
result <- g_bus_watch_name_on_connection_with_closures connection' name' flags' maybeNameAppearedClosure maybeNameVanishedClosure
touchManagedPtr connection
whenJust nameAppearedClosure touchManagedPtr
whenJust nameVanishedClosure touchManagedPtr
freeMem name'
return result
-- function g_bus_watch_name_with_closures
-- Args : [Arg {argCName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "BusNameWatcherFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_appeared_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_vanished_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "g_bus_watch_name_with_closures" g_bus_watch_name_with_closures ::
CUInt -> -- bus_type : TInterface "Gio" "BusType"
CString -> -- name : TBasicType TUTF8
CUInt -> -- flags : TInterface "Gio" "BusNameWatcherFlags"
Ptr Closure -> -- name_appeared_closure : TInterface "GObject" "Closure"
Ptr Closure -> -- name_vanished_closure : TInterface "GObject" "Closure"
IO Word32
busWatchName ::
(MonadIO m) =>
BusType -- busType
-> T.Text -- name
-> [BusNameWatcherFlags] -- flags
-> Maybe (Closure) -- nameAppearedClosure
-> Maybe (Closure) -- nameVanishedClosure
-> m Word32 -- result
busWatchName busType name flags nameAppearedClosure nameVanishedClosure = liftIO $ do
let busType' = (fromIntegral . fromEnum) busType
name' <- textToCString name
let flags' = gflagsToWord flags
maybeNameAppearedClosure <- case nameAppearedClosure of
Nothing -> return nullPtr
Just jNameAppearedClosure -> do
let jNameAppearedClosure' = unsafeManagedPtrGetPtr jNameAppearedClosure
return jNameAppearedClosure'
maybeNameVanishedClosure <- case nameVanishedClosure of
Nothing -> return nullPtr
Just jNameVanishedClosure -> do
let jNameVanishedClosure' = unsafeManagedPtrGetPtr jNameVanishedClosure
return jNameVanishedClosure'
result <- g_bus_watch_name_with_closures busType' name' flags' maybeNameAppearedClosure maybeNameVanishedClosure
whenJust nameAppearedClosure touchManagedPtr
whenJust nameVanishedClosure touchManagedPtr
freeMem name'
return result
-- function g_bus_unwatch_name
-- Args : [Arg {argCName = "watcher_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_bus_unwatch_name" g_bus_unwatch_name ::
Word32 -> -- watcher_id : TBasicType TUInt32
IO ()
busUnwatchName ::
(MonadIO m) =>
Word32 -- watcherId
-> m () -- result
busUnwatchName watcherId = liftIO $ do
g_bus_unwatch_name watcherId
return ()
-- function g_bus_unown_name
-- Args : [Arg {argCName = "owner_id", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_bus_unown_name" g_bus_unown_name ::
Word32 -> -- owner_id : TBasicType TUInt32
IO ()
busUnownName ::
(MonadIO m) =>
Word32 -- ownerId
-> m () -- result
busUnownName ownerId = liftIO $ do
g_bus_unown_name ownerId
return ()
-- function g_bus_own_name_on_connection_with_closures
-- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "BusNameOwnerFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_acquired_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_lost_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "g_bus_own_name_on_connection_with_closures" g_bus_own_name_on_connection_with_closures ::
Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection"
CString -> -- name : TBasicType TUTF8
CUInt -> -- flags : TInterface "Gio" "BusNameOwnerFlags"
Ptr Closure -> -- name_acquired_closure : TInterface "GObject" "Closure"
Ptr Closure -> -- name_lost_closure : TInterface "GObject" "Closure"
IO Word32
busOwnNameOnConnection ::
(MonadIO m, DBusConnectionK a) =>
a -- connection
-> T.Text -- name
-> [BusNameOwnerFlags] -- flags
-> Maybe (Closure) -- nameAcquiredClosure
-> Maybe (Closure) -- nameLostClosure
-> m Word32 -- result
busOwnNameOnConnection connection name flags nameAcquiredClosure nameLostClosure = liftIO $ do
let connection' = unsafeManagedPtrCastPtr connection
name' <- textToCString name
let flags' = gflagsToWord flags
maybeNameAcquiredClosure <- case nameAcquiredClosure of
Nothing -> return nullPtr
Just jNameAcquiredClosure -> do
let jNameAcquiredClosure' = unsafeManagedPtrGetPtr jNameAcquiredClosure
return jNameAcquiredClosure'
maybeNameLostClosure <- case nameLostClosure of
Nothing -> return nullPtr
Just jNameLostClosure -> do
let jNameLostClosure' = unsafeManagedPtrGetPtr jNameLostClosure
return jNameLostClosure'
result <- g_bus_own_name_on_connection_with_closures connection' name' flags' maybeNameAcquiredClosure maybeNameLostClosure
touchManagedPtr connection
whenJust nameAcquiredClosure touchManagedPtr
whenJust nameLostClosure touchManagedPtr
freeMem name'
return result
-- function g_bus_own_name_with_closures
-- Args : [Arg {argCName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "BusNameOwnerFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_acquired_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_acquired_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_lost_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "g_bus_own_name_with_closures" g_bus_own_name_with_closures ::
CUInt -> -- bus_type : TInterface "Gio" "BusType"
CString -> -- name : TBasicType TUTF8
CUInt -> -- flags : TInterface "Gio" "BusNameOwnerFlags"
Ptr Closure -> -- bus_acquired_closure : TInterface "GObject" "Closure"
Ptr Closure -> -- name_acquired_closure : TInterface "GObject" "Closure"
Ptr Closure -> -- name_lost_closure : TInterface "GObject" "Closure"
IO Word32
busOwnName ::
(MonadIO m) =>
BusType -- busType
-> T.Text -- name
-> [BusNameOwnerFlags] -- flags
-> Maybe (Closure) -- busAcquiredClosure
-> Maybe (Closure) -- nameAcquiredClosure
-> Maybe (Closure) -- nameLostClosure
-> m Word32 -- result
busOwnName busType name flags busAcquiredClosure nameAcquiredClosure nameLostClosure = liftIO $ do
let busType' = (fromIntegral . fromEnum) busType
name' <- textToCString name
let flags' = gflagsToWord flags
maybeBusAcquiredClosure <- case busAcquiredClosure of
Nothing -> return nullPtr
Just jBusAcquiredClosure -> do
let jBusAcquiredClosure' = unsafeManagedPtrGetPtr jBusAcquiredClosure
return jBusAcquiredClosure'
maybeNameAcquiredClosure <- case nameAcquiredClosure of
Nothing -> return nullPtr
Just jNameAcquiredClosure -> do
let jNameAcquiredClosure' = unsafeManagedPtrGetPtr jNameAcquiredClosure
return jNameAcquiredClosure'
maybeNameLostClosure <- case nameLostClosure of
Nothing -> return nullPtr
Just jNameLostClosure -> do
let jNameLostClosure' = unsafeManagedPtrGetPtr jNameLostClosure
return jNameLostClosure'
result <- g_bus_own_name_with_closures busType' name' flags' maybeBusAcquiredClosure maybeNameAcquiredClosure maybeNameLostClosure
whenJust busAcquiredClosure touchManagedPtr
whenJust nameAcquiredClosure touchManagedPtr
whenJust nameLostClosure touchManagedPtr
freeMem name'
return result
-- function g_bus_get_sync
-- Args : [Arg {argCName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gio" "DBusConnection"
-- throws : True
-- Skip return : False
foreign import ccall "g_bus_get_sync" g_bus_get_sync ::
CUInt -> -- bus_type : TInterface "Gio" "BusType"
Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
Ptr (Ptr GError) -> -- error
IO (Ptr DBusConnection)
busGetSync ::
(MonadIO m, CancellableK a) =>
BusType -- busType
-> Maybe (a) -- cancellable
-> m DBusConnection -- result
busGetSync busType cancellable = liftIO $ do
let busType' = (fromIntegral . fromEnum) busType
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
result <- propagateGError $ g_bus_get_sync busType' maybeCancellable
checkUnexpectedReturnNULL "g_bus_get_sync" result
result' <- (wrapObject DBusConnection) result
whenJust cancellable touchManagedPtr
return result'
) (do
return ()
)
-- function g_bus_get_finish
-- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TInterface "Gio" "DBusConnection"
-- throws : True
-- Skip return : False
foreign import ccall "g_bus_get_finish" g_bus_get_finish ::
Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult"
Ptr (Ptr GError) -> -- error
IO (Ptr DBusConnection)
busGetFinish ::
(MonadIO m, AsyncResultK a) =>
a -- res
-> m DBusConnection -- result
busGetFinish res = liftIO $ do
let res' = unsafeManagedPtrCastPtr res
onException (do
result <- propagateGError $ g_bus_get_finish res'
checkUnexpectedReturnNULL "g_bus_get_finish" result
result' <- (wrapObject DBusConnection) result
touchManagedPtr res
return result'
) (do
return ()
)
-- function g_bus_get
-- Args : [Arg {argCName = "bus_type", argType = TInterface "Gio" "BusType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_bus_get" g_bus_get ::
CUInt -> -- bus_type : TInterface "Gio" "BusType"
Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable"
FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
busGet ::
(MonadIO m, CancellableK a) =>
BusType -- busType
-> Maybe (a) -- cancellable
-> Maybe (AsyncReadyCallback) -- callback
-> m () -- result
busGet busType cancellable callback = liftIO $ do
let busType' = (fromIntegral . fromEnum) busType
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
let jCancellable' = unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr AsyncReadyCallbackC))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- mkAsyncReadyCallback (asyncReadyCallbackWrapper (Just ptrcallback) jCallback)
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
g_bus_get busType' maybeCancellable maybeCallback userData
whenJust cancellable touchManagedPtr
return ()