diff --git a/GI/Gio.hs b/GI/Gio.hs deleted file mode 100644 --- a/GI/Gio.hs +++ /dev/null @@ -1,46 +0,0 @@ - - -{- | -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 - ( module GI.Gio.Callbacks , - module GI.Gio.Constants , - module GI.Gio.Enums , - module GI.Gio.Flags , - module GI.Gio.Functions , - module GI.Gio.Interfaces , - module GI.Gio.Objects , - module GI.Gio.Structs , - - - - module Data.GI.Base , - - - ) where - -import GI.Gio.Callbacks -import GI.Gio.Constants -import GI.Gio.Enums -import GI.Gio.Flags -import GI.Gio.Functions -import GI.Gio.Interfaces -import GI.Gio.Objects -import GI.Gio.Structs - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 Data.GI.Base - diff --git a/GI/Gio/Callbacks.hs b/GI/Gio/Callbacks.hs deleted file mode 100644 --- a/GI/Gio/Callbacks.hs +++ /dev/null @@ -1,1465 +0,0 @@ - - -{- | -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.Callbacks - ( - - -- * Signals --- ** ActionEntryActivateFieldCallback - ActionEntryActivateFieldCallback , - ActionEntryActivateFieldCallbackC , - actionEntryActivateFieldCallbackClosure , - actionEntryActivateFieldCallbackWrapper , - mkActionEntryActivateFieldCallback , - noActionEntryActivateFieldCallback , - - --- ** ActionEntryChangeStateFieldCallback - ActionEntryChangeStateFieldCallback , - ActionEntryChangeStateFieldCallbackC , - actionEntryChangeStateFieldCallbackClosure, - actionEntryChangeStateFieldCallbackWrapper, - mkActionEntryChangeStateFieldCallback , - noActionEntryChangeStateFieldCallback , - - --- ** AsyncReadyCallback - AsyncReadyCallback , - AsyncReadyCallbackC , - asyncReadyCallbackClosure , - asyncReadyCallbackWrapper , - mkAsyncReadyCallback , - noAsyncReadyCallback , - - --- ** BusAcquiredCallback - BusAcquiredCallback , - BusAcquiredCallbackC , - busAcquiredCallbackClosure , - busAcquiredCallbackWrapper , - mkBusAcquiredCallback , - noBusAcquiredCallback , - - --- ** BusNameAcquiredCallback - BusNameAcquiredCallback , - BusNameAcquiredCallbackC , - busNameAcquiredCallbackClosure , - busNameAcquiredCallbackWrapper , - mkBusNameAcquiredCallback , - noBusNameAcquiredCallback , - - --- ** BusNameAppearedCallback - BusNameAppearedCallback , - BusNameAppearedCallbackC , - busNameAppearedCallbackClosure , - busNameAppearedCallbackWrapper , - mkBusNameAppearedCallback , - noBusNameAppearedCallback , - - --- ** BusNameLostCallback - BusNameLostCallback , - BusNameLostCallbackC , - busNameLostCallbackClosure , - busNameLostCallbackWrapper , - mkBusNameLostCallback , - noBusNameLostCallback , - - --- ** BusNameVanishedCallback - BusNameVanishedCallback , - BusNameVanishedCallbackC , - busNameVanishedCallbackClosure , - busNameVanishedCallbackWrapper , - mkBusNameVanishedCallback , - noBusNameVanishedCallback , - - --- ** CancellableSourceFunc - CancellableSourceFunc , - CancellableSourceFuncC , - cancellableSourceFuncClosure , - cancellableSourceFuncWrapper , - mkCancellableSourceFunc , - noCancellableSourceFunc , - - --- ** DBusInterfaceGetPropertyFunc - DBusInterfaceGetPropertyFunc , - DBusInterfaceGetPropertyFuncC , - dBusInterfaceGetPropertyFuncClosure , - dBusInterfaceGetPropertyFuncWrapper , - mkDBusInterfaceGetPropertyFunc , - noDBusInterfaceGetPropertyFunc , - - --- ** DBusInterfaceMethodCallFunc - DBusInterfaceMethodCallFunc , - DBusInterfaceMethodCallFuncC , - dBusInterfaceMethodCallFuncClosure , - dBusInterfaceMethodCallFuncWrapper , - mkDBusInterfaceMethodCallFunc , - noDBusInterfaceMethodCallFunc , - - --- ** DBusInterfaceSetPropertyFunc - DBusInterfaceSetPropertyFunc , - DBusInterfaceSetPropertyFuncC , - dBusInterfaceSetPropertyFuncClosure , - dBusInterfaceSetPropertyFuncWrapper , - mkDBusInterfaceSetPropertyFunc , - noDBusInterfaceSetPropertyFunc , - - --- ** DBusMessageFilterFunction - DBusMessageFilterFunction , - DBusMessageFilterFunctionC , - dBusMessageFilterFunctionClosure , - dBusMessageFilterFunctionWrapper , - mkDBusMessageFilterFunction , - noDBusMessageFilterFunction , - - --- ** DBusProxyTypeFunc - DBusProxyTypeFunc , - DBusProxyTypeFuncC , - dBusProxyTypeFuncClosure , - dBusProxyTypeFuncWrapper , - mkDBusProxyTypeFunc , - noDBusProxyTypeFunc , - - --- ** DBusSignalCallback - DBusSignalCallback , - DBusSignalCallbackC , - dBusSignalCallbackClosure , - dBusSignalCallbackWrapper , - mkDBusSignalCallback , - noDBusSignalCallback , - - --- ** DBusSubtreeDispatchFunc - DBusSubtreeDispatchFunc , - DBusSubtreeDispatchFuncC , - dBusSubtreeDispatchFuncClosure , - dBusSubtreeDispatchFuncWrapper , - mkDBusSubtreeDispatchFunc , - noDBusSubtreeDispatchFunc , - - --- ** DBusSubtreeIntrospectFunc - DBusSubtreeIntrospectFunc , - DBusSubtreeIntrospectFuncC , - dBusSubtreeIntrospectFuncClosure , - dBusSubtreeIntrospectFuncWrapper , - mkDBusSubtreeIntrospectFunc , - noDBusSubtreeIntrospectFunc , - - --- ** DesktopAppLaunchCallback - DesktopAppLaunchCallback , - DesktopAppLaunchCallbackC , - desktopAppLaunchCallbackClosure , - desktopAppLaunchCallbackWrapper , - mkDesktopAppLaunchCallback , - noDesktopAppLaunchCallback , - - --- ** FileMeasureProgressCallback - FileMeasureProgressCallback , - FileMeasureProgressCallbackC , - fileMeasureProgressCallbackClosure , - fileMeasureProgressCallbackWrapper , - mkFileMeasureProgressCallback , - noFileMeasureProgressCallback , - - --- ** FileProgressCallback - FileProgressCallback , - FileProgressCallbackC , - fileProgressCallbackClosure , - fileProgressCallbackWrapper , - mkFileProgressCallback , - noFileProgressCallback , - - --- ** FileReadMoreCallback - FileReadMoreCallback , - FileReadMoreCallbackC , - fileReadMoreCallbackClosure , - fileReadMoreCallbackWrapper , - mkFileReadMoreCallback , - noFileReadMoreCallback , - - --- ** IOSchedulerJobFunc - IOSchedulerJobFunc , - IOSchedulerJobFuncC , - iOSchedulerJobFuncClosure , - iOSchedulerJobFuncWrapper , - mkIOSchedulerJobFunc , - noIOSchedulerJobFunc , - - --- ** PollableSourceFunc - PollableSourceFunc , - PollableSourceFuncC , - mkPollableSourceFunc , - noPollableSourceFunc , - pollableSourceFuncClosure , - pollableSourceFuncWrapper , - - --- ** SettingsBindGetMapping - SettingsBindGetMapping , - SettingsBindGetMappingC , - mkSettingsBindGetMapping , - noSettingsBindGetMapping , - settingsBindGetMappingClosure , - settingsBindGetMappingWrapper , - - --- ** SettingsBindSetMapping - SettingsBindSetMapping , - SettingsBindSetMappingC , - mkSettingsBindSetMapping , - noSettingsBindSetMapping , - settingsBindSetMappingClosure , - settingsBindSetMappingWrapper , - - --- ** SettingsGetMapping - SettingsGetMapping , - SettingsGetMappingC , - mkSettingsGetMapping , - noSettingsGetMapping , - settingsGetMappingClosure , - settingsGetMappingWrapper , - - --- ** SimpleAsyncThreadFunc - SimpleAsyncThreadFunc , - SimpleAsyncThreadFuncC , - mkSimpleAsyncThreadFunc , - noSimpleAsyncThreadFunc , - simpleAsyncThreadFuncClosure , - simpleAsyncThreadFuncWrapper , - - --- ** SocketSourceFunc - SocketSourceFunc , - SocketSourceFuncC , - mkSocketSourceFunc , - noSocketSourceFunc , - socketSourceFuncClosure , - socketSourceFuncWrapper , - - --- ** TaskThreadFunc - TaskThreadFunc , - TaskThreadFuncC , - mkTaskThreadFunc , - noTaskThreadFunc , - taskThreadFuncClosure , - taskThreadFuncWrapper , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -import GI.Gio.Types - -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - --- callback TaskThreadFunc -taskThreadFuncClosure :: TaskThreadFunc -> IO Closure -taskThreadFuncClosure cb = newCClosure =<< mkTaskThreadFunc wrapped - where wrapped = taskThreadFuncWrapper Nothing cb - -type TaskThreadFuncC = - Ptr Task -> - Ptr GObject.Object -> - Ptr () -> - Ptr Cancellable -> - IO () - -foreign import ccall "wrapper" - mkTaskThreadFunc :: TaskThreadFuncC -> IO (FunPtr TaskThreadFuncC) - -type TaskThreadFunc = - Task -> - GObject.Object -> - Ptr () -> - Maybe Cancellable -> - IO () - -noTaskThreadFunc :: Maybe TaskThreadFunc -noTaskThreadFunc = Nothing - -taskThreadFuncWrapper :: - Maybe (Ptr (FunPtr (TaskThreadFuncC))) -> - TaskThreadFunc -> - Ptr Task -> - Ptr GObject.Object -> - Ptr () -> - Ptr Cancellable -> - IO () -taskThreadFuncWrapper funptrptr _cb task sourceObject taskData cancellable = do - task' <- (newObject Task) task - sourceObject' <- (newObject GObject.Object) sourceObject - maybeCancellable <- - if cancellable == nullPtr - then return Nothing - else do - cancellable' <- (newObject Cancellable) cancellable - return $ Just cancellable' - _cb task' sourceObject' taskData maybeCancellable - maybeReleaseFunPtr funptrptr - --- callback SocketSourceFunc -socketSourceFuncClosure :: SocketSourceFunc -> IO Closure -socketSourceFuncClosure cb = newCClosure =<< mkSocketSourceFunc wrapped - where wrapped = socketSourceFuncWrapper Nothing cb - -type SocketSourceFuncC = - Ptr Socket -> - CUInt -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkSocketSourceFunc :: SocketSourceFuncC -> IO (FunPtr SocketSourceFuncC) - -type SocketSourceFunc = - Socket -> - [GLib.IOCondition] -> - IO Bool - -noSocketSourceFunc :: Maybe SocketSourceFunc -noSocketSourceFunc = Nothing - -socketSourceFuncWrapper :: - Maybe (Ptr (FunPtr (SocketSourceFuncC))) -> - SocketSourceFunc -> - Ptr Socket -> - CUInt -> - Ptr () -> - IO CInt -socketSourceFuncWrapper funptrptr _cb socket condition _ = do - socket' <- (newObject Socket) socket - let condition' = wordToGFlags condition - result <- _cb socket' condition' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback SimpleAsyncThreadFunc -simpleAsyncThreadFuncClosure :: SimpleAsyncThreadFunc -> IO Closure -simpleAsyncThreadFuncClosure cb = newCClosure =<< mkSimpleAsyncThreadFunc wrapped - where wrapped = simpleAsyncThreadFuncWrapper Nothing cb - -type SimpleAsyncThreadFuncC = - Ptr SimpleAsyncResult -> - Ptr GObject.Object -> - Ptr Cancellable -> - IO () - -foreign import ccall "wrapper" - mkSimpleAsyncThreadFunc :: SimpleAsyncThreadFuncC -> IO (FunPtr SimpleAsyncThreadFuncC) - -type SimpleAsyncThreadFunc = - SimpleAsyncResult -> - GObject.Object -> - Maybe Cancellable -> - IO () - -noSimpleAsyncThreadFunc :: Maybe SimpleAsyncThreadFunc -noSimpleAsyncThreadFunc = Nothing - -simpleAsyncThreadFuncWrapper :: - Maybe (Ptr (FunPtr (SimpleAsyncThreadFuncC))) -> - SimpleAsyncThreadFunc -> - Ptr SimpleAsyncResult -> - Ptr GObject.Object -> - Ptr Cancellable -> - IO () -simpleAsyncThreadFuncWrapper funptrptr _cb res object cancellable = do - res' <- (newObject SimpleAsyncResult) res - object' <- (newObject GObject.Object) object - maybeCancellable <- - if cancellable == nullPtr - then return Nothing - else do - cancellable' <- (newObject Cancellable) cancellable - return $ Just cancellable' - _cb res' object' maybeCancellable - maybeReleaseFunPtr funptrptr - --- callback SettingsGetMapping -settingsGetMappingClosure :: SettingsGetMapping -> IO Closure -settingsGetMappingClosure cb = newCClosure =<< mkSettingsGetMapping wrapped - where wrapped = settingsGetMappingWrapper Nothing cb - -type SettingsGetMappingC = - Ptr GVariant -> - Ptr (Ptr ()) -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkSettingsGetMapping :: SettingsGetMappingC -> IO (FunPtr SettingsGetMappingC) - -type SettingsGetMapping = - GVariant -> - IO (Bool,(Ptr ())) - -noSettingsGetMapping :: Maybe SettingsGetMapping -noSettingsGetMapping = Nothing - -settingsGetMappingWrapper :: - Maybe (Ptr (FunPtr (SettingsGetMappingC))) -> - SettingsGetMapping -> - Ptr GVariant -> - Ptr (Ptr ()) -> - Ptr () -> - IO CInt -settingsGetMappingWrapper funptrptr _cb value result_ _ = do - value' <- newGVariantFromPtr value - (result, outresult_) <- _cb value' - poke result_ outresult_ - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback SettingsBindSetMapping -settingsBindSetMappingClosure :: SettingsBindSetMapping -> IO Closure -settingsBindSetMappingClosure cb = newCClosure =<< mkSettingsBindSetMapping wrapped - where wrapped = settingsBindSetMappingWrapper Nothing cb - -type SettingsBindSetMappingC = - Ptr GValue -> - Ptr GLib.VariantType -> - Ptr () -> - IO (Ptr GVariant) - -foreign import ccall "wrapper" - mkSettingsBindSetMapping :: SettingsBindSetMappingC -> IO (FunPtr SettingsBindSetMappingC) - -type SettingsBindSetMapping = - GValue -> - GLib.VariantType -> - IO GVariant - -noSettingsBindSetMapping :: Maybe SettingsBindSetMapping -noSettingsBindSetMapping = Nothing - -settingsBindSetMappingWrapper :: - Maybe (Ptr (FunPtr (SettingsBindSetMappingC))) -> - SettingsBindSetMapping -> - Ptr GValue -> - Ptr GLib.VariantType -> - Ptr () -> - IO (Ptr GVariant) -settingsBindSetMappingWrapper funptrptr _cb value expectedType _ = do - value' <- (newBoxed GValue) value - expectedType' <- (newBoxed GLib.VariantType) expectedType - result <- _cb value' expectedType' - maybeReleaseFunPtr funptrptr - result' <- refGVariant result - return result' - --- callback SettingsBindGetMapping -settingsBindGetMappingClosure :: SettingsBindGetMapping -> IO Closure -settingsBindGetMappingClosure cb = newCClosure =<< mkSettingsBindGetMapping wrapped - where wrapped = settingsBindGetMappingWrapper Nothing cb - -type SettingsBindGetMappingC = - Ptr GValue -> - Ptr GVariant -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkSettingsBindGetMapping :: SettingsBindGetMappingC -> IO (FunPtr SettingsBindGetMappingC) - -type SettingsBindGetMapping = - GValue -> - GVariant -> - IO Bool - -noSettingsBindGetMapping :: Maybe SettingsBindGetMapping -noSettingsBindGetMapping = Nothing - -settingsBindGetMappingWrapper :: - Maybe (Ptr (FunPtr (SettingsBindGetMappingC))) -> - SettingsBindGetMapping -> - Ptr GValue -> - Ptr GVariant -> - Ptr () -> - IO CInt -settingsBindGetMappingWrapper funptrptr _cb value variant _ = do - value' <- (newBoxed GValue) value - variant' <- newGVariantFromPtr variant - result <- _cb value' variant' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback PollableSourceFunc -pollableSourceFuncClosure :: PollableSourceFunc -> IO Closure -pollableSourceFuncClosure cb = newCClosure =<< mkPollableSourceFunc wrapped - where wrapped = pollableSourceFuncWrapper Nothing cb - -type PollableSourceFuncC = - Ptr GObject.Object -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkPollableSourceFunc :: PollableSourceFuncC -> IO (FunPtr PollableSourceFuncC) - -type PollableSourceFunc = - GObject.Object -> - IO Bool - -noPollableSourceFunc :: Maybe PollableSourceFunc -noPollableSourceFunc = Nothing - -pollableSourceFuncWrapper :: - Maybe (Ptr (FunPtr (PollableSourceFuncC))) -> - PollableSourceFunc -> - Ptr GObject.Object -> - Ptr () -> - IO CInt -pollableSourceFuncWrapper funptrptr _cb pollableStream _ = do - pollableStream' <- (newObject GObject.Object) pollableStream - result <- _cb pollableStream' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback IOSchedulerJobFunc -iOSchedulerJobFuncClosure :: IOSchedulerJobFunc -> IO Closure -iOSchedulerJobFuncClosure cb = newCClosure =<< mkIOSchedulerJobFunc wrapped - where wrapped = iOSchedulerJobFuncWrapper Nothing cb - -type IOSchedulerJobFuncC = - Ptr IOSchedulerJob -> - Ptr Cancellable -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkIOSchedulerJobFunc :: IOSchedulerJobFuncC -> IO (FunPtr IOSchedulerJobFuncC) - -type IOSchedulerJobFunc = - IOSchedulerJob -> - Maybe Cancellable -> - IO Bool - -noIOSchedulerJobFunc :: Maybe IOSchedulerJobFunc -noIOSchedulerJobFunc = Nothing - -iOSchedulerJobFuncWrapper :: - Maybe (Ptr (FunPtr (IOSchedulerJobFuncC))) -> - IOSchedulerJobFunc -> - Ptr IOSchedulerJob -> - Ptr Cancellable -> - Ptr () -> - IO CInt -iOSchedulerJobFuncWrapper funptrptr _cb job cancellable _ = do - job' <- (newPtr IOSchedulerJob) job - maybeCancellable <- - if cancellable == nullPtr - then return Nothing - else do - cancellable' <- (newObject Cancellable) cancellable - return $ Just cancellable' - result <- _cb job' maybeCancellable - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback FileReadMoreCallback -fileReadMoreCallbackClosure :: FileReadMoreCallback -> IO Closure -fileReadMoreCallbackClosure cb = newCClosure =<< mkFileReadMoreCallback wrapped - where wrapped = fileReadMoreCallbackWrapper Nothing cb - -type FileReadMoreCallbackC = - CString -> - Int64 -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkFileReadMoreCallback :: FileReadMoreCallbackC -> IO (FunPtr FileReadMoreCallbackC) - -type FileReadMoreCallback = - T.Text -> - Int64 -> - Ptr () -> - IO Bool - -noFileReadMoreCallback :: Maybe FileReadMoreCallback -noFileReadMoreCallback = Nothing - -fileReadMoreCallbackWrapper :: - Maybe (Ptr (FunPtr (FileReadMoreCallbackC))) -> - FileReadMoreCallback -> - CString -> - Int64 -> - Ptr () -> - IO CInt -fileReadMoreCallbackWrapper funptrptr _cb fileContents fileSize callbackData = do - fileContents' <- cstringToText fileContents - result <- _cb fileContents' fileSize callbackData - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback FileProgressCallback -fileProgressCallbackClosure :: FileProgressCallback -> IO Closure -fileProgressCallbackClosure cb = newCClosure =<< mkFileProgressCallback wrapped - where wrapped = fileProgressCallbackWrapper Nothing cb - -type FileProgressCallbackC = - Int64 -> - Int64 -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkFileProgressCallback :: FileProgressCallbackC -> IO (FunPtr FileProgressCallbackC) - -type FileProgressCallback = - Int64 -> - Int64 -> - IO () - -noFileProgressCallback :: Maybe FileProgressCallback -noFileProgressCallback = Nothing - -fileProgressCallbackWrapper :: - Maybe (Ptr (FunPtr (FileProgressCallbackC))) -> - FileProgressCallback -> - Int64 -> - Int64 -> - Ptr () -> - IO () -fileProgressCallbackWrapper funptrptr _cb currentNumBytes totalNumBytes _ = do - _cb currentNumBytes totalNumBytes - maybeReleaseFunPtr funptrptr - --- callback FileMeasureProgressCallback -fileMeasureProgressCallbackClosure :: FileMeasureProgressCallback -> IO Closure -fileMeasureProgressCallbackClosure cb = newCClosure =<< mkFileMeasureProgressCallback wrapped - where wrapped = fileMeasureProgressCallbackWrapper Nothing cb - -type FileMeasureProgressCallbackC = - CInt -> - Word64 -> - Word64 -> - Word64 -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkFileMeasureProgressCallback :: FileMeasureProgressCallbackC -> IO (FunPtr FileMeasureProgressCallbackC) - -type FileMeasureProgressCallback = - Bool -> - Word64 -> - Word64 -> - Word64 -> - IO () - -noFileMeasureProgressCallback :: Maybe FileMeasureProgressCallback -noFileMeasureProgressCallback = Nothing - -fileMeasureProgressCallbackWrapper :: - Maybe (Ptr (FunPtr (FileMeasureProgressCallbackC))) -> - FileMeasureProgressCallback -> - CInt -> - Word64 -> - Word64 -> - Word64 -> - Ptr () -> - IO () -fileMeasureProgressCallbackWrapper funptrptr _cb reporting currentSize numDirs numFiles _ = do - let reporting' = (/= 0) reporting - _cb reporting' currentSize numDirs numFiles - maybeReleaseFunPtr funptrptr - --- callback DesktopAppLaunchCallback -desktopAppLaunchCallbackClosure :: DesktopAppLaunchCallback -> IO Closure -desktopAppLaunchCallbackClosure cb = newCClosure =<< mkDesktopAppLaunchCallback wrapped - where wrapped = desktopAppLaunchCallbackWrapper Nothing cb - -type DesktopAppLaunchCallbackC = - Ptr DesktopAppInfo -> - Int32 -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkDesktopAppLaunchCallback :: DesktopAppLaunchCallbackC -> IO (FunPtr DesktopAppLaunchCallbackC) - -type DesktopAppLaunchCallback = - DesktopAppInfo -> - Int32 -> - IO () - -noDesktopAppLaunchCallback :: Maybe DesktopAppLaunchCallback -noDesktopAppLaunchCallback = Nothing - -desktopAppLaunchCallbackWrapper :: - Maybe (Ptr (FunPtr (DesktopAppLaunchCallbackC))) -> - DesktopAppLaunchCallback -> - Ptr DesktopAppInfo -> - Int32 -> - Ptr () -> - IO () -desktopAppLaunchCallbackWrapper funptrptr _cb appinfo pid _ = do - appinfo' <- (newObject DesktopAppInfo) appinfo - _cb appinfo' pid - maybeReleaseFunPtr funptrptr - --- callback DBusSubtreeIntrospectFunc -dBusSubtreeIntrospectFuncClosure :: DBusSubtreeIntrospectFunc -> IO Closure -dBusSubtreeIntrospectFuncClosure cb = newCClosure =<< mkDBusSubtreeIntrospectFunc wrapped - where wrapped = dBusSubtreeIntrospectFuncWrapper Nothing cb - -type DBusSubtreeIntrospectFuncC = - Ptr DBusConnection -> - CString -> - CString -> - CString -> - Ptr () -> - IO (Ptr DBusInterfaceInfo) - -foreign import ccall "wrapper" - mkDBusSubtreeIntrospectFunc :: DBusSubtreeIntrospectFuncC -> IO (FunPtr DBusSubtreeIntrospectFuncC) - -type DBusSubtreeIntrospectFunc = - DBusConnection -> - T.Text -> - T.Text -> - T.Text -> - IO DBusInterfaceInfo - -noDBusSubtreeIntrospectFunc :: Maybe DBusSubtreeIntrospectFunc -noDBusSubtreeIntrospectFunc = Nothing - -dBusSubtreeIntrospectFuncWrapper :: - Maybe (Ptr (FunPtr (DBusSubtreeIntrospectFuncC))) -> - DBusSubtreeIntrospectFunc -> - Ptr DBusConnection -> - CString -> - CString -> - CString -> - Ptr () -> - IO (Ptr DBusInterfaceInfo) -dBusSubtreeIntrospectFuncWrapper funptrptr _cb connection sender objectPath node _ = do - connection' <- (newObject DBusConnection) connection - sender' <- cstringToText sender - objectPath' <- cstringToText objectPath - node' <- cstringToText node - result <- _cb connection' sender' objectPath' node' - maybeReleaseFunPtr funptrptr - result' <- copyBoxed result - return result' - --- callback DBusSubtreeDispatchFunc -dBusSubtreeDispatchFuncClosure :: DBusSubtreeDispatchFunc -> IO Closure -dBusSubtreeDispatchFuncClosure cb = newCClosure =<< mkDBusSubtreeDispatchFunc wrapped - where wrapped = dBusSubtreeDispatchFuncWrapper Nothing cb - -type DBusSubtreeDispatchFuncC = - Ptr DBusConnection -> - CString -> - CString -> - CString -> - CString -> - Ptr () -> - Ptr () -> - IO (Ptr DBusInterfaceVTable) - -foreign import ccall "wrapper" - mkDBusSubtreeDispatchFunc :: DBusSubtreeDispatchFuncC -> IO (FunPtr DBusSubtreeDispatchFuncC) - -type DBusSubtreeDispatchFunc = - DBusConnection -> - T.Text -> - T.Text -> - T.Text -> - T.Text -> - Ptr () -> - IO DBusInterfaceVTable - -noDBusSubtreeDispatchFunc :: Maybe DBusSubtreeDispatchFunc -noDBusSubtreeDispatchFunc = Nothing - -dBusSubtreeDispatchFuncWrapper :: - Maybe (Ptr (FunPtr (DBusSubtreeDispatchFuncC))) -> - DBusSubtreeDispatchFunc -> - Ptr DBusConnection -> - CString -> - CString -> - CString -> - CString -> - Ptr () -> - Ptr () -> - IO (Ptr DBusInterfaceVTable) -dBusSubtreeDispatchFuncWrapper funptrptr _cb connection sender objectPath interfaceName node outUserData _ = do - connection' <- (newObject DBusConnection) connection - sender' <- cstringToText sender - objectPath' <- cstringToText objectPath - interfaceName' <- cstringToText interfaceName - node' <- cstringToText node - result <- _cb connection' sender' objectPath' interfaceName' node' outUserData - maybeReleaseFunPtr funptrptr - let result' = unsafeManagedPtrGetPtr result - return result' - --- callback DBusSignalCallback -dBusSignalCallbackClosure :: DBusSignalCallback -> IO Closure -dBusSignalCallbackClosure cb = newCClosure =<< mkDBusSignalCallback wrapped - where wrapped = dBusSignalCallbackWrapper Nothing cb - -type DBusSignalCallbackC = - Ptr DBusConnection -> - CString -> - CString -> - CString -> - CString -> - Ptr GVariant -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkDBusSignalCallback :: DBusSignalCallbackC -> IO (FunPtr DBusSignalCallbackC) - -type DBusSignalCallback = - DBusConnection -> - T.Text -> - T.Text -> - T.Text -> - T.Text -> - GVariant -> - IO () - -noDBusSignalCallback :: Maybe DBusSignalCallback -noDBusSignalCallback = Nothing - -dBusSignalCallbackWrapper :: - Maybe (Ptr (FunPtr (DBusSignalCallbackC))) -> - DBusSignalCallback -> - Ptr DBusConnection -> - CString -> - CString -> - CString -> - CString -> - Ptr GVariant -> - Ptr () -> - IO () -dBusSignalCallbackWrapper funptrptr _cb connection senderName objectPath interfaceName signalName parameters _ = do - connection' <- (newObject DBusConnection) connection - senderName' <- cstringToText senderName - objectPath' <- cstringToText objectPath - interfaceName' <- cstringToText interfaceName - signalName' <- cstringToText signalName - parameters' <- newGVariantFromPtr parameters - _cb connection' senderName' objectPath' interfaceName' signalName' parameters' - maybeReleaseFunPtr funptrptr - --- callback DBusProxyTypeFunc -dBusProxyTypeFuncClosure :: DBusProxyTypeFunc -> IO Closure -dBusProxyTypeFuncClosure cb = newCClosure =<< mkDBusProxyTypeFunc wrapped - where wrapped = dBusProxyTypeFuncWrapper Nothing cb - -type DBusProxyTypeFuncC = - Ptr DBusObjectManagerClient -> - CString -> - CString -> - Ptr () -> - IO CGType - -foreign import ccall "wrapper" - mkDBusProxyTypeFunc :: DBusProxyTypeFuncC -> IO (FunPtr DBusProxyTypeFuncC) - -type DBusProxyTypeFunc = - DBusObjectManagerClient -> - T.Text -> - Maybe T.Text -> - IO GType - -noDBusProxyTypeFunc :: Maybe DBusProxyTypeFunc -noDBusProxyTypeFunc = Nothing - -dBusProxyTypeFuncWrapper :: - Maybe (Ptr (FunPtr (DBusProxyTypeFuncC))) -> - DBusProxyTypeFunc -> - Ptr DBusObjectManagerClient -> - CString -> - CString -> - Ptr () -> - IO CGType -dBusProxyTypeFuncWrapper funptrptr _cb manager objectPath interfaceName _ = do - manager' <- (newObject DBusObjectManagerClient) manager - objectPath' <- cstringToText objectPath - maybeInterfaceName <- - if interfaceName == nullPtr - then return Nothing - else do - interfaceName' <- cstringToText interfaceName - return $ Just interfaceName' - result <- _cb manager' objectPath' maybeInterfaceName - maybeReleaseFunPtr funptrptr - let result' = gtypeToCGType result - return result' - --- callback DBusMessageFilterFunction -dBusMessageFilterFunctionClosure :: DBusMessageFilterFunction -> IO Closure -dBusMessageFilterFunctionClosure cb = newCClosure =<< mkDBusMessageFilterFunction wrapped - where wrapped = dBusMessageFilterFunctionWrapper Nothing cb - -type DBusMessageFilterFunctionC = - Ptr DBusConnection -> - Ptr DBusMessage -> - CInt -> - Ptr () -> - IO (Ptr DBusMessage) - -foreign import ccall "wrapper" - mkDBusMessageFilterFunction :: DBusMessageFilterFunctionC -> IO (FunPtr DBusMessageFilterFunctionC) - -type DBusMessageFilterFunction = - DBusConnection -> - DBusMessage -> - Bool -> - IO DBusMessage - -noDBusMessageFilterFunction :: Maybe DBusMessageFilterFunction -noDBusMessageFilterFunction = Nothing - -dBusMessageFilterFunctionWrapper :: - Maybe (Ptr (FunPtr (DBusMessageFilterFunctionC))) -> - DBusMessageFilterFunction -> - Ptr DBusConnection -> - Ptr DBusMessage -> - CInt -> - Ptr () -> - IO (Ptr DBusMessage) -dBusMessageFilterFunctionWrapper funptrptr _cb connection message incoming _ = do - connection' <- (newObject DBusConnection) connection - message' <- (wrapObject DBusMessage) message - let incoming' = (/= 0) incoming - result <- _cb connection' message' incoming' - maybeReleaseFunPtr funptrptr - result' <- refObject result - return result' - --- callback DBusInterfaceSetPropertyFunc -dBusInterfaceSetPropertyFuncClosure :: DBusInterfaceSetPropertyFunc -> IO Closure -dBusInterfaceSetPropertyFuncClosure cb = newCClosure =<< mkDBusInterfaceSetPropertyFunc wrapped - where wrapped = dBusInterfaceSetPropertyFuncWrapper Nothing cb - -type DBusInterfaceSetPropertyFuncC = - Ptr DBusConnection -> - CString -> - CString -> - CString -> - CString -> - Ptr GVariant -> - Ptr GError -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkDBusInterfaceSetPropertyFunc :: DBusInterfaceSetPropertyFuncC -> IO (FunPtr DBusInterfaceSetPropertyFuncC) - -type DBusInterfaceSetPropertyFunc = - DBusConnection -> - T.Text -> - T.Text -> - T.Text -> - T.Text -> - GVariant -> - GError -> - IO Bool - -noDBusInterfaceSetPropertyFunc :: Maybe DBusInterfaceSetPropertyFunc -noDBusInterfaceSetPropertyFunc = Nothing - -dBusInterfaceSetPropertyFuncWrapper :: - Maybe (Ptr (FunPtr (DBusInterfaceSetPropertyFuncC))) -> - DBusInterfaceSetPropertyFunc -> - Ptr DBusConnection -> - CString -> - CString -> - CString -> - CString -> - Ptr GVariant -> - Ptr GError -> - Ptr () -> - IO CInt -dBusInterfaceSetPropertyFuncWrapper funptrptr _cb connection sender objectPath interfaceName propertyName value error_ _ = do - connection' <- (newObject DBusConnection) connection - sender' <- cstringToText sender - objectPath' <- cstringToText objectPath - interfaceName' <- cstringToText interfaceName - propertyName' <- cstringToText propertyName - value' <- newGVariantFromPtr value - error_' <- (newBoxed GError) error_ - result <- _cb connection' sender' objectPath' interfaceName' propertyName' value' error_' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback DBusInterfaceMethodCallFunc -dBusInterfaceMethodCallFuncClosure :: DBusInterfaceMethodCallFunc -> IO Closure -dBusInterfaceMethodCallFuncClosure cb = newCClosure =<< mkDBusInterfaceMethodCallFunc wrapped - where wrapped = dBusInterfaceMethodCallFuncWrapper Nothing cb - -type DBusInterfaceMethodCallFuncC = - Ptr DBusConnection -> - CString -> - CString -> - CString -> - CString -> - Ptr GVariant -> - Ptr DBusMethodInvocation -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkDBusInterfaceMethodCallFunc :: DBusInterfaceMethodCallFuncC -> IO (FunPtr DBusInterfaceMethodCallFuncC) - -type DBusInterfaceMethodCallFunc = - DBusConnection -> - T.Text -> - T.Text -> - T.Text -> - T.Text -> - GVariant -> - DBusMethodInvocation -> - IO () - -noDBusInterfaceMethodCallFunc :: Maybe DBusInterfaceMethodCallFunc -noDBusInterfaceMethodCallFunc = Nothing - -dBusInterfaceMethodCallFuncWrapper :: - Maybe (Ptr (FunPtr (DBusInterfaceMethodCallFuncC))) -> - DBusInterfaceMethodCallFunc -> - Ptr DBusConnection -> - CString -> - CString -> - CString -> - CString -> - Ptr GVariant -> - Ptr DBusMethodInvocation -> - Ptr () -> - IO () -dBusInterfaceMethodCallFuncWrapper funptrptr _cb connection sender objectPath interfaceName methodName parameters invocation _ = do - connection' <- (newObject DBusConnection) connection - sender' <- cstringToText sender - objectPath' <- cstringToText objectPath - interfaceName' <- cstringToText interfaceName - methodName' <- cstringToText methodName - parameters' <- newGVariantFromPtr parameters - invocation' <- (wrapObject DBusMethodInvocation) invocation - _cb connection' sender' objectPath' interfaceName' methodName' parameters' invocation' - maybeReleaseFunPtr funptrptr - --- callback DBusInterfaceGetPropertyFunc -dBusInterfaceGetPropertyFuncClosure :: DBusInterfaceGetPropertyFunc -> IO Closure -dBusInterfaceGetPropertyFuncClosure cb = newCClosure =<< mkDBusInterfaceGetPropertyFunc wrapped - where wrapped = dBusInterfaceGetPropertyFuncWrapper Nothing cb - -type DBusInterfaceGetPropertyFuncC = - Ptr DBusConnection -> - CString -> - CString -> - CString -> - CString -> - Ptr GError -> - Ptr () -> - IO (Ptr GVariant) - -foreign import ccall "wrapper" - mkDBusInterfaceGetPropertyFunc :: DBusInterfaceGetPropertyFuncC -> IO (FunPtr DBusInterfaceGetPropertyFuncC) - -type DBusInterfaceGetPropertyFunc = - DBusConnection -> - T.Text -> - T.Text -> - T.Text -> - T.Text -> - GError -> - IO GVariant - -noDBusInterfaceGetPropertyFunc :: Maybe DBusInterfaceGetPropertyFunc -noDBusInterfaceGetPropertyFunc = Nothing - -dBusInterfaceGetPropertyFuncWrapper :: - Maybe (Ptr (FunPtr (DBusInterfaceGetPropertyFuncC))) -> - DBusInterfaceGetPropertyFunc -> - Ptr DBusConnection -> - CString -> - CString -> - CString -> - CString -> - Ptr GError -> - Ptr () -> - IO (Ptr GVariant) -dBusInterfaceGetPropertyFuncWrapper funptrptr _cb connection sender objectPath interfaceName propertyName error_ _ = do - connection' <- (newObject DBusConnection) connection - sender' <- cstringToText sender - objectPath' <- cstringToText objectPath - interfaceName' <- cstringToText interfaceName - propertyName' <- cstringToText propertyName - error_' <- (newBoxed GError) error_ - result <- _cb connection' sender' objectPath' interfaceName' propertyName' error_' - maybeReleaseFunPtr funptrptr - result' <- refGVariant result - return result' - --- callback CancellableSourceFunc -cancellableSourceFuncClosure :: CancellableSourceFunc -> IO Closure -cancellableSourceFuncClosure cb = newCClosure =<< mkCancellableSourceFunc wrapped - where wrapped = cancellableSourceFuncWrapper Nothing cb - -type CancellableSourceFuncC = - Ptr Cancellable -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkCancellableSourceFunc :: CancellableSourceFuncC -> IO (FunPtr CancellableSourceFuncC) - -type CancellableSourceFunc = - Maybe Cancellable -> - IO Bool - -noCancellableSourceFunc :: Maybe CancellableSourceFunc -noCancellableSourceFunc = Nothing - -cancellableSourceFuncWrapper :: - Maybe (Ptr (FunPtr (CancellableSourceFuncC))) -> - CancellableSourceFunc -> - Ptr Cancellable -> - Ptr () -> - IO CInt -cancellableSourceFuncWrapper funptrptr _cb cancellable _ = do - maybeCancellable <- - if cancellable == nullPtr - then return Nothing - else do - cancellable' <- (newObject Cancellable) cancellable - return $ Just cancellable' - result <- _cb maybeCancellable - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback BusNameVanishedCallback -busNameVanishedCallbackClosure :: BusNameVanishedCallback -> IO Closure -busNameVanishedCallbackClosure cb = newCClosure =<< mkBusNameVanishedCallback wrapped - where wrapped = busNameVanishedCallbackWrapper Nothing cb - -type BusNameVanishedCallbackC = - Ptr DBusConnection -> - CString -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkBusNameVanishedCallback :: BusNameVanishedCallbackC -> IO (FunPtr BusNameVanishedCallbackC) - -type BusNameVanishedCallback = - DBusConnection -> - T.Text -> - IO () - -noBusNameVanishedCallback :: Maybe BusNameVanishedCallback -noBusNameVanishedCallback = Nothing - -busNameVanishedCallbackWrapper :: - Maybe (Ptr (FunPtr (BusNameVanishedCallbackC))) -> - BusNameVanishedCallback -> - Ptr DBusConnection -> - CString -> - Ptr () -> - IO () -busNameVanishedCallbackWrapper funptrptr _cb connection name _ = do - connection' <- (newObject DBusConnection) connection - name' <- cstringToText name - _cb connection' name' - maybeReleaseFunPtr funptrptr - --- callback BusNameLostCallback -busNameLostCallbackClosure :: BusNameLostCallback -> IO Closure -busNameLostCallbackClosure cb = newCClosure =<< mkBusNameLostCallback wrapped - where wrapped = busNameLostCallbackWrapper Nothing cb - -type BusNameLostCallbackC = - Ptr DBusConnection -> - CString -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkBusNameLostCallback :: BusNameLostCallbackC -> IO (FunPtr BusNameLostCallbackC) - -type BusNameLostCallback = - DBusConnection -> - T.Text -> - IO () - -noBusNameLostCallback :: Maybe BusNameLostCallback -noBusNameLostCallback = Nothing - -busNameLostCallbackWrapper :: - Maybe (Ptr (FunPtr (BusNameLostCallbackC))) -> - BusNameLostCallback -> - Ptr DBusConnection -> - CString -> - Ptr () -> - IO () -busNameLostCallbackWrapper funptrptr _cb connection name _ = do - connection' <- (newObject DBusConnection) connection - name' <- cstringToText name - _cb connection' name' - maybeReleaseFunPtr funptrptr - --- callback BusNameAppearedCallback -busNameAppearedCallbackClosure :: BusNameAppearedCallback -> IO Closure -busNameAppearedCallbackClosure cb = newCClosure =<< mkBusNameAppearedCallback wrapped - where wrapped = busNameAppearedCallbackWrapper Nothing cb - -type BusNameAppearedCallbackC = - Ptr DBusConnection -> - CString -> - CString -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkBusNameAppearedCallback :: BusNameAppearedCallbackC -> IO (FunPtr BusNameAppearedCallbackC) - -type BusNameAppearedCallback = - DBusConnection -> - T.Text -> - T.Text -> - IO () - -noBusNameAppearedCallback :: Maybe BusNameAppearedCallback -noBusNameAppearedCallback = Nothing - -busNameAppearedCallbackWrapper :: - Maybe (Ptr (FunPtr (BusNameAppearedCallbackC))) -> - BusNameAppearedCallback -> - Ptr DBusConnection -> - CString -> - CString -> - Ptr () -> - IO () -busNameAppearedCallbackWrapper funptrptr _cb connection name nameOwner _ = do - connection' <- (newObject DBusConnection) connection - name' <- cstringToText name - nameOwner' <- cstringToText nameOwner - _cb connection' name' nameOwner' - maybeReleaseFunPtr funptrptr - --- callback BusNameAcquiredCallback -busNameAcquiredCallbackClosure :: BusNameAcquiredCallback -> IO Closure -busNameAcquiredCallbackClosure cb = newCClosure =<< mkBusNameAcquiredCallback wrapped - where wrapped = busNameAcquiredCallbackWrapper Nothing cb - -type BusNameAcquiredCallbackC = - Ptr DBusConnection -> - CString -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkBusNameAcquiredCallback :: BusNameAcquiredCallbackC -> IO (FunPtr BusNameAcquiredCallbackC) - -type BusNameAcquiredCallback = - DBusConnection -> - T.Text -> - IO () - -noBusNameAcquiredCallback :: Maybe BusNameAcquiredCallback -noBusNameAcquiredCallback = Nothing - -busNameAcquiredCallbackWrapper :: - Maybe (Ptr (FunPtr (BusNameAcquiredCallbackC))) -> - BusNameAcquiredCallback -> - Ptr DBusConnection -> - CString -> - Ptr () -> - IO () -busNameAcquiredCallbackWrapper funptrptr _cb connection name _ = do - connection' <- (newObject DBusConnection) connection - name' <- cstringToText name - _cb connection' name' - maybeReleaseFunPtr funptrptr - --- callback BusAcquiredCallback -busAcquiredCallbackClosure :: BusAcquiredCallback -> IO Closure -busAcquiredCallbackClosure cb = newCClosure =<< mkBusAcquiredCallback wrapped - where wrapped = busAcquiredCallbackWrapper Nothing cb - -type BusAcquiredCallbackC = - Ptr DBusConnection -> - CString -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkBusAcquiredCallback :: BusAcquiredCallbackC -> IO (FunPtr BusAcquiredCallbackC) - -type BusAcquiredCallback = - DBusConnection -> - T.Text -> - IO () - -noBusAcquiredCallback :: Maybe BusAcquiredCallback -noBusAcquiredCallback = Nothing - -busAcquiredCallbackWrapper :: - Maybe (Ptr (FunPtr (BusAcquiredCallbackC))) -> - BusAcquiredCallback -> - Ptr DBusConnection -> - CString -> - Ptr () -> - IO () -busAcquiredCallbackWrapper funptrptr _cb connection name _ = do - connection' <- (newObject DBusConnection) connection - name' <- cstringToText name - _cb connection' name' - maybeReleaseFunPtr funptrptr - --- callback AsyncReadyCallback -asyncReadyCallbackClosure :: AsyncReadyCallback -> IO Closure -asyncReadyCallbackClosure cb = newCClosure =<< mkAsyncReadyCallback wrapped - where wrapped = asyncReadyCallbackWrapper Nothing cb - -type AsyncReadyCallbackC = - Ptr GObject.Object -> - Ptr AsyncResult -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkAsyncReadyCallback :: AsyncReadyCallbackC -> IO (FunPtr AsyncReadyCallbackC) - -type AsyncReadyCallback = - GObject.Object -> - AsyncResult -> - IO () - -noAsyncReadyCallback :: Maybe AsyncReadyCallback -noAsyncReadyCallback = Nothing - -asyncReadyCallbackWrapper :: - Maybe (Ptr (FunPtr (AsyncReadyCallbackC))) -> - AsyncReadyCallback -> - Ptr GObject.Object -> - Ptr AsyncResult -> - Ptr () -> - IO () -asyncReadyCallbackWrapper funptrptr _cb sourceObject res _ = do - sourceObject' <- (newObject GObject.Object) sourceObject - res' <- (newObject AsyncResult) res - _cb sourceObject' res' - maybeReleaseFunPtr funptrptr - --- callback ActionEntryChangeStateFieldCallback -actionEntryChangeStateFieldCallbackClosure :: ActionEntryChangeStateFieldCallback -> IO Closure -actionEntryChangeStateFieldCallbackClosure cb = newCClosure =<< mkActionEntryChangeStateFieldCallback wrapped - where wrapped = actionEntryChangeStateFieldCallbackWrapper Nothing cb - -type ActionEntryChangeStateFieldCallbackC = - Ptr SimpleAction -> - Ptr GVariant -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkActionEntryChangeStateFieldCallback :: ActionEntryChangeStateFieldCallbackC -> IO (FunPtr ActionEntryChangeStateFieldCallbackC) - -type ActionEntryChangeStateFieldCallback = - SimpleAction -> - GVariant -> - IO () - -noActionEntryChangeStateFieldCallback :: Maybe ActionEntryChangeStateFieldCallback -noActionEntryChangeStateFieldCallback = Nothing - -actionEntryChangeStateFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (ActionEntryChangeStateFieldCallbackC))) -> - ActionEntryChangeStateFieldCallback -> - Ptr SimpleAction -> - Ptr GVariant -> - Ptr () -> - IO () -actionEntryChangeStateFieldCallbackWrapper funptrptr _cb action value _ = do - action' <- (newObject SimpleAction) action - value' <- newGVariantFromPtr value - _cb action' value' - maybeReleaseFunPtr funptrptr - --- callback ActionEntryActivateFieldCallback -actionEntryActivateFieldCallbackClosure :: ActionEntryActivateFieldCallback -> IO Closure -actionEntryActivateFieldCallbackClosure cb = newCClosure =<< mkActionEntryActivateFieldCallback wrapped - where wrapped = actionEntryActivateFieldCallbackWrapper Nothing cb - -type ActionEntryActivateFieldCallbackC = - Ptr SimpleAction -> - Ptr GVariant -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkActionEntryActivateFieldCallback :: ActionEntryActivateFieldCallbackC -> IO (FunPtr ActionEntryActivateFieldCallbackC) - -type ActionEntryActivateFieldCallback = - SimpleAction -> - GVariant -> - IO () - -noActionEntryActivateFieldCallback :: Maybe ActionEntryActivateFieldCallback -noActionEntryActivateFieldCallback = Nothing - -actionEntryActivateFieldCallbackWrapper :: - Maybe (Ptr (FunPtr (ActionEntryActivateFieldCallbackC))) -> - ActionEntryActivateFieldCallback -> - Ptr SimpleAction -> - Ptr GVariant -> - Ptr () -> - IO () -actionEntryActivateFieldCallbackWrapper funptrptr _cb action parameter _ = do - action' <- (newObject SimpleAction) action - parameter' <- newGVariantFromPtr parameter - _cb action' parameter' - maybeReleaseFunPtr funptrptr - - diff --git a/GI/Gio/Constants.hs b/GI/Gio/Constants.hs deleted file mode 100644 --- a/GI/Gio/Constants.hs +++ /dev/null @@ -1,433 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} - - -{- | -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.Constants - ( - pattern VOLUME_MONITOR_EXTENSION_POINT_NAME, - pattern VOLUME_IDENTIFIER_KIND_UUID , - pattern VOLUME_IDENTIFIER_KIND_UNIX_DEVICE, - pattern VOLUME_IDENTIFIER_KIND_NFS_MOUNT, - pattern VOLUME_IDENTIFIER_KIND_LABEL , - pattern VOLUME_IDENTIFIER_KIND_HAL_UDI , - pattern VOLUME_IDENTIFIER_KIND_CLASS , - pattern VFS_EXTENSION_POINT_NAME , - pattern TLS_DATABASE_PURPOSE_AUTHENTICATE_SERVER, - pattern TLS_DATABASE_PURPOSE_AUTHENTICATE_CLIENT, - pattern TLS_BACKEND_EXTENSION_POINT_NAME, - pattern PROXY_RESOLVER_EXTENSION_POINT_NAME, - pattern PROXY_EXTENSION_POINT_NAME , - pattern NETWORK_MONITOR_EXTENSION_POINT_NAME, - pattern NATIVE_VOLUME_MONITOR_EXTENSION_POINT_NAME, - pattern MENU_LINK_SUBMENU , - pattern MENU_LINK_SECTION , - pattern MENU_ATTRIBUTE_TARGET , - pattern MENU_ATTRIBUTE_LABEL , - pattern MENU_ATTRIBUTE_ICON , - pattern MENU_ATTRIBUTE_ACTION_NAMESPACE , - pattern MENU_ATTRIBUTE_ACTION , - pattern FILE_ATTRIBUTE_UNIX_UID , - pattern FILE_ATTRIBUTE_UNIX_RDEV , - pattern FILE_ATTRIBUTE_UNIX_NLINK , - pattern FILE_ATTRIBUTE_UNIX_MODE , - pattern FILE_ATTRIBUTE_UNIX_IS_MOUNTPOINT, - pattern FILE_ATTRIBUTE_UNIX_INODE , - pattern FILE_ATTRIBUTE_UNIX_GID , - pattern FILE_ATTRIBUTE_UNIX_DEVICE , - pattern FILE_ATTRIBUTE_UNIX_BLOCK_SIZE , - pattern FILE_ATTRIBUTE_UNIX_BLOCKS , - pattern FILE_ATTRIBUTE_TRASH_ORIG_PATH , - pattern FILE_ATTRIBUTE_TRASH_ITEM_COUNT , - pattern FILE_ATTRIBUTE_TRASH_DELETION_DATE, - pattern FILE_ATTRIBUTE_TIME_MODIFIED_USEC, - pattern FILE_ATTRIBUTE_TIME_MODIFIED , - pattern FILE_ATTRIBUTE_TIME_CREATED_USEC, - pattern FILE_ATTRIBUTE_TIME_CREATED , - pattern FILE_ATTRIBUTE_TIME_CHANGED_USEC, - pattern FILE_ATTRIBUTE_TIME_CHANGED , - pattern FILE_ATTRIBUTE_TIME_ACCESS_USEC , - pattern FILE_ATTRIBUTE_TIME_ACCESS , - pattern FILE_ATTRIBUTE_THUMBNAIL_PATH , - pattern FILE_ATTRIBUTE_THUMBNAIL_IS_VALID, - pattern FILE_ATTRIBUTE_THUMBNAILING_FAILED, - pattern FILE_ATTRIBUTE_STANDARD_TYPE , - pattern FILE_ATTRIBUTE_STANDARD_TARGET_URI, - pattern FILE_ATTRIBUTE_STANDARD_SYMLINK_TARGET, - pattern FILE_ATTRIBUTE_STANDARD_SYMBOLIC_ICON, - pattern FILE_ATTRIBUTE_STANDARD_SORT_ORDER, - pattern FILE_ATTRIBUTE_STANDARD_SIZE , - pattern FILE_ATTRIBUTE_STANDARD_NAME , - pattern FILE_ATTRIBUTE_STANDARD_IS_VOLATILE, - pattern FILE_ATTRIBUTE_STANDARD_IS_VIRTUAL, - pattern FILE_ATTRIBUTE_STANDARD_IS_SYMLINK, - pattern FILE_ATTRIBUTE_STANDARD_IS_HIDDEN, - pattern FILE_ATTRIBUTE_STANDARD_IS_BACKUP, - pattern FILE_ATTRIBUTE_STANDARD_ICON , - pattern FILE_ATTRIBUTE_STANDARD_FAST_CONTENT_TYPE, - pattern FILE_ATTRIBUTE_STANDARD_EDIT_NAME, - pattern FILE_ATTRIBUTE_STANDARD_DISPLAY_NAME, - pattern FILE_ATTRIBUTE_STANDARD_DESCRIPTION, - pattern FILE_ATTRIBUTE_STANDARD_COPY_NAME, - pattern FILE_ATTRIBUTE_STANDARD_CONTENT_TYPE, - pattern FILE_ATTRIBUTE_STANDARD_ALLOCATED_SIZE, - pattern FILE_ATTRIBUTE_SELINUX_CONTEXT , - pattern FILE_ATTRIBUTE_PREVIEW_ICON , - pattern FILE_ATTRIBUTE_OWNER_USER_REAL , - pattern FILE_ATTRIBUTE_OWNER_USER , - pattern FILE_ATTRIBUTE_OWNER_GROUP , - pattern FILE_ATTRIBUTE_MOUNTABLE_UNIX_DEVICE_FILE, - pattern FILE_ATTRIBUTE_MOUNTABLE_UNIX_DEVICE, - pattern FILE_ATTRIBUTE_MOUNTABLE_START_STOP_TYPE, - pattern FILE_ATTRIBUTE_MOUNTABLE_IS_MEDIA_CHECK_AUTOMATIC, - pattern FILE_ATTRIBUTE_MOUNTABLE_HAL_UDI, - pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_UNMOUNT, - pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_STOP, - pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_START_DEGRADED, - pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_START, - pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_POLL, - pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_MOUNT, - pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_EJECT, - pattern FILE_ATTRIBUTE_ID_FILESYSTEM , - pattern FILE_ATTRIBUTE_ID_FILE , - pattern FILE_ATTRIBUTE_GVFS_BACKEND , - pattern FILE_ATTRIBUTE_FILESYSTEM_USE_PREVIEW, - pattern FILE_ATTRIBUTE_FILESYSTEM_USED , - pattern FILE_ATTRIBUTE_FILESYSTEM_TYPE , - pattern FILE_ATTRIBUTE_FILESYSTEM_SIZE , - pattern FILE_ATTRIBUTE_FILESYSTEM_READONLY, - pattern FILE_ATTRIBUTE_FILESYSTEM_FREE , - pattern FILE_ATTRIBUTE_ETAG_VALUE , - pattern FILE_ATTRIBUTE_DOS_IS_SYSTEM , - pattern FILE_ATTRIBUTE_DOS_IS_ARCHIVE , - pattern FILE_ATTRIBUTE_ACCESS_CAN_WRITE , - pattern FILE_ATTRIBUTE_ACCESS_CAN_TRASH , - pattern FILE_ATTRIBUTE_ACCESS_CAN_RENAME, - pattern FILE_ATTRIBUTE_ACCESS_CAN_READ , - pattern FILE_ATTRIBUTE_ACCESS_CAN_EXECUTE, - pattern FILE_ATTRIBUTE_ACCESS_CAN_DELETE, - pattern DESKTOP_APP_INFO_LOOKUP_EXTENSION_POINT_NAME, - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - -pattern VOLUME_MONITOR_EXTENSION_POINT_NAME = "gio-volume-monitor" :: T.Text - - -pattern VOLUME_IDENTIFIER_KIND_UUID = "uuid" :: T.Text - - -pattern VOLUME_IDENTIFIER_KIND_UNIX_DEVICE = "unix-device" :: T.Text - - -pattern VOLUME_IDENTIFIER_KIND_NFS_MOUNT = "nfs-mount" :: T.Text - - -pattern VOLUME_IDENTIFIER_KIND_LABEL = "label" :: T.Text - - -pattern VOLUME_IDENTIFIER_KIND_HAL_UDI = "hal-udi" :: T.Text - - -pattern VOLUME_IDENTIFIER_KIND_CLASS = "class" :: T.Text - - -pattern VFS_EXTENSION_POINT_NAME = "gio-vfs" :: T.Text - - -pattern TLS_DATABASE_PURPOSE_AUTHENTICATE_SERVER = "1.3.6.1.5.5.7.3.1" :: T.Text - - -pattern TLS_DATABASE_PURPOSE_AUTHENTICATE_CLIENT = "1.3.6.1.5.5.7.3.2" :: T.Text - - -pattern TLS_BACKEND_EXTENSION_POINT_NAME = "gio-tls-backend" :: T.Text - - -pattern PROXY_RESOLVER_EXTENSION_POINT_NAME = "gio-proxy-resolver" :: T.Text - - -pattern PROXY_EXTENSION_POINT_NAME = "gio-proxy" :: T.Text - - -pattern NETWORK_MONITOR_EXTENSION_POINT_NAME = "gio-network-monitor" :: T.Text - - -pattern NATIVE_VOLUME_MONITOR_EXTENSION_POINT_NAME = "gio-native-volume-monitor" :: T.Text - - -pattern MENU_LINK_SUBMENU = "submenu" :: T.Text - - -pattern MENU_LINK_SECTION = "section" :: T.Text - - -pattern MENU_ATTRIBUTE_TARGET = "target" :: T.Text - - -pattern MENU_ATTRIBUTE_LABEL = "label" :: T.Text - - -pattern MENU_ATTRIBUTE_ICON = "icon" :: T.Text - - -pattern MENU_ATTRIBUTE_ACTION_NAMESPACE = "action-namespace" :: T.Text - - -pattern MENU_ATTRIBUTE_ACTION = "action" :: T.Text - - -pattern FILE_ATTRIBUTE_UNIX_UID = "unix::uid" :: T.Text - - -pattern FILE_ATTRIBUTE_UNIX_RDEV = "unix::rdev" :: T.Text - - -pattern FILE_ATTRIBUTE_UNIX_NLINK = "unix::nlink" :: T.Text - - -pattern FILE_ATTRIBUTE_UNIX_MODE = "unix::mode" :: T.Text - - -pattern FILE_ATTRIBUTE_UNIX_IS_MOUNTPOINT = "unix::is-mountpoint" :: T.Text - - -pattern FILE_ATTRIBUTE_UNIX_INODE = "unix::inode" :: T.Text - - -pattern FILE_ATTRIBUTE_UNIX_GID = "unix::gid" :: T.Text - - -pattern FILE_ATTRIBUTE_UNIX_DEVICE = "unix::device" :: T.Text - - -pattern FILE_ATTRIBUTE_UNIX_BLOCK_SIZE = "unix::block-size" :: T.Text - - -pattern FILE_ATTRIBUTE_UNIX_BLOCKS = "unix::blocks" :: T.Text - - -pattern FILE_ATTRIBUTE_TRASH_ORIG_PATH = "trash::orig-path" :: T.Text - - -pattern FILE_ATTRIBUTE_TRASH_ITEM_COUNT = "trash::item-count" :: T.Text - - -pattern FILE_ATTRIBUTE_TRASH_DELETION_DATE = "trash::deletion-date" :: T.Text - - -pattern FILE_ATTRIBUTE_TIME_MODIFIED_USEC = "time::modified-usec" :: T.Text - - -pattern FILE_ATTRIBUTE_TIME_MODIFIED = "time::modified" :: T.Text - - -pattern FILE_ATTRIBUTE_TIME_CREATED_USEC = "time::created-usec" :: T.Text - - -pattern FILE_ATTRIBUTE_TIME_CREATED = "time::created" :: T.Text - - -pattern FILE_ATTRIBUTE_TIME_CHANGED_USEC = "time::changed-usec" :: T.Text - - -pattern FILE_ATTRIBUTE_TIME_CHANGED = "time::changed" :: T.Text - - -pattern FILE_ATTRIBUTE_TIME_ACCESS_USEC = "time::access-usec" :: T.Text - - -pattern FILE_ATTRIBUTE_TIME_ACCESS = "time::access" :: T.Text - - -pattern FILE_ATTRIBUTE_THUMBNAIL_PATH = "thumbnail::path" :: T.Text - - -pattern FILE_ATTRIBUTE_THUMBNAIL_IS_VALID = "thumbnail::is-valid" :: T.Text - - -pattern FILE_ATTRIBUTE_THUMBNAILING_FAILED = "thumbnail::failed" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_TYPE = "standard::type" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_TARGET_URI = "standard::target-uri" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_SYMLINK_TARGET = "standard::symlink-target" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_SYMBOLIC_ICON = "standard::symbolic-icon" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_SORT_ORDER = "standard::sort-order" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_SIZE = "standard::size" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_NAME = "standard::name" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_IS_VOLATILE = "standard::is-volatile" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_IS_VIRTUAL = "standard::is-virtual" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_IS_SYMLINK = "standard::is-symlink" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_IS_HIDDEN = "standard::is-hidden" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_IS_BACKUP = "standard::is-backup" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_ICON = "standard::icon" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_FAST_CONTENT_TYPE = "standard::fast-content-type" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_EDIT_NAME = "standard::edit-name" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_DISPLAY_NAME = "standard::display-name" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_DESCRIPTION = "standard::description" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_COPY_NAME = "standard::copy-name" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_CONTENT_TYPE = "standard::content-type" :: T.Text - - -pattern FILE_ATTRIBUTE_STANDARD_ALLOCATED_SIZE = "standard::allocated-size" :: T.Text - - -pattern FILE_ATTRIBUTE_SELINUX_CONTEXT = "selinux::context" :: T.Text - - -pattern FILE_ATTRIBUTE_PREVIEW_ICON = "preview::icon" :: T.Text - - -pattern FILE_ATTRIBUTE_OWNER_USER_REAL = "owner::user-real" :: T.Text - - -pattern FILE_ATTRIBUTE_OWNER_USER = "owner::user" :: T.Text - - -pattern FILE_ATTRIBUTE_OWNER_GROUP = "owner::group" :: T.Text - - -pattern FILE_ATTRIBUTE_MOUNTABLE_UNIX_DEVICE_FILE = "mountable::unix-device-file" :: T.Text - - -pattern FILE_ATTRIBUTE_MOUNTABLE_UNIX_DEVICE = "mountable::unix-device" :: T.Text - - -pattern FILE_ATTRIBUTE_MOUNTABLE_START_STOP_TYPE = "mountable::start-stop-type" :: T.Text - - -pattern FILE_ATTRIBUTE_MOUNTABLE_IS_MEDIA_CHECK_AUTOMATIC = "mountable::is-media-check-automatic" :: T.Text - - -pattern FILE_ATTRIBUTE_MOUNTABLE_HAL_UDI = "mountable::hal-udi" :: T.Text - - -pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_UNMOUNT = "mountable::can-unmount" :: T.Text - - -pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_STOP = "mountable::can-stop" :: T.Text - - -pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_START_DEGRADED = "mountable::can-start-degraded" :: T.Text - - -pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_START = "mountable::can-start" :: T.Text - - -pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_POLL = "mountable::can-poll" :: T.Text - - -pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_MOUNT = "mountable::can-mount" :: T.Text - - -pattern FILE_ATTRIBUTE_MOUNTABLE_CAN_EJECT = "mountable::can-eject" :: T.Text - - -pattern FILE_ATTRIBUTE_ID_FILESYSTEM = "id::filesystem" :: T.Text - - -pattern FILE_ATTRIBUTE_ID_FILE = "id::file" :: T.Text - - -pattern FILE_ATTRIBUTE_GVFS_BACKEND = "gvfs::backend" :: T.Text - - -pattern FILE_ATTRIBUTE_FILESYSTEM_USE_PREVIEW = "filesystem::use-preview" :: T.Text - - -pattern FILE_ATTRIBUTE_FILESYSTEM_USED = "filesystem::used" :: T.Text - - -pattern FILE_ATTRIBUTE_FILESYSTEM_TYPE = "filesystem::type" :: T.Text - - -pattern FILE_ATTRIBUTE_FILESYSTEM_SIZE = "filesystem::size" :: T.Text - - -pattern FILE_ATTRIBUTE_FILESYSTEM_READONLY = "filesystem::readonly" :: T.Text - - -pattern FILE_ATTRIBUTE_FILESYSTEM_FREE = "filesystem::free" :: T.Text - - -pattern FILE_ATTRIBUTE_ETAG_VALUE = "etag::value" :: T.Text - - -pattern FILE_ATTRIBUTE_DOS_IS_SYSTEM = "dos::is-system" :: T.Text - - -pattern FILE_ATTRIBUTE_DOS_IS_ARCHIVE = "dos::is-archive" :: T.Text - - -pattern FILE_ATTRIBUTE_ACCESS_CAN_WRITE = "access::can-write" :: T.Text - - -pattern FILE_ATTRIBUTE_ACCESS_CAN_TRASH = "access::can-trash" :: T.Text - - -pattern FILE_ATTRIBUTE_ACCESS_CAN_RENAME = "access::can-rename" :: T.Text - - -pattern FILE_ATTRIBUTE_ACCESS_CAN_READ = "access::can-read" :: T.Text - - -pattern FILE_ATTRIBUTE_ACCESS_CAN_EXECUTE = "access::can-execute" :: T.Text - - -pattern FILE_ATTRIBUTE_ACCESS_CAN_DELETE = "access::can-delete" :: T.Text - - -pattern DESKTOP_APP_INFO_LOOKUP_EXTENSION_POINT_NAME = "gio-desktop-app-info-lookup" :: T.Text - - diff --git a/GI/Gio/Enums.hs b/GI/Gio/Enums.hs deleted file mode 100644 --- a/GI/Gio/Enums.hs +++ /dev/null @@ -1,1551 +0,0 @@ - - -{- | -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.Enums - ( - catchTlsError , - handleTlsError , - catchResourceError , - handleResourceError , - catchResolverError , - handleResolverError , - catchIOErrorEnum , - handleIOErrorEnum , - catchDBusError , - handleDBusError , - --- * Exported types - ZlibCompressorFormat(..) , - UnixSocketAddressType(..) , - TlsRehandshakeMode(..) , - TlsInteractionResult(..) , - TlsError(..) , - TlsDatabaseLookupFlags(..) , - TlsCertificateRequestFlags(..) , - TlsAuthenticationMode(..) , - SocketType(..) , - SocketProtocol(..) , - SocketListenerEvent(..) , - SocketFamily(..) , - SocketClientEvent(..) , - ResourceError(..) , - ResolverRecordType(..) , - ResolverError(..) , - PasswordSave(..) , - NotificationPriority(..) , - NetworkConnectivity(..) , - MountOperationResult(..) , - IOModuleScopeFlags(..) , - IOErrorEnum(..) , - FilesystemPreviewType(..) , - FileType(..) , - FileMonitorEvent(..) , - FileAttributeType(..) , - FileAttributeStatus(..) , - EmblemOrigin(..) , - DriveStartStopType(..) , - DataStreamNewlineType(..) , - DataStreamByteOrder(..) , - DBusMessageType(..) , - DBusMessageHeaderField(..) , - DBusMessageByteOrder(..) , - DBusError(..) , - CredentialsType(..) , - ConverterResult(..) , - BusType(..) , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- Enum ZlibCompressorFormat - -data ZlibCompressorFormat = - ZlibCompressorFormatZlib - | ZlibCompressorFormatGzip - | ZlibCompressorFormatRaw - | AnotherZlibCompressorFormat Int - deriving (Show, Eq) - -instance Enum ZlibCompressorFormat where - fromEnum ZlibCompressorFormatZlib = 0 - fromEnum ZlibCompressorFormatGzip = 1 - fromEnum ZlibCompressorFormatRaw = 2 - fromEnum (AnotherZlibCompressorFormat k) = k - - toEnum 0 = ZlibCompressorFormatZlib - toEnum 1 = ZlibCompressorFormatGzip - toEnum 2 = ZlibCompressorFormatRaw - toEnum k = AnotherZlibCompressorFormat k - -foreign import ccall "g_zlib_compressor_format_get_type" c_g_zlib_compressor_format_get_type :: - IO GType - -instance BoxedEnum ZlibCompressorFormat where - boxedEnumType _ = c_g_zlib_compressor_format_get_type - --- Enum UnixSocketAddressType - -data UnixSocketAddressType = - UnixSocketAddressTypeInvalid - | UnixSocketAddressTypeAnonymous - | UnixSocketAddressTypePath - | UnixSocketAddressTypeAbstract - | UnixSocketAddressTypeAbstractPadded - | AnotherUnixSocketAddressType Int - deriving (Show, Eq) - -instance Enum UnixSocketAddressType where - fromEnum UnixSocketAddressTypeInvalid = 0 - fromEnum UnixSocketAddressTypeAnonymous = 1 - fromEnum UnixSocketAddressTypePath = 2 - fromEnum UnixSocketAddressTypeAbstract = 3 - fromEnum UnixSocketAddressTypeAbstractPadded = 4 - fromEnum (AnotherUnixSocketAddressType k) = k - - toEnum 0 = UnixSocketAddressTypeInvalid - toEnum 1 = UnixSocketAddressTypeAnonymous - toEnum 2 = UnixSocketAddressTypePath - toEnum 3 = UnixSocketAddressTypeAbstract - toEnum 4 = UnixSocketAddressTypeAbstractPadded - toEnum k = AnotherUnixSocketAddressType k - -foreign import ccall "g_unix_socket_address_type_get_type" c_g_unix_socket_address_type_get_type :: - IO GType - -instance BoxedEnum UnixSocketAddressType where - boxedEnumType _ = c_g_unix_socket_address_type_get_type - --- Enum TlsRehandshakeMode - -data TlsRehandshakeMode = - TlsRehandshakeModeNever - | TlsRehandshakeModeSafely - | TlsRehandshakeModeUnsafely - | AnotherTlsRehandshakeMode Int - deriving (Show, Eq) - -instance Enum TlsRehandshakeMode where - fromEnum TlsRehandshakeModeNever = 0 - fromEnum TlsRehandshakeModeSafely = 1 - fromEnum TlsRehandshakeModeUnsafely = 2 - fromEnum (AnotherTlsRehandshakeMode k) = k - - toEnum 0 = TlsRehandshakeModeNever - toEnum 1 = TlsRehandshakeModeSafely - toEnum 2 = TlsRehandshakeModeUnsafely - toEnum k = AnotherTlsRehandshakeMode k - -foreign import ccall "g_tls_rehandshake_mode_get_type" c_g_tls_rehandshake_mode_get_type :: - IO GType - -instance BoxedEnum TlsRehandshakeMode where - boxedEnumType _ = c_g_tls_rehandshake_mode_get_type - --- Enum TlsInteractionResult - -data TlsInteractionResult = - TlsInteractionResultUnhandled - | TlsInteractionResultHandled - | TlsInteractionResultFailed - | AnotherTlsInteractionResult Int - deriving (Show, Eq) - -instance Enum TlsInteractionResult where - fromEnum TlsInteractionResultUnhandled = 0 - fromEnum TlsInteractionResultHandled = 1 - fromEnum TlsInteractionResultFailed = 2 - fromEnum (AnotherTlsInteractionResult k) = k - - toEnum 0 = TlsInteractionResultUnhandled - toEnum 1 = TlsInteractionResultHandled - toEnum 2 = TlsInteractionResultFailed - toEnum k = AnotherTlsInteractionResult k - -foreign import ccall "g_tls_interaction_result_get_type" c_g_tls_interaction_result_get_type :: - IO GType - -instance BoxedEnum TlsInteractionResult where - boxedEnumType _ = c_g_tls_interaction_result_get_type - --- Enum TlsError - -data TlsError = - TlsErrorUnavailable - | TlsErrorMisc - | TlsErrorBadCertificate - | TlsErrorNotTls - | TlsErrorHandshake - | TlsErrorCertificateRequired - | TlsErrorEof - | AnotherTlsError Int - deriving (Show, Eq) - -instance Enum TlsError where - fromEnum TlsErrorUnavailable = 0 - fromEnum TlsErrorMisc = 1 - fromEnum TlsErrorBadCertificate = 2 - fromEnum TlsErrorNotTls = 3 - fromEnum TlsErrorHandshake = 4 - fromEnum TlsErrorCertificateRequired = 5 - fromEnum TlsErrorEof = 6 - fromEnum (AnotherTlsError k) = k - - toEnum 0 = TlsErrorUnavailable - toEnum 1 = TlsErrorMisc - toEnum 2 = TlsErrorBadCertificate - toEnum 3 = TlsErrorNotTls - toEnum 4 = TlsErrorHandshake - toEnum 5 = TlsErrorCertificateRequired - toEnum 6 = TlsErrorEof - toEnum k = AnotherTlsError k - -instance GErrorClass TlsError where - gerrorClassDomain _ = "g-tls-error-quark" - -catchTlsError :: - IO a -> - (TlsError -> GErrorMessage -> IO a) -> - IO a -catchTlsError = catchGErrorJustDomain - -handleTlsError :: - (TlsError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleTlsError = handleGErrorJustDomain - -foreign import ccall "g_tls_error_get_type" c_g_tls_error_get_type :: - IO GType - -instance BoxedEnum TlsError where - boxedEnumType _ = c_g_tls_error_get_type - --- Enum TlsDatabaseLookupFlags - -data TlsDatabaseLookupFlags = - TlsDatabaseLookupFlagsNone - | TlsDatabaseLookupFlagsKeypair - | AnotherTlsDatabaseLookupFlags Int - deriving (Show, Eq) - -instance Enum TlsDatabaseLookupFlags where - fromEnum TlsDatabaseLookupFlagsNone = 0 - fromEnum TlsDatabaseLookupFlagsKeypair = 1 - fromEnum (AnotherTlsDatabaseLookupFlags k) = k - - toEnum 0 = TlsDatabaseLookupFlagsNone - toEnum 1 = TlsDatabaseLookupFlagsKeypair - toEnum k = AnotherTlsDatabaseLookupFlags k - -foreign import ccall "g_tls_database_lookup_flags_get_type" c_g_tls_database_lookup_flags_get_type :: - IO GType - -instance BoxedEnum TlsDatabaseLookupFlags where - boxedEnumType _ = c_g_tls_database_lookup_flags_get_type - --- Enum TlsCertificateRequestFlags - -data TlsCertificateRequestFlags = - TlsCertificateRequestFlagsNone - | AnotherTlsCertificateRequestFlags Int - deriving (Show, Eq) - -instance Enum TlsCertificateRequestFlags where - fromEnum TlsCertificateRequestFlagsNone = 0 - fromEnum (AnotherTlsCertificateRequestFlags k) = k - - toEnum 0 = TlsCertificateRequestFlagsNone - toEnum k = AnotherTlsCertificateRequestFlags k - -foreign import ccall "g_tls_certificate_request_flags_get_type" c_g_tls_certificate_request_flags_get_type :: - IO GType - -instance BoxedEnum TlsCertificateRequestFlags where - boxedEnumType _ = c_g_tls_certificate_request_flags_get_type - --- Enum TlsAuthenticationMode - -data TlsAuthenticationMode = - TlsAuthenticationModeNone - | TlsAuthenticationModeRequested - | TlsAuthenticationModeRequired - | AnotherTlsAuthenticationMode Int - deriving (Show, Eq) - -instance Enum TlsAuthenticationMode where - fromEnum TlsAuthenticationModeNone = 0 - fromEnum TlsAuthenticationModeRequested = 1 - fromEnum TlsAuthenticationModeRequired = 2 - fromEnum (AnotherTlsAuthenticationMode k) = k - - toEnum 0 = TlsAuthenticationModeNone - toEnum 1 = TlsAuthenticationModeRequested - toEnum 2 = TlsAuthenticationModeRequired - toEnum k = AnotherTlsAuthenticationMode k - -foreign import ccall "g_tls_authentication_mode_get_type" c_g_tls_authentication_mode_get_type :: - IO GType - -instance BoxedEnum TlsAuthenticationMode where - boxedEnumType _ = c_g_tls_authentication_mode_get_type - --- Enum SocketType - -data SocketType = - SocketTypeInvalid - | SocketTypeStream - | SocketTypeDatagram - | SocketTypeSeqpacket - | AnotherSocketType Int - deriving (Show, Eq) - -instance Enum SocketType where - fromEnum SocketTypeInvalid = 0 - fromEnum SocketTypeStream = 1 - fromEnum SocketTypeDatagram = 2 - fromEnum SocketTypeSeqpacket = 3 - fromEnum (AnotherSocketType k) = k - - toEnum 0 = SocketTypeInvalid - toEnum 1 = SocketTypeStream - toEnum 2 = SocketTypeDatagram - toEnum 3 = SocketTypeSeqpacket - toEnum k = AnotherSocketType k - -foreign import ccall "g_socket_type_get_type" c_g_socket_type_get_type :: - IO GType - -instance BoxedEnum SocketType where - boxedEnumType _ = c_g_socket_type_get_type - --- Enum SocketProtocol - -data SocketProtocol = - SocketProtocolUnknown - | SocketProtocolDefault - | SocketProtocolTcp - | SocketProtocolUdp - | SocketProtocolSctp - | AnotherSocketProtocol Int - deriving (Show, Eq) - -instance Enum SocketProtocol where - fromEnum SocketProtocolUnknown = -1 - fromEnum SocketProtocolDefault = 0 - fromEnum SocketProtocolTcp = 6 - fromEnum SocketProtocolUdp = 17 - fromEnum SocketProtocolSctp = 132 - fromEnum (AnotherSocketProtocol k) = k - - toEnum -1 = SocketProtocolUnknown - toEnum 0 = SocketProtocolDefault - toEnum 6 = SocketProtocolTcp - toEnum 17 = SocketProtocolUdp - toEnum 132 = SocketProtocolSctp - toEnum k = AnotherSocketProtocol k - -foreign import ccall "g_socket_protocol_get_type" c_g_socket_protocol_get_type :: - IO GType - -instance BoxedEnum SocketProtocol where - boxedEnumType _ = c_g_socket_protocol_get_type - --- Enum SocketListenerEvent - -data SocketListenerEvent = - SocketListenerEventBinding - | SocketListenerEventBound - | SocketListenerEventListening - | SocketListenerEventListened - | AnotherSocketListenerEvent Int - deriving (Show, Eq) - -instance Enum SocketListenerEvent where - fromEnum SocketListenerEventBinding = 0 - fromEnum SocketListenerEventBound = 1 - fromEnum SocketListenerEventListening = 2 - fromEnum SocketListenerEventListened = 3 - fromEnum (AnotherSocketListenerEvent k) = k - - toEnum 0 = SocketListenerEventBinding - toEnum 1 = SocketListenerEventBound - toEnum 2 = SocketListenerEventListening - toEnum 3 = SocketListenerEventListened - toEnum k = AnotherSocketListenerEvent k - -foreign import ccall "g_socket_listener_event_get_type" c_g_socket_listener_event_get_type :: - IO GType - -instance BoxedEnum SocketListenerEvent where - boxedEnumType _ = c_g_socket_listener_event_get_type - --- Enum SocketFamily - -data SocketFamily = - SocketFamilyInvalid - | SocketFamilyUnix - | SocketFamilyIpv4 - | SocketFamilyIpv6 - | AnotherSocketFamily Int - deriving (Show, Eq) - -instance Enum SocketFamily where - fromEnum SocketFamilyInvalid = 0 - fromEnum SocketFamilyUnix = 1 - fromEnum SocketFamilyIpv4 = 2 - fromEnum SocketFamilyIpv6 = 10 - fromEnum (AnotherSocketFamily k) = k - - toEnum 0 = SocketFamilyInvalid - toEnum 1 = SocketFamilyUnix - toEnum 2 = SocketFamilyIpv4 - toEnum 10 = SocketFamilyIpv6 - toEnum k = AnotherSocketFamily k - -foreign import ccall "g_socket_family_get_type" c_g_socket_family_get_type :: - IO GType - -instance BoxedEnum SocketFamily where - boxedEnumType _ = c_g_socket_family_get_type - --- Enum SocketClientEvent - -data SocketClientEvent = - SocketClientEventResolving - | SocketClientEventResolved - | SocketClientEventConnecting - | SocketClientEventConnected - | SocketClientEventProxyNegotiating - | SocketClientEventProxyNegotiated - | SocketClientEventTlsHandshaking - | SocketClientEventTlsHandshaked - | SocketClientEventComplete - | AnotherSocketClientEvent Int - deriving (Show, Eq) - -instance Enum SocketClientEvent where - fromEnum SocketClientEventResolving = 0 - fromEnum SocketClientEventResolved = 1 - fromEnum SocketClientEventConnecting = 2 - fromEnum SocketClientEventConnected = 3 - fromEnum SocketClientEventProxyNegotiating = 4 - fromEnum SocketClientEventProxyNegotiated = 5 - fromEnum SocketClientEventTlsHandshaking = 6 - fromEnum SocketClientEventTlsHandshaked = 7 - fromEnum SocketClientEventComplete = 8 - fromEnum (AnotherSocketClientEvent k) = k - - toEnum 0 = SocketClientEventResolving - toEnum 1 = SocketClientEventResolved - toEnum 2 = SocketClientEventConnecting - toEnum 3 = SocketClientEventConnected - toEnum 4 = SocketClientEventProxyNegotiating - toEnum 5 = SocketClientEventProxyNegotiated - toEnum 6 = SocketClientEventTlsHandshaking - toEnum 7 = SocketClientEventTlsHandshaked - toEnum 8 = SocketClientEventComplete - toEnum k = AnotherSocketClientEvent k - -foreign import ccall "g_socket_client_event_get_type" c_g_socket_client_event_get_type :: - IO GType - -instance BoxedEnum SocketClientEvent where - boxedEnumType _ = c_g_socket_client_event_get_type - --- Enum ResourceError - -data ResourceError = - ResourceErrorNotFound - | ResourceErrorInternal - | AnotherResourceError Int - deriving (Show, Eq) - -instance Enum ResourceError where - fromEnum ResourceErrorNotFound = 0 - fromEnum ResourceErrorInternal = 1 - fromEnum (AnotherResourceError k) = k - - toEnum 0 = ResourceErrorNotFound - toEnum 1 = ResourceErrorInternal - toEnum k = AnotherResourceError k - -instance GErrorClass ResourceError where - gerrorClassDomain _ = "g-resource-error-quark" - -catchResourceError :: - IO a -> - (ResourceError -> GErrorMessage -> IO a) -> - IO a -catchResourceError = catchGErrorJustDomain - -handleResourceError :: - (ResourceError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleResourceError = handleGErrorJustDomain - -foreign import ccall "g_resource_error_get_type" c_g_resource_error_get_type :: - IO GType - -instance BoxedEnum ResourceError where - boxedEnumType _ = c_g_resource_error_get_type - --- Enum ResolverRecordType - -data ResolverRecordType = - ResolverRecordTypeSrv - | ResolverRecordTypeMx - | ResolverRecordTypeTxt - | ResolverRecordTypeSoa - | ResolverRecordTypeNs - | AnotherResolverRecordType Int - deriving (Show, Eq) - -instance Enum ResolverRecordType where - fromEnum ResolverRecordTypeSrv = 1 - fromEnum ResolverRecordTypeMx = 2 - fromEnum ResolverRecordTypeTxt = 3 - fromEnum ResolverRecordTypeSoa = 4 - fromEnum ResolverRecordTypeNs = 5 - fromEnum (AnotherResolverRecordType k) = k - - toEnum 1 = ResolverRecordTypeSrv - toEnum 2 = ResolverRecordTypeMx - toEnum 3 = ResolverRecordTypeTxt - toEnum 4 = ResolverRecordTypeSoa - toEnum 5 = ResolverRecordTypeNs - toEnum k = AnotherResolverRecordType k - -foreign import ccall "g_resolver_record_type_get_type" c_g_resolver_record_type_get_type :: - IO GType - -instance BoxedEnum ResolverRecordType where - boxedEnumType _ = c_g_resolver_record_type_get_type - --- Enum ResolverError - -data ResolverError = - ResolverErrorNotFound - | ResolverErrorTemporaryFailure - | ResolverErrorInternal - | AnotherResolverError Int - deriving (Show, Eq) - -instance Enum ResolverError where - fromEnum ResolverErrorNotFound = 0 - fromEnum ResolverErrorTemporaryFailure = 1 - fromEnum ResolverErrorInternal = 2 - fromEnum (AnotherResolverError k) = k - - toEnum 0 = ResolverErrorNotFound - toEnum 1 = ResolverErrorTemporaryFailure - toEnum 2 = ResolverErrorInternal - toEnum k = AnotherResolverError k - -instance GErrorClass ResolverError where - gerrorClassDomain _ = "g-resolver-error-quark" - -catchResolverError :: - IO a -> - (ResolverError -> GErrorMessage -> IO a) -> - IO a -catchResolverError = catchGErrorJustDomain - -handleResolverError :: - (ResolverError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleResolverError = handleGErrorJustDomain - -foreign import ccall "g_resolver_error_get_type" c_g_resolver_error_get_type :: - IO GType - -instance BoxedEnum ResolverError where - boxedEnumType _ = c_g_resolver_error_get_type - --- Enum PasswordSave - -data PasswordSave = - PasswordSaveNever - | PasswordSaveForSession - | PasswordSavePermanently - | AnotherPasswordSave Int - deriving (Show, Eq) - -instance Enum PasswordSave where - fromEnum PasswordSaveNever = 0 - fromEnum PasswordSaveForSession = 1 - fromEnum PasswordSavePermanently = 2 - fromEnum (AnotherPasswordSave k) = k - - toEnum 0 = PasswordSaveNever - toEnum 1 = PasswordSaveForSession - toEnum 2 = PasswordSavePermanently - toEnum k = AnotherPasswordSave k - -foreign import ccall "g_password_save_get_type" c_g_password_save_get_type :: - IO GType - -instance BoxedEnum PasswordSave where - boxedEnumType _ = c_g_password_save_get_type - --- Enum NotificationPriority - -data NotificationPriority = - NotificationPriorityNormal - | NotificationPriorityLow - | NotificationPriorityHigh - | NotificationPriorityUrgent - | AnotherNotificationPriority Int - deriving (Show, Eq) - -instance Enum NotificationPriority where - fromEnum NotificationPriorityNormal = 0 - fromEnum NotificationPriorityLow = 1 - fromEnum NotificationPriorityHigh = 2 - fromEnum NotificationPriorityUrgent = 3 - fromEnum (AnotherNotificationPriority k) = k - - toEnum 0 = NotificationPriorityNormal - toEnum 1 = NotificationPriorityLow - toEnum 2 = NotificationPriorityHigh - toEnum 3 = NotificationPriorityUrgent - toEnum k = AnotherNotificationPriority k - -foreign import ccall "g_notification_priority_get_type" c_g_notification_priority_get_type :: - IO GType - -instance BoxedEnum NotificationPriority where - boxedEnumType _ = c_g_notification_priority_get_type - --- Enum NetworkConnectivity - -data NetworkConnectivity = - NetworkConnectivityLocal - | NetworkConnectivityLimited - | NetworkConnectivityPortal - | NetworkConnectivityFull - | AnotherNetworkConnectivity Int - deriving (Show, Eq) - -instance Enum NetworkConnectivity where - fromEnum NetworkConnectivityLocal = 1 - fromEnum NetworkConnectivityLimited = 2 - fromEnum NetworkConnectivityPortal = 3 - fromEnum NetworkConnectivityFull = 4 - fromEnum (AnotherNetworkConnectivity k) = k - - toEnum 1 = NetworkConnectivityLocal - toEnum 2 = NetworkConnectivityLimited - toEnum 3 = NetworkConnectivityPortal - toEnum 4 = NetworkConnectivityFull - toEnum k = AnotherNetworkConnectivity k - -foreign import ccall "g_network_connectivity_get_type" c_g_network_connectivity_get_type :: - IO GType - -instance BoxedEnum NetworkConnectivity where - boxedEnumType _ = c_g_network_connectivity_get_type - --- Enum MountOperationResult - -data MountOperationResult = - MountOperationResultHandled - | MountOperationResultAborted - | MountOperationResultUnhandled - | AnotherMountOperationResult Int - deriving (Show, Eq) - -instance Enum MountOperationResult where - fromEnum MountOperationResultHandled = 0 - fromEnum MountOperationResultAborted = 1 - fromEnum MountOperationResultUnhandled = 2 - fromEnum (AnotherMountOperationResult k) = k - - toEnum 0 = MountOperationResultHandled - toEnum 1 = MountOperationResultAborted - toEnum 2 = MountOperationResultUnhandled - toEnum k = AnotherMountOperationResult k - -foreign import ccall "g_mount_operation_result_get_type" c_g_mount_operation_result_get_type :: - IO GType - -instance BoxedEnum MountOperationResult where - boxedEnumType _ = c_g_mount_operation_result_get_type - --- Enum IOModuleScopeFlags - -data IOModuleScopeFlags = - IOModuleScopeFlagsNone - | IOModuleScopeFlagsBlockDuplicates - | AnotherIOModuleScopeFlags Int - deriving (Show, Eq) - -instance Enum IOModuleScopeFlags where - fromEnum IOModuleScopeFlagsNone = 0 - fromEnum IOModuleScopeFlagsBlockDuplicates = 1 - fromEnum (AnotherIOModuleScopeFlags k) = k - - toEnum 0 = IOModuleScopeFlagsNone - toEnum 1 = IOModuleScopeFlagsBlockDuplicates - toEnum k = AnotherIOModuleScopeFlags k - -foreign import ccall "g_io_module_scope_flags_get_type" c_g_io_module_scope_flags_get_type :: - IO GType - -instance BoxedEnum IOModuleScopeFlags where - boxedEnumType _ = c_g_io_module_scope_flags_get_type - --- Enum IOErrorEnum - -data IOErrorEnum = - IOErrorEnumFailed - | IOErrorEnumNotFound - | IOErrorEnumExists - | IOErrorEnumIsDirectory - | IOErrorEnumNotDirectory - | IOErrorEnumNotEmpty - | IOErrorEnumNotRegularFile - | IOErrorEnumNotSymbolicLink - | IOErrorEnumNotMountableFile - | IOErrorEnumFilenameTooLong - | IOErrorEnumInvalidFilename - | IOErrorEnumTooManyLinks - | IOErrorEnumNoSpace - | IOErrorEnumInvalidArgument - | IOErrorEnumPermissionDenied - | IOErrorEnumNotSupported - | IOErrorEnumNotMounted - | IOErrorEnumAlreadyMounted - | IOErrorEnumClosed - | IOErrorEnumCancelled - | IOErrorEnumPending - | IOErrorEnumReadOnly - | IOErrorEnumCantCreateBackup - | IOErrorEnumWrongEtag - | IOErrorEnumTimedOut - | IOErrorEnumWouldRecurse - | IOErrorEnumBusy - | IOErrorEnumWouldBlock - | IOErrorEnumHostNotFound - | IOErrorEnumWouldMerge - | IOErrorEnumFailedHandled - | IOErrorEnumTooManyOpenFiles - | IOErrorEnumNotInitialized - | IOErrorEnumAddressInUse - | IOErrorEnumPartialInput - | IOErrorEnumInvalidData - | IOErrorEnumDbusError - | IOErrorEnumHostUnreachable - | IOErrorEnumNetworkUnreachable - | IOErrorEnumConnectionRefused - | IOErrorEnumProxyFailed - | IOErrorEnumProxyAuthFailed - | IOErrorEnumProxyNeedAuth - | IOErrorEnumProxyNotAllowed - | IOErrorEnumBrokenPipe - | IOErrorEnumConnectionClosed - | IOErrorEnumNotConnected - | AnotherIOErrorEnum Int - deriving (Show, Eq) - -instance Enum IOErrorEnum where - fromEnum IOErrorEnumFailed = 0 - fromEnum IOErrorEnumNotFound = 1 - fromEnum IOErrorEnumExists = 2 - fromEnum IOErrorEnumIsDirectory = 3 - fromEnum IOErrorEnumNotDirectory = 4 - fromEnum IOErrorEnumNotEmpty = 5 - fromEnum IOErrorEnumNotRegularFile = 6 - fromEnum IOErrorEnumNotSymbolicLink = 7 - fromEnum IOErrorEnumNotMountableFile = 8 - fromEnum IOErrorEnumFilenameTooLong = 9 - fromEnum IOErrorEnumInvalidFilename = 10 - fromEnum IOErrorEnumTooManyLinks = 11 - fromEnum IOErrorEnumNoSpace = 12 - fromEnum IOErrorEnumInvalidArgument = 13 - fromEnum IOErrorEnumPermissionDenied = 14 - fromEnum IOErrorEnumNotSupported = 15 - fromEnum IOErrorEnumNotMounted = 16 - fromEnum IOErrorEnumAlreadyMounted = 17 - fromEnum IOErrorEnumClosed = 18 - fromEnum IOErrorEnumCancelled = 19 - fromEnum IOErrorEnumPending = 20 - fromEnum IOErrorEnumReadOnly = 21 - fromEnum IOErrorEnumCantCreateBackup = 22 - fromEnum IOErrorEnumWrongEtag = 23 - fromEnum IOErrorEnumTimedOut = 24 - fromEnum IOErrorEnumWouldRecurse = 25 - fromEnum IOErrorEnumBusy = 26 - fromEnum IOErrorEnumWouldBlock = 27 - fromEnum IOErrorEnumHostNotFound = 28 - fromEnum IOErrorEnumWouldMerge = 29 - fromEnum IOErrorEnumFailedHandled = 30 - fromEnum IOErrorEnumTooManyOpenFiles = 31 - fromEnum IOErrorEnumNotInitialized = 32 - fromEnum IOErrorEnumAddressInUse = 33 - fromEnum IOErrorEnumPartialInput = 34 - fromEnum IOErrorEnumInvalidData = 35 - fromEnum IOErrorEnumDbusError = 36 - fromEnum IOErrorEnumHostUnreachable = 37 - fromEnum IOErrorEnumNetworkUnreachable = 38 - fromEnum IOErrorEnumConnectionRefused = 39 - fromEnum IOErrorEnumProxyFailed = 40 - fromEnum IOErrorEnumProxyAuthFailed = 41 - fromEnum IOErrorEnumProxyNeedAuth = 42 - fromEnum IOErrorEnumProxyNotAllowed = 43 - fromEnum IOErrorEnumBrokenPipe = 44 - fromEnum IOErrorEnumConnectionClosed = 44 - fromEnum IOErrorEnumNotConnected = 45 - fromEnum (AnotherIOErrorEnum k) = k - - toEnum 0 = IOErrorEnumFailed - toEnum 1 = IOErrorEnumNotFound - toEnum 2 = IOErrorEnumExists - toEnum 3 = IOErrorEnumIsDirectory - toEnum 4 = IOErrorEnumNotDirectory - toEnum 5 = IOErrorEnumNotEmpty - toEnum 6 = IOErrorEnumNotRegularFile - toEnum 7 = IOErrorEnumNotSymbolicLink - toEnum 8 = IOErrorEnumNotMountableFile - toEnum 9 = IOErrorEnumFilenameTooLong - toEnum 10 = IOErrorEnumInvalidFilename - toEnum 11 = IOErrorEnumTooManyLinks - toEnum 12 = IOErrorEnumNoSpace - toEnum 13 = IOErrorEnumInvalidArgument - toEnum 14 = IOErrorEnumPermissionDenied - toEnum 15 = IOErrorEnumNotSupported - toEnum 16 = IOErrorEnumNotMounted - toEnum 17 = IOErrorEnumAlreadyMounted - toEnum 18 = IOErrorEnumClosed - toEnum 19 = IOErrorEnumCancelled - toEnum 20 = IOErrorEnumPending - toEnum 21 = IOErrorEnumReadOnly - toEnum 22 = IOErrorEnumCantCreateBackup - toEnum 23 = IOErrorEnumWrongEtag - toEnum 24 = IOErrorEnumTimedOut - toEnum 25 = IOErrorEnumWouldRecurse - toEnum 26 = IOErrorEnumBusy - toEnum 27 = IOErrorEnumWouldBlock - toEnum 28 = IOErrorEnumHostNotFound - toEnum 29 = IOErrorEnumWouldMerge - toEnum 30 = IOErrorEnumFailedHandled - toEnum 31 = IOErrorEnumTooManyOpenFiles - toEnum 32 = IOErrorEnumNotInitialized - toEnum 33 = IOErrorEnumAddressInUse - toEnum 34 = IOErrorEnumPartialInput - toEnum 35 = IOErrorEnumInvalidData - toEnum 36 = IOErrorEnumDbusError - toEnum 37 = IOErrorEnumHostUnreachable - toEnum 38 = IOErrorEnumNetworkUnreachable - toEnum 39 = IOErrorEnumConnectionRefused - toEnum 40 = IOErrorEnumProxyFailed - toEnum 41 = IOErrorEnumProxyAuthFailed - toEnum 42 = IOErrorEnumProxyNeedAuth - toEnum 43 = IOErrorEnumProxyNotAllowed - toEnum 44 = IOErrorEnumBrokenPipe - toEnum 45 = IOErrorEnumNotConnected - toEnum k = AnotherIOErrorEnum k - -instance GErrorClass IOErrorEnum where - gerrorClassDomain _ = "g-io-error-quark" - -catchIOErrorEnum :: - IO a -> - (IOErrorEnum -> GErrorMessage -> IO a) -> - IO a -catchIOErrorEnum = catchGErrorJustDomain - -handleIOErrorEnum :: - (IOErrorEnum -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleIOErrorEnum = handleGErrorJustDomain - -foreign import ccall "g_io_error_enum_get_type" c_g_io_error_enum_get_type :: - IO GType - -instance BoxedEnum IOErrorEnum where - boxedEnumType _ = c_g_io_error_enum_get_type - --- Enum FilesystemPreviewType - -data FilesystemPreviewType = - FilesystemPreviewTypeIfAlways - | FilesystemPreviewTypeIfLocal - | FilesystemPreviewTypeNever - | AnotherFilesystemPreviewType Int - deriving (Show, Eq) - -instance Enum FilesystemPreviewType where - fromEnum FilesystemPreviewTypeIfAlways = 0 - fromEnum FilesystemPreviewTypeIfLocal = 1 - fromEnum FilesystemPreviewTypeNever = 2 - fromEnum (AnotherFilesystemPreviewType k) = k - - toEnum 0 = FilesystemPreviewTypeIfAlways - toEnum 1 = FilesystemPreviewTypeIfLocal - toEnum 2 = FilesystemPreviewTypeNever - toEnum k = AnotherFilesystemPreviewType k - -foreign import ccall "g_filesystem_preview_type_get_type" c_g_filesystem_preview_type_get_type :: - IO GType - -instance BoxedEnum FilesystemPreviewType where - boxedEnumType _ = c_g_filesystem_preview_type_get_type - --- Enum FileType - -data FileType = - FileTypeUnknown - | FileTypeRegular - | FileTypeDirectory - | FileTypeSymbolicLink - | FileTypeSpecial - | FileTypeShortcut - | FileTypeMountable - | AnotherFileType Int - deriving (Show, Eq) - -instance Enum FileType where - fromEnum FileTypeUnknown = 0 - fromEnum FileTypeRegular = 1 - fromEnum FileTypeDirectory = 2 - fromEnum FileTypeSymbolicLink = 3 - fromEnum FileTypeSpecial = 4 - fromEnum FileTypeShortcut = 5 - fromEnum FileTypeMountable = 6 - fromEnum (AnotherFileType k) = k - - toEnum 0 = FileTypeUnknown - toEnum 1 = FileTypeRegular - toEnum 2 = FileTypeDirectory - toEnum 3 = FileTypeSymbolicLink - toEnum 4 = FileTypeSpecial - toEnum 5 = FileTypeShortcut - toEnum 6 = FileTypeMountable - toEnum k = AnotherFileType k - -foreign import ccall "g_file_type_get_type" c_g_file_type_get_type :: - IO GType - -instance BoxedEnum FileType where - boxedEnumType _ = c_g_file_type_get_type - --- Enum FileMonitorEvent - -data FileMonitorEvent = - FileMonitorEventChanged - | FileMonitorEventChangesDoneHint - | FileMonitorEventDeleted - | FileMonitorEventCreated - | FileMonitorEventAttributeChanged - | FileMonitorEventPreUnmount - | FileMonitorEventUnmounted - | FileMonitorEventMoved - | FileMonitorEventRenamed - | FileMonitorEventMovedIn - | FileMonitorEventMovedOut - | AnotherFileMonitorEvent Int - deriving (Show, Eq) - -instance Enum FileMonitorEvent where - fromEnum FileMonitorEventChanged = 0 - fromEnum FileMonitorEventChangesDoneHint = 1 - fromEnum FileMonitorEventDeleted = 2 - fromEnum FileMonitorEventCreated = 3 - fromEnum FileMonitorEventAttributeChanged = 4 - fromEnum FileMonitorEventPreUnmount = 5 - fromEnum FileMonitorEventUnmounted = 6 - fromEnum FileMonitorEventMoved = 7 - fromEnum FileMonitorEventRenamed = 8 - fromEnum FileMonitorEventMovedIn = 9 - fromEnum FileMonitorEventMovedOut = 10 - fromEnum (AnotherFileMonitorEvent k) = k - - toEnum 0 = FileMonitorEventChanged - toEnum 1 = FileMonitorEventChangesDoneHint - toEnum 2 = FileMonitorEventDeleted - toEnum 3 = FileMonitorEventCreated - toEnum 4 = FileMonitorEventAttributeChanged - toEnum 5 = FileMonitorEventPreUnmount - toEnum 6 = FileMonitorEventUnmounted - toEnum 7 = FileMonitorEventMoved - toEnum 8 = FileMonitorEventRenamed - toEnum 9 = FileMonitorEventMovedIn - toEnum 10 = FileMonitorEventMovedOut - toEnum k = AnotherFileMonitorEvent k - -foreign import ccall "g_file_monitor_event_get_type" c_g_file_monitor_event_get_type :: - IO GType - -instance BoxedEnum FileMonitorEvent where - boxedEnumType _ = c_g_file_monitor_event_get_type - --- Enum FileAttributeType - -data FileAttributeType = - FileAttributeTypeInvalid - | FileAttributeTypeString - | FileAttributeTypeByteString - | FileAttributeTypeBoolean - | FileAttributeTypeUint32 - | FileAttributeTypeInt32 - | FileAttributeTypeUint64 - | FileAttributeTypeInt64 - | FileAttributeTypeObject - | FileAttributeTypeStringv - | AnotherFileAttributeType Int - deriving (Show, Eq) - -instance Enum FileAttributeType where - fromEnum FileAttributeTypeInvalid = 0 - fromEnum FileAttributeTypeString = 1 - fromEnum FileAttributeTypeByteString = 2 - fromEnum FileAttributeTypeBoolean = 3 - fromEnum FileAttributeTypeUint32 = 4 - fromEnum FileAttributeTypeInt32 = 5 - fromEnum FileAttributeTypeUint64 = 6 - fromEnum FileAttributeTypeInt64 = 7 - fromEnum FileAttributeTypeObject = 8 - fromEnum FileAttributeTypeStringv = 9 - fromEnum (AnotherFileAttributeType k) = k - - toEnum 0 = FileAttributeTypeInvalid - toEnum 1 = FileAttributeTypeString - toEnum 2 = FileAttributeTypeByteString - toEnum 3 = FileAttributeTypeBoolean - toEnum 4 = FileAttributeTypeUint32 - toEnum 5 = FileAttributeTypeInt32 - toEnum 6 = FileAttributeTypeUint64 - toEnum 7 = FileAttributeTypeInt64 - toEnum 8 = FileAttributeTypeObject - toEnum 9 = FileAttributeTypeStringv - toEnum k = AnotherFileAttributeType k - -foreign import ccall "g_file_attribute_type_get_type" c_g_file_attribute_type_get_type :: - IO GType - -instance BoxedEnum FileAttributeType where - boxedEnumType _ = c_g_file_attribute_type_get_type - --- Enum FileAttributeStatus - -data FileAttributeStatus = - FileAttributeStatusUnset - | FileAttributeStatusSet - | FileAttributeStatusErrorSetting - | AnotherFileAttributeStatus Int - deriving (Show, Eq) - -instance Enum FileAttributeStatus where - fromEnum FileAttributeStatusUnset = 0 - fromEnum FileAttributeStatusSet = 1 - fromEnum FileAttributeStatusErrorSetting = 2 - fromEnum (AnotherFileAttributeStatus k) = k - - toEnum 0 = FileAttributeStatusUnset - toEnum 1 = FileAttributeStatusSet - toEnum 2 = FileAttributeStatusErrorSetting - toEnum k = AnotherFileAttributeStatus k - -foreign import ccall "g_file_attribute_status_get_type" c_g_file_attribute_status_get_type :: - IO GType - -instance BoxedEnum FileAttributeStatus where - boxedEnumType _ = c_g_file_attribute_status_get_type - --- Enum EmblemOrigin - -data EmblemOrigin = - EmblemOriginUnknown - | EmblemOriginDevice - | EmblemOriginLivemetadata - | EmblemOriginTag - | AnotherEmblemOrigin Int - deriving (Show, Eq) - -instance Enum EmblemOrigin where - fromEnum EmblemOriginUnknown = 0 - fromEnum EmblemOriginDevice = 1 - fromEnum EmblemOriginLivemetadata = 2 - fromEnum EmblemOriginTag = 3 - fromEnum (AnotherEmblemOrigin k) = k - - toEnum 0 = EmblemOriginUnknown - toEnum 1 = EmblemOriginDevice - toEnum 2 = EmblemOriginLivemetadata - toEnum 3 = EmblemOriginTag - toEnum k = AnotherEmblemOrigin k - -foreign import ccall "g_emblem_origin_get_type" c_g_emblem_origin_get_type :: - IO GType - -instance BoxedEnum EmblemOrigin where - boxedEnumType _ = c_g_emblem_origin_get_type - --- Enum DriveStartStopType - -data DriveStartStopType = - DriveStartStopTypeUnknown - | DriveStartStopTypeShutdown - | DriveStartStopTypeNetwork - | DriveStartStopTypeMultidisk - | DriveStartStopTypePassword - | AnotherDriveStartStopType Int - deriving (Show, Eq) - -instance Enum DriveStartStopType where - fromEnum DriveStartStopTypeUnknown = 0 - fromEnum DriveStartStopTypeShutdown = 1 - fromEnum DriveStartStopTypeNetwork = 2 - fromEnum DriveStartStopTypeMultidisk = 3 - fromEnum DriveStartStopTypePassword = 4 - fromEnum (AnotherDriveStartStopType k) = k - - toEnum 0 = DriveStartStopTypeUnknown - toEnum 1 = DriveStartStopTypeShutdown - toEnum 2 = DriveStartStopTypeNetwork - toEnum 3 = DriveStartStopTypeMultidisk - toEnum 4 = DriveStartStopTypePassword - toEnum k = AnotherDriveStartStopType k - -foreign import ccall "g_drive_start_stop_type_get_type" c_g_drive_start_stop_type_get_type :: - IO GType - -instance BoxedEnum DriveStartStopType where - boxedEnumType _ = c_g_drive_start_stop_type_get_type - --- Enum DataStreamNewlineType - -data DataStreamNewlineType = - DataStreamNewlineTypeLf - | DataStreamNewlineTypeCr - | DataStreamNewlineTypeCrLf - | DataStreamNewlineTypeAny - | AnotherDataStreamNewlineType Int - deriving (Show, Eq) - -instance Enum DataStreamNewlineType where - fromEnum DataStreamNewlineTypeLf = 0 - fromEnum DataStreamNewlineTypeCr = 1 - fromEnum DataStreamNewlineTypeCrLf = 2 - fromEnum DataStreamNewlineTypeAny = 3 - fromEnum (AnotherDataStreamNewlineType k) = k - - toEnum 0 = DataStreamNewlineTypeLf - toEnum 1 = DataStreamNewlineTypeCr - toEnum 2 = DataStreamNewlineTypeCrLf - toEnum 3 = DataStreamNewlineTypeAny - toEnum k = AnotherDataStreamNewlineType k - -foreign import ccall "g_data_stream_newline_type_get_type" c_g_data_stream_newline_type_get_type :: - IO GType - -instance BoxedEnum DataStreamNewlineType where - boxedEnumType _ = c_g_data_stream_newline_type_get_type - --- Enum DataStreamByteOrder - -data DataStreamByteOrder = - DataStreamByteOrderBigEndian - | DataStreamByteOrderLittleEndian - | DataStreamByteOrderHostEndian - | AnotherDataStreamByteOrder Int - deriving (Show, Eq) - -instance Enum DataStreamByteOrder where - fromEnum DataStreamByteOrderBigEndian = 0 - fromEnum DataStreamByteOrderLittleEndian = 1 - fromEnum DataStreamByteOrderHostEndian = 2 - fromEnum (AnotherDataStreamByteOrder k) = k - - toEnum 0 = DataStreamByteOrderBigEndian - toEnum 1 = DataStreamByteOrderLittleEndian - toEnum 2 = DataStreamByteOrderHostEndian - toEnum k = AnotherDataStreamByteOrder k - -foreign import ccall "g_data_stream_byte_order_get_type" c_g_data_stream_byte_order_get_type :: - IO GType - -instance BoxedEnum DataStreamByteOrder where - boxedEnumType _ = c_g_data_stream_byte_order_get_type - --- Enum DBusMessageType - -data DBusMessageType = - DBusMessageTypeInvalid - | DBusMessageTypeMethodCall - | DBusMessageTypeMethodReturn - | DBusMessageTypeError - | DBusMessageTypeSignal - | AnotherDBusMessageType Int - deriving (Show, Eq) - -instance Enum DBusMessageType where - fromEnum DBusMessageTypeInvalid = 0 - fromEnum DBusMessageTypeMethodCall = 1 - fromEnum DBusMessageTypeMethodReturn = 2 - fromEnum DBusMessageTypeError = 3 - fromEnum DBusMessageTypeSignal = 4 - fromEnum (AnotherDBusMessageType k) = k - - toEnum 0 = DBusMessageTypeInvalid - toEnum 1 = DBusMessageTypeMethodCall - toEnum 2 = DBusMessageTypeMethodReturn - toEnum 3 = DBusMessageTypeError - toEnum 4 = DBusMessageTypeSignal - toEnum k = AnotherDBusMessageType k - -foreign import ccall "g_dbus_message_type_get_type" c_g_dbus_message_type_get_type :: - IO GType - -instance BoxedEnum DBusMessageType where - boxedEnumType _ = c_g_dbus_message_type_get_type - --- Enum DBusMessageHeaderField - -data DBusMessageHeaderField = - DBusMessageHeaderFieldInvalid - | DBusMessageHeaderFieldPath - | DBusMessageHeaderFieldInterface - | DBusMessageHeaderFieldMember - | DBusMessageHeaderFieldErrorName - | DBusMessageHeaderFieldReplySerial - | DBusMessageHeaderFieldDestination - | DBusMessageHeaderFieldSender - | DBusMessageHeaderFieldSignature - | DBusMessageHeaderFieldNumUnixFds - | AnotherDBusMessageHeaderField Int - deriving (Show, Eq) - -instance Enum DBusMessageHeaderField where - fromEnum DBusMessageHeaderFieldInvalid = 0 - fromEnum DBusMessageHeaderFieldPath = 1 - fromEnum DBusMessageHeaderFieldInterface = 2 - fromEnum DBusMessageHeaderFieldMember = 3 - fromEnum DBusMessageHeaderFieldErrorName = 4 - fromEnum DBusMessageHeaderFieldReplySerial = 5 - fromEnum DBusMessageHeaderFieldDestination = 6 - fromEnum DBusMessageHeaderFieldSender = 7 - fromEnum DBusMessageHeaderFieldSignature = 8 - fromEnum DBusMessageHeaderFieldNumUnixFds = 9 - fromEnum (AnotherDBusMessageHeaderField k) = k - - toEnum 0 = DBusMessageHeaderFieldInvalid - toEnum 1 = DBusMessageHeaderFieldPath - toEnum 2 = DBusMessageHeaderFieldInterface - toEnum 3 = DBusMessageHeaderFieldMember - toEnum 4 = DBusMessageHeaderFieldErrorName - toEnum 5 = DBusMessageHeaderFieldReplySerial - toEnum 6 = DBusMessageHeaderFieldDestination - toEnum 7 = DBusMessageHeaderFieldSender - toEnum 8 = DBusMessageHeaderFieldSignature - toEnum 9 = DBusMessageHeaderFieldNumUnixFds - toEnum k = AnotherDBusMessageHeaderField k - -foreign import ccall "g_dbus_message_header_field_get_type" c_g_dbus_message_header_field_get_type :: - IO GType - -instance BoxedEnum DBusMessageHeaderField where - boxedEnumType _ = c_g_dbus_message_header_field_get_type - --- Enum DBusMessageByteOrder - -data DBusMessageByteOrder = - DBusMessageByteOrderBigEndian - | DBusMessageByteOrderLittleEndian - | AnotherDBusMessageByteOrder Int - deriving (Show, Eq) - -instance Enum DBusMessageByteOrder where - fromEnum DBusMessageByteOrderBigEndian = 66 - fromEnum DBusMessageByteOrderLittleEndian = 108 - fromEnum (AnotherDBusMessageByteOrder k) = k - - toEnum 66 = DBusMessageByteOrderBigEndian - toEnum 108 = DBusMessageByteOrderLittleEndian - toEnum k = AnotherDBusMessageByteOrder k - -foreign import ccall "g_dbus_message_byte_order_get_type" c_g_dbus_message_byte_order_get_type :: - IO GType - -instance BoxedEnum DBusMessageByteOrder where - boxedEnumType _ = c_g_dbus_message_byte_order_get_type - --- Enum DBusError - -data DBusError = - DBusErrorFailed - | DBusErrorNoMemory - | DBusErrorServiceUnknown - | DBusErrorNameHasNoOwner - | DBusErrorNoReply - | DBusErrorIoError - | DBusErrorBadAddress - | DBusErrorNotSupported - | DBusErrorLimitsExceeded - | DBusErrorAccessDenied - | DBusErrorAuthFailed - | DBusErrorNoServer - | DBusErrorTimeout - | DBusErrorNoNetwork - | DBusErrorAddressInUse - | DBusErrorDisconnected - | DBusErrorInvalidArgs - | DBusErrorFileNotFound - | DBusErrorFileExists - | DBusErrorUnknownMethod - | DBusErrorTimedOut - | DBusErrorMatchRuleNotFound - | DBusErrorMatchRuleInvalid - | DBusErrorSpawnExecFailed - | DBusErrorSpawnForkFailed - | DBusErrorSpawnChildExited - | DBusErrorSpawnChildSignaled - | DBusErrorSpawnFailed - | DBusErrorSpawnSetupFailed - | DBusErrorSpawnConfigInvalid - | DBusErrorSpawnServiceInvalid - | DBusErrorSpawnServiceNotFound - | DBusErrorSpawnPermissionsInvalid - | DBusErrorSpawnFileInvalid - | DBusErrorSpawnNoMemory - | DBusErrorUnixProcessIdUnknown - | DBusErrorInvalidSignature - | DBusErrorInvalidFileContent - | DBusErrorSelinuxSecurityContextUnknown - | DBusErrorAdtAuditDataUnknown - | DBusErrorObjectPathInUse - | DBusErrorUnknownObject - | DBusErrorUnknownInterface - | DBusErrorUnknownProperty - | DBusErrorPropertyReadOnly - | AnotherDBusError Int - deriving (Show, Eq) - -instance Enum DBusError where - fromEnum DBusErrorFailed = 0 - fromEnum DBusErrorNoMemory = 1 - fromEnum DBusErrorServiceUnknown = 2 - fromEnum DBusErrorNameHasNoOwner = 3 - fromEnum DBusErrorNoReply = 4 - fromEnum DBusErrorIoError = 5 - fromEnum DBusErrorBadAddress = 6 - fromEnum DBusErrorNotSupported = 7 - fromEnum DBusErrorLimitsExceeded = 8 - fromEnum DBusErrorAccessDenied = 9 - fromEnum DBusErrorAuthFailed = 10 - fromEnum DBusErrorNoServer = 11 - fromEnum DBusErrorTimeout = 12 - fromEnum DBusErrorNoNetwork = 13 - fromEnum DBusErrorAddressInUse = 14 - fromEnum DBusErrorDisconnected = 15 - fromEnum DBusErrorInvalidArgs = 16 - fromEnum DBusErrorFileNotFound = 17 - fromEnum DBusErrorFileExists = 18 - fromEnum DBusErrorUnknownMethod = 19 - fromEnum DBusErrorTimedOut = 20 - fromEnum DBusErrorMatchRuleNotFound = 21 - fromEnum DBusErrorMatchRuleInvalid = 22 - fromEnum DBusErrorSpawnExecFailed = 23 - fromEnum DBusErrorSpawnForkFailed = 24 - fromEnum DBusErrorSpawnChildExited = 25 - fromEnum DBusErrorSpawnChildSignaled = 26 - fromEnum DBusErrorSpawnFailed = 27 - fromEnum DBusErrorSpawnSetupFailed = 28 - fromEnum DBusErrorSpawnConfigInvalid = 29 - fromEnum DBusErrorSpawnServiceInvalid = 30 - fromEnum DBusErrorSpawnServiceNotFound = 31 - fromEnum DBusErrorSpawnPermissionsInvalid = 32 - fromEnum DBusErrorSpawnFileInvalid = 33 - fromEnum DBusErrorSpawnNoMemory = 34 - fromEnum DBusErrorUnixProcessIdUnknown = 35 - fromEnum DBusErrorInvalidSignature = 36 - fromEnum DBusErrorInvalidFileContent = 37 - fromEnum DBusErrorSelinuxSecurityContextUnknown = 38 - fromEnum DBusErrorAdtAuditDataUnknown = 39 - fromEnum DBusErrorObjectPathInUse = 40 - fromEnum DBusErrorUnknownObject = 41 - fromEnum DBusErrorUnknownInterface = 42 - fromEnum DBusErrorUnknownProperty = 43 - fromEnum DBusErrorPropertyReadOnly = 44 - fromEnum (AnotherDBusError k) = k - - toEnum 0 = DBusErrorFailed - toEnum 1 = DBusErrorNoMemory - toEnum 2 = DBusErrorServiceUnknown - toEnum 3 = DBusErrorNameHasNoOwner - toEnum 4 = DBusErrorNoReply - toEnum 5 = DBusErrorIoError - toEnum 6 = DBusErrorBadAddress - toEnum 7 = DBusErrorNotSupported - toEnum 8 = DBusErrorLimitsExceeded - toEnum 9 = DBusErrorAccessDenied - toEnum 10 = DBusErrorAuthFailed - toEnum 11 = DBusErrorNoServer - toEnum 12 = DBusErrorTimeout - toEnum 13 = DBusErrorNoNetwork - toEnum 14 = DBusErrorAddressInUse - toEnum 15 = DBusErrorDisconnected - toEnum 16 = DBusErrorInvalidArgs - toEnum 17 = DBusErrorFileNotFound - toEnum 18 = DBusErrorFileExists - toEnum 19 = DBusErrorUnknownMethod - toEnum 20 = DBusErrorTimedOut - toEnum 21 = DBusErrorMatchRuleNotFound - toEnum 22 = DBusErrorMatchRuleInvalid - toEnum 23 = DBusErrorSpawnExecFailed - toEnum 24 = DBusErrorSpawnForkFailed - toEnum 25 = DBusErrorSpawnChildExited - toEnum 26 = DBusErrorSpawnChildSignaled - toEnum 27 = DBusErrorSpawnFailed - toEnum 28 = DBusErrorSpawnSetupFailed - toEnum 29 = DBusErrorSpawnConfigInvalid - toEnum 30 = DBusErrorSpawnServiceInvalid - toEnum 31 = DBusErrorSpawnServiceNotFound - toEnum 32 = DBusErrorSpawnPermissionsInvalid - toEnum 33 = DBusErrorSpawnFileInvalid - toEnum 34 = DBusErrorSpawnNoMemory - toEnum 35 = DBusErrorUnixProcessIdUnknown - toEnum 36 = DBusErrorInvalidSignature - toEnum 37 = DBusErrorInvalidFileContent - toEnum 38 = DBusErrorSelinuxSecurityContextUnknown - toEnum 39 = DBusErrorAdtAuditDataUnknown - toEnum 40 = DBusErrorObjectPathInUse - toEnum 41 = DBusErrorUnknownObject - toEnum 42 = DBusErrorUnknownInterface - toEnum 43 = DBusErrorUnknownProperty - toEnum 44 = DBusErrorPropertyReadOnly - toEnum k = AnotherDBusError k - -instance GErrorClass DBusError where - gerrorClassDomain _ = "g-dbus-error-quark" - -catchDBusError :: - IO a -> - (DBusError -> GErrorMessage -> IO a) -> - IO a -catchDBusError = catchGErrorJustDomain - -handleDBusError :: - (DBusError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleDBusError = handleGErrorJustDomain - -foreign import ccall "g_dbus_error_get_type" c_g_dbus_error_get_type :: - IO GType - -instance BoxedEnum DBusError where - boxedEnumType _ = c_g_dbus_error_get_type - --- Enum CredentialsType - -data CredentialsType = - CredentialsTypeInvalid - | CredentialsTypeLinuxUcred - | CredentialsTypeFreebsdCmsgcred - | CredentialsTypeOpenbsdSockpeercred - | CredentialsTypeSolarisUcred - | CredentialsTypeNetbsdUnpcbid - | AnotherCredentialsType Int - deriving (Show, Eq) - -instance Enum CredentialsType where - fromEnum CredentialsTypeInvalid = 0 - fromEnum CredentialsTypeLinuxUcred = 1 - fromEnum CredentialsTypeFreebsdCmsgcred = 2 - fromEnum CredentialsTypeOpenbsdSockpeercred = 3 - fromEnum CredentialsTypeSolarisUcred = 4 - fromEnum CredentialsTypeNetbsdUnpcbid = 5 - fromEnum (AnotherCredentialsType k) = k - - toEnum 0 = CredentialsTypeInvalid - toEnum 1 = CredentialsTypeLinuxUcred - toEnum 2 = CredentialsTypeFreebsdCmsgcred - toEnum 3 = CredentialsTypeOpenbsdSockpeercred - toEnum 4 = CredentialsTypeSolarisUcred - toEnum 5 = CredentialsTypeNetbsdUnpcbid - toEnum k = AnotherCredentialsType k - -foreign import ccall "g_credentials_type_get_type" c_g_credentials_type_get_type :: - IO GType - -instance BoxedEnum CredentialsType where - boxedEnumType _ = c_g_credentials_type_get_type - --- Enum ConverterResult - -data ConverterResult = - ConverterResultError - | ConverterResultConverted - | ConverterResultFinished - | ConverterResultFlushed - | AnotherConverterResult Int - deriving (Show, Eq) - -instance Enum ConverterResult where - fromEnum ConverterResultError = 0 - fromEnum ConverterResultConverted = 1 - fromEnum ConverterResultFinished = 2 - fromEnum ConverterResultFlushed = 3 - fromEnum (AnotherConverterResult k) = k - - toEnum 0 = ConverterResultError - toEnum 1 = ConverterResultConverted - toEnum 2 = ConverterResultFinished - toEnum 3 = ConverterResultFlushed - toEnum k = AnotherConverterResult k - -foreign import ccall "g_converter_result_get_type" c_g_converter_result_get_type :: - IO GType - -instance BoxedEnum ConverterResult where - boxedEnumType _ = c_g_converter_result_get_type - --- Enum BusType - -data BusType = - BusTypeStarter - | BusTypeNone - | BusTypeSystem - | BusTypeSession - | AnotherBusType Int - deriving (Show, Eq) - -instance Enum BusType where - fromEnum BusTypeStarter = -1 - fromEnum BusTypeNone = 0 - fromEnum BusTypeSystem = 1 - fromEnum BusTypeSession = 2 - fromEnum (AnotherBusType k) = k - - toEnum -1 = BusTypeStarter - toEnum 0 = BusTypeNone - toEnum 1 = BusTypeSystem - toEnum 2 = BusTypeSession - toEnum k = AnotherBusType k - -foreign import ccall "g_bus_type_get_type" c_g_bus_type_get_type :: - IO GType - -instance BoxedEnum BusType where - boxedEnumType _ = c_g_bus_type_get_type - - diff --git a/GI/Gio/Flags.hs b/GI/Gio/Flags.hs deleted file mode 100644 --- a/GI/Gio/Flags.hs +++ /dev/null @@ -1,1189 +0,0 @@ - - -{- | -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.Flags - ( - --- * Exported types - TlsPasswordFlags(..) , - TlsDatabaseVerifyFlags(..) , - TlsCertificateFlags(..) , - TestDBusFlags(..) , - SubprocessFlags(..) , - SocketMsgFlags(..) , - SettingsBindFlags(..) , - ResourceLookupFlags(..) , - ResourceFlags(..) , - OutputStreamSpliceFlags(..) , - MountUnmountFlags(..) , - MountMountFlags(..) , - IOStreamSpliceFlags(..) , - FileQueryInfoFlags(..) , - FileMonitorFlags(..) , - FileMeasureFlags(..) , - FileCreateFlags(..) , - FileCopyFlags(..) , - FileAttributeInfoFlags(..) , - DriveStartFlags(..) , - DBusSubtreeFlags(..) , - DBusSignalFlags(..) , - DBusServerFlags(..) , - DBusSendMessageFlags(..) , - DBusProxyFlags(..) , - DBusPropertyInfoFlags(..) , - DBusObjectManagerClientFlags(..) , - DBusMessageFlags(..) , - DBusInterfaceSkeletonFlags(..) , - DBusConnectionFlags(..) , - DBusCapabilityFlags(..) , - DBusCallFlags(..) , - ConverterFlags(..) , - BusNameWatcherFlags(..) , - BusNameOwnerFlags(..) , - AskPasswordFlags(..) , - ApplicationFlags(..) , - AppInfoCreateFlags(..) , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - - - - --- Flags TlsPasswordFlags - -data TlsPasswordFlags = - TlsPasswordFlagsNone - | TlsPasswordFlagsRetry - | TlsPasswordFlagsManyTries - | TlsPasswordFlagsFinalTry - | AnotherTlsPasswordFlags Int - deriving (Show, Eq) - -instance Enum TlsPasswordFlags where - fromEnum TlsPasswordFlagsNone = 0 - fromEnum TlsPasswordFlagsRetry = 2 - fromEnum TlsPasswordFlagsManyTries = 4 - fromEnum TlsPasswordFlagsFinalTry = 8 - fromEnum (AnotherTlsPasswordFlags k) = k - - toEnum 0 = TlsPasswordFlagsNone - toEnum 2 = TlsPasswordFlagsRetry - toEnum 4 = TlsPasswordFlagsManyTries - toEnum 8 = TlsPasswordFlagsFinalTry - toEnum k = AnotherTlsPasswordFlags k - -foreign import ccall "g_tls_password_flags_get_type" c_g_tls_password_flags_get_type :: - IO GType - -instance BoxedFlags TlsPasswordFlags where - boxedFlagsType _ = c_g_tls_password_flags_get_type - -instance IsGFlag TlsPasswordFlags - --- Flags TlsDatabaseVerifyFlags - -data TlsDatabaseVerifyFlags = - TlsDatabaseVerifyFlagsNone - | AnotherTlsDatabaseVerifyFlags Int - deriving (Show, Eq) - -instance Enum TlsDatabaseVerifyFlags where - fromEnum TlsDatabaseVerifyFlagsNone = 0 - fromEnum (AnotherTlsDatabaseVerifyFlags k) = k - - toEnum 0 = TlsDatabaseVerifyFlagsNone - toEnum k = AnotherTlsDatabaseVerifyFlags k - -foreign import ccall "g_tls_database_verify_flags_get_type" c_g_tls_database_verify_flags_get_type :: - IO GType - -instance BoxedFlags TlsDatabaseVerifyFlags where - boxedFlagsType _ = c_g_tls_database_verify_flags_get_type - -instance IsGFlag TlsDatabaseVerifyFlags - --- Flags TlsCertificateFlags - -data TlsCertificateFlags = - TlsCertificateFlagsUnknownCa - | TlsCertificateFlagsBadIdentity - | TlsCertificateFlagsNotActivated - | TlsCertificateFlagsExpired - | TlsCertificateFlagsRevoked - | TlsCertificateFlagsInsecure - | TlsCertificateFlagsGenericError - | TlsCertificateFlagsValidateAll - | AnotherTlsCertificateFlags Int - deriving (Show, Eq) - -instance Enum TlsCertificateFlags where - fromEnum TlsCertificateFlagsUnknownCa = 1 - fromEnum TlsCertificateFlagsBadIdentity = 2 - fromEnum TlsCertificateFlagsNotActivated = 4 - fromEnum TlsCertificateFlagsExpired = 8 - fromEnum TlsCertificateFlagsRevoked = 16 - fromEnum TlsCertificateFlagsInsecure = 32 - fromEnum TlsCertificateFlagsGenericError = 64 - fromEnum TlsCertificateFlagsValidateAll = 127 - fromEnum (AnotherTlsCertificateFlags k) = k - - toEnum 1 = TlsCertificateFlagsUnknownCa - toEnum 2 = TlsCertificateFlagsBadIdentity - toEnum 4 = TlsCertificateFlagsNotActivated - toEnum 8 = TlsCertificateFlagsExpired - toEnum 16 = TlsCertificateFlagsRevoked - toEnum 32 = TlsCertificateFlagsInsecure - toEnum 64 = TlsCertificateFlagsGenericError - toEnum 127 = TlsCertificateFlagsValidateAll - toEnum k = AnotherTlsCertificateFlags k - -foreign import ccall "g_tls_certificate_flags_get_type" c_g_tls_certificate_flags_get_type :: - IO GType - -instance BoxedFlags TlsCertificateFlags where - boxedFlagsType _ = c_g_tls_certificate_flags_get_type - -instance IsGFlag TlsCertificateFlags - --- Flags TestDBusFlags - -data TestDBusFlags = - TestDBusFlagsNone - | AnotherTestDBusFlags Int - deriving (Show, Eq) - -instance Enum TestDBusFlags where - fromEnum TestDBusFlagsNone = 0 - fromEnum (AnotherTestDBusFlags k) = k - - toEnum 0 = TestDBusFlagsNone - toEnum k = AnotherTestDBusFlags k - -foreign import ccall "g_test_dbus_flags_get_type" c_g_test_dbus_flags_get_type :: - IO GType - -instance BoxedFlags TestDBusFlags where - boxedFlagsType _ = c_g_test_dbus_flags_get_type - -instance IsGFlag TestDBusFlags - --- Flags SubprocessFlags - -data SubprocessFlags = - SubprocessFlagsNone - | SubprocessFlagsStdinPipe - | SubprocessFlagsStdinInherit - | SubprocessFlagsStdoutPipe - | SubprocessFlagsStdoutSilence - | SubprocessFlagsStderrPipe - | SubprocessFlagsStderrSilence - | SubprocessFlagsStderrMerge - | SubprocessFlagsInheritFds - | AnotherSubprocessFlags Int - deriving (Show, Eq) - -instance Enum SubprocessFlags where - fromEnum SubprocessFlagsNone = 0 - fromEnum SubprocessFlagsStdinPipe = 1 - fromEnum SubprocessFlagsStdinInherit = 2 - fromEnum SubprocessFlagsStdoutPipe = 4 - fromEnum SubprocessFlagsStdoutSilence = 8 - fromEnum SubprocessFlagsStderrPipe = 16 - fromEnum SubprocessFlagsStderrSilence = 32 - fromEnum SubprocessFlagsStderrMerge = 64 - fromEnum SubprocessFlagsInheritFds = 128 - fromEnum (AnotherSubprocessFlags k) = k - - toEnum 0 = SubprocessFlagsNone - toEnum 1 = SubprocessFlagsStdinPipe - toEnum 2 = SubprocessFlagsStdinInherit - toEnum 4 = SubprocessFlagsStdoutPipe - toEnum 8 = SubprocessFlagsStdoutSilence - toEnum 16 = SubprocessFlagsStderrPipe - toEnum 32 = SubprocessFlagsStderrSilence - toEnum 64 = SubprocessFlagsStderrMerge - toEnum 128 = SubprocessFlagsInheritFds - toEnum k = AnotherSubprocessFlags k - -foreign import ccall "g_subprocess_flags_get_type" c_g_subprocess_flags_get_type :: - IO GType - -instance BoxedFlags SubprocessFlags where - boxedFlagsType _ = c_g_subprocess_flags_get_type - -instance IsGFlag SubprocessFlags - --- Flags SocketMsgFlags - -data SocketMsgFlags = - SocketMsgFlagsNone - | SocketMsgFlagsOob - | SocketMsgFlagsPeek - | SocketMsgFlagsDontroute - | AnotherSocketMsgFlags Int - deriving (Show, Eq) - -instance Enum SocketMsgFlags where - fromEnum SocketMsgFlagsNone = 0 - fromEnum SocketMsgFlagsOob = 1 - fromEnum SocketMsgFlagsPeek = 2 - fromEnum SocketMsgFlagsDontroute = 4 - fromEnum (AnotherSocketMsgFlags k) = k - - toEnum 0 = SocketMsgFlagsNone - toEnum 1 = SocketMsgFlagsOob - toEnum 2 = SocketMsgFlagsPeek - toEnum 4 = SocketMsgFlagsDontroute - toEnum k = AnotherSocketMsgFlags k - -foreign import ccall "g_socket_msg_flags_get_type" c_g_socket_msg_flags_get_type :: - IO GType - -instance BoxedFlags SocketMsgFlags where - boxedFlagsType _ = c_g_socket_msg_flags_get_type - -instance IsGFlag SocketMsgFlags - --- Flags SettingsBindFlags - -data SettingsBindFlags = - SettingsBindFlagsDefault - | SettingsBindFlagsGet - | SettingsBindFlagsSet - | SettingsBindFlagsNoSensitivity - | SettingsBindFlagsGetNoChanges - | SettingsBindFlagsInvertBoolean - | AnotherSettingsBindFlags Int - deriving (Show, Eq) - -instance Enum SettingsBindFlags where - fromEnum SettingsBindFlagsDefault = 0 - fromEnum SettingsBindFlagsGet = 1 - fromEnum SettingsBindFlagsSet = 2 - fromEnum SettingsBindFlagsNoSensitivity = 4 - fromEnum SettingsBindFlagsGetNoChanges = 8 - fromEnum SettingsBindFlagsInvertBoolean = 16 - fromEnum (AnotherSettingsBindFlags k) = k - - toEnum 0 = SettingsBindFlagsDefault - toEnum 1 = SettingsBindFlagsGet - toEnum 2 = SettingsBindFlagsSet - toEnum 4 = SettingsBindFlagsNoSensitivity - toEnum 8 = SettingsBindFlagsGetNoChanges - toEnum 16 = SettingsBindFlagsInvertBoolean - toEnum k = AnotherSettingsBindFlags k - -foreign import ccall "g_settings_bind_flags_get_type" c_g_settings_bind_flags_get_type :: - IO GType - -instance BoxedFlags SettingsBindFlags where - boxedFlagsType _ = c_g_settings_bind_flags_get_type - -instance IsGFlag SettingsBindFlags - --- Flags ResourceLookupFlags - -data ResourceLookupFlags = - ResourceLookupFlagsNone - | AnotherResourceLookupFlags Int - deriving (Show, Eq) - -instance Enum ResourceLookupFlags where - fromEnum ResourceLookupFlagsNone = 0 - fromEnum (AnotherResourceLookupFlags k) = k - - toEnum 0 = ResourceLookupFlagsNone - toEnum k = AnotherResourceLookupFlags k - -foreign import ccall "g_resource_lookup_flags_get_type" c_g_resource_lookup_flags_get_type :: - IO GType - -instance BoxedFlags ResourceLookupFlags where - boxedFlagsType _ = c_g_resource_lookup_flags_get_type - -instance IsGFlag ResourceLookupFlags - --- Flags ResourceFlags - -data ResourceFlags = - ResourceFlagsNone - | ResourceFlagsCompressed - | AnotherResourceFlags Int - deriving (Show, Eq) - -instance Enum ResourceFlags where - fromEnum ResourceFlagsNone = 0 - fromEnum ResourceFlagsCompressed = 1 - fromEnum (AnotherResourceFlags k) = k - - toEnum 0 = ResourceFlagsNone - toEnum 1 = ResourceFlagsCompressed - toEnum k = AnotherResourceFlags k - -foreign import ccall "g_resource_flags_get_type" c_g_resource_flags_get_type :: - IO GType - -instance BoxedFlags ResourceFlags where - boxedFlagsType _ = c_g_resource_flags_get_type - -instance IsGFlag ResourceFlags - --- Flags OutputStreamSpliceFlags - -data OutputStreamSpliceFlags = - OutputStreamSpliceFlagsNone - | OutputStreamSpliceFlagsCloseSource - | OutputStreamSpliceFlagsCloseTarget - | AnotherOutputStreamSpliceFlags Int - deriving (Show, Eq) - -instance Enum OutputStreamSpliceFlags where - fromEnum OutputStreamSpliceFlagsNone = 0 - fromEnum OutputStreamSpliceFlagsCloseSource = 1 - fromEnum OutputStreamSpliceFlagsCloseTarget = 2 - fromEnum (AnotherOutputStreamSpliceFlags k) = k - - toEnum 0 = OutputStreamSpliceFlagsNone - toEnum 1 = OutputStreamSpliceFlagsCloseSource - toEnum 2 = OutputStreamSpliceFlagsCloseTarget - toEnum k = AnotherOutputStreamSpliceFlags k - -foreign import ccall "g_output_stream_splice_flags_get_type" c_g_output_stream_splice_flags_get_type :: - IO GType - -instance BoxedFlags OutputStreamSpliceFlags where - boxedFlagsType _ = c_g_output_stream_splice_flags_get_type - -instance IsGFlag OutputStreamSpliceFlags - --- Flags MountUnmountFlags - -data MountUnmountFlags = - MountUnmountFlagsNone - | MountUnmountFlagsForce - | AnotherMountUnmountFlags Int - deriving (Show, Eq) - -instance Enum MountUnmountFlags where - fromEnum MountUnmountFlagsNone = 0 - fromEnum MountUnmountFlagsForce = 1 - fromEnum (AnotherMountUnmountFlags k) = k - - toEnum 0 = MountUnmountFlagsNone - toEnum 1 = MountUnmountFlagsForce - toEnum k = AnotherMountUnmountFlags k - -foreign import ccall "g_mount_unmount_flags_get_type" c_g_mount_unmount_flags_get_type :: - IO GType - -instance BoxedFlags MountUnmountFlags where - boxedFlagsType _ = c_g_mount_unmount_flags_get_type - -instance IsGFlag MountUnmountFlags - --- Flags MountMountFlags - -data MountMountFlags = - MountMountFlagsNone - | AnotherMountMountFlags Int - deriving (Show, Eq) - -instance Enum MountMountFlags where - fromEnum MountMountFlagsNone = 0 - fromEnum (AnotherMountMountFlags k) = k - - toEnum 0 = MountMountFlagsNone - toEnum k = AnotherMountMountFlags k - -foreign import ccall "g_mount_mount_flags_get_type" c_g_mount_mount_flags_get_type :: - IO GType - -instance BoxedFlags MountMountFlags where - boxedFlagsType _ = c_g_mount_mount_flags_get_type - -instance IsGFlag MountMountFlags - --- Flags IOStreamSpliceFlags - -data IOStreamSpliceFlags = - IOStreamSpliceFlagsNone - | IOStreamSpliceFlagsCloseStream1 - | IOStreamSpliceFlagsCloseStream2 - | IOStreamSpliceFlagsWaitForBoth - | AnotherIOStreamSpliceFlags Int - deriving (Show, Eq) - -instance Enum IOStreamSpliceFlags where - fromEnum IOStreamSpliceFlagsNone = 0 - fromEnum IOStreamSpliceFlagsCloseStream1 = 1 - fromEnum IOStreamSpliceFlagsCloseStream2 = 2 - fromEnum IOStreamSpliceFlagsWaitForBoth = 4 - fromEnum (AnotherIOStreamSpliceFlags k) = k - - toEnum 0 = IOStreamSpliceFlagsNone - toEnum 1 = IOStreamSpliceFlagsCloseStream1 - toEnum 2 = IOStreamSpliceFlagsCloseStream2 - toEnum 4 = IOStreamSpliceFlagsWaitForBoth - toEnum k = AnotherIOStreamSpliceFlags k - -foreign import ccall "g_io_stream_splice_flags_get_type" c_g_io_stream_splice_flags_get_type :: - IO GType - -instance BoxedFlags IOStreamSpliceFlags where - boxedFlagsType _ = c_g_io_stream_splice_flags_get_type - -instance IsGFlag IOStreamSpliceFlags - --- Flags FileQueryInfoFlags - -data FileQueryInfoFlags = - FileQueryInfoFlagsNone - | FileQueryInfoFlagsNofollowSymlinks - | AnotherFileQueryInfoFlags Int - deriving (Show, Eq) - -instance Enum FileQueryInfoFlags where - fromEnum FileQueryInfoFlagsNone = 0 - fromEnum FileQueryInfoFlagsNofollowSymlinks = 1 - fromEnum (AnotherFileQueryInfoFlags k) = k - - toEnum 0 = FileQueryInfoFlagsNone - toEnum 1 = FileQueryInfoFlagsNofollowSymlinks - toEnum k = AnotherFileQueryInfoFlags k - -foreign import ccall "g_file_query_info_flags_get_type" c_g_file_query_info_flags_get_type :: - IO GType - -instance BoxedFlags FileQueryInfoFlags where - boxedFlagsType _ = c_g_file_query_info_flags_get_type - -instance IsGFlag FileQueryInfoFlags - --- Flags FileMonitorFlags - -data FileMonitorFlags = - FileMonitorFlagsNone - | FileMonitorFlagsWatchMounts - | FileMonitorFlagsSendMoved - | FileMonitorFlagsWatchHardLinks - | FileMonitorFlagsWatchMoves - | AnotherFileMonitorFlags Int - deriving (Show, Eq) - -instance Enum FileMonitorFlags where - fromEnum FileMonitorFlagsNone = 0 - fromEnum FileMonitorFlagsWatchMounts = 1 - fromEnum FileMonitorFlagsSendMoved = 2 - fromEnum FileMonitorFlagsWatchHardLinks = 4 - fromEnum FileMonitorFlagsWatchMoves = 8 - fromEnum (AnotherFileMonitorFlags k) = k - - toEnum 0 = FileMonitorFlagsNone - toEnum 1 = FileMonitorFlagsWatchMounts - toEnum 2 = FileMonitorFlagsSendMoved - toEnum 4 = FileMonitorFlagsWatchHardLinks - toEnum 8 = FileMonitorFlagsWatchMoves - toEnum k = AnotherFileMonitorFlags k - -foreign import ccall "g_file_monitor_flags_get_type" c_g_file_monitor_flags_get_type :: - IO GType - -instance BoxedFlags FileMonitorFlags where - boxedFlagsType _ = c_g_file_monitor_flags_get_type - -instance IsGFlag FileMonitorFlags - --- Flags FileMeasureFlags - -data FileMeasureFlags = - FileMeasureFlagsNone - | FileMeasureFlagsReportAnyError - | FileMeasureFlagsApparentSize - | FileMeasureFlagsNoXdev - | AnotherFileMeasureFlags Int - deriving (Show, Eq) - -instance Enum FileMeasureFlags where - fromEnum FileMeasureFlagsNone = 0 - fromEnum FileMeasureFlagsReportAnyError = 2 - fromEnum FileMeasureFlagsApparentSize = 4 - fromEnum FileMeasureFlagsNoXdev = 8 - fromEnum (AnotherFileMeasureFlags k) = k - - toEnum 0 = FileMeasureFlagsNone - toEnum 2 = FileMeasureFlagsReportAnyError - toEnum 4 = FileMeasureFlagsApparentSize - toEnum 8 = FileMeasureFlagsNoXdev - toEnum k = AnotherFileMeasureFlags k - -foreign import ccall "g_file_measure_flags_get_type" c_g_file_measure_flags_get_type :: - IO GType - -instance BoxedFlags FileMeasureFlags where - boxedFlagsType _ = c_g_file_measure_flags_get_type - -instance IsGFlag FileMeasureFlags - --- Flags FileCreateFlags - -data FileCreateFlags = - FileCreateFlagsNone - | FileCreateFlagsPrivate - | FileCreateFlagsReplaceDestination - | AnotherFileCreateFlags Int - deriving (Show, Eq) - -instance Enum FileCreateFlags where - fromEnum FileCreateFlagsNone = 0 - fromEnum FileCreateFlagsPrivate = 1 - fromEnum FileCreateFlagsReplaceDestination = 2 - fromEnum (AnotherFileCreateFlags k) = k - - toEnum 0 = FileCreateFlagsNone - toEnum 1 = FileCreateFlagsPrivate - toEnum 2 = FileCreateFlagsReplaceDestination - toEnum k = AnotherFileCreateFlags k - -foreign import ccall "g_file_create_flags_get_type" c_g_file_create_flags_get_type :: - IO GType - -instance BoxedFlags FileCreateFlags where - boxedFlagsType _ = c_g_file_create_flags_get_type - -instance IsGFlag FileCreateFlags - --- Flags FileCopyFlags - -data FileCopyFlags = - FileCopyFlagsNone - | FileCopyFlagsOverwrite - | FileCopyFlagsBackup - | FileCopyFlagsNofollowSymlinks - | FileCopyFlagsAllMetadata - | FileCopyFlagsNoFallbackForMove - | FileCopyFlagsTargetDefaultPerms - | AnotherFileCopyFlags Int - deriving (Show, Eq) - -instance Enum FileCopyFlags where - fromEnum FileCopyFlagsNone = 0 - fromEnum FileCopyFlagsOverwrite = 1 - fromEnum FileCopyFlagsBackup = 2 - fromEnum FileCopyFlagsNofollowSymlinks = 4 - fromEnum FileCopyFlagsAllMetadata = 8 - fromEnum FileCopyFlagsNoFallbackForMove = 16 - fromEnum FileCopyFlagsTargetDefaultPerms = 32 - fromEnum (AnotherFileCopyFlags k) = k - - toEnum 0 = FileCopyFlagsNone - toEnum 1 = FileCopyFlagsOverwrite - toEnum 2 = FileCopyFlagsBackup - toEnum 4 = FileCopyFlagsNofollowSymlinks - toEnum 8 = FileCopyFlagsAllMetadata - toEnum 16 = FileCopyFlagsNoFallbackForMove - toEnum 32 = FileCopyFlagsTargetDefaultPerms - toEnum k = AnotherFileCopyFlags k - -foreign import ccall "g_file_copy_flags_get_type" c_g_file_copy_flags_get_type :: - IO GType - -instance BoxedFlags FileCopyFlags where - boxedFlagsType _ = c_g_file_copy_flags_get_type - -instance IsGFlag FileCopyFlags - --- Flags FileAttributeInfoFlags - -data FileAttributeInfoFlags = - FileAttributeInfoFlagsNone - | FileAttributeInfoFlagsCopyWithFile - | FileAttributeInfoFlagsCopyWhenMoved - | AnotherFileAttributeInfoFlags Int - deriving (Show, Eq) - -instance Enum FileAttributeInfoFlags where - fromEnum FileAttributeInfoFlagsNone = 0 - fromEnum FileAttributeInfoFlagsCopyWithFile = 1 - fromEnum FileAttributeInfoFlagsCopyWhenMoved = 2 - fromEnum (AnotherFileAttributeInfoFlags k) = k - - toEnum 0 = FileAttributeInfoFlagsNone - toEnum 1 = FileAttributeInfoFlagsCopyWithFile - toEnum 2 = FileAttributeInfoFlagsCopyWhenMoved - toEnum k = AnotherFileAttributeInfoFlags k - -foreign import ccall "g_file_attribute_info_flags_get_type" c_g_file_attribute_info_flags_get_type :: - IO GType - -instance BoxedFlags FileAttributeInfoFlags where - boxedFlagsType _ = c_g_file_attribute_info_flags_get_type - -instance IsGFlag FileAttributeInfoFlags - --- Flags DriveStartFlags - -data DriveStartFlags = - DriveStartFlagsNone - | AnotherDriveStartFlags Int - deriving (Show, Eq) - -instance Enum DriveStartFlags where - fromEnum DriveStartFlagsNone = 0 - fromEnum (AnotherDriveStartFlags k) = k - - toEnum 0 = DriveStartFlagsNone - toEnum k = AnotherDriveStartFlags k - -foreign import ccall "g_drive_start_flags_get_type" c_g_drive_start_flags_get_type :: - IO GType - -instance BoxedFlags DriveStartFlags where - boxedFlagsType _ = c_g_drive_start_flags_get_type - -instance IsGFlag DriveStartFlags - --- Flags DBusSubtreeFlags - -data DBusSubtreeFlags = - DBusSubtreeFlagsNone - | DBusSubtreeFlagsDispatchToUnenumeratedNodes - | AnotherDBusSubtreeFlags Int - deriving (Show, Eq) - -instance Enum DBusSubtreeFlags where - fromEnum DBusSubtreeFlagsNone = 0 - fromEnum DBusSubtreeFlagsDispatchToUnenumeratedNodes = 1 - fromEnum (AnotherDBusSubtreeFlags k) = k - - toEnum 0 = DBusSubtreeFlagsNone - toEnum 1 = DBusSubtreeFlagsDispatchToUnenumeratedNodes - toEnum k = AnotherDBusSubtreeFlags k - -foreign import ccall "g_dbus_subtree_flags_get_type" c_g_dbus_subtree_flags_get_type :: - IO GType - -instance BoxedFlags DBusSubtreeFlags where - boxedFlagsType _ = c_g_dbus_subtree_flags_get_type - -instance IsGFlag DBusSubtreeFlags - --- Flags DBusSignalFlags - -data DBusSignalFlags = - DBusSignalFlagsNone - | DBusSignalFlagsNoMatchRule - | DBusSignalFlagsMatchArg0Namespace - | DBusSignalFlagsMatchArg0Path - | AnotherDBusSignalFlags Int - deriving (Show, Eq) - -instance Enum DBusSignalFlags where - fromEnum DBusSignalFlagsNone = 0 - fromEnum DBusSignalFlagsNoMatchRule = 1 - fromEnum DBusSignalFlagsMatchArg0Namespace = 2 - fromEnum DBusSignalFlagsMatchArg0Path = 4 - fromEnum (AnotherDBusSignalFlags k) = k - - toEnum 0 = DBusSignalFlagsNone - toEnum 1 = DBusSignalFlagsNoMatchRule - toEnum 2 = DBusSignalFlagsMatchArg0Namespace - toEnum 4 = DBusSignalFlagsMatchArg0Path - toEnum k = AnotherDBusSignalFlags k - -foreign import ccall "g_dbus_signal_flags_get_type" c_g_dbus_signal_flags_get_type :: - IO GType - -instance BoxedFlags DBusSignalFlags where - boxedFlagsType _ = c_g_dbus_signal_flags_get_type - -instance IsGFlag DBusSignalFlags - --- Flags DBusServerFlags - -data DBusServerFlags = - DBusServerFlagsNone - | DBusServerFlagsRunInThread - | DBusServerFlagsAuthenticationAllowAnonymous - | AnotherDBusServerFlags Int - deriving (Show, Eq) - -instance Enum DBusServerFlags where - fromEnum DBusServerFlagsNone = 0 - fromEnum DBusServerFlagsRunInThread = 1 - fromEnum DBusServerFlagsAuthenticationAllowAnonymous = 2 - fromEnum (AnotherDBusServerFlags k) = k - - toEnum 0 = DBusServerFlagsNone - toEnum 1 = DBusServerFlagsRunInThread - toEnum 2 = DBusServerFlagsAuthenticationAllowAnonymous - toEnum k = AnotherDBusServerFlags k - -foreign import ccall "g_dbus_server_flags_get_type" c_g_dbus_server_flags_get_type :: - IO GType - -instance BoxedFlags DBusServerFlags where - boxedFlagsType _ = c_g_dbus_server_flags_get_type - -instance IsGFlag DBusServerFlags - --- Flags DBusSendMessageFlags - -data DBusSendMessageFlags = - DBusSendMessageFlagsNone - | DBusSendMessageFlagsPreserveSerial - | AnotherDBusSendMessageFlags Int - deriving (Show, Eq) - -instance Enum DBusSendMessageFlags where - fromEnum DBusSendMessageFlagsNone = 0 - fromEnum DBusSendMessageFlagsPreserveSerial = 1 - fromEnum (AnotherDBusSendMessageFlags k) = k - - toEnum 0 = DBusSendMessageFlagsNone - toEnum 1 = DBusSendMessageFlagsPreserveSerial - toEnum k = AnotherDBusSendMessageFlags k - -foreign import ccall "g_dbus_send_message_flags_get_type" c_g_dbus_send_message_flags_get_type :: - IO GType - -instance BoxedFlags DBusSendMessageFlags where - boxedFlagsType _ = c_g_dbus_send_message_flags_get_type - -instance IsGFlag DBusSendMessageFlags - --- Flags DBusProxyFlags - -data DBusProxyFlags = - DBusProxyFlagsNone - | DBusProxyFlagsDoNotLoadProperties - | DBusProxyFlagsDoNotConnectSignals - | DBusProxyFlagsDoNotAutoStart - | DBusProxyFlagsGetInvalidatedProperties - | DBusProxyFlagsDoNotAutoStartAtConstruction - | AnotherDBusProxyFlags Int - deriving (Show, Eq) - -instance Enum DBusProxyFlags where - fromEnum DBusProxyFlagsNone = 0 - fromEnum DBusProxyFlagsDoNotLoadProperties = 1 - fromEnum DBusProxyFlagsDoNotConnectSignals = 2 - fromEnum DBusProxyFlagsDoNotAutoStart = 4 - fromEnum DBusProxyFlagsGetInvalidatedProperties = 8 - fromEnum DBusProxyFlagsDoNotAutoStartAtConstruction = 16 - fromEnum (AnotherDBusProxyFlags k) = k - - toEnum 0 = DBusProxyFlagsNone - toEnum 1 = DBusProxyFlagsDoNotLoadProperties - toEnum 2 = DBusProxyFlagsDoNotConnectSignals - toEnum 4 = DBusProxyFlagsDoNotAutoStart - toEnum 8 = DBusProxyFlagsGetInvalidatedProperties - toEnum 16 = DBusProxyFlagsDoNotAutoStartAtConstruction - toEnum k = AnotherDBusProxyFlags k - -foreign import ccall "g_dbus_proxy_flags_get_type" c_g_dbus_proxy_flags_get_type :: - IO GType - -instance BoxedFlags DBusProxyFlags where - boxedFlagsType _ = c_g_dbus_proxy_flags_get_type - -instance IsGFlag DBusProxyFlags - --- Flags DBusPropertyInfoFlags - -data DBusPropertyInfoFlags = - DBusPropertyInfoFlagsNone - | DBusPropertyInfoFlagsReadable - | DBusPropertyInfoFlagsWritable - | AnotherDBusPropertyInfoFlags Int - deriving (Show, Eq) - -instance Enum DBusPropertyInfoFlags where - fromEnum DBusPropertyInfoFlagsNone = 0 - fromEnum DBusPropertyInfoFlagsReadable = 1 - fromEnum DBusPropertyInfoFlagsWritable = 2 - fromEnum (AnotherDBusPropertyInfoFlags k) = k - - toEnum 0 = DBusPropertyInfoFlagsNone - toEnum 1 = DBusPropertyInfoFlagsReadable - toEnum 2 = DBusPropertyInfoFlagsWritable - toEnum k = AnotherDBusPropertyInfoFlags k - -foreign import ccall "g_dbus_property_info_flags_get_type" c_g_dbus_property_info_flags_get_type :: - IO GType - -instance BoxedFlags DBusPropertyInfoFlags where - boxedFlagsType _ = c_g_dbus_property_info_flags_get_type - -instance IsGFlag DBusPropertyInfoFlags - --- Flags DBusObjectManagerClientFlags - -data DBusObjectManagerClientFlags = - DBusObjectManagerClientFlagsNone - | DBusObjectManagerClientFlagsDoNotAutoStart - | AnotherDBusObjectManagerClientFlags Int - deriving (Show, Eq) - -instance Enum DBusObjectManagerClientFlags where - fromEnum DBusObjectManagerClientFlagsNone = 0 - fromEnum DBusObjectManagerClientFlagsDoNotAutoStart = 1 - fromEnum (AnotherDBusObjectManagerClientFlags k) = k - - toEnum 0 = DBusObjectManagerClientFlagsNone - toEnum 1 = DBusObjectManagerClientFlagsDoNotAutoStart - toEnum k = AnotherDBusObjectManagerClientFlags k - -foreign import ccall "g_dbus_object_manager_client_flags_get_type" c_g_dbus_object_manager_client_flags_get_type :: - IO GType - -instance BoxedFlags DBusObjectManagerClientFlags where - boxedFlagsType _ = c_g_dbus_object_manager_client_flags_get_type - -instance IsGFlag DBusObjectManagerClientFlags - --- Flags DBusMessageFlags - -data DBusMessageFlags = - DBusMessageFlagsNone - | DBusMessageFlagsNoReplyExpected - | DBusMessageFlagsNoAutoStart - | DBusMessageFlagsAllowInteractiveAuthorization - | AnotherDBusMessageFlags Int - deriving (Show, Eq) - -instance Enum DBusMessageFlags where - fromEnum DBusMessageFlagsNone = 0 - fromEnum DBusMessageFlagsNoReplyExpected = 1 - fromEnum DBusMessageFlagsNoAutoStart = 2 - fromEnum DBusMessageFlagsAllowInteractiveAuthorization = 4 - fromEnum (AnotherDBusMessageFlags k) = k - - toEnum 0 = DBusMessageFlagsNone - toEnum 1 = DBusMessageFlagsNoReplyExpected - toEnum 2 = DBusMessageFlagsNoAutoStart - toEnum 4 = DBusMessageFlagsAllowInteractiveAuthorization - toEnum k = AnotherDBusMessageFlags k - -foreign import ccall "g_dbus_message_flags_get_type" c_g_dbus_message_flags_get_type :: - IO GType - -instance BoxedFlags DBusMessageFlags where - boxedFlagsType _ = c_g_dbus_message_flags_get_type - -instance IsGFlag DBusMessageFlags - --- Flags DBusInterfaceSkeletonFlags - -data DBusInterfaceSkeletonFlags = - DBusInterfaceSkeletonFlagsNone - | DBusInterfaceSkeletonFlagsHandleMethodInvocationsInThread - | AnotherDBusInterfaceSkeletonFlags Int - deriving (Show, Eq) - -instance Enum DBusInterfaceSkeletonFlags where - fromEnum DBusInterfaceSkeletonFlagsNone = 0 - fromEnum DBusInterfaceSkeletonFlagsHandleMethodInvocationsInThread = 1 - fromEnum (AnotherDBusInterfaceSkeletonFlags k) = k - - toEnum 0 = DBusInterfaceSkeletonFlagsNone - toEnum 1 = DBusInterfaceSkeletonFlagsHandleMethodInvocationsInThread - toEnum k = AnotherDBusInterfaceSkeletonFlags k - -foreign import ccall "g_dbus_interface_skeleton_flags_get_type" c_g_dbus_interface_skeleton_flags_get_type :: - IO GType - -instance BoxedFlags DBusInterfaceSkeletonFlags where - boxedFlagsType _ = c_g_dbus_interface_skeleton_flags_get_type - -instance IsGFlag DBusInterfaceSkeletonFlags - --- Flags DBusConnectionFlags - -data DBusConnectionFlags = - DBusConnectionFlagsNone - | DBusConnectionFlagsAuthenticationClient - | DBusConnectionFlagsAuthenticationServer - | DBusConnectionFlagsAuthenticationAllowAnonymous - | DBusConnectionFlagsMessageBusConnection - | DBusConnectionFlagsDelayMessageProcessing - | AnotherDBusConnectionFlags Int - deriving (Show, Eq) - -instance Enum DBusConnectionFlags where - fromEnum DBusConnectionFlagsNone = 0 - fromEnum DBusConnectionFlagsAuthenticationClient = 1 - fromEnum DBusConnectionFlagsAuthenticationServer = 2 - fromEnum DBusConnectionFlagsAuthenticationAllowAnonymous = 4 - fromEnum DBusConnectionFlagsMessageBusConnection = 8 - fromEnum DBusConnectionFlagsDelayMessageProcessing = 16 - fromEnum (AnotherDBusConnectionFlags k) = k - - toEnum 0 = DBusConnectionFlagsNone - toEnum 1 = DBusConnectionFlagsAuthenticationClient - toEnum 2 = DBusConnectionFlagsAuthenticationServer - toEnum 4 = DBusConnectionFlagsAuthenticationAllowAnonymous - toEnum 8 = DBusConnectionFlagsMessageBusConnection - toEnum 16 = DBusConnectionFlagsDelayMessageProcessing - toEnum k = AnotherDBusConnectionFlags k - -foreign import ccall "g_dbus_connection_flags_get_type" c_g_dbus_connection_flags_get_type :: - IO GType - -instance BoxedFlags DBusConnectionFlags where - boxedFlagsType _ = c_g_dbus_connection_flags_get_type - -instance IsGFlag DBusConnectionFlags - --- Flags DBusCapabilityFlags - -data DBusCapabilityFlags = - DBusCapabilityFlagsNone - | DBusCapabilityFlagsUnixFdPassing - | AnotherDBusCapabilityFlags Int - deriving (Show, Eq) - -instance Enum DBusCapabilityFlags where - fromEnum DBusCapabilityFlagsNone = 0 - fromEnum DBusCapabilityFlagsUnixFdPassing = 1 - fromEnum (AnotherDBusCapabilityFlags k) = k - - toEnum 0 = DBusCapabilityFlagsNone - toEnum 1 = DBusCapabilityFlagsUnixFdPassing - toEnum k = AnotherDBusCapabilityFlags k - -foreign import ccall "g_dbus_capability_flags_get_type" c_g_dbus_capability_flags_get_type :: - IO GType - -instance BoxedFlags DBusCapabilityFlags where - boxedFlagsType _ = c_g_dbus_capability_flags_get_type - -instance IsGFlag DBusCapabilityFlags - --- Flags DBusCallFlags - -data DBusCallFlags = - DBusCallFlagsNone - | DBusCallFlagsNoAutoStart - | DBusCallFlagsAllowInteractiveAuthorization - | AnotherDBusCallFlags Int - deriving (Show, Eq) - -instance Enum DBusCallFlags where - fromEnum DBusCallFlagsNone = 0 - fromEnum DBusCallFlagsNoAutoStart = 1 - fromEnum DBusCallFlagsAllowInteractiveAuthorization = 2 - fromEnum (AnotherDBusCallFlags k) = k - - toEnum 0 = DBusCallFlagsNone - toEnum 1 = DBusCallFlagsNoAutoStart - toEnum 2 = DBusCallFlagsAllowInteractiveAuthorization - toEnum k = AnotherDBusCallFlags k - -foreign import ccall "g_dbus_call_flags_get_type" c_g_dbus_call_flags_get_type :: - IO GType - -instance BoxedFlags DBusCallFlags where - boxedFlagsType _ = c_g_dbus_call_flags_get_type - -instance IsGFlag DBusCallFlags - --- Flags ConverterFlags - -data ConverterFlags = - ConverterFlagsNone - | ConverterFlagsInputAtEnd - | ConverterFlagsFlush - | AnotherConverterFlags Int - deriving (Show, Eq) - -instance Enum ConverterFlags where - fromEnum ConverterFlagsNone = 0 - fromEnum ConverterFlagsInputAtEnd = 1 - fromEnum ConverterFlagsFlush = 2 - fromEnum (AnotherConverterFlags k) = k - - toEnum 0 = ConverterFlagsNone - toEnum 1 = ConverterFlagsInputAtEnd - toEnum 2 = ConverterFlagsFlush - toEnum k = AnotherConverterFlags k - -foreign import ccall "g_converter_flags_get_type" c_g_converter_flags_get_type :: - IO GType - -instance BoxedFlags ConverterFlags where - boxedFlagsType _ = c_g_converter_flags_get_type - -instance IsGFlag ConverterFlags - --- Flags BusNameWatcherFlags - -data BusNameWatcherFlags = - BusNameWatcherFlagsNone - | BusNameWatcherFlagsAutoStart - | AnotherBusNameWatcherFlags Int - deriving (Show, Eq) - -instance Enum BusNameWatcherFlags where - fromEnum BusNameWatcherFlagsNone = 0 - fromEnum BusNameWatcherFlagsAutoStart = 1 - fromEnum (AnotherBusNameWatcherFlags k) = k - - toEnum 0 = BusNameWatcherFlagsNone - toEnum 1 = BusNameWatcherFlagsAutoStart - toEnum k = AnotherBusNameWatcherFlags k - -foreign import ccall "g_bus_name_watcher_flags_get_type" c_g_bus_name_watcher_flags_get_type :: - IO GType - -instance BoxedFlags BusNameWatcherFlags where - boxedFlagsType _ = c_g_bus_name_watcher_flags_get_type - -instance IsGFlag BusNameWatcherFlags - --- Flags BusNameOwnerFlags - -data BusNameOwnerFlags = - BusNameOwnerFlagsNone - | BusNameOwnerFlagsAllowReplacement - | BusNameOwnerFlagsReplace - | AnotherBusNameOwnerFlags Int - deriving (Show, Eq) - -instance Enum BusNameOwnerFlags where - fromEnum BusNameOwnerFlagsNone = 0 - fromEnum BusNameOwnerFlagsAllowReplacement = 1 - fromEnum BusNameOwnerFlagsReplace = 2 - fromEnum (AnotherBusNameOwnerFlags k) = k - - toEnum 0 = BusNameOwnerFlagsNone - toEnum 1 = BusNameOwnerFlagsAllowReplacement - toEnum 2 = BusNameOwnerFlagsReplace - toEnum k = AnotherBusNameOwnerFlags k - -foreign import ccall "g_bus_name_owner_flags_get_type" c_g_bus_name_owner_flags_get_type :: - IO GType - -instance BoxedFlags BusNameOwnerFlags where - boxedFlagsType _ = c_g_bus_name_owner_flags_get_type - -instance IsGFlag BusNameOwnerFlags - --- Flags AskPasswordFlags - -data AskPasswordFlags = - AskPasswordFlagsNeedPassword - | AskPasswordFlagsNeedUsername - | AskPasswordFlagsNeedDomain - | AskPasswordFlagsSavingSupported - | AskPasswordFlagsAnonymousSupported - | AnotherAskPasswordFlags Int - deriving (Show, Eq) - -instance Enum AskPasswordFlags where - fromEnum AskPasswordFlagsNeedPassword = 1 - fromEnum AskPasswordFlagsNeedUsername = 2 - fromEnum AskPasswordFlagsNeedDomain = 4 - fromEnum AskPasswordFlagsSavingSupported = 8 - fromEnum AskPasswordFlagsAnonymousSupported = 16 - fromEnum (AnotherAskPasswordFlags k) = k - - toEnum 1 = AskPasswordFlagsNeedPassword - toEnum 2 = AskPasswordFlagsNeedUsername - toEnum 4 = AskPasswordFlagsNeedDomain - toEnum 8 = AskPasswordFlagsSavingSupported - toEnum 16 = AskPasswordFlagsAnonymousSupported - toEnum k = AnotherAskPasswordFlags k - -foreign import ccall "g_ask_password_flags_get_type" c_g_ask_password_flags_get_type :: - IO GType - -instance BoxedFlags AskPasswordFlags where - boxedFlagsType _ = c_g_ask_password_flags_get_type - -instance IsGFlag AskPasswordFlags - --- Flags ApplicationFlags - -data ApplicationFlags = - ApplicationFlagsFlagsNone - | ApplicationFlagsIsService - | ApplicationFlagsIsLauncher - | ApplicationFlagsHandlesOpen - | ApplicationFlagsHandlesCommandLine - | ApplicationFlagsSendEnvironment - | ApplicationFlagsNonUnique - | AnotherApplicationFlags Int - deriving (Show, Eq) - -instance Enum ApplicationFlags where - fromEnum ApplicationFlagsFlagsNone = 0 - fromEnum ApplicationFlagsIsService = 1 - fromEnum ApplicationFlagsIsLauncher = 2 - fromEnum ApplicationFlagsHandlesOpen = 4 - fromEnum ApplicationFlagsHandlesCommandLine = 8 - fromEnum ApplicationFlagsSendEnvironment = 16 - fromEnum ApplicationFlagsNonUnique = 32 - fromEnum (AnotherApplicationFlags k) = k - - toEnum 0 = ApplicationFlagsFlagsNone - toEnum 1 = ApplicationFlagsIsService - toEnum 2 = ApplicationFlagsIsLauncher - toEnum 4 = ApplicationFlagsHandlesOpen - toEnum 8 = ApplicationFlagsHandlesCommandLine - toEnum 16 = ApplicationFlagsSendEnvironment - toEnum 32 = ApplicationFlagsNonUnique - toEnum k = AnotherApplicationFlags k - -foreign import ccall "g_application_flags_get_type" c_g_application_flags_get_type :: - IO GType - -instance BoxedFlags ApplicationFlags where - boxedFlagsType _ = c_g_application_flags_get_type - -instance IsGFlag ApplicationFlags - --- Flags AppInfoCreateFlags - -data AppInfoCreateFlags = - AppInfoCreateFlagsNone - | AppInfoCreateFlagsNeedsTerminal - | AppInfoCreateFlagsSupportsUris - | AppInfoCreateFlagsSupportsStartupNotification - | AnotherAppInfoCreateFlags Int - deriving (Show, Eq) - -instance Enum AppInfoCreateFlags where - fromEnum AppInfoCreateFlagsNone = 0 - fromEnum AppInfoCreateFlagsNeedsTerminal = 1 - fromEnum AppInfoCreateFlagsSupportsUris = 2 - fromEnum AppInfoCreateFlagsSupportsStartupNotification = 4 - fromEnum (AnotherAppInfoCreateFlags k) = k - - toEnum 0 = AppInfoCreateFlagsNone - toEnum 1 = AppInfoCreateFlagsNeedsTerminal - toEnum 2 = AppInfoCreateFlagsSupportsUris - toEnum 4 = AppInfoCreateFlagsSupportsStartupNotification - toEnum k = AnotherAppInfoCreateFlags k - -foreign import ccall "g_app_info_create_flags_get_type" c_g_app_info_create_flags_get_type :: - IO GType - -instance BoxedFlags AppInfoCreateFlags where - boxedFlagsType _ = c_g_app_info_create_flags_get_type - -instance IsGFlag AppInfoCreateFlags - - diff --git a/GI/Gio/Functions.hs b/GI/Gio/Functions.hs deleted file mode 100644 --- a/GI/Gio/Functions.hs +++ /dev/null @@ -1,2407 +0,0 @@ - - -{- | -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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Nothing --- 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 : Just (TBasicType TInt) --- 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 : Just (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 TPtr, 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 : Nothing --- 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 TPtr - 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 : Nothing --- 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 : Nothing --- 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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Nothing --- 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 TPtr, 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 TInt, 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 : Nothing --- 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 TPtr - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - Int32 -> -- io_priority : TBasicType TInt - 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 : Nothing --- 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 : Nothing --- 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 : Nothing --- 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 : Just (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 TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - 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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Nothing --- 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 : Just 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 : Just (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 : Just (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 : Just (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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - 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 : Just (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 : Just (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 : Just (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 - 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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 : Just (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 (Maybe T.Text) -- result -contentTypeGetMimeType type_ = liftIO $ do - type_' <- textToCString type_ - result <- g_content_type_get_mime_type type_' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - freeMem type_' - return maybeResult - - --- 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 : Just (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 : Just (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 : Just (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 : Just (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 (Maybe T.Text) -- result -contentTypeFromMimeType mimeType = liftIO $ do - mimeType' <- textToCString mimeType - result <- g_content_type_from_mime_type mimeType' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - freeMem mimeType' - return maybeResult - - --- 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 : Just (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 : Just (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 : Just (TBasicType TUInt) --- 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 : Just (TBasicType TUInt) --- 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 TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_bus_unwatch_name" g_bus_unwatch_name :: - Word32 -> -- watcher_id : TBasicType TUInt - 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 TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_bus_unown_name" g_bus_unown_name :: - Word32 -> -- owner_id : TBasicType TUInt - 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 : Just (TBasicType TUInt) --- 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 : Just (TBasicType TUInt) --- 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 : Just (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 : Just (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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - 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 () - - - diff --git a/GI/Gio/Interfaces.hs b/GI/Gio/Interfaces.hs deleted file mode 100644 --- a/GI/Gio/Interfaces.hs +++ /dev/null @@ -1,89 +0,0 @@ - - -{- | -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.Interfaces - ( module GI.Gio.Interfaces.Action , - module GI.Gio.Interfaces.ActionGroup , - module GI.Gio.Interfaces.ActionMap , - module GI.Gio.Interfaces.AppInfo , - module GI.Gio.Interfaces.AsyncInitable , - module GI.Gio.Interfaces.AsyncResult , - module GI.Gio.Interfaces.Converter , - module GI.Gio.Interfaces.DBusInterface , - module GI.Gio.Interfaces.DBusObject , - module GI.Gio.Interfaces.DBusObjectManager, - module GI.Gio.Interfaces.DesktopAppInfoLookup, - module GI.Gio.Interfaces.Drive , - module GI.Gio.Interfaces.File , - module GI.Gio.Interfaces.FileDescriptorBased, - module GI.Gio.Interfaces.Icon , - module GI.Gio.Interfaces.Initable , - module GI.Gio.Interfaces.ListModel , - module GI.Gio.Interfaces.LoadableIcon , - module GI.Gio.Interfaces.Mount , - module GI.Gio.Interfaces.NetworkMonitor , - module GI.Gio.Interfaces.PollableInputStream, - module GI.Gio.Interfaces.PollableOutputStream, - module GI.Gio.Interfaces.Proxy , - module GI.Gio.Interfaces.ProxyResolver , - module GI.Gio.Interfaces.RemoteActionGroup, - module GI.Gio.Interfaces.Seekable , - module GI.Gio.Interfaces.SocketConnectable, - module GI.Gio.Interfaces.TlsBackend , - module GI.Gio.Interfaces.TlsClientConnection, - module GI.Gio.Interfaces.TlsFileDatabase, - module GI.Gio.Interfaces.TlsServerConnection, - module GI.Gio.Interfaces.Volume , - - - ) where - -import GI.Gio.Interfaces.Action -import GI.Gio.Interfaces.ActionGroup -import GI.Gio.Interfaces.ActionMap -import GI.Gio.Interfaces.AppInfo -import GI.Gio.Interfaces.AsyncInitable -import GI.Gio.Interfaces.AsyncResult -import GI.Gio.Interfaces.Converter -import GI.Gio.Interfaces.DBusInterface -import GI.Gio.Interfaces.DBusObject -import GI.Gio.Interfaces.DBusObjectManager -import GI.Gio.Interfaces.DesktopAppInfoLookup -import GI.Gio.Interfaces.Drive -import GI.Gio.Interfaces.File -import GI.Gio.Interfaces.FileDescriptorBased -import GI.Gio.Interfaces.Icon -import GI.Gio.Interfaces.Initable -import GI.Gio.Interfaces.ListModel -import GI.Gio.Interfaces.LoadableIcon -import GI.Gio.Interfaces.Mount -import GI.Gio.Interfaces.NetworkMonitor -import GI.Gio.Interfaces.PollableInputStream -import GI.Gio.Interfaces.PollableOutputStream -import GI.Gio.Interfaces.Proxy -import GI.Gio.Interfaces.ProxyResolver -import GI.Gio.Interfaces.RemoteActionGroup -import GI.Gio.Interfaces.Seekable -import GI.Gio.Interfaces.SocketConnectable -import GI.Gio.Interfaces.TlsBackend -import GI.Gio.Interfaces.TlsClientConnection -import GI.Gio.Interfaces.TlsFileDatabase -import GI.Gio.Interfaces.TlsServerConnection -import GI.Gio.Interfaces.Volume - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - diff --git a/GI/Gio/Interfaces/Action.hs b/GI/Gio/Interfaces/Action.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/Action.hs +++ /dev/null @@ -1,642 +0,0 @@ - - -{- | -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.Interfaces.Action - ( - --- * Exported types - Action(..) , - noAction , - ActionK , - toAction , - - - -- * Methods --- ** actionActivate - ActionActivateMethodInfo , - actionActivate , - - --- ** actionChangeState - ActionChangeStateMethodInfo , - actionChangeState , - - --- ** actionGetEnabled - ActionGetEnabledMethodInfo , - actionGetEnabled , - - --- ** actionGetName - ActionGetNameMethodInfo , - actionGetName , - - --- ** actionGetParameterType - ActionGetParameterTypeMethodInfo , - actionGetParameterType , - - --- ** actionGetState - ActionGetStateMethodInfo , - actionGetState , - - --- ** actionGetStateHint - ActionGetStateHintMethodInfo , - actionGetStateHint , - - --- ** actionGetStateType - ActionGetStateTypeMethodInfo , - actionGetStateType , - - --- ** actionNameIsValid - actionNameIsValid , - - --- ** actionParseDetailedName - actionParseDetailedName , - - --- ** actionPrintDetailedName - actionPrintDetailedName , - - - - - -- * Properties --- ** Enabled - ActionEnabledPropertyInfo , - actionEnabled , - getActionEnabled , - - --- ** Name - ActionNamePropertyInfo , - actionName , - getActionName , - - --- ** ParameterType - ActionParameterTypePropertyInfo , - actionParameterType , - getActionParameterType , - - --- ** State - ActionStatePropertyInfo , - actionState , - getActionState , - - --- ** StateType - ActionStateTypePropertyInfo , - actionStateType , - getActionStateType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - --- interface Action - -newtype Action = Action (ForeignPtr Action) -noAction :: Maybe Action -noAction = Nothing - -type family ResolveActionMethod (t :: Symbol) (o :: *) :: * where - ResolveActionMethod "activate" o = ActionActivateMethodInfo - ResolveActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveActionMethod "changeState" o = ActionChangeStateMethodInfo - ResolveActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveActionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveActionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveActionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveActionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveActionMethod "getEnabled" o = ActionGetEnabledMethodInfo - ResolveActionMethod "getName" o = ActionGetNameMethodInfo - ResolveActionMethod "getParameterType" o = ActionGetParameterTypeMethodInfo - ResolveActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveActionMethod "getState" o = ActionGetStateMethodInfo - ResolveActionMethod "getStateHint" o = ActionGetStateHintMethodInfo - ResolveActionMethod "getStateType" o = ActionGetStateTypeMethodInfo - ResolveActionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveActionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionMethod t Action, MethodInfo info Action p) => IsLabelProxy t (Action -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionMethod t Action, MethodInfo info Action p) => IsLabel t (Action -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getActionEnabled :: (MonadIO m, ActionK o) => o -> m Bool -getActionEnabled obj = liftIO $ getObjectPropertyBool obj "enabled" - -data ActionEnabledPropertyInfo -instance AttrInfo ActionEnabledPropertyInfo where - type AttrAllowedOps ActionEnabledPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ActionEnabledPropertyInfo = (~) () - type AttrBaseTypeConstraint ActionEnabledPropertyInfo = ActionK - type AttrGetType ActionEnabledPropertyInfo = Bool - type AttrLabel ActionEnabledPropertyInfo = "enabled" - attrGet _ = getActionEnabled - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getActionName :: (MonadIO m, ActionK o) => o -> m T.Text -getActionName obj = liftIO $ checkUnexpectedNothing "getActionName" $ getObjectPropertyString obj "name" - -data ActionNamePropertyInfo -instance AttrInfo ActionNamePropertyInfo where - type AttrAllowedOps ActionNamePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionNamePropertyInfo = (~) () - type AttrBaseTypeConstraint ActionNamePropertyInfo = ActionK - type AttrGetType ActionNamePropertyInfo = T.Text - type AttrLabel ActionNamePropertyInfo = "name" - attrGet _ = getActionName - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "parameter-type" - -- Type: TInterface "GLib" "VariantType" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getActionParameterType :: (MonadIO m, ActionK o) => o -> m GLib.VariantType -getActionParameterType obj = liftIO $ checkUnexpectedNothing "getActionParameterType" $ getObjectPropertyBoxed obj "parameter-type" GLib.VariantType - -data ActionParameterTypePropertyInfo -instance AttrInfo ActionParameterTypePropertyInfo where - type AttrAllowedOps ActionParameterTypePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionParameterTypePropertyInfo = (~) () - type AttrBaseTypeConstraint ActionParameterTypePropertyInfo = ActionK - type AttrGetType ActionParameterTypePropertyInfo = GLib.VariantType - type AttrLabel ActionParameterTypePropertyInfo = "parameter-type" - attrGet _ = getActionParameterType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "state" - -- Type: TVariant - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getActionState :: (MonadIO m, ActionK o) => o -> m (Maybe GVariant) -getActionState obj = liftIO $ getObjectPropertyVariant obj "state" - -data ActionStatePropertyInfo -instance AttrInfo ActionStatePropertyInfo where - type AttrAllowedOps ActionStatePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionStatePropertyInfo = (~) () - type AttrBaseTypeConstraint ActionStatePropertyInfo = ActionK - type AttrGetType ActionStatePropertyInfo = (Maybe GVariant) - type AttrLabel ActionStatePropertyInfo = "state" - attrGet _ = getActionState - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "state-type" - -- Type: TInterface "GLib" "VariantType" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getActionStateType :: (MonadIO m, ActionK o) => o -> m GLib.VariantType -getActionStateType obj = liftIO $ checkUnexpectedNothing "getActionStateType" $ getObjectPropertyBoxed obj "state-type" GLib.VariantType - -data ActionStateTypePropertyInfo -instance AttrInfo ActionStateTypePropertyInfo where - type AttrAllowedOps ActionStateTypePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionStateTypePropertyInfo = (~) () - type AttrBaseTypeConstraint ActionStateTypePropertyInfo = ActionK - type AttrGetType ActionStateTypePropertyInfo = GLib.VariantType - type AttrLabel ActionStateTypePropertyInfo = "state-type" - attrGet _ = getActionStateType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList Action = ActionAttributeList -type ActionAttributeList = ('[ '("enabled", ActionEnabledPropertyInfo), '("name", ActionNamePropertyInfo), '("parameterType", ActionParameterTypePropertyInfo), '("state", ActionStatePropertyInfo), '("stateType", ActionStateTypePropertyInfo)] :: [(Symbol, *)]) - -actionEnabled :: AttrLabelProxy "enabled" -actionEnabled = AttrLabelProxy - -actionName :: AttrLabelProxy "name" -actionName = AttrLabelProxy - -actionParameterType :: AttrLabelProxy "parameterType" -actionParameterType = AttrLabelProxy - -actionState :: AttrLabelProxy "state" -actionState = AttrLabelProxy - -actionStateType :: AttrLabelProxy "stateType" -actionStateType = AttrLabelProxy - -type instance SignalList Action = ActionSignalList -type ActionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_action_get_type" - c_g_action_get_type :: IO GType - -type instance ParentTypes Action = ActionParentTypes -type ActionParentTypes = '[GObject.Object] - -instance GObject Action where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_action_get_type - - -class GObject o => ActionK o -instance (GObject o, IsDescendantOf Action o) => ActionK o - -toAction :: ActionK o => o -> IO Action -toAction = unsafeCastTo Action - --- method Action::activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_action_activate" g_action_activate :: - Ptr Action -> -- _obj : TInterface "Gio" "Action" - Ptr GVariant -> -- parameter : TVariant - IO () - - -actionActivate :: - (MonadIO m, ActionK a) => - a -- _obj - -> Maybe (GVariant) -- parameter - -> m () -- result -actionActivate _obj parameter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeParameter <- case parameter of - Nothing -> return nullPtr - Just jParameter -> do - let jParameter' = unsafeManagedPtrGetPtr jParameter - return jParameter' - g_action_activate _obj' maybeParameter - touchManagedPtr _obj - return () - -data ActionActivateMethodInfo -instance (signature ~ (Maybe (GVariant) -> m ()), MonadIO m, ActionK a) => MethodInfo ActionActivateMethodInfo a signature where - overloadedMethod _ = actionActivate - --- method Action::change_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_action_change_state" g_action_change_state :: - Ptr Action -> -- _obj : TInterface "Gio" "Action" - Ptr GVariant -> -- value : TVariant - IO () - - -actionChangeState :: - (MonadIO m, ActionK a) => - a -- _obj - -> GVariant -- value - -> m () -- result -actionChangeState _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = unsafeManagedPtrGetPtr value - g_action_change_state _obj' value' - touchManagedPtr _obj - return () - -data ActionChangeStateMethodInfo -instance (signature ~ (GVariant -> m ()), MonadIO m, ActionK a) => MethodInfo ActionChangeStateMethodInfo a signature where - overloadedMethod _ = actionChangeState - --- method Action::get_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_action_get_enabled" g_action_get_enabled :: - Ptr Action -> -- _obj : TInterface "Gio" "Action" - IO CInt - - -actionGetEnabled :: - (MonadIO m, ActionK a) => - a -- _obj - -> m Bool -- result -actionGetEnabled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_action_get_enabled _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ActionGetEnabledMethodInfo -instance (signature ~ (m Bool), MonadIO m, ActionK a) => MethodInfo ActionGetEnabledMethodInfo a signature where - overloadedMethod _ = actionGetEnabled - --- method Action::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_action_get_name" g_action_get_name :: - Ptr Action -> -- _obj : TInterface "Gio" "Action" - IO CString - - -actionGetName :: - (MonadIO m, ActionK a) => - a -- _obj - -> m T.Text -- result -actionGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_action_get_name _obj' - checkUnexpectedReturnNULL "g_action_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ActionGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ActionK a) => MethodInfo ActionGetNameMethodInfo a signature where - overloadedMethod _ = actionGetName - --- method Action::get_parameter_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_action_get_parameter_type" g_action_get_parameter_type :: - Ptr Action -> -- _obj : TInterface "Gio" "Action" - IO (Ptr GLib.VariantType) - - -actionGetParameterType :: - (MonadIO m, ActionK a) => - a -- _obj - -> m GLib.VariantType -- result -actionGetParameterType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_action_get_parameter_type _obj' - checkUnexpectedReturnNULL "g_action_get_parameter_type" result - result' <- (newBoxed GLib.VariantType) result - touchManagedPtr _obj - return result' - -data ActionGetParameterTypeMethodInfo -instance (signature ~ (m GLib.VariantType), MonadIO m, ActionK a) => MethodInfo ActionGetParameterTypeMethodInfo a signature where - overloadedMethod _ = actionGetParameterType - --- method Action::get_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_action_get_state" g_action_get_state :: - Ptr Action -> -- _obj : TInterface "Gio" "Action" - IO (Ptr GVariant) - - -actionGetState :: - (MonadIO m, ActionK a) => - a -- _obj - -> m GVariant -- result -actionGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_action_get_state _obj' - checkUnexpectedReturnNULL "g_action_get_state" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - return result' - -data ActionGetStateMethodInfo -instance (signature ~ (m GVariant), MonadIO m, ActionK a) => MethodInfo ActionGetStateMethodInfo a signature where - overloadedMethod _ = actionGetState - --- method Action::get_state_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_action_get_state_hint" g_action_get_state_hint :: - Ptr Action -> -- _obj : TInterface "Gio" "Action" - IO (Ptr GVariant) - - -actionGetStateHint :: - (MonadIO m, ActionK a) => - a -- _obj - -> m (Maybe GVariant) -- result -actionGetStateHint _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_action_get_state_hint _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- wrapGVariantPtr result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ActionGetStateHintMethodInfo -instance (signature ~ (m (Maybe GVariant)), MonadIO m, ActionK a) => MethodInfo ActionGetStateHintMethodInfo a signature where - overloadedMethod _ = actionGetStateHint - --- method Action::get_state_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_action_get_state_type" g_action_get_state_type :: - Ptr Action -> -- _obj : TInterface "Gio" "Action" - IO (Ptr GLib.VariantType) - - -actionGetStateType :: - (MonadIO m, ActionK a) => - a -- _obj - -> m GLib.VariantType -- result -actionGetStateType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_action_get_state_type _obj' - checkUnexpectedReturnNULL "g_action_get_state_type" result - result' <- (newBoxed GLib.VariantType) result - touchManagedPtr _obj - return result' - -data ActionGetStateTypeMethodInfo -instance (signature ~ (m GLib.VariantType), MonadIO m, ActionK a) => MethodInfo ActionGetStateTypeMethodInfo a signature where - overloadedMethod _ = actionGetStateType - --- method Action::name_is_valid --- method type : MemberFunction --- Args : [Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_action_name_is_valid" g_action_name_is_valid :: - CString -> -- action_name : TBasicType TUTF8 - IO CInt - - -actionNameIsValid :: - (MonadIO m) => - T.Text -- actionName - -> m Bool -- result -actionNameIsValid actionName = liftIO $ do - actionName' <- textToCString actionName - result <- g_action_name_is_valid actionName' - let result' = (/= 0) result - freeMem actionName' - return result' - --- method Action::parse_detailed_name --- method type : MemberFunction --- Args : [Arg {argCName = "detailed_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "target_value", argType = TVariant, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_action_parse_detailed_name" g_action_parse_detailed_name :: - CString -> -- detailed_name : TBasicType TUTF8 - Ptr CString -> -- action_name : TBasicType TUTF8 - Ptr (Ptr GVariant) -> -- target_value : TVariant - Ptr (Ptr GError) -> -- error - IO CInt - - -actionParseDetailedName :: - (MonadIO m) => - T.Text -- detailedName - -> m (T.Text,GVariant) -- result -actionParseDetailedName detailedName = liftIO $ do - detailedName' <- textToCString detailedName - actionName <- allocMem :: IO (Ptr CString) - targetValue <- allocMem :: IO (Ptr (Ptr GVariant)) - onException (do - _ <- propagateGError $ g_action_parse_detailed_name detailedName' actionName targetValue - actionName' <- peek actionName - actionName'' <- cstringToText actionName' - freeMem actionName' - targetValue' <- peek targetValue - targetValue'' <- wrapGVariantPtr targetValue' - freeMem detailedName' - freeMem actionName - freeMem targetValue - return (actionName'', targetValue'') - ) (do - freeMem detailedName' - freeMem actionName - freeMem targetValue - ) - --- method Action::print_detailed_name --- method type : MemberFunction --- Args : [Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_action_print_detailed_name" g_action_print_detailed_name :: - CString -> -- action_name : TBasicType TUTF8 - Ptr GVariant -> -- target_value : TVariant - IO CString - - -actionPrintDetailedName :: - (MonadIO m) => - T.Text -- actionName - -> Maybe (GVariant) -- targetValue - -> m T.Text -- result -actionPrintDetailedName actionName targetValue = liftIO $ do - actionName' <- textToCString actionName - maybeTargetValue <- case targetValue of - Nothing -> return nullPtr - Just jTargetValue -> do - let jTargetValue' = unsafeManagedPtrGetPtr jTargetValue - return jTargetValue' - result <- g_action_print_detailed_name actionName' maybeTargetValue - checkUnexpectedReturnNULL "g_action_print_detailed_name" result - result' <- cstringToText result - freeMem result - freeMem actionName' - return result' - - diff --git a/GI/Gio/Interfaces/Action.hs-boot b/GI/Gio/Interfaces/Action.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/Action.hs-boot +++ /dev/null @@ -1,26 +0,0 @@ -module GI.Gio.Interfaces.Action where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Action = Action (ForeignPtr Action) -data ActionEnabledPropertyInfo -data ActionNamePropertyInfo -data ActionParameterTypePropertyInfo -data ActionStatePropertyInfo -data ActionStateTypePropertyInfo -instance GObject Action where -class GObject o => ActionK o -instance (GObject o, IsDescendantOf Action o) => ActionK o -data ActionActivateMethodInfo -data ActionChangeStateMethodInfo -data ActionGetEnabledMethodInfo -data ActionGetNameMethodInfo -data ActionGetParameterTypeMethodInfo -data ActionGetStateMethodInfo -data ActionGetStateHintMethodInfo -data ActionGetStateTypeMethodInfo diff --git a/GI/Gio/Interfaces/ActionGroup.hs b/GI/Gio/Interfaces/ActionGroup.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/ActionGroup.hs +++ /dev/null @@ -1,919 +0,0 @@ - - -{- | -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.Interfaces.ActionGroup - ( - --- * Exported types - ActionGroup(..) , - noActionGroup , - ActionGroupK , - toActionGroup , - - - -- * Methods --- ** actionGroupActionAdded - ActionGroupActionAddedMethodInfo , - actionGroupActionAdded , - - --- ** actionGroupActionEnabledChanged - ActionGroupActionEnabledChangedMethodInfo, - actionGroupActionEnabledChanged , - - --- ** actionGroupActionRemoved - ActionGroupActionRemovedMethodInfo , - actionGroupActionRemoved , - - --- ** actionGroupActionStateChanged - ActionGroupActionStateChangedMethodInfo , - actionGroupActionStateChanged , - - --- ** actionGroupActivateAction - ActionGroupActivateActionMethodInfo , - actionGroupActivateAction , - - --- ** actionGroupChangeActionState - ActionGroupChangeActionStateMethodInfo , - actionGroupChangeActionState , - - --- ** actionGroupGetActionEnabled - ActionGroupGetActionEnabledMethodInfo , - actionGroupGetActionEnabled , - - --- ** actionGroupGetActionParameterType - ActionGroupGetActionParameterTypeMethodInfo, - actionGroupGetActionParameterType , - - --- ** actionGroupGetActionState - ActionGroupGetActionStateMethodInfo , - actionGroupGetActionState , - - --- ** actionGroupGetActionStateHint - ActionGroupGetActionStateHintMethodInfo , - actionGroupGetActionStateHint , - - --- ** actionGroupGetActionStateType - ActionGroupGetActionStateTypeMethodInfo , - actionGroupGetActionStateType , - - --- ** actionGroupHasAction - ActionGroupHasActionMethodInfo , - actionGroupHasAction , - - --- ** actionGroupListActions - ActionGroupListActionsMethodInfo , - actionGroupListActions , - - --- ** actionGroupQueryAction - ActionGroupQueryActionMethodInfo , - actionGroupQueryAction , - - - - - -- * Signals --- ** ActionAdded - ActionGroupActionAddedCallback , - ActionGroupActionAddedCallbackC , - ActionGroupActionAddedSignalInfo , - actionGroupActionAddedCallbackWrapper , - actionGroupActionAddedClosure , - afterActionGroupActionAdded , - mkActionGroupActionAddedCallback , - noActionGroupActionAddedCallback , - onActionGroupActionAdded , - - --- ** ActionEnabledChanged - ActionGroupActionEnabledChangedCallback , - ActionGroupActionEnabledChangedCallbackC, - ActionGroupActionEnabledChangedSignalInfo, - actionGroupActionEnabledChangedCallbackWrapper, - actionGroupActionEnabledChangedClosure , - afterActionGroupActionEnabledChanged , - mkActionGroupActionEnabledChangedCallback, - noActionGroupActionEnabledChangedCallback, - onActionGroupActionEnabledChanged , - - --- ** ActionRemoved - ActionGroupActionRemovedCallback , - ActionGroupActionRemovedCallbackC , - ActionGroupActionRemovedSignalInfo , - actionGroupActionRemovedCallbackWrapper , - actionGroupActionRemovedClosure , - afterActionGroupActionRemoved , - mkActionGroupActionRemovedCallback , - noActionGroupActionRemovedCallback , - onActionGroupActionRemoved , - - --- ** ActionStateChanged - ActionGroupActionStateChangedCallback , - ActionGroupActionStateChangedCallbackC , - ActionGroupActionStateChangedSignalInfo , - actionGroupActionStateChangedCallbackWrapper, - actionGroupActionStateChangedClosure , - afterActionGroupActionStateChanged , - mkActionGroupActionStateChangedCallback , - noActionGroupActionStateChangedCallback , - onActionGroupActionStateChanged , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - --- interface ActionGroup - -newtype ActionGroup = ActionGroup (ForeignPtr ActionGroup) -noActionGroup :: Maybe ActionGroup -noActionGroup = Nothing - -type family ResolveActionGroupMethod (t :: Symbol) (o :: *) :: * where - ResolveActionGroupMethod "actionAdded" o = ActionGroupActionAddedMethodInfo - ResolveActionGroupMethod "actionEnabledChanged" o = ActionGroupActionEnabledChangedMethodInfo - ResolveActionGroupMethod "actionRemoved" o = ActionGroupActionRemovedMethodInfo - ResolveActionGroupMethod "actionStateChanged" o = ActionGroupActionStateChangedMethodInfo - ResolveActionGroupMethod "activateAction" o = ActionGroupActivateActionMethodInfo - ResolveActionGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveActionGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveActionGroupMethod "changeActionState" o = ActionGroupChangeActionStateMethodInfo - ResolveActionGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveActionGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveActionGroupMethod "hasAction" o = ActionGroupHasActionMethodInfo - ResolveActionGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveActionGroupMethod "listActions" o = ActionGroupListActionsMethodInfo - ResolveActionGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveActionGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveActionGroupMethod "queryAction" o = ActionGroupQueryActionMethodInfo - ResolveActionGroupMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveActionGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveActionGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveActionGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveActionGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveActionGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveActionGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveActionGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveActionGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveActionGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveActionGroupMethod "getActionEnabled" o = ActionGroupGetActionEnabledMethodInfo - ResolveActionGroupMethod "getActionParameterType" o = ActionGroupGetActionParameterTypeMethodInfo - ResolveActionGroupMethod "getActionState" o = ActionGroupGetActionStateMethodInfo - ResolveActionGroupMethod "getActionStateHint" o = ActionGroupGetActionStateHintMethodInfo - ResolveActionGroupMethod "getActionStateType" o = ActionGroupGetActionStateTypeMethodInfo - ResolveActionGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveActionGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveActionGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveActionGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveActionGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveActionGroupMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionGroupMethod t ActionGroup, MethodInfo info ActionGroup p) => IsLabelProxy t (ActionGroup -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionGroupMethod t ActionGroup, MethodInfo info ActionGroup p) => IsLabel t (ActionGroup -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ActionGroup::action-added -type ActionGroupActionAddedCallback = - T.Text -> - IO () - -noActionGroupActionAddedCallback :: Maybe ActionGroupActionAddedCallback -noActionGroupActionAddedCallback = Nothing - -type ActionGroupActionAddedCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkActionGroupActionAddedCallback :: ActionGroupActionAddedCallbackC -> IO (FunPtr ActionGroupActionAddedCallbackC) - -actionGroupActionAddedClosure :: ActionGroupActionAddedCallback -> IO Closure -actionGroupActionAddedClosure cb = newCClosure =<< mkActionGroupActionAddedCallback wrapped - where wrapped = actionGroupActionAddedCallbackWrapper cb - -actionGroupActionAddedCallbackWrapper :: - ActionGroupActionAddedCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -actionGroupActionAddedCallbackWrapper _cb _ actionName _ = do - actionName' <- cstringToText actionName - _cb actionName' - -onActionGroupActionAdded :: (GObject a, MonadIO m) => a -> ActionGroupActionAddedCallback -> m SignalHandlerId -onActionGroupActionAdded obj cb = liftIO $ connectActionGroupActionAdded obj cb SignalConnectBefore -afterActionGroupActionAdded :: (GObject a, MonadIO m) => a -> ActionGroupActionAddedCallback -> m SignalHandlerId -afterActionGroupActionAdded obj cb = connectActionGroupActionAdded obj cb SignalConnectAfter - -connectActionGroupActionAdded :: (GObject a, MonadIO m) => - a -> ActionGroupActionAddedCallback -> SignalConnectMode -> m SignalHandlerId -connectActionGroupActionAdded obj cb after = liftIO $ do - cb' <- mkActionGroupActionAddedCallback (actionGroupActionAddedCallbackWrapper cb) - connectSignalFunPtr obj "action-added" cb' after - --- signal ActionGroup::action-enabled-changed -type ActionGroupActionEnabledChangedCallback = - T.Text -> - Bool -> - IO () - -noActionGroupActionEnabledChangedCallback :: Maybe ActionGroupActionEnabledChangedCallback -noActionGroupActionEnabledChangedCallback = Nothing - -type ActionGroupActionEnabledChangedCallbackC = - Ptr () -> -- object - CString -> - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkActionGroupActionEnabledChangedCallback :: ActionGroupActionEnabledChangedCallbackC -> IO (FunPtr ActionGroupActionEnabledChangedCallbackC) - -actionGroupActionEnabledChangedClosure :: ActionGroupActionEnabledChangedCallback -> IO Closure -actionGroupActionEnabledChangedClosure cb = newCClosure =<< mkActionGroupActionEnabledChangedCallback wrapped - where wrapped = actionGroupActionEnabledChangedCallbackWrapper cb - -actionGroupActionEnabledChangedCallbackWrapper :: - ActionGroupActionEnabledChangedCallback -> - Ptr () -> - CString -> - CInt -> - Ptr () -> - IO () -actionGroupActionEnabledChangedCallbackWrapper _cb _ actionName enabled _ = do - actionName' <- cstringToText actionName - let enabled' = (/= 0) enabled - _cb actionName' enabled' - -onActionGroupActionEnabledChanged :: (GObject a, MonadIO m) => a -> ActionGroupActionEnabledChangedCallback -> m SignalHandlerId -onActionGroupActionEnabledChanged obj cb = liftIO $ connectActionGroupActionEnabledChanged obj cb SignalConnectBefore -afterActionGroupActionEnabledChanged :: (GObject a, MonadIO m) => a -> ActionGroupActionEnabledChangedCallback -> m SignalHandlerId -afterActionGroupActionEnabledChanged obj cb = connectActionGroupActionEnabledChanged obj cb SignalConnectAfter - -connectActionGroupActionEnabledChanged :: (GObject a, MonadIO m) => - a -> ActionGroupActionEnabledChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectActionGroupActionEnabledChanged obj cb after = liftIO $ do - cb' <- mkActionGroupActionEnabledChangedCallback (actionGroupActionEnabledChangedCallbackWrapper cb) - connectSignalFunPtr obj "action-enabled-changed" cb' after - --- signal ActionGroup::action-removed -type ActionGroupActionRemovedCallback = - T.Text -> - IO () - -noActionGroupActionRemovedCallback :: Maybe ActionGroupActionRemovedCallback -noActionGroupActionRemovedCallback = Nothing - -type ActionGroupActionRemovedCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkActionGroupActionRemovedCallback :: ActionGroupActionRemovedCallbackC -> IO (FunPtr ActionGroupActionRemovedCallbackC) - -actionGroupActionRemovedClosure :: ActionGroupActionRemovedCallback -> IO Closure -actionGroupActionRemovedClosure cb = newCClosure =<< mkActionGroupActionRemovedCallback wrapped - where wrapped = actionGroupActionRemovedCallbackWrapper cb - -actionGroupActionRemovedCallbackWrapper :: - ActionGroupActionRemovedCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -actionGroupActionRemovedCallbackWrapper _cb _ actionName _ = do - actionName' <- cstringToText actionName - _cb actionName' - -onActionGroupActionRemoved :: (GObject a, MonadIO m) => a -> ActionGroupActionRemovedCallback -> m SignalHandlerId -onActionGroupActionRemoved obj cb = liftIO $ connectActionGroupActionRemoved obj cb SignalConnectBefore -afterActionGroupActionRemoved :: (GObject a, MonadIO m) => a -> ActionGroupActionRemovedCallback -> m SignalHandlerId -afterActionGroupActionRemoved obj cb = connectActionGroupActionRemoved obj cb SignalConnectAfter - -connectActionGroupActionRemoved :: (GObject a, MonadIO m) => - a -> ActionGroupActionRemovedCallback -> SignalConnectMode -> m SignalHandlerId -connectActionGroupActionRemoved obj cb after = liftIO $ do - cb' <- mkActionGroupActionRemovedCallback (actionGroupActionRemovedCallbackWrapper cb) - connectSignalFunPtr obj "action-removed" cb' after - --- signal ActionGroup::action-state-changed -type ActionGroupActionStateChangedCallback = - T.Text -> - GVariant -> - IO () - -noActionGroupActionStateChangedCallback :: Maybe ActionGroupActionStateChangedCallback -noActionGroupActionStateChangedCallback = Nothing - -type ActionGroupActionStateChangedCallbackC = - Ptr () -> -- object - CString -> - Ptr GVariant -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkActionGroupActionStateChangedCallback :: ActionGroupActionStateChangedCallbackC -> IO (FunPtr ActionGroupActionStateChangedCallbackC) - -actionGroupActionStateChangedClosure :: ActionGroupActionStateChangedCallback -> IO Closure -actionGroupActionStateChangedClosure cb = newCClosure =<< mkActionGroupActionStateChangedCallback wrapped - where wrapped = actionGroupActionStateChangedCallbackWrapper cb - -actionGroupActionStateChangedCallbackWrapper :: - ActionGroupActionStateChangedCallback -> - Ptr () -> - CString -> - Ptr GVariant -> - Ptr () -> - IO () -actionGroupActionStateChangedCallbackWrapper _cb _ actionName value _ = do - actionName' <- cstringToText actionName - value' <- newGVariantFromPtr value - _cb actionName' value' - -onActionGroupActionStateChanged :: (GObject a, MonadIO m) => a -> ActionGroupActionStateChangedCallback -> m SignalHandlerId -onActionGroupActionStateChanged obj cb = liftIO $ connectActionGroupActionStateChanged obj cb SignalConnectBefore -afterActionGroupActionStateChanged :: (GObject a, MonadIO m) => a -> ActionGroupActionStateChangedCallback -> m SignalHandlerId -afterActionGroupActionStateChanged obj cb = connectActionGroupActionStateChanged obj cb SignalConnectAfter - -connectActionGroupActionStateChanged :: (GObject a, MonadIO m) => - a -> ActionGroupActionStateChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectActionGroupActionStateChanged obj cb after = liftIO $ do - cb' <- mkActionGroupActionStateChangedCallback (actionGroupActionStateChangedCallbackWrapper cb) - connectSignalFunPtr obj "action-state-changed" cb' after - -type instance AttributeList ActionGroup = ActionGroupAttributeList -type ActionGroupAttributeList = ('[ ] :: [(Symbol, *)]) - -data ActionGroupActionAddedSignalInfo -instance SignalInfo ActionGroupActionAddedSignalInfo where - type HaskellCallbackType ActionGroupActionAddedSignalInfo = ActionGroupActionAddedCallback - connectSignal _ = connectActionGroupActionAdded - -data ActionGroupActionEnabledChangedSignalInfo -instance SignalInfo ActionGroupActionEnabledChangedSignalInfo where - type HaskellCallbackType ActionGroupActionEnabledChangedSignalInfo = ActionGroupActionEnabledChangedCallback - connectSignal _ = connectActionGroupActionEnabledChanged - -data ActionGroupActionRemovedSignalInfo -instance SignalInfo ActionGroupActionRemovedSignalInfo where - type HaskellCallbackType ActionGroupActionRemovedSignalInfo = ActionGroupActionRemovedCallback - connectSignal _ = connectActionGroupActionRemoved - -data ActionGroupActionStateChangedSignalInfo -instance SignalInfo ActionGroupActionStateChangedSignalInfo where - type HaskellCallbackType ActionGroupActionStateChangedSignalInfo = ActionGroupActionStateChangedCallback - connectSignal _ = connectActionGroupActionStateChanged - -type instance SignalList ActionGroup = ActionGroupSignalList -type ActionGroupSignalList = ('[ '("actionAdded", ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", ActionGroupActionRemovedSignalInfo), '("actionStateChanged", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_action_group_get_type" - c_g_action_group_get_type :: IO GType - -type instance ParentTypes ActionGroup = ActionGroupParentTypes -type ActionGroupParentTypes = '[GObject.Object] - -instance GObject ActionGroup where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_action_group_get_type - - -class GObject o => ActionGroupK o -instance (GObject o, IsDescendantOf ActionGroup o) => ActionGroupK o - -toActionGroup :: ActionGroupK o => o -> IO ActionGroup -toActionGroup = unsafeCastTo ActionGroup - --- method ActionGroup::action_added --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_action_group_action_added" g_action_group_action_added :: - Ptr ActionGroup -> -- _obj : TInterface "Gio" "ActionGroup" - CString -> -- action_name : TBasicType TUTF8 - IO () - - -actionGroupActionAdded :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> m () -- result -actionGroupActionAdded _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - g_action_group_action_added _obj' actionName' - touchManagedPtr _obj - freeMem actionName' - return () - -data ActionGroupActionAddedMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupActionAddedMethodInfo a signature where - overloadedMethod _ = actionGroupActionAdded - --- method ActionGroup::action_enabled_changed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_action_group_action_enabled_changed" g_action_group_action_enabled_changed :: - Ptr ActionGroup -> -- _obj : TInterface "Gio" "ActionGroup" - CString -> -- action_name : TBasicType TUTF8 - CInt -> -- enabled : TBasicType TBoolean - IO () - - -actionGroupActionEnabledChanged :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> Bool -- enabled - -> m () -- result -actionGroupActionEnabledChanged _obj actionName enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - let enabled' = (fromIntegral . fromEnum) enabled - g_action_group_action_enabled_changed _obj' actionName' enabled' - touchManagedPtr _obj - freeMem actionName' - return () - -data ActionGroupActionEnabledChangedMethodInfo -instance (signature ~ (T.Text -> Bool -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupActionEnabledChangedMethodInfo a signature where - overloadedMethod _ = actionGroupActionEnabledChanged - --- method ActionGroup::action_removed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_action_group_action_removed" g_action_group_action_removed :: - Ptr ActionGroup -> -- _obj : TInterface "Gio" "ActionGroup" - CString -> -- action_name : TBasicType TUTF8 - IO () - - -actionGroupActionRemoved :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> m () -- result -actionGroupActionRemoved _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - g_action_group_action_removed _obj' actionName' - touchManagedPtr _obj - freeMem actionName' - return () - -data ActionGroupActionRemovedMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupActionRemovedMethodInfo a signature where - overloadedMethod _ = actionGroupActionRemoved - --- method ActionGroup::action_state_changed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_action_group_action_state_changed" g_action_group_action_state_changed :: - Ptr ActionGroup -> -- _obj : TInterface "Gio" "ActionGroup" - CString -> -- action_name : TBasicType TUTF8 - Ptr GVariant -> -- state : TVariant - IO () - - -actionGroupActionStateChanged :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> GVariant -- state - -> m () -- result -actionGroupActionStateChanged _obj actionName state = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - let state' = unsafeManagedPtrGetPtr state - g_action_group_action_state_changed _obj' actionName' state' - touchManagedPtr _obj - freeMem actionName' - return () - -data ActionGroupActionStateChangedMethodInfo -instance (signature ~ (T.Text -> GVariant -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupActionStateChangedMethodInfo a signature where - overloadedMethod _ = actionGroupActionStateChanged - --- method ActionGroup::activate_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_action_group_activate_action" g_action_group_activate_action :: - Ptr ActionGroup -> -- _obj : TInterface "Gio" "ActionGroup" - CString -> -- action_name : TBasicType TUTF8 - Ptr GVariant -> -- parameter : TVariant - IO () - - -actionGroupActivateAction :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> Maybe (GVariant) -- parameter - -> m () -- result -actionGroupActivateAction _obj actionName parameter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - maybeParameter <- case parameter of - Nothing -> return nullPtr - Just jParameter -> do - let jParameter' = unsafeManagedPtrGetPtr jParameter - return jParameter' - g_action_group_activate_action _obj' actionName' maybeParameter - touchManagedPtr _obj - freeMem actionName' - return () - -data ActionGroupActivateActionMethodInfo -instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupActivateActionMethodInfo a signature where - overloadedMethod _ = actionGroupActivateAction - --- method ActionGroup::change_action_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_action_group_change_action_state" g_action_group_change_action_state :: - Ptr ActionGroup -> -- _obj : TInterface "Gio" "ActionGroup" - CString -> -- action_name : TBasicType TUTF8 - Ptr GVariant -> -- value : TVariant - IO () - - -actionGroupChangeActionState :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> GVariant -- value - -> m () -- result -actionGroupChangeActionState _obj actionName value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - let value' = unsafeManagedPtrGetPtr value - g_action_group_change_action_state _obj' actionName' value' - touchManagedPtr _obj - freeMem actionName' - return () - -data ActionGroupChangeActionStateMethodInfo -instance (signature ~ (T.Text -> GVariant -> m ()), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupChangeActionStateMethodInfo a signature where - overloadedMethod _ = actionGroupChangeActionState - --- method ActionGroup::get_action_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_action_group_get_action_enabled" g_action_group_get_action_enabled :: - Ptr ActionGroup -> -- _obj : TInterface "Gio" "ActionGroup" - CString -> -- action_name : TBasicType TUTF8 - IO CInt - - -actionGroupGetActionEnabled :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> m Bool -- result -actionGroupGetActionEnabled _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - result <- g_action_group_get_action_enabled _obj' actionName' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem actionName' - return result' - -data ActionGroupGetActionEnabledMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionEnabledMethodInfo a signature where - overloadedMethod _ = actionGroupGetActionEnabled - --- method ActionGroup::get_action_parameter_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_action_group_get_action_parameter_type" g_action_group_get_action_parameter_type :: - Ptr ActionGroup -> -- _obj : TInterface "Gio" "ActionGroup" - CString -> -- action_name : TBasicType TUTF8 - IO (Ptr GLib.VariantType) - - -actionGroupGetActionParameterType :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> m (Maybe GLib.VariantType) -- result -actionGroupGetActionParameterType _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - result <- g_action_group_get_action_parameter_type _obj' actionName' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newBoxed GLib.VariantType) result' - return result'' - touchManagedPtr _obj - freeMem actionName' - return maybeResult - -data ActionGroupGetActionParameterTypeMethodInfo -instance (signature ~ (T.Text -> m (Maybe GLib.VariantType)), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionParameterTypeMethodInfo a signature where - overloadedMethod _ = actionGroupGetActionParameterType - --- method ActionGroup::get_action_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_action_group_get_action_state" g_action_group_get_action_state :: - Ptr ActionGroup -> -- _obj : TInterface "Gio" "ActionGroup" - CString -> -- action_name : TBasicType TUTF8 - IO (Ptr GVariant) - - -actionGroupGetActionState :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> m (Maybe GVariant) -- result -actionGroupGetActionState _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - result <- g_action_group_get_action_state _obj' actionName' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- wrapGVariantPtr result' - return result'' - touchManagedPtr _obj - freeMem actionName' - return maybeResult - -data ActionGroupGetActionStateMethodInfo -instance (signature ~ (T.Text -> m (Maybe GVariant)), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionStateMethodInfo a signature where - overloadedMethod _ = actionGroupGetActionState - --- method ActionGroup::get_action_state_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_action_group_get_action_state_hint" g_action_group_get_action_state_hint :: - Ptr ActionGroup -> -- _obj : TInterface "Gio" "ActionGroup" - CString -> -- action_name : TBasicType TUTF8 - IO (Ptr GVariant) - - -actionGroupGetActionStateHint :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> m (Maybe GVariant) -- result -actionGroupGetActionStateHint _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - result <- g_action_group_get_action_state_hint _obj' actionName' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- wrapGVariantPtr result' - return result'' - touchManagedPtr _obj - freeMem actionName' - return maybeResult - -data ActionGroupGetActionStateHintMethodInfo -instance (signature ~ (T.Text -> m (Maybe GVariant)), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionStateHintMethodInfo a signature where - overloadedMethod _ = actionGroupGetActionStateHint - --- method ActionGroup::get_action_state_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_action_group_get_action_state_type" g_action_group_get_action_state_type :: - Ptr ActionGroup -> -- _obj : TInterface "Gio" "ActionGroup" - CString -> -- action_name : TBasicType TUTF8 - IO (Ptr GLib.VariantType) - - -actionGroupGetActionStateType :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> m (Maybe GLib.VariantType) -- result -actionGroupGetActionStateType _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - result <- g_action_group_get_action_state_type _obj' actionName' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newBoxed GLib.VariantType) result' - return result'' - touchManagedPtr _obj - freeMem actionName' - return maybeResult - -data ActionGroupGetActionStateTypeMethodInfo -instance (signature ~ (T.Text -> m (Maybe GLib.VariantType)), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupGetActionStateTypeMethodInfo a signature where - overloadedMethod _ = actionGroupGetActionStateType - --- method ActionGroup::has_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_action_group_has_action" g_action_group_has_action :: - Ptr ActionGroup -> -- _obj : TInterface "Gio" "ActionGroup" - CString -> -- action_name : TBasicType TUTF8 - IO CInt - - -actionGroupHasAction :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> m Bool -- result -actionGroupHasAction _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - result <- g_action_group_has_action _obj' actionName' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem actionName' - return result' - -data ActionGroupHasActionMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupHasActionMethodInfo a signature where - overloadedMethod _ = actionGroupHasAction - --- method ActionGroup::list_actions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_action_group_list_actions" g_action_group_list_actions :: - Ptr ActionGroup -> -- _obj : TInterface "Gio" "ActionGroup" - IO (Ptr CString) - - -actionGroupListActions :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> m [T.Text] -- result -actionGroupListActions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_action_group_list_actions _obj' - checkUnexpectedReturnNULL "g_action_group_list_actions" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - return result' - -data ActionGroupListActionsMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupListActionsMethodInfo a signature where - overloadedMethod _ = actionGroupListActions - --- method ActionGroup::query_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parameter_type", argType = TInterface "GLib" "VariantType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "state_type", argType = TInterface "GLib" "VariantType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "state_hint", argType = TVariant, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "state", argType = TVariant, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_action_group_query_action" g_action_group_query_action :: - Ptr ActionGroup -> -- _obj : TInterface "Gio" "ActionGroup" - CString -> -- action_name : TBasicType TUTF8 - Ptr CInt -> -- enabled : TBasicType TBoolean - Ptr (Ptr GLib.VariantType) -> -- parameter_type : TInterface "GLib" "VariantType" - Ptr (Ptr GLib.VariantType) -> -- state_type : TInterface "GLib" "VariantType" - Ptr (Ptr GVariant) -> -- state_hint : TVariant - Ptr (Ptr GVariant) -> -- state : TVariant - IO CInt - - -actionGroupQueryAction :: - (MonadIO m, ActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> m (Bool,Bool,GLib.VariantType,GLib.VariantType,GVariant,GVariant)-- result -actionGroupQueryAction _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - enabled <- allocMem :: IO (Ptr CInt) - parameterType <- allocMem :: IO (Ptr (Ptr GLib.VariantType)) - stateType <- allocMem :: IO (Ptr (Ptr GLib.VariantType)) - stateHint <- allocMem :: IO (Ptr (Ptr GVariant)) - state <- allocMem :: IO (Ptr (Ptr GVariant)) - result <- g_action_group_query_action _obj' actionName' enabled parameterType stateType stateHint state - let result' = (/= 0) result - enabled' <- peek enabled - let enabled'' = (/= 0) enabled' - parameterType' <- peek parameterType - parameterType'' <- (wrapBoxed GLib.VariantType) parameterType' - stateType' <- peek stateType - stateType'' <- (wrapBoxed GLib.VariantType) stateType' - stateHint' <- peek stateHint - stateHint'' <- wrapGVariantPtr stateHint' - state' <- peek state - state'' <- wrapGVariantPtr state' - touchManagedPtr _obj - freeMem actionName' - freeMem enabled - freeMem parameterType - freeMem stateType - freeMem stateHint - freeMem state - return (result', enabled'', parameterType'', stateType'', stateHint'', state'') - -data ActionGroupQueryActionMethodInfo -instance (signature ~ (T.Text -> m (Bool,Bool,GLib.VariantType,GLib.VariantType,GVariant,GVariant)), MonadIO m, ActionGroupK a) => MethodInfo ActionGroupQueryActionMethodInfo a signature where - overloadedMethod _ = actionGroupQueryAction - - diff --git a/GI/Gio/Interfaces/ActionGroup.hs-boot b/GI/Gio/Interfaces/ActionGroup.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/ActionGroup.hs-boot +++ /dev/null @@ -1,31 +0,0 @@ -module GI.Gio.Interfaces.ActionGroup where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionGroup = ActionGroup (ForeignPtr ActionGroup) -data ActionGroupActionAddedSignalInfo -data ActionGroupActionEnabledChangedSignalInfo -data ActionGroupActionRemovedSignalInfo -data ActionGroupActionStateChangedSignalInfo -instance GObject ActionGroup where -class GObject o => ActionGroupK o -instance (GObject o, IsDescendantOf ActionGroup o) => ActionGroupK o -data ActionGroupActionAddedMethodInfo -data ActionGroupActionEnabledChangedMethodInfo -data ActionGroupActionRemovedMethodInfo -data ActionGroupActionStateChangedMethodInfo -data ActionGroupActivateActionMethodInfo -data ActionGroupChangeActionStateMethodInfo -data ActionGroupGetActionEnabledMethodInfo -data ActionGroupGetActionParameterTypeMethodInfo -data ActionGroupGetActionStateMethodInfo -data ActionGroupGetActionStateHintMethodInfo -data ActionGroupGetActionStateTypeMethodInfo -data ActionGroupHasActionMethodInfo -data ActionGroupListActionsMethodInfo -data ActionGroupQueryActionMethodInfo diff --git a/GI/Gio/Interfaces/ActionMap.hs b/GI/Gio/Interfaces/ActionMap.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/ActionMap.hs +++ /dev/null @@ -1,253 +0,0 @@ - - -{- | -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.Interfaces.ActionMap - ( - --- * Exported types - ActionMap(..) , - noActionMap , - ActionMapK , - toActionMap , - - - -- * Methods --- ** actionMapAddAction - ActionMapAddActionMethodInfo , - actionMapAddAction , - - --- ** actionMapAddActionEntries - ActionMapAddActionEntriesMethodInfo , - actionMapAddActionEntries , - - --- ** actionMapLookupAction - ActionMapLookupActionMethodInfo , - actionMapLookupAction , - - --- ** actionMapRemoveAction - ActionMapRemoveActionMethodInfo , - actionMapRemoveAction , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface ActionMap - -newtype ActionMap = ActionMap (ForeignPtr ActionMap) -noActionMap :: Maybe ActionMap -noActionMap = Nothing - -type family ResolveActionMapMethod (t :: Symbol) (o :: *) :: * where - ResolveActionMapMethod "addAction" o = ActionMapAddActionMethodInfo - ResolveActionMapMethod "addActionEntries" o = ActionMapAddActionEntriesMethodInfo - ResolveActionMapMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveActionMapMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveActionMapMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveActionMapMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveActionMapMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveActionMapMethod "lookupAction" o = ActionMapLookupActionMethodInfo - ResolveActionMapMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveActionMapMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveActionMapMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveActionMapMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveActionMapMethod "removeAction" o = ActionMapRemoveActionMethodInfo - ResolveActionMapMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveActionMapMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveActionMapMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveActionMapMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveActionMapMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveActionMapMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveActionMapMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveActionMapMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveActionMapMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveActionMapMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveActionMapMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveActionMapMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveActionMapMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveActionMapMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionMapMethod t ActionMap, MethodInfo info ActionMap p) => IsLabelProxy t (ActionMap -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionMapMethod t ActionMap, MethodInfo info ActionMap p) => IsLabel t (ActionMap -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ActionMap = ActionMapAttributeList -type ActionMapAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList ActionMap = ActionMapSignalList -type ActionMapSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_action_map_get_type" - c_g_action_map_get_type :: IO GType - -type instance ParentTypes ActionMap = ActionMapParentTypes -type ActionMapParentTypes = '[GObject.Object] - -instance GObject ActionMap where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_action_map_get_type - - -class GObject o => ActionMapK o -instance (GObject o, IsDescendantOf ActionMap o) => ActionMapK o - -toActionMap :: ActionMapK o => o -> IO ActionMap -toActionMap = unsafeCastTo ActionMap - --- method ActionMap::add_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_action_map_add_action" g_action_map_add_action :: - Ptr ActionMap -> -- _obj : TInterface "Gio" "ActionMap" - Ptr Action -> -- action : TInterface "Gio" "Action" - IO () - - -actionMapAddAction :: - (MonadIO m, ActionMapK a, ActionK b) => - a -- _obj - -> b -- action - -> m () -- result -actionMapAddAction _obj action = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let action' = unsafeManagedPtrCastPtr action - g_action_map_add_action _obj' action' - touchManagedPtr _obj - touchManagedPtr action - return () - -data ActionMapAddActionMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ActionMapK a, ActionK b) => MethodInfo ActionMapAddActionMethodInfo a signature where - overloadedMethod _ = actionMapAddAction - --- method ActionMap::add_action_entries --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray False (-1) 2 (TInterface "Gio" "ActionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_action_map_add_action_entries" g_action_map_add_action_entries :: - Ptr ActionMap -> -- _obj : TInterface "Gio" "ActionMap" - Ptr ActionEntry -> -- entries : TCArray False (-1) 2 (TInterface "Gio" "ActionEntry") - Int32 -> -- n_entries : TBasicType TInt - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -actionMapAddActionEntries :: - (MonadIO m, ActionMapK a) => - a -- _obj - -> [ActionEntry] -- entries - -> Ptr () -- userData - -> m () -- result -actionMapAddActionEntries _obj entries userData = liftIO $ do - let nEntries = fromIntegral $ length entries - let _obj' = unsafeManagedPtrCastPtr _obj - let entries' = map unsafeManagedPtrGetPtr entries - entries'' <- packBlockArray 64 entries' - g_action_map_add_action_entries _obj' entries'' nEntries userData - touchManagedPtr _obj - mapM_ touchManagedPtr entries - freeMem entries'' - return () - -data ActionMapAddActionEntriesMethodInfo -instance (signature ~ ([ActionEntry] -> Ptr () -> m ()), MonadIO m, ActionMapK a) => MethodInfo ActionMapAddActionEntriesMethodInfo a signature where - overloadedMethod _ = actionMapAddActionEntries - --- method ActionMap::lookup_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Action") --- throws : False --- Skip return : False - -foreign import ccall "g_action_map_lookup_action" g_action_map_lookup_action :: - Ptr ActionMap -> -- _obj : TInterface "Gio" "ActionMap" - CString -> -- action_name : TBasicType TUTF8 - IO (Ptr Action) - - -actionMapLookupAction :: - (MonadIO m, ActionMapK a) => - a -- _obj - -> T.Text -- actionName - -> m Action -- result -actionMapLookupAction _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - result <- g_action_map_lookup_action _obj' actionName' - checkUnexpectedReturnNULL "g_action_map_lookup_action" result - result' <- (newObject Action) result - touchManagedPtr _obj - freeMem actionName' - return result' - -data ActionMapLookupActionMethodInfo -instance (signature ~ (T.Text -> m Action), MonadIO m, ActionMapK a) => MethodInfo ActionMapLookupActionMethodInfo a signature where - overloadedMethod _ = actionMapLookupAction - --- method ActionMap::remove_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ActionMap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_action_map_remove_action" g_action_map_remove_action :: - Ptr ActionMap -> -- _obj : TInterface "Gio" "ActionMap" - CString -> -- action_name : TBasicType TUTF8 - IO () - - -actionMapRemoveAction :: - (MonadIO m, ActionMapK a) => - a -- _obj - -> T.Text -- actionName - -> m () -- result -actionMapRemoveAction _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - g_action_map_remove_action _obj' actionName' - touchManagedPtr _obj - freeMem actionName' - return () - -data ActionMapRemoveActionMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ActionMapK a) => MethodInfo ActionMapRemoveActionMethodInfo a signature where - overloadedMethod _ = actionMapRemoveAction - - diff --git a/GI/Gio/Interfaces/ActionMap.hs-boot b/GI/Gio/Interfaces/ActionMap.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/ActionMap.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Interfaces.ActionMap where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionMap = ActionMap (ForeignPtr ActionMap) -instance GObject ActionMap where -class GObject o => ActionMapK o -instance (GObject o, IsDescendantOf ActionMap o) => ActionMapK o -data ActionMapAddActionMethodInfo -data ActionMapAddActionEntriesMethodInfo -data ActionMapLookupActionMethodInfo -data ActionMapRemoveActionMethodInfo diff --git a/GI/Gio/Interfaces/AppInfo.hs b/GI/Gio/Interfaces/AppInfo.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/AppInfo.hs +++ /dev/null @@ -1,1259 +0,0 @@ - - -{- | -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.Interfaces.AppInfo - ( - --- * Exported types - AppInfo(..) , - noAppInfo , - AppInfoK , - toAppInfo , - - - -- * Methods --- ** appInfoAddSupportsType - AppInfoAddSupportsTypeMethodInfo , - appInfoAddSupportsType , - - --- ** appInfoCanDelete - AppInfoCanDeleteMethodInfo , - appInfoCanDelete , - - --- ** appInfoCanRemoveSupportsType - AppInfoCanRemoveSupportsTypeMethodInfo , - appInfoCanRemoveSupportsType , - - --- ** appInfoCreateFromCommandline - appInfoCreateFromCommandline , - - --- ** appInfoDelete - AppInfoDeleteMethodInfo , - appInfoDelete , - - --- ** appInfoDup - AppInfoDupMethodInfo , - appInfoDup , - - --- ** appInfoEqual - AppInfoEqualMethodInfo , - appInfoEqual , - - --- ** appInfoGetAll - appInfoGetAll , - - --- ** appInfoGetAllForType - appInfoGetAllForType , - - --- ** appInfoGetCommandline - AppInfoGetCommandlineMethodInfo , - appInfoGetCommandline , - - --- ** appInfoGetDefaultForType - appInfoGetDefaultForType , - - --- ** appInfoGetDefaultForUriScheme - appInfoGetDefaultForUriScheme , - - --- ** appInfoGetDescription - AppInfoGetDescriptionMethodInfo , - appInfoGetDescription , - - --- ** appInfoGetDisplayName - AppInfoGetDisplayNameMethodInfo , - appInfoGetDisplayName , - - --- ** appInfoGetExecutable - AppInfoGetExecutableMethodInfo , - appInfoGetExecutable , - - --- ** appInfoGetFallbackForType - appInfoGetFallbackForType , - - --- ** appInfoGetIcon - AppInfoGetIconMethodInfo , - appInfoGetIcon , - - --- ** appInfoGetId - AppInfoGetIdMethodInfo , - appInfoGetId , - - --- ** appInfoGetName - AppInfoGetNameMethodInfo , - appInfoGetName , - - --- ** appInfoGetRecommendedForType - appInfoGetRecommendedForType , - - --- ** appInfoGetSupportedTypes - AppInfoGetSupportedTypesMethodInfo , - appInfoGetSupportedTypes , - - --- ** appInfoLaunch - AppInfoLaunchMethodInfo , - appInfoLaunch , - - --- ** appInfoLaunchDefaultForUri - appInfoLaunchDefaultForUri , - - --- ** appInfoLaunchUris - AppInfoLaunchUrisMethodInfo , - appInfoLaunchUris , - - --- ** appInfoRemoveSupportsType - AppInfoRemoveSupportsTypeMethodInfo , - appInfoRemoveSupportsType , - - --- ** appInfoResetTypeAssociations - appInfoResetTypeAssociations , - - --- ** appInfoSetAsDefaultForExtension - AppInfoSetAsDefaultForExtensionMethodInfo, - appInfoSetAsDefaultForExtension , - - --- ** appInfoSetAsDefaultForType - AppInfoSetAsDefaultForTypeMethodInfo , - appInfoSetAsDefaultForType , - - --- ** appInfoSetAsLastUsedForType - AppInfoSetAsLastUsedForTypeMethodInfo , - appInfoSetAsLastUsedForType , - - --- ** appInfoShouldShow - AppInfoShouldShowMethodInfo , - appInfoShouldShow , - - --- ** appInfoSupportsFiles - AppInfoSupportsFilesMethodInfo , - appInfoSupportsFiles , - - --- ** appInfoSupportsUris - AppInfoSupportsUrisMethodInfo , - appInfoSupportsUris , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface AppInfo - -newtype AppInfo = AppInfo (ForeignPtr AppInfo) -noAppInfo :: Maybe AppInfo -noAppInfo = Nothing - -type family ResolveAppInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveAppInfoMethod "addSupportsType" o = AppInfoAddSupportsTypeMethodInfo - ResolveAppInfoMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAppInfoMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAppInfoMethod "canDelete" o = AppInfoCanDeleteMethodInfo - ResolveAppInfoMethod "canRemoveSupportsType" o = AppInfoCanRemoveSupportsTypeMethodInfo - ResolveAppInfoMethod "delete" o = AppInfoDeleteMethodInfo - ResolveAppInfoMethod "dup" o = AppInfoDupMethodInfo - ResolveAppInfoMethod "equal" o = AppInfoEqualMethodInfo - ResolveAppInfoMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAppInfoMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAppInfoMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAppInfoMethod "launch" o = AppInfoLaunchMethodInfo - ResolveAppInfoMethod "launchUris" o = AppInfoLaunchUrisMethodInfo - ResolveAppInfoMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAppInfoMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAppInfoMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAppInfoMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAppInfoMethod "removeSupportsType" o = AppInfoRemoveSupportsTypeMethodInfo - ResolveAppInfoMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAppInfoMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAppInfoMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAppInfoMethod "shouldShow" o = AppInfoShouldShowMethodInfo - ResolveAppInfoMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAppInfoMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAppInfoMethod "supportsFiles" o = AppInfoSupportsFilesMethodInfo - ResolveAppInfoMethod "supportsUris" o = AppInfoSupportsUrisMethodInfo - ResolveAppInfoMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAppInfoMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAppInfoMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAppInfoMethod "getCommandline" o = AppInfoGetCommandlineMethodInfo - ResolveAppInfoMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAppInfoMethod "getDescription" o = AppInfoGetDescriptionMethodInfo - ResolveAppInfoMethod "getDisplayName" o = AppInfoGetDisplayNameMethodInfo - ResolveAppInfoMethod "getExecutable" o = AppInfoGetExecutableMethodInfo - ResolveAppInfoMethod "getIcon" o = AppInfoGetIconMethodInfo - ResolveAppInfoMethod "getId" o = AppInfoGetIdMethodInfo - ResolveAppInfoMethod "getName" o = AppInfoGetNameMethodInfo - ResolveAppInfoMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAppInfoMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAppInfoMethod "getSupportedTypes" o = AppInfoGetSupportedTypesMethodInfo - ResolveAppInfoMethod "setAsDefaultForExtension" o = AppInfoSetAsDefaultForExtensionMethodInfo - ResolveAppInfoMethod "setAsDefaultForType" o = AppInfoSetAsDefaultForTypeMethodInfo - ResolveAppInfoMethod "setAsLastUsedForType" o = AppInfoSetAsLastUsedForTypeMethodInfo - ResolveAppInfoMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAppInfoMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAppInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAppInfoMethod t AppInfo, MethodInfo info AppInfo p) => IsLabelProxy t (AppInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAppInfoMethod t AppInfo, MethodInfo info AppInfo p) => IsLabel t (AppInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AppInfo = AppInfoAttributeList -type AppInfoAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList AppInfo = AppInfoSignalList -type AppInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_app_info_get_type" - c_g_app_info_get_type :: IO GType - -type instance ParentTypes AppInfo = AppInfoParentTypes -type AppInfoParentTypes = '[GObject.Object] - -instance GObject AppInfo where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_app_info_get_type - - -class GObject o => AppInfoK o -instance (GObject o, IsDescendantOf AppInfo o) => AppInfoK o - -toAppInfo :: AppInfoK o => o -> IO AppInfo -toAppInfo = unsafeCastTo AppInfo - --- method AppInfo::add_supports_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_app_info_add_supports_type" g_app_info_add_supports_type :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - CString -> -- content_type : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -appInfoAddSupportsType :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> T.Text -- contentType - -> m () -- result -appInfoAddSupportsType _obj contentType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - contentType' <- textToCString contentType - onException (do - _ <- propagateGError $ g_app_info_add_supports_type _obj' contentType' - touchManagedPtr _obj - freeMem contentType' - return () - ) (do - freeMem contentType' - ) - -data AppInfoAddSupportsTypeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AppInfoK a) => MethodInfo AppInfoAddSupportsTypeMethodInfo a signature where - overloadedMethod _ = appInfoAddSupportsType - --- method AppInfo::can_delete --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_can_delete" g_app_info_can_delete :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - IO CInt - - -appInfoCanDelete :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> m Bool -- result -appInfoCanDelete _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_info_can_delete _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AppInfoCanDeleteMethodInfo -instance (signature ~ (m Bool), MonadIO m, AppInfoK a) => MethodInfo AppInfoCanDeleteMethodInfo a signature where - overloadedMethod _ = appInfoCanDelete - --- method AppInfo::can_remove_supports_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_can_remove_supports_type" g_app_info_can_remove_supports_type :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - IO CInt - - -appInfoCanRemoveSupportsType :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> m Bool -- result -appInfoCanRemoveSupportsType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_info_can_remove_supports_type _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AppInfoCanRemoveSupportsTypeMethodInfo -instance (signature ~ (m Bool), MonadIO m, AppInfoK a) => MethodInfo AppInfoCanRemoveSupportsTypeMethodInfo a signature where - overloadedMethod _ = appInfoCanRemoveSupportsType - --- method AppInfo::delete --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_delete" g_app_info_delete :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - IO CInt - - -appInfoDelete :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> m Bool -- result -appInfoDelete _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_info_delete _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AppInfoDeleteMethodInfo -instance (signature ~ (m Bool), MonadIO m, AppInfoK a) => MethodInfo AppInfoDeleteMethodInfo a signature where - overloadedMethod _ = appInfoDelete - --- method AppInfo::dup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "AppInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_dup" g_app_info_dup :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - IO (Ptr AppInfo) - - -appInfoDup :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> m AppInfo -- result -appInfoDup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_info_dup _obj' - checkUnexpectedReturnNULL "g_app_info_dup" result - result' <- (wrapObject AppInfo) result - touchManagedPtr _obj - return result' - -data AppInfoDupMethodInfo -instance (signature ~ (m AppInfo), MonadIO m, AppInfoK a) => MethodInfo AppInfoDupMethodInfo a signature where - overloadedMethod _ = appInfoDup - --- method AppInfo::equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "appinfo2", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_equal" g_app_info_equal :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - Ptr AppInfo -> -- appinfo2 : TInterface "Gio" "AppInfo" - IO CInt - - -appInfoEqual :: - (MonadIO m, AppInfoK a, AppInfoK b) => - a -- _obj - -> b -- appinfo2 - -> m Bool -- result -appInfoEqual _obj appinfo2 = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let appinfo2' = unsafeManagedPtrCastPtr appinfo2 - result <- g_app_info_equal _obj' appinfo2' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr appinfo2 - return result' - -data AppInfoEqualMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, AppInfoK a, AppInfoK b) => MethodInfo AppInfoEqualMethodInfo a signature where - overloadedMethod _ = appInfoEqual - --- method AppInfo::get_commandline --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_get_commandline" g_app_info_get_commandline :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - IO CString - - -appInfoGetCommandline :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> m T.Text -- result -appInfoGetCommandline _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_info_get_commandline _obj' - checkUnexpectedReturnNULL "g_app_info_get_commandline" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AppInfoGetCommandlineMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetCommandlineMethodInfo a signature where - overloadedMethod _ = appInfoGetCommandline - --- method AppInfo::get_description --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_get_description" g_app_info_get_description :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - IO CString - - -appInfoGetDescription :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> m T.Text -- result -appInfoGetDescription _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_info_get_description _obj' - checkUnexpectedReturnNULL "g_app_info_get_description" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AppInfoGetDescriptionMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetDescriptionMethodInfo a signature where - overloadedMethod _ = appInfoGetDescription - --- method AppInfo::get_display_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_get_display_name" g_app_info_get_display_name :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - IO CString - - -appInfoGetDisplayName :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> m T.Text -- result -appInfoGetDisplayName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_info_get_display_name _obj' - checkUnexpectedReturnNULL "g_app_info_get_display_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AppInfoGetDisplayNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetDisplayNameMethodInfo a signature where - overloadedMethod _ = appInfoGetDisplayName - --- method AppInfo::get_executable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_get_executable" g_app_info_get_executable :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - IO CString - - -appInfoGetExecutable :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> m T.Text -- result -appInfoGetExecutable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_info_get_executable _obj' - checkUnexpectedReturnNULL "g_app_info_get_executable" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AppInfoGetExecutableMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetExecutableMethodInfo a signature where - overloadedMethod _ = appInfoGetExecutable - --- method AppInfo::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_get_icon" g_app_info_get_icon :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - IO (Ptr Icon) - - -appInfoGetIcon :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> m Icon -- result -appInfoGetIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_info_get_icon _obj' - checkUnexpectedReturnNULL "g_app_info_get_icon" result - result' <- (newObject Icon) result - touchManagedPtr _obj - return result' - -data AppInfoGetIconMethodInfo -instance (signature ~ (m Icon), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetIconMethodInfo a signature where - overloadedMethod _ = appInfoGetIcon - --- method AppInfo::get_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_get_id" g_app_info_get_id :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - IO CString - - -appInfoGetId :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> m T.Text -- result -appInfoGetId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_info_get_id _obj' - checkUnexpectedReturnNULL "g_app_info_get_id" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AppInfoGetIdMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetIdMethodInfo a signature where - overloadedMethod _ = appInfoGetId - --- method AppInfo::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_get_name" g_app_info_get_name :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - IO CString - - -appInfoGetName :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> m T.Text -- result -appInfoGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_info_get_name _obj' - checkUnexpectedReturnNULL "g_app_info_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data AppInfoGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetNameMethodInfo a signature where - overloadedMethod _ = appInfoGetName - --- method AppInfo::get_supported_types --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_get_supported_types" g_app_info_get_supported_types :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - IO (Ptr CString) - - -appInfoGetSupportedTypes :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> m [T.Text] -- result -appInfoGetSupportedTypes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_info_get_supported_types _obj' - checkUnexpectedReturnNULL "g_app_info_get_supported_types" result - result' <- unpackZeroTerminatedUTF8CArray result - touchManagedPtr _obj - return result' - -data AppInfoGetSupportedTypesMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, AppInfoK a) => MethodInfo AppInfoGetSupportedTypesMethodInfo a signature where - overloadedMethod _ = appInfoGetSupportedTypes - --- method AppInfo::launch --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TGList (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_app_info_launch" g_app_info_launch :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - Ptr (GList (Ptr File)) -> -- files : TGList (TInterface "Gio" "File") - Ptr AppLaunchContext -> -- launch_context : TInterface "Gio" "AppLaunchContext" - Ptr (Ptr GError) -> -- error - IO CInt - - -appInfoLaunch :: - (MonadIO m, AppInfoK a, FileK b, AppLaunchContextK c) => - a -- _obj - -> [b] -- files - -> Maybe (c) -- launchContext - -> m () -- result -appInfoLaunch _obj files launchContext = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let files' = map unsafeManagedPtrCastPtr files - files'' <- packGList files' - maybeLaunchContext <- case launchContext of - Nothing -> return nullPtr - Just jLaunchContext -> do - let jLaunchContext' = unsafeManagedPtrCastPtr jLaunchContext - return jLaunchContext' - onException (do - _ <- propagateGError $ g_app_info_launch _obj' files'' maybeLaunchContext - touchManagedPtr _obj - mapM_ touchManagedPtr files - whenJust launchContext touchManagedPtr - g_list_free files'' - return () - ) (do - g_list_free files'' - ) - -data AppInfoLaunchMethodInfo -instance (signature ~ ([b] -> Maybe (c) -> m ()), MonadIO m, AppInfoK a, FileK b, AppLaunchContextK c) => MethodInfo AppInfoLaunchMethodInfo a signature where - overloadedMethod _ = appInfoLaunch - --- method AppInfo::launch_uris --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uris", argType = TGList (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_app_info_launch_uris" g_app_info_launch_uris :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - Ptr (GList CString) -> -- uris : TGList (TBasicType TUTF8) - Ptr AppLaunchContext -> -- launch_context : TInterface "Gio" "AppLaunchContext" - Ptr (Ptr GError) -> -- error - IO CInt - - -appInfoLaunchUris :: - (MonadIO m, AppInfoK a, AppLaunchContextK b) => - a -- _obj - -> [T.Text] -- uris - -> Maybe (b) -- launchContext - -> m () -- result -appInfoLaunchUris _obj uris launchContext = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uris' <- mapM textToCString uris - uris'' <- packGList uris' - maybeLaunchContext <- case launchContext of - Nothing -> return nullPtr - Just jLaunchContext -> do - let jLaunchContext' = unsafeManagedPtrCastPtr jLaunchContext - return jLaunchContext' - onException (do - _ <- propagateGError $ g_app_info_launch_uris _obj' uris'' maybeLaunchContext - touchManagedPtr _obj - whenJust launchContext touchManagedPtr - mapGList freeMem uris'' - g_list_free uris'' - return () - ) (do - mapGList freeMem uris'' - g_list_free uris'' - ) - -data AppInfoLaunchUrisMethodInfo -instance (signature ~ ([T.Text] -> Maybe (b) -> m ()), MonadIO m, AppInfoK a, AppLaunchContextK b) => MethodInfo AppInfoLaunchUrisMethodInfo a signature where - overloadedMethod _ = appInfoLaunchUris - --- method AppInfo::remove_supports_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_app_info_remove_supports_type" g_app_info_remove_supports_type :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - CString -> -- content_type : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -appInfoRemoveSupportsType :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> T.Text -- contentType - -> m () -- result -appInfoRemoveSupportsType _obj contentType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - contentType' <- textToCString contentType - onException (do - _ <- propagateGError $ g_app_info_remove_supports_type _obj' contentType' - touchManagedPtr _obj - freeMem contentType' - return () - ) (do - freeMem contentType' - ) - -data AppInfoRemoveSupportsTypeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AppInfoK a) => MethodInfo AppInfoRemoveSupportsTypeMethodInfo a signature where - overloadedMethod _ = appInfoRemoveSupportsType - --- method AppInfo::set_as_default_for_extension --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extension", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_app_info_set_as_default_for_extension" g_app_info_set_as_default_for_extension :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - CString -> -- extension : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -appInfoSetAsDefaultForExtension :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> T.Text -- extension - -> m () -- result -appInfoSetAsDefaultForExtension _obj extension = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - extension' <- textToCString extension - onException (do - _ <- propagateGError $ g_app_info_set_as_default_for_extension _obj' extension' - touchManagedPtr _obj - freeMem extension' - return () - ) (do - freeMem extension' - ) - -data AppInfoSetAsDefaultForExtensionMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AppInfoK a) => MethodInfo AppInfoSetAsDefaultForExtensionMethodInfo a signature where - overloadedMethod _ = appInfoSetAsDefaultForExtension - --- method AppInfo::set_as_default_for_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_app_info_set_as_default_for_type" g_app_info_set_as_default_for_type :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - CString -> -- content_type : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -appInfoSetAsDefaultForType :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> T.Text -- contentType - -> m () -- result -appInfoSetAsDefaultForType _obj contentType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - contentType' <- textToCString contentType - onException (do - _ <- propagateGError $ g_app_info_set_as_default_for_type _obj' contentType' - touchManagedPtr _obj - freeMem contentType' - return () - ) (do - freeMem contentType' - ) - -data AppInfoSetAsDefaultForTypeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AppInfoK a) => MethodInfo AppInfoSetAsDefaultForTypeMethodInfo a signature where - overloadedMethod _ = appInfoSetAsDefaultForType - --- method AppInfo::set_as_last_used_for_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_app_info_set_as_last_used_for_type" g_app_info_set_as_last_used_for_type :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - CString -> -- content_type : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -appInfoSetAsLastUsedForType :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> T.Text -- contentType - -> m () -- result -appInfoSetAsLastUsedForType _obj contentType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - contentType' <- textToCString contentType - onException (do - _ <- propagateGError $ g_app_info_set_as_last_used_for_type _obj' contentType' - touchManagedPtr _obj - freeMem contentType' - return () - ) (do - freeMem contentType' - ) - -data AppInfoSetAsLastUsedForTypeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AppInfoK a) => MethodInfo AppInfoSetAsLastUsedForTypeMethodInfo a signature where - overloadedMethod _ = appInfoSetAsLastUsedForType - --- method AppInfo::should_show --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_should_show" g_app_info_should_show :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - IO CInt - - -appInfoShouldShow :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> m Bool -- result -appInfoShouldShow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_info_should_show _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AppInfoShouldShowMethodInfo -instance (signature ~ (m Bool), MonadIO m, AppInfoK a) => MethodInfo AppInfoShouldShowMethodInfo a signature where - overloadedMethod _ = appInfoShouldShow - --- method AppInfo::supports_files --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_supports_files" g_app_info_supports_files :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - IO CInt - - -appInfoSupportsFiles :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> m Bool -- result -appInfoSupportsFiles _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_info_supports_files _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AppInfoSupportsFilesMethodInfo -instance (signature ~ (m Bool), MonadIO m, AppInfoK a) => MethodInfo AppInfoSupportsFilesMethodInfo a signature where - overloadedMethod _ = appInfoSupportsFiles - --- method AppInfo::supports_uris --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_supports_uris" g_app_info_supports_uris :: - Ptr AppInfo -> -- _obj : TInterface "Gio" "AppInfo" - IO CInt - - -appInfoSupportsUris :: - (MonadIO m, AppInfoK a) => - a -- _obj - -> m Bool -- result -appInfoSupportsUris _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_info_supports_uris _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AppInfoSupportsUrisMethodInfo -instance (signature ~ (m Bool), MonadIO m, AppInfoK a) => MethodInfo AppInfoSupportsUrisMethodInfo a signature where - overloadedMethod _ = appInfoSupportsUris - --- method AppInfo::create_from_commandline --- method type : MemberFunction --- Args : [Arg {argCName = "commandline", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "AppInfoCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "AppInfo") --- throws : True --- Skip return : False - -foreign import ccall "g_app_info_create_from_commandline" g_app_info_create_from_commandline :: - CString -> -- commandline : TBasicType TUTF8 - CString -> -- application_name : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "AppInfoCreateFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr AppInfo) - - -appInfoCreateFromCommandline :: - (MonadIO m) => - T.Text -- commandline - -> Maybe (T.Text) -- applicationName - -> [AppInfoCreateFlags] -- flags - -> m AppInfo -- result -appInfoCreateFromCommandline commandline applicationName flags = liftIO $ do - commandline' <- textToCString commandline - maybeApplicationName <- case applicationName of - Nothing -> return nullPtr - Just jApplicationName -> do - jApplicationName' <- textToCString jApplicationName - return jApplicationName' - let flags' = gflagsToWord flags - onException (do - result <- propagateGError $ g_app_info_create_from_commandline commandline' maybeApplicationName flags' - checkUnexpectedReturnNULL "g_app_info_create_from_commandline" result - result' <- (wrapObject AppInfo) result - freeMem commandline' - freeMem maybeApplicationName - return result' - ) (do - freeMem commandline' - freeMem maybeApplicationName - ) - --- method AppInfo::get_all --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "AppInfo")) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_get_all" g_app_info_get_all :: - IO (Ptr (GList (Ptr AppInfo))) - - -appInfoGetAll :: - (MonadIO m) => - m [AppInfo] -- result -appInfoGetAll = liftIO $ do - result <- g_app_info_get_all - result' <- unpackGList result - result'' <- mapM (wrapObject AppInfo) result' - g_list_free result - return result'' - --- method AppInfo::get_all_for_type --- method type : MemberFunction --- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "AppInfo")) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_get_all_for_type" g_app_info_get_all_for_type :: - CString -> -- content_type : TBasicType TUTF8 - IO (Ptr (GList (Ptr AppInfo))) - - -appInfoGetAllForType :: - (MonadIO m) => - T.Text -- contentType - -> m [AppInfo] -- result -appInfoGetAllForType contentType = liftIO $ do - contentType' <- textToCString contentType - result <- g_app_info_get_all_for_type contentType' - result' <- unpackGList result - result'' <- mapM (wrapObject AppInfo) result' - g_list_free result - freeMem contentType' - return result'' - --- method AppInfo::get_default_for_type --- method type : MemberFunction --- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "must_support_uris", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "AppInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_get_default_for_type" g_app_info_get_default_for_type :: - CString -> -- content_type : TBasicType TUTF8 - CInt -> -- must_support_uris : TBasicType TBoolean - IO (Ptr AppInfo) - - -appInfoGetDefaultForType :: - (MonadIO m) => - T.Text -- contentType - -> Bool -- mustSupportUris - -> m AppInfo -- result -appInfoGetDefaultForType contentType mustSupportUris = liftIO $ do - contentType' <- textToCString contentType - let mustSupportUris' = (fromIntegral . fromEnum) mustSupportUris - result <- g_app_info_get_default_for_type contentType' mustSupportUris' - checkUnexpectedReturnNULL "g_app_info_get_default_for_type" result - result' <- (wrapObject AppInfo) result - freeMem contentType' - return result' - --- method AppInfo::get_default_for_uri_scheme --- method type : MemberFunction --- Args : [Arg {argCName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "AppInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_get_default_for_uri_scheme" g_app_info_get_default_for_uri_scheme :: - CString -> -- uri_scheme : TBasicType TUTF8 - IO (Ptr AppInfo) - - -appInfoGetDefaultForUriScheme :: - (MonadIO m) => - T.Text -- uriScheme - -> m AppInfo -- result -appInfoGetDefaultForUriScheme uriScheme = liftIO $ do - uriScheme' <- textToCString uriScheme - result <- g_app_info_get_default_for_uri_scheme uriScheme' - checkUnexpectedReturnNULL "g_app_info_get_default_for_uri_scheme" result - result' <- (wrapObject AppInfo) result - freeMem uriScheme' - return result' - --- method AppInfo::get_fallback_for_type --- method type : MemberFunction --- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "AppInfo")) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_get_fallback_for_type" g_app_info_get_fallback_for_type :: - CString -> -- content_type : TBasicType TUTF8 - IO (Ptr (GList (Ptr AppInfo))) - - -appInfoGetFallbackForType :: - (MonadIO m) => - T.Text -- contentType - -> m [AppInfo] -- result -appInfoGetFallbackForType contentType = liftIO $ do - contentType' <- textToCString contentType - result <- g_app_info_get_fallback_for_type contentType' - result' <- unpackGList result - result'' <- mapM (wrapObject AppInfo) result' - g_list_free result - freeMem contentType' - return result'' - --- method AppInfo::get_recommended_for_type --- method type : MemberFunction --- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "AppInfo")) --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_get_recommended_for_type" g_app_info_get_recommended_for_type :: - CString -> -- content_type : TBasicType TUTF8 - IO (Ptr (GList (Ptr AppInfo))) - - -appInfoGetRecommendedForType :: - (MonadIO m) => - T.Text -- contentType - -> m [AppInfo] -- result -appInfoGetRecommendedForType contentType = liftIO $ do - contentType' <- textToCString contentType - result <- g_app_info_get_recommended_for_type contentType' - result' <- unpackGList result - result'' <- mapM (wrapObject AppInfo) result' - g_list_free result - freeMem contentType' - return result'' - --- method AppInfo::launch_default_for_uri --- method type : MemberFunction --- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_app_info_launch_default_for_uri" g_app_info_launch_default_for_uri :: - CString -> -- uri : TBasicType TUTF8 - Ptr AppLaunchContext -> -- launch_context : TInterface "Gio" "AppLaunchContext" - Ptr (Ptr GError) -> -- error - IO CInt - - -appInfoLaunchDefaultForUri :: - (MonadIO m, AppLaunchContextK a) => - T.Text -- uri - -> Maybe (a) -- launchContext - -> m () -- result -appInfoLaunchDefaultForUri uri launchContext = liftIO $ do - uri' <- textToCString uri - maybeLaunchContext <- case launchContext of - Nothing -> return nullPtr - Just jLaunchContext -> do - let jLaunchContext' = unsafeManagedPtrCastPtr jLaunchContext - return jLaunchContext' - onException (do - _ <- propagateGError $ g_app_info_launch_default_for_uri uri' maybeLaunchContext - whenJust launchContext touchManagedPtr - freeMem uri' - return () - ) (do - freeMem uri' - ) - --- method AppInfo::reset_type_associations --- method type : MemberFunction --- Args : [Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_reset_type_associations" g_app_info_reset_type_associations :: - CString -> -- content_type : TBasicType TUTF8 - IO () - - -appInfoResetTypeAssociations :: - (MonadIO m) => - T.Text -- contentType - -> m () -- result -appInfoResetTypeAssociations contentType = liftIO $ do - contentType' <- textToCString contentType - g_app_info_reset_type_associations contentType' - freeMem contentType' - return () - - diff --git a/GI/Gio/Interfaces/AppInfo.hs-boot b/GI/Gio/Interfaces/AppInfo.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/AppInfo.hs-boot +++ /dev/null @@ -1,36 +0,0 @@ -module GI.Gio.Interfaces.AppInfo where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AppInfo = AppInfo (ForeignPtr AppInfo) -instance GObject AppInfo where -class GObject o => AppInfoK o -instance (GObject o, IsDescendantOf AppInfo o) => AppInfoK o -data AppInfoAddSupportsTypeMethodInfo -data AppInfoCanDeleteMethodInfo -data AppInfoCanRemoveSupportsTypeMethodInfo -data AppInfoDeleteMethodInfo -data AppInfoDupMethodInfo -data AppInfoEqualMethodInfo -data AppInfoGetCommandlineMethodInfo -data AppInfoGetDescriptionMethodInfo -data AppInfoGetDisplayNameMethodInfo -data AppInfoGetExecutableMethodInfo -data AppInfoGetIconMethodInfo -data AppInfoGetIdMethodInfo -data AppInfoGetNameMethodInfo -data AppInfoGetSupportedTypesMethodInfo -data AppInfoLaunchMethodInfo -data AppInfoLaunchUrisMethodInfo -data AppInfoRemoveSupportsTypeMethodInfo -data AppInfoSetAsDefaultForExtensionMethodInfo -data AppInfoSetAsDefaultForTypeMethodInfo -data AppInfoSetAsLastUsedForTypeMethodInfo -data AppInfoShouldShowMethodInfo -data AppInfoSupportsFilesMethodInfo -data AppInfoSupportsUrisMethodInfo diff --git a/GI/Gio/Interfaces/AsyncInitable.hs b/GI/Gio/Interfaces/AsyncInitable.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/AsyncInitable.hs +++ /dev/null @@ -1,290 +0,0 @@ - - -{- | -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.Interfaces.AsyncInitable - ( - --- * Exported types - AsyncInitable(..) , - noAsyncInitable , - AsyncInitableK , - toAsyncInitable , - - - -- * Methods --- ** asyncInitableInitAsync - AsyncInitableInitAsyncMethodInfo , - asyncInitableInitAsync , - - --- ** asyncInitableInitFinish - AsyncInitableInitFinishMethodInfo , - asyncInitableInitFinish , - - --- ** asyncInitableNewFinish - AsyncInitableNewFinishMethodInfo , - asyncInitableNewFinish , - - --- ** asyncInitableNewvAsync - asyncInitableNewvAsync , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface AsyncInitable - -newtype AsyncInitable = AsyncInitable (ForeignPtr AsyncInitable) -noAsyncInitable :: Maybe AsyncInitable -noAsyncInitable = Nothing - -type family ResolveAsyncInitableMethod (t :: Symbol) (o :: *) :: * where - ResolveAsyncInitableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAsyncInitableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAsyncInitableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAsyncInitableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAsyncInitableMethod "initAsync" o = AsyncInitableInitAsyncMethodInfo - ResolveAsyncInitableMethod "initFinish" o = AsyncInitableInitFinishMethodInfo - ResolveAsyncInitableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAsyncInitableMethod "newFinish" o = AsyncInitableNewFinishMethodInfo - ResolveAsyncInitableMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAsyncInitableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAsyncInitableMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAsyncInitableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAsyncInitableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAsyncInitableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAsyncInitableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAsyncInitableMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAsyncInitableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAsyncInitableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAsyncInitableMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAsyncInitableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAsyncInitableMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAsyncInitableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAsyncInitableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAsyncInitableMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAsyncInitableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAsyncInitableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAsyncInitableMethod t AsyncInitable, MethodInfo info AsyncInitable p) => IsLabelProxy t (AsyncInitable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAsyncInitableMethod t AsyncInitable, MethodInfo info AsyncInitable p) => IsLabel t (AsyncInitable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AsyncInitable = AsyncInitableAttributeList -type AsyncInitableAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList AsyncInitable = AsyncInitableSignalList -type AsyncInitableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_async_initable_get_type" - c_g_async_initable_get_type :: IO GType - -type instance ParentTypes AsyncInitable = AsyncInitableParentTypes -type AsyncInitableParentTypes = '[GObject.Object] - -instance GObject AsyncInitable where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_async_initable_get_type - - -class GObject o => AsyncInitableK o -instance (GObject o, IsDescendantOf AsyncInitable o) => AsyncInitableK o - -toAsyncInitable :: AsyncInitableK o => o -> IO AsyncInitable -toAsyncInitable = unsafeCastTo AsyncInitable - --- method AsyncInitable::init_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncInitable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_async_initable_init_async" g_async_initable_init_async :: - Ptr AsyncInitable -> -- _obj : TInterface "Gio" "AsyncInitable" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -asyncInitableInitAsync :: - (MonadIO m, AsyncInitableK a, CancellableK b) => - a -- _obj - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -asyncInitableInitAsync _obj ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_async_initable_init_async _obj' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data AsyncInitableInitAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, AsyncInitableK a, CancellableK b) => MethodInfo AsyncInitableInitAsyncMethodInfo a signature where - overloadedMethod _ = asyncInitableInitAsync - --- method AsyncInitable::init_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncInitable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_async_initable_init_finish" g_async_initable_init_finish :: - Ptr AsyncInitable -> -- _obj : TInterface "Gio" "AsyncInitable" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -asyncInitableInitFinish :: - (MonadIO m, AsyncInitableK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m () -- result -asyncInitableInitFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - _ <- propagateGError $ g_async_initable_init_finish _obj' res' - touchManagedPtr _obj - touchManagedPtr res - return () - ) (do - return () - ) - -data AsyncInitableInitFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, AsyncInitableK a, AsyncResultK b) => MethodInfo AsyncInitableInitFinishMethodInfo a signature where - overloadedMethod _ = asyncInitableInitFinish - --- method AsyncInitable::new_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncInitable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GObject" "Object") --- throws : True --- Skip return : False - -foreign import ccall "g_async_initable_new_finish" g_async_initable_new_finish :: - Ptr AsyncInitable -> -- _obj : TInterface "Gio" "AsyncInitable" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr GObject.Object) - - -asyncInitableNewFinish :: - (MonadIO m, AsyncInitableK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m GObject.Object -- result -asyncInitableNewFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_async_initable_new_finish _obj' res' - checkUnexpectedReturnNULL "g_async_initable_new_finish" result - result' <- (wrapObject GObject.Object) result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data AsyncInitableNewFinishMethodInfo -instance (signature ~ (b -> m GObject.Object), MonadIO m, AsyncInitableK a, AsyncResultK b) => MethodInfo AsyncInitableNewFinishMethodInfo a signature where - overloadedMethod _ = asyncInitableNewFinish - --- method AsyncInitable::newv_async --- method type : MemberFunction --- Args : [Arg {argCName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_parameters", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TInterface "GObject" "Parameter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_async_initable_newv_async" g_async_initable_newv_async :: - CGType -> -- object_type : TBasicType TGType - Word32 -> -- n_parameters : TBasicType TUInt - Ptr GObject.Parameter -> -- parameters : TInterface "GObject" "Parameter" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -asyncInitableNewvAsync :: - (MonadIO m, CancellableK a) => - GType -- objectType - -> Word32 -- nParameters - -> GObject.Parameter -- parameters - -> Int32 -- ioPriority - -> Maybe (a) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -asyncInitableNewvAsync objectType nParameters parameters ioPriority cancellable callback = liftIO $ do - let objectType' = gtypeToCGType objectType - let parameters' = unsafeManagedPtrGetPtr parameters - 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_async_initable_newv_async objectType' nParameters parameters' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr parameters - whenJust cancellable touchManagedPtr - return () - - diff --git a/GI/Gio/Interfaces/AsyncInitable.hs-boot b/GI/Gio/Interfaces/AsyncInitable.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/AsyncInitable.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gio.Interfaces.AsyncInitable where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AsyncInitable = AsyncInitable (ForeignPtr AsyncInitable) -instance GObject AsyncInitable where -class GObject o => AsyncInitableK o -instance (GObject o, IsDescendantOf AsyncInitable o) => AsyncInitableK o -data AsyncInitableInitAsyncMethodInfo -data AsyncInitableInitFinishMethodInfo -data AsyncInitableNewFinishMethodInfo diff --git a/GI/Gio/Interfaces/AsyncResult.hs b/GI/Gio/Interfaces/AsyncResult.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/AsyncResult.hs +++ /dev/null @@ -1,239 +0,0 @@ - - -{- | -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.Interfaces.AsyncResult - ( - --- * Exported types - AsyncResult(..) , - noAsyncResult , - AsyncResultK , - toAsyncResult , - - - -- * Methods --- ** asyncResultGetSourceObject - AsyncResultGetSourceObjectMethodInfo , - asyncResultGetSourceObject , - - --- ** asyncResultGetUserData - AsyncResultGetUserDataMethodInfo , - asyncResultGetUserData , - - --- ** asyncResultIsTagged - AsyncResultIsTaggedMethodInfo , - asyncResultIsTagged , - - --- ** asyncResultLegacyPropagateError - AsyncResultLegacyPropagateErrorMethodInfo, - asyncResultLegacyPropagateError , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface AsyncResult - -newtype AsyncResult = AsyncResult (ForeignPtr AsyncResult) -noAsyncResult :: Maybe AsyncResult -noAsyncResult = Nothing - -type family ResolveAsyncResultMethod (t :: Symbol) (o :: *) :: * where - ResolveAsyncResultMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAsyncResultMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAsyncResultMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAsyncResultMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAsyncResultMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAsyncResultMethod "isTagged" o = AsyncResultIsTaggedMethodInfo - ResolveAsyncResultMethod "legacyPropagateError" o = AsyncResultLegacyPropagateErrorMethodInfo - ResolveAsyncResultMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAsyncResultMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAsyncResultMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAsyncResultMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAsyncResultMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAsyncResultMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAsyncResultMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAsyncResultMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAsyncResultMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAsyncResultMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAsyncResultMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAsyncResultMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAsyncResultMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAsyncResultMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAsyncResultMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAsyncResultMethod "getSourceObject" o = AsyncResultGetSourceObjectMethodInfo - ResolveAsyncResultMethod "getUserData" o = AsyncResultGetUserDataMethodInfo - ResolveAsyncResultMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAsyncResultMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAsyncResultMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAsyncResultMethod t AsyncResult, MethodInfo info AsyncResult p) => IsLabelProxy t (AsyncResult -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAsyncResultMethod t AsyncResult, MethodInfo info AsyncResult p) => IsLabel t (AsyncResult -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AsyncResult = AsyncResultAttributeList -type AsyncResultAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList AsyncResult = AsyncResultSignalList -type AsyncResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_async_result_get_type" - c_g_async_result_get_type :: IO GType - -type instance ParentTypes AsyncResult = AsyncResultParentTypes -type AsyncResultParentTypes = '[GObject.Object] - -instance GObject AsyncResult where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_async_result_get_type - - -class GObject o => AsyncResultK o -instance (GObject o, IsDescendantOf AsyncResult o) => AsyncResultK o - -toAsyncResult :: AsyncResultK o => o -> IO AsyncResult -toAsyncResult = unsafeCastTo AsyncResult - --- method AsyncResult::get_source_object --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GObject" "Object") --- throws : False --- Skip return : False - -foreign import ccall "g_async_result_get_source_object" g_async_result_get_source_object :: - Ptr AsyncResult -> -- _obj : TInterface "Gio" "AsyncResult" - IO (Ptr GObject.Object) - - -asyncResultGetSourceObject :: - (MonadIO m, AsyncResultK a) => - a -- _obj - -> m GObject.Object -- result -asyncResultGetSourceObject _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_async_result_get_source_object _obj' - checkUnexpectedReturnNULL "g_async_result_get_source_object" result - result' <- (wrapObject GObject.Object) result - touchManagedPtr _obj - return result' - -data AsyncResultGetSourceObjectMethodInfo -instance (signature ~ (m GObject.Object), MonadIO m, AsyncResultK a) => MethodInfo AsyncResultGetSourceObjectMethodInfo a signature where - overloadedMethod _ = asyncResultGetSourceObject - --- method AsyncResult::get_user_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TPtr) --- throws : False --- Skip return : False - -foreign import ccall "g_async_result_get_user_data" g_async_result_get_user_data :: - Ptr AsyncResult -> -- _obj : TInterface "Gio" "AsyncResult" - IO (Ptr ()) - - -asyncResultGetUserData :: - (MonadIO m, AsyncResultK a) => - a -- _obj - -> m (Ptr ()) -- result -asyncResultGetUserData _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_async_result_get_user_data _obj' - touchManagedPtr _obj - return result - -data AsyncResultGetUserDataMethodInfo -instance (signature ~ (m (Ptr ())), MonadIO m, AsyncResultK a) => MethodInfo AsyncResultGetUserDataMethodInfo a signature where - overloadedMethod _ = asyncResultGetUserData - --- method AsyncResult::is_tagged --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_async_result_is_tagged" g_async_result_is_tagged :: - Ptr AsyncResult -> -- _obj : TInterface "Gio" "AsyncResult" - Ptr () -> -- source_tag : TBasicType TPtr - IO CInt - - -asyncResultIsTagged :: - (MonadIO m, AsyncResultK a) => - a -- _obj - -> Ptr () -- sourceTag - -> m Bool -- result -asyncResultIsTagged _obj sourceTag = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_async_result_is_tagged _obj' sourceTag - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AsyncResultIsTaggedMethodInfo -instance (signature ~ (Ptr () -> m Bool), MonadIO m, AsyncResultK a) => MethodInfo AsyncResultIsTaggedMethodInfo a signature where - overloadedMethod _ = asyncResultIsTagged - --- method AsyncResult::legacy_propagate_error --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_async_result_legacy_propagate_error" g_async_result_legacy_propagate_error :: - Ptr AsyncResult -> -- _obj : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -asyncResultLegacyPropagateError :: - (MonadIO m, AsyncResultK a) => - a -- _obj - -> m () -- result -asyncResultLegacyPropagateError _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ g_async_result_legacy_propagate_error _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data AsyncResultLegacyPropagateErrorMethodInfo -instance (signature ~ (m ()), MonadIO m, AsyncResultK a) => MethodInfo AsyncResultLegacyPropagateErrorMethodInfo a signature where - overloadedMethod _ = asyncResultLegacyPropagateError - - diff --git a/GI/Gio/Interfaces/AsyncResult.hs-boot b/GI/Gio/Interfaces/AsyncResult.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/AsyncResult.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Interfaces.AsyncResult where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AsyncResult = AsyncResult (ForeignPtr AsyncResult) -instance GObject AsyncResult where -class GObject o => AsyncResultK o -instance (GObject o, IsDescendantOf AsyncResult o) => AsyncResultK o -data AsyncResultGetSourceObjectMethodInfo -data AsyncResultGetUserDataMethodInfo -data AsyncResultIsTaggedMethodInfo -data AsyncResultLegacyPropagateErrorMethodInfo diff --git a/GI/Gio/Interfaces/Converter.hs b/GI/Gio/Interfaces/Converter.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/Converter.hs +++ /dev/null @@ -1,192 +0,0 @@ - - -{- | -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.Interfaces.Converter - ( - --- * Exported types - Converter(..) , - noConverter , - ConverterK , - toConverter , - - - -- * Methods --- ** converterConvert - ConverterConvertMethodInfo , - converterConvert , - - --- ** converterReset - ConverterResetMethodInfo , - converterReset , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface Converter - -newtype Converter = Converter (ForeignPtr Converter) -noConverter :: Maybe Converter -noConverter = Nothing - -type family ResolveConverterMethod (t :: Symbol) (o :: *) :: * where - ResolveConverterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveConverterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveConverterMethod "convert" o = ConverterConvertMethodInfo - ResolveConverterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveConverterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveConverterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveConverterMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveConverterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveConverterMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveConverterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveConverterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveConverterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveConverterMethod "reset" o = ConverterResetMethodInfo - ResolveConverterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveConverterMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveConverterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveConverterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveConverterMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveConverterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveConverterMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveConverterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveConverterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveConverterMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveConverterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveConverterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveConverterMethod t Converter, MethodInfo info Converter p) => IsLabelProxy t (Converter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveConverterMethod t Converter, MethodInfo info Converter p) => IsLabel t (Converter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Converter = ConverterAttributeList -type ConverterAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Converter = ConverterSignalList -type ConverterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_converter_get_type" - c_g_converter_get_type :: IO GType - -type instance ParentTypes Converter = ConverterParentTypes -type ConverterParentTypes = '[GObject.Object] - -instance GObject Converter where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_converter_get_type - - -class GObject o => ConverterK o -instance (GObject o, IsDescendantOf Converter o) => ConverterK o - -toConverter :: ConverterK o => o -> IO Converter -toConverter = unsafeCastTo Converter - --- method Converter::convert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inbuf", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inbuf_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "outbuf", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "outbuf_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "ConverterFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "bytes_written", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "inbuf_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TInterface "Gio" "ConverterResult") --- throws : True --- Skip return : False - -foreign import ccall "g_converter_convert" g_converter_convert :: - Ptr Converter -> -- _obj : TInterface "Gio" "Converter" - Ptr Word8 -> -- inbuf : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- inbuf_size : TBasicType TUInt64 - Ptr () -> -- outbuf : TBasicType TPtr - Word64 -> -- outbuf_size : TBasicType TUInt64 - CUInt -> -- flags : TInterface "Gio" "ConverterFlags" - Ptr Word64 -> -- bytes_read : TBasicType TUInt64 - Ptr Word64 -> -- bytes_written : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CUInt - - -converterConvert :: - (MonadIO m, ConverterK a) => - a -- _obj - -> ByteString -- inbuf - -> Ptr () -- outbuf - -> Word64 -- outbufSize - -> [ConverterFlags] -- flags - -> m (ConverterResult,Word64,Word64) -- result -converterConvert _obj inbuf outbuf outbufSize flags = liftIO $ do - let inbufSize = fromIntegral $ B.length inbuf - let _obj' = unsafeManagedPtrCastPtr _obj - inbuf' <- packByteString inbuf - let flags' = gflagsToWord flags - bytesRead <- allocMem :: IO (Ptr Word64) - bytesWritten <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_converter_convert _obj' inbuf' inbufSize outbuf outbufSize flags' bytesRead bytesWritten - let result' = (toEnum . fromIntegral) result - bytesRead' <- peek bytesRead - bytesWritten' <- peek bytesWritten - touchManagedPtr _obj - freeMem inbuf' - freeMem bytesRead - freeMem bytesWritten - return (result', bytesRead', bytesWritten') - ) (do - freeMem inbuf' - freeMem bytesRead - freeMem bytesWritten - ) - -data ConverterConvertMethodInfo -instance (signature ~ (ByteString -> Ptr () -> Word64 -> [ConverterFlags] -> m (ConverterResult,Word64,Word64)), MonadIO m, ConverterK a) => MethodInfo ConverterConvertMethodInfo a signature where - overloadedMethod _ = converterConvert - --- method Converter::reset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_converter_reset" g_converter_reset :: - Ptr Converter -> -- _obj : TInterface "Gio" "Converter" - IO () - - -converterReset :: - (MonadIO m, ConverterK a) => - a -- _obj - -> m () -- result -converterReset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_converter_reset _obj' - touchManagedPtr _obj - return () - -data ConverterResetMethodInfo -instance (signature ~ (m ()), MonadIO m, ConverterK a) => MethodInfo ConverterResetMethodInfo a signature where - overloadedMethod _ = converterReset - - diff --git a/GI/Gio/Interfaces/Converter.hs-boot b/GI/Gio/Interfaces/Converter.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/Converter.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gio.Interfaces.Converter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Converter = Converter (ForeignPtr Converter) -instance GObject Converter where -class GObject o => ConverterK o -instance (GObject o, IsDescendantOf Converter o) => ConverterK o -data ConverterConvertMethodInfo -data ConverterResetMethodInfo diff --git a/GI/Gio/Interfaces/DBusInterface.hs b/GI/Gio/Interfaces/DBusInterface.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/DBusInterface.hs +++ /dev/null @@ -1,208 +0,0 @@ - - -{- | -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.Interfaces.DBusInterface - ( - --- * Exported types - DBusInterface(..) , - noDBusInterface , - DBusInterfaceK , - toDBusInterface , - - - -- * Methods --- ** dBusInterfaceGetInfo - DBusInterfaceGetInfoMethodInfo , - dBusInterfaceGetInfo , - - --- ** dBusInterfaceGetObject - DBusInterfaceGetObjectMethodInfo , - dBusInterfaceGetObject , - - --- ** dBusInterfaceSetObject - DBusInterfaceSetObjectMethodInfo , - dBusInterfaceSetObject , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface DBusInterface - -newtype DBusInterface = DBusInterface (ForeignPtr DBusInterface) -noDBusInterface :: Maybe DBusInterface -noDBusInterface = Nothing - -type family ResolveDBusInterfaceMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusInterfaceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusInterfaceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusInterfaceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusInterfaceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusInterfaceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusInterfaceMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusInterfaceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusInterfaceMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusInterfaceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusInterfaceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusInterfaceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusInterfaceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusInterfaceMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusInterfaceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusInterfaceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusInterfaceMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusInterfaceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusInterfaceMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusInterfaceMethod "getInfo" o = DBusInterfaceGetInfoMethodInfo - ResolveDBusInterfaceMethod "getObject" o = DBusInterfaceGetObjectMethodInfo - ResolveDBusInterfaceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusInterfaceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusInterfaceMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusInterfaceMethod "setObject" o = DBusInterfaceSetObjectMethodInfo - ResolveDBusInterfaceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusInterfaceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusInterfaceMethod t DBusInterface, MethodInfo info DBusInterface p) => IsLabelProxy t (DBusInterface -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusInterfaceMethod t DBusInterface, MethodInfo info DBusInterface p) => IsLabel t (DBusInterface -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DBusInterface = DBusInterfaceAttributeList -type DBusInterfaceAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList DBusInterface = DBusInterfaceSignalList -type DBusInterfaceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_dbus_interface_get_type" - c_g_dbus_interface_get_type :: IO GType - -type instance ParentTypes DBusInterface = DBusInterfaceParentTypes -type DBusInterfaceParentTypes = '[GObject.Object] - -instance GObject DBusInterface where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_interface_get_type - - -class GObject o => DBusInterfaceK o -instance (GObject o, IsDescendantOf DBusInterface o) => DBusInterfaceK o - -toDBusInterface :: DBusInterfaceK o => o -> IO DBusInterface -toDBusInterface = unsafeCastTo DBusInterface - --- method DBusInterface::get_object --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusObject") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_dup_object" g_dbus_interface_dup_object :: - Ptr DBusInterface -> -- _obj : TInterface "Gio" "DBusInterface" - IO (Ptr DBusObject) - - -dBusInterfaceGetObject :: - (MonadIO m, DBusInterfaceK a) => - a -- _obj - -> m DBusObject -- result -dBusInterfaceGetObject _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_interface_dup_object _obj' - checkUnexpectedReturnNULL "g_dbus_interface_dup_object" result - result' <- (wrapObject DBusObject) result - touchManagedPtr _obj - return result' - -data DBusInterfaceGetObjectMethodInfo -instance (signature ~ (m DBusObject), MonadIO m, DBusInterfaceK a) => MethodInfo DBusInterfaceGetObjectMethodInfo a signature where - overloadedMethod _ = dBusInterfaceGetObject - --- method DBusInterface::get_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusInterfaceInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_get_info" g_dbus_interface_get_info :: - Ptr DBusInterface -> -- _obj : TInterface "Gio" "DBusInterface" - IO (Ptr DBusInterfaceInfo) - - -dBusInterfaceGetInfo :: - (MonadIO m, DBusInterfaceK a) => - a -- _obj - -> m DBusInterfaceInfo -- result -dBusInterfaceGetInfo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_interface_get_info _obj' - checkUnexpectedReturnNULL "g_dbus_interface_get_info" result - result' <- (newBoxed DBusInterfaceInfo) result - touchManagedPtr _obj - return result' - -data DBusInterfaceGetInfoMethodInfo -instance (signature ~ (m DBusInterfaceInfo), MonadIO m, DBusInterfaceK a) => MethodInfo DBusInterfaceGetInfoMethodInfo a signature where - overloadedMethod _ = dBusInterfaceGetInfo - --- method DBusInterface::set_object --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_set_object" g_dbus_interface_set_object :: - Ptr DBusInterface -> -- _obj : TInterface "Gio" "DBusInterface" - Ptr DBusObject -> -- object : TInterface "Gio" "DBusObject" - IO () - - -dBusInterfaceSetObject :: - (MonadIO m, DBusInterfaceK a, DBusObjectK b) => - a -- _obj - -> Maybe (b) -- object - -> m () -- result -dBusInterfaceSetObject _obj object = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeObject <- case object of - Nothing -> return nullPtr - Just jObject -> do - let jObject' = unsafeManagedPtrCastPtr jObject - return jObject' - g_dbus_interface_set_object _obj' maybeObject - touchManagedPtr _obj - whenJust object touchManagedPtr - return () - -data DBusInterfaceSetObjectMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, DBusInterfaceK a, DBusObjectK b) => MethodInfo DBusInterfaceSetObjectMethodInfo a signature where - overloadedMethod _ = dBusInterfaceSetObject - - diff --git a/GI/Gio/Interfaces/DBusInterface.hs-boot b/GI/Gio/Interfaces/DBusInterface.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/DBusInterface.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gio.Interfaces.DBusInterface where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusInterface = DBusInterface (ForeignPtr DBusInterface) -instance GObject DBusInterface where -class GObject o => DBusInterfaceK o -instance (GObject o, IsDescendantOf DBusInterface o) => DBusInterfaceK o -data DBusInterfaceGetObjectMethodInfo -data DBusInterfaceGetInfoMethodInfo -data DBusInterfaceSetObjectMethodInfo diff --git a/GI/Gio/Interfaces/DBusObject.hs b/GI/Gio/Interfaces/DBusObject.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/DBusObject.hs +++ /dev/null @@ -1,328 +0,0 @@ - - -{- | -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.Interfaces.DBusObject - ( - --- * Exported types - DBusObject(..) , - noDBusObject , - DBusObjectK , - toDBusObject , - - - -- * Methods --- ** dBusObjectGetInterface - DBusObjectGetInterfaceMethodInfo , - dBusObjectGetInterface , - - --- ** dBusObjectGetInterfaces - DBusObjectGetInterfacesMethodInfo , - dBusObjectGetInterfaces , - - --- ** dBusObjectGetObjectPath - DBusObjectGetObjectPathMethodInfo , - dBusObjectGetObjectPath , - - - - - -- * Signals --- ** InterfaceAdded - DBusObjectInterfaceAddedCallback , - DBusObjectInterfaceAddedCallbackC , - DBusObjectInterfaceAddedSignalInfo , - afterDBusObjectInterfaceAdded , - dBusObjectInterfaceAddedCallbackWrapper , - dBusObjectInterfaceAddedClosure , - mkDBusObjectInterfaceAddedCallback , - noDBusObjectInterfaceAddedCallback , - onDBusObjectInterfaceAdded , - - --- ** InterfaceRemoved - DBusObjectInterfaceRemovedCallback , - DBusObjectInterfaceRemovedCallbackC , - DBusObjectInterfaceRemovedSignalInfo , - afterDBusObjectInterfaceRemoved , - dBusObjectInterfaceRemovedCallbackWrapper, - dBusObjectInterfaceRemovedClosure , - mkDBusObjectInterfaceRemovedCallback , - noDBusObjectInterfaceRemovedCallback , - onDBusObjectInterfaceRemoved , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface DBusObject - -newtype DBusObject = DBusObject (ForeignPtr DBusObject) -noDBusObject :: Maybe DBusObject -noDBusObject = Nothing - -type family ResolveDBusObjectMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusObjectMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusObjectMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusObjectMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusObjectMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusObjectMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusObjectMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusObjectMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusObjectMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusObjectMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusObjectMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusObjectMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusObjectMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusObjectMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusObjectMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusObjectMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusObjectMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusObjectMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusObjectMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusObjectMethod "getInterface" o = DBusObjectGetInterfaceMethodInfo - ResolveDBusObjectMethod "getInterfaces" o = DBusObjectGetInterfacesMethodInfo - ResolveDBusObjectMethod "getObjectPath" o = DBusObjectGetObjectPathMethodInfo - ResolveDBusObjectMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusObjectMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusObjectMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusObjectMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusObjectMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusObjectMethod t DBusObject, MethodInfo info DBusObject p) => IsLabelProxy t (DBusObject -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusObjectMethod t DBusObject, MethodInfo info DBusObject p) => IsLabel t (DBusObject -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal DBusObject::interface-added -type DBusObjectInterfaceAddedCallback = - DBusInterface -> - IO () - -noDBusObjectInterfaceAddedCallback :: Maybe DBusObjectInterfaceAddedCallback -noDBusObjectInterfaceAddedCallback = Nothing - -type DBusObjectInterfaceAddedCallbackC = - Ptr () -> -- object - Ptr DBusInterface -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDBusObjectInterfaceAddedCallback :: DBusObjectInterfaceAddedCallbackC -> IO (FunPtr DBusObjectInterfaceAddedCallbackC) - -dBusObjectInterfaceAddedClosure :: DBusObjectInterfaceAddedCallback -> IO Closure -dBusObjectInterfaceAddedClosure cb = newCClosure =<< mkDBusObjectInterfaceAddedCallback wrapped - where wrapped = dBusObjectInterfaceAddedCallbackWrapper cb - -dBusObjectInterfaceAddedCallbackWrapper :: - DBusObjectInterfaceAddedCallback -> - Ptr () -> - Ptr DBusInterface -> - Ptr () -> - IO () -dBusObjectInterfaceAddedCallbackWrapper _cb _ interface _ = do - interface' <- (newObject DBusInterface) interface - _cb interface' - -onDBusObjectInterfaceAdded :: (GObject a, MonadIO m) => a -> DBusObjectInterfaceAddedCallback -> m SignalHandlerId -onDBusObjectInterfaceAdded obj cb = liftIO $ connectDBusObjectInterfaceAdded obj cb SignalConnectBefore -afterDBusObjectInterfaceAdded :: (GObject a, MonadIO m) => a -> DBusObjectInterfaceAddedCallback -> m SignalHandlerId -afterDBusObjectInterfaceAdded obj cb = connectDBusObjectInterfaceAdded obj cb SignalConnectAfter - -connectDBusObjectInterfaceAdded :: (GObject a, MonadIO m) => - a -> DBusObjectInterfaceAddedCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusObjectInterfaceAdded obj cb after = liftIO $ do - cb' <- mkDBusObjectInterfaceAddedCallback (dBusObjectInterfaceAddedCallbackWrapper cb) - connectSignalFunPtr obj "interface-added" cb' after - --- signal DBusObject::interface-removed -type DBusObjectInterfaceRemovedCallback = - DBusInterface -> - IO () - -noDBusObjectInterfaceRemovedCallback :: Maybe DBusObjectInterfaceRemovedCallback -noDBusObjectInterfaceRemovedCallback = Nothing - -type DBusObjectInterfaceRemovedCallbackC = - Ptr () -> -- object - Ptr DBusInterface -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDBusObjectInterfaceRemovedCallback :: DBusObjectInterfaceRemovedCallbackC -> IO (FunPtr DBusObjectInterfaceRemovedCallbackC) - -dBusObjectInterfaceRemovedClosure :: DBusObjectInterfaceRemovedCallback -> IO Closure -dBusObjectInterfaceRemovedClosure cb = newCClosure =<< mkDBusObjectInterfaceRemovedCallback wrapped - where wrapped = dBusObjectInterfaceRemovedCallbackWrapper cb - -dBusObjectInterfaceRemovedCallbackWrapper :: - DBusObjectInterfaceRemovedCallback -> - Ptr () -> - Ptr DBusInterface -> - Ptr () -> - IO () -dBusObjectInterfaceRemovedCallbackWrapper _cb _ interface _ = do - interface' <- (newObject DBusInterface) interface - _cb interface' - -onDBusObjectInterfaceRemoved :: (GObject a, MonadIO m) => a -> DBusObjectInterfaceRemovedCallback -> m SignalHandlerId -onDBusObjectInterfaceRemoved obj cb = liftIO $ connectDBusObjectInterfaceRemoved obj cb SignalConnectBefore -afterDBusObjectInterfaceRemoved :: (GObject a, MonadIO m) => a -> DBusObjectInterfaceRemovedCallback -> m SignalHandlerId -afterDBusObjectInterfaceRemoved obj cb = connectDBusObjectInterfaceRemoved obj cb SignalConnectAfter - -connectDBusObjectInterfaceRemoved :: (GObject a, MonadIO m) => - a -> DBusObjectInterfaceRemovedCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusObjectInterfaceRemoved obj cb after = liftIO $ do - cb' <- mkDBusObjectInterfaceRemovedCallback (dBusObjectInterfaceRemovedCallbackWrapper cb) - connectSignalFunPtr obj "interface-removed" cb' after - -type instance AttributeList DBusObject = DBusObjectAttributeList -type DBusObjectAttributeList = ('[ ] :: [(Symbol, *)]) - -data DBusObjectInterfaceAddedSignalInfo -instance SignalInfo DBusObjectInterfaceAddedSignalInfo where - type HaskellCallbackType DBusObjectInterfaceAddedSignalInfo = DBusObjectInterfaceAddedCallback - connectSignal _ = connectDBusObjectInterfaceAdded - -data DBusObjectInterfaceRemovedSignalInfo -instance SignalInfo DBusObjectInterfaceRemovedSignalInfo where - type HaskellCallbackType DBusObjectInterfaceRemovedSignalInfo = DBusObjectInterfaceRemovedCallback - connectSignal _ = connectDBusObjectInterfaceRemoved - -type instance SignalList DBusObject = DBusObjectSignalList -type DBusObjectSignalList = ('[ '("interfaceAdded", DBusObjectInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_dbus_object_get_type" - c_g_dbus_object_get_type :: IO GType - -type instance ParentTypes DBusObject = DBusObjectParentTypes -type DBusObjectParentTypes = '[GObject.Object] - -instance GObject DBusObject where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_object_get_type - - -class GObject o => DBusObjectK o -instance (GObject o, IsDescendantOf DBusObject o) => DBusObjectK o - -toDBusObject :: DBusObjectK o => o -> IO DBusObject -toDBusObject = unsafeCastTo DBusObject - --- method DBusObject::get_interface --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusInterface") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_get_interface" g_dbus_object_get_interface :: - Ptr DBusObject -> -- _obj : TInterface "Gio" "DBusObject" - CString -> -- interface_name : TBasicType TUTF8 - IO (Ptr DBusInterface) - - -dBusObjectGetInterface :: - (MonadIO m, DBusObjectK a) => - a -- _obj - -> T.Text -- interfaceName - -> m DBusInterface -- result -dBusObjectGetInterface _obj interfaceName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - interfaceName' <- textToCString interfaceName - result <- g_dbus_object_get_interface _obj' interfaceName' - checkUnexpectedReturnNULL "g_dbus_object_get_interface" result - result' <- (wrapObject DBusInterface) result - touchManagedPtr _obj - freeMem interfaceName' - return result' - -data DBusObjectGetInterfaceMethodInfo -instance (signature ~ (T.Text -> m DBusInterface), MonadIO m, DBusObjectK a) => MethodInfo DBusObjectGetInterfaceMethodInfo a signature where - overloadedMethod _ = dBusObjectGetInterface - --- method DBusObject::get_interfaces --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "DBusInterface")) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_get_interfaces" g_dbus_object_get_interfaces :: - Ptr DBusObject -> -- _obj : TInterface "Gio" "DBusObject" - IO (Ptr (GList (Ptr DBusInterface))) - - -dBusObjectGetInterfaces :: - (MonadIO m, DBusObjectK a) => - a -- _obj - -> m [DBusInterface] -- result -dBusObjectGetInterfaces _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_object_get_interfaces _obj' - result' <- unpackGList result - result'' <- mapM (wrapObject DBusInterface) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data DBusObjectGetInterfacesMethodInfo -instance (signature ~ (m [DBusInterface]), MonadIO m, DBusObjectK a) => MethodInfo DBusObjectGetInterfacesMethodInfo a signature where - overloadedMethod _ = dBusObjectGetInterfaces - --- method DBusObject::get_object_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObject", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_get_object_path" g_dbus_object_get_object_path :: - Ptr DBusObject -> -- _obj : TInterface "Gio" "DBusObject" - IO CString - - -dBusObjectGetObjectPath :: - (MonadIO m, DBusObjectK a) => - a -- _obj - -> m T.Text -- result -dBusObjectGetObjectPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_object_get_object_path _obj' - checkUnexpectedReturnNULL "g_dbus_object_get_object_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusObjectGetObjectPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusObjectK a) => MethodInfo DBusObjectGetObjectPathMethodInfo a signature where - overloadedMethod _ = dBusObjectGetObjectPath - - diff --git a/GI/Gio/Interfaces/DBusObject.hs-boot b/GI/Gio/Interfaces/DBusObject.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/DBusObject.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gio.Interfaces.DBusObject where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusObject = DBusObject (ForeignPtr DBusObject) -data DBusObjectInterfaceAddedSignalInfo -data DBusObjectInterfaceRemovedSignalInfo -instance GObject DBusObject where -class GObject o => DBusObjectK o -instance (GObject o, IsDescendantOf DBusObject o) => DBusObjectK o -data DBusObjectGetInterfaceMethodInfo -data DBusObjectGetInterfacesMethodInfo -data DBusObjectGetObjectPathMethodInfo diff --git a/GI/Gio/Interfaces/DBusObjectManager.hs b/GI/Gio/Interfaces/DBusObjectManager.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/DBusObjectManager.hs +++ /dev/null @@ -1,497 +0,0 @@ - - -{- | -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.Interfaces.DBusObjectManager - ( - --- * Exported types - DBusObjectManager(..) , - noDBusObjectManager , - DBusObjectManagerK , - toDBusObjectManager , - - - -- * Methods --- ** dBusObjectManagerGetInterface - DBusObjectManagerGetInterfaceMethodInfo , - dBusObjectManagerGetInterface , - - --- ** dBusObjectManagerGetObject - DBusObjectManagerGetObjectMethodInfo , - dBusObjectManagerGetObject , - - --- ** dBusObjectManagerGetObjectPath - DBusObjectManagerGetObjectPathMethodInfo, - dBusObjectManagerGetObjectPath , - - --- ** dBusObjectManagerGetObjects - DBusObjectManagerGetObjectsMethodInfo , - dBusObjectManagerGetObjects , - - - - - -- * Signals --- ** InterfaceAdded - DBusObjectManagerInterfaceAddedCallback , - DBusObjectManagerInterfaceAddedCallbackC, - DBusObjectManagerInterfaceAddedSignalInfo, - afterDBusObjectManagerInterfaceAdded , - dBusObjectManagerInterfaceAddedCallbackWrapper, - dBusObjectManagerInterfaceAddedClosure , - mkDBusObjectManagerInterfaceAddedCallback, - noDBusObjectManagerInterfaceAddedCallback, - onDBusObjectManagerInterfaceAdded , - - --- ** InterfaceRemoved - DBusObjectManagerInterfaceRemovedCallback, - DBusObjectManagerInterfaceRemovedCallbackC, - DBusObjectManagerInterfaceRemovedSignalInfo, - afterDBusObjectManagerInterfaceRemoved , - dBusObjectManagerInterfaceRemovedCallbackWrapper, - dBusObjectManagerInterfaceRemovedClosure, - mkDBusObjectManagerInterfaceRemovedCallback, - noDBusObjectManagerInterfaceRemovedCallback, - onDBusObjectManagerInterfaceRemoved , - - --- ** ObjectAdded - DBusObjectManagerObjectAddedCallback , - DBusObjectManagerObjectAddedCallbackC , - DBusObjectManagerObjectAddedSignalInfo , - afterDBusObjectManagerObjectAdded , - dBusObjectManagerObjectAddedCallbackWrapper, - dBusObjectManagerObjectAddedClosure , - mkDBusObjectManagerObjectAddedCallback , - noDBusObjectManagerObjectAddedCallback , - onDBusObjectManagerObjectAdded , - - --- ** ObjectRemoved - DBusObjectManagerObjectRemovedCallback , - DBusObjectManagerObjectRemovedCallbackC , - DBusObjectManagerObjectRemovedSignalInfo, - afterDBusObjectManagerObjectRemoved , - dBusObjectManagerObjectRemovedCallbackWrapper, - dBusObjectManagerObjectRemovedClosure , - mkDBusObjectManagerObjectRemovedCallback, - noDBusObjectManagerObjectRemovedCallback, - onDBusObjectManagerObjectRemoved , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface DBusObjectManager - -newtype DBusObjectManager = DBusObjectManager (ForeignPtr DBusObjectManager) -noDBusObjectManager :: Maybe DBusObjectManager -noDBusObjectManager = Nothing - -type family ResolveDBusObjectManagerMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusObjectManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusObjectManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusObjectManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusObjectManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusObjectManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusObjectManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusObjectManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusObjectManagerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusObjectManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusObjectManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusObjectManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusObjectManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusObjectManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusObjectManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusObjectManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusObjectManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusObjectManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusObjectManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusObjectManagerMethod "getInterface" o = DBusObjectManagerGetInterfaceMethodInfo - ResolveDBusObjectManagerMethod "getObject" o = DBusObjectManagerGetObjectMethodInfo - ResolveDBusObjectManagerMethod "getObjectPath" o = DBusObjectManagerGetObjectPathMethodInfo - ResolveDBusObjectManagerMethod "getObjects" o = DBusObjectManagerGetObjectsMethodInfo - ResolveDBusObjectManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusObjectManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusObjectManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusObjectManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusObjectManagerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusObjectManagerMethod t DBusObjectManager, MethodInfo info DBusObjectManager p) => IsLabelProxy t (DBusObjectManager -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusObjectManagerMethod t DBusObjectManager, MethodInfo info DBusObjectManager p) => IsLabel t (DBusObjectManager -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal DBusObjectManager::interface-added -type DBusObjectManagerInterfaceAddedCallback = - DBusObject -> - DBusInterface -> - IO () - -noDBusObjectManagerInterfaceAddedCallback :: Maybe DBusObjectManagerInterfaceAddedCallback -noDBusObjectManagerInterfaceAddedCallback = Nothing - -type DBusObjectManagerInterfaceAddedCallbackC = - Ptr () -> -- object - Ptr DBusObject -> - Ptr DBusInterface -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDBusObjectManagerInterfaceAddedCallback :: DBusObjectManagerInterfaceAddedCallbackC -> IO (FunPtr DBusObjectManagerInterfaceAddedCallbackC) - -dBusObjectManagerInterfaceAddedClosure :: DBusObjectManagerInterfaceAddedCallback -> IO Closure -dBusObjectManagerInterfaceAddedClosure cb = newCClosure =<< mkDBusObjectManagerInterfaceAddedCallback wrapped - where wrapped = dBusObjectManagerInterfaceAddedCallbackWrapper cb - -dBusObjectManagerInterfaceAddedCallbackWrapper :: - DBusObjectManagerInterfaceAddedCallback -> - Ptr () -> - Ptr DBusObject -> - Ptr DBusInterface -> - Ptr () -> - IO () -dBusObjectManagerInterfaceAddedCallbackWrapper _cb _ object interface _ = do - object' <- (newObject DBusObject) object - interface' <- (newObject DBusInterface) interface - _cb object' interface' - -onDBusObjectManagerInterfaceAdded :: (GObject a, MonadIO m) => a -> DBusObjectManagerInterfaceAddedCallback -> m SignalHandlerId -onDBusObjectManagerInterfaceAdded obj cb = liftIO $ connectDBusObjectManagerInterfaceAdded obj cb SignalConnectBefore -afterDBusObjectManagerInterfaceAdded :: (GObject a, MonadIO m) => a -> DBusObjectManagerInterfaceAddedCallback -> m SignalHandlerId -afterDBusObjectManagerInterfaceAdded obj cb = connectDBusObjectManagerInterfaceAdded obj cb SignalConnectAfter - -connectDBusObjectManagerInterfaceAdded :: (GObject a, MonadIO m) => - a -> DBusObjectManagerInterfaceAddedCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusObjectManagerInterfaceAdded obj cb after = liftIO $ do - cb' <- mkDBusObjectManagerInterfaceAddedCallback (dBusObjectManagerInterfaceAddedCallbackWrapper cb) - connectSignalFunPtr obj "interface-added" cb' after - --- signal DBusObjectManager::interface-removed -type DBusObjectManagerInterfaceRemovedCallback = - DBusObject -> - DBusInterface -> - IO () - -noDBusObjectManagerInterfaceRemovedCallback :: Maybe DBusObjectManagerInterfaceRemovedCallback -noDBusObjectManagerInterfaceRemovedCallback = Nothing - -type DBusObjectManagerInterfaceRemovedCallbackC = - Ptr () -> -- object - Ptr DBusObject -> - Ptr DBusInterface -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDBusObjectManagerInterfaceRemovedCallback :: DBusObjectManagerInterfaceRemovedCallbackC -> IO (FunPtr DBusObjectManagerInterfaceRemovedCallbackC) - -dBusObjectManagerInterfaceRemovedClosure :: DBusObjectManagerInterfaceRemovedCallback -> IO Closure -dBusObjectManagerInterfaceRemovedClosure cb = newCClosure =<< mkDBusObjectManagerInterfaceRemovedCallback wrapped - where wrapped = dBusObjectManagerInterfaceRemovedCallbackWrapper cb - -dBusObjectManagerInterfaceRemovedCallbackWrapper :: - DBusObjectManagerInterfaceRemovedCallback -> - Ptr () -> - Ptr DBusObject -> - Ptr DBusInterface -> - Ptr () -> - IO () -dBusObjectManagerInterfaceRemovedCallbackWrapper _cb _ object interface _ = do - object' <- (newObject DBusObject) object - interface' <- (newObject DBusInterface) interface - _cb object' interface' - -onDBusObjectManagerInterfaceRemoved :: (GObject a, MonadIO m) => a -> DBusObjectManagerInterfaceRemovedCallback -> m SignalHandlerId -onDBusObjectManagerInterfaceRemoved obj cb = liftIO $ connectDBusObjectManagerInterfaceRemoved obj cb SignalConnectBefore -afterDBusObjectManagerInterfaceRemoved :: (GObject a, MonadIO m) => a -> DBusObjectManagerInterfaceRemovedCallback -> m SignalHandlerId -afterDBusObjectManagerInterfaceRemoved obj cb = connectDBusObjectManagerInterfaceRemoved obj cb SignalConnectAfter - -connectDBusObjectManagerInterfaceRemoved :: (GObject a, MonadIO m) => - a -> DBusObjectManagerInterfaceRemovedCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusObjectManagerInterfaceRemoved obj cb after = liftIO $ do - cb' <- mkDBusObjectManagerInterfaceRemovedCallback (dBusObjectManagerInterfaceRemovedCallbackWrapper cb) - connectSignalFunPtr obj "interface-removed" cb' after - --- signal DBusObjectManager::object-added -type DBusObjectManagerObjectAddedCallback = - DBusObject -> - IO () - -noDBusObjectManagerObjectAddedCallback :: Maybe DBusObjectManagerObjectAddedCallback -noDBusObjectManagerObjectAddedCallback = Nothing - -type DBusObjectManagerObjectAddedCallbackC = - Ptr () -> -- object - Ptr DBusObject -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDBusObjectManagerObjectAddedCallback :: DBusObjectManagerObjectAddedCallbackC -> IO (FunPtr DBusObjectManagerObjectAddedCallbackC) - -dBusObjectManagerObjectAddedClosure :: DBusObjectManagerObjectAddedCallback -> IO Closure -dBusObjectManagerObjectAddedClosure cb = newCClosure =<< mkDBusObjectManagerObjectAddedCallback wrapped - where wrapped = dBusObjectManagerObjectAddedCallbackWrapper cb - -dBusObjectManagerObjectAddedCallbackWrapper :: - DBusObjectManagerObjectAddedCallback -> - Ptr () -> - Ptr DBusObject -> - Ptr () -> - IO () -dBusObjectManagerObjectAddedCallbackWrapper _cb _ object _ = do - object' <- (newObject DBusObject) object - _cb object' - -onDBusObjectManagerObjectAdded :: (GObject a, MonadIO m) => a -> DBusObjectManagerObjectAddedCallback -> m SignalHandlerId -onDBusObjectManagerObjectAdded obj cb = liftIO $ connectDBusObjectManagerObjectAdded obj cb SignalConnectBefore -afterDBusObjectManagerObjectAdded :: (GObject a, MonadIO m) => a -> DBusObjectManagerObjectAddedCallback -> m SignalHandlerId -afterDBusObjectManagerObjectAdded obj cb = connectDBusObjectManagerObjectAdded obj cb SignalConnectAfter - -connectDBusObjectManagerObjectAdded :: (GObject a, MonadIO m) => - a -> DBusObjectManagerObjectAddedCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusObjectManagerObjectAdded obj cb after = liftIO $ do - cb' <- mkDBusObjectManagerObjectAddedCallback (dBusObjectManagerObjectAddedCallbackWrapper cb) - connectSignalFunPtr obj "object-added" cb' after - --- signal DBusObjectManager::object-removed -type DBusObjectManagerObjectRemovedCallback = - DBusObject -> - IO () - -noDBusObjectManagerObjectRemovedCallback :: Maybe DBusObjectManagerObjectRemovedCallback -noDBusObjectManagerObjectRemovedCallback = Nothing - -type DBusObjectManagerObjectRemovedCallbackC = - Ptr () -> -- object - Ptr DBusObject -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDBusObjectManagerObjectRemovedCallback :: DBusObjectManagerObjectRemovedCallbackC -> IO (FunPtr DBusObjectManagerObjectRemovedCallbackC) - -dBusObjectManagerObjectRemovedClosure :: DBusObjectManagerObjectRemovedCallback -> IO Closure -dBusObjectManagerObjectRemovedClosure cb = newCClosure =<< mkDBusObjectManagerObjectRemovedCallback wrapped - where wrapped = dBusObjectManagerObjectRemovedCallbackWrapper cb - -dBusObjectManagerObjectRemovedCallbackWrapper :: - DBusObjectManagerObjectRemovedCallback -> - Ptr () -> - Ptr DBusObject -> - Ptr () -> - IO () -dBusObjectManagerObjectRemovedCallbackWrapper _cb _ object _ = do - object' <- (newObject DBusObject) object - _cb object' - -onDBusObjectManagerObjectRemoved :: (GObject a, MonadIO m) => a -> DBusObjectManagerObjectRemovedCallback -> m SignalHandlerId -onDBusObjectManagerObjectRemoved obj cb = liftIO $ connectDBusObjectManagerObjectRemoved obj cb SignalConnectBefore -afterDBusObjectManagerObjectRemoved :: (GObject a, MonadIO m) => a -> DBusObjectManagerObjectRemovedCallback -> m SignalHandlerId -afterDBusObjectManagerObjectRemoved obj cb = connectDBusObjectManagerObjectRemoved obj cb SignalConnectAfter - -connectDBusObjectManagerObjectRemoved :: (GObject a, MonadIO m) => - a -> DBusObjectManagerObjectRemovedCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusObjectManagerObjectRemoved obj cb after = liftIO $ do - cb' <- mkDBusObjectManagerObjectRemovedCallback (dBusObjectManagerObjectRemovedCallbackWrapper cb) - connectSignalFunPtr obj "object-removed" cb' after - -type instance AttributeList DBusObjectManager = DBusObjectManagerAttributeList -type DBusObjectManagerAttributeList = ('[ ] :: [(Symbol, *)]) - -data DBusObjectManagerInterfaceAddedSignalInfo -instance SignalInfo DBusObjectManagerInterfaceAddedSignalInfo where - type HaskellCallbackType DBusObjectManagerInterfaceAddedSignalInfo = DBusObjectManagerInterfaceAddedCallback - connectSignal _ = connectDBusObjectManagerInterfaceAdded - -data DBusObjectManagerInterfaceRemovedSignalInfo -instance SignalInfo DBusObjectManagerInterfaceRemovedSignalInfo where - type HaskellCallbackType DBusObjectManagerInterfaceRemovedSignalInfo = DBusObjectManagerInterfaceRemovedCallback - connectSignal _ = connectDBusObjectManagerInterfaceRemoved - -data DBusObjectManagerObjectAddedSignalInfo -instance SignalInfo DBusObjectManagerObjectAddedSignalInfo where - type HaskellCallbackType DBusObjectManagerObjectAddedSignalInfo = DBusObjectManagerObjectAddedCallback - connectSignal _ = connectDBusObjectManagerObjectAdded - -data DBusObjectManagerObjectRemovedSignalInfo -instance SignalInfo DBusObjectManagerObjectRemovedSignalInfo where - type HaskellCallbackType DBusObjectManagerObjectRemovedSignalInfo = DBusObjectManagerObjectRemovedCallback - connectSignal _ = connectDBusObjectManagerObjectRemoved - -type instance SignalList DBusObjectManager = DBusObjectManagerSignalList -type DBusObjectManagerSignalList = ('[ '("interfaceAdded", DBusObjectManagerInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectManagerInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("objectAdded", DBusObjectManagerObjectAddedSignalInfo), '("objectRemoved", DBusObjectManagerObjectRemovedSignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_dbus_object_manager_get_type" - c_g_dbus_object_manager_get_type :: IO GType - -type instance ParentTypes DBusObjectManager = DBusObjectManagerParentTypes -type DBusObjectManagerParentTypes = '[GObject.Object] - -instance GObject DBusObjectManager where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_object_manager_get_type - - -class GObject o => DBusObjectManagerK o -instance (GObject o, IsDescendantOf DBusObjectManager o) => DBusObjectManagerK o - -toDBusObjectManager :: DBusObjectManagerK o => o -> IO DBusObjectManager -toDBusObjectManager = unsafeCastTo DBusObjectManager - --- method DBusObjectManager::get_interface --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusInterface") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_get_interface" g_dbus_object_manager_get_interface :: - Ptr DBusObjectManager -> -- _obj : TInterface "Gio" "DBusObjectManager" - CString -> -- object_path : TBasicType TUTF8 - CString -> -- interface_name : TBasicType TUTF8 - IO (Ptr DBusInterface) - - -dBusObjectManagerGetInterface :: - (MonadIO m, DBusObjectManagerK a) => - a -- _obj - -> T.Text -- objectPath - -> T.Text -- interfaceName - -> m DBusInterface -- result -dBusObjectManagerGetInterface _obj objectPath interfaceName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - objectPath' <- textToCString objectPath - interfaceName' <- textToCString interfaceName - result <- g_dbus_object_manager_get_interface _obj' objectPath' interfaceName' - checkUnexpectedReturnNULL "g_dbus_object_manager_get_interface" result - result' <- (wrapObject DBusInterface) result - touchManagedPtr _obj - freeMem objectPath' - freeMem interfaceName' - return result' - -data DBusObjectManagerGetInterfaceMethodInfo -instance (signature ~ (T.Text -> T.Text -> m DBusInterface), MonadIO m, DBusObjectManagerK a) => MethodInfo DBusObjectManagerGetInterfaceMethodInfo a signature where - overloadedMethod _ = dBusObjectManagerGetInterface - --- method DBusObjectManager::get_object --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusObject") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_get_object" g_dbus_object_manager_get_object :: - Ptr DBusObjectManager -> -- _obj : TInterface "Gio" "DBusObjectManager" - CString -> -- object_path : TBasicType TUTF8 - IO (Ptr DBusObject) - - -dBusObjectManagerGetObject :: - (MonadIO m, DBusObjectManagerK a) => - a -- _obj - -> T.Text -- objectPath - -> m DBusObject -- result -dBusObjectManagerGetObject _obj objectPath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - objectPath' <- textToCString objectPath - result <- g_dbus_object_manager_get_object _obj' objectPath' - checkUnexpectedReturnNULL "g_dbus_object_manager_get_object" result - result' <- (wrapObject DBusObject) result - touchManagedPtr _obj - freeMem objectPath' - return result' - -data DBusObjectManagerGetObjectMethodInfo -instance (signature ~ (T.Text -> m DBusObject), MonadIO m, DBusObjectManagerK a) => MethodInfo DBusObjectManagerGetObjectMethodInfo a signature where - overloadedMethod _ = dBusObjectManagerGetObject - --- method DBusObjectManager::get_object_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_get_object_path" g_dbus_object_manager_get_object_path :: - Ptr DBusObjectManager -> -- _obj : TInterface "Gio" "DBusObjectManager" - IO CString - - -dBusObjectManagerGetObjectPath :: - (MonadIO m, DBusObjectManagerK a) => - a -- _obj - -> m T.Text -- result -dBusObjectManagerGetObjectPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_object_manager_get_object_path _obj' - checkUnexpectedReturnNULL "g_dbus_object_manager_get_object_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusObjectManagerGetObjectPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusObjectManagerK a) => MethodInfo DBusObjectManagerGetObjectPathMethodInfo a signature where - overloadedMethod _ = dBusObjectManagerGetObjectPath - --- method DBusObjectManager::get_objects --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "DBusObject")) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_get_objects" g_dbus_object_manager_get_objects :: - Ptr DBusObjectManager -> -- _obj : TInterface "Gio" "DBusObjectManager" - IO (Ptr (GList (Ptr DBusObject))) - - -dBusObjectManagerGetObjects :: - (MonadIO m, DBusObjectManagerK a) => - a -- _obj - -> m [DBusObject] -- result -dBusObjectManagerGetObjects _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_object_manager_get_objects _obj' - result' <- unpackGList result - result'' <- mapM (wrapObject DBusObject) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data DBusObjectManagerGetObjectsMethodInfo -instance (signature ~ (m [DBusObject]), MonadIO m, DBusObjectManagerK a) => MethodInfo DBusObjectManagerGetObjectsMethodInfo a signature where - overloadedMethod _ = dBusObjectManagerGetObjects - - diff --git a/GI/Gio/Interfaces/DBusObjectManager.hs-boot b/GI/Gio/Interfaces/DBusObjectManager.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/DBusObjectManager.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gio.Interfaces.DBusObjectManager where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusObjectManager = DBusObjectManager (ForeignPtr DBusObjectManager) -data DBusObjectManagerInterfaceAddedSignalInfo -data DBusObjectManagerInterfaceRemovedSignalInfo -data DBusObjectManagerObjectAddedSignalInfo -data DBusObjectManagerObjectRemovedSignalInfo -instance GObject DBusObjectManager where -class GObject o => DBusObjectManagerK o -instance (GObject o, IsDescendantOf DBusObjectManager o) => DBusObjectManagerK o -data DBusObjectManagerGetInterfaceMethodInfo -data DBusObjectManagerGetObjectMethodInfo -data DBusObjectManagerGetObjectPathMethodInfo -data DBusObjectManagerGetObjectsMethodInfo diff --git a/GI/Gio/Interfaces/DesktopAppInfoLookup.hs b/GI/Gio/Interfaces/DesktopAppInfoLookup.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/DesktopAppInfoLookup.hs +++ /dev/null @@ -1,136 +0,0 @@ - - -{- | -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.Interfaces.DesktopAppInfoLookup - ( - --- * Exported types - DesktopAppInfoLookup(..) , - noDesktopAppInfoLookup , - DesktopAppInfoLookupK , - toDesktopAppInfoLookup , - - - -- * Methods --- ** desktopAppInfoLookupGetDefaultForUriScheme - DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo, - desktopAppInfoLookupGetDefaultForUriScheme, - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface DesktopAppInfoLookup - -newtype DesktopAppInfoLookup = DesktopAppInfoLookup (ForeignPtr DesktopAppInfoLookup) -noDesktopAppInfoLookup :: Maybe DesktopAppInfoLookup -noDesktopAppInfoLookup = Nothing - -type family ResolveDesktopAppInfoLookupMethod (t :: Symbol) (o :: *) :: * where - ResolveDesktopAppInfoLookupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDesktopAppInfoLookupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDesktopAppInfoLookupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDesktopAppInfoLookupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDesktopAppInfoLookupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDesktopAppInfoLookupMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDesktopAppInfoLookupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDesktopAppInfoLookupMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDesktopAppInfoLookupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDesktopAppInfoLookupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDesktopAppInfoLookupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDesktopAppInfoLookupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDesktopAppInfoLookupMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDesktopAppInfoLookupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDesktopAppInfoLookupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDesktopAppInfoLookupMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDesktopAppInfoLookupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDesktopAppInfoLookupMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDesktopAppInfoLookupMethod "getDefaultForUriScheme" o = DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo - ResolveDesktopAppInfoLookupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDesktopAppInfoLookupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDesktopAppInfoLookupMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDesktopAppInfoLookupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDesktopAppInfoLookupMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDesktopAppInfoLookupMethod t DesktopAppInfoLookup, MethodInfo info DesktopAppInfoLookup p) => IsLabelProxy t (DesktopAppInfoLookup -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDesktopAppInfoLookupMethod t DesktopAppInfoLookup, MethodInfo info DesktopAppInfoLookup p) => IsLabel t (DesktopAppInfoLookup -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DesktopAppInfoLookup = DesktopAppInfoLookupAttributeList -type DesktopAppInfoLookupAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList DesktopAppInfoLookup = DesktopAppInfoLookupSignalList -type DesktopAppInfoLookupSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_desktop_app_info_lookup_get_type" - c_g_desktop_app_info_lookup_get_type :: IO GType - -type instance ParentTypes DesktopAppInfoLookup = DesktopAppInfoLookupParentTypes -type DesktopAppInfoLookupParentTypes = '[GObject.Object] - -instance GObject DesktopAppInfoLookup where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_desktop_app_info_lookup_get_type - - -class GObject o => DesktopAppInfoLookupK o -instance (GObject o, IsDescendantOf DesktopAppInfoLookup o) => DesktopAppInfoLookupK o - -toDesktopAppInfoLookup :: DesktopAppInfoLookupK o => o -> IO DesktopAppInfoLookup -toDesktopAppInfoLookup = unsafeCastTo DesktopAppInfoLookup - --- method DesktopAppInfoLookup::get_default_for_uri_scheme --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfoLookup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "AppInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_lookup_get_default_for_uri_scheme" g_desktop_app_info_lookup_get_default_for_uri_scheme :: - Ptr DesktopAppInfoLookup -> -- _obj : TInterface "Gio" "DesktopAppInfoLookup" - CString -> -- uri_scheme : TBasicType TUTF8 - IO (Ptr AppInfo) - -{-# DEPRECATED desktopAppInfoLookupGetDefaultForUriScheme ["The #GDesktopAppInfoLookup interface is deprecated and unused by gio."]#-} -desktopAppInfoLookupGetDefaultForUriScheme :: - (MonadIO m, DesktopAppInfoLookupK a) => - a -- _obj - -> T.Text -- uriScheme - -> m AppInfo -- result -desktopAppInfoLookupGetDefaultForUriScheme _obj uriScheme = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uriScheme' <- textToCString uriScheme - result <- g_desktop_app_info_lookup_get_default_for_uri_scheme _obj' uriScheme' - checkUnexpectedReturnNULL "g_desktop_app_info_lookup_get_default_for_uri_scheme" result - result' <- (wrapObject AppInfo) result - touchManagedPtr _obj - freeMem uriScheme' - return result' - -data DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo -instance (signature ~ (T.Text -> m AppInfo), MonadIO m, DesktopAppInfoLookupK a) => MethodInfo DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo a signature where - overloadedMethod _ = desktopAppInfoLookupGetDefaultForUriScheme - - diff --git a/GI/Gio/Interfaces/DesktopAppInfoLookup.hs-boot b/GI/Gio/Interfaces/DesktopAppInfoLookup.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/DesktopAppInfoLookup.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gio.Interfaces.DesktopAppInfoLookup where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DesktopAppInfoLookup = DesktopAppInfoLookup (ForeignPtr DesktopAppInfoLookup) -instance GObject DesktopAppInfoLookup where -class GObject o => DesktopAppInfoLookupK o -instance (GObject o, IsDescendantOf DesktopAppInfoLookup o) => DesktopAppInfoLookupK o -data DesktopAppInfoLookupGetDefaultForUriSchemeMethodInfo diff --git a/GI/Gio/Interfaces/Drive.hs b/GI/Gio/Interfaces/Drive.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/Drive.hs +++ /dev/null @@ -1,1420 +0,0 @@ - - -{- | -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.Interfaces.Drive - ( - --- * Exported types - Drive(..) , - noDrive , - DriveK , - toDrive , - - - -- * Methods --- ** driveCanEject - DriveCanEjectMethodInfo , - driveCanEject , - - --- ** driveCanPollForMedia - DriveCanPollForMediaMethodInfo , - driveCanPollForMedia , - - --- ** driveCanStart - DriveCanStartMethodInfo , - driveCanStart , - - --- ** driveCanStartDegraded - DriveCanStartDegradedMethodInfo , - driveCanStartDegraded , - - --- ** driveCanStop - DriveCanStopMethodInfo , - driveCanStop , - - --- ** driveEject - DriveEjectMethodInfo , - driveEject , - - --- ** driveEjectFinish - DriveEjectFinishMethodInfo , - driveEjectFinish , - - --- ** driveEjectWithOperation - DriveEjectWithOperationMethodInfo , - driveEjectWithOperation , - - --- ** driveEjectWithOperationFinish - DriveEjectWithOperationFinishMethodInfo , - driveEjectWithOperationFinish , - - --- ** driveEnumerateIdentifiers - DriveEnumerateIdentifiersMethodInfo , - driveEnumerateIdentifiers , - - --- ** driveGetIcon - DriveGetIconMethodInfo , - driveGetIcon , - - --- ** driveGetIdentifier - DriveGetIdentifierMethodInfo , - driveGetIdentifier , - - --- ** driveGetName - DriveGetNameMethodInfo , - driveGetName , - - --- ** driveGetSortKey - DriveGetSortKeyMethodInfo , - driveGetSortKey , - - --- ** driveGetStartStopType - DriveGetStartStopTypeMethodInfo , - driveGetStartStopType , - - --- ** driveGetSymbolicIcon - DriveGetSymbolicIconMethodInfo , - driveGetSymbolicIcon , - - --- ** driveGetVolumes - DriveGetVolumesMethodInfo , - driveGetVolumes , - - --- ** driveHasMedia - DriveHasMediaMethodInfo , - driveHasMedia , - - --- ** driveHasVolumes - DriveHasVolumesMethodInfo , - driveHasVolumes , - - --- ** driveIsMediaCheckAutomatic - DriveIsMediaCheckAutomaticMethodInfo , - driveIsMediaCheckAutomatic , - - --- ** driveIsMediaRemovable - DriveIsMediaRemovableMethodInfo , - driveIsMediaRemovable , - - --- ** drivePollForMedia - DrivePollForMediaMethodInfo , - drivePollForMedia , - - --- ** drivePollForMediaFinish - DrivePollForMediaFinishMethodInfo , - drivePollForMediaFinish , - - --- ** driveStart - DriveStartMethodInfo , - driveStart , - - --- ** driveStartFinish - DriveStartFinishMethodInfo , - driveStartFinish , - - --- ** driveStop - DriveStopMethodInfo , - driveStop , - - --- ** driveStopFinish - DriveStopFinishMethodInfo , - driveStopFinish , - - - - - -- * Signals --- ** Changed - DriveChangedCallback , - DriveChangedCallbackC , - DriveChangedSignalInfo , - afterDriveChanged , - driveChangedCallbackWrapper , - driveChangedClosure , - mkDriveChangedCallback , - noDriveChangedCallback , - onDriveChanged , - - --- ** Disconnected - DriveDisconnectedCallback , - DriveDisconnectedCallbackC , - DriveDisconnectedSignalInfo , - afterDriveDisconnected , - driveDisconnectedCallbackWrapper , - driveDisconnectedClosure , - mkDriveDisconnectedCallback , - noDriveDisconnectedCallback , - onDriveDisconnected , - - --- ** EjectButton - DriveEjectButtonCallback , - DriveEjectButtonCallbackC , - DriveEjectButtonSignalInfo , - afterDriveEjectButton , - driveEjectButtonCallbackWrapper , - driveEjectButtonClosure , - mkDriveEjectButtonCallback , - noDriveEjectButtonCallback , - onDriveEjectButton , - - --- ** StopButton - DriveStopButtonCallback , - DriveStopButtonCallbackC , - DriveStopButtonSignalInfo , - afterDriveStopButton , - driveStopButtonCallbackWrapper , - driveStopButtonClosure , - mkDriveStopButtonCallback , - noDriveStopButtonCallback , - onDriveStopButton , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface Drive - -newtype Drive = Drive (ForeignPtr Drive) -noDrive :: Maybe Drive -noDrive = Nothing - -type family ResolveDriveMethod (t :: Symbol) (o :: *) :: * where - ResolveDriveMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDriveMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDriveMethod "canEject" o = DriveCanEjectMethodInfo - ResolveDriveMethod "canPollForMedia" o = DriveCanPollForMediaMethodInfo - ResolveDriveMethod "canStart" o = DriveCanStartMethodInfo - ResolveDriveMethod "canStartDegraded" o = DriveCanStartDegradedMethodInfo - ResolveDriveMethod "canStop" o = DriveCanStopMethodInfo - ResolveDriveMethod "eject" o = DriveEjectMethodInfo - ResolveDriveMethod "ejectFinish" o = DriveEjectFinishMethodInfo - ResolveDriveMethod "ejectWithOperation" o = DriveEjectWithOperationMethodInfo - ResolveDriveMethod "ejectWithOperationFinish" o = DriveEjectWithOperationFinishMethodInfo - ResolveDriveMethod "enumerateIdentifiers" o = DriveEnumerateIdentifiersMethodInfo - ResolveDriveMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDriveMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDriveMethod "hasMedia" o = DriveHasMediaMethodInfo - ResolveDriveMethod "hasVolumes" o = DriveHasVolumesMethodInfo - ResolveDriveMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDriveMethod "isMediaCheckAutomatic" o = DriveIsMediaCheckAutomaticMethodInfo - ResolveDriveMethod "isMediaRemovable" o = DriveIsMediaRemovableMethodInfo - ResolveDriveMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDriveMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDriveMethod "pollForMedia" o = DrivePollForMediaMethodInfo - ResolveDriveMethod "pollForMediaFinish" o = DrivePollForMediaFinishMethodInfo - ResolveDriveMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDriveMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDriveMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDriveMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDriveMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDriveMethod "start" o = DriveStartMethodInfo - ResolveDriveMethod "startFinish" o = DriveStartFinishMethodInfo - ResolveDriveMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDriveMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDriveMethod "stop" o = DriveStopMethodInfo - ResolveDriveMethod "stopFinish" o = DriveStopFinishMethodInfo - ResolveDriveMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDriveMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDriveMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDriveMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDriveMethod "getIcon" o = DriveGetIconMethodInfo - ResolveDriveMethod "getIdentifier" o = DriveGetIdentifierMethodInfo - ResolveDriveMethod "getName" o = DriveGetNameMethodInfo - ResolveDriveMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDriveMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDriveMethod "getSortKey" o = DriveGetSortKeyMethodInfo - ResolveDriveMethod "getStartStopType" o = DriveGetStartStopTypeMethodInfo - ResolveDriveMethod "getSymbolicIcon" o = DriveGetSymbolicIconMethodInfo - ResolveDriveMethod "getVolumes" o = DriveGetVolumesMethodInfo - ResolveDriveMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDriveMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDriveMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDriveMethod t Drive, MethodInfo info Drive p) => IsLabelProxy t (Drive -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDriveMethod t Drive, MethodInfo info Drive p) => IsLabel t (Drive -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Drive::changed -type DriveChangedCallback = - IO () - -noDriveChangedCallback :: Maybe DriveChangedCallback -noDriveChangedCallback = Nothing - -type DriveChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDriveChangedCallback :: DriveChangedCallbackC -> IO (FunPtr DriveChangedCallbackC) - -driveChangedClosure :: DriveChangedCallback -> IO Closure -driveChangedClosure cb = newCClosure =<< mkDriveChangedCallback wrapped - where wrapped = driveChangedCallbackWrapper cb - -driveChangedCallbackWrapper :: - DriveChangedCallback -> - Ptr () -> - Ptr () -> - IO () -driveChangedCallbackWrapper _cb _ _ = do - _cb - -onDriveChanged :: (GObject a, MonadIO m) => a -> DriveChangedCallback -> m SignalHandlerId -onDriveChanged obj cb = liftIO $ connectDriveChanged obj cb SignalConnectBefore -afterDriveChanged :: (GObject a, MonadIO m) => a -> DriveChangedCallback -> m SignalHandlerId -afterDriveChanged obj cb = connectDriveChanged obj cb SignalConnectAfter - -connectDriveChanged :: (GObject a, MonadIO m) => - a -> DriveChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectDriveChanged obj cb after = liftIO $ do - cb' <- mkDriveChangedCallback (driveChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- signal Drive::disconnected -type DriveDisconnectedCallback = - IO () - -noDriveDisconnectedCallback :: Maybe DriveDisconnectedCallback -noDriveDisconnectedCallback = Nothing - -type DriveDisconnectedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDriveDisconnectedCallback :: DriveDisconnectedCallbackC -> IO (FunPtr DriveDisconnectedCallbackC) - -driveDisconnectedClosure :: DriveDisconnectedCallback -> IO Closure -driveDisconnectedClosure cb = newCClosure =<< mkDriveDisconnectedCallback wrapped - where wrapped = driveDisconnectedCallbackWrapper cb - -driveDisconnectedCallbackWrapper :: - DriveDisconnectedCallback -> - Ptr () -> - Ptr () -> - IO () -driveDisconnectedCallbackWrapper _cb _ _ = do - _cb - -onDriveDisconnected :: (GObject a, MonadIO m) => a -> DriveDisconnectedCallback -> m SignalHandlerId -onDriveDisconnected obj cb = liftIO $ connectDriveDisconnected obj cb SignalConnectBefore -afterDriveDisconnected :: (GObject a, MonadIO m) => a -> DriveDisconnectedCallback -> m SignalHandlerId -afterDriveDisconnected obj cb = connectDriveDisconnected obj cb SignalConnectAfter - -connectDriveDisconnected :: (GObject a, MonadIO m) => - a -> DriveDisconnectedCallback -> SignalConnectMode -> m SignalHandlerId -connectDriveDisconnected obj cb after = liftIO $ do - cb' <- mkDriveDisconnectedCallback (driveDisconnectedCallbackWrapper cb) - connectSignalFunPtr obj "disconnected" cb' after - --- signal Drive::eject-button -type DriveEjectButtonCallback = - IO () - -noDriveEjectButtonCallback :: Maybe DriveEjectButtonCallback -noDriveEjectButtonCallback = Nothing - -type DriveEjectButtonCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDriveEjectButtonCallback :: DriveEjectButtonCallbackC -> IO (FunPtr DriveEjectButtonCallbackC) - -driveEjectButtonClosure :: DriveEjectButtonCallback -> IO Closure -driveEjectButtonClosure cb = newCClosure =<< mkDriveEjectButtonCallback wrapped - where wrapped = driveEjectButtonCallbackWrapper cb - -driveEjectButtonCallbackWrapper :: - DriveEjectButtonCallback -> - Ptr () -> - Ptr () -> - IO () -driveEjectButtonCallbackWrapper _cb _ _ = do - _cb - -onDriveEjectButton :: (GObject a, MonadIO m) => a -> DriveEjectButtonCallback -> m SignalHandlerId -onDriveEjectButton obj cb = liftIO $ connectDriveEjectButton obj cb SignalConnectBefore -afterDriveEjectButton :: (GObject a, MonadIO m) => a -> DriveEjectButtonCallback -> m SignalHandlerId -afterDriveEjectButton obj cb = connectDriveEjectButton obj cb SignalConnectAfter - -connectDriveEjectButton :: (GObject a, MonadIO m) => - a -> DriveEjectButtonCallback -> SignalConnectMode -> m SignalHandlerId -connectDriveEjectButton obj cb after = liftIO $ do - cb' <- mkDriveEjectButtonCallback (driveEjectButtonCallbackWrapper cb) - connectSignalFunPtr obj "eject-button" cb' after - --- signal Drive::stop-button -type DriveStopButtonCallback = - IO () - -noDriveStopButtonCallback :: Maybe DriveStopButtonCallback -noDriveStopButtonCallback = Nothing - -type DriveStopButtonCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDriveStopButtonCallback :: DriveStopButtonCallbackC -> IO (FunPtr DriveStopButtonCallbackC) - -driveStopButtonClosure :: DriveStopButtonCallback -> IO Closure -driveStopButtonClosure cb = newCClosure =<< mkDriveStopButtonCallback wrapped - where wrapped = driveStopButtonCallbackWrapper cb - -driveStopButtonCallbackWrapper :: - DriveStopButtonCallback -> - Ptr () -> - Ptr () -> - IO () -driveStopButtonCallbackWrapper _cb _ _ = do - _cb - -onDriveStopButton :: (GObject a, MonadIO m) => a -> DriveStopButtonCallback -> m SignalHandlerId -onDriveStopButton obj cb = liftIO $ connectDriveStopButton obj cb SignalConnectBefore -afterDriveStopButton :: (GObject a, MonadIO m) => a -> DriveStopButtonCallback -> m SignalHandlerId -afterDriveStopButton obj cb = connectDriveStopButton obj cb SignalConnectAfter - -connectDriveStopButton :: (GObject a, MonadIO m) => - a -> DriveStopButtonCallback -> SignalConnectMode -> m SignalHandlerId -connectDriveStopButton obj cb after = liftIO $ do - cb' <- mkDriveStopButtonCallback (driveStopButtonCallbackWrapper cb) - connectSignalFunPtr obj "stop-button" cb' after - -type instance AttributeList Drive = DriveAttributeList -type DriveAttributeList = ('[ ] :: [(Symbol, *)]) - -data DriveChangedSignalInfo -instance SignalInfo DriveChangedSignalInfo where - type HaskellCallbackType DriveChangedSignalInfo = DriveChangedCallback - connectSignal _ = connectDriveChanged - -data DriveDisconnectedSignalInfo -instance SignalInfo DriveDisconnectedSignalInfo where - type HaskellCallbackType DriveDisconnectedSignalInfo = DriveDisconnectedCallback - connectSignal _ = connectDriveDisconnected - -data DriveEjectButtonSignalInfo -instance SignalInfo DriveEjectButtonSignalInfo where - type HaskellCallbackType DriveEjectButtonSignalInfo = DriveEjectButtonCallback - connectSignal _ = connectDriveEjectButton - -data DriveStopButtonSignalInfo -instance SignalInfo DriveStopButtonSignalInfo where - type HaskellCallbackType DriveStopButtonSignalInfo = DriveStopButtonCallback - connectSignal _ = connectDriveStopButton - -type instance SignalList Drive = DriveSignalList -type DriveSignalList = ('[ '("changed", DriveChangedSignalInfo), '("disconnected", DriveDisconnectedSignalInfo), '("ejectButton", DriveEjectButtonSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("stopButton", DriveStopButtonSignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_drive_get_type" - c_g_drive_get_type :: IO GType - -type instance ParentTypes Drive = DriveParentTypes -type DriveParentTypes = '[GObject.Object] - -instance GObject Drive where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_drive_get_type - - -class GObject o => DriveK o -instance (GObject o, IsDescendantOf Drive o) => DriveK o - -toDrive :: DriveK o => o -> IO Drive -toDrive = unsafeCastTo Drive - --- method Drive::can_eject --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_drive_can_eject" g_drive_can_eject :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO CInt - - -driveCanEject :: - (MonadIO m, DriveK a) => - a -- _obj - -> m Bool -- result -driveCanEject _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_can_eject _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DriveCanEjectMethodInfo -instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveCanEjectMethodInfo a signature where - overloadedMethod _ = driveCanEject - --- method Drive::can_poll_for_media --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_drive_can_poll_for_media" g_drive_can_poll_for_media :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO CInt - - -driveCanPollForMedia :: - (MonadIO m, DriveK a) => - a -- _obj - -> m Bool -- result -driveCanPollForMedia _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_can_poll_for_media _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DriveCanPollForMediaMethodInfo -instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveCanPollForMediaMethodInfo a signature where - overloadedMethod _ = driveCanPollForMedia - --- method Drive::can_start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_drive_can_start" g_drive_can_start :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO CInt - - -driveCanStart :: - (MonadIO m, DriveK a) => - a -- _obj - -> m Bool -- result -driveCanStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_can_start _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DriveCanStartMethodInfo -instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveCanStartMethodInfo a signature where - overloadedMethod _ = driveCanStart - --- method Drive::can_start_degraded --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_drive_can_start_degraded" g_drive_can_start_degraded :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO CInt - - -driveCanStartDegraded :: - (MonadIO m, DriveK a) => - a -- _obj - -> m Bool -- result -driveCanStartDegraded _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_can_start_degraded _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DriveCanStartDegradedMethodInfo -instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveCanStartDegradedMethodInfo a signature where - overloadedMethod _ = driveCanStartDegraded - --- method Drive::can_stop --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_drive_can_stop" g_drive_can_stop :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO CInt - - -driveCanStop :: - (MonadIO m, DriveK a) => - a -- _obj - -> m Bool -- result -driveCanStop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_can_stop _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DriveCanStopMethodInfo -instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveCanStopMethodInfo a signature where - overloadedMethod _ = driveCanStop - --- method Drive::eject --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_drive_eject" g_drive_eject :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - CUInt -> -- flags : TInterface "Gio" "MountUnmountFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - -{-# DEPRECATED driveEject ["(Since version 2.22)","Use g_drive_eject_with_operation() instead."]#-} -driveEject :: - (MonadIO m, DriveK a, CancellableK b) => - a -- _obj - -> [MountUnmountFlags] -- flags - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -driveEject _obj flags cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - 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_drive_eject _obj' flags' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data DriveEjectMethodInfo -instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DriveK a, CancellableK b) => MethodInfo DriveEjectMethodInfo a signature where - overloadedMethod _ = driveEject - --- method Drive::eject_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_drive_eject_finish" g_drive_eject_finish :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - -{-# DEPRECATED driveEjectFinish ["(Since version 2.22)","Use g_drive_eject_with_operation_finish() instead."]#-} -driveEjectFinish :: - (MonadIO m, DriveK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -driveEjectFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_drive_eject_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data DriveEjectFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DriveK a, AsyncResultK b) => MethodInfo DriveEjectFinishMethodInfo a signature where - overloadedMethod _ = driveEjectFinish - --- method Drive::eject_with_operation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_drive_eject_with_operation" g_drive_eject_with_operation :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - CUInt -> -- flags : TInterface "Gio" "MountUnmountFlags" - Ptr MountOperation -> -- mount_operation : TInterface "Gio" "MountOperation" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -driveEjectWithOperation :: - (MonadIO m, DriveK a, MountOperationK b, CancellableK c) => - a -- _obj - -> [MountUnmountFlags] -- flags - -> Maybe (b) -- mountOperation - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -driveEjectWithOperation _obj flags mountOperation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMountOperation <- case mountOperation of - Nothing -> return nullPtr - Just jMountOperation -> do - let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation - return jMountOperation' - 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_drive_eject_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust mountOperation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data DriveEjectWithOperationMethodInfo -instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DriveK a, MountOperationK b, CancellableK c) => MethodInfo DriveEjectWithOperationMethodInfo a signature where - overloadedMethod _ = driveEjectWithOperation - --- method Drive::eject_with_operation_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_drive_eject_with_operation_finish" g_drive_eject_with_operation_finish :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -driveEjectWithOperationFinish :: - (MonadIO m, DriveK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -driveEjectWithOperationFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_drive_eject_with_operation_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data DriveEjectWithOperationFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DriveK a, AsyncResultK b) => MethodInfo DriveEjectWithOperationFinishMethodInfo a signature where - overloadedMethod _ = driveEjectWithOperationFinish - --- method Drive::enumerate_identifiers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_drive_enumerate_identifiers" g_drive_enumerate_identifiers :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO (Ptr CString) - - -driveEnumerateIdentifiers :: - (MonadIO m, DriveK a) => - a -- _obj - -> m [T.Text] -- result -driveEnumerateIdentifiers _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_enumerate_identifiers _obj' - checkUnexpectedReturnNULL "g_drive_enumerate_identifiers" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - return result' - -data DriveEnumerateIdentifiersMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, DriveK a) => MethodInfo DriveEnumerateIdentifiersMethodInfo a signature where - overloadedMethod _ = driveEnumerateIdentifiers - --- method Drive::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "g_drive_get_icon" g_drive_get_icon :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO (Ptr Icon) - - -driveGetIcon :: - (MonadIO m, DriveK a) => - a -- _obj - -> m Icon -- result -driveGetIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_get_icon _obj' - checkUnexpectedReturnNULL "g_drive_get_icon" result - result' <- (wrapObject Icon) result - touchManagedPtr _obj - return result' - -data DriveGetIconMethodInfo -instance (signature ~ (m Icon), MonadIO m, DriveK a) => MethodInfo DriveGetIconMethodInfo a signature where - overloadedMethod _ = driveGetIcon - --- method Drive::get_identifier --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "kind", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_drive_get_identifier" g_drive_get_identifier :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - CString -> -- kind : TBasicType TUTF8 - IO CString - - -driveGetIdentifier :: - (MonadIO m, DriveK a) => - a -- _obj - -> T.Text -- kind - -> m T.Text -- result -driveGetIdentifier _obj kind = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - kind' <- textToCString kind - result <- g_drive_get_identifier _obj' kind' - checkUnexpectedReturnNULL "g_drive_get_identifier" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem kind' - return result' - -data DriveGetIdentifierMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, DriveK a) => MethodInfo DriveGetIdentifierMethodInfo a signature where - overloadedMethod _ = driveGetIdentifier - --- method Drive::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_drive_get_name" g_drive_get_name :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO CString - - -driveGetName :: - (MonadIO m, DriveK a) => - a -- _obj - -> m T.Text -- result -driveGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_get_name _obj' - checkUnexpectedReturnNULL "g_drive_get_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data DriveGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DriveK a) => MethodInfo DriveGetNameMethodInfo a signature where - overloadedMethod _ = driveGetName - --- method Drive::get_sort_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_drive_get_sort_key" g_drive_get_sort_key :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO CString - - -driveGetSortKey :: - (MonadIO m, DriveK a) => - a -- _obj - -> m T.Text -- result -driveGetSortKey _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_get_sort_key _obj' - checkUnexpectedReturnNULL "g_drive_get_sort_key" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DriveGetSortKeyMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DriveK a) => MethodInfo DriveGetSortKeyMethodInfo a signature where - overloadedMethod _ = driveGetSortKey - --- method Drive::get_start_stop_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DriveStartStopType") --- throws : False --- Skip return : False - -foreign import ccall "g_drive_get_start_stop_type" g_drive_get_start_stop_type :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO CUInt - - -driveGetStartStopType :: - (MonadIO m, DriveK a) => - a -- _obj - -> m DriveStartStopType -- result -driveGetStartStopType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_get_start_stop_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data DriveGetStartStopTypeMethodInfo -instance (signature ~ (m DriveStartStopType), MonadIO m, DriveK a) => MethodInfo DriveGetStartStopTypeMethodInfo a signature where - overloadedMethod _ = driveGetStartStopType - --- method Drive::get_symbolic_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "g_drive_get_symbolic_icon" g_drive_get_symbolic_icon :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO (Ptr Icon) - - -driveGetSymbolicIcon :: - (MonadIO m, DriveK a) => - a -- _obj - -> m Icon -- result -driveGetSymbolicIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_get_symbolic_icon _obj' - checkUnexpectedReturnNULL "g_drive_get_symbolic_icon" result - result' <- (wrapObject Icon) result - touchManagedPtr _obj - return result' - -data DriveGetSymbolicIconMethodInfo -instance (signature ~ (m Icon), MonadIO m, DriveK a) => MethodInfo DriveGetSymbolicIconMethodInfo a signature where - overloadedMethod _ = driveGetSymbolicIcon - --- method Drive::get_volumes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "Volume")) --- throws : False --- Skip return : False - -foreign import ccall "g_drive_get_volumes" g_drive_get_volumes :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO (Ptr (GList (Ptr Volume))) - - -driveGetVolumes :: - (MonadIO m, DriveK a) => - a -- _obj - -> m [Volume] -- result -driveGetVolumes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_get_volumes _obj' - result' <- unpackGList result - result'' <- mapM (wrapObject Volume) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data DriveGetVolumesMethodInfo -instance (signature ~ (m [Volume]), MonadIO m, DriveK a) => MethodInfo DriveGetVolumesMethodInfo a signature where - overloadedMethod _ = driveGetVolumes - --- method Drive::has_media --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_drive_has_media" g_drive_has_media :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO CInt - - -driveHasMedia :: - (MonadIO m, DriveK a) => - a -- _obj - -> m Bool -- result -driveHasMedia _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_has_media _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DriveHasMediaMethodInfo -instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveHasMediaMethodInfo a signature where - overloadedMethod _ = driveHasMedia - --- method Drive::has_volumes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_drive_has_volumes" g_drive_has_volumes :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO CInt - - -driveHasVolumes :: - (MonadIO m, DriveK a) => - a -- _obj - -> m Bool -- result -driveHasVolumes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_has_volumes _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DriveHasVolumesMethodInfo -instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveHasVolumesMethodInfo a signature where - overloadedMethod _ = driveHasVolumes - --- method Drive::is_media_check_automatic --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_drive_is_media_check_automatic" g_drive_is_media_check_automatic :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO CInt - - -driveIsMediaCheckAutomatic :: - (MonadIO m, DriveK a) => - a -- _obj - -> m Bool -- result -driveIsMediaCheckAutomatic _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_is_media_check_automatic _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DriveIsMediaCheckAutomaticMethodInfo -instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveIsMediaCheckAutomaticMethodInfo a signature where - overloadedMethod _ = driveIsMediaCheckAutomatic - --- method Drive::is_media_removable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_drive_is_media_removable" g_drive_is_media_removable :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - IO CInt - - -driveIsMediaRemovable :: - (MonadIO m, DriveK a) => - a -- _obj - -> m Bool -- result -driveIsMediaRemovable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_drive_is_media_removable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DriveIsMediaRemovableMethodInfo -instance (signature ~ (m Bool), MonadIO m, DriveK a) => MethodInfo DriveIsMediaRemovableMethodInfo a signature where - overloadedMethod _ = driveIsMediaRemovable - --- method Drive::poll_for_media --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_drive_poll_for_media" g_drive_poll_for_media :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -drivePollForMedia :: - (MonadIO m, DriveK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -drivePollForMedia _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_drive_poll_for_media _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data DrivePollForMediaMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DriveK a, CancellableK b) => MethodInfo DrivePollForMediaMethodInfo a signature where - overloadedMethod _ = drivePollForMedia - --- method Drive::poll_for_media_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_drive_poll_for_media_finish" g_drive_poll_for_media_finish :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -drivePollForMediaFinish :: - (MonadIO m, DriveK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -drivePollForMediaFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_drive_poll_for_media_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data DrivePollForMediaFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DriveK a, AsyncResultK b) => MethodInfo DrivePollForMediaFinishMethodInfo a signature where - overloadedMethod _ = drivePollForMediaFinish - --- method Drive::start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DriveStartFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_drive_start" g_drive_start :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - CUInt -> -- flags : TInterface "Gio" "DriveStartFlags" - Ptr MountOperation -> -- mount_operation : TInterface "Gio" "MountOperation" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -driveStart :: - (MonadIO m, DriveK a, MountOperationK b, CancellableK c) => - a -- _obj - -> [DriveStartFlags] -- flags - -> Maybe (b) -- mountOperation - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -driveStart _obj flags mountOperation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMountOperation <- case mountOperation of - Nothing -> return nullPtr - Just jMountOperation -> do - let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation - return jMountOperation' - 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_drive_start _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust mountOperation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data DriveStartMethodInfo -instance (signature ~ ([DriveStartFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DriveK a, MountOperationK b, CancellableK c) => MethodInfo DriveStartMethodInfo a signature where - overloadedMethod _ = driveStart - --- method Drive::start_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_drive_start_finish" g_drive_start_finish :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -driveStartFinish :: - (MonadIO m, DriveK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -driveStartFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_drive_start_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data DriveStartFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DriveK a, AsyncResultK b) => MethodInfo DriveStartFinishMethodInfo a signature where - overloadedMethod _ = driveStartFinish - --- method Drive::stop --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_drive_stop" g_drive_stop :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - CUInt -> -- flags : TInterface "Gio" "MountUnmountFlags" - Ptr MountOperation -> -- mount_operation : TInterface "Gio" "MountOperation" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -driveStop :: - (MonadIO m, DriveK a, MountOperationK b, CancellableK c) => - a -- _obj - -> [MountUnmountFlags] -- flags - -> Maybe (b) -- mountOperation - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -driveStop _obj flags mountOperation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMountOperation <- case mountOperation of - Nothing -> return nullPtr - Just jMountOperation -> do - let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation - return jMountOperation' - 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_drive_stop _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust mountOperation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data DriveStopMethodInfo -instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DriveK a, MountOperationK b, CancellableK c) => MethodInfo DriveStopMethodInfo a signature where - overloadedMethod _ = driveStop - --- method Drive::stop_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Drive", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_drive_stop_finish" g_drive_stop_finish :: - Ptr Drive -> -- _obj : TInterface "Gio" "Drive" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -driveStopFinish :: - (MonadIO m, DriveK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -driveStopFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_drive_stop_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data DriveStopFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DriveK a, AsyncResultK b) => MethodInfo DriveStopFinishMethodInfo a signature where - overloadedMethod _ = driveStopFinish - - diff --git a/GI/Gio/Interfaces/Drive.hs-boot b/GI/Gio/Interfaces/Drive.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/Drive.hs-boot +++ /dev/null @@ -1,44 +0,0 @@ -module GI.Gio.Interfaces.Drive where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Drive = Drive (ForeignPtr Drive) -data DriveChangedSignalInfo -data DriveDisconnectedSignalInfo -data DriveEjectButtonSignalInfo -data DriveStopButtonSignalInfo -instance GObject Drive where -class GObject o => DriveK o -instance (GObject o, IsDescendantOf Drive o) => DriveK o -data DriveCanEjectMethodInfo -data DriveCanPollForMediaMethodInfo -data DriveCanStartMethodInfo -data DriveCanStartDegradedMethodInfo -data DriveCanStopMethodInfo -data DriveEjectMethodInfo -data DriveEjectFinishMethodInfo -data DriveEjectWithOperationMethodInfo -data DriveEjectWithOperationFinishMethodInfo -data DriveEnumerateIdentifiersMethodInfo -data DriveGetIconMethodInfo -data DriveGetIdentifierMethodInfo -data DriveGetNameMethodInfo -data DriveGetSortKeyMethodInfo -data DriveGetStartStopTypeMethodInfo -data DriveGetSymbolicIconMethodInfo -data DriveGetVolumesMethodInfo -data DriveHasMediaMethodInfo -data DriveHasVolumesMethodInfo -data DriveIsMediaCheckAutomaticMethodInfo -data DriveIsMediaRemovableMethodInfo -data DrivePollForMediaMethodInfo -data DrivePollForMediaFinishMethodInfo -data DriveStartMethodInfo -data DriveStartFinishMethodInfo -data DriveStopMethodInfo -data DriveStopFinishMethodInfo diff --git a/GI/Gio/Interfaces/File.hs b/GI/Gio/Interfaces/File.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/File.hs +++ /dev/null @@ -1,5994 +0,0 @@ - - -{- | -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.Interfaces.File - ( - --- * Exported types - File(..) , - noFile , - FileK , - toFile , - - - -- * Methods --- ** fileAppendTo - FileAppendToMethodInfo , - fileAppendTo , - - --- ** fileAppendToAsync - FileAppendToAsyncMethodInfo , - fileAppendToAsync , - - --- ** fileAppendToFinish - FileAppendToFinishMethodInfo , - fileAppendToFinish , - - --- ** fileCopy - FileCopyMethodInfo , - fileCopy , - - --- ** fileCopyAttributes - FileCopyAttributesMethodInfo , - fileCopyAttributes , - - --- ** fileCopyFinish - FileCopyFinishMethodInfo , - fileCopyFinish , - - --- ** fileCreate - FileCreateMethodInfo , - fileCreate , - - --- ** fileCreateAsync - FileCreateAsyncMethodInfo , - fileCreateAsync , - - --- ** fileCreateFinish - FileCreateFinishMethodInfo , - fileCreateFinish , - - --- ** fileCreateReadwrite - FileCreateReadwriteMethodInfo , - fileCreateReadwrite , - - --- ** fileCreateReadwriteAsync - FileCreateReadwriteAsyncMethodInfo , - fileCreateReadwriteAsync , - - --- ** fileCreateReadwriteFinish - FileCreateReadwriteFinishMethodInfo , - fileCreateReadwriteFinish , - - --- ** fileDelete - FileDeleteMethodInfo , - fileDelete , - - --- ** fileDeleteAsync - FileDeleteAsyncMethodInfo , - fileDeleteAsync , - - --- ** fileDeleteFinish - FileDeleteFinishMethodInfo , - fileDeleteFinish , - - --- ** fileDup - FileDupMethodInfo , - fileDup , - - --- ** fileEjectMountable - FileEjectMountableMethodInfo , - fileEjectMountable , - - --- ** fileEjectMountableFinish - FileEjectMountableFinishMethodInfo , - fileEjectMountableFinish , - - --- ** fileEjectMountableWithOperation - FileEjectMountableWithOperationMethodInfo, - fileEjectMountableWithOperation , - - --- ** fileEjectMountableWithOperationFinish - FileEjectMountableWithOperationFinishMethodInfo, - fileEjectMountableWithOperationFinish , - - --- ** fileEnumerateChildren - FileEnumerateChildrenMethodInfo , - fileEnumerateChildren , - - --- ** fileEnumerateChildrenAsync - FileEnumerateChildrenAsyncMethodInfo , - fileEnumerateChildrenAsync , - - --- ** fileEnumerateChildrenFinish - FileEnumerateChildrenFinishMethodInfo , - fileEnumerateChildrenFinish , - - --- ** fileEqual - FileEqualMethodInfo , - fileEqual , - - --- ** fileFindEnclosingMount - FileFindEnclosingMountMethodInfo , - fileFindEnclosingMount , - - --- ** fileFindEnclosingMountAsync - FileFindEnclosingMountAsyncMethodInfo , - fileFindEnclosingMountAsync , - - --- ** fileFindEnclosingMountFinish - FileFindEnclosingMountFinishMethodInfo , - fileFindEnclosingMountFinish , - - --- ** fileGetBasename - FileGetBasenameMethodInfo , - fileGetBasename , - - --- ** fileGetChild - FileGetChildMethodInfo , - fileGetChild , - - --- ** fileGetChildForDisplayName - FileGetChildForDisplayNameMethodInfo , - fileGetChildForDisplayName , - - --- ** fileGetParent - FileGetParentMethodInfo , - fileGetParent , - - --- ** fileGetParseName - FileGetParseNameMethodInfo , - fileGetParseName , - - --- ** fileGetPath - FileGetPathMethodInfo , - fileGetPath , - - --- ** fileGetRelativePath - FileGetRelativePathMethodInfo , - fileGetRelativePath , - - --- ** fileGetUri - FileGetUriMethodInfo , - fileGetUri , - - --- ** fileGetUriScheme - FileGetUriSchemeMethodInfo , - fileGetUriScheme , - - --- ** fileHasParent - FileHasParentMethodInfo , - fileHasParent , - - --- ** fileHasPrefix - FileHasPrefixMethodInfo , - fileHasPrefix , - - --- ** fileHasUriScheme - FileHasUriSchemeMethodInfo , - fileHasUriScheme , - - --- ** fileHash - FileHashMethodInfo , - fileHash , - - --- ** fileIsNative - FileIsNativeMethodInfo , - fileIsNative , - - --- ** fileLoadContents - FileLoadContentsMethodInfo , - fileLoadContents , - - --- ** fileLoadContentsAsync - FileLoadContentsAsyncMethodInfo , - fileLoadContentsAsync , - - --- ** fileLoadContentsFinish - FileLoadContentsFinishMethodInfo , - fileLoadContentsFinish , - - --- ** fileLoadPartialContentsFinish - FileLoadPartialContentsFinishMethodInfo , - fileLoadPartialContentsFinish , - - --- ** fileMakeDirectory - FileMakeDirectoryMethodInfo , - fileMakeDirectory , - - --- ** fileMakeDirectoryAsync - FileMakeDirectoryAsyncMethodInfo , - fileMakeDirectoryAsync , - - --- ** fileMakeDirectoryFinish - FileMakeDirectoryFinishMethodInfo , - fileMakeDirectoryFinish , - - --- ** fileMakeDirectoryWithParents - FileMakeDirectoryWithParentsMethodInfo , - fileMakeDirectoryWithParents , - - --- ** fileMakeSymbolicLink - FileMakeSymbolicLinkMethodInfo , - fileMakeSymbolicLink , - - --- ** fileMeasureDiskUsageFinish - FileMeasureDiskUsageFinishMethodInfo , - fileMeasureDiskUsageFinish , - - --- ** fileMonitor - FileMonitorMethodInfo , - fileMonitor , - - --- ** fileMonitorDirectory - FileMonitorDirectoryMethodInfo , - fileMonitorDirectory , - - --- ** fileMonitorFile - FileMonitorFileMethodInfo , - fileMonitorFile , - - --- ** fileMountEnclosingVolume - FileMountEnclosingVolumeMethodInfo , - fileMountEnclosingVolume , - - --- ** fileMountEnclosingVolumeFinish - FileMountEnclosingVolumeFinishMethodInfo, - fileMountEnclosingVolumeFinish , - - --- ** fileMountMountable - FileMountMountableMethodInfo , - fileMountMountable , - - --- ** fileMountMountableFinish - FileMountMountableFinishMethodInfo , - fileMountMountableFinish , - - --- ** fileMove - FileMoveMethodInfo , - fileMove , - - --- ** fileNewForCommandlineArg - fileNewForCommandlineArg , - - --- ** fileNewForCommandlineArgAndCwd - fileNewForCommandlineArgAndCwd , - - --- ** fileNewForPath - fileNewForPath , - - --- ** fileNewForUri - fileNewForUri , - - --- ** fileNewTmp - fileNewTmp , - - --- ** fileOpenReadwrite - FileOpenReadwriteMethodInfo , - fileOpenReadwrite , - - --- ** fileOpenReadwriteAsync - FileOpenReadwriteAsyncMethodInfo , - fileOpenReadwriteAsync , - - --- ** fileOpenReadwriteFinish - FileOpenReadwriteFinishMethodInfo , - fileOpenReadwriteFinish , - - --- ** fileParseName - fileParseName , - - --- ** filePollMountable - FilePollMountableMethodInfo , - filePollMountable , - - --- ** filePollMountableFinish - FilePollMountableFinishMethodInfo , - filePollMountableFinish , - - --- ** fileQueryDefaultHandler - FileQueryDefaultHandlerMethodInfo , - fileQueryDefaultHandler , - - --- ** fileQueryExists - FileQueryExistsMethodInfo , - fileQueryExists , - - --- ** fileQueryFileType - FileQueryFileTypeMethodInfo , - fileQueryFileType , - - --- ** fileQueryFilesystemInfo - FileQueryFilesystemInfoMethodInfo , - fileQueryFilesystemInfo , - - --- ** fileQueryFilesystemInfoAsync - FileQueryFilesystemInfoAsyncMethodInfo , - fileQueryFilesystemInfoAsync , - - --- ** fileQueryFilesystemInfoFinish - FileQueryFilesystemInfoFinishMethodInfo , - fileQueryFilesystemInfoFinish , - - --- ** fileQueryInfo - FileQueryInfoMethodInfo , - fileQueryInfo , - - --- ** fileQueryInfoAsync - FileQueryInfoAsyncMethodInfo , - fileQueryInfoAsync , - - --- ** fileQueryInfoFinish - FileQueryInfoFinishMethodInfo , - fileQueryInfoFinish , - - --- ** fileQuerySettableAttributes - FileQuerySettableAttributesMethodInfo , - fileQuerySettableAttributes , - - --- ** fileQueryWritableNamespaces - FileQueryWritableNamespacesMethodInfo , - fileQueryWritableNamespaces , - - --- ** fileRead - FileReadMethodInfo , - fileRead , - - --- ** fileReadAsync - FileReadAsyncMethodInfo , - fileReadAsync , - - --- ** fileReadFinish - FileReadFinishMethodInfo , - fileReadFinish , - - --- ** fileReplace - FileReplaceMethodInfo , - fileReplace , - - --- ** fileReplaceAsync - FileReplaceAsyncMethodInfo , - fileReplaceAsync , - - --- ** fileReplaceContents - FileReplaceContentsMethodInfo , - fileReplaceContents , - - --- ** fileReplaceContentsAsync - FileReplaceContentsAsyncMethodInfo , - fileReplaceContentsAsync , - - --- ** fileReplaceContentsBytesAsync - FileReplaceContentsBytesAsyncMethodInfo , - fileReplaceContentsBytesAsync , - - --- ** fileReplaceContentsFinish - FileReplaceContentsFinishMethodInfo , - fileReplaceContentsFinish , - - --- ** fileReplaceFinish - FileReplaceFinishMethodInfo , - fileReplaceFinish , - - --- ** fileReplaceReadwrite - FileReplaceReadwriteMethodInfo , - fileReplaceReadwrite , - - --- ** fileReplaceReadwriteAsync - FileReplaceReadwriteAsyncMethodInfo , - fileReplaceReadwriteAsync , - - --- ** fileReplaceReadwriteFinish - FileReplaceReadwriteFinishMethodInfo , - fileReplaceReadwriteFinish , - - --- ** fileResolveRelativePath - FileResolveRelativePathMethodInfo , - fileResolveRelativePath , - - --- ** fileSetAttribute - FileSetAttributeMethodInfo , - fileSetAttribute , - - --- ** fileSetAttributeByteString - FileSetAttributeByteStringMethodInfo , - fileSetAttributeByteString , - - --- ** fileSetAttributeInt32 - FileSetAttributeInt32MethodInfo , - fileSetAttributeInt32 , - - --- ** fileSetAttributeInt64 - FileSetAttributeInt64MethodInfo , - fileSetAttributeInt64 , - - --- ** fileSetAttributeString - FileSetAttributeStringMethodInfo , - fileSetAttributeString , - - --- ** fileSetAttributeUint32 - FileSetAttributeUint32MethodInfo , - fileSetAttributeUint32 , - - --- ** fileSetAttributeUint64 - FileSetAttributeUint64MethodInfo , - fileSetAttributeUint64 , - - --- ** fileSetAttributesAsync - FileSetAttributesAsyncMethodInfo , - fileSetAttributesAsync , - - --- ** fileSetAttributesFinish - FileSetAttributesFinishMethodInfo , - fileSetAttributesFinish , - - --- ** fileSetAttributesFromInfo - FileSetAttributesFromInfoMethodInfo , - fileSetAttributesFromInfo , - - --- ** fileSetDisplayName - FileSetDisplayNameMethodInfo , - fileSetDisplayName , - - --- ** fileSetDisplayNameAsync - FileSetDisplayNameAsyncMethodInfo , - fileSetDisplayNameAsync , - - --- ** fileSetDisplayNameFinish - FileSetDisplayNameFinishMethodInfo , - fileSetDisplayNameFinish , - - --- ** fileStartMountable - FileStartMountableMethodInfo , - fileStartMountable , - - --- ** fileStartMountableFinish - FileStartMountableFinishMethodInfo , - fileStartMountableFinish , - - --- ** fileStopMountable - FileStopMountableMethodInfo , - fileStopMountable , - - --- ** fileStopMountableFinish - FileStopMountableFinishMethodInfo , - fileStopMountableFinish , - - --- ** fileSupportsThreadContexts - FileSupportsThreadContextsMethodInfo , - fileSupportsThreadContexts , - - --- ** fileTrash - FileTrashMethodInfo , - fileTrash , - - --- ** fileTrashAsync - FileTrashAsyncMethodInfo , - fileTrashAsync , - - --- ** fileTrashFinish - FileTrashFinishMethodInfo , - fileTrashFinish , - - --- ** fileUnmountMountable - FileUnmountMountableMethodInfo , - fileUnmountMountable , - - --- ** fileUnmountMountableFinish - FileUnmountMountableFinishMethodInfo , - fileUnmountMountableFinish , - - --- ** fileUnmountMountableWithOperation - FileUnmountMountableWithOperationMethodInfo, - fileUnmountMountableWithOperation , - - --- ** fileUnmountMountableWithOperationFinish - FileUnmountMountableWithOperationFinishMethodInfo, - fileUnmountMountableWithOperationFinish , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - --- interface File - -newtype File = File (ForeignPtr File) -noFile :: Maybe File -noFile = Nothing - -type family ResolveFileMethod (t :: Symbol) (o :: *) :: * where - ResolveFileMethod "appendTo" o = FileAppendToMethodInfo - ResolveFileMethod "appendToAsync" o = FileAppendToAsyncMethodInfo - ResolveFileMethod "appendToFinish" o = FileAppendToFinishMethodInfo - ResolveFileMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFileMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFileMethod "copy" o = FileCopyMethodInfo - ResolveFileMethod "copyAttributes" o = FileCopyAttributesMethodInfo - ResolveFileMethod "copyFinish" o = FileCopyFinishMethodInfo - ResolveFileMethod "create" o = FileCreateMethodInfo - ResolveFileMethod "createAsync" o = FileCreateAsyncMethodInfo - ResolveFileMethod "createFinish" o = FileCreateFinishMethodInfo - ResolveFileMethod "createReadwrite" o = FileCreateReadwriteMethodInfo - ResolveFileMethod "createReadwriteAsync" o = FileCreateReadwriteAsyncMethodInfo - ResolveFileMethod "createReadwriteFinish" o = FileCreateReadwriteFinishMethodInfo - ResolveFileMethod "delete" o = FileDeleteMethodInfo - ResolveFileMethod "deleteAsync" o = FileDeleteAsyncMethodInfo - ResolveFileMethod "deleteFinish" o = FileDeleteFinishMethodInfo - ResolveFileMethod "dup" o = FileDupMethodInfo - ResolveFileMethod "ejectMountable" o = FileEjectMountableMethodInfo - ResolveFileMethod "ejectMountableFinish" o = FileEjectMountableFinishMethodInfo - ResolveFileMethod "ejectMountableWithOperation" o = FileEjectMountableWithOperationMethodInfo - ResolveFileMethod "ejectMountableWithOperationFinish" o = FileEjectMountableWithOperationFinishMethodInfo - ResolveFileMethod "enumerateChildren" o = FileEnumerateChildrenMethodInfo - ResolveFileMethod "enumerateChildrenAsync" o = FileEnumerateChildrenAsyncMethodInfo - ResolveFileMethod "enumerateChildrenFinish" o = FileEnumerateChildrenFinishMethodInfo - ResolveFileMethod "equal" o = FileEqualMethodInfo - ResolveFileMethod "findEnclosingMount" o = FileFindEnclosingMountMethodInfo - ResolveFileMethod "findEnclosingMountAsync" o = FileFindEnclosingMountAsyncMethodInfo - ResolveFileMethod "findEnclosingMountFinish" o = FileFindEnclosingMountFinishMethodInfo - ResolveFileMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFileMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFileMethod "hasParent" o = FileHasParentMethodInfo - ResolveFileMethod "hasPrefix" o = FileHasPrefixMethodInfo - ResolveFileMethod "hasUriScheme" o = FileHasUriSchemeMethodInfo - ResolveFileMethod "hash" o = FileHashMethodInfo - ResolveFileMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFileMethod "isNative" o = FileIsNativeMethodInfo - ResolveFileMethod "loadContents" o = FileLoadContentsMethodInfo - ResolveFileMethod "loadContentsAsync" o = FileLoadContentsAsyncMethodInfo - ResolveFileMethod "loadContentsFinish" o = FileLoadContentsFinishMethodInfo - ResolveFileMethod "loadPartialContentsFinish" o = FileLoadPartialContentsFinishMethodInfo - ResolveFileMethod "makeDirectory" o = FileMakeDirectoryMethodInfo - ResolveFileMethod "makeDirectoryAsync" o = FileMakeDirectoryAsyncMethodInfo - ResolveFileMethod "makeDirectoryFinish" o = FileMakeDirectoryFinishMethodInfo - ResolveFileMethod "makeDirectoryWithParents" o = FileMakeDirectoryWithParentsMethodInfo - ResolveFileMethod "makeSymbolicLink" o = FileMakeSymbolicLinkMethodInfo - ResolveFileMethod "measureDiskUsageFinish" o = FileMeasureDiskUsageFinishMethodInfo - ResolveFileMethod "monitor" o = FileMonitorMethodInfo - ResolveFileMethod "monitorDirectory" o = FileMonitorDirectoryMethodInfo - ResolveFileMethod "monitorFile" o = FileMonitorFileMethodInfo - ResolveFileMethod "mountEnclosingVolume" o = FileMountEnclosingVolumeMethodInfo - ResolveFileMethod "mountEnclosingVolumeFinish" o = FileMountEnclosingVolumeFinishMethodInfo - ResolveFileMethod "mountMountable" o = FileMountMountableMethodInfo - ResolveFileMethod "mountMountableFinish" o = FileMountMountableFinishMethodInfo - ResolveFileMethod "move" o = FileMoveMethodInfo - ResolveFileMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFileMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFileMethod "openReadwrite" o = FileOpenReadwriteMethodInfo - ResolveFileMethod "openReadwriteAsync" o = FileOpenReadwriteAsyncMethodInfo - ResolveFileMethod "openReadwriteFinish" o = FileOpenReadwriteFinishMethodInfo - ResolveFileMethod "pollMountable" o = FilePollMountableMethodInfo - ResolveFileMethod "pollMountableFinish" o = FilePollMountableFinishMethodInfo - ResolveFileMethod "queryDefaultHandler" o = FileQueryDefaultHandlerMethodInfo - ResolveFileMethod "queryExists" o = FileQueryExistsMethodInfo - ResolveFileMethod "queryFileType" o = FileQueryFileTypeMethodInfo - ResolveFileMethod "queryFilesystemInfo" o = FileQueryFilesystemInfoMethodInfo - ResolveFileMethod "queryFilesystemInfoAsync" o = FileQueryFilesystemInfoAsyncMethodInfo - ResolveFileMethod "queryFilesystemInfoFinish" o = FileQueryFilesystemInfoFinishMethodInfo - ResolveFileMethod "queryInfo" o = FileQueryInfoMethodInfo - ResolveFileMethod "queryInfoAsync" o = FileQueryInfoAsyncMethodInfo - ResolveFileMethod "queryInfoFinish" o = FileQueryInfoFinishMethodInfo - ResolveFileMethod "querySettableAttributes" o = FileQuerySettableAttributesMethodInfo - ResolveFileMethod "queryWritableNamespaces" o = FileQueryWritableNamespacesMethodInfo - ResolveFileMethod "read" o = FileReadMethodInfo - ResolveFileMethod "readAsync" o = FileReadAsyncMethodInfo - ResolveFileMethod "readFinish" o = FileReadFinishMethodInfo - ResolveFileMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFileMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFileMethod "replace" o = FileReplaceMethodInfo - ResolveFileMethod "replaceAsync" o = FileReplaceAsyncMethodInfo - ResolveFileMethod "replaceContents" o = FileReplaceContentsMethodInfo - ResolveFileMethod "replaceContentsAsync" o = FileReplaceContentsAsyncMethodInfo - ResolveFileMethod "replaceContentsBytesAsync" o = FileReplaceContentsBytesAsyncMethodInfo - ResolveFileMethod "replaceContentsFinish" o = FileReplaceContentsFinishMethodInfo - ResolveFileMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFileMethod "replaceFinish" o = FileReplaceFinishMethodInfo - ResolveFileMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFileMethod "replaceReadwrite" o = FileReplaceReadwriteMethodInfo - ResolveFileMethod "replaceReadwriteAsync" o = FileReplaceReadwriteAsyncMethodInfo - ResolveFileMethod "replaceReadwriteFinish" o = FileReplaceReadwriteFinishMethodInfo - ResolveFileMethod "resolveRelativePath" o = FileResolveRelativePathMethodInfo - ResolveFileMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFileMethod "startMountable" o = FileStartMountableMethodInfo - ResolveFileMethod "startMountableFinish" o = FileStartMountableFinishMethodInfo - ResolveFileMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFileMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFileMethod "stopMountable" o = FileStopMountableMethodInfo - ResolveFileMethod "stopMountableFinish" o = FileStopMountableFinishMethodInfo - ResolveFileMethod "supportsThreadContexts" o = FileSupportsThreadContextsMethodInfo - ResolveFileMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFileMethod "trash" o = FileTrashMethodInfo - ResolveFileMethod "trashAsync" o = FileTrashAsyncMethodInfo - ResolveFileMethod "trashFinish" o = FileTrashFinishMethodInfo - ResolveFileMethod "unmountMountable" o = FileUnmountMountableMethodInfo - ResolveFileMethod "unmountMountableFinish" o = FileUnmountMountableFinishMethodInfo - ResolveFileMethod "unmountMountableWithOperation" o = FileUnmountMountableWithOperationMethodInfo - ResolveFileMethod "unmountMountableWithOperationFinish" o = FileUnmountMountableWithOperationFinishMethodInfo - ResolveFileMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFileMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFileMethod "getBasename" o = FileGetBasenameMethodInfo - ResolveFileMethod "getChild" o = FileGetChildMethodInfo - ResolveFileMethod "getChildForDisplayName" o = FileGetChildForDisplayNameMethodInfo - ResolveFileMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFileMethod "getParent" o = FileGetParentMethodInfo - ResolveFileMethod "getParseName" o = FileGetParseNameMethodInfo - ResolveFileMethod "getPath" o = FileGetPathMethodInfo - ResolveFileMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFileMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFileMethod "getRelativePath" o = FileGetRelativePathMethodInfo - ResolveFileMethod "getUri" o = FileGetUriMethodInfo - ResolveFileMethod "getUriScheme" o = FileGetUriSchemeMethodInfo - ResolveFileMethod "setAttribute" o = FileSetAttributeMethodInfo - ResolveFileMethod "setAttributeByteString" o = FileSetAttributeByteStringMethodInfo - ResolveFileMethod "setAttributeInt32" o = FileSetAttributeInt32MethodInfo - ResolveFileMethod "setAttributeInt64" o = FileSetAttributeInt64MethodInfo - ResolveFileMethod "setAttributeString" o = FileSetAttributeStringMethodInfo - ResolveFileMethod "setAttributeUint32" o = FileSetAttributeUint32MethodInfo - ResolveFileMethod "setAttributeUint64" o = FileSetAttributeUint64MethodInfo - ResolveFileMethod "setAttributesAsync" o = FileSetAttributesAsyncMethodInfo - ResolveFileMethod "setAttributesFinish" o = FileSetAttributesFinishMethodInfo - ResolveFileMethod "setAttributesFromInfo" o = FileSetAttributesFromInfoMethodInfo - ResolveFileMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFileMethod "setDisplayName" o = FileSetDisplayNameMethodInfo - ResolveFileMethod "setDisplayNameAsync" o = FileSetDisplayNameAsyncMethodInfo - ResolveFileMethod "setDisplayNameFinish" o = FileSetDisplayNameFinishMethodInfo - ResolveFileMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFileMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileMethod t File, MethodInfo info File p) => IsLabelProxy t (File -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileMethod t File, MethodInfo info File p) => IsLabel t (File -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList File = FileAttributeList -type FileAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList File = FileSignalList -type FileSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_file_get_type" - c_g_file_get_type :: IO GType - -type instance ParentTypes File = FileParentTypes -type FileParentTypes = '[GObject.Object] - -instance GObject File where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_file_get_type - - -class GObject o => FileK o -instance (GObject o, IsDescendantOf File o) => FileK o - -toFile :: FileK o => o -> IO File -toFile = unsafeCastTo File - --- method File::append_to --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", 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 : Just (TInterface "Gio" "FileOutputStream") --- throws : True --- Skip return : False - -foreign import ccall "g_file_append_to" g_file_append_to :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileOutputStream) - - -fileAppendTo :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> [FileCreateFlags] -- flags - -> Maybe (b) -- cancellable - -> m FileOutputStream -- result -fileAppendTo _obj flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_append_to _obj' flags' maybeCancellable - checkUnexpectedReturnNULL "g_file_append_to" result - result' <- (wrapObject FileOutputStream) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data FileAppendToMethodInfo -instance (signature ~ ([FileCreateFlags] -> Maybe (b) -> m FileOutputStream), MonadIO m, FileK a, CancellableK b) => MethodInfo FileAppendToMethodInfo a signature where - overloadedMethod _ = fileAppendTo - --- method File::append_to_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_append_to_async" g_file_append_to_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileAppendToAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> [FileCreateFlags] -- flags - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileAppendToAsync _obj flags ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - 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_file_append_to_async _obj' flags' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data FileAppendToAsyncMethodInfo -instance (signature ~ ([FileCreateFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileAppendToAsyncMethodInfo a signature where - overloadedMethod _ = fileAppendToAsync - --- method File::append_to_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileOutputStream") --- throws : True --- Skip return : False - -foreign import ccall "g_file_append_to_finish" g_file_append_to_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr FileOutputStream) - - -fileAppendToFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m FileOutputStream -- result -fileAppendToFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_file_append_to_finish _obj' res' - checkUnexpectedReturnNULL "g_file_append_to_finish" result - result' <- (wrapObject FileOutputStream) result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data FileAppendToFinishMethodInfo -instance (signature ~ (b -> m FileOutputStream), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileAppendToFinishMethodInfo a signature where - overloadedMethod _ = fileAppendToFinish - --- method File::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destination", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCopyFlags", 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 = "progress_callback", argType = TInterface "Gio" "FileProgressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress_callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_copy" g_file_copy :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr File -> -- destination : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "FileCopyFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr FileProgressCallbackC -> -- progress_callback : TInterface "Gio" "FileProgressCallback" - Ptr () -> -- progress_callback_data : TBasicType TPtr - Ptr (Ptr GError) -> -- error - IO CInt - - -fileCopy :: - (MonadIO m, FileK a, FileK b, CancellableK c) => - a -- _obj - -> b -- destination - -> [FileCopyFlags] -- flags - -> Maybe (c) -- cancellable - -> Maybe (FileProgressCallback) -- progressCallback - -> m () -- result -fileCopy _obj destination flags cancellable progressCallback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let destination' = unsafeManagedPtrCastPtr destination - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - maybeProgressCallback <- case progressCallback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jProgressCallback -> do - jProgressCallback' <- mkFileProgressCallback (fileProgressCallbackWrapper Nothing jProgressCallback) - return jProgressCallback' - let progressCallbackData = nullPtr - onException (do - _ <- propagateGError $ g_file_copy _obj' destination' flags' maybeCancellable maybeProgressCallback progressCallbackData - safeFreeFunPtr $ castFunPtrToPtr maybeProgressCallback - touchManagedPtr _obj - touchManagedPtr destination - whenJust cancellable touchManagedPtr - return () - ) (do - safeFreeFunPtr $ castFunPtrToPtr maybeProgressCallback - return () - ) - -data FileCopyMethodInfo -instance (signature ~ (b -> [FileCopyFlags] -> Maybe (c) -> Maybe (FileProgressCallback) -> m ()), MonadIO m, FileK a, FileK b, CancellableK c) => MethodInfo FileCopyMethodInfo a signature where - overloadedMethod _ = fileCopy - --- method File::copy_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destination", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCopyFlags", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_copy_attributes" g_file_copy_attributes :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr File -> -- destination : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "FileCopyFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileCopyAttributes :: - (MonadIO m, FileK a, FileK b, CancellableK c) => - a -- _obj - -> b -- destination - -> [FileCopyFlags] -- flags - -> Maybe (c) -- cancellable - -> m () -- result -fileCopyAttributes _obj destination flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let destination' = unsafeManagedPtrCastPtr destination - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_copy_attributes _obj' destination' flags' maybeCancellable - touchManagedPtr _obj - touchManagedPtr destination - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data FileCopyAttributesMethodInfo -instance (signature ~ (b -> [FileCopyFlags] -> Maybe (c) -> m ()), MonadIO m, FileK a, FileK b, CancellableK c) => MethodInfo FileCopyAttributesMethodInfo a signature where - overloadedMethod _ = fileCopyAttributes - --- method File::copy_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_copy_finish" g_file_copy_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileCopyFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m () -- result -fileCopyFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - _ <- propagateGError $ g_file_copy_finish _obj' res' - touchManagedPtr _obj - touchManagedPtr res - return () - ) (do - return () - ) - -data FileCopyFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileCopyFinishMethodInfo a signature where - overloadedMethod _ = fileCopyFinish - --- method File::create --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", 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 : Just (TInterface "Gio" "FileOutputStream") --- throws : True --- Skip return : False - -foreign import ccall "g_file_create" g_file_create :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileOutputStream) - - -fileCreate :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> [FileCreateFlags] -- flags - -> Maybe (b) -- cancellable - -> m FileOutputStream -- result -fileCreate _obj flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_create _obj' flags' maybeCancellable - checkUnexpectedReturnNULL "g_file_create" result - result' <- (wrapObject FileOutputStream) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data FileCreateMethodInfo -instance (signature ~ ([FileCreateFlags] -> Maybe (b) -> m FileOutputStream), MonadIO m, FileK a, CancellableK b) => MethodInfo FileCreateMethodInfo a signature where - overloadedMethod _ = fileCreate - --- method File::create_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_create_async" g_file_create_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileCreateAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> [FileCreateFlags] -- flags - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileCreateAsync _obj flags ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - 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_file_create_async _obj' flags' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data FileCreateAsyncMethodInfo -instance (signature ~ ([FileCreateFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileCreateAsyncMethodInfo a signature where - overloadedMethod _ = fileCreateAsync - --- method File::create_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileOutputStream") --- throws : True --- Skip return : False - -foreign import ccall "g_file_create_finish" g_file_create_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr FileOutputStream) - - -fileCreateFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m FileOutputStream -- result -fileCreateFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_file_create_finish _obj' res' - checkUnexpectedReturnNULL "g_file_create_finish" result - result' <- (wrapObject FileOutputStream) result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data FileCreateFinishMethodInfo -instance (signature ~ (b -> m FileOutputStream), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileCreateFinishMethodInfo a signature where - overloadedMethod _ = fileCreateFinish - --- method File::create_readwrite --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", 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 : Just (TInterface "Gio" "FileIOStream") --- throws : True --- Skip return : False - -foreign import ccall "g_file_create_readwrite" g_file_create_readwrite :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileIOStream) - - -fileCreateReadwrite :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> [FileCreateFlags] -- flags - -> Maybe (b) -- cancellable - -> m FileIOStream -- result -fileCreateReadwrite _obj flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_create_readwrite _obj' flags' maybeCancellable - checkUnexpectedReturnNULL "g_file_create_readwrite" result - result' <- (wrapObject FileIOStream) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data FileCreateReadwriteMethodInfo -instance (signature ~ ([FileCreateFlags] -> Maybe (b) -> m FileIOStream), MonadIO m, FileK a, CancellableK b) => MethodInfo FileCreateReadwriteMethodInfo a signature where - overloadedMethod _ = fileCreateReadwrite - --- method File::create_readwrite_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_create_readwrite_async" g_file_create_readwrite_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileCreateReadwriteAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> [FileCreateFlags] -- flags - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileCreateReadwriteAsync _obj flags ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - 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_file_create_readwrite_async _obj' flags' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data FileCreateReadwriteAsyncMethodInfo -instance (signature ~ ([FileCreateFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileCreateReadwriteAsyncMethodInfo a signature where - overloadedMethod _ = fileCreateReadwriteAsync - --- method File::create_readwrite_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileIOStream") --- throws : True --- Skip return : False - -foreign import ccall "g_file_create_readwrite_finish" g_file_create_readwrite_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr FileIOStream) - - -fileCreateReadwriteFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m FileIOStream -- result -fileCreateReadwriteFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_file_create_readwrite_finish _obj' res' - checkUnexpectedReturnNULL "g_file_create_readwrite_finish" result - result' <- (wrapObject FileIOStream) result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data FileCreateReadwriteFinishMethodInfo -instance (signature ~ (b -> m FileIOStream), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileCreateReadwriteFinishMethodInfo a signature where - overloadedMethod _ = fileCreateReadwriteFinish - --- method File::delete --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_delete" g_file_delete :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileDelete :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -fileDelete _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_delete _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data FileDeleteMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileDeleteMethodInfo a signature where - overloadedMethod _ = fileDelete - --- method File::delete_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_delete_async" g_file_delete_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileDeleteAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileDeleteAsync _obj ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_file_delete_async _obj' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data FileDeleteAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileDeleteAsyncMethodInfo a signature where - overloadedMethod _ = fileDeleteAsync - --- method File::delete_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_delete_finish" g_file_delete_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileDeleteFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -fileDeleteFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_file_delete_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data FileDeleteFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileDeleteFinishMethodInfo a signature where - overloadedMethod _ = fileDeleteFinish - --- method File::dup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_file_dup" g_file_dup :: - Ptr File -> -- _obj : TInterface "Gio" "File" - IO (Ptr File) - - -fileDup :: - (MonadIO m, FileK a) => - a -- _obj - -> m File -- result -fileDup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_dup _obj' - checkUnexpectedReturnNULL "g_file_dup" result - result' <- (wrapObject File) result - touchManagedPtr _obj - return result' - -data FileDupMethodInfo -instance (signature ~ (m File), MonadIO m, FileK a) => MethodInfo FileDupMethodInfo a signature where - overloadedMethod _ = fileDup - --- method File::eject_mountable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_eject_mountable" g_file_eject_mountable :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "MountUnmountFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - -{-# DEPRECATED fileEjectMountable ["(Since version 2.22)","Use g_file_eject_mountable_with_operation() instead."]#-} -fileEjectMountable :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> [MountUnmountFlags] -- flags - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileEjectMountable _obj flags cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - 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_file_eject_mountable _obj' flags' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data FileEjectMountableMethodInfo -instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileEjectMountableMethodInfo a signature where - overloadedMethod _ = fileEjectMountable - --- method File::eject_mountable_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_eject_mountable_finish" g_file_eject_mountable_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - -{-# DEPRECATED fileEjectMountableFinish ["(Since version 2.22)","Use g_file_eject_mountable_with_operation_finish()"," instead."]#-} -fileEjectMountableFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -fileEjectMountableFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_file_eject_mountable_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data FileEjectMountableFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileEjectMountableFinishMethodInfo a signature where - overloadedMethod _ = fileEjectMountableFinish - --- method File::eject_mountable_with_operation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_eject_mountable_with_operation" g_file_eject_mountable_with_operation :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "MountUnmountFlags" - Ptr MountOperation -> -- mount_operation : TInterface "Gio" "MountOperation" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileEjectMountableWithOperation :: - (MonadIO m, FileK a, MountOperationK b, CancellableK c) => - a -- _obj - -> [MountUnmountFlags] -- flags - -> Maybe (b) -- mountOperation - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileEjectMountableWithOperation _obj flags mountOperation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMountOperation <- case mountOperation of - Nothing -> return nullPtr - Just jMountOperation -> do - let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation - return jMountOperation' - 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_file_eject_mountable_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust mountOperation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data FileEjectMountableWithOperationMethodInfo -instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, MountOperationK b, CancellableK c) => MethodInfo FileEjectMountableWithOperationMethodInfo a signature where - overloadedMethod _ = fileEjectMountableWithOperation - --- method File::eject_mountable_with_operation_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_eject_mountable_with_operation_finish" g_file_eject_mountable_with_operation_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileEjectMountableWithOperationFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -fileEjectMountableWithOperationFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_file_eject_mountable_with_operation_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data FileEjectMountableWithOperationFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileEjectMountableWithOperationFinishMethodInfo a signature where - overloadedMethod _ = fileEjectMountableWithOperationFinish - --- method File::enumerate_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", 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 : Just (TInterface "Gio" "FileEnumerator") --- throws : True --- Skip return : False - -foreign import ccall "g_file_enumerate_children" g_file_enumerate_children :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- attributes : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "FileQueryInfoFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileEnumerator) - - -fileEnumerateChildren :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- attributes - -> [FileQueryInfoFlags] -- flags - -> Maybe (b) -- cancellable - -> m FileEnumerator -- result -fileEnumerateChildren _obj attributes flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attributes' <- textToCString attributes - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_enumerate_children _obj' attributes' flags' maybeCancellable - checkUnexpectedReturnNULL "g_file_enumerate_children" result - result' <- (wrapObject FileEnumerator) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attributes' - return result' - ) (do - freeMem attributes' - ) - -data FileEnumerateChildrenMethodInfo -instance (signature ~ (T.Text -> [FileQueryInfoFlags] -> Maybe (b) -> m FileEnumerator), MonadIO m, FileK a, CancellableK b) => MethodInfo FileEnumerateChildrenMethodInfo a signature where - overloadedMethod _ = fileEnumerateChildren - --- method File::enumerate_children_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_enumerate_children_async" g_file_enumerate_children_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- attributes : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "FileQueryInfoFlags" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileEnumerateChildrenAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- attributes - -> [FileQueryInfoFlags] -- flags - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileEnumerateChildrenAsync _obj attributes flags ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attributes' <- textToCString attributes - let flags' = gflagsToWord flags - 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_file_enumerate_children_async _obj' attributes' flags' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attributes' - return () - -data FileEnumerateChildrenAsyncMethodInfo -instance (signature ~ (T.Text -> [FileQueryInfoFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileEnumerateChildrenAsyncMethodInfo a signature where - overloadedMethod _ = fileEnumerateChildrenAsync - --- method File::enumerate_children_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileEnumerator") --- throws : True --- Skip return : False - -foreign import ccall "g_file_enumerate_children_finish" g_file_enumerate_children_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr FileEnumerator) - - -fileEnumerateChildrenFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m FileEnumerator -- result -fileEnumerateChildrenFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_file_enumerate_children_finish _obj' res' - checkUnexpectedReturnNULL "g_file_enumerate_children_finish" result - result' <- (wrapObject FileEnumerator) result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data FileEnumerateChildrenFinishMethodInfo -instance (signature ~ (b -> m FileEnumerator), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileEnumerateChildrenFinishMethodInfo a signature where - overloadedMethod _ = fileEnumerateChildrenFinish - --- method File::equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file2", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_equal" g_file_equal :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr File -> -- file2 : TInterface "Gio" "File" - IO CInt - - -fileEqual :: - (MonadIO m, FileK a, FileK b) => - a -- _obj - -> b -- file2 - -> m Bool -- result -fileEqual _obj file2 = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let file2' = unsafeManagedPtrCastPtr file2 - result <- g_file_equal _obj' file2' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr file2 - return result' - -data FileEqualMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, FileK a, FileK b) => MethodInfo FileEqualMethodInfo a signature where - overloadedMethod _ = fileEqual - --- method File::find_enclosing_mount --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", 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 : Just (TInterface "Gio" "Mount") --- throws : True --- Skip return : False - -foreign import ccall "g_file_find_enclosing_mount" g_file_find_enclosing_mount :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr Mount) - - -fileFindEnclosingMount :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m Mount -- result -fileFindEnclosingMount _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_find_enclosing_mount _obj' maybeCancellable - checkUnexpectedReturnNULL "g_file_find_enclosing_mount" result - result' <- (wrapObject Mount) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data FileFindEnclosingMountMethodInfo -instance (signature ~ (Maybe (b) -> m Mount), MonadIO m, FileK a, CancellableK b) => MethodInfo FileFindEnclosingMountMethodInfo a signature where - overloadedMethod _ = fileFindEnclosingMount - --- method File::find_enclosing_mount_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_find_enclosing_mount_async" g_file_find_enclosing_mount_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileFindEnclosingMountAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileFindEnclosingMountAsync _obj ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_file_find_enclosing_mount_async _obj' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data FileFindEnclosingMountAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileFindEnclosingMountAsyncMethodInfo a signature where - overloadedMethod _ = fileFindEnclosingMountAsync - --- method File::find_enclosing_mount_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Mount") --- throws : True --- Skip return : False - -foreign import ccall "g_file_find_enclosing_mount_finish" g_file_find_enclosing_mount_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr Mount) - - -fileFindEnclosingMountFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m Mount -- result -fileFindEnclosingMountFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_file_find_enclosing_mount_finish _obj' res' - checkUnexpectedReturnNULL "g_file_find_enclosing_mount_finish" result - result' <- (wrapObject Mount) result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data FileFindEnclosingMountFinishMethodInfo -instance (signature ~ (b -> m Mount), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileFindEnclosingMountFinishMethodInfo a signature where - overloadedMethod _ = fileFindEnclosingMountFinish - --- method File::get_basename --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_get_basename" g_file_get_basename :: - Ptr File -> -- _obj : TInterface "Gio" "File" - IO CString - - -fileGetBasename :: - (MonadIO m, FileK a) => - a -- _obj - -> m (Maybe T.Text) -- result -fileGetBasename _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_get_basename _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - return maybeResult - -data FileGetBasenameMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, FileK a) => MethodInfo FileGetBasenameMethodInfo a signature where - overloadedMethod _ = fileGetBasename - --- method File::get_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", 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}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_file_get_child" g_file_get_child :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- name : TBasicType TUTF8 - IO (Ptr File) - - -fileGetChild :: - (MonadIO m, FileK a) => - a -- _obj - -> T.Text -- name - -> m File -- result -fileGetChild _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - result <- g_file_get_child _obj' name' - checkUnexpectedReturnNULL "g_file_get_child" result - result' <- (wrapObject File) result - touchManagedPtr _obj - freeMem name' - return result' - -data FileGetChildMethodInfo -instance (signature ~ (T.Text -> m File), MonadIO m, FileK a) => MethodInfo FileGetChildMethodInfo a signature where - overloadedMethod _ = fileGetChild - --- method File::get_child_for_display_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : True --- Skip return : False - -foreign import ccall "g_file_get_child_for_display_name" g_file_get_child_for_display_name :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- display_name : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr File) - - -fileGetChildForDisplayName :: - (MonadIO m, FileK a) => - a -- _obj - -> T.Text -- displayName - -> m File -- result -fileGetChildForDisplayName _obj displayName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - displayName' <- textToCString displayName - onException (do - result <- propagateGError $ g_file_get_child_for_display_name _obj' displayName' - checkUnexpectedReturnNULL "g_file_get_child_for_display_name" result - result' <- (wrapObject File) result - touchManagedPtr _obj - freeMem displayName' - return result' - ) (do - freeMem displayName' - ) - -data FileGetChildForDisplayNameMethodInfo -instance (signature ~ (T.Text -> m File), MonadIO m, FileK a) => MethodInfo FileGetChildForDisplayNameMethodInfo a signature where - overloadedMethod _ = fileGetChildForDisplayName - --- method File::get_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_file_get_parent" g_file_get_parent :: - Ptr File -> -- _obj : TInterface "Gio" "File" - IO (Ptr File) - - -fileGetParent :: - (MonadIO m, FileK a) => - a -- _obj - -> m (Maybe File) -- result -fileGetParent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_get_parent _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject File) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data FileGetParentMethodInfo -instance (signature ~ (m (Maybe File)), MonadIO m, FileK a) => MethodInfo FileGetParentMethodInfo a signature where - overloadedMethod _ = fileGetParent - --- method File::get_parse_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_get_parse_name" g_file_get_parse_name :: - Ptr File -> -- _obj : TInterface "Gio" "File" - IO CString - - -fileGetParseName :: - (MonadIO m, FileK a) => - a -- _obj - -> m T.Text -- result -fileGetParseName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_get_parse_name _obj' - checkUnexpectedReturnNULL "g_file_get_parse_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FileGetParseNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileK a) => MethodInfo FileGetParseNameMethodInfo a signature where - overloadedMethod _ = fileGetParseName - --- method File::get_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_get_path" g_file_get_path :: - Ptr File -> -- _obj : TInterface "Gio" "File" - IO CString - - -fileGetPath :: - (MonadIO m, FileK a) => - a -- _obj - -> m (Maybe T.Text) -- result -fileGetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_get_path _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - return maybeResult - -data FileGetPathMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, FileK a) => MethodInfo FileGetPathMethodInfo a signature where - overloadedMethod _ = fileGetPath - --- method File::get_relative_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "descendant", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_get_relative_path" g_file_get_relative_path :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr File -> -- descendant : TInterface "Gio" "File" - IO CString - - -fileGetRelativePath :: - (MonadIO m, FileK a, FileK b) => - a -- _obj - -> b -- descendant - -> m (Maybe T.Text) -- result -fileGetRelativePath _obj descendant = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let descendant' = unsafeManagedPtrCastPtr descendant - result <- g_file_get_relative_path _obj' descendant' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - touchManagedPtr descendant - return maybeResult - -data FileGetRelativePathMethodInfo -instance (signature ~ (b -> m (Maybe T.Text)), MonadIO m, FileK a, FileK b) => MethodInfo FileGetRelativePathMethodInfo a signature where - overloadedMethod _ = fileGetRelativePath - --- method File::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_get_uri" g_file_get_uri :: - Ptr File -> -- _obj : TInterface "Gio" "File" - IO CString - - -fileGetUri :: - (MonadIO m, FileK a) => - a -- _obj - -> m T.Text -- result -fileGetUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_get_uri _obj' - checkUnexpectedReturnNULL "g_file_get_uri" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FileGetUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileK a) => MethodInfo FileGetUriMethodInfo a signature where - overloadedMethod _ = fileGetUri - --- method File::get_uri_scheme --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_get_uri_scheme" g_file_get_uri_scheme :: - Ptr File -> -- _obj : TInterface "Gio" "File" - IO CString - - -fileGetUriScheme :: - (MonadIO m, FileK a) => - a -- _obj - -> m T.Text -- result -fileGetUriScheme _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_get_uri_scheme _obj' - checkUnexpectedReturnNULL "g_file_get_uri_scheme" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FileGetUriSchemeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileK a) => MethodInfo FileGetUriSchemeMethodInfo a signature where - overloadedMethod _ = fileGetUriScheme - --- method File::has_parent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_has_parent" g_file_has_parent :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr File -> -- parent : TInterface "Gio" "File" - IO CInt - - -fileHasParent :: - (MonadIO m, FileK a, FileK b) => - a -- _obj - -> Maybe (b) -- parent - -> m Bool -- result -fileHasParent _obj parent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrCastPtr jParent - return jParent' - result <- g_file_has_parent _obj' maybeParent - let result' = (/= 0) result - touchManagedPtr _obj - whenJust parent touchManagedPtr - return result' - -data FileHasParentMethodInfo -instance (signature ~ (Maybe (b) -> m Bool), MonadIO m, FileK a, FileK b) => MethodInfo FileHasParentMethodInfo a signature where - overloadedMethod _ = fileHasParent - --- method File::has_prefix --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "prefix", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_has_prefix" g_file_has_prefix :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr File -> -- prefix : TInterface "Gio" "File" - IO CInt - - -fileHasPrefix :: - (MonadIO m, FileK a, FileK b) => - a -- _obj - -> b -- prefix - -> m Bool -- result -fileHasPrefix _obj prefix = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let prefix' = unsafeManagedPtrCastPtr prefix - result <- g_file_has_prefix _obj' prefix' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr prefix - return result' - -data FileHasPrefixMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, FileK a, FileK b) => MethodInfo FileHasPrefixMethodInfo a signature where - overloadedMethod _ = fileHasPrefix - --- method File::has_uri_scheme --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_has_uri_scheme" g_file_has_uri_scheme :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- uri_scheme : TBasicType TUTF8 - IO CInt - - -fileHasUriScheme :: - (MonadIO m, FileK a) => - a -- _obj - -> T.Text -- uriScheme - -> m Bool -- result -fileHasUriScheme _obj uriScheme = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uriScheme' <- textToCString uriScheme - result <- g_file_has_uri_scheme _obj' uriScheme' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem uriScheme' - return result' - -data FileHasUriSchemeMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, FileK a) => MethodInfo FileHasUriSchemeMethodInfo a signature where - overloadedMethod _ = fileHasUriScheme - --- method File::hash --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_file_hash" g_file_hash :: - Ptr File -> -- _obj : TInterface "Gio" "File" - IO Word32 - - -fileHash :: - (MonadIO m, FileK a) => - a -- _obj - -> m Word32 -- result -fileHash _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_hash _obj' - touchManagedPtr _obj - return result - -data FileHashMethodInfo -instance (signature ~ (m Word32), MonadIO m, FileK a) => MethodInfo FileHashMethodInfo a signature where - overloadedMethod _ = fileHash - --- method File::is_native --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_is_native" g_file_is_native :: - Ptr File -> -- _obj : TInterface "Gio" "File" - IO CInt - - -fileIsNative :: - (MonadIO m, FileK a) => - a -- _obj - -> m Bool -- result -fileIsNative _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_is_native _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileIsNativeMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileK a) => MethodInfo FileIsNativeMethodInfo a signature where - overloadedMethod _ = fileIsNative - --- method File::load_contents --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", 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 = "contents", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "etag_out", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_load_contents" g_file_load_contents :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr Word8) -> -- contents : TCArray False (-1) 3 (TBasicType TUInt8) - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr CString -> -- etag_out : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -fileLoadContents :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m (ByteString,T.Text) -- result -fileLoadContents _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - contents <- allocMem :: IO (Ptr (Ptr Word8)) - length_ <- allocMem :: IO (Ptr Word64) - etagOut <- allocMem :: IO (Ptr CString) - onException (do - _ <- propagateGError $ g_file_load_contents _obj' maybeCancellable contents length_ etagOut - length_' <- peek length_ - contents' <- peek contents - contents'' <- (unpackByteStringWithLength length_') contents' - freeMem contents' - etagOut' <- peek etagOut - etagOut'' <- cstringToText etagOut' - freeMem etagOut' - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem contents - freeMem length_ - freeMem etagOut - return (contents'', etagOut'') - ) (do - freeMem contents - freeMem length_ - freeMem etagOut - ) - -data FileLoadContentsMethodInfo -instance (signature ~ (Maybe (b) -> m (ByteString,T.Text)), MonadIO m, FileK a, CancellableK b) => MethodInfo FileLoadContentsMethodInfo a signature where - overloadedMethod _ = fileLoadContents - --- method File::load_contents_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_load_contents_async" g_file_load_contents_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileLoadContentsAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileLoadContentsAsync _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_file_load_contents_async _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data FileLoadContentsAsyncMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileLoadContentsAsyncMethodInfo a signature where - overloadedMethod _ = fileLoadContentsAsync - --- method File::load_contents_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "etag_out", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_load_contents_finish" g_file_load_contents_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr Word8) -> -- contents : TCArray False (-1) 3 (TBasicType TUInt8) - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr CString -> -- etag_out : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -fileLoadContentsFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m (ByteString,T.Text) -- result -fileLoadContentsFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - contents <- allocMem :: IO (Ptr (Ptr Word8)) - length_ <- allocMem :: IO (Ptr Word64) - etagOut <- allocMem :: IO (Ptr CString) - onException (do - _ <- propagateGError $ g_file_load_contents_finish _obj' res' contents length_ etagOut - length_' <- peek length_ - contents' <- peek contents - contents'' <- (unpackByteStringWithLength length_') contents' - freeMem contents' - etagOut' <- peek etagOut - etagOut'' <- cstringToText etagOut' - freeMem etagOut' - touchManagedPtr _obj - touchManagedPtr res - freeMem contents - freeMem length_ - freeMem etagOut - return (contents'', etagOut'') - ) (do - freeMem contents - freeMem length_ - freeMem etagOut - ) - -data FileLoadContentsFinishMethodInfo -instance (signature ~ (b -> m (ByteString,T.Text)), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileLoadContentsFinishMethodInfo a signature where - overloadedMethod _ = fileLoadContentsFinish - --- method File::load_partial_contents_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "etag_out", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_load_partial_contents_finish" g_file_load_partial_contents_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr Word8) -> -- contents : TCArray False (-1) 3 (TBasicType TUInt8) - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr CString -> -- etag_out : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -fileLoadPartialContentsFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m (ByteString,T.Text) -- result -fileLoadPartialContentsFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - contents <- allocMem :: IO (Ptr (Ptr Word8)) - length_ <- allocMem :: IO (Ptr Word64) - etagOut <- allocMem :: IO (Ptr CString) - onException (do - _ <- propagateGError $ g_file_load_partial_contents_finish _obj' res' contents length_ etagOut - length_' <- peek length_ - contents' <- peek contents - contents'' <- (unpackByteStringWithLength length_') contents' - freeMem contents' - etagOut' <- peek etagOut - etagOut'' <- cstringToText etagOut' - freeMem etagOut' - touchManagedPtr _obj - touchManagedPtr res - freeMem contents - freeMem length_ - freeMem etagOut - return (contents'', etagOut'') - ) (do - freeMem contents - freeMem length_ - freeMem etagOut - ) - -data FileLoadPartialContentsFinishMethodInfo -instance (signature ~ (b -> m (ByteString,T.Text)), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileLoadPartialContentsFinishMethodInfo a signature where - overloadedMethod _ = fileLoadPartialContentsFinish - --- method File::make_directory --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_make_directory" g_file_make_directory :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileMakeDirectory :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -fileMakeDirectory _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_make_directory _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data FileMakeDirectoryMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileMakeDirectoryMethodInfo a signature where - overloadedMethod _ = fileMakeDirectory - --- method File::make_directory_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_make_directory_async" g_file_make_directory_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileMakeDirectoryAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileMakeDirectoryAsync _obj ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_file_make_directory_async _obj' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data FileMakeDirectoryAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileMakeDirectoryAsyncMethodInfo a signature where - overloadedMethod _ = fileMakeDirectoryAsync - --- method File::make_directory_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_make_directory_finish" g_file_make_directory_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileMakeDirectoryFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -fileMakeDirectoryFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_file_make_directory_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data FileMakeDirectoryFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileMakeDirectoryFinishMethodInfo a signature where - overloadedMethod _ = fileMakeDirectoryFinish - --- method File::make_directory_with_parents --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_make_directory_with_parents" g_file_make_directory_with_parents :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileMakeDirectoryWithParents :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -fileMakeDirectoryWithParents _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_make_directory_with_parents _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data FileMakeDirectoryWithParentsMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileMakeDirectoryWithParentsMethodInfo a signature where - overloadedMethod _ = fileMakeDirectoryWithParents - --- method File::make_symbolic_link --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "symlink_value", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_make_symbolic_link" g_file_make_symbolic_link :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- symlink_value : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileMakeSymbolicLink :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- symlinkValue - -> Maybe (b) -- cancellable - -> m () -- result -fileMakeSymbolicLink _obj symlinkValue cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - symlinkValue' <- textToCString symlinkValue - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_make_symbolic_link _obj' symlinkValue' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem symlinkValue' - return () - ) (do - freeMem symlinkValue' - ) - -data FileMakeSymbolicLinkMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileMakeSymbolicLinkMethodInfo a signature where - overloadedMethod _ = fileMakeSymbolicLink - --- method File::measure_disk_usage_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "disk_usage", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "num_dirs", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "num_files", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_measure_disk_usage_finish" g_file_measure_disk_usage_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr Word64 -> -- disk_usage : TBasicType TUInt64 - Ptr Word64 -> -- num_dirs : TBasicType TUInt64 - Ptr Word64 -> -- num_files : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CInt - - -fileMeasureDiskUsageFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m (Word64,Word64,Word64) -- result -fileMeasureDiskUsageFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - diskUsage <- allocMem :: IO (Ptr Word64) - numDirs <- allocMem :: IO (Ptr Word64) - numFiles <- allocMem :: IO (Ptr Word64) - onException (do - _ <- propagateGError $ g_file_measure_disk_usage_finish _obj' result_' diskUsage numDirs numFiles - diskUsage' <- peek diskUsage - numDirs' <- peek numDirs - numFiles' <- peek numFiles - touchManagedPtr _obj - touchManagedPtr result_ - freeMem diskUsage - freeMem numDirs - freeMem numFiles - return (diskUsage', numDirs', numFiles') - ) (do - freeMem diskUsage - freeMem numDirs - freeMem numFiles - ) - -data FileMeasureDiskUsageFinishMethodInfo -instance (signature ~ (b -> m (Word64,Word64,Word64)), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileMeasureDiskUsageFinishMethodInfo a signature where - overloadedMethod _ = fileMeasureDiskUsageFinish - --- method File::monitor --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileMonitorFlags", 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 : Just (TInterface "Gio" "FileMonitor") --- throws : True --- Skip return : False - -foreign import ccall "g_file_monitor" g_file_monitor :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "FileMonitorFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileMonitor) - - -fileMonitor :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> [FileMonitorFlags] -- flags - -> Maybe (b) -- cancellable - -> m FileMonitor -- result -fileMonitor _obj flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_monitor _obj' flags' maybeCancellable - checkUnexpectedReturnNULL "g_file_monitor" result - result' <- (wrapObject FileMonitor) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data FileMonitorMethodInfo -instance (signature ~ ([FileMonitorFlags] -> Maybe (b) -> m FileMonitor), MonadIO m, FileK a, CancellableK b) => MethodInfo FileMonitorMethodInfo a signature where - overloadedMethod _ = fileMonitor - --- method File::monitor_directory --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileMonitorFlags", 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 : Just (TInterface "Gio" "FileMonitor") --- throws : True --- Skip return : False - -foreign import ccall "g_file_monitor_directory" g_file_monitor_directory :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "FileMonitorFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileMonitor) - - -fileMonitorDirectory :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> [FileMonitorFlags] -- flags - -> Maybe (b) -- cancellable - -> m FileMonitor -- result -fileMonitorDirectory _obj flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_monitor_directory _obj' flags' maybeCancellable - checkUnexpectedReturnNULL "g_file_monitor_directory" result - result' <- (wrapObject FileMonitor) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data FileMonitorDirectoryMethodInfo -instance (signature ~ ([FileMonitorFlags] -> Maybe (b) -> m FileMonitor), MonadIO m, FileK a, CancellableK b) => MethodInfo FileMonitorDirectoryMethodInfo a signature where - overloadedMethod _ = fileMonitorDirectory - --- method File::monitor_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileMonitorFlags", 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 : Just (TInterface "Gio" "FileMonitor") --- throws : True --- Skip return : False - -foreign import ccall "g_file_monitor_file" g_file_monitor_file :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "FileMonitorFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileMonitor) - - -fileMonitorFile :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> [FileMonitorFlags] -- flags - -> Maybe (b) -- cancellable - -> m FileMonitor -- result -fileMonitorFile _obj flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_monitor_file _obj' flags' maybeCancellable - checkUnexpectedReturnNULL "g_file_monitor_file" result - result' <- (wrapObject FileMonitor) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data FileMonitorFileMethodInfo -instance (signature ~ ([FileMonitorFlags] -> Maybe (b) -> m FileMonitor), MonadIO m, FileK a, CancellableK b) => MethodInfo FileMonitorFileMethodInfo a signature where - overloadedMethod _ = fileMonitorFile - --- method File::mount_enclosing_volume --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_mount_enclosing_volume" g_file_mount_enclosing_volume :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "MountMountFlags" - Ptr MountOperation -> -- mount_operation : TInterface "Gio" "MountOperation" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileMountEnclosingVolume :: - (MonadIO m, FileK a, MountOperationK b, CancellableK c) => - a -- _obj - -> [MountMountFlags] -- flags - -> Maybe (b) -- mountOperation - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileMountEnclosingVolume _obj flags mountOperation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMountOperation <- case mountOperation of - Nothing -> return nullPtr - Just jMountOperation -> do - let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation - return jMountOperation' - 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_file_mount_enclosing_volume _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust mountOperation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data FileMountEnclosingVolumeMethodInfo -instance (signature ~ ([MountMountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, MountOperationK b, CancellableK c) => MethodInfo FileMountEnclosingVolumeMethodInfo a signature where - overloadedMethod _ = fileMountEnclosingVolume - --- method File::mount_enclosing_volume_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_mount_enclosing_volume_finish" g_file_mount_enclosing_volume_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileMountEnclosingVolumeFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -fileMountEnclosingVolumeFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_file_mount_enclosing_volume_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data FileMountEnclosingVolumeFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileMountEnclosingVolumeFinishMethodInfo a signature where - overloadedMethod _ = fileMountEnclosingVolumeFinish - --- method File::mount_mountable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_mount_mountable" g_file_mount_mountable :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "MountMountFlags" - Ptr MountOperation -> -- mount_operation : TInterface "Gio" "MountOperation" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileMountMountable :: - (MonadIO m, FileK a, MountOperationK b, CancellableK c) => - a -- _obj - -> [MountMountFlags] -- flags - -> Maybe (b) -- mountOperation - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileMountMountable _obj flags mountOperation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMountOperation <- case mountOperation of - Nothing -> return nullPtr - Just jMountOperation -> do - let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation - return jMountOperation' - 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_file_mount_mountable _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust mountOperation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data FileMountMountableMethodInfo -instance (signature ~ ([MountMountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, MountOperationK b, CancellableK c) => MethodInfo FileMountMountableMethodInfo a signature where - overloadedMethod _ = fileMountMountable - --- method File::mount_mountable_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : True --- Skip return : False - -foreign import ccall "g_file_mount_mountable_finish" g_file_mount_mountable_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr File) - - -fileMountMountableFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m File -- result -fileMountMountableFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_file_mount_mountable_finish _obj' result_' - checkUnexpectedReturnNULL "g_file_mount_mountable_finish" result - result' <- (wrapObject File) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data FileMountMountableFinishMethodInfo -instance (signature ~ (b -> m File), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileMountMountableFinishMethodInfo a signature where - overloadedMethod _ = fileMountMountableFinish - --- method File::move --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destination", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCopyFlags", 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 = "progress_callback", argType = TInterface "Gio" "FileProgressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress_callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_move" g_file_move :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr File -> -- destination : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "FileCopyFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr FileProgressCallbackC -> -- progress_callback : TInterface "Gio" "FileProgressCallback" - Ptr () -> -- progress_callback_data : TBasicType TPtr - Ptr (Ptr GError) -> -- error - IO CInt - - -fileMove :: - (MonadIO m, FileK a, FileK b, CancellableK c) => - a -- _obj - -> b -- destination - -> [FileCopyFlags] -- flags - -> Maybe (c) -- cancellable - -> Maybe (FileProgressCallback) -- progressCallback - -> m () -- result -fileMove _obj destination flags cancellable progressCallback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let destination' = unsafeManagedPtrCastPtr destination - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - maybeProgressCallback <- case progressCallback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jProgressCallback -> do - jProgressCallback' <- mkFileProgressCallback (fileProgressCallbackWrapper Nothing jProgressCallback) - return jProgressCallback' - let progressCallbackData = nullPtr - onException (do - _ <- propagateGError $ g_file_move _obj' destination' flags' maybeCancellable maybeProgressCallback progressCallbackData - safeFreeFunPtr $ castFunPtrToPtr maybeProgressCallback - touchManagedPtr _obj - touchManagedPtr destination - whenJust cancellable touchManagedPtr - return () - ) (do - safeFreeFunPtr $ castFunPtrToPtr maybeProgressCallback - return () - ) - -data FileMoveMethodInfo -instance (signature ~ (b -> [FileCopyFlags] -> Maybe (c) -> Maybe (FileProgressCallback) -> m ()), MonadIO m, FileK a, FileK b, CancellableK c) => MethodInfo FileMoveMethodInfo a signature where - overloadedMethod _ = fileMove - --- method File::open_readwrite --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", 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 : Just (TInterface "Gio" "FileIOStream") --- throws : True --- Skip return : False - -foreign import ccall "g_file_open_readwrite" g_file_open_readwrite :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileIOStream) - - -fileOpenReadwrite :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m FileIOStream -- result -fileOpenReadwrite _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_open_readwrite _obj' maybeCancellable - checkUnexpectedReturnNULL "g_file_open_readwrite" result - result' <- (wrapObject FileIOStream) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data FileOpenReadwriteMethodInfo -instance (signature ~ (Maybe (b) -> m FileIOStream), MonadIO m, FileK a, CancellableK b) => MethodInfo FileOpenReadwriteMethodInfo a signature where - overloadedMethod _ = fileOpenReadwrite - --- method File::open_readwrite_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_open_readwrite_async" g_file_open_readwrite_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileOpenReadwriteAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileOpenReadwriteAsync _obj ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_file_open_readwrite_async _obj' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data FileOpenReadwriteAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileOpenReadwriteAsyncMethodInfo a signature where - overloadedMethod _ = fileOpenReadwriteAsync - --- method File::open_readwrite_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileIOStream") --- throws : True --- Skip return : False - -foreign import ccall "g_file_open_readwrite_finish" g_file_open_readwrite_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr FileIOStream) - - -fileOpenReadwriteFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m FileIOStream -- result -fileOpenReadwriteFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_file_open_readwrite_finish _obj' res' - checkUnexpectedReturnNULL "g_file_open_readwrite_finish" result - result' <- (wrapObject FileIOStream) result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data FileOpenReadwriteFinishMethodInfo -instance (signature ~ (b -> m FileIOStream), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileOpenReadwriteFinishMethodInfo a signature where - overloadedMethod _ = fileOpenReadwriteFinish - --- method File::poll_mountable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_poll_mountable" g_file_poll_mountable :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -filePollMountable :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -filePollMountable _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_file_poll_mountable _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data FilePollMountableMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FilePollMountableMethodInfo a signature where - overloadedMethod _ = filePollMountable - --- method File::poll_mountable_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_poll_mountable_finish" g_file_poll_mountable_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -filePollMountableFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -filePollMountableFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_file_poll_mountable_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data FilePollMountableFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FilePollMountableFinishMethodInfo a signature where - overloadedMethod _ = filePollMountableFinish - --- method File::query_default_handler --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", 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 : Just (TInterface "Gio" "AppInfo") --- throws : True --- Skip return : False - -foreign import ccall "g_file_query_default_handler" g_file_query_default_handler :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr AppInfo) - - -fileQueryDefaultHandler :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m AppInfo -- result -fileQueryDefaultHandler _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_query_default_handler _obj' maybeCancellable - checkUnexpectedReturnNULL "g_file_query_default_handler" result - result' <- (wrapObject AppInfo) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data FileQueryDefaultHandlerMethodInfo -instance (signature ~ (Maybe (b) -> m AppInfo), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryDefaultHandlerMethodInfo a signature where - overloadedMethod _ = fileQueryDefaultHandler - --- method File::query_exists --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", 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 : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_query_exists" g_file_query_exists :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - IO CInt - - -fileQueryExists :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m Bool -- result -fileQueryExists _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - result <- g_file_query_exists _obj' maybeCancellable - let result' = (/= 0) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - -data FileQueryExistsMethodInfo -instance (signature ~ (Maybe (b) -> m Bool), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryExistsMethodInfo a signature where - overloadedMethod _ = fileQueryExists - --- method File::query_file_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", 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 : Just (TInterface "Gio" "FileType") --- throws : False --- Skip return : False - -foreign import ccall "g_file_query_file_type" g_file_query_file_type :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "FileQueryInfoFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - IO CUInt - - -fileQueryFileType :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> [FileQueryInfoFlags] -- flags - -> Maybe (b) -- cancellable - -> m FileType -- result -fileQueryFileType _obj flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - result <- g_file_query_file_type _obj' flags' maybeCancellable - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - -data FileQueryFileTypeMethodInfo -instance (signature ~ ([FileQueryInfoFlags] -> Maybe (b) -> m FileType), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryFileTypeMethodInfo a signature where - overloadedMethod _ = fileQueryFileType - --- method File::query_filesystem_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", 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 : Just (TInterface "Gio" "FileInfo") --- throws : True --- Skip return : False - -foreign import ccall "g_file_query_filesystem_info" g_file_query_filesystem_info :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- attributes : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileInfo) - - -fileQueryFilesystemInfo :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- attributes - -> Maybe (b) -- cancellable - -> m FileInfo -- result -fileQueryFilesystemInfo _obj attributes cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attributes' <- textToCString attributes - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_query_filesystem_info _obj' attributes' maybeCancellable - checkUnexpectedReturnNULL "g_file_query_filesystem_info" result - result' <- (wrapObject FileInfo) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attributes' - return result' - ) (do - freeMem attributes' - ) - -data FileQueryFilesystemInfoMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> m FileInfo), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryFilesystemInfoMethodInfo a signature where - overloadedMethod _ = fileQueryFilesystemInfo - --- method File::query_filesystem_info_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_query_filesystem_info_async" g_file_query_filesystem_info_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- attributes : TBasicType TUTF8 - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileQueryFilesystemInfoAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- attributes - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileQueryFilesystemInfoAsync _obj attributes ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attributes' <- textToCString attributes - 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_file_query_filesystem_info_async _obj' attributes' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attributes' - return () - -data FileQueryFilesystemInfoAsyncMethodInfo -instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryFilesystemInfoAsyncMethodInfo a signature where - overloadedMethod _ = fileQueryFilesystemInfoAsync - --- method File::query_filesystem_info_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileInfo") --- throws : True --- Skip return : False - -foreign import ccall "g_file_query_filesystem_info_finish" g_file_query_filesystem_info_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr FileInfo) - - -fileQueryFilesystemInfoFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m FileInfo -- result -fileQueryFilesystemInfoFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_file_query_filesystem_info_finish _obj' res' - checkUnexpectedReturnNULL "g_file_query_filesystem_info_finish" result - result' <- (wrapObject FileInfo) result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data FileQueryFilesystemInfoFinishMethodInfo -instance (signature ~ (b -> m FileInfo), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileQueryFilesystemInfoFinishMethodInfo a signature where - overloadedMethod _ = fileQueryFilesystemInfoFinish - --- method File::query_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", 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 : Just (TInterface "Gio" "FileInfo") --- throws : True --- Skip return : False - -foreign import ccall "g_file_query_info" g_file_query_info :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- attributes : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "FileQueryInfoFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileInfo) - - -fileQueryInfo :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- attributes - -> [FileQueryInfoFlags] -- flags - -> Maybe (b) -- cancellable - -> m FileInfo -- result -fileQueryInfo _obj attributes flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attributes' <- textToCString attributes - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_query_info _obj' attributes' flags' maybeCancellable - checkUnexpectedReturnNULL "g_file_query_info" result - result' <- (wrapObject FileInfo) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attributes' - return result' - ) (do - freeMem attributes' - ) - -data FileQueryInfoMethodInfo -instance (signature ~ (T.Text -> [FileQueryInfoFlags] -> Maybe (b) -> m FileInfo), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryInfoMethodInfo a signature where - overloadedMethod _ = fileQueryInfo - --- method File::query_info_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_query_info_async" g_file_query_info_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- attributes : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "FileQueryInfoFlags" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileQueryInfoAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- attributes - -> [FileQueryInfoFlags] -- flags - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileQueryInfoAsync _obj attributes flags ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attributes' <- textToCString attributes - let flags' = gflagsToWord flags - 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_file_query_info_async _obj' attributes' flags' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attributes' - return () - -data FileQueryInfoAsyncMethodInfo -instance (signature ~ (T.Text -> [FileQueryInfoFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryInfoAsyncMethodInfo a signature where - overloadedMethod _ = fileQueryInfoAsync - --- method File::query_info_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileInfo") --- throws : True --- Skip return : False - -foreign import ccall "g_file_query_info_finish" g_file_query_info_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr FileInfo) - - -fileQueryInfoFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m FileInfo -- result -fileQueryInfoFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_file_query_info_finish _obj' res' - checkUnexpectedReturnNULL "g_file_query_info_finish" result - result' <- (wrapObject FileInfo) result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data FileQueryInfoFinishMethodInfo -instance (signature ~ (b -> m FileInfo), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileQueryInfoFinishMethodInfo a signature where - overloadedMethod _ = fileQueryInfoFinish - --- method File::query_settable_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", 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 : Just (TInterface "Gio" "FileAttributeInfoList") --- throws : True --- Skip return : False - -foreign import ccall "g_file_query_settable_attributes" g_file_query_settable_attributes :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileAttributeInfoList) - - -fileQuerySettableAttributes :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m FileAttributeInfoList -- result -fileQuerySettableAttributes _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_query_settable_attributes _obj' maybeCancellable - checkUnexpectedReturnNULL "g_file_query_settable_attributes" result - result' <- (wrapBoxed FileAttributeInfoList) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data FileQuerySettableAttributesMethodInfo -instance (signature ~ (Maybe (b) -> m FileAttributeInfoList), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQuerySettableAttributesMethodInfo a signature where - overloadedMethod _ = fileQuerySettableAttributes - --- method File::query_writable_namespaces --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", 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 : Just (TInterface "Gio" "FileAttributeInfoList") --- throws : True --- Skip return : False - -foreign import ccall "g_file_query_writable_namespaces" g_file_query_writable_namespaces :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileAttributeInfoList) - - -fileQueryWritableNamespaces :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m FileAttributeInfoList -- result -fileQueryWritableNamespaces _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_query_writable_namespaces _obj' maybeCancellable - checkUnexpectedReturnNULL "g_file_query_writable_namespaces" result - result' <- (wrapBoxed FileAttributeInfoList) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data FileQueryWritableNamespacesMethodInfo -instance (signature ~ (Maybe (b) -> m FileAttributeInfoList), MonadIO m, FileK a, CancellableK b) => MethodInfo FileQueryWritableNamespacesMethodInfo a signature where - overloadedMethod _ = fileQueryWritableNamespaces - --- method File::read --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", 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 : Just (TInterface "Gio" "FileInputStream") --- throws : True --- Skip return : False - -foreign import ccall "g_file_read" g_file_read :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileInputStream) - - -fileRead :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m FileInputStream -- result -fileRead _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_read _obj' maybeCancellable - checkUnexpectedReturnNULL "g_file_read" result - result' <- (wrapObject FileInputStream) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data FileReadMethodInfo -instance (signature ~ (Maybe (b) -> m FileInputStream), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReadMethodInfo a signature where - overloadedMethod _ = fileRead - --- method File::read_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_read_async" g_file_read_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileReadAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileReadAsync _obj ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_file_read_async _obj' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data FileReadAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReadAsyncMethodInfo a signature where - overloadedMethod _ = fileReadAsync - --- method File::read_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileInputStream") --- throws : True --- Skip return : False - -foreign import ccall "g_file_read_finish" g_file_read_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr FileInputStream) - - -fileReadFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m FileInputStream -- result -fileReadFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_file_read_finish _obj' res' - checkUnexpectedReturnNULL "g_file_read_finish" result - result' <- (wrapObject FileInputStream) result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data FileReadFinishMethodInfo -instance (signature ~ (b -> m FileInputStream), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileReadFinishMethodInfo a signature where - overloadedMethod _ = fileReadFinish - --- method File::replace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", 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 : Just (TInterface "Gio" "FileOutputStream") --- throws : True --- Skip return : False - -foreign import ccall "g_file_replace" g_file_replace :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- etag : TBasicType TUTF8 - CInt -> -- make_backup : TBasicType TBoolean - CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileOutputStream) - - -fileReplace :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (T.Text) -- etag - -> Bool -- makeBackup - -> [FileCreateFlags] -- flags - -> Maybe (b) -- cancellable - -> m FileOutputStream -- result -fileReplace _obj etag makeBackup flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeEtag <- case etag of - Nothing -> return nullPtr - Just jEtag -> do - jEtag' <- textToCString jEtag - return jEtag' - let makeBackup' = (fromIntegral . fromEnum) makeBackup - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_replace _obj' maybeEtag makeBackup' flags' maybeCancellable - checkUnexpectedReturnNULL "g_file_replace" result - result' <- (wrapObject FileOutputStream) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem maybeEtag - return result' - ) (do - freeMem maybeEtag - ) - -data FileReplaceMethodInfo -instance (signature ~ (Maybe (T.Text) -> Bool -> [FileCreateFlags] -> Maybe (b) -> m FileOutputStream), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReplaceMethodInfo a signature where - overloadedMethod _ = fileReplace - --- method File::replace_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_replace_async" g_file_replace_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- etag : TBasicType TUTF8 - CInt -> -- make_backup : TBasicType TBoolean - CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileReplaceAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (T.Text) -- etag - -> Bool -- makeBackup - -> [FileCreateFlags] -- flags - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileReplaceAsync _obj etag makeBackup flags ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeEtag <- case etag of - Nothing -> return nullPtr - Just jEtag -> do - jEtag' <- textToCString jEtag - return jEtag' - let makeBackup' = (fromIntegral . fromEnum) makeBackup - let flags' = gflagsToWord flags - 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_file_replace_async _obj' maybeEtag makeBackup' flags' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem maybeEtag - return () - -data FileReplaceAsyncMethodInfo -instance (signature ~ (Maybe (T.Text) -> Bool -> [FileCreateFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReplaceAsyncMethodInfo a signature where - overloadedMethod _ = fileReplaceAsync - --- method File::replace_contents --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_etag", argType = TBasicType TUTF8, 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 = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_replace_contents" g_file_replace_contents :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Word8 -> -- contents : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- length : TBasicType TUInt64 - CString -> -- etag : TBasicType TUTF8 - CInt -> -- make_backup : TBasicType TBoolean - CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" - Ptr CString -> -- new_etag : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileReplaceContents :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> ByteString -- contents - -> Maybe (T.Text) -- etag - -> Bool -- makeBackup - -> [FileCreateFlags] -- flags - -> Maybe (b) -- cancellable - -> m (T.Text) -- result -fileReplaceContents _obj contents etag makeBackup flags cancellable = liftIO $ do - let length_ = fromIntegral $ B.length contents - let _obj' = unsafeManagedPtrCastPtr _obj - contents' <- packByteString contents - maybeEtag <- case etag of - Nothing -> return nullPtr - Just jEtag -> do - jEtag' <- textToCString jEtag - return jEtag' - let makeBackup' = (fromIntegral . fromEnum) makeBackup - let flags' = gflagsToWord flags - newEtag <- allocMem :: IO (Ptr CString) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_replace_contents _obj' contents' length_ maybeEtag makeBackup' flags' newEtag maybeCancellable - newEtag' <- peek newEtag - newEtag'' <- cstringToText newEtag' - freeMem newEtag' - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem contents' - freeMem maybeEtag - freeMem newEtag - return newEtag'' - ) (do - freeMem contents' - freeMem maybeEtag - freeMem newEtag - ) - -data FileReplaceContentsMethodInfo -instance (signature ~ (ByteString -> Maybe (T.Text) -> Bool -> [FileCreateFlags] -> Maybe (b) -> m (T.Text)), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReplaceContentsMethodInfo a signature where - overloadedMethod _ = fileReplaceContents - --- method File::replace_contents_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", 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 = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_replace_contents_async" g_file_replace_contents_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Word8 -> -- contents : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- length : TBasicType TUInt64 - CString -> -- etag : TBasicType TUTF8 - CInt -> -- make_backup : TBasicType TBoolean - CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileReplaceContentsAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> ByteString -- contents - -> Maybe (T.Text) -- etag - -> Bool -- makeBackup - -> [FileCreateFlags] -- flags - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileReplaceContentsAsync _obj contents etag makeBackup flags cancellable callback = liftIO $ do - let length_ = fromIntegral $ B.length contents - let _obj' = unsafeManagedPtrCastPtr _obj - contents' <- packByteString contents - maybeEtag <- case etag of - Nothing -> return nullPtr - Just jEtag -> do - jEtag' <- textToCString jEtag - return jEtag' - let makeBackup' = (fromIntegral . fromEnum) makeBackup - let flags' = gflagsToWord flags - 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_file_replace_contents_async _obj' contents' length_ maybeEtag makeBackup' flags' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem contents' - freeMem maybeEtag - return () - -data FileReplaceContentsAsyncMethodInfo -instance (signature ~ (ByteString -> Maybe (T.Text) -> Bool -> [FileCreateFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReplaceContentsAsyncMethodInfo a signature where - overloadedMethod _ = fileReplaceContentsAsync - --- method File::replace_contents_bytes_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "contents", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", 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 = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_replace_contents_bytes_async" g_file_replace_contents_bytes_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr GLib.Bytes -> -- contents : TInterface "GLib" "Bytes" - CString -> -- etag : TBasicType TUTF8 - CInt -> -- make_backup : TBasicType TBoolean - CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileReplaceContentsBytesAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> GLib.Bytes -- contents - -> Maybe (T.Text) -- etag - -> Bool -- makeBackup - -> [FileCreateFlags] -- flags - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileReplaceContentsBytesAsync _obj contents etag makeBackup flags cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let contents' = unsafeManagedPtrGetPtr contents - maybeEtag <- case etag of - Nothing -> return nullPtr - Just jEtag -> do - jEtag' <- textToCString jEtag - return jEtag' - let makeBackup' = (fromIntegral . fromEnum) makeBackup - let flags' = gflagsToWord flags - 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_file_replace_contents_bytes_async _obj' contents' maybeEtag makeBackup' flags' maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr contents - whenJust cancellable touchManagedPtr - freeMem maybeEtag - return () - -data FileReplaceContentsBytesAsyncMethodInfo -instance (signature ~ (GLib.Bytes -> Maybe (T.Text) -> Bool -> [FileCreateFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReplaceContentsBytesAsyncMethodInfo a signature where - overloadedMethod _ = fileReplaceContentsBytesAsync - --- method File::replace_contents_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_etag", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_replace_contents_finish" g_file_replace_contents_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr CString -> -- new_etag : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -fileReplaceContentsFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m (T.Text) -- result -fileReplaceContentsFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - newEtag <- allocMem :: IO (Ptr CString) - onException (do - _ <- propagateGError $ g_file_replace_contents_finish _obj' res' newEtag - newEtag' <- peek newEtag - newEtag'' <- cstringToText newEtag' - freeMem newEtag' - touchManagedPtr _obj - touchManagedPtr res - freeMem newEtag - return newEtag'' - ) (do - freeMem newEtag - ) - -data FileReplaceContentsFinishMethodInfo -instance (signature ~ (b -> m (T.Text)), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileReplaceContentsFinishMethodInfo a signature where - overloadedMethod _ = fileReplaceContentsFinish - --- method File::replace_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileOutputStream") --- throws : True --- Skip return : False - -foreign import ccall "g_file_replace_finish" g_file_replace_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr FileOutputStream) - - -fileReplaceFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m FileOutputStream -- result -fileReplaceFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_file_replace_finish _obj' res' - checkUnexpectedReturnNULL "g_file_replace_finish" result - result' <- (wrapObject FileOutputStream) result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data FileReplaceFinishMethodInfo -instance (signature ~ (b -> m FileOutputStream), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileReplaceFinishMethodInfo a signature where - overloadedMethod _ = fileReplaceFinish - --- method File::replace_readwrite --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", 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 : Just (TInterface "Gio" "FileIOStream") --- throws : True --- Skip return : False - -foreign import ccall "g_file_replace_readwrite" g_file_replace_readwrite :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- etag : TBasicType TUTF8 - CInt -> -- make_backup : TBasicType TBoolean - CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileIOStream) - - -fileReplaceReadwrite :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (T.Text) -- etag - -> Bool -- makeBackup - -> [FileCreateFlags] -- flags - -> Maybe (b) -- cancellable - -> m FileIOStream -- result -fileReplaceReadwrite _obj etag makeBackup flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeEtag <- case etag of - Nothing -> return nullPtr - Just jEtag -> do - jEtag' <- textToCString jEtag - return jEtag' - let makeBackup' = (fromIntegral . fromEnum) makeBackup - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_replace_readwrite _obj' maybeEtag makeBackup' flags' maybeCancellable - checkUnexpectedReturnNULL "g_file_replace_readwrite" result - result' <- (wrapObject FileIOStream) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem maybeEtag - return result' - ) (do - freeMem maybeEtag - ) - -data FileReplaceReadwriteMethodInfo -instance (signature ~ (Maybe (T.Text) -> Bool -> [FileCreateFlags] -> Maybe (b) -> m FileIOStream), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReplaceReadwriteMethodInfo a signature where - overloadedMethod _ = fileReplaceReadwrite - --- method File::replace_readwrite_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "etag", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "make_backup", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileCreateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_replace_readwrite_async" g_file_replace_readwrite_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- etag : TBasicType TUTF8 - CInt -> -- make_backup : TBasicType TBoolean - CUInt -> -- flags : TInterface "Gio" "FileCreateFlags" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileReplaceReadwriteAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (T.Text) -- etag - -> Bool -- makeBackup - -> [FileCreateFlags] -- flags - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileReplaceReadwriteAsync _obj etag makeBackup flags ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeEtag <- case etag of - Nothing -> return nullPtr - Just jEtag -> do - jEtag' <- textToCString jEtag - return jEtag' - let makeBackup' = (fromIntegral . fromEnum) makeBackup - let flags' = gflagsToWord flags - 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_file_replace_readwrite_async _obj' maybeEtag makeBackup' flags' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem maybeEtag - return () - -data FileReplaceReadwriteAsyncMethodInfo -instance (signature ~ (Maybe (T.Text) -> Bool -> [FileCreateFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileReplaceReadwriteAsyncMethodInfo a signature where - overloadedMethod _ = fileReplaceReadwriteAsync - --- method File::replace_readwrite_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileIOStream") --- throws : True --- Skip return : False - -foreign import ccall "g_file_replace_readwrite_finish" g_file_replace_readwrite_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr FileIOStream) - - -fileReplaceReadwriteFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m FileIOStream -- result -fileReplaceReadwriteFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_file_replace_readwrite_finish _obj' res' - checkUnexpectedReturnNULL "g_file_replace_readwrite_finish" result - result' <- (wrapObject FileIOStream) result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data FileReplaceReadwriteFinishMethodInfo -instance (signature ~ (b -> m FileIOStream), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileReplaceReadwriteFinishMethodInfo a signature where - overloadedMethod _ = fileReplaceReadwriteFinish - --- method File::resolve_relative_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "relative_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_file_resolve_relative_path" g_file_resolve_relative_path :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- relative_path : TBasicType TUTF8 - IO (Ptr File) - - -fileResolveRelativePath :: - (MonadIO m, FileK a) => - a -- _obj - -> T.Text -- relativePath - -> m File -- result -fileResolveRelativePath _obj relativePath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - relativePath' <- textToCString relativePath - result <- g_file_resolve_relative_path _obj' relativePath' - checkUnexpectedReturnNULL "g_file_resolve_relative_path" result - result' <- (wrapObject File) result - touchManagedPtr _obj - freeMem relativePath' - return result' - -data FileResolveRelativePathMethodInfo -instance (signature ~ (T.Text -> m File), MonadIO m, FileK a) => MethodInfo FileResolveRelativePathMethodInfo a signature where - overloadedMethod _ = fileResolveRelativePath - --- method File::set_attribute --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value_p", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_set_attribute" g_file_set_attribute :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- attribute : TBasicType TUTF8 - CUInt -> -- type : TInterface "Gio" "FileAttributeType" - Ptr () -> -- value_p : TBasicType TPtr - CUInt -> -- flags : TInterface "Gio" "FileQueryInfoFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileSetAttribute :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- attribute - -> FileAttributeType -- type_ - -> Ptr () -- valueP - -> [FileQueryInfoFlags] -- flags - -> Maybe (b) -- cancellable - -> m () -- result -fileSetAttribute _obj attribute type_ valueP flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - let type_' = (fromIntegral . fromEnum) type_ - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_set_attribute _obj' attribute' type_' valueP flags' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attribute' - return () - ) (do - freeMem attribute' - ) - -data FileSetAttributeMethodInfo -instance (signature ~ (T.Text -> FileAttributeType -> Ptr () -> [FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetAttributeMethodInfo a signature where - overloadedMethod _ = fileSetAttribute - --- method File::set_attribute_byte_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_set_attribute_byte_string" g_file_set_attribute_byte_string :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- attribute : TBasicType TUTF8 - CString -> -- value : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "FileQueryInfoFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileSetAttributeByteString :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- attribute - -> T.Text -- value - -> [FileQueryInfoFlags] -- flags - -> Maybe (b) -- cancellable - -> m () -- result -fileSetAttributeByteString _obj attribute value flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - value' <- textToCString value - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_set_attribute_byte_string _obj' attribute' value' flags' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attribute' - freeMem value' - return () - ) (do - freeMem attribute' - freeMem value' - ) - -data FileSetAttributeByteStringMethodInfo -instance (signature ~ (T.Text -> T.Text -> [FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetAttributeByteStringMethodInfo a signature where - overloadedMethod _ = fileSetAttributeByteString - --- method File::set_attribute_int32 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_set_attribute_int32" g_file_set_attribute_int32 :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- attribute : TBasicType TUTF8 - Int32 -> -- value : TBasicType TInt32 - CUInt -> -- flags : TInterface "Gio" "FileQueryInfoFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileSetAttributeInt32 :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- attribute - -> Int32 -- value - -> [FileQueryInfoFlags] -- flags - -> Maybe (b) -- cancellable - -> m () -- result -fileSetAttributeInt32 _obj attribute value flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_set_attribute_int32 _obj' attribute' value flags' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attribute' - return () - ) (do - freeMem attribute' - ) - -data FileSetAttributeInt32MethodInfo -instance (signature ~ (T.Text -> Int32 -> [FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetAttributeInt32MethodInfo a signature where - overloadedMethod _ = fileSetAttributeInt32 - --- method File::set_attribute_int64 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_set_attribute_int64" g_file_set_attribute_int64 :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- attribute : TBasicType TUTF8 - Int64 -> -- value : TBasicType TInt64 - CUInt -> -- flags : TInterface "Gio" "FileQueryInfoFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileSetAttributeInt64 :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- attribute - -> Int64 -- value - -> [FileQueryInfoFlags] -- flags - -> Maybe (b) -- cancellable - -> m () -- result -fileSetAttributeInt64 _obj attribute value flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_set_attribute_int64 _obj' attribute' value flags' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attribute' - return () - ) (do - freeMem attribute' - ) - -data FileSetAttributeInt64MethodInfo -instance (signature ~ (T.Text -> Int64 -> [FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetAttributeInt64MethodInfo a signature where - overloadedMethod _ = fileSetAttributeInt64 - --- method File::set_attribute_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_set_attribute_string" g_file_set_attribute_string :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- attribute : TBasicType TUTF8 - CString -> -- value : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "FileQueryInfoFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileSetAttributeString :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- attribute - -> T.Text -- value - -> [FileQueryInfoFlags] -- flags - -> Maybe (b) -- cancellable - -> m () -- result -fileSetAttributeString _obj attribute value flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - value' <- textToCString value - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_set_attribute_string _obj' attribute' value' flags' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attribute' - freeMem value' - return () - ) (do - freeMem attribute' - freeMem value' - ) - -data FileSetAttributeStringMethodInfo -instance (signature ~ (T.Text -> T.Text -> [FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetAttributeStringMethodInfo a signature where - overloadedMethod _ = fileSetAttributeString - --- method File::set_attribute_uint32 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_set_attribute_uint32" g_file_set_attribute_uint32 :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- attribute : TBasicType TUTF8 - Word32 -> -- value : TBasicType TUInt32 - CUInt -> -- flags : TInterface "Gio" "FileQueryInfoFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileSetAttributeUint32 :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- attribute - -> Word32 -- value - -> [FileQueryInfoFlags] -- flags - -> Maybe (b) -- cancellable - -> m () -- result -fileSetAttributeUint32 _obj attribute value flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_set_attribute_uint32 _obj' attribute' value flags' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attribute' - return () - ) (do - freeMem attribute' - ) - -data FileSetAttributeUint32MethodInfo -instance (signature ~ (T.Text -> Word32 -> [FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetAttributeUint32MethodInfo a signature where - overloadedMethod _ = fileSetAttributeUint32 - --- method File::set_attribute_uint64 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_set_attribute_uint64" g_file_set_attribute_uint64 :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- attribute : TBasicType TUTF8 - Word64 -> -- value : TBasicType TUInt64 - CUInt -> -- flags : TInterface "Gio" "FileQueryInfoFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileSetAttributeUint64 :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- attribute - -> Word64 -- value - -> [FileQueryInfoFlags] -- flags - -> Maybe (b) -- cancellable - -> m () -- result -fileSetAttributeUint64 _obj attribute value flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_set_attribute_uint64 _obj' attribute' value flags' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attribute' - return () - ) (do - freeMem attribute' - ) - -data FileSetAttributeUint64MethodInfo -instance (signature ~ (T.Text -> Word64 -> [FileQueryInfoFlags] -> Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetAttributeUint64MethodInfo a signature where - overloadedMethod _ = fileSetAttributeUint64 - --- method File::set_attributes_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_set_attributes_async" g_file_set_attributes_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr FileInfo -> -- info : TInterface "Gio" "FileInfo" - CUInt -> -- flags : TInterface "Gio" "FileQueryInfoFlags" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileSetAttributesAsync :: - (MonadIO m, FileK a, FileInfoK b, CancellableK c) => - a -- _obj - -> b -- info - -> [FileQueryInfoFlags] -- flags - -> Int32 -- ioPriority - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileSetAttributesAsync _obj info flags ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let info' = unsafeManagedPtrCastPtr info - let flags' = gflagsToWord flags - 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_file_set_attributes_async _obj' info' flags' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr info - whenJust cancellable touchManagedPtr - return () - -data FileSetAttributesAsyncMethodInfo -instance (signature ~ (b -> [FileQueryInfoFlags] -> Int32 -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, FileInfoK b, CancellableK c) => MethodInfo FileSetAttributesAsyncMethodInfo a signature where - overloadedMethod _ = fileSetAttributesAsync - --- method File::set_attributes_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "FileInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_set_attributes_finish" g_file_set_attributes_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr FileInfo) -> -- info : TInterface "Gio" "FileInfo" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileSetAttributesFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m (FileInfo) -- result -fileSetAttributesFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - info <- allocMem :: IO (Ptr (Ptr FileInfo)) - onException (do - _ <- propagateGError $ g_file_set_attributes_finish _obj' result_' info - info' <- peek info - info'' <- (wrapObject FileInfo) info' - touchManagedPtr _obj - touchManagedPtr result_ - freeMem info - return info'' - ) (do - freeMem info - ) - -data FileSetAttributesFinishMethodInfo -instance (signature ~ (b -> m (FileInfo)), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileSetAttributesFinishMethodInfo a signature where - overloadedMethod _ = fileSetAttributesFinish - --- method File::set_attributes_from_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileQueryInfoFlags", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_set_attributes_from_info" g_file_set_attributes_from_info :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr FileInfo -> -- info : TInterface "Gio" "FileInfo" - CUInt -> -- flags : TInterface "Gio" "FileQueryInfoFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileSetAttributesFromInfo :: - (MonadIO m, FileK a, FileInfoK b, CancellableK c) => - a -- _obj - -> b -- info - -> [FileQueryInfoFlags] -- flags - -> Maybe (c) -- cancellable - -> m () -- result -fileSetAttributesFromInfo _obj info flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let info' = unsafeManagedPtrCastPtr info - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_set_attributes_from_info _obj' info' flags' maybeCancellable - touchManagedPtr _obj - touchManagedPtr info - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data FileSetAttributesFromInfoMethodInfo -instance (signature ~ (b -> [FileQueryInfoFlags] -> Maybe (c) -> m ()), MonadIO m, FileK a, FileInfoK b, CancellableK c) => MethodInfo FileSetAttributesFromInfoMethodInfo a signature where - overloadedMethod _ = fileSetAttributesFromInfo - --- method File::set_display_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display_name", 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 : Just (TInterface "Gio" "File") --- throws : True --- Skip return : False - -foreign import ccall "g_file_set_display_name" g_file_set_display_name :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- display_name : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr File) - - -fileSetDisplayName :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- displayName - -> Maybe (b) -- cancellable - -> m File -- result -fileSetDisplayName _obj displayName cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - displayName' <- textToCString displayName - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_set_display_name _obj' displayName' maybeCancellable - checkUnexpectedReturnNULL "g_file_set_display_name" result - result' <- (wrapObject File) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem displayName' - return result' - ) (do - freeMem displayName' - ) - -data FileSetDisplayNameMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> m File), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetDisplayNameMethodInfo a signature where - overloadedMethod _ = fileSetDisplayName - --- method File::set_display_name_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_set_display_name_async" g_file_set_display_name_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CString -> -- display_name : TBasicType TUTF8 - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileSetDisplayNameAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> T.Text -- displayName - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileSetDisplayNameAsync _obj displayName ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - displayName' <- textToCString displayName - 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_file_set_display_name_async _obj' displayName' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem displayName' - return () - -data FileSetDisplayNameAsyncMethodInfo -instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileSetDisplayNameAsyncMethodInfo a signature where - overloadedMethod _ = fileSetDisplayNameAsync - --- method File::set_display_name_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : True --- Skip return : False - -foreign import ccall "g_file_set_display_name_finish" g_file_set_display_name_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr File) - - -fileSetDisplayNameFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m File -- result -fileSetDisplayNameFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_file_set_display_name_finish _obj' res' - checkUnexpectedReturnNULL "g_file_set_display_name_finish" result - result' <- (wrapObject File) result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data FileSetDisplayNameFinishMethodInfo -instance (signature ~ (b -> m File), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileSetDisplayNameFinishMethodInfo a signature where - overloadedMethod _ = fileSetDisplayNameFinish - --- method File::start_mountable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DriveStartFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start_operation", argType = TInterface "Gio" "MountOperation", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_start_mountable" g_file_start_mountable :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "DriveStartFlags" - Ptr MountOperation -> -- start_operation : TInterface "Gio" "MountOperation" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileStartMountable :: - (MonadIO m, FileK a, MountOperationK b, CancellableK c) => - a -- _obj - -> [DriveStartFlags] -- flags - -> Maybe (b) -- startOperation - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileStartMountable _obj flags startOperation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeStartOperation <- case startOperation of - Nothing -> return nullPtr - Just jStartOperation -> do - let jStartOperation' = unsafeManagedPtrCastPtr jStartOperation - return jStartOperation' - 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_file_start_mountable _obj' flags' maybeStartOperation maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust startOperation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data FileStartMountableMethodInfo -instance (signature ~ ([DriveStartFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, MountOperationK b, CancellableK c) => MethodInfo FileStartMountableMethodInfo a signature where - overloadedMethod _ = fileStartMountable - --- method File::start_mountable_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_start_mountable_finish" g_file_start_mountable_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileStartMountableFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -fileStartMountableFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_file_start_mountable_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data FileStartMountableFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileStartMountableFinishMethodInfo a signature where - overloadedMethod _ = fileStartMountableFinish - --- method File::stop_mountable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_stop_mountable" g_file_stop_mountable :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "MountUnmountFlags" - Ptr MountOperation -> -- mount_operation : TInterface "Gio" "MountOperation" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileStopMountable :: - (MonadIO m, FileK a, MountOperationK b, CancellableK c) => - a -- _obj - -> [MountUnmountFlags] -- flags - -> Maybe (b) -- mountOperation - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileStopMountable _obj flags mountOperation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMountOperation <- case mountOperation of - Nothing -> return nullPtr - Just jMountOperation -> do - let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation - return jMountOperation' - 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_file_stop_mountable _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust mountOperation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data FileStopMountableMethodInfo -instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, MountOperationK b, CancellableK c) => MethodInfo FileStopMountableMethodInfo a signature where - overloadedMethod _ = fileStopMountable - --- method File::stop_mountable_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_stop_mountable_finish" g_file_stop_mountable_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileStopMountableFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -fileStopMountableFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_file_stop_mountable_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data FileStopMountableFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileStopMountableFinishMethodInfo a signature where - overloadedMethod _ = fileStopMountableFinish - --- method File::supports_thread_contexts --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_supports_thread_contexts" g_file_supports_thread_contexts :: - Ptr File -> -- _obj : TInterface "Gio" "File" - IO CInt - - -fileSupportsThreadContexts :: - (MonadIO m, FileK a) => - a -- _obj - -> m Bool -- result -fileSupportsThreadContexts _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_supports_thread_contexts _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileSupportsThreadContextsMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileK a) => MethodInfo FileSupportsThreadContextsMethodInfo a signature where - overloadedMethod _ = fileSupportsThreadContexts - --- method File::trash --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_trash" g_file_trash :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileTrash :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -fileTrash _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_trash _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data FileTrashMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileTrashMethodInfo a signature where - overloadedMethod _ = fileTrash - --- method File::trash_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_trash_async" g_file_trash_async :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileTrashAsync :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileTrashAsync _obj ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_file_trash_async _obj' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data FileTrashAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileTrashAsyncMethodInfo a signature where - overloadedMethod _ = fileTrashAsync - --- method File::trash_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_trash_finish" g_file_trash_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileTrashFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -fileTrashFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_file_trash_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data FileTrashFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileTrashFinishMethodInfo a signature where - overloadedMethod _ = fileTrashFinish - --- method File::unmount_mountable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_unmount_mountable" g_file_unmount_mountable :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "MountUnmountFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - -{-# DEPRECATED fileUnmountMountable ["(Since version 2.22)","Use g_file_unmount_mountable_with_operation() instead."]#-} -fileUnmountMountable :: - (MonadIO m, FileK a, CancellableK b) => - a -- _obj - -> [MountUnmountFlags] -- flags - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileUnmountMountable _obj flags cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - 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_file_unmount_mountable _obj' flags' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data FileUnmountMountableMethodInfo -instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, CancellableK b) => MethodInfo FileUnmountMountableMethodInfo a signature where - overloadedMethod _ = fileUnmountMountable - --- method File::unmount_mountable_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_unmount_mountable_finish" g_file_unmount_mountable_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - -{-# DEPRECATED fileUnmountMountableFinish ["(Since version 2.22)","Use g_file_unmount_mountable_with_operation_finish()"," instead."]#-} -fileUnmountMountableFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -fileUnmountMountableFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_file_unmount_mountable_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data FileUnmountMountableFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileUnmountMountableFinishMethodInfo a signature where - overloadedMethod _ = fileUnmountMountableFinish - --- method File::unmount_mountable_with_operation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_unmount_mountable_with_operation" g_file_unmount_mountable_with_operation :: - Ptr File -> -- _obj : TInterface "Gio" "File" - CUInt -> -- flags : TInterface "Gio" "MountUnmountFlags" - Ptr MountOperation -> -- mount_operation : TInterface "Gio" "MountOperation" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileUnmountMountableWithOperation :: - (MonadIO m, FileK a, MountOperationK b, CancellableK c) => - a -- _obj - -> [MountUnmountFlags] -- flags - -> Maybe (b) -- mountOperation - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileUnmountMountableWithOperation _obj flags mountOperation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMountOperation <- case mountOperation of - Nothing -> return nullPtr - Just jMountOperation -> do - let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation - return jMountOperation' - 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_file_unmount_mountable_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust mountOperation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data FileUnmountMountableWithOperationMethodInfo -instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileK a, MountOperationK b, CancellableK c) => MethodInfo FileUnmountMountableWithOperationMethodInfo a signature where - overloadedMethod _ = fileUnmountMountableWithOperation - --- method File::unmount_mountable_with_operation_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_unmount_mountable_with_operation_finish" g_file_unmount_mountable_with_operation_finish :: - Ptr File -> -- _obj : TInterface "Gio" "File" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileUnmountMountableWithOperationFinish :: - (MonadIO m, FileK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -fileUnmountMountableWithOperationFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_file_unmount_mountable_with_operation_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data FileUnmountMountableWithOperationFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileK a, AsyncResultK b) => MethodInfo FileUnmountMountableWithOperationFinishMethodInfo a signature where - overloadedMethod _ = fileUnmountMountableWithOperationFinish - --- method File::new_for_commandline_arg --- method type : MemberFunction --- Args : [Arg {argCName = "arg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_file_new_for_commandline_arg" g_file_new_for_commandline_arg :: - CString -> -- arg : TBasicType TUTF8 - IO (Ptr File) - - -fileNewForCommandlineArg :: - (MonadIO m) => - T.Text -- arg - -> m File -- result -fileNewForCommandlineArg arg = liftIO $ do - arg' <- textToCString arg - result <- g_file_new_for_commandline_arg arg' - checkUnexpectedReturnNULL "g_file_new_for_commandline_arg" result - result' <- (wrapObject File) result - freeMem arg' - return result' - --- method File::new_for_commandline_arg_and_cwd --- method type : MemberFunction --- Args : [Arg {argCName = "arg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cwd", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_file_new_for_commandline_arg_and_cwd" g_file_new_for_commandline_arg_and_cwd :: - CString -> -- arg : TBasicType TUTF8 - CString -> -- cwd : TBasicType TUTF8 - IO (Ptr File) - - -fileNewForCommandlineArgAndCwd :: - (MonadIO m) => - T.Text -- arg - -> T.Text -- cwd - -> m File -- result -fileNewForCommandlineArgAndCwd arg cwd = liftIO $ do - arg' <- textToCString arg - cwd' <- textToCString cwd - result <- g_file_new_for_commandline_arg_and_cwd arg' cwd' - checkUnexpectedReturnNULL "g_file_new_for_commandline_arg_and_cwd" result - result' <- (wrapObject File) result - freeMem arg' - freeMem cwd' - return result' - --- method File::new_for_path --- method type : MemberFunction --- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_file_new_for_path" g_file_new_for_path :: - CString -> -- path : TBasicType TUTF8 - IO (Ptr File) - - -fileNewForPath :: - (MonadIO m) => - T.Text -- path - -> m File -- result -fileNewForPath path = liftIO $ do - path' <- textToCString path - result <- g_file_new_for_path path' - checkUnexpectedReturnNULL "g_file_new_for_path" result - result' <- (wrapObject File) result - freeMem path' - return result' - --- method File::new_for_uri --- method type : MemberFunction --- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_file_new_for_uri" g_file_new_for_uri :: - CString -> -- uri : TBasicType TUTF8 - IO (Ptr File) - - -fileNewForUri :: - (MonadIO m) => - T.Text -- uri - -> m File -- result -fileNewForUri uri = liftIO $ do - uri' <- textToCString uri - result <- g_file_new_for_uri uri' - checkUnexpectedReturnNULL "g_file_new_for_uri" result - result' <- (wrapObject File) result - freeMem uri' - return result' - --- method File::new_tmp --- method type : MemberFunction --- Args : [Arg {argCName = "tmpl", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iostream", argType = TInterface "Gio" "FileIOStream", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : True --- Skip return : False - -foreign import ccall "g_file_new_tmp" g_file_new_tmp :: - CString -> -- tmpl : TBasicType TFileName - Ptr (Ptr FileIOStream) -> -- iostream : TInterface "Gio" "FileIOStream" - Ptr (Ptr GError) -> -- error - IO (Ptr File) - - -fileNewTmp :: - (MonadIO m) => - Maybe ([Char]) -- tmpl - -> m (File,FileIOStream) -- result -fileNewTmp tmpl = liftIO $ do - maybeTmpl <- case tmpl of - Nothing -> return nullPtr - Just jTmpl -> do - jTmpl' <- stringToCString jTmpl - return jTmpl' - iostream <- allocMem :: IO (Ptr (Ptr FileIOStream)) - onException (do - result <- propagateGError $ g_file_new_tmp maybeTmpl iostream - checkUnexpectedReturnNULL "g_file_new_tmp" result - result' <- (wrapObject File) result - iostream' <- peek iostream - iostream'' <- (wrapObject FileIOStream) iostream' - freeMem maybeTmpl - freeMem iostream - return (result', iostream'') - ) (do - freeMem maybeTmpl - freeMem iostream - ) - --- method File::parse_name --- method type : MemberFunction --- Args : [Arg {argCName = "parse_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_file_parse_name" g_file_parse_name :: - CString -> -- parse_name : TBasicType TUTF8 - IO (Ptr File) - - -fileParseName :: - (MonadIO m) => - T.Text -- parseName - -> m File -- result -fileParseName parseName = liftIO $ do - parseName' <- textToCString parseName - result <- g_file_parse_name parseName' - checkUnexpectedReturnNULL "g_file_parse_name" result - result' <- (wrapObject File) result - freeMem parseName' - return result' - - diff --git a/GI/Gio/Interfaces/File.hs-boot b/GI/Gio/Interfaces/File.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/File.hs-boot +++ /dev/null @@ -1,127 +0,0 @@ -module GI.Gio.Interfaces.File where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype File = File (ForeignPtr File) -instance GObject File where -class GObject o => FileK o -instance (GObject o, IsDescendantOf File o) => FileK o -data FileAppendToMethodInfo -data FileAppendToAsyncMethodInfo -data FileAppendToFinishMethodInfo -data FileCopyMethodInfo -data FileCopyAttributesMethodInfo -data FileCopyFinishMethodInfo -data FileCreateMethodInfo -data FileCreateAsyncMethodInfo -data FileCreateFinishMethodInfo -data FileCreateReadwriteMethodInfo -data FileCreateReadwriteAsyncMethodInfo -data FileCreateReadwriteFinishMethodInfo -data FileDeleteMethodInfo -data FileDeleteAsyncMethodInfo -data FileDeleteFinishMethodInfo -data FileDupMethodInfo -data FileEjectMountableMethodInfo -data FileEjectMountableFinishMethodInfo -data FileEjectMountableWithOperationMethodInfo -data FileEjectMountableWithOperationFinishMethodInfo -data FileEnumerateChildrenMethodInfo -data FileEnumerateChildrenAsyncMethodInfo -data FileEnumerateChildrenFinishMethodInfo -data FileEqualMethodInfo -data FileFindEnclosingMountMethodInfo -data FileFindEnclosingMountAsyncMethodInfo -data FileFindEnclosingMountFinishMethodInfo -data FileGetBasenameMethodInfo -data FileGetChildMethodInfo -data FileGetChildForDisplayNameMethodInfo -data FileGetParentMethodInfo -data FileGetParseNameMethodInfo -data FileGetPathMethodInfo -data FileGetRelativePathMethodInfo -data FileGetUriMethodInfo -data FileGetUriSchemeMethodInfo -data FileHasParentMethodInfo -data FileHasPrefixMethodInfo -data FileHasUriSchemeMethodInfo -data FileHashMethodInfo -data FileIsNativeMethodInfo -data FileLoadContentsMethodInfo -data FileLoadContentsAsyncMethodInfo -data FileLoadContentsFinishMethodInfo -data FileLoadPartialContentsFinishMethodInfo -data FileMakeDirectoryMethodInfo -data FileMakeDirectoryAsyncMethodInfo -data FileMakeDirectoryFinishMethodInfo -data FileMakeDirectoryWithParentsMethodInfo -data FileMakeSymbolicLinkMethodInfo -data FileMeasureDiskUsageFinishMethodInfo -data FileMonitorMethodInfo -data FileMonitorDirectoryMethodInfo -data FileMonitorFileMethodInfo -data FileMountEnclosingVolumeMethodInfo -data FileMountEnclosingVolumeFinishMethodInfo -data FileMountMountableMethodInfo -data FileMountMountableFinishMethodInfo -data FileMoveMethodInfo -data FileOpenReadwriteMethodInfo -data FileOpenReadwriteAsyncMethodInfo -data FileOpenReadwriteFinishMethodInfo -data FilePollMountableMethodInfo -data FilePollMountableFinishMethodInfo -data FileQueryDefaultHandlerMethodInfo -data FileQueryExistsMethodInfo -data FileQueryFileTypeMethodInfo -data FileQueryFilesystemInfoMethodInfo -data FileQueryFilesystemInfoAsyncMethodInfo -data FileQueryFilesystemInfoFinishMethodInfo -data FileQueryInfoMethodInfo -data FileQueryInfoAsyncMethodInfo -data FileQueryInfoFinishMethodInfo -data FileQuerySettableAttributesMethodInfo -data FileQueryWritableNamespacesMethodInfo -data FileReadMethodInfo -data FileReadAsyncMethodInfo -data FileReadFinishMethodInfo -data FileReplaceMethodInfo -data FileReplaceAsyncMethodInfo -data FileReplaceContentsMethodInfo -data FileReplaceContentsAsyncMethodInfo -data FileReplaceContentsBytesAsyncMethodInfo -data FileReplaceContentsFinishMethodInfo -data FileReplaceFinishMethodInfo -data FileReplaceReadwriteMethodInfo -data FileReplaceReadwriteAsyncMethodInfo -data FileReplaceReadwriteFinishMethodInfo -data FileResolveRelativePathMethodInfo -data FileSetAttributeMethodInfo -data FileSetAttributeByteStringMethodInfo -data FileSetAttributeInt32MethodInfo -data FileSetAttributeInt64MethodInfo -data FileSetAttributeStringMethodInfo -data FileSetAttributeUint32MethodInfo -data FileSetAttributeUint64MethodInfo -data FileSetAttributesAsyncMethodInfo -data FileSetAttributesFinishMethodInfo -data FileSetAttributesFromInfoMethodInfo -data FileSetDisplayNameMethodInfo -data FileSetDisplayNameAsyncMethodInfo -data FileSetDisplayNameFinishMethodInfo -data FileStartMountableMethodInfo -data FileStartMountableFinishMethodInfo -data FileStopMountableMethodInfo -data FileStopMountableFinishMethodInfo -data FileSupportsThreadContextsMethodInfo -data FileTrashMethodInfo -data FileTrashAsyncMethodInfo -data FileTrashFinishMethodInfo -data FileUnmountMountableMethodInfo -data FileUnmountMountableFinishMethodInfo -data FileUnmountMountableWithOperationMethodInfo -data FileUnmountMountableWithOperationFinishMethodInfo diff --git a/GI/Gio/Interfaces/FileDescriptorBased.hs b/GI/Gio/Interfaces/FileDescriptorBased.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/FileDescriptorBased.hs +++ /dev/null @@ -1,130 +0,0 @@ - - -{- | -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.Interfaces.FileDescriptorBased - ( - --- * Exported types - FileDescriptorBased(..) , - noFileDescriptorBased , - FileDescriptorBasedK , - toFileDescriptorBased , - - - -- * Methods --- ** fileDescriptorBasedGetFd - FileDescriptorBasedGetFdMethodInfo , - fileDescriptorBasedGetFd , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface FileDescriptorBased - -newtype FileDescriptorBased = FileDescriptorBased (ForeignPtr FileDescriptorBased) -noFileDescriptorBased :: Maybe FileDescriptorBased -noFileDescriptorBased = Nothing - -type family ResolveFileDescriptorBasedMethod (t :: Symbol) (o :: *) :: * where - ResolveFileDescriptorBasedMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFileDescriptorBasedMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFileDescriptorBasedMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFileDescriptorBasedMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFileDescriptorBasedMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFileDescriptorBasedMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFileDescriptorBasedMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFileDescriptorBasedMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFileDescriptorBasedMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFileDescriptorBasedMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFileDescriptorBasedMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFileDescriptorBasedMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFileDescriptorBasedMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFileDescriptorBasedMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFileDescriptorBasedMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFileDescriptorBasedMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFileDescriptorBasedMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFileDescriptorBasedMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFileDescriptorBasedMethod "getFd" o = FileDescriptorBasedGetFdMethodInfo - ResolveFileDescriptorBasedMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFileDescriptorBasedMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFileDescriptorBasedMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFileDescriptorBasedMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFileDescriptorBasedMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileDescriptorBasedMethod t FileDescriptorBased, MethodInfo info FileDescriptorBased p) => IsLabelProxy t (FileDescriptorBased -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileDescriptorBasedMethod t FileDescriptorBased, MethodInfo info FileDescriptorBased p) => IsLabel t (FileDescriptorBased -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FileDescriptorBased = FileDescriptorBasedAttributeList -type FileDescriptorBasedAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList FileDescriptorBased = FileDescriptorBasedSignalList -type FileDescriptorBasedSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_file_descriptor_based_get_type" - c_g_file_descriptor_based_get_type :: IO GType - -type instance ParentTypes FileDescriptorBased = FileDescriptorBasedParentTypes -type FileDescriptorBasedParentTypes = '[GObject.Object] - -instance GObject FileDescriptorBased where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_file_descriptor_based_get_type - - -class GObject o => FileDescriptorBasedK o -instance (GObject o, IsDescendantOf FileDescriptorBased o) => FileDescriptorBasedK o - -toFileDescriptorBased :: FileDescriptorBasedK o => o -> IO FileDescriptorBased -toFileDescriptorBased = unsafeCastTo FileDescriptorBased - --- method FileDescriptorBased::get_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileDescriptorBased", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_file_descriptor_based_get_fd" g_file_descriptor_based_get_fd :: - Ptr FileDescriptorBased -> -- _obj : TInterface "Gio" "FileDescriptorBased" - IO Int32 - - -fileDescriptorBasedGetFd :: - (MonadIO m, FileDescriptorBasedK a) => - a -- _obj - -> m Int32 -- result -fileDescriptorBasedGetFd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_descriptor_based_get_fd _obj' - touchManagedPtr _obj - return result - -data FileDescriptorBasedGetFdMethodInfo -instance (signature ~ (m Int32), MonadIO m, FileDescriptorBasedK a) => MethodInfo FileDescriptorBasedGetFdMethodInfo a signature where - overloadedMethod _ = fileDescriptorBasedGetFd - - diff --git a/GI/Gio/Interfaces/FileDescriptorBased.hs-boot b/GI/Gio/Interfaces/FileDescriptorBased.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/FileDescriptorBased.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gio.Interfaces.FileDescriptorBased where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FileDescriptorBased = FileDescriptorBased (ForeignPtr FileDescriptorBased) -instance GObject FileDescriptorBased where -class GObject o => FileDescriptorBasedK o -instance (GObject o, IsDescendantOf FileDescriptorBased o) => FileDescriptorBasedK o -data FileDescriptorBasedGetFdMethodInfo diff --git a/GI/Gio/Interfaces/Icon.hs b/GI/Gio/Interfaces/Icon.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/Icon.hs +++ /dev/null @@ -1,298 +0,0 @@ - - -{- | -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.Interfaces.Icon - ( - --- * Exported types - Icon(..) , - noIcon , - IconK , - toIcon , - - - -- * Methods --- ** iconDeserialize - iconDeserialize , - - --- ** iconEqual - IconEqualMethodInfo , - iconEqual , - - --- ** iconHash - iconHash , - - --- ** iconNewForString - iconNewForString , - - --- ** iconSerialize - IconSerializeMethodInfo , - iconSerialize , - - --- ** iconToString - IconToStringMethodInfo , - iconToString , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface Icon - -newtype Icon = Icon (ForeignPtr Icon) -noIcon :: Maybe Icon -noIcon = Nothing - -type family ResolveIconMethod (t :: Symbol) (o :: *) :: * where - ResolveIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveIconMethod "equal" o = IconEqualMethodInfo - ResolveIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveIconMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveIconMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveIconMethod "serialize" o = IconSerializeMethodInfo - ResolveIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveIconMethod "toString" o = IconToStringMethodInfo - ResolveIconMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveIconMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveIconMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveIconMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIconMethod t Icon, MethodInfo info Icon p) => IsLabelProxy t (Icon -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIconMethod t Icon, MethodInfo info Icon p) => IsLabel t (Icon -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Icon = IconAttributeList -type IconAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Icon = IconSignalList -type IconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_icon_get_type" - c_g_icon_get_type :: IO GType - -type instance ParentTypes Icon = IconParentTypes -type IconParentTypes = '[GObject.Object] - -instance GObject Icon where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_icon_get_type - - -class GObject o => IconK o -instance (GObject o, IsDescendantOf Icon o) => IconK o - -toIcon :: IconK o => o -> IO Icon -toIcon = unsafeCastTo Icon - --- method Icon::equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon2", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_icon_equal" g_icon_equal :: - Ptr Icon -> -- _obj : TInterface "Gio" "Icon" - Ptr Icon -> -- icon2 : TInterface "Gio" "Icon" - IO CInt - - -iconEqual :: - (MonadIO m, IconK a, IconK b) => - a -- _obj - -> Maybe (b) -- icon2 - -> m Bool -- result -iconEqual _obj icon2 = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIcon2 <- case icon2 of - Nothing -> return nullPtr - Just jIcon2 -> do - let jIcon2' = unsafeManagedPtrCastPtr jIcon2 - return jIcon2' - result <- g_icon_equal _obj' maybeIcon2 - let result' = (/= 0) result - touchManagedPtr _obj - whenJust icon2 touchManagedPtr - return result' - -data IconEqualMethodInfo -instance (signature ~ (Maybe (b) -> m Bool), MonadIO m, IconK a, IconK b) => MethodInfo IconEqualMethodInfo a signature where - overloadedMethod _ = iconEqual - --- method Icon::serialize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_icon_serialize" g_icon_serialize :: - Ptr Icon -> -- _obj : TInterface "Gio" "Icon" - IO (Ptr GVariant) - - -iconSerialize :: - (MonadIO m, IconK a) => - a -- _obj - -> m GVariant -- result -iconSerialize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_icon_serialize _obj' - checkUnexpectedReturnNULL "g_icon_serialize" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - return result' - -data IconSerializeMethodInfo -instance (signature ~ (m GVariant), MonadIO m, IconK a) => MethodInfo IconSerializeMethodInfo a signature where - overloadedMethod _ = iconSerialize - --- method Icon::to_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_icon_to_string" g_icon_to_string :: - Ptr Icon -> -- _obj : TInterface "Gio" "Icon" - IO CString - - -iconToString :: - (MonadIO m, IconK a) => - a -- _obj - -> m (Maybe T.Text) -- result -iconToString _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_icon_to_string _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - return maybeResult - -data IconToStringMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, IconK a) => MethodInfo IconToStringMethodInfo a signature where - overloadedMethod _ = iconToString - --- method Icon::deserialize --- method type : MemberFunction --- Args : [Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "g_icon_deserialize" g_icon_deserialize :: - Ptr GVariant -> -- value : TVariant - IO (Ptr Icon) - - -iconDeserialize :: - (MonadIO m) => - GVariant -- value - -> m Icon -- result -iconDeserialize value = liftIO $ do - let value' = unsafeManagedPtrGetPtr value - result <- g_icon_deserialize value' - checkUnexpectedReturnNULL "g_icon_deserialize" result - result' <- (wrapObject Icon) result - return result' - --- method Icon::hash --- method type : MemberFunction --- Args : [Arg {argCName = "icon", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_icon_hash" g_icon_hash :: - Ptr () -> -- icon : TBasicType TPtr - IO Word32 - - -iconHash :: - (MonadIO m) => - Ptr () -- icon - -> m Word32 -- result -iconHash icon = liftIO $ do - result <- g_icon_hash icon - return result - --- method Icon::new_for_string --- method type : MemberFunction --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : True --- Skip return : False - -foreign import ccall "g_icon_new_for_string" g_icon_new_for_string :: - CString -> -- str : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr Icon) - - -iconNewForString :: - (MonadIO m) => - T.Text -- str - -> m Icon -- result -iconNewForString str = liftIO $ do - str' <- textToCString str - onException (do - result <- propagateGError $ g_icon_new_for_string str' - checkUnexpectedReturnNULL "g_icon_new_for_string" result - result' <- (wrapObject Icon) result - freeMem str' - return result' - ) (do - freeMem str' - ) - - diff --git a/GI/Gio/Interfaces/Icon.hs-boot b/GI/Gio/Interfaces/Icon.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/Icon.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gio.Interfaces.Icon where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Icon = Icon (ForeignPtr Icon) -instance GObject Icon where -class GObject o => IconK o -instance (GObject o, IsDescendantOf Icon o) => IconK o -data IconEqualMethodInfo -data IconSerializeMethodInfo -data IconToStringMethodInfo diff --git a/GI/Gio/Interfaces/Initable.hs b/GI/Gio/Interfaces/Initable.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/Initable.hs +++ /dev/null @@ -1,192 +0,0 @@ - - -{- | -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.Interfaces.Initable - ( - --- * Exported types - Initable(..) , - noInitable , - InitableK , - toInitable , - - - -- * Methods --- ** initableInit - InitableInitMethodInfo , - initableInit , - - --- ** initableNewv - initableNewv , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface Initable - -newtype Initable = Initable (ForeignPtr Initable) -noInitable :: Maybe Initable -noInitable = Nothing - -type family ResolveInitableMethod (t :: Symbol) (o :: *) :: * where - ResolveInitableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveInitableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveInitableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveInitableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveInitableMethod "init" o = InitableInitMethodInfo - ResolveInitableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveInitableMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveInitableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveInitableMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveInitableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveInitableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveInitableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveInitableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveInitableMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveInitableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveInitableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveInitableMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveInitableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveInitableMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveInitableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveInitableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveInitableMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveInitableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveInitableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveInitableMethod t Initable, MethodInfo info Initable p) => IsLabelProxy t (Initable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveInitableMethod t Initable, MethodInfo info Initable p) => IsLabel t (Initable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Initable = InitableAttributeList -type InitableAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Initable = InitableSignalList -type InitableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_initable_get_type" - c_g_initable_get_type :: IO GType - -type instance ParentTypes Initable = InitableParentTypes -type InitableParentTypes = '[GObject.Object] - -instance GObject Initable where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_initable_get_type - - -class GObject o => InitableK o -instance (GObject o, IsDescendantOf Initable o) => InitableK o - -toInitable :: InitableK o => o -> IO Initable -toInitable = unsafeCastTo Initable - --- method Initable::init --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Initable", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_initable_init" g_initable_init :: - Ptr Initable -> -- _obj : TInterface "Gio" "Initable" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -initableInit :: - (MonadIO m, InitableK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -initableInit _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_initable_init _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data InitableInitMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, InitableK a, CancellableK b) => MethodInfo InitableInitMethodInfo a signature where - overloadedMethod _ = initableInit - --- method Initable::newv --- method type : MemberFunction --- Args : [Arg {argCName = "object_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_parameters", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TCArray False (-1) 1 (TInterface "GObject" "Parameter"), 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 = "n_parameters", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TInterface "GObject" "Object") --- throws : True --- Skip return : False - -foreign import ccall "g_initable_newv" g_initable_newv :: - CGType -> -- object_type : TBasicType TGType - Word32 -> -- n_parameters : TBasicType TUInt - Ptr GObject.Parameter -> -- parameters : TCArray False (-1) 1 (TInterface "GObject" "Parameter") - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr GObject.Object) - - -initableNewv :: - (MonadIO m, CancellableK a) => - GType -- objectType - -> [GObject.Parameter] -- parameters - -> Maybe (a) -- cancellable - -> m GObject.Object -- result -initableNewv objectType parameters cancellable = liftIO $ do - let nParameters = fromIntegral $ length parameters - let objectType' = gtypeToCGType objectType - let parameters' = map unsafeManagedPtrGetPtr parameters - parameters'' <- packBlockArray 32 parameters' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_initable_newv objectType' nParameters parameters'' maybeCancellable - checkUnexpectedReturnNULL "g_initable_newv" result - result' <- (wrapObject GObject.Object) result - mapM_ touchManagedPtr parameters - whenJust cancellable touchManagedPtr - freeMem parameters'' - return result' - ) (do - freeMem parameters'' - ) - - diff --git a/GI/Gio/Interfaces/Initable.hs-boot b/GI/Gio/Interfaces/Initable.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/Initable.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gio.Interfaces.Initable where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Initable = Initable (ForeignPtr Initable) -instance GObject Initable where -class GObject o => InitableK o -instance (GObject o, IsDescendantOf Initable o) => InitableK o -data InitableInitMethodInfo diff --git a/GI/Gio/Interfaces/ListModel.hs b/GI/Gio/Interfaces/ListModel.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/ListModel.hs +++ /dev/null @@ -1,308 +0,0 @@ - - -{- | -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.Interfaces.ListModel - ( - --- * Exported types - ListModel(..) , - noListModel , - ListModelK , - toListModel , - - - -- * Methods --- ** listModelGetItem - ListModelGetItemMethodInfo , - listModelGetItem , - - --- ** listModelGetItemType - ListModelGetItemTypeMethodInfo , - listModelGetItemType , - - --- ** listModelGetNItems - ListModelGetNItemsMethodInfo , - listModelGetNItems , - - --- ** listModelItemsChanged - ListModelItemsChangedMethodInfo , - listModelItemsChanged , - - - - - -- * Signals --- ** ItemsChanged - ListModelItemsChangedCallback , - ListModelItemsChangedCallbackC , - ListModelItemsChangedSignalInfo , - afterListModelItemsChanged , - listModelItemsChangedCallbackWrapper , - listModelItemsChangedClosure , - mkListModelItemsChangedCallback , - noListModelItemsChangedCallback , - onListModelItemsChanged , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface ListModel - -newtype ListModel = ListModel (ForeignPtr ListModel) -noListModel :: Maybe ListModel -noListModel = Nothing - -type family ResolveListModelMethod (t :: Symbol) (o :: *) :: * where - ResolveListModelMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveListModelMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveListModelMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveListModelMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveListModelMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveListModelMethod "itemsChanged" o = ListModelItemsChangedMethodInfo - ResolveListModelMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveListModelMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveListModelMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveListModelMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveListModelMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveListModelMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveListModelMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveListModelMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveListModelMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveListModelMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveListModelMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveListModelMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveListModelMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveListModelMethod "getItem" o = ListModelGetItemMethodInfo - ResolveListModelMethod "getItemType" o = ListModelGetItemTypeMethodInfo - ResolveListModelMethod "getNItems" o = ListModelGetNItemsMethodInfo - ResolveListModelMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveListModelMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveListModelMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveListModelMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveListModelMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveListModelMethod t ListModel, MethodInfo info ListModel p) => IsLabelProxy t (ListModel -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveListModelMethod t ListModel, MethodInfo info ListModel p) => IsLabel t (ListModel -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ListModel::items-changed -type ListModelItemsChangedCallback = - Word32 -> - Word32 -> - Word32 -> - IO () - -noListModelItemsChangedCallback :: Maybe ListModelItemsChangedCallback -noListModelItemsChangedCallback = Nothing - -type ListModelItemsChangedCallbackC = - Ptr () -> -- object - Word32 -> - Word32 -> - Word32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkListModelItemsChangedCallback :: ListModelItemsChangedCallbackC -> IO (FunPtr ListModelItemsChangedCallbackC) - -listModelItemsChangedClosure :: ListModelItemsChangedCallback -> IO Closure -listModelItemsChangedClosure cb = newCClosure =<< mkListModelItemsChangedCallback wrapped - where wrapped = listModelItemsChangedCallbackWrapper cb - -listModelItemsChangedCallbackWrapper :: - ListModelItemsChangedCallback -> - Ptr () -> - Word32 -> - Word32 -> - Word32 -> - Ptr () -> - IO () -listModelItemsChangedCallbackWrapper _cb _ position removed added _ = do - _cb position removed added - -onListModelItemsChanged :: (GObject a, MonadIO m) => a -> ListModelItemsChangedCallback -> m SignalHandlerId -onListModelItemsChanged obj cb = liftIO $ connectListModelItemsChanged obj cb SignalConnectBefore -afterListModelItemsChanged :: (GObject a, MonadIO m) => a -> ListModelItemsChangedCallback -> m SignalHandlerId -afterListModelItemsChanged obj cb = connectListModelItemsChanged obj cb SignalConnectAfter - -connectListModelItemsChanged :: (GObject a, MonadIO m) => - a -> ListModelItemsChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectListModelItemsChanged obj cb after = liftIO $ do - cb' <- mkListModelItemsChangedCallback (listModelItemsChangedCallbackWrapper cb) - connectSignalFunPtr obj "items-changed" cb' after - -type instance AttributeList ListModel = ListModelAttributeList -type ListModelAttributeList = ('[ ] :: [(Symbol, *)]) - -data ListModelItemsChangedSignalInfo -instance SignalInfo ListModelItemsChangedSignalInfo where - type HaskellCallbackType ListModelItemsChangedSignalInfo = ListModelItemsChangedCallback - connectSignal _ = connectListModelItemsChanged - -type instance SignalList ListModel = ListModelSignalList -type ListModelSignalList = ('[ '("itemsChanged", ListModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_list_model_get_type" - c_g_list_model_get_type :: IO GType - -type instance ParentTypes ListModel = ListModelParentTypes -type ListModelParentTypes = '[GObject.Object] - -instance GObject ListModel where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_list_model_get_type - - -class GObject o => ListModelK o -instance (GObject o, IsDescendantOf ListModel o) => ListModelK o - -toListModel :: ListModelK o => o -> IO ListModel -toListModel = unsafeCastTo ListModel - --- method ListModel::get_item_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TGType) --- throws : False --- Skip return : False - -foreign import ccall "g_list_model_get_item_type" g_list_model_get_item_type :: - Ptr ListModel -> -- _obj : TInterface "Gio" "ListModel" - IO CGType - - -listModelGetItemType :: - (MonadIO m, ListModelK a) => - a -- _obj - -> m GType -- result -listModelGetItemType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_list_model_get_item_type _obj' - let result' = GType result - touchManagedPtr _obj - return result' - -data ListModelGetItemTypeMethodInfo -instance (signature ~ (m GType), MonadIO m, ListModelK a) => MethodInfo ListModelGetItemTypeMethodInfo a signature where - overloadedMethod _ = listModelGetItemType - --- method ListModel::get_n_items --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_list_model_get_n_items" g_list_model_get_n_items :: - Ptr ListModel -> -- _obj : TInterface "Gio" "ListModel" - IO Word32 - - -listModelGetNItems :: - (MonadIO m, ListModelK a) => - a -- _obj - -> m Word32 -- result -listModelGetNItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_list_model_get_n_items _obj' - touchManagedPtr _obj - return result - -data ListModelGetNItemsMethodInfo -instance (signature ~ (m Word32), MonadIO m, ListModelK a) => MethodInfo ListModelGetNItemsMethodInfo a signature where - overloadedMethod _ = listModelGetNItems - --- method ListModel::get_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GObject" "Object") --- throws : False --- Skip return : False - -foreign import ccall "g_list_model_get_object" g_list_model_get_object :: - Ptr ListModel -> -- _obj : TInterface "Gio" "ListModel" - Word32 -> -- position : TBasicType TUInt - IO (Ptr GObject.Object) - - -listModelGetItem :: - (MonadIO m, ListModelK a) => - a -- _obj - -> Word32 -- position - -> m (Maybe GObject.Object) -- result -listModelGetItem _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_list_model_get_object _obj' position - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject GObject.Object) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ListModelGetItemMethodInfo -instance (signature ~ (Word32 -> m (Maybe GObject.Object)), MonadIO m, ListModelK a) => MethodInfo ListModelGetItemMethodInfo a signature where - overloadedMethod _ = listModelGetItem - --- method ListModel::items_changed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "removed", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "added", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_list_model_items_changed" g_list_model_items_changed :: - Ptr ListModel -> -- _obj : TInterface "Gio" "ListModel" - Word32 -> -- position : TBasicType TUInt - Word32 -> -- removed : TBasicType TUInt - Word32 -> -- added : TBasicType TUInt - IO () - - -listModelItemsChanged :: - (MonadIO m, ListModelK a) => - a -- _obj - -> Word32 -- position - -> Word32 -- removed - -> Word32 -- added - -> m () -- result -listModelItemsChanged _obj position removed added = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_list_model_items_changed _obj' position removed added - touchManagedPtr _obj - return () - -data ListModelItemsChangedMethodInfo -instance (signature ~ (Word32 -> Word32 -> Word32 -> m ()), MonadIO m, ListModelK a) => MethodInfo ListModelItemsChangedMethodInfo a signature where - overloadedMethod _ = listModelItemsChanged - - diff --git a/GI/Gio/Interfaces/ListModel.hs-boot b/GI/Gio/Interfaces/ListModel.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/ListModel.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gio.Interfaces.ListModel where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ListModel = ListModel (ForeignPtr ListModel) -data ListModelItemsChangedSignalInfo -instance GObject ListModel where -class GObject o => ListModelK o -instance (GObject o, IsDescendantOf ListModel o) => ListModelK o -data ListModelGetItemTypeMethodInfo -data ListModelGetNItemsMethodInfo -data ListModelGetItemMethodInfo -data ListModelItemsChangedMethodInfo diff --git a/GI/Gio/Interfaces/LoadableIcon.hs b/GI/Gio/Interfaces/LoadableIcon.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/LoadableIcon.hs +++ /dev/null @@ -1,260 +0,0 @@ - - -{- | -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.Interfaces.LoadableIcon - ( - --- * Exported types - LoadableIcon(..) , - noLoadableIcon , - LoadableIconK , - toLoadableIcon , - - - -- * Methods --- ** loadableIconLoad - LoadableIconLoadMethodInfo , - loadableIconLoad , - - --- ** loadableIconLoadAsync - LoadableIconLoadAsyncMethodInfo , - loadableIconLoadAsync , - - --- ** loadableIconLoadFinish - LoadableIconLoadFinishMethodInfo , - loadableIconLoadFinish , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface LoadableIcon - -newtype LoadableIcon = LoadableIcon (ForeignPtr LoadableIcon) -noLoadableIcon :: Maybe LoadableIcon -noLoadableIcon = Nothing - -type family ResolveLoadableIconMethod (t :: Symbol) (o :: *) :: * where - ResolveLoadableIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveLoadableIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveLoadableIconMethod "equal" o = IconEqualMethodInfo - ResolveLoadableIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveLoadableIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveLoadableIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveLoadableIconMethod "load" o = LoadableIconLoadMethodInfo - ResolveLoadableIconMethod "loadAsync" o = LoadableIconLoadAsyncMethodInfo - ResolveLoadableIconMethod "loadFinish" o = LoadableIconLoadFinishMethodInfo - ResolveLoadableIconMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveLoadableIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveLoadableIconMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveLoadableIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveLoadableIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveLoadableIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveLoadableIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveLoadableIconMethod "serialize" o = IconSerializeMethodInfo - ResolveLoadableIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveLoadableIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveLoadableIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveLoadableIconMethod "toString" o = IconToStringMethodInfo - ResolveLoadableIconMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveLoadableIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveLoadableIconMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveLoadableIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveLoadableIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveLoadableIconMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveLoadableIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveLoadableIconMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveLoadableIconMethod t LoadableIcon, MethodInfo info LoadableIcon p) => IsLabelProxy t (LoadableIcon -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveLoadableIconMethod t LoadableIcon, MethodInfo info LoadableIcon p) => IsLabel t (LoadableIcon -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList LoadableIcon = LoadableIconAttributeList -type LoadableIconAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList LoadableIcon = LoadableIconSignalList -type LoadableIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_loadable_icon_get_type" - c_g_loadable_icon_get_type :: IO GType - -type instance ParentTypes LoadableIcon = LoadableIconParentTypes -type LoadableIconParentTypes = '[Icon, GObject.Object] - -instance GObject LoadableIcon where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_loadable_icon_get_type - - -class GObject o => LoadableIconK o -instance (GObject o, IsDescendantOf LoadableIcon o) => LoadableIconK o - -toLoadableIcon :: LoadableIconK o => o -> IO LoadableIcon -toLoadableIcon = unsafeCastTo LoadableIcon - --- method LoadableIcon::load --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "LoadableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, 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 : [] --- returnType : Just (TInterface "Gio" "InputStream") --- throws : True --- Skip return : False - -foreign import ccall "g_loadable_icon_load" g_loadable_icon_load :: - Ptr LoadableIcon -> -- _obj : TInterface "Gio" "LoadableIcon" - Int32 -> -- size : TBasicType TInt - Ptr CString -> -- type : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr InputStream) - - -loadableIconLoad :: - (MonadIO m, LoadableIconK a, CancellableK b) => - a -- _obj - -> Int32 -- size - -> Maybe (b) -- cancellable - -> m (InputStream,T.Text) -- result -loadableIconLoad _obj size cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - type_ <- allocMem :: IO (Ptr CString) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_loadable_icon_load _obj' size type_ maybeCancellable - checkUnexpectedReturnNULL "g_loadable_icon_load" result - result' <- (wrapObject InputStream) result - type_' <- peek type_ - type_'' <- cstringToText type_' - freeMem type_' - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem type_ - return (result', type_'') - ) (do - freeMem type_ - ) - -data LoadableIconLoadMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> m (InputStream,T.Text)), MonadIO m, LoadableIconK a, CancellableK b) => MethodInfo LoadableIconLoadMethodInfo a signature where - overloadedMethod _ = loadableIconLoad - --- method LoadableIcon::load_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "LoadableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt, 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_loadable_icon_load_async" g_loadable_icon_load_async :: - Ptr LoadableIcon -> -- _obj : TInterface "Gio" "LoadableIcon" - Int32 -> -- size : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -loadableIconLoadAsync :: - (MonadIO m, LoadableIconK a, CancellableK b) => - a -- _obj - -> Int32 -- size - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -loadableIconLoadAsync _obj size cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_loadable_icon_load_async _obj' size maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data LoadableIconLoadAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, LoadableIconK a, CancellableK b) => MethodInfo LoadableIconLoadAsyncMethodInfo a signature where - overloadedMethod _ = loadableIconLoadAsync - --- method LoadableIcon::load_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "LoadableIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InputStream") --- throws : True --- Skip return : False - -foreign import ccall "g_loadable_icon_load_finish" g_loadable_icon_load_finish :: - Ptr LoadableIcon -> -- _obj : TInterface "Gio" "LoadableIcon" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr CString -> -- type : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr InputStream) - - -loadableIconLoadFinish :: - (MonadIO m, LoadableIconK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m (InputStream,T.Text) -- result -loadableIconLoadFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - type_ <- allocMem :: IO (Ptr CString) - onException (do - result <- propagateGError $ g_loadable_icon_load_finish _obj' res' type_ - checkUnexpectedReturnNULL "g_loadable_icon_load_finish" result - result' <- (wrapObject InputStream) result - type_' <- peek type_ - type_'' <- cstringToText type_' - freeMem type_' - touchManagedPtr _obj - touchManagedPtr res - freeMem type_ - return (result', type_'') - ) (do - freeMem type_ - ) - -data LoadableIconLoadFinishMethodInfo -instance (signature ~ (b -> m (InputStream,T.Text)), MonadIO m, LoadableIconK a, AsyncResultK b) => MethodInfo LoadableIconLoadFinishMethodInfo a signature where - overloadedMethod _ = loadableIconLoadFinish - - diff --git a/GI/Gio/Interfaces/LoadableIcon.hs-boot b/GI/Gio/Interfaces/LoadableIcon.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/LoadableIcon.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gio.Interfaces.LoadableIcon where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype LoadableIcon = LoadableIcon (ForeignPtr LoadableIcon) -instance GObject LoadableIcon where -class GObject o => LoadableIconK o -instance (GObject o, IsDescendantOf LoadableIcon o) => LoadableIconK o -data LoadableIconLoadMethodInfo -data LoadableIconLoadAsyncMethodInfo -data LoadableIconLoadFinishMethodInfo diff --git a/GI/Gio/Interfaces/Mount.hs b/GI/Gio/Interfaces/Mount.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/Mount.hs +++ /dev/null @@ -1,1413 +0,0 @@ - - -{- | -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.Interfaces.Mount - ( - --- * Exported types - Mount(..) , - noMount , - MountK , - toMount , - - - -- * Methods --- ** mountCanEject - MountCanEjectMethodInfo , - mountCanEject , - - --- ** mountCanUnmount - MountCanUnmountMethodInfo , - mountCanUnmount , - - --- ** mountEject - MountEjectMethodInfo , - mountEject , - - --- ** mountEjectFinish - MountEjectFinishMethodInfo , - mountEjectFinish , - - --- ** mountEjectWithOperation - MountEjectWithOperationMethodInfo , - mountEjectWithOperation , - - --- ** mountEjectWithOperationFinish - MountEjectWithOperationFinishMethodInfo , - mountEjectWithOperationFinish , - - --- ** mountGetDefaultLocation - MountGetDefaultLocationMethodInfo , - mountGetDefaultLocation , - - --- ** mountGetDrive - MountGetDriveMethodInfo , - mountGetDrive , - - --- ** mountGetIcon - MountGetIconMethodInfo , - mountGetIcon , - - --- ** mountGetName - MountGetNameMethodInfo , - mountGetName , - - --- ** mountGetRoot - MountGetRootMethodInfo , - mountGetRoot , - - --- ** mountGetSortKey - MountGetSortKeyMethodInfo , - mountGetSortKey , - - --- ** mountGetSymbolicIcon - MountGetSymbolicIconMethodInfo , - mountGetSymbolicIcon , - - --- ** mountGetUuid - MountGetUuidMethodInfo , - mountGetUuid , - - --- ** mountGetVolume - MountGetVolumeMethodInfo , - mountGetVolume , - - --- ** mountGuessContentType - MountGuessContentTypeMethodInfo , - mountGuessContentType , - - --- ** mountGuessContentTypeFinish - MountGuessContentTypeFinishMethodInfo , - mountGuessContentTypeFinish , - - --- ** mountGuessContentTypeSync - MountGuessContentTypeSyncMethodInfo , - mountGuessContentTypeSync , - - --- ** mountIsShadowed - MountIsShadowedMethodInfo , - mountIsShadowed , - - --- ** mountRemount - MountRemountMethodInfo , - mountRemount , - - --- ** mountRemountFinish - MountRemountFinishMethodInfo , - mountRemountFinish , - - --- ** mountShadow - MountShadowMethodInfo , - mountShadow , - - --- ** mountUnmount - MountUnmountMethodInfo , - mountUnmount , - - --- ** mountUnmountFinish - MountUnmountFinishMethodInfo , - mountUnmountFinish , - - --- ** mountUnmountWithOperation - MountUnmountWithOperationMethodInfo , - mountUnmountWithOperation , - - --- ** mountUnmountWithOperationFinish - MountUnmountWithOperationFinishMethodInfo, - mountUnmountWithOperationFinish , - - --- ** mountUnshadow - MountUnshadowMethodInfo , - mountUnshadow , - - - - - -- * Signals --- ** Changed - MountChangedCallback , - MountChangedCallbackC , - MountChangedSignalInfo , - afterMountChanged , - mkMountChangedCallback , - mountChangedCallbackWrapper , - mountChangedClosure , - noMountChangedCallback , - onMountChanged , - - --- ** PreUnmount - MountPreUnmountCallback , - MountPreUnmountCallbackC , - MountPreUnmountSignalInfo , - afterMountPreUnmount , - mkMountPreUnmountCallback , - mountPreUnmountCallbackWrapper , - mountPreUnmountClosure , - noMountPreUnmountCallback , - onMountPreUnmount , - - --- ** Unmounted - MountUnmountedCallback , - MountUnmountedCallbackC , - MountUnmountedSignalInfo , - afterMountUnmounted , - mkMountUnmountedCallback , - mountUnmountedCallbackWrapper , - mountUnmountedClosure , - noMountUnmountedCallback , - onMountUnmounted , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface Mount - -newtype Mount = Mount (ForeignPtr Mount) -noMount :: Maybe Mount -noMount = Nothing - -type family ResolveMountMethod (t :: Symbol) (o :: *) :: * where - ResolveMountMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMountMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMountMethod "canEject" o = MountCanEjectMethodInfo - ResolveMountMethod "canUnmount" o = MountCanUnmountMethodInfo - ResolveMountMethod "eject" o = MountEjectMethodInfo - ResolveMountMethod "ejectFinish" o = MountEjectFinishMethodInfo - ResolveMountMethod "ejectWithOperation" o = MountEjectWithOperationMethodInfo - ResolveMountMethod "ejectWithOperationFinish" o = MountEjectWithOperationFinishMethodInfo - ResolveMountMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMountMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMountMethod "guessContentType" o = MountGuessContentTypeMethodInfo - ResolveMountMethod "guessContentTypeFinish" o = MountGuessContentTypeFinishMethodInfo - ResolveMountMethod "guessContentTypeSync" o = MountGuessContentTypeSyncMethodInfo - ResolveMountMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMountMethod "isShadowed" o = MountIsShadowedMethodInfo - ResolveMountMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMountMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMountMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMountMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMountMethod "remount" o = MountRemountMethodInfo - ResolveMountMethod "remountFinish" o = MountRemountFinishMethodInfo - ResolveMountMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMountMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMountMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMountMethod "shadow" o = MountShadowMethodInfo - ResolveMountMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMountMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMountMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMountMethod "unmount" o = MountUnmountMethodInfo - ResolveMountMethod "unmountFinish" o = MountUnmountFinishMethodInfo - ResolveMountMethod "unmountWithOperation" o = MountUnmountWithOperationMethodInfo - ResolveMountMethod "unmountWithOperationFinish" o = MountUnmountWithOperationFinishMethodInfo - ResolveMountMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMountMethod "unshadow" o = MountUnshadowMethodInfo - ResolveMountMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMountMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMountMethod "getDefaultLocation" o = MountGetDefaultLocationMethodInfo - ResolveMountMethod "getDrive" o = MountGetDriveMethodInfo - ResolveMountMethod "getIcon" o = MountGetIconMethodInfo - ResolveMountMethod "getName" o = MountGetNameMethodInfo - ResolveMountMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMountMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMountMethod "getRoot" o = MountGetRootMethodInfo - ResolveMountMethod "getSortKey" o = MountGetSortKeyMethodInfo - ResolveMountMethod "getSymbolicIcon" o = MountGetSymbolicIconMethodInfo - ResolveMountMethod "getUuid" o = MountGetUuidMethodInfo - ResolveMountMethod "getVolume" o = MountGetVolumeMethodInfo - ResolveMountMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMountMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMountMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMountMethod t Mount, MethodInfo info Mount p) => IsLabelProxy t (Mount -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMountMethod t Mount, MethodInfo info Mount p) => IsLabel t (Mount -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Mount::changed -type MountChangedCallback = - IO () - -noMountChangedCallback :: Maybe MountChangedCallback -noMountChangedCallback = Nothing - -type MountChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMountChangedCallback :: MountChangedCallbackC -> IO (FunPtr MountChangedCallbackC) - -mountChangedClosure :: MountChangedCallback -> IO Closure -mountChangedClosure cb = newCClosure =<< mkMountChangedCallback wrapped - where wrapped = mountChangedCallbackWrapper cb - -mountChangedCallbackWrapper :: - MountChangedCallback -> - Ptr () -> - Ptr () -> - IO () -mountChangedCallbackWrapper _cb _ _ = do - _cb - -onMountChanged :: (GObject a, MonadIO m) => a -> MountChangedCallback -> m SignalHandlerId -onMountChanged obj cb = liftIO $ connectMountChanged obj cb SignalConnectBefore -afterMountChanged :: (GObject a, MonadIO m) => a -> MountChangedCallback -> m SignalHandlerId -afterMountChanged obj cb = connectMountChanged obj cb SignalConnectAfter - -connectMountChanged :: (GObject a, MonadIO m) => - a -> MountChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectMountChanged obj cb after = liftIO $ do - cb' <- mkMountChangedCallback (mountChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- signal Mount::pre-unmount -type MountPreUnmountCallback = - IO () - -noMountPreUnmountCallback :: Maybe MountPreUnmountCallback -noMountPreUnmountCallback = Nothing - -type MountPreUnmountCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMountPreUnmountCallback :: MountPreUnmountCallbackC -> IO (FunPtr MountPreUnmountCallbackC) - -mountPreUnmountClosure :: MountPreUnmountCallback -> IO Closure -mountPreUnmountClosure cb = newCClosure =<< mkMountPreUnmountCallback wrapped - where wrapped = mountPreUnmountCallbackWrapper cb - -mountPreUnmountCallbackWrapper :: - MountPreUnmountCallback -> - Ptr () -> - Ptr () -> - IO () -mountPreUnmountCallbackWrapper _cb _ _ = do - _cb - -onMountPreUnmount :: (GObject a, MonadIO m) => a -> MountPreUnmountCallback -> m SignalHandlerId -onMountPreUnmount obj cb = liftIO $ connectMountPreUnmount obj cb SignalConnectBefore -afterMountPreUnmount :: (GObject a, MonadIO m) => a -> MountPreUnmountCallback -> m SignalHandlerId -afterMountPreUnmount obj cb = connectMountPreUnmount obj cb SignalConnectAfter - -connectMountPreUnmount :: (GObject a, MonadIO m) => - a -> MountPreUnmountCallback -> SignalConnectMode -> m SignalHandlerId -connectMountPreUnmount obj cb after = liftIO $ do - cb' <- mkMountPreUnmountCallback (mountPreUnmountCallbackWrapper cb) - connectSignalFunPtr obj "pre-unmount" cb' after - --- signal Mount::unmounted -type MountUnmountedCallback = - IO () - -noMountUnmountedCallback :: Maybe MountUnmountedCallback -noMountUnmountedCallback = Nothing - -type MountUnmountedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMountUnmountedCallback :: MountUnmountedCallbackC -> IO (FunPtr MountUnmountedCallbackC) - -mountUnmountedClosure :: MountUnmountedCallback -> IO Closure -mountUnmountedClosure cb = newCClosure =<< mkMountUnmountedCallback wrapped - where wrapped = mountUnmountedCallbackWrapper cb - -mountUnmountedCallbackWrapper :: - MountUnmountedCallback -> - Ptr () -> - Ptr () -> - IO () -mountUnmountedCallbackWrapper _cb _ _ = do - _cb - -onMountUnmounted :: (GObject a, MonadIO m) => a -> MountUnmountedCallback -> m SignalHandlerId -onMountUnmounted obj cb = liftIO $ connectMountUnmounted obj cb SignalConnectBefore -afterMountUnmounted :: (GObject a, MonadIO m) => a -> MountUnmountedCallback -> m SignalHandlerId -afterMountUnmounted obj cb = connectMountUnmounted obj cb SignalConnectAfter - -connectMountUnmounted :: (GObject a, MonadIO m) => - a -> MountUnmountedCallback -> SignalConnectMode -> m SignalHandlerId -connectMountUnmounted obj cb after = liftIO $ do - cb' <- mkMountUnmountedCallback (mountUnmountedCallbackWrapper cb) - connectSignalFunPtr obj "unmounted" cb' after - -type instance AttributeList Mount = MountAttributeList -type MountAttributeList = ('[ ] :: [(Symbol, *)]) - -data MountChangedSignalInfo -instance SignalInfo MountChangedSignalInfo where - type HaskellCallbackType MountChangedSignalInfo = MountChangedCallback - connectSignal _ = connectMountChanged - -data MountPreUnmountSignalInfo -instance SignalInfo MountPreUnmountSignalInfo where - type HaskellCallbackType MountPreUnmountSignalInfo = MountPreUnmountCallback - connectSignal _ = connectMountPreUnmount - -data MountUnmountedSignalInfo -instance SignalInfo MountUnmountedSignalInfo where - type HaskellCallbackType MountUnmountedSignalInfo = MountUnmountedCallback - connectSignal _ = connectMountUnmounted - -type instance SignalList Mount = MountSignalList -type MountSignalList = ('[ '("changed", MountChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("preUnmount", MountPreUnmountSignalInfo), '("unmounted", MountUnmountedSignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_mount_get_type" - c_g_mount_get_type :: IO GType - -type instance ParentTypes Mount = MountParentTypes -type MountParentTypes = '[GObject.Object] - -instance GObject Mount where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_mount_get_type - - -class GObject o => MountK o -instance (GObject o, IsDescendantOf Mount o) => MountK o - -toMount :: MountK o => o -> IO Mount -toMount = unsafeCastTo Mount - --- method Mount::can_eject --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_mount_can_eject" g_mount_can_eject :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - IO CInt - - -mountCanEject :: - (MonadIO m, MountK a) => - a -- _obj - -> m Bool -- result -mountCanEject _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_can_eject _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MountCanEjectMethodInfo -instance (signature ~ (m Bool), MonadIO m, MountK a) => MethodInfo MountCanEjectMethodInfo a signature where - overloadedMethod _ = mountCanEject - --- method Mount::can_unmount --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_mount_can_unmount" g_mount_can_unmount :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - IO CInt - - -mountCanUnmount :: - (MonadIO m, MountK a) => - a -- _obj - -> m Bool -- result -mountCanUnmount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_can_unmount _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MountCanUnmountMethodInfo -instance (signature ~ (m Bool), MonadIO m, MountK a) => MethodInfo MountCanUnmountMethodInfo a signature where - overloadedMethod _ = mountCanUnmount - --- method Mount::eject --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_mount_eject" g_mount_eject :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - CUInt -> -- flags : TInterface "Gio" "MountUnmountFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - -{-# DEPRECATED mountEject ["(Since version 2.22)","Use g_mount_eject_with_operation() instead."]#-} -mountEject :: - (MonadIO m, MountK a, CancellableK b) => - a -- _obj - -> [MountUnmountFlags] -- flags - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -mountEject _obj flags cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - 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_mount_eject _obj' flags' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data MountEjectMethodInfo -instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, MountK a, CancellableK b) => MethodInfo MountEjectMethodInfo a signature where - overloadedMethod _ = mountEject - --- method Mount::eject_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_mount_eject_finish" g_mount_eject_finish :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - -{-# DEPRECATED mountEjectFinish ["(Since version 2.22)","Use g_mount_eject_with_operation_finish() instead."]#-} -mountEjectFinish :: - (MonadIO m, MountK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -mountEjectFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_mount_eject_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data MountEjectFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, MountK a, AsyncResultK b) => MethodInfo MountEjectFinishMethodInfo a signature where - overloadedMethod _ = mountEjectFinish - --- method Mount::eject_with_operation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_mount_eject_with_operation" g_mount_eject_with_operation :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - CUInt -> -- flags : TInterface "Gio" "MountUnmountFlags" - Ptr MountOperation -> -- mount_operation : TInterface "Gio" "MountOperation" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -mountEjectWithOperation :: - (MonadIO m, MountK a, MountOperationK b, CancellableK c) => - a -- _obj - -> [MountUnmountFlags] -- flags - -> Maybe (b) -- mountOperation - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -mountEjectWithOperation _obj flags mountOperation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMountOperation <- case mountOperation of - Nothing -> return nullPtr - Just jMountOperation -> do - let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation - return jMountOperation' - 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_mount_eject_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust mountOperation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data MountEjectWithOperationMethodInfo -instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, MountK a, MountOperationK b, CancellableK c) => MethodInfo MountEjectWithOperationMethodInfo a signature where - overloadedMethod _ = mountEjectWithOperation - --- method Mount::eject_with_operation_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_mount_eject_with_operation_finish" g_mount_eject_with_operation_finish :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -mountEjectWithOperationFinish :: - (MonadIO m, MountK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -mountEjectWithOperationFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_mount_eject_with_operation_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data MountEjectWithOperationFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, MountK a, AsyncResultK b) => MethodInfo MountEjectWithOperationFinishMethodInfo a signature where - overloadedMethod _ = mountEjectWithOperationFinish - --- method Mount::get_default_location --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_mount_get_default_location" g_mount_get_default_location :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - IO (Ptr File) - - -mountGetDefaultLocation :: - (MonadIO m, MountK a) => - a -- _obj - -> m File -- result -mountGetDefaultLocation _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_get_default_location _obj' - checkUnexpectedReturnNULL "g_mount_get_default_location" result - result' <- (wrapObject File) result - touchManagedPtr _obj - return result' - -data MountGetDefaultLocationMethodInfo -instance (signature ~ (m File), MonadIO m, MountK a) => MethodInfo MountGetDefaultLocationMethodInfo a signature where - overloadedMethod _ = mountGetDefaultLocation - --- method Mount::get_drive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Drive") --- throws : False --- Skip return : False - -foreign import ccall "g_mount_get_drive" g_mount_get_drive :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - IO (Ptr Drive) - - -mountGetDrive :: - (MonadIO m, MountK a) => - a -- _obj - -> m Drive -- result -mountGetDrive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_get_drive _obj' - checkUnexpectedReturnNULL "g_mount_get_drive" result - result' <- (wrapObject Drive) result - touchManagedPtr _obj - return result' - -data MountGetDriveMethodInfo -instance (signature ~ (m Drive), MonadIO m, MountK a) => MethodInfo MountGetDriveMethodInfo a signature where - overloadedMethod _ = mountGetDrive - --- method Mount::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "g_mount_get_icon" g_mount_get_icon :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - IO (Ptr Icon) - - -mountGetIcon :: - (MonadIO m, MountK a) => - a -- _obj - -> m Icon -- result -mountGetIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_get_icon _obj' - checkUnexpectedReturnNULL "g_mount_get_icon" result - result' <- (wrapObject Icon) result - touchManagedPtr _obj - return result' - -data MountGetIconMethodInfo -instance (signature ~ (m Icon), MonadIO m, MountK a) => MethodInfo MountGetIconMethodInfo a signature where - overloadedMethod _ = mountGetIcon - --- method Mount::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_mount_get_name" g_mount_get_name :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - IO CString - - -mountGetName :: - (MonadIO m, MountK a) => - a -- _obj - -> m T.Text -- result -mountGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_get_name _obj' - checkUnexpectedReturnNULL "g_mount_get_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data MountGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, MountK a) => MethodInfo MountGetNameMethodInfo a signature where - overloadedMethod _ = mountGetName - --- method Mount::get_root --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_mount_get_root" g_mount_get_root :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - IO (Ptr File) - - -mountGetRoot :: - (MonadIO m, MountK a) => - a -- _obj - -> m File -- result -mountGetRoot _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_get_root _obj' - checkUnexpectedReturnNULL "g_mount_get_root" result - result' <- (wrapObject File) result - touchManagedPtr _obj - return result' - -data MountGetRootMethodInfo -instance (signature ~ (m File), MonadIO m, MountK a) => MethodInfo MountGetRootMethodInfo a signature where - overloadedMethod _ = mountGetRoot - --- method Mount::get_sort_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_mount_get_sort_key" g_mount_get_sort_key :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - IO CString - - -mountGetSortKey :: - (MonadIO m, MountK a) => - a -- _obj - -> m T.Text -- result -mountGetSortKey _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_get_sort_key _obj' - checkUnexpectedReturnNULL "g_mount_get_sort_key" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data MountGetSortKeyMethodInfo -instance (signature ~ (m T.Text), MonadIO m, MountK a) => MethodInfo MountGetSortKeyMethodInfo a signature where - overloadedMethod _ = mountGetSortKey - --- method Mount::get_symbolic_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "g_mount_get_symbolic_icon" g_mount_get_symbolic_icon :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - IO (Ptr Icon) - - -mountGetSymbolicIcon :: - (MonadIO m, MountK a) => - a -- _obj - -> m Icon -- result -mountGetSymbolicIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_get_symbolic_icon _obj' - checkUnexpectedReturnNULL "g_mount_get_symbolic_icon" result - result' <- (wrapObject Icon) result - touchManagedPtr _obj - return result' - -data MountGetSymbolicIconMethodInfo -instance (signature ~ (m Icon), MonadIO m, MountK a) => MethodInfo MountGetSymbolicIconMethodInfo a signature where - overloadedMethod _ = mountGetSymbolicIcon - --- method Mount::get_uuid --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_mount_get_uuid" g_mount_get_uuid :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - IO CString - - -mountGetUuid :: - (MonadIO m, MountK a) => - a -- _obj - -> m T.Text -- result -mountGetUuid _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_get_uuid _obj' - checkUnexpectedReturnNULL "g_mount_get_uuid" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data MountGetUuidMethodInfo -instance (signature ~ (m T.Text), MonadIO m, MountK a) => MethodInfo MountGetUuidMethodInfo a signature where - overloadedMethod _ = mountGetUuid - --- method Mount::get_volume --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Volume") --- throws : False --- Skip return : False - -foreign import ccall "g_mount_get_volume" g_mount_get_volume :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - IO (Ptr Volume) - - -mountGetVolume :: - (MonadIO m, MountK a) => - a -- _obj - -> m Volume -- result -mountGetVolume _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_get_volume _obj' - checkUnexpectedReturnNULL "g_mount_get_volume" result - result' <- (wrapObject Volume) result - touchManagedPtr _obj - return result' - -data MountGetVolumeMethodInfo -instance (signature ~ (m Volume), MonadIO m, MountK a) => MethodInfo MountGetVolumeMethodInfo a signature where - overloadedMethod _ = mountGetVolume - --- method Mount::guess_content_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force_rescan", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_mount_guess_content_type" g_mount_guess_content_type :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - CInt -> -- force_rescan : TBasicType TBoolean - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -mountGuessContentType :: - (MonadIO m, MountK a, CancellableK b) => - a -- _obj - -> Bool -- forceRescan - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -mountGuessContentType _obj forceRescan cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let forceRescan' = (fromIntegral . fromEnum) forceRescan - 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_mount_guess_content_type _obj' forceRescan' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data MountGuessContentTypeMethodInfo -instance (signature ~ (Bool -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, MountK a, CancellableK b) => MethodInfo MountGuessContentTypeMethodInfo a signature where - overloadedMethod _ = mountGuessContentType - --- method Mount::guess_content_type_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : True --- Skip return : False - -foreign import ccall "g_mount_guess_content_type_finish" g_mount_guess_content_type_finish :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr CString) - - -mountGuessContentTypeFinish :: - (MonadIO m, MountK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m [T.Text] -- result -mountGuessContentTypeFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_mount_guess_content_type_finish _obj' result_' - checkUnexpectedReturnNULL "g_mount_guess_content_type_finish" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data MountGuessContentTypeFinishMethodInfo -instance (signature ~ (b -> m [T.Text]), MonadIO m, MountK a, AsyncResultK b) => MethodInfo MountGuessContentTypeFinishMethodInfo a signature where - overloadedMethod _ = mountGuessContentTypeFinish - --- method Mount::guess_content_type_sync --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "force_rescan", 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 : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : True --- Skip return : False - -foreign import ccall "g_mount_guess_content_type_sync" g_mount_guess_content_type_sync :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - CInt -> -- force_rescan : TBasicType TBoolean - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr CString) - - -mountGuessContentTypeSync :: - (MonadIO m, MountK a, CancellableK b) => - a -- _obj - -> Bool -- forceRescan - -> Maybe (b) -- cancellable - -> m [T.Text] -- result -mountGuessContentTypeSync _obj forceRescan cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let forceRescan' = (fromIntegral . fromEnum) forceRescan - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_mount_guess_content_type_sync _obj' forceRescan' maybeCancellable - checkUnexpectedReturnNULL "g_mount_guess_content_type_sync" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data MountGuessContentTypeSyncMethodInfo -instance (signature ~ (Bool -> Maybe (b) -> m [T.Text]), MonadIO m, MountK a, CancellableK b) => MethodInfo MountGuessContentTypeSyncMethodInfo a signature where - overloadedMethod _ = mountGuessContentTypeSync - --- method Mount::is_shadowed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_mount_is_shadowed" g_mount_is_shadowed :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - IO CInt - - -mountIsShadowed :: - (MonadIO m, MountK a) => - a -- _obj - -> m Bool -- result -mountIsShadowed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_is_shadowed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MountIsShadowedMethodInfo -instance (signature ~ (m Bool), MonadIO m, MountK a) => MethodInfo MountIsShadowedMethodInfo a signature where - overloadedMethod _ = mountIsShadowed - --- method Mount::remount --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_mount_remount" g_mount_remount :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - CUInt -> -- flags : TInterface "Gio" "MountMountFlags" - Ptr MountOperation -> -- mount_operation : TInterface "Gio" "MountOperation" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -mountRemount :: - (MonadIO m, MountK a, MountOperationK b, CancellableK c) => - a -- _obj - -> [MountMountFlags] -- flags - -> Maybe (b) -- mountOperation - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -mountRemount _obj flags mountOperation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMountOperation <- case mountOperation of - Nothing -> return nullPtr - Just jMountOperation -> do - let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation - return jMountOperation' - 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_mount_remount _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust mountOperation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data MountRemountMethodInfo -instance (signature ~ ([MountMountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, MountK a, MountOperationK b, CancellableK c) => MethodInfo MountRemountMethodInfo a signature where - overloadedMethod _ = mountRemount - --- method Mount::remount_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_mount_remount_finish" g_mount_remount_finish :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -mountRemountFinish :: - (MonadIO m, MountK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -mountRemountFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_mount_remount_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data MountRemountFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, MountK a, AsyncResultK b) => MethodInfo MountRemountFinishMethodInfo a signature where - overloadedMethod _ = mountRemountFinish - --- method Mount::shadow --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_mount_shadow" g_mount_shadow :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - IO () - - -mountShadow :: - (MonadIO m, MountK a) => - a -- _obj - -> m () -- result -mountShadow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_mount_shadow _obj' - touchManagedPtr _obj - return () - -data MountShadowMethodInfo -instance (signature ~ (m ()), MonadIO m, MountK a) => MethodInfo MountShadowMethodInfo a signature where - overloadedMethod _ = mountShadow - --- method Mount::unmount --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_mount_unmount" g_mount_unmount :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - CUInt -> -- flags : TInterface "Gio" "MountUnmountFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - -{-# DEPRECATED mountUnmount ["(Since version 2.22)","Use g_mount_unmount_with_operation() instead."]#-} -mountUnmount :: - (MonadIO m, MountK a, CancellableK b) => - a -- _obj - -> [MountUnmountFlags] -- flags - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -mountUnmount _obj flags cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - 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_mount_unmount _obj' flags' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data MountUnmountMethodInfo -instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, MountK a, CancellableK b) => MethodInfo MountUnmountMethodInfo a signature where - overloadedMethod _ = mountUnmount - --- method Mount::unmount_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_mount_unmount_finish" g_mount_unmount_finish :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - -{-# DEPRECATED mountUnmountFinish ["(Since version 2.22)","Use g_mount_unmount_with_operation_finish() instead."]#-} -mountUnmountFinish :: - (MonadIO m, MountK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -mountUnmountFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_mount_unmount_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data MountUnmountFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, MountK a, AsyncResultK b) => MethodInfo MountUnmountFinishMethodInfo a signature where - overloadedMethod _ = mountUnmountFinish - --- method Mount::unmount_with_operation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_mount_unmount_with_operation" g_mount_unmount_with_operation :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - CUInt -> -- flags : TInterface "Gio" "MountUnmountFlags" - Ptr MountOperation -> -- mount_operation : TInterface "Gio" "MountOperation" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -mountUnmountWithOperation :: - (MonadIO m, MountK a, MountOperationK b, CancellableK c) => - a -- _obj - -> [MountUnmountFlags] -- flags - -> Maybe (b) -- mountOperation - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -mountUnmountWithOperation _obj flags mountOperation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMountOperation <- case mountOperation of - Nothing -> return nullPtr - Just jMountOperation -> do - let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation - return jMountOperation' - 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_mount_unmount_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust mountOperation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data MountUnmountWithOperationMethodInfo -instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, MountK a, MountOperationK b, CancellableK c) => MethodInfo MountUnmountWithOperationMethodInfo a signature where - overloadedMethod _ = mountUnmountWithOperation - --- method Mount::unmount_with_operation_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_mount_unmount_with_operation_finish" g_mount_unmount_with_operation_finish :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -mountUnmountWithOperationFinish :: - (MonadIO m, MountK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -mountUnmountWithOperationFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_mount_unmount_with_operation_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data MountUnmountWithOperationFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, MountK a, AsyncResultK b) => MethodInfo MountUnmountWithOperationFinishMethodInfo a signature where - overloadedMethod _ = mountUnmountWithOperationFinish - --- method Mount::unshadow --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_mount_unshadow" g_mount_unshadow :: - Ptr Mount -> -- _obj : TInterface "Gio" "Mount" - IO () - - -mountUnshadow :: - (MonadIO m, MountK a) => - a -- _obj - -> m () -- result -mountUnshadow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_mount_unshadow _obj' - touchManagedPtr _obj - return () - -data MountUnshadowMethodInfo -instance (signature ~ (m ()), MonadIO m, MountK a) => MethodInfo MountUnshadowMethodInfo a signature where - overloadedMethod _ = mountUnshadow - - diff --git a/GI/Gio/Interfaces/Mount.hs-boot b/GI/Gio/Interfaces/Mount.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/Mount.hs-boot +++ /dev/null @@ -1,43 +0,0 @@ -module GI.Gio.Interfaces.Mount where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Mount = Mount (ForeignPtr Mount) -data MountChangedSignalInfo -data MountPreUnmountSignalInfo -data MountUnmountedSignalInfo -instance GObject Mount where -class GObject o => MountK o -instance (GObject o, IsDescendantOf Mount o) => MountK o -data MountCanEjectMethodInfo -data MountCanUnmountMethodInfo -data MountEjectMethodInfo -data MountEjectFinishMethodInfo -data MountEjectWithOperationMethodInfo -data MountEjectWithOperationFinishMethodInfo -data MountGetDefaultLocationMethodInfo -data MountGetDriveMethodInfo -data MountGetIconMethodInfo -data MountGetNameMethodInfo -data MountGetRootMethodInfo -data MountGetSortKeyMethodInfo -data MountGetSymbolicIconMethodInfo -data MountGetUuidMethodInfo -data MountGetVolumeMethodInfo -data MountGuessContentTypeMethodInfo -data MountGuessContentTypeFinishMethodInfo -data MountGuessContentTypeSyncMethodInfo -data MountIsShadowedMethodInfo -data MountRemountMethodInfo -data MountRemountFinishMethodInfo -data MountShadowMethodInfo -data MountUnmountMethodInfo -data MountUnmountFinishMethodInfo -data MountUnmountWithOperationMethodInfo -data MountUnmountWithOperationFinishMethodInfo -data MountUnshadowMethodInfo diff --git a/GI/Gio/Interfaces/NetworkMonitor.hs b/GI/Gio/Interfaces/NetworkMonitor.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/NetworkMonitor.hs +++ /dev/null @@ -1,525 +0,0 @@ - - -{- | -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.Interfaces.NetworkMonitor - ( - --- * Exported types - NetworkMonitor(..) , - noNetworkMonitor , - NetworkMonitorK , - toNetworkMonitor , - - - -- * Methods --- ** networkMonitorCanReach - NetworkMonitorCanReachMethodInfo , - networkMonitorCanReach , - - --- ** networkMonitorCanReachAsync - NetworkMonitorCanReachAsyncMethodInfo , - networkMonitorCanReachAsync , - - --- ** networkMonitorCanReachFinish - NetworkMonitorCanReachFinishMethodInfo , - networkMonitorCanReachFinish , - - --- ** networkMonitorGetConnectivity - NetworkMonitorGetConnectivityMethodInfo , - networkMonitorGetConnectivity , - - --- ** networkMonitorGetDefault - networkMonitorGetDefault , - - --- ** networkMonitorGetNetworkAvailable - NetworkMonitorGetNetworkAvailableMethodInfo, - networkMonitorGetNetworkAvailable , - - --- ** networkMonitorGetNetworkMetered - NetworkMonitorGetNetworkMeteredMethodInfo, - networkMonitorGetNetworkMetered , - - - - - -- * Properties --- ** Connectivity - NetworkMonitorConnectivityPropertyInfo , - getNetworkMonitorConnectivity , - networkMonitorConnectivity , - - --- ** NetworkAvailable - NetworkMonitorNetworkAvailablePropertyInfo, - getNetworkMonitorNetworkAvailable , - networkMonitorNetworkAvailable , - - --- ** NetworkMetered - NetworkMonitorNetworkMeteredPropertyInfo, - getNetworkMonitorNetworkMetered , - networkMonitorNetworkMetered , - - - - - -- * Signals --- ** NetworkChanged - NetworkMonitorNetworkChangedCallback , - NetworkMonitorNetworkChangedCallbackC , - NetworkMonitorNetworkChangedSignalInfo , - afterNetworkMonitorNetworkChanged , - mkNetworkMonitorNetworkChangedCallback , - networkMonitorNetworkChangedCallbackWrapper, - networkMonitorNetworkChangedClosure , - noNetworkMonitorNetworkChangedCallback , - onNetworkMonitorNetworkChanged , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface NetworkMonitor - -newtype NetworkMonitor = NetworkMonitor (ForeignPtr NetworkMonitor) -noNetworkMonitor :: Maybe NetworkMonitor -noNetworkMonitor = Nothing - -type family ResolveNetworkMonitorMethod (t :: Symbol) (o :: *) :: * where - ResolveNetworkMonitorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveNetworkMonitorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveNetworkMonitorMethod "canReach" o = NetworkMonitorCanReachMethodInfo - ResolveNetworkMonitorMethod "canReachAsync" o = NetworkMonitorCanReachAsyncMethodInfo - ResolveNetworkMonitorMethod "canReachFinish" o = NetworkMonitorCanReachFinishMethodInfo - ResolveNetworkMonitorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveNetworkMonitorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveNetworkMonitorMethod "init" o = InitableInitMethodInfo - ResolveNetworkMonitorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveNetworkMonitorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveNetworkMonitorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveNetworkMonitorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveNetworkMonitorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveNetworkMonitorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveNetworkMonitorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveNetworkMonitorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveNetworkMonitorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveNetworkMonitorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveNetworkMonitorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveNetworkMonitorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveNetworkMonitorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveNetworkMonitorMethod "getConnectivity" o = NetworkMonitorGetConnectivityMethodInfo - ResolveNetworkMonitorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveNetworkMonitorMethod "getNetworkAvailable" o = NetworkMonitorGetNetworkAvailableMethodInfo - ResolveNetworkMonitorMethod "getNetworkMetered" o = NetworkMonitorGetNetworkMeteredMethodInfo - ResolveNetworkMonitorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveNetworkMonitorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveNetworkMonitorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveNetworkMonitorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveNetworkMonitorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveNetworkMonitorMethod t NetworkMonitor, MethodInfo info NetworkMonitor p) => IsLabelProxy t (NetworkMonitor -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveNetworkMonitorMethod t NetworkMonitor, MethodInfo info NetworkMonitor p) => IsLabel t (NetworkMonitor -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal NetworkMonitor::network-changed -type NetworkMonitorNetworkChangedCallback = - Bool -> - IO () - -noNetworkMonitorNetworkChangedCallback :: Maybe NetworkMonitorNetworkChangedCallback -noNetworkMonitorNetworkChangedCallback = Nothing - -type NetworkMonitorNetworkChangedCallbackC = - Ptr () -> -- object - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkNetworkMonitorNetworkChangedCallback :: NetworkMonitorNetworkChangedCallbackC -> IO (FunPtr NetworkMonitorNetworkChangedCallbackC) - -networkMonitorNetworkChangedClosure :: NetworkMonitorNetworkChangedCallback -> IO Closure -networkMonitorNetworkChangedClosure cb = newCClosure =<< mkNetworkMonitorNetworkChangedCallback wrapped - where wrapped = networkMonitorNetworkChangedCallbackWrapper cb - -networkMonitorNetworkChangedCallbackWrapper :: - NetworkMonitorNetworkChangedCallback -> - Ptr () -> - CInt -> - Ptr () -> - IO () -networkMonitorNetworkChangedCallbackWrapper _cb _ available _ = do - let available' = (/= 0) available - _cb available' - -onNetworkMonitorNetworkChanged :: (GObject a, MonadIO m) => a -> NetworkMonitorNetworkChangedCallback -> m SignalHandlerId -onNetworkMonitorNetworkChanged obj cb = liftIO $ connectNetworkMonitorNetworkChanged obj cb SignalConnectBefore -afterNetworkMonitorNetworkChanged :: (GObject a, MonadIO m) => a -> NetworkMonitorNetworkChangedCallback -> m SignalHandlerId -afterNetworkMonitorNetworkChanged obj cb = connectNetworkMonitorNetworkChanged obj cb SignalConnectAfter - -connectNetworkMonitorNetworkChanged :: (GObject a, MonadIO m) => - a -> NetworkMonitorNetworkChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectNetworkMonitorNetworkChanged obj cb after = liftIO $ do - cb' <- mkNetworkMonitorNetworkChangedCallback (networkMonitorNetworkChangedCallbackWrapper cb) - connectSignalFunPtr obj "network-changed" cb' after - --- VVV Prop "connectivity" - -- Type: TInterface "Gio" "NetworkConnectivity" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getNetworkMonitorConnectivity :: (MonadIO m, NetworkMonitorK o) => o -> m NetworkConnectivity -getNetworkMonitorConnectivity obj = liftIO $ getObjectPropertyEnum obj "connectivity" - -data NetworkMonitorConnectivityPropertyInfo -instance AttrInfo NetworkMonitorConnectivityPropertyInfo where - type AttrAllowedOps NetworkMonitorConnectivityPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint NetworkMonitorConnectivityPropertyInfo = (~) () - type AttrBaseTypeConstraint NetworkMonitorConnectivityPropertyInfo = NetworkMonitorK - type AttrGetType NetworkMonitorConnectivityPropertyInfo = NetworkConnectivity - type AttrLabel NetworkMonitorConnectivityPropertyInfo = "connectivity" - attrGet _ = getNetworkMonitorConnectivity - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "network-available" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getNetworkMonitorNetworkAvailable :: (MonadIO m, NetworkMonitorK o) => o -> m Bool -getNetworkMonitorNetworkAvailable obj = liftIO $ getObjectPropertyBool obj "network-available" - -data NetworkMonitorNetworkAvailablePropertyInfo -instance AttrInfo NetworkMonitorNetworkAvailablePropertyInfo where - type AttrAllowedOps NetworkMonitorNetworkAvailablePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint NetworkMonitorNetworkAvailablePropertyInfo = (~) () - type AttrBaseTypeConstraint NetworkMonitorNetworkAvailablePropertyInfo = NetworkMonitorK - type AttrGetType NetworkMonitorNetworkAvailablePropertyInfo = Bool - type AttrLabel NetworkMonitorNetworkAvailablePropertyInfo = "network-available" - attrGet _ = getNetworkMonitorNetworkAvailable - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "network-metered" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getNetworkMonitorNetworkMetered :: (MonadIO m, NetworkMonitorK o) => o -> m Bool -getNetworkMonitorNetworkMetered obj = liftIO $ getObjectPropertyBool obj "network-metered" - -data NetworkMonitorNetworkMeteredPropertyInfo -instance AttrInfo NetworkMonitorNetworkMeteredPropertyInfo where - type AttrAllowedOps NetworkMonitorNetworkMeteredPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint NetworkMonitorNetworkMeteredPropertyInfo = (~) () - type AttrBaseTypeConstraint NetworkMonitorNetworkMeteredPropertyInfo = NetworkMonitorK - type AttrGetType NetworkMonitorNetworkMeteredPropertyInfo = Bool - type AttrLabel NetworkMonitorNetworkMeteredPropertyInfo = "network-metered" - attrGet _ = getNetworkMonitorNetworkMetered - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList NetworkMonitor = NetworkMonitorAttributeList -type NetworkMonitorAttributeList = ('[ '("connectivity", NetworkMonitorConnectivityPropertyInfo), '("networkAvailable", NetworkMonitorNetworkAvailablePropertyInfo), '("networkMetered", NetworkMonitorNetworkMeteredPropertyInfo)] :: [(Symbol, *)]) - -networkMonitorConnectivity :: AttrLabelProxy "connectivity" -networkMonitorConnectivity = AttrLabelProxy - -networkMonitorNetworkAvailable :: AttrLabelProxy "networkAvailable" -networkMonitorNetworkAvailable = AttrLabelProxy - -networkMonitorNetworkMetered :: AttrLabelProxy "networkMetered" -networkMonitorNetworkMetered = AttrLabelProxy - -data NetworkMonitorNetworkChangedSignalInfo -instance SignalInfo NetworkMonitorNetworkChangedSignalInfo where - type HaskellCallbackType NetworkMonitorNetworkChangedSignalInfo = NetworkMonitorNetworkChangedCallback - connectSignal _ = connectNetworkMonitorNetworkChanged - -type instance SignalList NetworkMonitor = NetworkMonitorSignalList -type NetworkMonitorSignalList = ('[ '("networkChanged", NetworkMonitorNetworkChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_network_monitor_get_type" - c_g_network_monitor_get_type :: IO GType - -type instance ParentTypes NetworkMonitor = NetworkMonitorParentTypes -type NetworkMonitorParentTypes = '[Initable, GObject.Object] - -instance GObject NetworkMonitor where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_network_monitor_get_type - - -class GObject o => NetworkMonitorK o -instance (GObject o, IsDescendantOf NetworkMonitor o) => NetworkMonitorK o - -toNetworkMonitor :: NetworkMonitorK o => o -> IO NetworkMonitor -toNetworkMonitor = unsafeCastTo NetworkMonitor - --- method NetworkMonitor::can_reach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connectable", argType = TInterface "Gio" "SocketConnectable", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_network_monitor_can_reach" g_network_monitor_can_reach :: - Ptr NetworkMonitor -> -- _obj : TInterface "Gio" "NetworkMonitor" - Ptr SocketConnectable -> -- connectable : TInterface "Gio" "SocketConnectable" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -networkMonitorCanReach :: - (MonadIO m, NetworkMonitorK a, SocketConnectableK b, CancellableK c) => - a -- _obj - -> b -- connectable - -> Maybe (c) -- cancellable - -> m () -- result -networkMonitorCanReach _obj connectable cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let connectable' = unsafeManagedPtrCastPtr connectable - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_network_monitor_can_reach _obj' connectable' maybeCancellable - touchManagedPtr _obj - touchManagedPtr connectable - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data NetworkMonitorCanReachMethodInfo -instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, NetworkMonitorK a, SocketConnectableK b, CancellableK c) => MethodInfo NetworkMonitorCanReachMethodInfo a signature where - overloadedMethod _ = networkMonitorCanReach - --- method NetworkMonitor::can_reach_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connectable", argType = TInterface "Gio" "SocketConnectable", 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_network_monitor_can_reach_async" g_network_monitor_can_reach_async :: - Ptr NetworkMonitor -> -- _obj : TInterface "Gio" "NetworkMonitor" - Ptr SocketConnectable -> -- connectable : TInterface "Gio" "SocketConnectable" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -networkMonitorCanReachAsync :: - (MonadIO m, NetworkMonitorK a, SocketConnectableK b, CancellableK c) => - a -- _obj - -> b -- connectable - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -networkMonitorCanReachAsync _obj connectable cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let connectable' = unsafeManagedPtrCastPtr connectable - 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_network_monitor_can_reach_async _obj' connectable' maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr connectable - whenJust cancellable touchManagedPtr - return () - -data NetworkMonitorCanReachAsyncMethodInfo -instance (signature ~ (b -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, NetworkMonitorK a, SocketConnectableK b, CancellableK c) => MethodInfo NetworkMonitorCanReachAsyncMethodInfo a signature where - overloadedMethod _ = networkMonitorCanReachAsync - --- method NetworkMonitor::can_reach_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_network_monitor_can_reach_finish" g_network_monitor_can_reach_finish :: - Ptr NetworkMonitor -> -- _obj : TInterface "Gio" "NetworkMonitor" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -networkMonitorCanReachFinish :: - (MonadIO m, NetworkMonitorK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -networkMonitorCanReachFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_network_monitor_can_reach_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data NetworkMonitorCanReachFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, NetworkMonitorK a, AsyncResultK b) => MethodInfo NetworkMonitorCanReachFinishMethodInfo a signature where - overloadedMethod _ = networkMonitorCanReachFinish - --- method NetworkMonitor::get_connectivity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "NetworkConnectivity") --- throws : False --- Skip return : False - -foreign import ccall "g_network_monitor_get_connectivity" g_network_monitor_get_connectivity :: - Ptr NetworkMonitor -> -- _obj : TInterface "Gio" "NetworkMonitor" - IO CUInt - - -networkMonitorGetConnectivity :: - (MonadIO m, NetworkMonitorK a) => - a -- _obj - -> m NetworkConnectivity -- result -networkMonitorGetConnectivity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_network_monitor_get_connectivity _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data NetworkMonitorGetConnectivityMethodInfo -instance (signature ~ (m NetworkConnectivity), MonadIO m, NetworkMonitorK a) => MethodInfo NetworkMonitorGetConnectivityMethodInfo a signature where - overloadedMethod _ = networkMonitorGetConnectivity - --- method NetworkMonitor::get_network_available --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_network_monitor_get_network_available" g_network_monitor_get_network_available :: - Ptr NetworkMonitor -> -- _obj : TInterface "Gio" "NetworkMonitor" - IO CInt - - -networkMonitorGetNetworkAvailable :: - (MonadIO m, NetworkMonitorK a) => - a -- _obj - -> m Bool -- result -networkMonitorGetNetworkAvailable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_network_monitor_get_network_available _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data NetworkMonitorGetNetworkAvailableMethodInfo -instance (signature ~ (m Bool), MonadIO m, NetworkMonitorK a) => MethodInfo NetworkMonitorGetNetworkAvailableMethodInfo a signature where - overloadedMethod _ = networkMonitorGetNetworkAvailable - --- method NetworkMonitor::get_network_metered --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_network_monitor_get_network_metered" g_network_monitor_get_network_metered :: - Ptr NetworkMonitor -> -- _obj : TInterface "Gio" "NetworkMonitor" - IO CInt - - -networkMonitorGetNetworkMetered :: - (MonadIO m, NetworkMonitorK a) => - a -- _obj - -> m Bool -- result -networkMonitorGetNetworkMetered _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_network_monitor_get_network_metered _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data NetworkMonitorGetNetworkMeteredMethodInfo -instance (signature ~ (m Bool), MonadIO m, NetworkMonitorK a) => MethodInfo NetworkMonitorGetNetworkMeteredMethodInfo a signature where - overloadedMethod _ = networkMonitorGetNetworkMetered - --- method NetworkMonitor::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "NetworkMonitor") --- throws : False --- Skip return : False - -foreign import ccall "g_network_monitor_get_default" g_network_monitor_get_default :: - IO (Ptr NetworkMonitor) - - -networkMonitorGetDefault :: - (MonadIO m) => - m NetworkMonitor -- result -networkMonitorGetDefault = liftIO $ do - result <- g_network_monitor_get_default - checkUnexpectedReturnNULL "g_network_monitor_get_default" result - result' <- (newObject NetworkMonitor) result - return result' - - diff --git a/GI/Gio/Interfaces/NetworkMonitor.hs-boot b/GI/Gio/Interfaces/NetworkMonitor.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/NetworkMonitor.hs-boot +++ /dev/null @@ -1,23 +0,0 @@ -module GI.Gio.Interfaces.NetworkMonitor where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype NetworkMonitor = NetworkMonitor (ForeignPtr NetworkMonitor) -data NetworkMonitorConnectivityPropertyInfo -data NetworkMonitorNetworkAvailablePropertyInfo -data NetworkMonitorNetworkMeteredPropertyInfo -data NetworkMonitorNetworkChangedSignalInfo -instance GObject NetworkMonitor where -class GObject o => NetworkMonitorK o -instance (GObject o, IsDescendantOf NetworkMonitor o) => NetworkMonitorK o -data NetworkMonitorCanReachMethodInfo -data NetworkMonitorCanReachAsyncMethodInfo -data NetworkMonitorCanReachFinishMethodInfo -data NetworkMonitorGetConnectivityMethodInfo -data NetworkMonitorGetNetworkAvailableMethodInfo -data NetworkMonitorGetNetworkMeteredMethodInfo diff --git a/GI/Gio/Interfaces/PollableInputStream.hs b/GI/Gio/Interfaces/PollableInputStream.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/PollableInputStream.hs +++ /dev/null @@ -1,280 +0,0 @@ - - -{- | -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.Interfaces.PollableInputStream - ( - --- * Exported types - PollableInputStream(..) , - noPollableInputStream , - PollableInputStreamK , - toPollableInputStream , - - - -- * Methods --- ** pollableInputStreamCanPoll - PollableInputStreamCanPollMethodInfo , - pollableInputStreamCanPoll , - - --- ** pollableInputStreamCreateSource - PollableInputStreamCreateSourceMethodInfo, - pollableInputStreamCreateSource , - - --- ** pollableInputStreamIsReadable - PollableInputStreamIsReadableMethodInfo , - pollableInputStreamIsReadable , - - --- ** pollableInputStreamReadNonblocking - PollableInputStreamReadNonblockingMethodInfo, - pollableInputStreamReadNonblocking , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - --- interface PollableInputStream - -newtype PollableInputStream = PollableInputStream (ForeignPtr PollableInputStream) -noPollableInputStream :: Maybe PollableInputStream -noPollableInputStream = Nothing - -type family ResolvePollableInputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolvePollableInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePollableInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePollableInputStreamMethod "canPoll" o = PollableInputStreamCanPollMethodInfo - ResolvePollableInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo - ResolvePollableInputStreamMethod "close" o = InputStreamCloseMethodInfo - ResolvePollableInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo - ResolvePollableInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo - ResolvePollableInputStreamMethod "createSource" o = PollableInputStreamCreateSourceMethodInfo - ResolvePollableInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePollableInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePollableInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo - ResolvePollableInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo - ResolvePollableInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePollableInputStreamMethod "isReadable" o = PollableInputStreamIsReadableMethodInfo - ResolvePollableInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePollableInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePollableInputStreamMethod "read" o = InputStreamReadMethodInfo - ResolvePollableInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo - ResolvePollableInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo - ResolvePollableInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo - ResolvePollableInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo - ResolvePollableInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo - ResolvePollableInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo - ResolvePollableInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo - ResolvePollableInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo - ResolvePollableInputStreamMethod "readNonblocking" o = PollableInputStreamReadNonblockingMethodInfo - ResolvePollableInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePollableInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePollableInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePollableInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePollableInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePollableInputStreamMethod "skip" o = InputStreamSkipMethodInfo - ResolvePollableInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo - ResolvePollableInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo - ResolvePollableInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePollableInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePollableInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePollableInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePollableInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePollableInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePollableInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePollableInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePollableInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePollableInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo - ResolvePollableInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePollableInputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePollableInputStreamMethod t PollableInputStream, MethodInfo info PollableInputStream p) => IsLabelProxy t (PollableInputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePollableInputStreamMethod t PollableInputStream, MethodInfo info PollableInputStream p) => IsLabel t (PollableInputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList PollableInputStream = PollableInputStreamAttributeList -type PollableInputStreamAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PollableInputStream = PollableInputStreamSignalList -type PollableInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_pollable_input_stream_get_type" - c_g_pollable_input_stream_get_type :: IO GType - -type instance ParentTypes PollableInputStream = PollableInputStreamParentTypes -type PollableInputStreamParentTypes = '[InputStream, GObject.Object] - -instance GObject PollableInputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_pollable_input_stream_get_type - - -class GObject o => PollableInputStreamK o -instance (GObject o, IsDescendantOf PollableInputStream o) => PollableInputStreamK o - -toPollableInputStream :: PollableInputStreamK o => o -> IO PollableInputStream -toPollableInputStream = unsafeCastTo PollableInputStream - --- method PollableInputStream::can_poll --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_pollable_input_stream_can_poll" g_pollable_input_stream_can_poll :: - Ptr PollableInputStream -> -- _obj : TInterface "Gio" "PollableInputStream" - IO CInt - - -pollableInputStreamCanPoll :: - (MonadIO m, PollableInputStreamK a) => - a -- _obj - -> m Bool -- result -pollableInputStreamCanPoll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_pollable_input_stream_can_poll _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PollableInputStreamCanPollMethodInfo -instance (signature ~ (m Bool), MonadIO m, PollableInputStreamK a) => MethodInfo PollableInputStreamCanPollMethodInfo a signature where - overloadedMethod _ = pollableInputStreamCanPoll - --- method PollableInputStream::create_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableInputStream", 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 : Just (TInterface "GLib" "Source") --- throws : False --- Skip return : False - -foreign import ccall "g_pollable_input_stream_create_source" g_pollable_input_stream_create_source :: - Ptr PollableInputStream -> -- _obj : TInterface "Gio" "PollableInputStream" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - IO (Ptr GLib.Source) - - -pollableInputStreamCreateSource :: - (MonadIO m, PollableInputStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m GLib.Source -- result -pollableInputStreamCreateSource _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - result <- g_pollable_input_stream_create_source _obj' maybeCancellable - checkUnexpectedReturnNULL "g_pollable_input_stream_create_source" result - result' <- (wrapBoxed GLib.Source) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - -data PollableInputStreamCreateSourceMethodInfo -instance (signature ~ (Maybe (b) -> m GLib.Source), MonadIO m, PollableInputStreamK a, CancellableK b) => MethodInfo PollableInputStreamCreateSourceMethodInfo a signature where - overloadedMethod _ = pollableInputStreamCreateSource - --- method PollableInputStream::is_readable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_pollable_input_stream_is_readable" g_pollable_input_stream_is_readable :: - Ptr PollableInputStream -> -- _obj : TInterface "Gio" "PollableInputStream" - IO CInt - - -pollableInputStreamIsReadable :: - (MonadIO m, PollableInputStreamK a) => - a -- _obj - -> m Bool -- result -pollableInputStreamIsReadable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_pollable_input_stream_is_readable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PollableInputStreamIsReadableMethodInfo -instance (signature ~ (m Bool), MonadIO m, PollableInputStreamK a) => MethodInfo PollableInputStreamIsReadableMethodInfo a signature where - overloadedMethod _ = pollableInputStreamIsReadable - --- method PollableInputStream::read_nonblocking --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableInputStream", 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 = "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 : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_pollable_input_stream_read_nonblocking" g_pollable_input_stream_read_nonblocking :: - Ptr PollableInputStream -> -- _obj : TInterface "Gio" "PollableInputStream" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- count : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -pollableInputStreamReadNonblocking :: - (MonadIO m, PollableInputStreamK a, CancellableK b) => - a -- _obj - -> ByteString -- buffer - -> Maybe (b) -- cancellable - -> m Int64 -- result -pollableInputStreamReadNonblocking _obj buffer cancellable = liftIO $ do - let count = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_pollable_input_stream_read_nonblocking _obj' buffer' count maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - return result - ) (do - freeMem buffer' - ) - -data PollableInputStreamReadNonblockingMethodInfo -instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, PollableInputStreamK a, CancellableK b) => MethodInfo PollableInputStreamReadNonblockingMethodInfo a signature where - overloadedMethod _ = pollableInputStreamReadNonblocking - - diff --git a/GI/Gio/Interfaces/PollableInputStream.hs-boot b/GI/Gio/Interfaces/PollableInputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/PollableInputStream.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Interfaces.PollableInputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PollableInputStream = PollableInputStream (ForeignPtr PollableInputStream) -instance GObject PollableInputStream where -class GObject o => PollableInputStreamK o -instance (GObject o, IsDescendantOf PollableInputStream o) => PollableInputStreamK o -data PollableInputStreamCanPollMethodInfo -data PollableInputStreamCreateSourceMethodInfo -data PollableInputStreamIsReadableMethodInfo -data PollableInputStreamReadNonblockingMethodInfo diff --git a/GI/Gio/Interfaces/PollableOutputStream.hs b/GI/Gio/Interfaces/PollableOutputStream.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/PollableOutputStream.hs +++ /dev/null @@ -1,284 +0,0 @@ - - -{- | -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.Interfaces.PollableOutputStream - ( - --- * Exported types - PollableOutputStream(..) , - noPollableOutputStream , - PollableOutputStreamK , - toPollableOutputStream , - - - -- * Methods --- ** pollableOutputStreamCanPoll - PollableOutputStreamCanPollMethodInfo , - pollableOutputStreamCanPoll , - - --- ** pollableOutputStreamCreateSource - PollableOutputStreamCreateSourceMethodInfo, - pollableOutputStreamCreateSource , - - --- ** pollableOutputStreamIsWritable - PollableOutputStreamIsWritableMethodInfo, - pollableOutputStreamIsWritable , - - --- ** pollableOutputStreamWriteNonblocking - PollableOutputStreamWriteNonblockingMethodInfo, - pollableOutputStreamWriteNonblocking , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - --- interface PollableOutputStream - -newtype PollableOutputStream = PollableOutputStream (ForeignPtr PollableOutputStream) -noPollableOutputStream :: Maybe PollableOutputStream -noPollableOutputStream = Nothing - -type family ResolvePollableOutputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolvePollableOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePollableOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePollableOutputStreamMethod "canPoll" o = PollableOutputStreamCanPollMethodInfo - ResolvePollableOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo - ResolvePollableOutputStreamMethod "close" o = OutputStreamCloseMethodInfo - ResolvePollableOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo - ResolvePollableOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo - ResolvePollableOutputStreamMethod "createSource" o = PollableOutputStreamCreateSourceMethodInfo - ResolvePollableOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo - ResolvePollableOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo - ResolvePollableOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo - ResolvePollableOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePollableOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePollableOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo - ResolvePollableOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo - ResolvePollableOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo - ResolvePollableOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePollableOutputStreamMethod "isWritable" o = PollableOutputStreamIsWritableMethodInfo - ResolvePollableOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePollableOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePollableOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePollableOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePollableOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePollableOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePollableOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePollableOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo - ResolvePollableOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo - ResolvePollableOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo - ResolvePollableOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePollableOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePollableOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePollableOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePollableOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePollableOutputStreamMethod "write" o = OutputStreamWriteMethodInfo - ResolvePollableOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo - ResolvePollableOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo - ResolvePollableOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo - ResolvePollableOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo - ResolvePollableOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo - ResolvePollableOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo - ResolvePollableOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo - ResolvePollableOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo - ResolvePollableOutputStreamMethod "writeNonblocking" o = PollableOutputStreamWriteNonblockingMethodInfo - ResolvePollableOutputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePollableOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePollableOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePollableOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePollableOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo - ResolvePollableOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePollableOutputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePollableOutputStreamMethod t PollableOutputStream, MethodInfo info PollableOutputStream p) => IsLabelProxy t (PollableOutputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePollableOutputStreamMethod t PollableOutputStream, MethodInfo info PollableOutputStream p) => IsLabel t (PollableOutputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList PollableOutputStream = PollableOutputStreamAttributeList -type PollableOutputStreamAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PollableOutputStream = PollableOutputStreamSignalList -type PollableOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_pollable_output_stream_get_type" - c_g_pollable_output_stream_get_type :: IO GType - -type instance ParentTypes PollableOutputStream = PollableOutputStreamParentTypes -type PollableOutputStreamParentTypes = '[OutputStream, GObject.Object] - -instance GObject PollableOutputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_pollable_output_stream_get_type - - -class GObject o => PollableOutputStreamK o -instance (GObject o, IsDescendantOf PollableOutputStream o) => PollableOutputStreamK o - -toPollableOutputStream :: PollableOutputStreamK o => o -> IO PollableOutputStream -toPollableOutputStream = unsafeCastTo PollableOutputStream - --- method PollableOutputStream::can_poll --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_pollable_output_stream_can_poll" g_pollable_output_stream_can_poll :: - Ptr PollableOutputStream -> -- _obj : TInterface "Gio" "PollableOutputStream" - IO CInt - - -pollableOutputStreamCanPoll :: - (MonadIO m, PollableOutputStreamK a) => - a -- _obj - -> m Bool -- result -pollableOutputStreamCanPoll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_pollable_output_stream_can_poll _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PollableOutputStreamCanPollMethodInfo -instance (signature ~ (m Bool), MonadIO m, PollableOutputStreamK a) => MethodInfo PollableOutputStreamCanPollMethodInfo a signature where - overloadedMethod _ = pollableOutputStreamCanPoll - --- method PollableOutputStream::create_source --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableOutputStream", 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 : Just (TInterface "GLib" "Source") --- throws : False --- Skip return : False - -foreign import ccall "g_pollable_output_stream_create_source" g_pollable_output_stream_create_source :: - Ptr PollableOutputStream -> -- _obj : TInterface "Gio" "PollableOutputStream" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - IO (Ptr GLib.Source) - - -pollableOutputStreamCreateSource :: - (MonadIO m, PollableOutputStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m GLib.Source -- result -pollableOutputStreamCreateSource _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - result <- g_pollable_output_stream_create_source _obj' maybeCancellable - checkUnexpectedReturnNULL "g_pollable_output_stream_create_source" result - result' <- (wrapBoxed GLib.Source) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - -data PollableOutputStreamCreateSourceMethodInfo -instance (signature ~ (Maybe (b) -> m GLib.Source), MonadIO m, PollableOutputStreamK a, CancellableK b) => MethodInfo PollableOutputStreamCreateSourceMethodInfo a signature where - overloadedMethod _ = pollableOutputStreamCreateSource - --- method PollableOutputStream::is_writable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_pollable_output_stream_is_writable" g_pollable_output_stream_is_writable :: - Ptr PollableOutputStream -> -- _obj : TInterface "Gio" "PollableOutputStream" - IO CInt - - -pollableOutputStreamIsWritable :: - (MonadIO m, PollableOutputStreamK a) => - a -- _obj - -> m Bool -- result -pollableOutputStreamIsWritable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_pollable_output_stream_is_writable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PollableOutputStreamIsWritableMethodInfo -instance (signature ~ (m Bool), MonadIO m, PollableOutputStreamK a) => MethodInfo PollableOutputStreamIsWritableMethodInfo a signature where - overloadedMethod _ = pollableOutputStreamIsWritable - --- method PollableOutputStream::write_nonblocking --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "PollableOutputStream", 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 = "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 : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_pollable_output_stream_write_nonblocking" g_pollable_output_stream_write_nonblocking :: - Ptr PollableOutputStream -> -- _obj : TInterface "Gio" "PollableOutputStream" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- count : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -pollableOutputStreamWriteNonblocking :: - (MonadIO m, PollableOutputStreamK a, CancellableK b) => - a -- _obj - -> ByteString -- buffer - -> Maybe (b) -- cancellable - -> m Int64 -- result -pollableOutputStreamWriteNonblocking _obj buffer cancellable = liftIO $ do - let count = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_pollable_output_stream_write_nonblocking _obj' buffer' count maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - return result - ) (do - freeMem buffer' - ) - -data PollableOutputStreamWriteNonblockingMethodInfo -instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, PollableOutputStreamK a, CancellableK b) => MethodInfo PollableOutputStreamWriteNonblockingMethodInfo a signature where - overloadedMethod _ = pollableOutputStreamWriteNonblocking - - diff --git a/GI/Gio/Interfaces/PollableOutputStream.hs-boot b/GI/Gio/Interfaces/PollableOutputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/PollableOutputStream.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Interfaces.PollableOutputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PollableOutputStream = PollableOutputStream (ForeignPtr PollableOutputStream) -instance GObject PollableOutputStream where -class GObject o => PollableOutputStreamK o -instance (GObject o, IsDescendantOf PollableOutputStream o) => PollableOutputStreamK o -data PollableOutputStreamCanPollMethodInfo -data PollableOutputStreamCreateSourceMethodInfo -data PollableOutputStreamIsWritableMethodInfo -data PollableOutputStreamWriteNonblockingMethodInfo diff --git a/GI/Gio/Interfaces/Proxy.hs b/GI/Gio/Interfaces/Proxy.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/Proxy.hs +++ /dev/null @@ -1,320 +0,0 @@ - - -{- | -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.Interfaces.Proxy - ( - --- * Exported types - Proxy(..) , - noProxy , - ProxyK , - toProxy , - - - -- * Methods --- ** proxyConnect - ProxyConnectMethodInfo , - proxyConnect , - - --- ** proxyConnectAsync - ProxyConnectAsyncMethodInfo , - proxyConnectAsync , - - --- ** proxyConnectFinish - ProxyConnectFinishMethodInfo , - proxyConnectFinish , - - --- ** proxyGetDefaultForProtocol - proxyGetDefaultForProtocol , - - --- ** proxySupportsHostname - ProxySupportsHostnameMethodInfo , - proxySupportsHostname , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface Proxy - -newtype Proxy = Proxy (ForeignPtr Proxy) -noProxy :: Maybe Proxy -noProxy = Nothing - -type family ResolveProxyMethod (t :: Symbol) (o :: *) :: * where - ResolveProxyMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveProxyMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveProxyMethod "connect" o = ProxyConnectMethodInfo - ResolveProxyMethod "connectAsync" o = ProxyConnectAsyncMethodInfo - ResolveProxyMethod "connectFinish" o = ProxyConnectFinishMethodInfo - ResolveProxyMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveProxyMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveProxyMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveProxyMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveProxyMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveProxyMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveProxyMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveProxyMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveProxyMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveProxyMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveProxyMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveProxyMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveProxyMethod "supportsHostname" o = ProxySupportsHostnameMethodInfo - ResolveProxyMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveProxyMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveProxyMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveProxyMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveProxyMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveProxyMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveProxyMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveProxyMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveProxyMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveProxyMethod t Proxy, MethodInfo info Proxy p) => IsLabelProxy t (Proxy -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveProxyMethod t Proxy, MethodInfo info Proxy p) => IsLabel t (Proxy -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Proxy = ProxyAttributeList -type ProxyAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Proxy = ProxySignalList -type ProxySignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_proxy_get_type" - c_g_proxy_get_type :: IO GType - -type instance ParentTypes Proxy = ProxyParentTypes -type ProxyParentTypes = '[GObject.Object] - -instance GObject Proxy where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_proxy_get_type - - -class GObject o => ProxyK o -instance (GObject o, IsDescendantOf Proxy o) => ProxyK o - -toProxy :: ProxyK o => o -> IO Proxy -toProxy = unsafeCastTo Proxy - --- method Proxy::connect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_address", argType = TInterface "Gio" "ProxyAddress", 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 : Just (TInterface "Gio" "IOStream") --- throws : True --- Skip return : False - -foreign import ccall "g_proxy_connect" g_proxy_connect :: - Ptr Proxy -> -- _obj : TInterface "Gio" "Proxy" - Ptr IOStream -> -- connection : TInterface "Gio" "IOStream" - Ptr ProxyAddress -> -- proxy_address : TInterface "Gio" "ProxyAddress" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr IOStream) - - -proxyConnect :: - (MonadIO m, ProxyK a, IOStreamK b, ProxyAddressK c, CancellableK d) => - a -- _obj - -> b -- connection - -> c -- proxyAddress - -> Maybe (d) -- cancellable - -> m IOStream -- result -proxyConnect _obj connection proxyAddress cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let connection' = unsafeManagedPtrCastPtr connection - let proxyAddress' = unsafeManagedPtrCastPtr proxyAddress - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_proxy_connect _obj' connection' proxyAddress' maybeCancellable - checkUnexpectedReturnNULL "g_proxy_connect" result - result' <- (wrapObject IOStream) result - touchManagedPtr _obj - touchManagedPtr connection - touchManagedPtr proxyAddress - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data ProxyConnectMethodInfo -instance (signature ~ (b -> c -> Maybe (d) -> m IOStream), MonadIO m, ProxyK a, IOStreamK b, ProxyAddressK c, CancellableK d) => MethodInfo ProxyConnectMethodInfo a signature where - overloadedMethod _ = proxyConnect - --- method Proxy::connect_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_address", argType = TInterface "Gio" "ProxyAddress", 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_proxy_connect_async" g_proxy_connect_async :: - Ptr Proxy -> -- _obj : TInterface "Gio" "Proxy" - Ptr IOStream -> -- connection : TInterface "Gio" "IOStream" - Ptr ProxyAddress -> -- proxy_address : TInterface "Gio" "ProxyAddress" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -proxyConnectAsync :: - (MonadIO m, ProxyK a, IOStreamK b, ProxyAddressK c, CancellableK d) => - a -- _obj - -> b -- connection - -> c -- proxyAddress - -> Maybe (d) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -proxyConnectAsync _obj connection proxyAddress cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let connection' = unsafeManagedPtrCastPtr connection - let proxyAddress' = unsafeManagedPtrCastPtr proxyAddress - 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_proxy_connect_async _obj' connection' proxyAddress' maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr connection - touchManagedPtr proxyAddress - whenJust cancellable touchManagedPtr - return () - -data ProxyConnectAsyncMethodInfo -instance (signature ~ (b -> c -> Maybe (d) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, ProxyK a, IOStreamK b, ProxyAddressK c, CancellableK d) => MethodInfo ProxyConnectAsyncMethodInfo a signature where - overloadedMethod _ = proxyConnectAsync - --- method Proxy::connect_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "IOStream") --- throws : True --- Skip return : False - -foreign import ccall "g_proxy_connect_finish" g_proxy_connect_finish :: - Ptr Proxy -> -- _obj : TInterface "Gio" "Proxy" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr IOStream) - - -proxyConnectFinish :: - (MonadIO m, ProxyK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m IOStream -- result -proxyConnectFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_proxy_connect_finish _obj' result_' - checkUnexpectedReturnNULL "g_proxy_connect_finish" result - result' <- (wrapObject IOStream) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data ProxyConnectFinishMethodInfo -instance (signature ~ (b -> m IOStream), MonadIO m, ProxyK a, AsyncResultK b) => MethodInfo ProxyConnectFinishMethodInfo a signature where - overloadedMethod _ = proxyConnectFinish - --- method Proxy::supports_hostname --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Proxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_proxy_supports_hostname" g_proxy_supports_hostname :: - Ptr Proxy -> -- _obj : TInterface "Gio" "Proxy" - IO CInt - - -proxySupportsHostname :: - (MonadIO m, ProxyK a) => - a -- _obj - -> m Bool -- result -proxySupportsHostname _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_proxy_supports_hostname _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ProxySupportsHostnameMethodInfo -instance (signature ~ (m Bool), MonadIO m, ProxyK a) => MethodInfo ProxySupportsHostnameMethodInfo a signature where - overloadedMethod _ = proxySupportsHostname - --- method Proxy::get_default_for_protocol --- method type : MemberFunction --- Args : [Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Proxy") --- throws : False --- Skip return : False - -foreign import ccall "g_proxy_get_default_for_protocol" g_proxy_get_default_for_protocol :: - CString -> -- protocol : TBasicType TUTF8 - IO (Ptr Proxy) - - -proxyGetDefaultForProtocol :: - (MonadIO m) => - T.Text -- protocol - -> m Proxy -- result -proxyGetDefaultForProtocol protocol = liftIO $ do - protocol' <- textToCString protocol - result <- g_proxy_get_default_for_protocol protocol' - checkUnexpectedReturnNULL "g_proxy_get_default_for_protocol" result - result' <- (wrapObject Proxy) result - freeMem protocol' - return result' - - diff --git a/GI/Gio/Interfaces/Proxy.hs-boot b/GI/Gio/Interfaces/Proxy.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/Proxy.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Interfaces.Proxy where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Proxy = Proxy (ForeignPtr Proxy) -instance GObject Proxy where -class GObject o => ProxyK o -instance (GObject o, IsDescendantOf Proxy o) => ProxyK o -data ProxyConnectMethodInfo -data ProxyConnectAsyncMethodInfo -data ProxyConnectFinishMethodInfo -data ProxySupportsHostnameMethodInfo diff --git a/GI/Gio/Interfaces/ProxyResolver.hs b/GI/Gio/Interfaces/ProxyResolver.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/ProxyResolver.hs +++ /dev/null @@ -1,312 +0,0 @@ - - -{- | -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.Interfaces.ProxyResolver - ( - --- * Exported types - ProxyResolver(..) , - noProxyResolver , - ProxyResolverK , - toProxyResolver , - - - -- * Methods --- ** proxyResolverGetDefault - proxyResolverGetDefault , - - --- ** proxyResolverIsSupported - ProxyResolverIsSupportedMethodInfo , - proxyResolverIsSupported , - - --- ** proxyResolverLookup - ProxyResolverLookupMethodInfo , - proxyResolverLookup , - - --- ** proxyResolverLookupAsync - ProxyResolverLookupAsyncMethodInfo , - proxyResolverLookupAsync , - - --- ** proxyResolverLookupFinish - ProxyResolverLookupFinishMethodInfo , - proxyResolverLookupFinish , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface ProxyResolver - -newtype ProxyResolver = ProxyResolver (ForeignPtr ProxyResolver) -noProxyResolver :: Maybe ProxyResolver -noProxyResolver = Nothing - -type family ResolveProxyResolverMethod (t :: Symbol) (o :: *) :: * where - ResolveProxyResolverMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveProxyResolverMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveProxyResolverMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveProxyResolverMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveProxyResolverMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveProxyResolverMethod "isSupported" o = ProxyResolverIsSupportedMethodInfo - ResolveProxyResolverMethod "lookup" o = ProxyResolverLookupMethodInfo - ResolveProxyResolverMethod "lookupAsync" o = ProxyResolverLookupAsyncMethodInfo - ResolveProxyResolverMethod "lookupFinish" o = ProxyResolverLookupFinishMethodInfo - ResolveProxyResolverMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveProxyResolverMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveProxyResolverMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveProxyResolverMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveProxyResolverMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveProxyResolverMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveProxyResolverMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveProxyResolverMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveProxyResolverMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveProxyResolverMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveProxyResolverMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveProxyResolverMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveProxyResolverMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveProxyResolverMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveProxyResolverMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveProxyResolverMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveProxyResolverMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveProxyResolverMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveProxyResolverMethod t ProxyResolver, MethodInfo info ProxyResolver p) => IsLabelProxy t (ProxyResolver -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveProxyResolverMethod t ProxyResolver, MethodInfo info ProxyResolver p) => IsLabel t (ProxyResolver -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ProxyResolver = ProxyResolverAttributeList -type ProxyResolverAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList ProxyResolver = ProxyResolverSignalList -type ProxyResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_proxy_resolver_get_type" - c_g_proxy_resolver_get_type :: IO GType - -type instance ParentTypes ProxyResolver = ProxyResolverParentTypes -type ProxyResolverParentTypes = '[GObject.Object] - -instance GObject ProxyResolver where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_proxy_resolver_get_type - - -class GObject o => ProxyResolverK o -instance (GObject o, IsDescendantOf ProxyResolver o) => ProxyResolverK o - -toProxyResolver :: ProxyResolverK o => o -> IO ProxyResolver -toProxyResolver = unsafeCastTo ProxyResolver - --- method ProxyResolver::is_supported --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_proxy_resolver_is_supported" g_proxy_resolver_is_supported :: - Ptr ProxyResolver -> -- _obj : TInterface "Gio" "ProxyResolver" - IO CInt - - -proxyResolverIsSupported :: - (MonadIO m, ProxyResolverK a) => - a -- _obj - -> m Bool -- result -proxyResolverIsSupported _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_proxy_resolver_is_supported _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ProxyResolverIsSupportedMethodInfo -instance (signature ~ (m Bool), MonadIO m, ProxyResolverK a) => MethodInfo ProxyResolverIsSupportedMethodInfo a signature where - overloadedMethod _ = proxyResolverIsSupported - --- method ProxyResolver::lookup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", 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 : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : True --- Skip return : False - -foreign import ccall "g_proxy_resolver_lookup" g_proxy_resolver_lookup :: - Ptr ProxyResolver -> -- _obj : TInterface "Gio" "ProxyResolver" - CString -> -- uri : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr CString) - - -proxyResolverLookup :: - (MonadIO m, ProxyResolverK a, CancellableK b) => - a -- _obj - -> T.Text -- uri - -> Maybe (b) -- cancellable - -> m [T.Text] -- result -proxyResolverLookup _obj uri cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_proxy_resolver_lookup _obj' uri' maybeCancellable - checkUnexpectedReturnNULL "g_proxy_resolver_lookup" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem uri' - return result' - ) (do - freeMem uri' - ) - -data ProxyResolverLookupMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> m [T.Text]), MonadIO m, ProxyResolverK a, CancellableK b) => MethodInfo ProxyResolverLookupMethodInfo a signature where - overloadedMethod _ = proxyResolverLookup - --- method ProxyResolver::lookup_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_proxy_resolver_lookup_async" g_proxy_resolver_lookup_async :: - Ptr ProxyResolver -> -- _obj : TInterface "Gio" "ProxyResolver" - CString -> -- uri : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -proxyResolverLookupAsync :: - (MonadIO m, ProxyResolverK a, CancellableK b) => - a -- _obj - -> T.Text -- uri - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -proxyResolverLookupAsync _obj uri cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - 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_proxy_resolver_lookup_async _obj' uri' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem uri' - return () - -data ProxyResolverLookupAsyncMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, ProxyResolverK a, CancellableK b) => MethodInfo ProxyResolverLookupAsyncMethodInfo a signature where - overloadedMethod _ = proxyResolverLookupAsync - --- method ProxyResolver::lookup_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : True --- Skip return : False - -foreign import ccall "g_proxy_resolver_lookup_finish" g_proxy_resolver_lookup_finish :: - Ptr ProxyResolver -> -- _obj : TInterface "Gio" "ProxyResolver" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr CString) - - -proxyResolverLookupFinish :: - (MonadIO m, ProxyResolverK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m [T.Text] -- result -proxyResolverLookupFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_proxy_resolver_lookup_finish _obj' result_' - checkUnexpectedReturnNULL "g_proxy_resolver_lookup_finish" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data ProxyResolverLookupFinishMethodInfo -instance (signature ~ (b -> m [T.Text]), MonadIO m, ProxyResolverK a, AsyncResultK b) => MethodInfo ProxyResolverLookupFinishMethodInfo a signature where - overloadedMethod _ = proxyResolverLookupFinish - --- method ProxyResolver::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "ProxyResolver") --- throws : False --- Skip return : False - -foreign import ccall "g_proxy_resolver_get_default" g_proxy_resolver_get_default :: - IO (Ptr ProxyResolver) - - -proxyResolverGetDefault :: - (MonadIO m) => - m ProxyResolver -- result -proxyResolverGetDefault = liftIO $ do - result <- g_proxy_resolver_get_default - checkUnexpectedReturnNULL "g_proxy_resolver_get_default" result - result' <- (newObject ProxyResolver) result - return result' - - diff --git a/GI/Gio/Interfaces/ProxyResolver.hs-boot b/GI/Gio/Interfaces/ProxyResolver.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/ProxyResolver.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Interfaces.ProxyResolver where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ProxyResolver = ProxyResolver (ForeignPtr ProxyResolver) -instance GObject ProxyResolver where -class GObject o => ProxyResolverK o -instance (GObject o, IsDescendantOf ProxyResolver o) => ProxyResolverK o -data ProxyResolverIsSupportedMethodInfo -data ProxyResolverLookupMethodInfo -data ProxyResolverLookupAsyncMethodInfo -data ProxyResolverLookupFinishMethodInfo diff --git a/GI/Gio/Interfaces/RemoteActionGroup.hs b/GI/Gio/Interfaces/RemoteActionGroup.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/RemoteActionGroup.hs +++ /dev/null @@ -1,201 +0,0 @@ - - -{- | -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.Interfaces.RemoteActionGroup - ( - --- * Exported types - RemoteActionGroup(..) , - noRemoteActionGroup , - RemoteActionGroupK , - toRemoteActionGroup , - - - -- * Methods --- ** remoteActionGroupActivateActionFull - RemoteActionGroupActivateActionFullMethodInfo, - remoteActionGroupActivateActionFull , - - --- ** remoteActionGroupChangeActionStateFull - RemoteActionGroupChangeActionStateFullMethodInfo, - remoteActionGroupChangeActionStateFull , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface RemoteActionGroup - -newtype RemoteActionGroup = RemoteActionGroup (ForeignPtr RemoteActionGroup) -noRemoteActionGroup :: Maybe RemoteActionGroup -noRemoteActionGroup = Nothing - -type family ResolveRemoteActionGroupMethod (t :: Symbol) (o :: *) :: * where - ResolveRemoteActionGroupMethod "actionAdded" o = ActionGroupActionAddedMethodInfo - ResolveRemoteActionGroupMethod "actionEnabledChanged" o = ActionGroupActionEnabledChangedMethodInfo - ResolveRemoteActionGroupMethod "actionRemoved" o = ActionGroupActionRemovedMethodInfo - ResolveRemoteActionGroupMethod "actionStateChanged" o = ActionGroupActionStateChangedMethodInfo - ResolveRemoteActionGroupMethod "activateAction" o = ActionGroupActivateActionMethodInfo - ResolveRemoteActionGroupMethod "activateActionFull" o = RemoteActionGroupActivateActionFullMethodInfo - ResolveRemoteActionGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRemoteActionGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRemoteActionGroupMethod "changeActionState" o = ActionGroupChangeActionStateMethodInfo - ResolveRemoteActionGroupMethod "changeActionStateFull" o = RemoteActionGroupChangeActionStateFullMethodInfo - ResolveRemoteActionGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRemoteActionGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRemoteActionGroupMethod "hasAction" o = ActionGroupHasActionMethodInfo - ResolveRemoteActionGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRemoteActionGroupMethod "listActions" o = ActionGroupListActionsMethodInfo - ResolveRemoteActionGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRemoteActionGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRemoteActionGroupMethod "queryAction" o = ActionGroupQueryActionMethodInfo - ResolveRemoteActionGroupMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRemoteActionGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRemoteActionGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRemoteActionGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRemoteActionGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRemoteActionGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRemoteActionGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRemoteActionGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRemoteActionGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRemoteActionGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRemoteActionGroupMethod "getActionEnabled" o = ActionGroupGetActionEnabledMethodInfo - ResolveRemoteActionGroupMethod "getActionParameterType" o = ActionGroupGetActionParameterTypeMethodInfo - ResolveRemoteActionGroupMethod "getActionState" o = ActionGroupGetActionStateMethodInfo - ResolveRemoteActionGroupMethod "getActionStateHint" o = ActionGroupGetActionStateHintMethodInfo - ResolveRemoteActionGroupMethod "getActionStateType" o = ActionGroupGetActionStateTypeMethodInfo - ResolveRemoteActionGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRemoteActionGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRemoteActionGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRemoteActionGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRemoteActionGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRemoteActionGroupMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRemoteActionGroupMethod t RemoteActionGroup, MethodInfo info RemoteActionGroup p) => IsLabelProxy t (RemoteActionGroup -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRemoteActionGroupMethod t RemoteActionGroup, MethodInfo info RemoteActionGroup p) => IsLabel t (RemoteActionGroup -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList RemoteActionGroup = RemoteActionGroupAttributeList -type RemoteActionGroupAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList RemoteActionGroup = RemoteActionGroupSignalList -type RemoteActionGroupSignalList = ('[ '("actionAdded", ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", ActionGroupActionRemovedSignalInfo), '("actionStateChanged", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_remote_action_group_get_type" - c_g_remote_action_group_get_type :: IO GType - -type instance ParentTypes RemoteActionGroup = RemoteActionGroupParentTypes -type RemoteActionGroupParentTypes = '[ActionGroup, GObject.Object] - -instance GObject RemoteActionGroup where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_remote_action_group_get_type - - -class GObject o => RemoteActionGroupK o -instance (GObject o, IsDescendantOf RemoteActionGroup o) => RemoteActionGroupK o - -toRemoteActionGroup :: RemoteActionGroupK o => o -> IO RemoteActionGroup -toRemoteActionGroup = unsafeCastTo RemoteActionGroup - --- method RemoteActionGroup::activate_action_full --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "RemoteActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "platform_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_remote_action_group_activate_action_full" g_remote_action_group_activate_action_full :: - Ptr RemoteActionGroup -> -- _obj : TInterface "Gio" "RemoteActionGroup" - CString -> -- action_name : TBasicType TUTF8 - Ptr GVariant -> -- parameter : TVariant - Ptr GVariant -> -- platform_data : TVariant - IO () - - -remoteActionGroupActivateActionFull :: - (MonadIO m, RemoteActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> Maybe (GVariant) -- parameter - -> GVariant -- platformData - -> m () -- result -remoteActionGroupActivateActionFull _obj actionName parameter platformData = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - maybeParameter <- case parameter of - Nothing -> return nullPtr - Just jParameter -> do - let jParameter' = unsafeManagedPtrGetPtr jParameter - return jParameter' - let platformData' = unsafeManagedPtrGetPtr platformData - g_remote_action_group_activate_action_full _obj' actionName' maybeParameter platformData' - touchManagedPtr _obj - freeMem actionName' - return () - -data RemoteActionGroupActivateActionFullMethodInfo -instance (signature ~ (T.Text -> Maybe (GVariant) -> GVariant -> m ()), MonadIO m, RemoteActionGroupK a) => MethodInfo RemoteActionGroupActivateActionFullMethodInfo a signature where - overloadedMethod _ = remoteActionGroupActivateActionFull - --- method RemoteActionGroup::change_action_state_full --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "RemoteActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "platform_data", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_remote_action_group_change_action_state_full" g_remote_action_group_change_action_state_full :: - Ptr RemoteActionGroup -> -- _obj : TInterface "Gio" "RemoteActionGroup" - CString -> -- action_name : TBasicType TUTF8 - Ptr GVariant -> -- value : TVariant - Ptr GVariant -> -- platform_data : TVariant - IO () - - -remoteActionGroupChangeActionStateFull :: - (MonadIO m, RemoteActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> GVariant -- value - -> GVariant -- platformData - -> m () -- result -remoteActionGroupChangeActionStateFull _obj actionName value platformData = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - let value' = unsafeManagedPtrGetPtr value - let platformData' = unsafeManagedPtrGetPtr platformData - g_remote_action_group_change_action_state_full _obj' actionName' value' platformData' - touchManagedPtr _obj - freeMem actionName' - return () - -data RemoteActionGroupChangeActionStateFullMethodInfo -instance (signature ~ (T.Text -> GVariant -> GVariant -> m ()), MonadIO m, RemoteActionGroupK a) => MethodInfo RemoteActionGroupChangeActionStateFullMethodInfo a signature where - overloadedMethod _ = remoteActionGroupChangeActionStateFull - - diff --git a/GI/Gio/Interfaces/RemoteActionGroup.hs-boot b/GI/Gio/Interfaces/RemoteActionGroup.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/RemoteActionGroup.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gio.Interfaces.RemoteActionGroup where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype RemoteActionGroup = RemoteActionGroup (ForeignPtr RemoteActionGroup) -instance GObject RemoteActionGroup where -class GObject o => RemoteActionGroupK o -instance (GObject o, IsDescendantOf RemoteActionGroup o) => RemoteActionGroupK o -data RemoteActionGroupActivateActionFullMethodInfo -data RemoteActionGroupChangeActionStateFullMethodInfo diff --git a/GI/Gio/Interfaces/Seekable.hs b/GI/Gio/Interfaces/Seekable.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/Seekable.hs +++ /dev/null @@ -1,298 +0,0 @@ - - -{- | -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.Interfaces.Seekable - ( - --- * Exported types - Seekable(..) , - noSeekable , - SeekableK , - toSeekable , - - - -- * Methods --- ** seekableCanSeek - SeekableCanSeekMethodInfo , - seekableCanSeek , - - --- ** seekableCanTruncate - SeekableCanTruncateMethodInfo , - seekableCanTruncate , - - --- ** seekableSeek - SeekableSeekMethodInfo , - seekableSeek , - - --- ** seekableTell - SeekableTellMethodInfo , - seekableTell , - - --- ** seekableTruncate - SeekableTruncateMethodInfo , - seekableTruncate , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - --- interface Seekable - -newtype Seekable = Seekable (ForeignPtr Seekable) -noSeekable :: Maybe Seekable -noSeekable = Nothing - -type family ResolveSeekableMethod (t :: Symbol) (o :: *) :: * where - ResolveSeekableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSeekableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSeekableMethod "canSeek" o = SeekableCanSeekMethodInfo - ResolveSeekableMethod "canTruncate" o = SeekableCanTruncateMethodInfo - ResolveSeekableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSeekableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSeekableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSeekableMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSeekableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSeekableMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSeekableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSeekableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSeekableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSeekableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSeekableMethod "seek" o = SeekableSeekMethodInfo - ResolveSeekableMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSeekableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSeekableMethod "tell" o = SeekableTellMethodInfo - ResolveSeekableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSeekableMethod "truncate" o = SeekableTruncateMethodInfo - ResolveSeekableMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSeekableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSeekableMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSeekableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSeekableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSeekableMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSeekableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSeekableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSeekableMethod t Seekable, MethodInfo info Seekable p) => IsLabelProxy t (Seekable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSeekableMethod t Seekable, MethodInfo info Seekable p) => IsLabel t (Seekable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Seekable = SeekableAttributeList -type SeekableAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Seekable = SeekableSignalList -type SeekableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_seekable_get_type" - c_g_seekable_get_type :: IO GType - -type instance ParentTypes Seekable = SeekableParentTypes -type SeekableParentTypes = '[GObject.Object] - -instance GObject Seekable where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_seekable_get_type - - -class GObject o => SeekableK o -instance (GObject o, IsDescendantOf Seekable o) => SeekableK o - -toSeekable :: SeekableK o => o -> IO Seekable -toSeekable = unsafeCastTo Seekable - --- method Seekable::can_seek --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_seekable_can_seek" g_seekable_can_seek :: - Ptr Seekable -> -- _obj : TInterface "Gio" "Seekable" - IO CInt - - -seekableCanSeek :: - (MonadIO m, SeekableK a) => - a -- _obj - -> m Bool -- result -seekableCanSeek _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_seekable_can_seek _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SeekableCanSeekMethodInfo -instance (signature ~ (m Bool), MonadIO m, SeekableK a) => MethodInfo SeekableCanSeekMethodInfo a signature where - overloadedMethod _ = seekableCanSeek - --- method Seekable::can_truncate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_seekable_can_truncate" g_seekable_can_truncate :: - Ptr Seekable -> -- _obj : TInterface "Gio" "Seekable" - IO CInt - - -seekableCanTruncate :: - (MonadIO m, SeekableK a) => - a -- _obj - -> m Bool -- result -seekableCanTruncate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_seekable_can_truncate _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SeekableCanTruncateMethodInfo -instance (signature ~ (m Bool), MonadIO m, SeekableK a) => MethodInfo SeekableCanTruncateMethodInfo a signature where - overloadedMethod _ = seekableCanTruncate - --- method Seekable::seek --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "GLib" "SeekType", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_seekable_seek" g_seekable_seek :: - Ptr Seekable -> -- _obj : TInterface "Gio" "Seekable" - Int64 -> -- offset : TBasicType TInt64 - CUInt -> -- type : TInterface "GLib" "SeekType" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -seekableSeek :: - (MonadIO m, SeekableK a, CancellableK b) => - a -- _obj - -> Int64 -- offset - -> GLib.SeekType -- type_ - -> Maybe (b) -- cancellable - -> m () -- result -seekableSeek _obj offset type_ cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_seekable_seek _obj' offset type_' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data SeekableSeekMethodInfo -instance (signature ~ (Int64 -> GLib.SeekType -> Maybe (b) -> m ()), MonadIO m, SeekableK a, CancellableK b) => MethodInfo SeekableSeekMethodInfo a signature where - overloadedMethod _ = seekableSeek - --- method Seekable::tell --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_seekable_tell" g_seekable_tell :: - Ptr Seekable -> -- _obj : TInterface "Gio" "Seekable" - IO Int64 - - -seekableTell :: - (MonadIO m, SeekableK a) => - a -- _obj - -> m Int64 -- result -seekableTell _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_seekable_tell _obj' - touchManagedPtr _obj - return result - -data SeekableTellMethodInfo -instance (signature ~ (m Int64), MonadIO m, SeekableK a) => MethodInfo SeekableTellMethodInfo a signature where - overloadedMethod _ = seekableTell - --- method Seekable::truncate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Seekable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_seekable_truncate" g_seekable_truncate :: - Ptr Seekable -> -- _obj : TInterface "Gio" "Seekable" - Int64 -> -- offset : TBasicType TInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -seekableTruncate :: - (MonadIO m, SeekableK a, CancellableK b) => - a -- _obj - -> Int64 -- offset - -> Maybe (b) -- cancellable - -> m () -- result -seekableTruncate _obj offset cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_seekable_truncate _obj' offset maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data SeekableTruncateMethodInfo -instance (signature ~ (Int64 -> Maybe (b) -> m ()), MonadIO m, SeekableK a, CancellableK b) => MethodInfo SeekableTruncateMethodInfo a signature where - overloadedMethod _ = seekableTruncate - - diff --git a/GI/Gio/Interfaces/Seekable.hs-boot b/GI/Gio/Interfaces/Seekable.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/Seekable.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gio.Interfaces.Seekable where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Seekable = Seekable (ForeignPtr Seekable) -instance GObject Seekable where -class GObject o => SeekableK o -instance (GObject o, IsDescendantOf Seekable o) => SeekableK o -data SeekableCanSeekMethodInfo -data SeekableCanTruncateMethodInfo -data SeekableSeekMethodInfo -data SeekableTellMethodInfo -data SeekableTruncateMethodInfo diff --git a/GI/Gio/Interfaces/SocketConnectable.hs b/GI/Gio/Interfaces/SocketConnectable.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/SocketConnectable.hs +++ /dev/null @@ -1,167 +0,0 @@ - - -{- | -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.Interfaces.SocketConnectable - ( - --- * Exported types - SocketConnectable(..) , - noSocketConnectable , - SocketConnectableK , - toSocketConnectable , - - - -- * Methods --- ** socketConnectableEnumerate - SocketConnectableEnumerateMethodInfo , - socketConnectableEnumerate , - - --- ** socketConnectableProxyEnumerate - SocketConnectableProxyEnumerateMethodInfo, - socketConnectableProxyEnumerate , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface SocketConnectable - -newtype SocketConnectable = SocketConnectable (ForeignPtr SocketConnectable) -noSocketConnectable :: Maybe SocketConnectable -noSocketConnectable = Nothing - -type family ResolveSocketConnectableMethod (t :: Symbol) (o :: *) :: * where - ResolveSocketConnectableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSocketConnectableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSocketConnectableMethod "enumerate" o = SocketConnectableEnumerateMethodInfo - ResolveSocketConnectableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSocketConnectableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSocketConnectableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSocketConnectableMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSocketConnectableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSocketConnectableMethod "proxyEnumerate" o = SocketConnectableProxyEnumerateMethodInfo - ResolveSocketConnectableMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSocketConnectableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSocketConnectableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSocketConnectableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSocketConnectableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSocketConnectableMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSocketConnectableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSocketConnectableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSocketConnectableMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSocketConnectableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSocketConnectableMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSocketConnectableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSocketConnectableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSocketConnectableMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSocketConnectableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSocketConnectableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSocketConnectableMethod t SocketConnectable, MethodInfo info SocketConnectable p) => IsLabelProxy t (SocketConnectable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSocketConnectableMethod t SocketConnectable, MethodInfo info SocketConnectable p) => IsLabel t (SocketConnectable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList SocketConnectable = SocketConnectableAttributeList -type SocketConnectableAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList SocketConnectable = SocketConnectableSignalList -type SocketConnectableSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_socket_connectable_get_type" - c_g_socket_connectable_get_type :: IO GType - -type instance ParentTypes SocketConnectable = SocketConnectableParentTypes -type SocketConnectableParentTypes = '[GObject.Object] - -instance GObject SocketConnectable where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_socket_connectable_get_type - - -class GObject o => SocketConnectableK o -instance (GObject o, IsDescendantOf SocketConnectable o) => SocketConnectableK o - -toSocketConnectable :: SocketConnectableK o => o -> IO SocketConnectable -toSocketConnectable = unsafeCastTo SocketConnectable - --- method SocketConnectable::enumerate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketAddressEnumerator") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_connectable_enumerate" g_socket_connectable_enumerate :: - Ptr SocketConnectable -> -- _obj : TInterface "Gio" "SocketConnectable" - IO (Ptr SocketAddressEnumerator) - - -socketConnectableEnumerate :: - (MonadIO m, SocketConnectableK a) => - a -- _obj - -> m SocketAddressEnumerator -- result -socketConnectableEnumerate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_connectable_enumerate _obj' - checkUnexpectedReturnNULL "g_socket_connectable_enumerate" result - result' <- (wrapObject SocketAddressEnumerator) result - touchManagedPtr _obj - return result' - -data SocketConnectableEnumerateMethodInfo -instance (signature ~ (m SocketAddressEnumerator), MonadIO m, SocketConnectableK a) => MethodInfo SocketConnectableEnumerateMethodInfo a signature where - overloadedMethod _ = socketConnectableEnumerate - --- method SocketConnectable::proxy_enumerate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketAddressEnumerator") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_connectable_proxy_enumerate" g_socket_connectable_proxy_enumerate :: - Ptr SocketConnectable -> -- _obj : TInterface "Gio" "SocketConnectable" - IO (Ptr SocketAddressEnumerator) - - -socketConnectableProxyEnumerate :: - (MonadIO m, SocketConnectableK a) => - a -- _obj - -> m SocketAddressEnumerator -- result -socketConnectableProxyEnumerate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_connectable_proxy_enumerate _obj' - checkUnexpectedReturnNULL "g_socket_connectable_proxy_enumerate" result - result' <- (wrapObject SocketAddressEnumerator) result - touchManagedPtr _obj - return result' - -data SocketConnectableProxyEnumerateMethodInfo -instance (signature ~ (m SocketAddressEnumerator), MonadIO m, SocketConnectableK a) => MethodInfo SocketConnectableProxyEnumerateMethodInfo a signature where - overloadedMethod _ = socketConnectableProxyEnumerate - - diff --git a/GI/Gio/Interfaces/SocketConnectable.hs-boot b/GI/Gio/Interfaces/SocketConnectable.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/SocketConnectable.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gio.Interfaces.SocketConnectable where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SocketConnectable = SocketConnectable (ForeignPtr SocketConnectable) -instance GObject SocketConnectable where -class GObject o => SocketConnectableK o -instance (GObject o, IsDescendantOf SocketConnectable o) => SocketConnectableK o -data SocketConnectableEnumerateMethodInfo -data SocketConnectableProxyEnumerateMethodInfo diff --git a/GI/Gio/Interfaces/TlsBackend.hs b/GI/Gio/Interfaces/TlsBackend.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/TlsBackend.hs +++ /dev/null @@ -1,327 +0,0 @@ - - -{- | -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.Interfaces.TlsBackend - ( - --- * Exported types - TlsBackend(..) , - noTlsBackend , - TlsBackendK , - toTlsBackend , - - - -- * Methods --- ** tlsBackendGetCertificateType - TlsBackendGetCertificateTypeMethodInfo , - tlsBackendGetCertificateType , - - --- ** tlsBackendGetClientConnectionType - TlsBackendGetClientConnectionTypeMethodInfo, - tlsBackendGetClientConnectionType , - - --- ** tlsBackendGetDefault - tlsBackendGetDefault , - - --- ** tlsBackendGetDefaultDatabase - TlsBackendGetDefaultDatabaseMethodInfo , - tlsBackendGetDefaultDatabase , - - --- ** tlsBackendGetFileDatabaseType - TlsBackendGetFileDatabaseTypeMethodInfo , - tlsBackendGetFileDatabaseType , - - --- ** tlsBackendGetServerConnectionType - TlsBackendGetServerConnectionTypeMethodInfo, - tlsBackendGetServerConnectionType , - - --- ** tlsBackendSupportsTls - TlsBackendSupportsTlsMethodInfo , - tlsBackendSupportsTls , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface TlsBackend - -newtype TlsBackend = TlsBackend (ForeignPtr TlsBackend) -noTlsBackend :: Maybe TlsBackend -noTlsBackend = Nothing - -type family ResolveTlsBackendMethod (t :: Symbol) (o :: *) :: * where - ResolveTlsBackendMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTlsBackendMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTlsBackendMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTlsBackendMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTlsBackendMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTlsBackendMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTlsBackendMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTlsBackendMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTlsBackendMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTlsBackendMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTlsBackendMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTlsBackendMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTlsBackendMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTlsBackendMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTlsBackendMethod "supportsTls" o = TlsBackendSupportsTlsMethodInfo - ResolveTlsBackendMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTlsBackendMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTlsBackendMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTlsBackendMethod "getCertificateType" o = TlsBackendGetCertificateTypeMethodInfo - ResolveTlsBackendMethod "getClientConnectionType" o = TlsBackendGetClientConnectionTypeMethodInfo - ResolveTlsBackendMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTlsBackendMethod "getDefaultDatabase" o = TlsBackendGetDefaultDatabaseMethodInfo - ResolveTlsBackendMethod "getFileDatabaseType" o = TlsBackendGetFileDatabaseTypeMethodInfo - ResolveTlsBackendMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTlsBackendMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTlsBackendMethod "getServerConnectionType" o = TlsBackendGetServerConnectionTypeMethodInfo - ResolveTlsBackendMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTlsBackendMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTlsBackendMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTlsBackendMethod t TlsBackend, MethodInfo info TlsBackend p) => IsLabelProxy t (TlsBackend -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTlsBackendMethod t TlsBackend, MethodInfo info TlsBackend p) => IsLabel t (TlsBackend -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList TlsBackend = TlsBackendAttributeList -type TlsBackendAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList TlsBackend = TlsBackendSignalList -type TlsBackendSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_tls_backend_get_type" - c_g_tls_backend_get_type :: IO GType - -type instance ParentTypes TlsBackend = TlsBackendParentTypes -type TlsBackendParentTypes = '[GObject.Object] - -instance GObject TlsBackend where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_tls_backend_get_type - - -class GObject o => TlsBackendK o -instance (GObject o, IsDescendantOf TlsBackend o) => TlsBackendK o - -toTlsBackend :: TlsBackendK o => o -> IO TlsBackend -toTlsBackend = unsafeCastTo TlsBackend - --- method TlsBackend::get_certificate_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TGType) --- throws : False --- Skip return : False - -foreign import ccall "g_tls_backend_get_certificate_type" g_tls_backend_get_certificate_type :: - Ptr TlsBackend -> -- _obj : TInterface "Gio" "TlsBackend" - IO CGType - - -tlsBackendGetCertificateType :: - (MonadIO m, TlsBackendK a) => - a -- _obj - -> m GType -- result -tlsBackendGetCertificateType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_backend_get_certificate_type _obj' - let result' = GType result - touchManagedPtr _obj - return result' - -data TlsBackendGetCertificateTypeMethodInfo -instance (signature ~ (m GType), MonadIO m, TlsBackendK a) => MethodInfo TlsBackendGetCertificateTypeMethodInfo a signature where - overloadedMethod _ = tlsBackendGetCertificateType - --- method TlsBackend::get_client_connection_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TGType) --- throws : False --- Skip return : False - -foreign import ccall "g_tls_backend_get_client_connection_type" g_tls_backend_get_client_connection_type :: - Ptr TlsBackend -> -- _obj : TInterface "Gio" "TlsBackend" - IO CGType - - -tlsBackendGetClientConnectionType :: - (MonadIO m, TlsBackendK a) => - a -- _obj - -> m GType -- result -tlsBackendGetClientConnectionType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_backend_get_client_connection_type _obj' - let result' = GType result - touchManagedPtr _obj - return result' - -data TlsBackendGetClientConnectionTypeMethodInfo -instance (signature ~ (m GType), MonadIO m, TlsBackendK a) => MethodInfo TlsBackendGetClientConnectionTypeMethodInfo a signature where - overloadedMethod _ = tlsBackendGetClientConnectionType - --- method TlsBackend::get_default_database --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsDatabase") --- throws : False --- Skip return : False - -foreign import ccall "g_tls_backend_get_default_database" g_tls_backend_get_default_database :: - Ptr TlsBackend -> -- _obj : TInterface "Gio" "TlsBackend" - IO (Ptr TlsDatabase) - - -tlsBackendGetDefaultDatabase :: - (MonadIO m, TlsBackendK a) => - a -- _obj - -> m TlsDatabase -- result -tlsBackendGetDefaultDatabase _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_backend_get_default_database _obj' - checkUnexpectedReturnNULL "g_tls_backend_get_default_database" result - result' <- (wrapObject TlsDatabase) result - touchManagedPtr _obj - return result' - -data TlsBackendGetDefaultDatabaseMethodInfo -instance (signature ~ (m TlsDatabase), MonadIO m, TlsBackendK a) => MethodInfo TlsBackendGetDefaultDatabaseMethodInfo a signature where - overloadedMethod _ = tlsBackendGetDefaultDatabase - --- method TlsBackend::get_file_database_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TGType) --- throws : False --- Skip return : False - -foreign import ccall "g_tls_backend_get_file_database_type" g_tls_backend_get_file_database_type :: - Ptr TlsBackend -> -- _obj : TInterface "Gio" "TlsBackend" - IO CGType - - -tlsBackendGetFileDatabaseType :: - (MonadIO m, TlsBackendK a) => - a -- _obj - -> m GType -- result -tlsBackendGetFileDatabaseType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_backend_get_file_database_type _obj' - let result' = GType result - touchManagedPtr _obj - return result' - -data TlsBackendGetFileDatabaseTypeMethodInfo -instance (signature ~ (m GType), MonadIO m, TlsBackendK a) => MethodInfo TlsBackendGetFileDatabaseTypeMethodInfo a signature where - overloadedMethod _ = tlsBackendGetFileDatabaseType - --- method TlsBackend::get_server_connection_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TGType) --- throws : False --- Skip return : False - -foreign import ccall "g_tls_backend_get_server_connection_type" g_tls_backend_get_server_connection_type :: - Ptr TlsBackend -> -- _obj : TInterface "Gio" "TlsBackend" - IO CGType - - -tlsBackendGetServerConnectionType :: - (MonadIO m, TlsBackendK a) => - a -- _obj - -> m GType -- result -tlsBackendGetServerConnectionType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_backend_get_server_connection_type _obj' - let result' = GType result - touchManagedPtr _obj - return result' - -data TlsBackendGetServerConnectionTypeMethodInfo -instance (signature ~ (m GType), MonadIO m, TlsBackendK a) => MethodInfo TlsBackendGetServerConnectionTypeMethodInfo a signature where - overloadedMethod _ = tlsBackendGetServerConnectionType - --- method TlsBackend::supports_tls --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_tls_backend_supports_tls" g_tls_backend_supports_tls :: - Ptr TlsBackend -> -- _obj : TInterface "Gio" "TlsBackend" - IO CInt - - -tlsBackendSupportsTls :: - (MonadIO m, TlsBackendK a) => - a -- _obj - -> m Bool -- result -tlsBackendSupportsTls _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_backend_supports_tls _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TlsBackendSupportsTlsMethodInfo -instance (signature ~ (m Bool), MonadIO m, TlsBackendK a) => MethodInfo TlsBackendSupportsTlsMethodInfo a signature where - overloadedMethod _ = tlsBackendSupportsTls - --- method TlsBackend::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsBackend") --- throws : False --- Skip return : False - -foreign import ccall "g_tls_backend_get_default" g_tls_backend_get_default :: - IO (Ptr TlsBackend) - - -tlsBackendGetDefault :: - (MonadIO m) => - m TlsBackend -- result -tlsBackendGetDefault = liftIO $ do - result <- g_tls_backend_get_default - checkUnexpectedReturnNULL "g_tls_backend_get_default" result - result' <- (newObject TlsBackend) result - return result' - - diff --git a/GI/Gio/Interfaces/TlsBackend.hs-boot b/GI/Gio/Interfaces/TlsBackend.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/TlsBackend.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gio.Interfaces.TlsBackend where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TlsBackend = TlsBackend (ForeignPtr TlsBackend) -instance GObject TlsBackend where -class GObject o => TlsBackendK o -instance (GObject o, IsDescendantOf TlsBackend o) => TlsBackendK o -data TlsBackendGetCertificateTypeMethodInfo -data TlsBackendGetClientConnectionTypeMethodInfo -data TlsBackendGetDefaultDatabaseMethodInfo -data TlsBackendGetFileDatabaseTypeMethodInfo -data TlsBackendGetServerConnectionTypeMethodInfo -data TlsBackendSupportsTlsMethodInfo diff --git a/GI/Gio/Interfaces/TlsClientConnection.hs b/GI/Gio/Interfaces/TlsClientConnection.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/TlsClientConnection.hs +++ /dev/null @@ -1,596 +0,0 @@ - - -{- | -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.Interfaces.TlsClientConnection - ( - --- * Exported types - TlsClientConnection(..) , - noTlsClientConnection , - TlsClientConnectionK , - toTlsClientConnection , - - - -- * Methods --- ** tlsClientConnectionCopySessionState - TlsClientConnectionCopySessionStateMethodInfo, - tlsClientConnectionCopySessionState , - - --- ** tlsClientConnectionGetAcceptedCas - TlsClientConnectionGetAcceptedCasMethodInfo, - tlsClientConnectionGetAcceptedCas , - - --- ** tlsClientConnectionGetServerIdentity - TlsClientConnectionGetServerIdentityMethodInfo, - tlsClientConnectionGetServerIdentity , - - --- ** tlsClientConnectionGetUseSsl3 - TlsClientConnectionGetUseSsl3MethodInfo , - tlsClientConnectionGetUseSsl3 , - - --- ** tlsClientConnectionGetValidationFlags - TlsClientConnectionGetValidationFlagsMethodInfo, - tlsClientConnectionGetValidationFlags , - - --- ** tlsClientConnectionNew - tlsClientConnectionNew , - - --- ** tlsClientConnectionSetServerIdentity - TlsClientConnectionSetServerIdentityMethodInfo, - tlsClientConnectionSetServerIdentity , - - --- ** tlsClientConnectionSetUseSsl3 - TlsClientConnectionSetUseSsl3MethodInfo , - tlsClientConnectionSetUseSsl3 , - - --- ** tlsClientConnectionSetValidationFlags - TlsClientConnectionSetValidationFlagsMethodInfo, - tlsClientConnectionSetValidationFlags , - - - - - -- * Properties --- ** AcceptedCas - TlsClientConnectionAcceptedCasPropertyInfo, - getTlsClientConnectionAcceptedCas , - tlsClientConnectionAcceptedCas , - - --- ** ServerIdentity - TlsClientConnectionServerIdentityPropertyInfo, - constructTlsClientConnectionServerIdentity, - getTlsClientConnectionServerIdentity , - setTlsClientConnectionServerIdentity , - tlsClientConnectionServerIdentity , - - --- ** UseSsl3 - TlsClientConnectionUseSsl3PropertyInfo , - constructTlsClientConnectionUseSsl3 , - getTlsClientConnectionUseSsl3 , - setTlsClientConnectionUseSsl3 , - tlsClientConnectionUseSsl3 , - - --- ** ValidationFlags - TlsClientConnectionValidationFlagsPropertyInfo, - constructTlsClientConnectionValidationFlags, - getTlsClientConnectionValidationFlags , - setTlsClientConnectionValidationFlags , - tlsClientConnectionValidationFlags , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface TlsClientConnection - -newtype TlsClientConnection = TlsClientConnection (ForeignPtr TlsClientConnection) -noTlsClientConnection :: Maybe TlsClientConnection -noTlsClientConnection = Nothing - -type family ResolveTlsClientConnectionMethod (t :: Symbol) (o :: *) :: * where - ResolveTlsClientConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTlsClientConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTlsClientConnectionMethod "clearPending" o = IOStreamClearPendingMethodInfo - ResolveTlsClientConnectionMethod "close" o = IOStreamCloseMethodInfo - ResolveTlsClientConnectionMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo - ResolveTlsClientConnectionMethod "closeFinish" o = IOStreamCloseFinishMethodInfo - ResolveTlsClientConnectionMethod "copySessionState" o = TlsClientConnectionCopySessionStateMethodInfo - ResolveTlsClientConnectionMethod "emitAcceptCertificate" o = TlsConnectionEmitAcceptCertificateMethodInfo - ResolveTlsClientConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTlsClientConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTlsClientConnectionMethod "handshake" o = TlsConnectionHandshakeMethodInfo - ResolveTlsClientConnectionMethod "handshakeAsync" o = TlsConnectionHandshakeAsyncMethodInfo - ResolveTlsClientConnectionMethod "handshakeFinish" o = TlsConnectionHandshakeFinishMethodInfo - ResolveTlsClientConnectionMethod "hasPending" o = IOStreamHasPendingMethodInfo - ResolveTlsClientConnectionMethod "isClosed" o = IOStreamIsClosedMethodInfo - ResolveTlsClientConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTlsClientConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTlsClientConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTlsClientConnectionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTlsClientConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTlsClientConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTlsClientConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTlsClientConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTlsClientConnectionMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo - ResolveTlsClientConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTlsClientConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTlsClientConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTlsClientConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTlsClientConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTlsClientConnectionMethod "getAcceptedCas" o = TlsClientConnectionGetAcceptedCasMethodInfo - ResolveTlsClientConnectionMethod "getCertificate" o = TlsConnectionGetCertificateMethodInfo - ResolveTlsClientConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTlsClientConnectionMethod "getDatabase" o = TlsConnectionGetDatabaseMethodInfo - ResolveTlsClientConnectionMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo - ResolveTlsClientConnectionMethod "getInteraction" o = TlsConnectionGetInteractionMethodInfo - ResolveTlsClientConnectionMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo - ResolveTlsClientConnectionMethod "getPeerCertificate" o = TlsConnectionGetPeerCertificateMethodInfo - ResolveTlsClientConnectionMethod "getPeerCertificateErrors" o = TlsConnectionGetPeerCertificateErrorsMethodInfo - ResolveTlsClientConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTlsClientConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTlsClientConnectionMethod "getRehandshakeMode" o = TlsConnectionGetRehandshakeModeMethodInfo - ResolveTlsClientConnectionMethod "getRequireCloseNotify" o = TlsConnectionGetRequireCloseNotifyMethodInfo - ResolveTlsClientConnectionMethod "getServerIdentity" o = TlsClientConnectionGetServerIdentityMethodInfo - ResolveTlsClientConnectionMethod "getUseSsl3" o = TlsClientConnectionGetUseSsl3MethodInfo - ResolveTlsClientConnectionMethod "getUseSystemCertdb" o = TlsConnectionGetUseSystemCertdbMethodInfo - ResolveTlsClientConnectionMethod "getValidationFlags" o = TlsClientConnectionGetValidationFlagsMethodInfo - ResolveTlsClientConnectionMethod "setCertificate" o = TlsConnectionSetCertificateMethodInfo - ResolveTlsClientConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTlsClientConnectionMethod "setDatabase" o = TlsConnectionSetDatabaseMethodInfo - ResolveTlsClientConnectionMethod "setInteraction" o = TlsConnectionSetInteractionMethodInfo - ResolveTlsClientConnectionMethod "setPending" o = IOStreamSetPendingMethodInfo - ResolveTlsClientConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTlsClientConnectionMethod "setRehandshakeMode" o = TlsConnectionSetRehandshakeModeMethodInfo - ResolveTlsClientConnectionMethod "setRequireCloseNotify" o = TlsConnectionSetRequireCloseNotifyMethodInfo - ResolveTlsClientConnectionMethod "setServerIdentity" o = TlsClientConnectionSetServerIdentityMethodInfo - ResolveTlsClientConnectionMethod "setUseSsl3" o = TlsClientConnectionSetUseSsl3MethodInfo - ResolveTlsClientConnectionMethod "setUseSystemCertdb" o = TlsConnectionSetUseSystemCertdbMethodInfo - ResolveTlsClientConnectionMethod "setValidationFlags" o = TlsClientConnectionSetValidationFlagsMethodInfo - ResolveTlsClientConnectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTlsClientConnectionMethod t TlsClientConnection, MethodInfo info TlsClientConnection p) => IsLabelProxy t (TlsClientConnection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTlsClientConnectionMethod t TlsClientConnection, MethodInfo info TlsClientConnection p) => IsLabel t (TlsClientConnection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "accepted-cas" - -- Type: TGList (TBasicType TPtr) - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getTlsClientConnectionAcceptedCas :: (MonadIO m, TlsClientConnectionK o) => o -> m [Ptr ()] -getTlsClientConnectionAcceptedCas obj = liftIO $ getObjectPropertyPtrGList obj "accepted-cas" - -data TlsClientConnectionAcceptedCasPropertyInfo -instance AttrInfo TlsClientConnectionAcceptedCasPropertyInfo where - type AttrAllowedOps TlsClientConnectionAcceptedCasPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint TlsClientConnectionAcceptedCasPropertyInfo = (~) () - type AttrBaseTypeConstraint TlsClientConnectionAcceptedCasPropertyInfo = TlsClientConnectionK - type AttrGetType TlsClientConnectionAcceptedCasPropertyInfo = ([Ptr ()]) - type AttrLabel TlsClientConnectionAcceptedCasPropertyInfo = "accepted-cas" - attrGet _ = getTlsClientConnectionAcceptedCas - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "server-identity" - -- Type: TInterface "Gio" "SocketConnectable" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getTlsClientConnectionServerIdentity :: (MonadIO m, TlsClientConnectionK o) => o -> m SocketConnectable -getTlsClientConnectionServerIdentity obj = liftIO $ checkUnexpectedNothing "getTlsClientConnectionServerIdentity" $ getObjectPropertyObject obj "server-identity" SocketConnectable - -setTlsClientConnectionServerIdentity :: (MonadIO m, TlsClientConnectionK o, SocketConnectableK a) => o -> a -> m () -setTlsClientConnectionServerIdentity obj val = liftIO $ setObjectPropertyObject obj "server-identity" (Just val) - -constructTlsClientConnectionServerIdentity :: (SocketConnectableK a) => a -> IO ([Char], GValue) -constructTlsClientConnectionServerIdentity val = constructObjectPropertyObject "server-identity" (Just val) - -data TlsClientConnectionServerIdentityPropertyInfo -instance AttrInfo TlsClientConnectionServerIdentityPropertyInfo where - type AttrAllowedOps TlsClientConnectionServerIdentityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TlsClientConnectionServerIdentityPropertyInfo = SocketConnectableK - type AttrBaseTypeConstraint TlsClientConnectionServerIdentityPropertyInfo = TlsClientConnectionK - type AttrGetType TlsClientConnectionServerIdentityPropertyInfo = SocketConnectable - type AttrLabel TlsClientConnectionServerIdentityPropertyInfo = "server-identity" - attrGet _ = getTlsClientConnectionServerIdentity - attrSet _ = setTlsClientConnectionServerIdentity - attrConstruct _ = constructTlsClientConnectionServerIdentity - attrClear _ = undefined - --- VVV Prop "use-ssl3" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getTlsClientConnectionUseSsl3 :: (MonadIO m, TlsClientConnectionK o) => o -> m Bool -getTlsClientConnectionUseSsl3 obj = liftIO $ getObjectPropertyBool obj "use-ssl3" - -setTlsClientConnectionUseSsl3 :: (MonadIO m, TlsClientConnectionK o) => o -> Bool -> m () -setTlsClientConnectionUseSsl3 obj val = liftIO $ setObjectPropertyBool obj "use-ssl3" val - -constructTlsClientConnectionUseSsl3 :: Bool -> IO ([Char], GValue) -constructTlsClientConnectionUseSsl3 val = constructObjectPropertyBool "use-ssl3" val - -data TlsClientConnectionUseSsl3PropertyInfo -instance AttrInfo TlsClientConnectionUseSsl3PropertyInfo where - type AttrAllowedOps TlsClientConnectionUseSsl3PropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TlsClientConnectionUseSsl3PropertyInfo = (~) Bool - type AttrBaseTypeConstraint TlsClientConnectionUseSsl3PropertyInfo = TlsClientConnectionK - type AttrGetType TlsClientConnectionUseSsl3PropertyInfo = Bool - type AttrLabel TlsClientConnectionUseSsl3PropertyInfo = "use-ssl3" - attrGet _ = getTlsClientConnectionUseSsl3 - attrSet _ = setTlsClientConnectionUseSsl3 - attrConstruct _ = constructTlsClientConnectionUseSsl3 - attrClear _ = undefined - --- VVV Prop "validation-flags" - -- Type: TInterface "Gio" "TlsCertificateFlags" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getTlsClientConnectionValidationFlags :: (MonadIO m, TlsClientConnectionK o) => o -> m [TlsCertificateFlags] -getTlsClientConnectionValidationFlags obj = liftIO $ getObjectPropertyFlags obj "validation-flags" - -setTlsClientConnectionValidationFlags :: (MonadIO m, TlsClientConnectionK o) => o -> [TlsCertificateFlags] -> m () -setTlsClientConnectionValidationFlags obj val = liftIO $ setObjectPropertyFlags obj "validation-flags" val - -constructTlsClientConnectionValidationFlags :: [TlsCertificateFlags] -> IO ([Char], GValue) -constructTlsClientConnectionValidationFlags val = constructObjectPropertyFlags "validation-flags" val - -data TlsClientConnectionValidationFlagsPropertyInfo -instance AttrInfo TlsClientConnectionValidationFlagsPropertyInfo where - type AttrAllowedOps TlsClientConnectionValidationFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TlsClientConnectionValidationFlagsPropertyInfo = (~) [TlsCertificateFlags] - type AttrBaseTypeConstraint TlsClientConnectionValidationFlagsPropertyInfo = TlsClientConnectionK - type AttrGetType TlsClientConnectionValidationFlagsPropertyInfo = [TlsCertificateFlags] - type AttrLabel TlsClientConnectionValidationFlagsPropertyInfo = "validation-flags" - attrGet _ = getTlsClientConnectionValidationFlags - attrSet _ = setTlsClientConnectionValidationFlags - attrConstruct _ = constructTlsClientConnectionValidationFlags - attrClear _ = undefined - -type instance AttributeList TlsClientConnection = TlsClientConnectionAttributeList -type TlsClientConnectionAttributeList = ('[ '("acceptedCas", TlsClientConnectionAcceptedCasPropertyInfo), '("baseIoStream", TlsConnectionBaseIoStreamPropertyInfo), '("certificate", TlsConnectionCertificatePropertyInfo), '("closed", IOStreamClosedPropertyInfo), '("database", TlsConnectionDatabasePropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("interaction", TlsConnectionInteractionPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("peerCertificate", TlsConnectionPeerCertificatePropertyInfo), '("peerCertificateErrors", TlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshakeMode", TlsConnectionRehandshakeModePropertyInfo), '("requireCloseNotify", TlsConnectionRequireCloseNotifyPropertyInfo), '("serverIdentity", TlsClientConnectionServerIdentityPropertyInfo), '("useSsl3", TlsClientConnectionUseSsl3PropertyInfo), '("useSystemCertdb", TlsConnectionUseSystemCertdbPropertyInfo), '("validationFlags", TlsClientConnectionValidationFlagsPropertyInfo)] :: [(Symbol, *)]) - -tlsClientConnectionAcceptedCas :: AttrLabelProxy "acceptedCas" -tlsClientConnectionAcceptedCas = AttrLabelProxy - -tlsClientConnectionServerIdentity :: AttrLabelProxy "serverIdentity" -tlsClientConnectionServerIdentity = AttrLabelProxy - -tlsClientConnectionUseSsl3 :: AttrLabelProxy "useSsl3" -tlsClientConnectionUseSsl3 = AttrLabelProxy - -tlsClientConnectionValidationFlags :: AttrLabelProxy "validationFlags" -tlsClientConnectionValidationFlags = AttrLabelProxy - -type instance SignalList TlsClientConnection = TlsClientConnectionSignalList -type TlsClientConnectionSignalList = ('[ '("acceptCertificate", TlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_tls_client_connection_get_type" - c_g_tls_client_connection_get_type :: IO GType - -type instance ParentTypes TlsClientConnection = TlsClientConnectionParentTypes -type TlsClientConnectionParentTypes = '[TlsConnection, IOStream, GObject.Object] - -instance GObject TlsClientConnection where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_tls_client_connection_get_type - - -class GObject o => TlsClientConnectionK o -instance (GObject o, IsDescendantOf TlsClientConnection o) => TlsClientConnectionK o - -toTlsClientConnection :: TlsClientConnectionK o => o -> IO TlsClientConnection -toTlsClientConnection = unsafeCastTo TlsClientConnection - --- method TlsClientConnection::copy_session_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_client_connection_copy_session_state" g_tls_client_connection_copy_session_state :: - Ptr TlsClientConnection -> -- _obj : TInterface "Gio" "TlsClientConnection" - Ptr TlsClientConnection -> -- source : TInterface "Gio" "TlsClientConnection" - IO () - - -tlsClientConnectionCopySessionState :: - (MonadIO m, TlsClientConnectionK a, TlsClientConnectionK b) => - a -- _obj - -> b -- source - -> m () -- result -tlsClientConnectionCopySessionState _obj source = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let source' = unsafeManagedPtrCastPtr source - g_tls_client_connection_copy_session_state _obj' source' - touchManagedPtr _obj - touchManagedPtr source - return () - -data TlsClientConnectionCopySessionStateMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, TlsClientConnectionK a, TlsClientConnectionK b) => MethodInfo TlsClientConnectionCopySessionStateMethodInfo a signature where - overloadedMethod _ = tlsClientConnectionCopySessionState - --- method TlsClientConnection::get_accepted_cas --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList TByteArray) --- throws : False --- Skip return : False - -foreign import ccall "g_tls_client_connection_get_accepted_cas" g_tls_client_connection_get_accepted_cas :: - Ptr TlsClientConnection -> -- _obj : TInterface "Gio" "TlsClientConnection" - IO (Ptr (GList (Ptr GByteArray))) - - -tlsClientConnectionGetAcceptedCas :: - (MonadIO m, TlsClientConnectionK a) => - a -- _obj - -> m [ByteString] -- result -tlsClientConnectionGetAcceptedCas _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_client_connection_get_accepted_cas _obj' - result' <- unpackGList result - result'' <- mapM unpackGByteArray result' - mapGList unrefGByteArray result - g_list_free result - touchManagedPtr _obj - return result'' - -data TlsClientConnectionGetAcceptedCasMethodInfo -instance (signature ~ (m [ByteString]), MonadIO m, TlsClientConnectionK a) => MethodInfo TlsClientConnectionGetAcceptedCasMethodInfo a signature where - overloadedMethod _ = tlsClientConnectionGetAcceptedCas - --- method TlsClientConnection::get_server_identity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketConnectable") --- throws : False --- Skip return : False - -foreign import ccall "g_tls_client_connection_get_server_identity" g_tls_client_connection_get_server_identity :: - Ptr TlsClientConnection -> -- _obj : TInterface "Gio" "TlsClientConnection" - IO (Ptr SocketConnectable) - - -tlsClientConnectionGetServerIdentity :: - (MonadIO m, TlsClientConnectionK a) => - a -- _obj - -> m SocketConnectable -- result -tlsClientConnectionGetServerIdentity _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_client_connection_get_server_identity _obj' - checkUnexpectedReturnNULL "g_tls_client_connection_get_server_identity" result - result' <- (newObject SocketConnectable) result - touchManagedPtr _obj - return result' - -data TlsClientConnectionGetServerIdentityMethodInfo -instance (signature ~ (m SocketConnectable), MonadIO m, TlsClientConnectionK a) => MethodInfo TlsClientConnectionGetServerIdentityMethodInfo a signature where - overloadedMethod _ = tlsClientConnectionGetServerIdentity - --- method TlsClientConnection::get_use_ssl3 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_tls_client_connection_get_use_ssl3" g_tls_client_connection_get_use_ssl3 :: - Ptr TlsClientConnection -> -- _obj : TInterface "Gio" "TlsClientConnection" - IO CInt - - -tlsClientConnectionGetUseSsl3 :: - (MonadIO m, TlsClientConnectionK a) => - a -- _obj - -> m Bool -- result -tlsClientConnectionGetUseSsl3 _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_client_connection_get_use_ssl3 _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TlsClientConnectionGetUseSsl3MethodInfo -instance (signature ~ (m Bool), MonadIO m, TlsClientConnectionK a) => MethodInfo TlsClientConnectionGetUseSsl3MethodInfo a signature where - overloadedMethod _ = tlsClientConnectionGetUseSsl3 - --- method TlsClientConnection::get_validation_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsCertificateFlags") --- throws : False --- Skip return : False - -foreign import ccall "g_tls_client_connection_get_validation_flags" g_tls_client_connection_get_validation_flags :: - Ptr TlsClientConnection -> -- _obj : TInterface "Gio" "TlsClientConnection" - IO CUInt - - -tlsClientConnectionGetValidationFlags :: - (MonadIO m, TlsClientConnectionK a) => - a -- _obj - -> m [TlsCertificateFlags] -- result -tlsClientConnectionGetValidationFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_client_connection_get_validation_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data TlsClientConnectionGetValidationFlagsMethodInfo -instance (signature ~ (m [TlsCertificateFlags]), MonadIO m, TlsClientConnectionK a) => MethodInfo TlsClientConnectionGetValidationFlagsMethodInfo a signature where - overloadedMethod _ = tlsClientConnectionGetValidationFlags - --- method TlsClientConnection::set_server_identity --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_client_connection_set_server_identity" g_tls_client_connection_set_server_identity :: - Ptr TlsClientConnection -> -- _obj : TInterface "Gio" "TlsClientConnection" - Ptr SocketConnectable -> -- identity : TInterface "Gio" "SocketConnectable" - IO () - - -tlsClientConnectionSetServerIdentity :: - (MonadIO m, TlsClientConnectionK a, SocketConnectableK b) => - a -- _obj - -> b -- identity - -> m () -- result -tlsClientConnectionSetServerIdentity _obj identity = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let identity' = unsafeManagedPtrCastPtr identity - g_tls_client_connection_set_server_identity _obj' identity' - touchManagedPtr _obj - touchManagedPtr identity - return () - -data TlsClientConnectionSetServerIdentityMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, TlsClientConnectionK a, SocketConnectableK b) => MethodInfo TlsClientConnectionSetServerIdentityMethodInfo a signature where - overloadedMethod _ = tlsClientConnectionSetServerIdentity - --- method TlsClientConnection::set_use_ssl3 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_ssl3", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_client_connection_set_use_ssl3" g_tls_client_connection_set_use_ssl3 :: - Ptr TlsClientConnection -> -- _obj : TInterface "Gio" "TlsClientConnection" - CInt -> -- use_ssl3 : TBasicType TBoolean - IO () - - -tlsClientConnectionSetUseSsl3 :: - (MonadIO m, TlsClientConnectionK a) => - a -- _obj - -> Bool -- useSsl3 - -> m () -- result -tlsClientConnectionSetUseSsl3 _obj useSsl3 = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useSsl3' = (fromIntegral . fromEnum) useSsl3 - g_tls_client_connection_set_use_ssl3 _obj' useSsl3' - touchManagedPtr _obj - return () - -data TlsClientConnectionSetUseSsl3MethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TlsClientConnectionK a) => MethodInfo TlsClientConnectionSetUseSsl3MethodInfo a signature where - overloadedMethod _ = tlsClientConnectionSetUseSsl3 - --- method TlsClientConnection::set_validation_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsClientConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_client_connection_set_validation_flags" g_tls_client_connection_set_validation_flags :: - Ptr TlsClientConnection -> -- _obj : TInterface "Gio" "TlsClientConnection" - CUInt -> -- flags : TInterface "Gio" "TlsCertificateFlags" - IO () - - -tlsClientConnectionSetValidationFlags :: - (MonadIO m, TlsClientConnectionK a) => - a -- _obj - -> [TlsCertificateFlags] -- flags - -> m () -- result -tlsClientConnectionSetValidationFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - g_tls_client_connection_set_validation_flags _obj' flags' - touchManagedPtr _obj - return () - -data TlsClientConnectionSetValidationFlagsMethodInfo -instance (signature ~ ([TlsCertificateFlags] -> m ()), MonadIO m, TlsClientConnectionK a) => MethodInfo TlsClientConnectionSetValidationFlagsMethodInfo a signature where - overloadedMethod _ = tlsClientConnectionSetValidationFlags - --- method TlsClientConnection::new --- method type : MemberFunction --- Args : [Arg {argCName = "base_io_stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "server_identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsClientConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_client_connection_new" g_tls_client_connection_new :: - Ptr IOStream -> -- base_io_stream : TInterface "Gio" "IOStream" - Ptr SocketConnectable -> -- server_identity : TInterface "Gio" "SocketConnectable" - Ptr (Ptr GError) -> -- error - IO (Ptr TlsClientConnection) - - -tlsClientConnectionNew :: - (MonadIO m, IOStreamK a, SocketConnectableK b) => - a -- baseIoStream - -> Maybe (b) -- serverIdentity - -> m TlsClientConnection -- result -tlsClientConnectionNew baseIoStream serverIdentity = liftIO $ do - let baseIoStream' = unsafeManagedPtrCastPtr baseIoStream - maybeServerIdentity <- case serverIdentity of - Nothing -> return nullPtr - Just jServerIdentity -> do - let jServerIdentity' = unsafeManagedPtrCastPtr jServerIdentity - return jServerIdentity' - onException (do - result <- propagateGError $ g_tls_client_connection_new baseIoStream' maybeServerIdentity - checkUnexpectedReturnNULL "g_tls_client_connection_new" result - result' <- (wrapObject TlsClientConnection) result - touchManagedPtr baseIoStream - whenJust serverIdentity touchManagedPtr - return result' - ) (do - return () - ) - - diff --git a/GI/Gio/Interfaces/TlsClientConnection.hs-boot b/GI/Gio/Interfaces/TlsClientConnection.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/TlsClientConnection.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.Gio.Interfaces.TlsClientConnection where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TlsClientConnection = TlsClientConnection (ForeignPtr TlsClientConnection) -data TlsClientConnectionAcceptedCasPropertyInfo -data TlsClientConnectionServerIdentityPropertyInfo -data TlsClientConnectionUseSsl3PropertyInfo -data TlsClientConnectionValidationFlagsPropertyInfo -instance GObject TlsClientConnection where -class GObject o => TlsClientConnectionK o -instance (GObject o, IsDescendantOf TlsClientConnection o) => TlsClientConnectionK o -data TlsClientConnectionCopySessionStateMethodInfo -data TlsClientConnectionGetAcceptedCasMethodInfo -data TlsClientConnectionGetServerIdentityMethodInfo -data TlsClientConnectionGetUseSsl3MethodInfo -data TlsClientConnectionGetValidationFlagsMethodInfo -data TlsClientConnectionSetServerIdentityMethodInfo -data TlsClientConnectionSetUseSsl3MethodInfo -data TlsClientConnectionSetValidationFlagsMethodInfo diff --git a/GI/Gio/Interfaces/TlsFileDatabase.hs b/GI/Gio/Interfaces/TlsFileDatabase.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/TlsFileDatabase.hs +++ /dev/null @@ -1,188 +0,0 @@ - - -{- | -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.Interfaces.TlsFileDatabase - ( - --- * Exported types - TlsFileDatabase(..) , - noTlsFileDatabase , - TlsFileDatabaseK , - toTlsFileDatabase , - - - -- * Methods --- ** tlsFileDatabaseNew - tlsFileDatabaseNew , - - - - - -- * Properties --- ** Anchors - TlsFileDatabaseAnchorsPropertyInfo , - clearTlsFileDatabaseAnchors , - constructTlsFileDatabaseAnchors , - getTlsFileDatabaseAnchors , - setTlsFileDatabaseAnchors , - tlsFileDatabaseAnchors , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface TlsFileDatabase - -newtype TlsFileDatabase = TlsFileDatabase (ForeignPtr TlsFileDatabase) -noTlsFileDatabase :: Maybe TlsFileDatabase -noTlsFileDatabase = Nothing - -type family ResolveTlsFileDatabaseMethod (t :: Symbol) (o :: *) :: * where - ResolveTlsFileDatabaseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTlsFileDatabaseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTlsFileDatabaseMethod "createCertificateHandle" o = TlsDatabaseCreateCertificateHandleMethodInfo - ResolveTlsFileDatabaseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTlsFileDatabaseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTlsFileDatabaseMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTlsFileDatabaseMethod "lookupCertificateForHandle" o = TlsDatabaseLookupCertificateForHandleMethodInfo - ResolveTlsFileDatabaseMethod "lookupCertificateForHandleAsync" o = TlsDatabaseLookupCertificateForHandleAsyncMethodInfo - ResolveTlsFileDatabaseMethod "lookupCertificateForHandleFinish" o = TlsDatabaseLookupCertificateForHandleFinishMethodInfo - ResolveTlsFileDatabaseMethod "lookupCertificateIssuer" o = TlsDatabaseLookupCertificateIssuerMethodInfo - ResolveTlsFileDatabaseMethod "lookupCertificateIssuerAsync" o = TlsDatabaseLookupCertificateIssuerAsyncMethodInfo - ResolveTlsFileDatabaseMethod "lookupCertificateIssuerFinish" o = TlsDatabaseLookupCertificateIssuerFinishMethodInfo - ResolveTlsFileDatabaseMethod "lookupCertificatesIssuedBy" o = TlsDatabaseLookupCertificatesIssuedByMethodInfo - ResolveTlsFileDatabaseMethod "lookupCertificatesIssuedByAsync" o = TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo - ResolveTlsFileDatabaseMethod "lookupCertificatesIssuedByFinish" o = TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo - ResolveTlsFileDatabaseMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTlsFileDatabaseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTlsFileDatabaseMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTlsFileDatabaseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTlsFileDatabaseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTlsFileDatabaseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTlsFileDatabaseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTlsFileDatabaseMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTlsFileDatabaseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTlsFileDatabaseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTlsFileDatabaseMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTlsFileDatabaseMethod "verifyChain" o = TlsDatabaseVerifyChainMethodInfo - ResolveTlsFileDatabaseMethod "verifyChainAsync" o = TlsDatabaseVerifyChainAsyncMethodInfo - ResolveTlsFileDatabaseMethod "verifyChainFinish" o = TlsDatabaseVerifyChainFinishMethodInfo - ResolveTlsFileDatabaseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTlsFileDatabaseMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTlsFileDatabaseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTlsFileDatabaseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTlsFileDatabaseMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTlsFileDatabaseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTlsFileDatabaseMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTlsFileDatabaseMethod t TlsFileDatabase, MethodInfo info TlsFileDatabase p) => IsLabelProxy t (TlsFileDatabase -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTlsFileDatabaseMethod t TlsFileDatabase, MethodInfo info TlsFileDatabase p) => IsLabel t (TlsFileDatabase -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "anchors" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getTlsFileDatabaseAnchors :: (MonadIO m, TlsFileDatabaseK o) => o -> m (Maybe T.Text) -getTlsFileDatabaseAnchors obj = liftIO $ getObjectPropertyString obj "anchors" - -setTlsFileDatabaseAnchors :: (MonadIO m, TlsFileDatabaseK o) => o -> T.Text -> m () -setTlsFileDatabaseAnchors obj val = liftIO $ setObjectPropertyString obj "anchors" (Just val) - -constructTlsFileDatabaseAnchors :: T.Text -> IO ([Char], GValue) -constructTlsFileDatabaseAnchors val = constructObjectPropertyString "anchors" (Just val) - -clearTlsFileDatabaseAnchors :: (MonadIO m, TlsFileDatabaseK o) => o -> m () -clearTlsFileDatabaseAnchors obj = liftIO $ setObjectPropertyString obj "anchors" (Nothing :: Maybe T.Text) - -data TlsFileDatabaseAnchorsPropertyInfo -instance AttrInfo TlsFileDatabaseAnchorsPropertyInfo where - type AttrAllowedOps TlsFileDatabaseAnchorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TlsFileDatabaseAnchorsPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TlsFileDatabaseAnchorsPropertyInfo = TlsFileDatabaseK - type AttrGetType TlsFileDatabaseAnchorsPropertyInfo = (Maybe T.Text) - type AttrLabel TlsFileDatabaseAnchorsPropertyInfo = "anchors" - attrGet _ = getTlsFileDatabaseAnchors - attrSet _ = setTlsFileDatabaseAnchors - attrConstruct _ = constructTlsFileDatabaseAnchors - attrClear _ = clearTlsFileDatabaseAnchors - -type instance AttributeList TlsFileDatabase = TlsFileDatabaseAttributeList -type TlsFileDatabaseAttributeList = ('[ '("anchors", TlsFileDatabaseAnchorsPropertyInfo)] :: [(Symbol, *)]) - -tlsFileDatabaseAnchors :: AttrLabelProxy "anchors" -tlsFileDatabaseAnchors = AttrLabelProxy - -type instance SignalList TlsFileDatabase = TlsFileDatabaseSignalList -type TlsFileDatabaseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_tls_file_database_get_type" - c_g_tls_file_database_get_type :: IO GType - -type instance ParentTypes TlsFileDatabase = TlsFileDatabaseParentTypes -type TlsFileDatabaseParentTypes = '[TlsDatabase, GObject.Object] - -instance GObject TlsFileDatabase where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_tls_file_database_get_type - - -class GObject o => TlsFileDatabaseK o -instance (GObject o, IsDescendantOf TlsFileDatabase o) => TlsFileDatabaseK o - -toTlsFileDatabase :: TlsFileDatabaseK o => o -> IO TlsFileDatabase -toTlsFileDatabase = unsafeCastTo TlsFileDatabase - --- method TlsFileDatabase::new --- method type : MemberFunction --- Args : [Arg {argCName = "anchors", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsFileDatabase") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_file_database_new" g_tls_file_database_new :: - CString -> -- anchors : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr TlsFileDatabase) - - -tlsFileDatabaseNew :: - (MonadIO m) => - T.Text -- anchors - -> m TlsFileDatabase -- result -tlsFileDatabaseNew anchors = liftIO $ do - anchors' <- textToCString anchors - onException (do - result <- propagateGError $ g_tls_file_database_new anchors' - checkUnexpectedReturnNULL "g_tls_file_database_new" result - result' <- (wrapObject TlsFileDatabase) result - freeMem anchors' - return result' - ) (do - freeMem anchors' - ) - - diff --git a/GI/Gio/Interfaces/TlsFileDatabase.hs-boot b/GI/Gio/Interfaces/TlsFileDatabase.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/TlsFileDatabase.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gio.Interfaces.TlsFileDatabase where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TlsFileDatabase = TlsFileDatabase (ForeignPtr TlsFileDatabase) -data TlsFileDatabaseAnchorsPropertyInfo -instance GObject TlsFileDatabase where -class GObject o => TlsFileDatabaseK o -instance (GObject o, IsDescendantOf TlsFileDatabase o) => TlsFileDatabaseK o diff --git a/GI/Gio/Interfaces/TlsServerConnection.hs b/GI/Gio/Interfaces/TlsServerConnection.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/TlsServerConnection.hs +++ /dev/null @@ -1,207 +0,0 @@ - - -{- | -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.Interfaces.TlsServerConnection - ( - --- * Exported types - TlsServerConnection(..) , - noTlsServerConnection , - TlsServerConnectionK , - toTlsServerConnection , - - - -- * Methods --- ** tlsServerConnectionNew - tlsServerConnectionNew , - - - - - -- * Properties --- ** AuthenticationMode - TlsServerConnectionAuthenticationModePropertyInfo, - constructTlsServerConnectionAuthenticationMode, - getTlsServerConnectionAuthenticationMode, - setTlsServerConnectionAuthenticationMode, - tlsServerConnectionAuthenticationMode , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface TlsServerConnection - -newtype TlsServerConnection = TlsServerConnection (ForeignPtr TlsServerConnection) -noTlsServerConnection :: Maybe TlsServerConnection -noTlsServerConnection = Nothing - -type family ResolveTlsServerConnectionMethod (t :: Symbol) (o :: *) :: * where - ResolveTlsServerConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTlsServerConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTlsServerConnectionMethod "clearPending" o = IOStreamClearPendingMethodInfo - ResolveTlsServerConnectionMethod "close" o = IOStreamCloseMethodInfo - ResolveTlsServerConnectionMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo - ResolveTlsServerConnectionMethod "closeFinish" o = IOStreamCloseFinishMethodInfo - ResolveTlsServerConnectionMethod "emitAcceptCertificate" o = TlsConnectionEmitAcceptCertificateMethodInfo - ResolveTlsServerConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTlsServerConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTlsServerConnectionMethod "handshake" o = TlsConnectionHandshakeMethodInfo - ResolveTlsServerConnectionMethod "handshakeAsync" o = TlsConnectionHandshakeAsyncMethodInfo - ResolveTlsServerConnectionMethod "handshakeFinish" o = TlsConnectionHandshakeFinishMethodInfo - ResolveTlsServerConnectionMethod "hasPending" o = IOStreamHasPendingMethodInfo - ResolveTlsServerConnectionMethod "isClosed" o = IOStreamIsClosedMethodInfo - ResolveTlsServerConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTlsServerConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTlsServerConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTlsServerConnectionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTlsServerConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTlsServerConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTlsServerConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTlsServerConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTlsServerConnectionMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo - ResolveTlsServerConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTlsServerConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTlsServerConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTlsServerConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTlsServerConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTlsServerConnectionMethod "getCertificate" o = TlsConnectionGetCertificateMethodInfo - ResolveTlsServerConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTlsServerConnectionMethod "getDatabase" o = TlsConnectionGetDatabaseMethodInfo - ResolveTlsServerConnectionMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo - ResolveTlsServerConnectionMethod "getInteraction" o = TlsConnectionGetInteractionMethodInfo - ResolveTlsServerConnectionMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo - ResolveTlsServerConnectionMethod "getPeerCertificate" o = TlsConnectionGetPeerCertificateMethodInfo - ResolveTlsServerConnectionMethod "getPeerCertificateErrors" o = TlsConnectionGetPeerCertificateErrorsMethodInfo - ResolveTlsServerConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTlsServerConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTlsServerConnectionMethod "getRehandshakeMode" o = TlsConnectionGetRehandshakeModeMethodInfo - ResolveTlsServerConnectionMethod "getRequireCloseNotify" o = TlsConnectionGetRequireCloseNotifyMethodInfo - ResolveTlsServerConnectionMethod "getUseSystemCertdb" o = TlsConnectionGetUseSystemCertdbMethodInfo - ResolveTlsServerConnectionMethod "setCertificate" o = TlsConnectionSetCertificateMethodInfo - ResolveTlsServerConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTlsServerConnectionMethod "setDatabase" o = TlsConnectionSetDatabaseMethodInfo - ResolveTlsServerConnectionMethod "setInteraction" o = TlsConnectionSetInteractionMethodInfo - ResolveTlsServerConnectionMethod "setPending" o = IOStreamSetPendingMethodInfo - ResolveTlsServerConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTlsServerConnectionMethod "setRehandshakeMode" o = TlsConnectionSetRehandshakeModeMethodInfo - ResolveTlsServerConnectionMethod "setRequireCloseNotify" o = TlsConnectionSetRequireCloseNotifyMethodInfo - ResolveTlsServerConnectionMethod "setUseSystemCertdb" o = TlsConnectionSetUseSystemCertdbMethodInfo - ResolveTlsServerConnectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTlsServerConnectionMethod t TlsServerConnection, MethodInfo info TlsServerConnection p) => IsLabelProxy t (TlsServerConnection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTlsServerConnectionMethod t TlsServerConnection, MethodInfo info TlsServerConnection p) => IsLabel t (TlsServerConnection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "authentication-mode" - -- Type: TInterface "Gio" "TlsAuthenticationMode" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getTlsServerConnectionAuthenticationMode :: (MonadIO m, TlsServerConnectionK o) => o -> m TlsAuthenticationMode -getTlsServerConnectionAuthenticationMode obj = liftIO $ getObjectPropertyEnum obj "authentication-mode" - -setTlsServerConnectionAuthenticationMode :: (MonadIO m, TlsServerConnectionK o) => o -> TlsAuthenticationMode -> m () -setTlsServerConnectionAuthenticationMode obj val = liftIO $ setObjectPropertyEnum obj "authentication-mode" val - -constructTlsServerConnectionAuthenticationMode :: TlsAuthenticationMode -> IO ([Char], GValue) -constructTlsServerConnectionAuthenticationMode val = constructObjectPropertyEnum "authentication-mode" val - -data TlsServerConnectionAuthenticationModePropertyInfo -instance AttrInfo TlsServerConnectionAuthenticationModePropertyInfo where - type AttrAllowedOps TlsServerConnectionAuthenticationModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TlsServerConnectionAuthenticationModePropertyInfo = (~) TlsAuthenticationMode - type AttrBaseTypeConstraint TlsServerConnectionAuthenticationModePropertyInfo = TlsServerConnectionK - type AttrGetType TlsServerConnectionAuthenticationModePropertyInfo = TlsAuthenticationMode - type AttrLabel TlsServerConnectionAuthenticationModePropertyInfo = "authentication-mode" - attrGet _ = getTlsServerConnectionAuthenticationMode - attrSet _ = setTlsServerConnectionAuthenticationMode - attrConstruct _ = constructTlsServerConnectionAuthenticationMode - attrClear _ = undefined - -type instance AttributeList TlsServerConnection = TlsServerConnectionAttributeList -type TlsServerConnectionAttributeList = ('[ '("authenticationMode", TlsServerConnectionAuthenticationModePropertyInfo), '("baseIoStream", TlsConnectionBaseIoStreamPropertyInfo), '("certificate", TlsConnectionCertificatePropertyInfo), '("closed", IOStreamClosedPropertyInfo), '("database", TlsConnectionDatabasePropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("interaction", TlsConnectionInteractionPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("peerCertificate", TlsConnectionPeerCertificatePropertyInfo), '("peerCertificateErrors", TlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshakeMode", TlsConnectionRehandshakeModePropertyInfo), '("requireCloseNotify", TlsConnectionRequireCloseNotifyPropertyInfo), '("useSystemCertdb", TlsConnectionUseSystemCertdbPropertyInfo)] :: [(Symbol, *)]) - -tlsServerConnectionAuthenticationMode :: AttrLabelProxy "authenticationMode" -tlsServerConnectionAuthenticationMode = AttrLabelProxy - -type instance SignalList TlsServerConnection = TlsServerConnectionSignalList -type TlsServerConnectionSignalList = ('[ '("acceptCertificate", TlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_tls_server_connection_get_type" - c_g_tls_server_connection_get_type :: IO GType - -type instance ParentTypes TlsServerConnection = TlsServerConnectionParentTypes -type TlsServerConnectionParentTypes = '[TlsConnection, IOStream, GObject.Object] - -instance GObject TlsServerConnection where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_tls_server_connection_get_type - - -class GObject o => TlsServerConnectionK o -instance (GObject o, IsDescendantOf TlsServerConnection o) => TlsServerConnectionK o - -toTlsServerConnection :: TlsServerConnectionK o => o -> IO TlsServerConnection -toTlsServerConnection = unsafeCastTo TlsServerConnection - --- method TlsServerConnection::new --- method type : MemberFunction --- Args : [Arg {argCName = "base_io_stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsServerConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_server_connection_new" g_tls_server_connection_new :: - Ptr IOStream -> -- base_io_stream : TInterface "Gio" "IOStream" - Ptr TlsCertificate -> -- certificate : TInterface "Gio" "TlsCertificate" - Ptr (Ptr GError) -> -- error - IO (Ptr TlsServerConnection) - - -tlsServerConnectionNew :: - (MonadIO m, IOStreamK a, TlsCertificateK b) => - a -- baseIoStream - -> Maybe (b) -- certificate - -> m TlsServerConnection -- result -tlsServerConnectionNew baseIoStream certificate = liftIO $ do - let baseIoStream' = unsafeManagedPtrCastPtr baseIoStream - maybeCertificate <- case certificate of - Nothing -> return nullPtr - Just jCertificate -> do - let jCertificate' = unsafeManagedPtrCastPtr jCertificate - return jCertificate' - onException (do - result <- propagateGError $ g_tls_server_connection_new baseIoStream' maybeCertificate - checkUnexpectedReturnNULL "g_tls_server_connection_new" result - result' <- (wrapObject TlsServerConnection) result - touchManagedPtr baseIoStream - whenJust certificate touchManagedPtr - return result' - ) (do - return () - ) - - diff --git a/GI/Gio/Interfaces/TlsServerConnection.hs-boot b/GI/Gio/Interfaces/TlsServerConnection.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/TlsServerConnection.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gio.Interfaces.TlsServerConnection where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TlsServerConnection = TlsServerConnection (ForeignPtr TlsServerConnection) -data TlsServerConnectionAuthenticationModePropertyInfo -instance GObject TlsServerConnection where -class GObject o => TlsServerConnectionK o -instance (GObject o, IsDescendantOf TlsServerConnection o) => TlsServerConnectionK o diff --git a/GI/Gio/Interfaces/Volume.hs b/GI/Gio/Interfaces/Volume.hs deleted file mode 100644 --- a/GI/Gio/Interfaces/Volume.hs +++ /dev/null @@ -1,979 +0,0 @@ - - -{- | -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.Interfaces.Volume - ( - --- * Exported types - Volume(..) , - noVolume , - VolumeK , - toVolume , - - - -- * Methods --- ** volumeCanEject - VolumeCanEjectMethodInfo , - volumeCanEject , - - --- ** volumeCanMount - VolumeCanMountMethodInfo , - volumeCanMount , - - --- ** volumeEject - VolumeEjectMethodInfo , - volumeEject , - - --- ** volumeEjectFinish - VolumeEjectFinishMethodInfo , - volumeEjectFinish , - - --- ** volumeEjectWithOperation - VolumeEjectWithOperationMethodInfo , - volumeEjectWithOperation , - - --- ** volumeEjectWithOperationFinish - VolumeEjectWithOperationFinishMethodInfo, - volumeEjectWithOperationFinish , - - --- ** volumeEnumerateIdentifiers - VolumeEnumerateIdentifiersMethodInfo , - volumeEnumerateIdentifiers , - - --- ** volumeGetActivationRoot - VolumeGetActivationRootMethodInfo , - volumeGetActivationRoot , - - --- ** volumeGetDrive - VolumeGetDriveMethodInfo , - volumeGetDrive , - - --- ** volumeGetIcon - VolumeGetIconMethodInfo , - volumeGetIcon , - - --- ** volumeGetIdentifier - VolumeGetIdentifierMethodInfo , - volumeGetIdentifier , - - --- ** volumeGetMount - VolumeGetMountMethodInfo , - volumeGetMount , - - --- ** volumeGetName - VolumeGetNameMethodInfo , - volumeGetName , - - --- ** volumeGetSortKey - VolumeGetSortKeyMethodInfo , - volumeGetSortKey , - - --- ** volumeGetSymbolicIcon - VolumeGetSymbolicIconMethodInfo , - volumeGetSymbolicIcon , - - --- ** volumeGetUuid - VolumeGetUuidMethodInfo , - volumeGetUuid , - - --- ** volumeMount - VolumeMountMethodInfo , - volumeMount , - - --- ** volumeMountFinish - VolumeMountFinishMethodInfo , - volumeMountFinish , - - --- ** volumeShouldAutomount - VolumeShouldAutomountMethodInfo , - volumeShouldAutomount , - - - - - -- * Signals --- ** Changed - VolumeChangedCallback , - VolumeChangedCallbackC , - VolumeChangedSignalInfo , - afterVolumeChanged , - mkVolumeChangedCallback , - noVolumeChangedCallback , - onVolumeChanged , - volumeChangedCallbackWrapper , - volumeChangedClosure , - - --- ** Removed - VolumeRemovedCallback , - VolumeRemovedCallbackC , - VolumeRemovedSignalInfo , - afterVolumeRemoved , - mkVolumeRemovedCallback , - noVolumeRemovedCallback , - onVolumeRemoved , - volumeRemovedCallbackWrapper , - volumeRemovedClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - --- interface Volume - -newtype Volume = Volume (ForeignPtr Volume) -noVolume :: Maybe Volume -noVolume = Nothing - -type family ResolveVolumeMethod (t :: Symbol) (o :: *) :: * where - ResolveVolumeMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveVolumeMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveVolumeMethod "canEject" o = VolumeCanEjectMethodInfo - ResolveVolumeMethod "canMount" o = VolumeCanMountMethodInfo - ResolveVolumeMethod "eject" o = VolumeEjectMethodInfo - ResolveVolumeMethod "ejectFinish" o = VolumeEjectFinishMethodInfo - ResolveVolumeMethod "ejectWithOperation" o = VolumeEjectWithOperationMethodInfo - ResolveVolumeMethod "ejectWithOperationFinish" o = VolumeEjectWithOperationFinishMethodInfo - ResolveVolumeMethod "enumerateIdentifiers" o = VolumeEnumerateIdentifiersMethodInfo - ResolveVolumeMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveVolumeMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveVolumeMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveVolumeMethod "mount" o = VolumeMountMethodInfo - ResolveVolumeMethod "mountFinish" o = VolumeMountFinishMethodInfo - ResolveVolumeMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveVolumeMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveVolumeMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveVolumeMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveVolumeMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveVolumeMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveVolumeMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveVolumeMethod "shouldAutomount" o = VolumeShouldAutomountMethodInfo - ResolveVolumeMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveVolumeMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveVolumeMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveVolumeMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveVolumeMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveVolumeMethod "getActivationRoot" o = VolumeGetActivationRootMethodInfo - ResolveVolumeMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveVolumeMethod "getDrive" o = VolumeGetDriveMethodInfo - ResolveVolumeMethod "getIcon" o = VolumeGetIconMethodInfo - ResolveVolumeMethod "getIdentifier" o = VolumeGetIdentifierMethodInfo - ResolveVolumeMethod "getMount" o = VolumeGetMountMethodInfo - ResolveVolumeMethod "getName" o = VolumeGetNameMethodInfo - ResolveVolumeMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveVolumeMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveVolumeMethod "getSortKey" o = VolumeGetSortKeyMethodInfo - ResolveVolumeMethod "getSymbolicIcon" o = VolumeGetSymbolicIconMethodInfo - ResolveVolumeMethod "getUuid" o = VolumeGetUuidMethodInfo - ResolveVolumeMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveVolumeMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveVolumeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveVolumeMethod t Volume, MethodInfo info Volume p) => IsLabelProxy t (Volume -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveVolumeMethod t Volume, MethodInfo info Volume p) => IsLabel t (Volume -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Volume::changed -type VolumeChangedCallback = - IO () - -noVolumeChangedCallback :: Maybe VolumeChangedCallback -noVolumeChangedCallback = Nothing - -type VolumeChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkVolumeChangedCallback :: VolumeChangedCallbackC -> IO (FunPtr VolumeChangedCallbackC) - -volumeChangedClosure :: VolumeChangedCallback -> IO Closure -volumeChangedClosure cb = newCClosure =<< mkVolumeChangedCallback wrapped - where wrapped = volumeChangedCallbackWrapper cb - -volumeChangedCallbackWrapper :: - VolumeChangedCallback -> - Ptr () -> - Ptr () -> - IO () -volumeChangedCallbackWrapper _cb _ _ = do - _cb - -onVolumeChanged :: (GObject a, MonadIO m) => a -> VolumeChangedCallback -> m SignalHandlerId -onVolumeChanged obj cb = liftIO $ connectVolumeChanged obj cb SignalConnectBefore -afterVolumeChanged :: (GObject a, MonadIO m) => a -> VolumeChangedCallback -> m SignalHandlerId -afterVolumeChanged obj cb = connectVolumeChanged obj cb SignalConnectAfter - -connectVolumeChanged :: (GObject a, MonadIO m) => - a -> VolumeChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectVolumeChanged obj cb after = liftIO $ do - cb' <- mkVolumeChangedCallback (volumeChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- signal Volume::removed -type VolumeRemovedCallback = - IO () - -noVolumeRemovedCallback :: Maybe VolumeRemovedCallback -noVolumeRemovedCallback = Nothing - -type VolumeRemovedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkVolumeRemovedCallback :: VolumeRemovedCallbackC -> IO (FunPtr VolumeRemovedCallbackC) - -volumeRemovedClosure :: VolumeRemovedCallback -> IO Closure -volumeRemovedClosure cb = newCClosure =<< mkVolumeRemovedCallback wrapped - where wrapped = volumeRemovedCallbackWrapper cb - -volumeRemovedCallbackWrapper :: - VolumeRemovedCallback -> - Ptr () -> - Ptr () -> - IO () -volumeRemovedCallbackWrapper _cb _ _ = do - _cb - -onVolumeRemoved :: (GObject a, MonadIO m) => a -> VolumeRemovedCallback -> m SignalHandlerId -onVolumeRemoved obj cb = liftIO $ connectVolumeRemoved obj cb SignalConnectBefore -afterVolumeRemoved :: (GObject a, MonadIO m) => a -> VolumeRemovedCallback -> m SignalHandlerId -afterVolumeRemoved obj cb = connectVolumeRemoved obj cb SignalConnectAfter - -connectVolumeRemoved :: (GObject a, MonadIO m) => - a -> VolumeRemovedCallback -> SignalConnectMode -> m SignalHandlerId -connectVolumeRemoved obj cb after = liftIO $ do - cb' <- mkVolumeRemovedCallback (volumeRemovedCallbackWrapper cb) - connectSignalFunPtr obj "removed" cb' after - -type instance AttributeList Volume = VolumeAttributeList -type VolumeAttributeList = ('[ ] :: [(Symbol, *)]) - -data VolumeChangedSignalInfo -instance SignalInfo VolumeChangedSignalInfo where - type HaskellCallbackType VolumeChangedSignalInfo = VolumeChangedCallback - connectSignal _ = connectVolumeChanged - -data VolumeRemovedSignalInfo -instance SignalInfo VolumeRemovedSignalInfo where - type HaskellCallbackType VolumeRemovedSignalInfo = VolumeRemovedCallback - connectSignal _ = connectVolumeRemoved - -type instance SignalList Volume = VolumeSignalList -type VolumeSignalList = ('[ '("changed", VolumeChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("removed", VolumeRemovedSignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "g_volume_get_type" - c_g_volume_get_type :: IO GType - -type instance ParentTypes Volume = VolumeParentTypes -type VolumeParentTypes = '[GObject.Object] - -instance GObject Volume where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_volume_get_type - - -class GObject o => VolumeK o -instance (GObject o, IsDescendantOf Volume o) => VolumeK o - -toVolume :: VolumeK o => o -> IO Volume -toVolume = unsafeCastTo Volume - --- method Volume::can_eject --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_volume_can_eject" g_volume_can_eject :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - IO CInt - - -volumeCanEject :: - (MonadIO m, VolumeK a) => - a -- _obj - -> m Bool -- result -volumeCanEject _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_volume_can_eject _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data VolumeCanEjectMethodInfo -instance (signature ~ (m Bool), MonadIO m, VolumeK a) => MethodInfo VolumeCanEjectMethodInfo a signature where - overloadedMethod _ = volumeCanEject - --- method Volume::can_mount --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_volume_can_mount" g_volume_can_mount :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - IO CInt - - -volumeCanMount :: - (MonadIO m, VolumeK a) => - a -- _obj - -> m Bool -- result -volumeCanMount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_volume_can_mount _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data VolumeCanMountMethodInfo -instance (signature ~ (m Bool), MonadIO m, VolumeK a) => MethodInfo VolumeCanMountMethodInfo a signature where - overloadedMethod _ = volumeCanMount - --- method Volume::eject --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_volume_eject" g_volume_eject :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - CUInt -> -- flags : TInterface "Gio" "MountUnmountFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - -{-# DEPRECATED volumeEject ["(Since version 2.22)","Use g_volume_eject_with_operation() instead."]#-} -volumeEject :: - (MonadIO m, VolumeK a, CancellableK b) => - a -- _obj - -> [MountUnmountFlags] -- flags - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -volumeEject _obj flags cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - 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_volume_eject _obj' flags' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data VolumeEjectMethodInfo -instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, VolumeK a, CancellableK b) => MethodInfo VolumeEjectMethodInfo a signature where - overloadedMethod _ = volumeEject - --- method Volume::eject_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_volume_eject_finish" g_volume_eject_finish :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - -{-# DEPRECATED volumeEjectFinish ["(Since version 2.22)","Use g_volume_eject_with_operation_finish() instead."]#-} -volumeEjectFinish :: - (MonadIO m, VolumeK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -volumeEjectFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_volume_eject_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data VolumeEjectFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, VolumeK a, AsyncResultK b) => MethodInfo VolumeEjectFinishMethodInfo a signature where - overloadedMethod _ = volumeEjectFinish - --- method Volume::eject_with_operation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountUnmountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_volume_eject_with_operation" g_volume_eject_with_operation :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - CUInt -> -- flags : TInterface "Gio" "MountUnmountFlags" - Ptr MountOperation -> -- mount_operation : TInterface "Gio" "MountOperation" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -volumeEjectWithOperation :: - (MonadIO m, VolumeK a, MountOperationK b, CancellableK c) => - a -- _obj - -> [MountUnmountFlags] -- flags - -> Maybe (b) -- mountOperation - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -volumeEjectWithOperation _obj flags mountOperation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMountOperation <- case mountOperation of - Nothing -> return nullPtr - Just jMountOperation -> do - let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation - return jMountOperation' - 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_volume_eject_with_operation _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust mountOperation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data VolumeEjectWithOperationMethodInfo -instance (signature ~ ([MountUnmountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, VolumeK a, MountOperationK b, CancellableK c) => MethodInfo VolumeEjectWithOperationMethodInfo a signature where - overloadedMethod _ = volumeEjectWithOperation - --- method Volume::eject_with_operation_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_volume_eject_with_operation_finish" g_volume_eject_with_operation_finish :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -volumeEjectWithOperationFinish :: - (MonadIO m, VolumeK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -volumeEjectWithOperationFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_volume_eject_with_operation_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data VolumeEjectWithOperationFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, VolumeK a, AsyncResultK b) => MethodInfo VolumeEjectWithOperationFinishMethodInfo a signature where - overloadedMethod _ = volumeEjectWithOperationFinish - --- method Volume::enumerate_identifiers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_volume_enumerate_identifiers" g_volume_enumerate_identifiers :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - IO (Ptr CString) - - -volumeEnumerateIdentifiers :: - (MonadIO m, VolumeK a) => - a -- _obj - -> m [T.Text] -- result -volumeEnumerateIdentifiers _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_volume_enumerate_identifiers _obj' - checkUnexpectedReturnNULL "g_volume_enumerate_identifiers" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - return result' - -data VolumeEnumerateIdentifiersMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, VolumeK a) => MethodInfo VolumeEnumerateIdentifiersMethodInfo a signature where - overloadedMethod _ = volumeEnumerateIdentifiers - --- method Volume::get_activation_root --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_volume_get_activation_root" g_volume_get_activation_root :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - IO (Ptr File) - - -volumeGetActivationRoot :: - (MonadIO m, VolumeK a) => - a -- _obj - -> m (Maybe File) -- result -volumeGetActivationRoot _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_volume_get_activation_root _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject File) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data VolumeGetActivationRootMethodInfo -instance (signature ~ (m (Maybe File)), MonadIO m, VolumeK a) => MethodInfo VolumeGetActivationRootMethodInfo a signature where - overloadedMethod _ = volumeGetActivationRoot - --- method Volume::get_drive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Drive") --- throws : False --- Skip return : False - -foreign import ccall "g_volume_get_drive" g_volume_get_drive :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - IO (Ptr Drive) - - -volumeGetDrive :: - (MonadIO m, VolumeK a) => - a -- _obj - -> m Drive -- result -volumeGetDrive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_volume_get_drive _obj' - checkUnexpectedReturnNULL "g_volume_get_drive" result - result' <- (wrapObject Drive) result - touchManagedPtr _obj - return result' - -data VolumeGetDriveMethodInfo -instance (signature ~ (m Drive), MonadIO m, VolumeK a) => MethodInfo VolumeGetDriveMethodInfo a signature where - overloadedMethod _ = volumeGetDrive - --- method Volume::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "g_volume_get_icon" g_volume_get_icon :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - IO (Ptr Icon) - - -volumeGetIcon :: - (MonadIO m, VolumeK a) => - a -- _obj - -> m Icon -- result -volumeGetIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_volume_get_icon _obj' - checkUnexpectedReturnNULL "g_volume_get_icon" result - result' <- (wrapObject Icon) result - touchManagedPtr _obj - return result' - -data VolumeGetIconMethodInfo -instance (signature ~ (m Icon), MonadIO m, VolumeK a) => MethodInfo VolumeGetIconMethodInfo a signature where - overloadedMethod _ = volumeGetIcon - --- method Volume::get_identifier --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "kind", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_volume_get_identifier" g_volume_get_identifier :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - CString -> -- kind : TBasicType TUTF8 - IO CString - - -volumeGetIdentifier :: - (MonadIO m, VolumeK a) => - a -- _obj - -> T.Text -- kind - -> m T.Text -- result -volumeGetIdentifier _obj kind = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - kind' <- textToCString kind - result <- g_volume_get_identifier _obj' kind' - checkUnexpectedReturnNULL "g_volume_get_identifier" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem kind' - return result' - -data VolumeGetIdentifierMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, VolumeK a) => MethodInfo VolumeGetIdentifierMethodInfo a signature where - overloadedMethod _ = volumeGetIdentifier - --- method Volume::get_mount --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Mount") --- throws : False --- Skip return : False - -foreign import ccall "g_volume_get_mount" g_volume_get_mount :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - IO (Ptr Mount) - - -volumeGetMount :: - (MonadIO m, VolumeK a) => - a -- _obj - -> m Mount -- result -volumeGetMount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_volume_get_mount _obj' - checkUnexpectedReturnNULL "g_volume_get_mount" result - result' <- (wrapObject Mount) result - touchManagedPtr _obj - return result' - -data VolumeGetMountMethodInfo -instance (signature ~ (m Mount), MonadIO m, VolumeK a) => MethodInfo VolumeGetMountMethodInfo a signature where - overloadedMethod _ = volumeGetMount - --- method Volume::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_volume_get_name" g_volume_get_name :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - IO CString - - -volumeGetName :: - (MonadIO m, VolumeK a) => - a -- _obj - -> m T.Text -- result -volumeGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_volume_get_name _obj' - checkUnexpectedReturnNULL "g_volume_get_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data VolumeGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, VolumeK a) => MethodInfo VolumeGetNameMethodInfo a signature where - overloadedMethod _ = volumeGetName - --- method Volume::get_sort_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_volume_get_sort_key" g_volume_get_sort_key :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - IO CString - - -volumeGetSortKey :: - (MonadIO m, VolumeK a) => - a -- _obj - -> m T.Text -- result -volumeGetSortKey _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_volume_get_sort_key _obj' - checkUnexpectedReturnNULL "g_volume_get_sort_key" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data VolumeGetSortKeyMethodInfo -instance (signature ~ (m T.Text), MonadIO m, VolumeK a) => MethodInfo VolumeGetSortKeyMethodInfo a signature where - overloadedMethod _ = volumeGetSortKey - --- method Volume::get_symbolic_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "g_volume_get_symbolic_icon" g_volume_get_symbolic_icon :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - IO (Ptr Icon) - - -volumeGetSymbolicIcon :: - (MonadIO m, VolumeK a) => - a -- _obj - -> m Icon -- result -volumeGetSymbolicIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_volume_get_symbolic_icon _obj' - checkUnexpectedReturnNULL "g_volume_get_symbolic_icon" result - result' <- (wrapObject Icon) result - touchManagedPtr _obj - return result' - -data VolumeGetSymbolicIconMethodInfo -instance (signature ~ (m Icon), MonadIO m, VolumeK a) => MethodInfo VolumeGetSymbolicIconMethodInfo a signature where - overloadedMethod _ = volumeGetSymbolicIcon - --- method Volume::get_uuid --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_volume_get_uuid" g_volume_get_uuid :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - IO CString - - -volumeGetUuid :: - (MonadIO m, VolumeK a) => - a -- _obj - -> m T.Text -- result -volumeGetUuid _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_volume_get_uuid _obj' - checkUnexpectedReturnNULL "g_volume_get_uuid" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data VolumeGetUuidMethodInfo -instance (signature ~ (m T.Text), MonadIO m, VolumeK a) => MethodInfo VolumeGetUuidMethodInfo a signature where - overloadedMethod _ = volumeGetUuid - --- method Volume::mount --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "MountMountFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount_operation", argType = TInterface "Gio" "MountOperation", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_volume_mount" g_volume_mount :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - CUInt -> -- flags : TInterface "Gio" "MountMountFlags" - Ptr MountOperation -> -- mount_operation : TInterface "Gio" "MountOperation" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -volumeMount :: - (MonadIO m, VolumeK a, MountOperationK b, CancellableK c) => - a -- _obj - -> [MountMountFlags] -- flags - -> Maybe (b) -- mountOperation - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -volumeMount _obj flags mountOperation cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - maybeMountOperation <- case mountOperation of - Nothing -> return nullPtr - Just jMountOperation -> do - let jMountOperation' = unsafeManagedPtrCastPtr jMountOperation - return jMountOperation' - 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_volume_mount _obj' flags' maybeMountOperation maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust mountOperation touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data VolumeMountMethodInfo -instance (signature ~ ([MountMountFlags] -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, VolumeK a, MountOperationK b, CancellableK c) => MethodInfo VolumeMountMethodInfo a signature where - overloadedMethod _ = volumeMount - --- method Volume::mount_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_volume_mount_finish" g_volume_mount_finish :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -volumeMountFinish :: - (MonadIO m, VolumeK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -volumeMountFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_volume_mount_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data VolumeMountFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, VolumeK a, AsyncResultK b) => MethodInfo VolumeMountFinishMethodInfo a signature where - overloadedMethod _ = volumeMountFinish - --- method Volume::should_automount --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Volume", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_volume_should_automount" g_volume_should_automount :: - Ptr Volume -> -- _obj : TInterface "Gio" "Volume" - IO CInt - - -volumeShouldAutomount :: - (MonadIO m, VolumeK a) => - a -- _obj - -> m Bool -- result -volumeShouldAutomount _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_volume_should_automount _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data VolumeShouldAutomountMethodInfo -instance (signature ~ (m Bool), MonadIO m, VolumeK a) => MethodInfo VolumeShouldAutomountMethodInfo a signature where - overloadedMethod _ = volumeShouldAutomount - - diff --git a/GI/Gio/Interfaces/Volume.hs-boot b/GI/Gio/Interfaces/Volume.hs-boot deleted file mode 100644 --- a/GI/Gio/Interfaces/Volume.hs-boot +++ /dev/null @@ -1,34 +0,0 @@ -module GI.Gio.Interfaces.Volume where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Volume = Volume (ForeignPtr Volume) -data VolumeChangedSignalInfo -data VolumeRemovedSignalInfo -instance GObject Volume where -class GObject o => VolumeK o -instance (GObject o, IsDescendantOf Volume o) => VolumeK o -data VolumeCanEjectMethodInfo -data VolumeCanMountMethodInfo -data VolumeEjectMethodInfo -data VolumeEjectFinishMethodInfo -data VolumeEjectWithOperationMethodInfo -data VolumeEjectWithOperationFinishMethodInfo -data VolumeEnumerateIdentifiersMethodInfo -data VolumeGetActivationRootMethodInfo -data VolumeGetDriveMethodInfo -data VolumeGetIconMethodInfo -data VolumeGetIdentifierMethodInfo -data VolumeGetMountMethodInfo -data VolumeGetNameMethodInfo -data VolumeGetSortKeyMethodInfo -data VolumeGetSymbolicIconMethodInfo -data VolumeGetUuidMethodInfo -data VolumeMountMethodInfo -data VolumeMountFinishMethodInfo -data VolumeShouldAutomountMethodInfo diff --git a/GI/Gio/Objects.hs b/GI/Gio/Objects.hs deleted file mode 100644 --- a/GI/Gio/Objects.hs +++ /dev/null @@ -1,233 +0,0 @@ - - -{- | -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.Objects - ( module GI.Gio.Objects.AppInfoMonitor , - module GI.Gio.Objects.AppLaunchContext , - module GI.Gio.Objects.Application , - module GI.Gio.Objects.ApplicationCommandLine, - module GI.Gio.Objects.BufferedInputStream, - module GI.Gio.Objects.BufferedOutputStream, - module GI.Gio.Objects.BytesIcon , - module GI.Gio.Objects.Cancellable , - module GI.Gio.Objects.CharsetConverter , - module GI.Gio.Objects.ConverterInputStream, - module GI.Gio.Objects.ConverterOutputStream, - module GI.Gio.Objects.Credentials , - module GI.Gio.Objects.DBusActionGroup , - module GI.Gio.Objects.DBusAuthObserver , - module GI.Gio.Objects.DBusConnection , - module GI.Gio.Objects.DBusInterfaceSkeleton, - module GI.Gio.Objects.DBusMenuModel , - module GI.Gio.Objects.DBusMessage , - module GI.Gio.Objects.DBusMethodInvocation, - module GI.Gio.Objects.DBusObjectManagerClient, - module GI.Gio.Objects.DBusObjectManagerServer, - module GI.Gio.Objects.DBusObjectProxy , - module GI.Gio.Objects.DBusObjectSkeleton, - module GI.Gio.Objects.DBusProxy , - module GI.Gio.Objects.DBusServer , - module GI.Gio.Objects.DataInputStream , - module GI.Gio.Objects.DataOutputStream , - module GI.Gio.Objects.DesktopAppInfo , - module GI.Gio.Objects.Emblem , - module GI.Gio.Objects.EmblemedIcon , - module GI.Gio.Objects.FileEnumerator , - module GI.Gio.Objects.FileIOStream , - module GI.Gio.Objects.FileIcon , - module GI.Gio.Objects.FileInfo , - module GI.Gio.Objects.FileInputStream , - module GI.Gio.Objects.FileMonitor , - module GI.Gio.Objects.FileOutputStream , - module GI.Gio.Objects.FilenameCompleter , - module GI.Gio.Objects.FilterInputStream , - module GI.Gio.Objects.FilterOutputStream, - module GI.Gio.Objects.IOStream , - module GI.Gio.Objects.InetAddress , - module GI.Gio.Objects.InetAddressMask , - module GI.Gio.Objects.InetSocketAddress , - module GI.Gio.Objects.InputStream , - module GI.Gio.Objects.ListStore , - module GI.Gio.Objects.MemoryInputStream , - module GI.Gio.Objects.MemoryOutputStream, - module GI.Gio.Objects.Menu , - module GI.Gio.Objects.MenuAttributeIter , - module GI.Gio.Objects.MenuItem , - module GI.Gio.Objects.MenuLinkIter , - module GI.Gio.Objects.MenuModel , - module GI.Gio.Objects.MountOperation , - module GI.Gio.Objects.NativeVolumeMonitor, - module GI.Gio.Objects.NetworkAddress , - module GI.Gio.Objects.NetworkService , - module GI.Gio.Objects.Notification , - module GI.Gio.Objects.OutputStream , - module GI.Gio.Objects.Permission , - module GI.Gio.Objects.PropertyAction , - module GI.Gio.Objects.ProxyAddress , - module GI.Gio.Objects.ProxyAddressEnumerator, - module GI.Gio.Objects.Resolver , - module GI.Gio.Objects.Settings , - module GI.Gio.Objects.SimpleAction , - module GI.Gio.Objects.SimpleActionGroup , - module GI.Gio.Objects.SimpleAsyncResult , - module GI.Gio.Objects.SimpleIOStream , - module GI.Gio.Objects.SimplePermission , - module GI.Gio.Objects.SimpleProxyResolver, - module GI.Gio.Objects.Socket , - module GI.Gio.Objects.SocketAddress , - module GI.Gio.Objects.SocketAddressEnumerator, - module GI.Gio.Objects.SocketClient , - module GI.Gio.Objects.SocketConnection , - module GI.Gio.Objects.SocketControlMessage, - module GI.Gio.Objects.SocketListener , - module GI.Gio.Objects.SocketService , - module GI.Gio.Objects.Subprocess , - module GI.Gio.Objects.SubprocessLauncher, - module GI.Gio.Objects.Task , - module GI.Gio.Objects.TcpConnection , - module GI.Gio.Objects.TcpWrapperConnection, - module GI.Gio.Objects.TestDBus , - module GI.Gio.Objects.ThemedIcon , - module GI.Gio.Objects.ThreadedSocketService, - module GI.Gio.Objects.TlsCertificate , - module GI.Gio.Objects.TlsConnection , - module GI.Gio.Objects.TlsDatabase , - module GI.Gio.Objects.TlsInteraction , - module GI.Gio.Objects.TlsPassword , - module GI.Gio.Objects.UnixConnection , - module GI.Gio.Objects.UnixCredentialsMessage, - module GI.Gio.Objects.UnixFDList , - module GI.Gio.Objects.UnixFDMessage , - module GI.Gio.Objects.UnixInputStream , - module GI.Gio.Objects.UnixMountMonitor , - module GI.Gio.Objects.UnixOutputStream , - module GI.Gio.Objects.UnixSocketAddress , - module GI.Gio.Objects.Vfs , - module GI.Gio.Objects.VolumeMonitor , - module GI.Gio.Objects.ZlibCompressor , - module GI.Gio.Objects.ZlibDecompressor , - - - ) where - -import GI.Gio.Objects.AppInfoMonitor -import GI.Gio.Objects.AppLaunchContext -import GI.Gio.Objects.Application -import GI.Gio.Objects.ApplicationCommandLine -import GI.Gio.Objects.BufferedInputStream -import GI.Gio.Objects.BufferedOutputStream -import GI.Gio.Objects.BytesIcon -import GI.Gio.Objects.Cancellable -import GI.Gio.Objects.CharsetConverter -import GI.Gio.Objects.ConverterInputStream -import GI.Gio.Objects.ConverterOutputStream -import GI.Gio.Objects.Credentials -import GI.Gio.Objects.DBusActionGroup -import GI.Gio.Objects.DBusAuthObserver -import GI.Gio.Objects.DBusConnection -import GI.Gio.Objects.DBusInterfaceSkeleton -import GI.Gio.Objects.DBusMenuModel -import GI.Gio.Objects.DBusMessage -import GI.Gio.Objects.DBusMethodInvocation -import GI.Gio.Objects.DBusObjectManagerClient -import GI.Gio.Objects.DBusObjectManagerServer -import GI.Gio.Objects.DBusObjectProxy -import GI.Gio.Objects.DBusObjectSkeleton -import GI.Gio.Objects.DBusProxy -import GI.Gio.Objects.DBusServer -import GI.Gio.Objects.DataInputStream -import GI.Gio.Objects.DataOutputStream -import GI.Gio.Objects.DesktopAppInfo -import GI.Gio.Objects.Emblem -import GI.Gio.Objects.EmblemedIcon -import GI.Gio.Objects.FileEnumerator -import GI.Gio.Objects.FileIOStream -import GI.Gio.Objects.FileIcon -import GI.Gio.Objects.FileInfo -import GI.Gio.Objects.FileInputStream -import GI.Gio.Objects.FileMonitor -import GI.Gio.Objects.FileOutputStream -import GI.Gio.Objects.FilenameCompleter -import GI.Gio.Objects.FilterInputStream -import GI.Gio.Objects.FilterOutputStream -import GI.Gio.Objects.IOStream -import GI.Gio.Objects.InetAddress -import GI.Gio.Objects.InetAddressMask -import GI.Gio.Objects.InetSocketAddress -import GI.Gio.Objects.InputStream -import GI.Gio.Objects.ListStore -import GI.Gio.Objects.MemoryInputStream -import GI.Gio.Objects.MemoryOutputStream -import GI.Gio.Objects.Menu -import GI.Gio.Objects.MenuAttributeIter -import GI.Gio.Objects.MenuItem -import GI.Gio.Objects.MenuLinkIter -import GI.Gio.Objects.MenuModel -import GI.Gio.Objects.MountOperation -import GI.Gio.Objects.NativeVolumeMonitor -import GI.Gio.Objects.NetworkAddress -import GI.Gio.Objects.NetworkService -import GI.Gio.Objects.Notification -import GI.Gio.Objects.OutputStream -import GI.Gio.Objects.Permission -import GI.Gio.Objects.PropertyAction -import GI.Gio.Objects.ProxyAddress -import GI.Gio.Objects.ProxyAddressEnumerator -import GI.Gio.Objects.Resolver -import GI.Gio.Objects.Settings -import GI.Gio.Objects.SimpleAction -import GI.Gio.Objects.SimpleActionGroup -import GI.Gio.Objects.SimpleAsyncResult -import GI.Gio.Objects.SimpleIOStream -import GI.Gio.Objects.SimplePermission -import GI.Gio.Objects.SimpleProxyResolver -import GI.Gio.Objects.Socket -import GI.Gio.Objects.SocketAddress -import GI.Gio.Objects.SocketAddressEnumerator -import GI.Gio.Objects.SocketClient -import GI.Gio.Objects.SocketConnection -import GI.Gio.Objects.SocketControlMessage -import GI.Gio.Objects.SocketListener -import GI.Gio.Objects.SocketService -import GI.Gio.Objects.Subprocess -import GI.Gio.Objects.SubprocessLauncher -import GI.Gio.Objects.Task -import GI.Gio.Objects.TcpConnection -import GI.Gio.Objects.TcpWrapperConnection -import GI.Gio.Objects.TestDBus -import GI.Gio.Objects.ThemedIcon -import GI.Gio.Objects.ThreadedSocketService -import GI.Gio.Objects.TlsCertificate -import GI.Gio.Objects.TlsConnection -import GI.Gio.Objects.TlsDatabase -import GI.Gio.Objects.TlsInteraction -import GI.Gio.Objects.TlsPassword -import GI.Gio.Objects.UnixConnection -import GI.Gio.Objects.UnixCredentialsMessage -import GI.Gio.Objects.UnixFDList -import GI.Gio.Objects.UnixFDMessage -import GI.Gio.Objects.UnixInputStream -import GI.Gio.Objects.UnixMountMonitor -import GI.Gio.Objects.UnixOutputStream -import GI.Gio.Objects.UnixSocketAddress -import GI.Gio.Objects.Vfs -import GI.Gio.Objects.VolumeMonitor -import GI.Gio.Objects.ZlibCompressor -import GI.Gio.Objects.ZlibDecompressor - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - diff --git a/GI/Gio/Objects/AppInfoMonitor.hs b/GI/Gio/Objects/AppInfoMonitor.hs deleted file mode 100644 --- a/GI/Gio/Objects/AppInfoMonitor.hs +++ /dev/null @@ -1,178 +0,0 @@ - - -{- | -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.Objects.AppInfoMonitor - ( - --- * Exported types - AppInfoMonitor(..) , - AppInfoMonitorK , - toAppInfoMonitor , - noAppInfoMonitor , - - - -- * Methods --- ** appInfoMonitorGet - appInfoMonitorGet , - - - - - -- * Signals --- ** Changed - AppInfoMonitorChangedCallback , - AppInfoMonitorChangedCallbackC , - AppInfoMonitorChangedSignalInfo , - afterAppInfoMonitorChanged , - appInfoMonitorChangedCallbackWrapper , - appInfoMonitorChangedClosure , - mkAppInfoMonitorChangedCallback , - noAppInfoMonitorChangedCallback , - onAppInfoMonitorChanged , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype AppInfoMonitor = AppInfoMonitor (ForeignPtr AppInfoMonitor) -foreign import ccall "g_app_info_monitor_get_type" - c_g_app_info_monitor_get_type :: IO GType - -type instance ParentTypes AppInfoMonitor = AppInfoMonitorParentTypes -type AppInfoMonitorParentTypes = '[GObject.Object] - -instance GObject AppInfoMonitor where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_app_info_monitor_get_type - - -class GObject o => AppInfoMonitorK o -instance (GObject o, IsDescendantOf AppInfoMonitor o) => AppInfoMonitorK o - -toAppInfoMonitor :: AppInfoMonitorK o => o -> IO AppInfoMonitor -toAppInfoMonitor = unsafeCastTo AppInfoMonitor - -noAppInfoMonitor :: Maybe AppInfoMonitor -noAppInfoMonitor = Nothing - -type family ResolveAppInfoMonitorMethod (t :: Symbol) (o :: *) :: * where - ResolveAppInfoMonitorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAppInfoMonitorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAppInfoMonitorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAppInfoMonitorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAppInfoMonitorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAppInfoMonitorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAppInfoMonitorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAppInfoMonitorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAppInfoMonitorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAppInfoMonitorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAppInfoMonitorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAppInfoMonitorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAppInfoMonitorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAppInfoMonitorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAppInfoMonitorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAppInfoMonitorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAppInfoMonitorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAppInfoMonitorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAppInfoMonitorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAppInfoMonitorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAppInfoMonitorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAppInfoMonitorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAppInfoMonitorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAppInfoMonitorMethod t AppInfoMonitor, MethodInfo info AppInfoMonitor p) => IsLabelProxy t (AppInfoMonitor -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAppInfoMonitorMethod t AppInfoMonitor, MethodInfo info AppInfoMonitor p) => IsLabel t (AppInfoMonitor -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal AppInfoMonitor::changed -type AppInfoMonitorChangedCallback = - IO () - -noAppInfoMonitorChangedCallback :: Maybe AppInfoMonitorChangedCallback -noAppInfoMonitorChangedCallback = Nothing - -type AppInfoMonitorChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAppInfoMonitorChangedCallback :: AppInfoMonitorChangedCallbackC -> IO (FunPtr AppInfoMonitorChangedCallbackC) - -appInfoMonitorChangedClosure :: AppInfoMonitorChangedCallback -> IO Closure -appInfoMonitorChangedClosure cb = newCClosure =<< mkAppInfoMonitorChangedCallback wrapped - where wrapped = appInfoMonitorChangedCallbackWrapper cb - -appInfoMonitorChangedCallbackWrapper :: - AppInfoMonitorChangedCallback -> - Ptr () -> - Ptr () -> - IO () -appInfoMonitorChangedCallbackWrapper _cb _ _ = do - _cb - -onAppInfoMonitorChanged :: (GObject a, MonadIO m) => a -> AppInfoMonitorChangedCallback -> m SignalHandlerId -onAppInfoMonitorChanged obj cb = liftIO $ connectAppInfoMonitorChanged obj cb SignalConnectBefore -afterAppInfoMonitorChanged :: (GObject a, MonadIO m) => a -> AppInfoMonitorChangedCallback -> m SignalHandlerId -afterAppInfoMonitorChanged obj cb = connectAppInfoMonitorChanged obj cb SignalConnectAfter - -connectAppInfoMonitorChanged :: (GObject a, MonadIO m) => - a -> AppInfoMonitorChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectAppInfoMonitorChanged obj cb after = liftIO $ do - cb' <- mkAppInfoMonitorChangedCallback (appInfoMonitorChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - -type instance AttributeList AppInfoMonitor = AppInfoMonitorAttributeList -type AppInfoMonitorAttributeList = ('[ ] :: [(Symbol, *)]) - -data AppInfoMonitorChangedSignalInfo -instance SignalInfo AppInfoMonitorChangedSignalInfo where - type HaskellCallbackType AppInfoMonitorChangedSignalInfo = AppInfoMonitorChangedCallback - connectSignal _ = connectAppInfoMonitorChanged - -type instance SignalList AppInfoMonitor = AppInfoMonitorSignalList -type AppInfoMonitorSignalList = ('[ '("changed", AppInfoMonitorChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AppInfoMonitor::get --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "AppInfoMonitor") --- throws : False --- Skip return : False - -foreign import ccall "g_app_info_monitor_get" g_app_info_monitor_get :: - IO (Ptr AppInfoMonitor) - - -appInfoMonitorGet :: - (MonadIO m) => - m AppInfoMonitor -- result -appInfoMonitorGet = liftIO $ do - result <- g_app_info_monitor_get - checkUnexpectedReturnNULL "g_app_info_monitor_get" result - result' <- (wrapObject AppInfoMonitor) result - return result' - - diff --git a/GI/Gio/Objects/AppInfoMonitor.hs-boot b/GI/Gio/Objects/AppInfoMonitor.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/AppInfoMonitor.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gio.Objects.AppInfoMonitor where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AppInfoMonitor = AppInfoMonitor (ForeignPtr AppInfoMonitor) -instance GObject AppInfoMonitor where -class GObject o => AppInfoMonitorK o -instance (GObject o, IsDescendantOf AppInfoMonitor o) => AppInfoMonitorK o -data AppInfoMonitorChangedSignalInfo diff --git a/GI/Gio/Objects/AppLaunchContext.hs b/GI/Gio/Objects/AppLaunchContext.hs deleted file mode 100644 --- a/GI/Gio/Objects/AppLaunchContext.hs +++ /dev/null @@ -1,489 +0,0 @@ - - -{- | -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.Objects.AppLaunchContext - ( - --- * Exported types - AppLaunchContext(..) , - AppLaunchContextK , - toAppLaunchContext , - noAppLaunchContext , - - - -- * Methods --- ** appLaunchContextGetDisplay - AppLaunchContextGetDisplayMethodInfo , - appLaunchContextGetDisplay , - - --- ** appLaunchContextGetEnvironment - AppLaunchContextGetEnvironmentMethodInfo, - appLaunchContextGetEnvironment , - - --- ** appLaunchContextGetStartupNotifyId - AppLaunchContextGetStartupNotifyIdMethodInfo, - appLaunchContextGetStartupNotifyId , - - --- ** appLaunchContextLaunchFailed - AppLaunchContextLaunchFailedMethodInfo , - appLaunchContextLaunchFailed , - - --- ** appLaunchContextNew - appLaunchContextNew , - - --- ** appLaunchContextSetenv - AppLaunchContextSetenvMethodInfo , - appLaunchContextSetenv , - - --- ** appLaunchContextUnsetenv - AppLaunchContextUnsetenvMethodInfo , - appLaunchContextUnsetenv , - - - - - -- * Signals --- ** LaunchFailed - AppLaunchContextLaunchFailedCallback , - AppLaunchContextLaunchFailedCallbackC , - AppLaunchContextLaunchFailedSignalInfo , - afterAppLaunchContextLaunchFailed , - appLaunchContextLaunchFailedCallbackWrapper, - appLaunchContextLaunchFailedClosure , - mkAppLaunchContextLaunchFailedCallback , - noAppLaunchContextLaunchFailedCallback , - onAppLaunchContextLaunchFailed , - - --- ** Launched - AppLaunchContextLaunchedCallback , - AppLaunchContextLaunchedCallbackC , - AppLaunchContextLaunchedSignalInfo , - afterAppLaunchContextLaunched , - appLaunchContextLaunchedCallbackWrapper , - appLaunchContextLaunchedClosure , - mkAppLaunchContextLaunchedCallback , - noAppLaunchContextLaunchedCallback , - onAppLaunchContextLaunched , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype AppLaunchContext = AppLaunchContext (ForeignPtr AppLaunchContext) -foreign import ccall "g_app_launch_context_get_type" - c_g_app_launch_context_get_type :: IO GType - -type instance ParentTypes AppLaunchContext = AppLaunchContextParentTypes -type AppLaunchContextParentTypes = '[GObject.Object] - -instance GObject AppLaunchContext where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_app_launch_context_get_type - - -class GObject o => AppLaunchContextK o -instance (GObject o, IsDescendantOf AppLaunchContext o) => AppLaunchContextK o - -toAppLaunchContext :: AppLaunchContextK o => o -> IO AppLaunchContext -toAppLaunchContext = unsafeCastTo AppLaunchContext - -noAppLaunchContext :: Maybe AppLaunchContext -noAppLaunchContext = Nothing - -type family ResolveAppLaunchContextMethod (t :: Symbol) (o :: *) :: * where - ResolveAppLaunchContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAppLaunchContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAppLaunchContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAppLaunchContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAppLaunchContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAppLaunchContextMethod "launchFailed" o = AppLaunchContextLaunchFailedMethodInfo - ResolveAppLaunchContextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAppLaunchContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAppLaunchContextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAppLaunchContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAppLaunchContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAppLaunchContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAppLaunchContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAppLaunchContextMethod "setenv" o = AppLaunchContextSetenvMethodInfo - ResolveAppLaunchContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAppLaunchContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAppLaunchContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAppLaunchContextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAppLaunchContextMethod "unsetenv" o = AppLaunchContextUnsetenvMethodInfo - ResolveAppLaunchContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAppLaunchContextMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAppLaunchContextMethod "getDisplay" o = AppLaunchContextGetDisplayMethodInfo - ResolveAppLaunchContextMethod "getEnvironment" o = AppLaunchContextGetEnvironmentMethodInfo - ResolveAppLaunchContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAppLaunchContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAppLaunchContextMethod "getStartupNotifyId" o = AppLaunchContextGetStartupNotifyIdMethodInfo - ResolveAppLaunchContextMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAppLaunchContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAppLaunchContextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAppLaunchContextMethod t AppLaunchContext, MethodInfo info AppLaunchContext p) => IsLabelProxy t (AppLaunchContext -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAppLaunchContextMethod t AppLaunchContext, MethodInfo info AppLaunchContext p) => IsLabel t (AppLaunchContext -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal AppLaunchContext::launch-failed -type AppLaunchContextLaunchFailedCallback = - T.Text -> - IO () - -noAppLaunchContextLaunchFailedCallback :: Maybe AppLaunchContextLaunchFailedCallback -noAppLaunchContextLaunchFailedCallback = Nothing - -type AppLaunchContextLaunchFailedCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAppLaunchContextLaunchFailedCallback :: AppLaunchContextLaunchFailedCallbackC -> IO (FunPtr AppLaunchContextLaunchFailedCallbackC) - -appLaunchContextLaunchFailedClosure :: AppLaunchContextLaunchFailedCallback -> IO Closure -appLaunchContextLaunchFailedClosure cb = newCClosure =<< mkAppLaunchContextLaunchFailedCallback wrapped - where wrapped = appLaunchContextLaunchFailedCallbackWrapper cb - -appLaunchContextLaunchFailedCallbackWrapper :: - AppLaunchContextLaunchFailedCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -appLaunchContextLaunchFailedCallbackWrapper _cb _ startupNotifyId _ = do - startupNotifyId' <- cstringToText startupNotifyId - _cb startupNotifyId' - -onAppLaunchContextLaunchFailed :: (GObject a, MonadIO m) => a -> AppLaunchContextLaunchFailedCallback -> m SignalHandlerId -onAppLaunchContextLaunchFailed obj cb = liftIO $ connectAppLaunchContextLaunchFailed obj cb SignalConnectBefore -afterAppLaunchContextLaunchFailed :: (GObject a, MonadIO m) => a -> AppLaunchContextLaunchFailedCallback -> m SignalHandlerId -afterAppLaunchContextLaunchFailed obj cb = connectAppLaunchContextLaunchFailed obj cb SignalConnectAfter - -connectAppLaunchContextLaunchFailed :: (GObject a, MonadIO m) => - a -> AppLaunchContextLaunchFailedCallback -> SignalConnectMode -> m SignalHandlerId -connectAppLaunchContextLaunchFailed obj cb after = liftIO $ do - cb' <- mkAppLaunchContextLaunchFailedCallback (appLaunchContextLaunchFailedCallbackWrapper cb) - connectSignalFunPtr obj "launch-failed" cb' after - --- signal AppLaunchContext::launched -type AppLaunchContextLaunchedCallback = - AppInfo -> - GVariant -> - IO () - -noAppLaunchContextLaunchedCallback :: Maybe AppLaunchContextLaunchedCallback -noAppLaunchContextLaunchedCallback = Nothing - -type AppLaunchContextLaunchedCallbackC = - Ptr () -> -- object - Ptr AppInfo -> - Ptr GVariant -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAppLaunchContextLaunchedCallback :: AppLaunchContextLaunchedCallbackC -> IO (FunPtr AppLaunchContextLaunchedCallbackC) - -appLaunchContextLaunchedClosure :: AppLaunchContextLaunchedCallback -> IO Closure -appLaunchContextLaunchedClosure cb = newCClosure =<< mkAppLaunchContextLaunchedCallback wrapped - where wrapped = appLaunchContextLaunchedCallbackWrapper cb - -appLaunchContextLaunchedCallbackWrapper :: - AppLaunchContextLaunchedCallback -> - Ptr () -> - Ptr AppInfo -> - Ptr GVariant -> - Ptr () -> - IO () -appLaunchContextLaunchedCallbackWrapper _cb _ info platformData _ = do - info' <- (newObject AppInfo) info - platformData' <- newGVariantFromPtr platformData - _cb info' platformData' - -onAppLaunchContextLaunched :: (GObject a, MonadIO m) => a -> AppLaunchContextLaunchedCallback -> m SignalHandlerId -onAppLaunchContextLaunched obj cb = liftIO $ connectAppLaunchContextLaunched obj cb SignalConnectBefore -afterAppLaunchContextLaunched :: (GObject a, MonadIO m) => a -> AppLaunchContextLaunchedCallback -> m SignalHandlerId -afterAppLaunchContextLaunched obj cb = connectAppLaunchContextLaunched obj cb SignalConnectAfter - -connectAppLaunchContextLaunched :: (GObject a, MonadIO m) => - a -> AppLaunchContextLaunchedCallback -> SignalConnectMode -> m SignalHandlerId -connectAppLaunchContextLaunched obj cb after = liftIO $ do - cb' <- mkAppLaunchContextLaunchedCallback (appLaunchContextLaunchedCallbackWrapper cb) - connectSignalFunPtr obj "launched" cb' after - -type instance AttributeList AppLaunchContext = AppLaunchContextAttributeList -type AppLaunchContextAttributeList = ('[ ] :: [(Symbol, *)]) - -data AppLaunchContextLaunchFailedSignalInfo -instance SignalInfo AppLaunchContextLaunchFailedSignalInfo where - type HaskellCallbackType AppLaunchContextLaunchFailedSignalInfo = AppLaunchContextLaunchFailedCallback - connectSignal _ = connectAppLaunchContextLaunchFailed - -data AppLaunchContextLaunchedSignalInfo -instance SignalInfo AppLaunchContextLaunchedSignalInfo where - type HaskellCallbackType AppLaunchContextLaunchedSignalInfo = AppLaunchContextLaunchedCallback - connectSignal _ = connectAppLaunchContextLaunched - -type instance SignalList AppLaunchContext = AppLaunchContextSignalList -type AppLaunchContextSignalList = ('[ '("launchFailed", AppLaunchContextLaunchFailedSignalInfo), '("launched", AppLaunchContextLaunchedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AppLaunchContext::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "AppLaunchContext") --- throws : False --- Skip return : False - -foreign import ccall "g_app_launch_context_new" g_app_launch_context_new :: - IO (Ptr AppLaunchContext) - - -appLaunchContextNew :: - (MonadIO m) => - m AppLaunchContext -- result -appLaunchContextNew = liftIO $ do - result <- g_app_launch_context_new - checkUnexpectedReturnNULL "g_app_launch_context_new" result - result' <- (wrapObject AppLaunchContext) result - return result' - --- method AppLaunchContext::get_display --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TGList (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_app_launch_context_get_display" g_app_launch_context_get_display :: - Ptr AppLaunchContext -> -- _obj : TInterface "Gio" "AppLaunchContext" - Ptr AppInfo -> -- info : TInterface "Gio" "AppInfo" - Ptr (GList (Ptr File)) -> -- files : TGList (TInterface "Gio" "File") - IO CString - - -appLaunchContextGetDisplay :: - (MonadIO m, AppLaunchContextK a, AppInfoK b, FileK c) => - a -- _obj - -> b -- info - -> [c] -- files - -> m T.Text -- result -appLaunchContextGetDisplay _obj info files = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let info' = unsafeManagedPtrCastPtr info - let files' = map unsafeManagedPtrCastPtr files - files'' <- packGList files' - result <- g_app_launch_context_get_display _obj' info' files'' - checkUnexpectedReturnNULL "g_app_launch_context_get_display" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr info - mapM_ touchManagedPtr files - g_list_free files'' - return result' - -data AppLaunchContextGetDisplayMethodInfo -instance (signature ~ (b -> [c] -> m T.Text), MonadIO m, AppLaunchContextK a, AppInfoK b, FileK c) => MethodInfo AppLaunchContextGetDisplayMethodInfo a signature where - overloadedMethod _ = appLaunchContextGetDisplay - --- method AppLaunchContext::get_environment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_app_launch_context_get_environment" g_app_launch_context_get_environment :: - Ptr AppLaunchContext -> -- _obj : TInterface "Gio" "AppLaunchContext" - IO (Ptr CString) - - -appLaunchContextGetEnvironment :: - (MonadIO m, AppLaunchContextK a) => - a -- _obj - -> m [T.Text] -- result -appLaunchContextGetEnvironment _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_app_launch_context_get_environment _obj' - checkUnexpectedReturnNULL "g_app_launch_context_get_environment" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - return result' - -data AppLaunchContextGetEnvironmentMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, AppLaunchContextK a) => MethodInfo AppLaunchContextGetEnvironmentMethodInfo a signature where - overloadedMethod _ = appLaunchContextGetEnvironment - --- method AppLaunchContext::get_startup_notify_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "AppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TGList (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_app_launch_context_get_startup_notify_id" g_app_launch_context_get_startup_notify_id :: - Ptr AppLaunchContext -> -- _obj : TInterface "Gio" "AppLaunchContext" - Ptr AppInfo -> -- info : TInterface "Gio" "AppInfo" - Ptr (GList (Ptr File)) -> -- files : TGList (TInterface "Gio" "File") - IO CString - - -appLaunchContextGetStartupNotifyId :: - (MonadIO m, AppLaunchContextK a, AppInfoK b, FileK c) => - a -- _obj - -> b -- info - -> [c] -- files - -> m T.Text -- result -appLaunchContextGetStartupNotifyId _obj info files = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let info' = unsafeManagedPtrCastPtr info - let files' = map unsafeManagedPtrCastPtr files - files'' <- packGList files' - result <- g_app_launch_context_get_startup_notify_id _obj' info' files'' - checkUnexpectedReturnNULL "g_app_launch_context_get_startup_notify_id" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr info - mapM_ touchManagedPtr files - g_list_free files'' - return result' - -data AppLaunchContextGetStartupNotifyIdMethodInfo -instance (signature ~ (b -> [c] -> m T.Text), MonadIO m, AppLaunchContextK a, AppInfoK b, FileK c) => MethodInfo AppLaunchContextGetStartupNotifyIdMethodInfo a signature where - overloadedMethod _ = appLaunchContextGetStartupNotifyId - --- method AppLaunchContext::launch_failed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "startup_notify_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_app_launch_context_launch_failed" g_app_launch_context_launch_failed :: - Ptr AppLaunchContext -> -- _obj : TInterface "Gio" "AppLaunchContext" - CString -> -- startup_notify_id : TBasicType TUTF8 - IO () - - -appLaunchContextLaunchFailed :: - (MonadIO m, AppLaunchContextK a) => - a -- _obj - -> T.Text -- startupNotifyId - -> m () -- result -appLaunchContextLaunchFailed _obj startupNotifyId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - startupNotifyId' <- textToCString startupNotifyId - g_app_launch_context_launch_failed _obj' startupNotifyId' - touchManagedPtr _obj - freeMem startupNotifyId' - return () - -data AppLaunchContextLaunchFailedMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AppLaunchContextK a) => MethodInfo AppLaunchContextLaunchFailedMethodInfo a signature where - overloadedMethod _ = appLaunchContextLaunchFailed - --- method AppLaunchContext::setenv --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_app_launch_context_setenv" g_app_launch_context_setenv :: - Ptr AppLaunchContext -> -- _obj : TInterface "Gio" "AppLaunchContext" - CString -> -- variable : TBasicType TUTF8 - CString -> -- value : TBasicType TUTF8 - IO () - - -appLaunchContextSetenv :: - (MonadIO m, AppLaunchContextK a) => - a -- _obj - -> T.Text -- variable - -> T.Text -- value - -> m () -- result -appLaunchContextSetenv _obj variable value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - variable' <- textToCString variable - value' <- textToCString value - g_app_launch_context_setenv _obj' variable' value' - touchManagedPtr _obj - freeMem variable' - freeMem value' - return () - -data AppLaunchContextSetenvMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, AppLaunchContextK a) => MethodInfo AppLaunchContextSetenvMethodInfo a signature where - overloadedMethod _ = appLaunchContextSetenv - --- method AppLaunchContext::unsetenv --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_app_launch_context_unsetenv" g_app_launch_context_unsetenv :: - Ptr AppLaunchContext -> -- _obj : TInterface "Gio" "AppLaunchContext" - CString -> -- variable : TBasicType TUTF8 - IO () - - -appLaunchContextUnsetenv :: - (MonadIO m, AppLaunchContextK a) => - a -- _obj - -> T.Text -- variable - -> m () -- result -appLaunchContextUnsetenv _obj variable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - variable' <- textToCString variable - g_app_launch_context_unsetenv _obj' variable' - touchManagedPtr _obj - freeMem variable' - return () - -data AppLaunchContextUnsetenvMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AppLaunchContextK a) => MethodInfo AppLaunchContextUnsetenvMethodInfo a signature where - overloadedMethod _ = appLaunchContextUnsetenv - - diff --git a/GI/Gio/Objects/AppLaunchContext.hs-boot b/GI/Gio/Objects/AppLaunchContext.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/AppLaunchContext.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gio.Objects.AppLaunchContext where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype AppLaunchContext = AppLaunchContext (ForeignPtr AppLaunchContext) -instance GObject AppLaunchContext where -class GObject o => AppLaunchContextK o -instance (GObject o, IsDescendantOf AppLaunchContext o) => AppLaunchContextK o -data AppLaunchContextLaunchFailedSignalInfo -data AppLaunchContextLaunchedSignalInfo -data AppLaunchContextGetDisplayMethodInfo -data AppLaunchContextGetEnvironmentMethodInfo -data AppLaunchContextGetStartupNotifyIdMethodInfo -data AppLaunchContextLaunchFailedMethodInfo -data AppLaunchContextSetenvMethodInfo -data AppLaunchContextUnsetenvMethodInfo diff --git a/GI/Gio/Objects/Application.hs b/GI/Gio/Objects/Application.hs deleted file mode 100644 --- a/GI/Gio/Objects/Application.hs +++ /dev/null @@ -1,2009 +0,0 @@ - - -{- | -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.Objects.Application - ( - --- * Exported types - Application(..) , - ApplicationK , - toApplication , - noApplication , - - - -- * Methods --- ** applicationActivate - ApplicationActivateMethodInfo , - applicationActivate , - - --- ** applicationAddMainOption - ApplicationAddMainOptionMethodInfo , - applicationAddMainOption , - - --- ** applicationAddMainOptionEntries - ApplicationAddMainOptionEntriesMethodInfo, - applicationAddMainOptionEntries , - - --- ** applicationAddOptionGroup - ApplicationAddOptionGroupMethodInfo , - applicationAddOptionGroup , - - --- ** applicationBindBusyProperty - ApplicationBindBusyPropertyMethodInfo , - applicationBindBusyProperty , - - --- ** applicationGetApplicationId - ApplicationGetApplicationIdMethodInfo , - applicationGetApplicationId , - - --- ** applicationGetDbusConnection - ApplicationGetDbusConnectionMethodInfo , - applicationGetDbusConnection , - - --- ** applicationGetDbusObjectPath - ApplicationGetDbusObjectPathMethodInfo , - applicationGetDbusObjectPath , - - --- ** applicationGetDefault - applicationGetDefault , - - --- ** applicationGetFlags - ApplicationGetFlagsMethodInfo , - applicationGetFlags , - - --- ** applicationGetInactivityTimeout - ApplicationGetInactivityTimeoutMethodInfo, - applicationGetInactivityTimeout , - - --- ** applicationGetIsBusy - ApplicationGetIsBusyMethodInfo , - applicationGetIsBusy , - - --- ** applicationGetIsRegistered - ApplicationGetIsRegisteredMethodInfo , - applicationGetIsRegistered , - - --- ** applicationGetIsRemote - ApplicationGetIsRemoteMethodInfo , - applicationGetIsRemote , - - --- ** applicationGetResourceBasePath - ApplicationGetResourceBasePathMethodInfo, - applicationGetResourceBasePath , - - --- ** applicationHold - ApplicationHoldMethodInfo , - applicationHold , - - --- ** applicationIdIsValid - applicationIdIsValid , - - --- ** applicationMarkBusy - ApplicationMarkBusyMethodInfo , - applicationMarkBusy , - - --- ** applicationNew - applicationNew , - - --- ** applicationOpen - ApplicationOpenMethodInfo , - applicationOpen , - - --- ** applicationQuit - ApplicationQuitMethodInfo , - applicationQuit , - - --- ** applicationRegister - ApplicationRegisterMethodInfo , - applicationRegister , - - --- ** applicationRelease - ApplicationReleaseMethodInfo , - applicationRelease , - - --- ** applicationRun - ApplicationRunMethodInfo , - applicationRun , - - --- ** applicationSendNotification - ApplicationSendNotificationMethodInfo , - applicationSendNotification , - - --- ** applicationSetActionGroup - ApplicationSetActionGroupMethodInfo , - applicationSetActionGroup , - - --- ** applicationSetApplicationId - ApplicationSetApplicationIdMethodInfo , - applicationSetApplicationId , - - --- ** applicationSetDefault - ApplicationSetDefaultMethodInfo , - applicationSetDefault , - - --- ** applicationSetFlags - ApplicationSetFlagsMethodInfo , - applicationSetFlags , - - --- ** applicationSetInactivityTimeout - ApplicationSetInactivityTimeoutMethodInfo, - applicationSetInactivityTimeout , - - --- ** applicationSetResourceBasePath - ApplicationSetResourceBasePathMethodInfo, - applicationSetResourceBasePath , - - --- ** applicationUnbindBusyProperty - ApplicationUnbindBusyPropertyMethodInfo , - applicationUnbindBusyProperty , - - --- ** applicationUnmarkBusy - ApplicationUnmarkBusyMethodInfo , - applicationUnmarkBusy , - - --- ** applicationWithdrawNotification - ApplicationWithdrawNotificationMethodInfo, - applicationWithdrawNotification , - - - - - -- * Properties --- ** ActionGroup - ApplicationActionGroupPropertyInfo , - applicationActionGroup , - clearApplicationActionGroup , - constructApplicationActionGroup , - setApplicationActionGroup , - - --- ** ApplicationId - ApplicationApplicationIdPropertyInfo , - applicationApplicationId , - clearApplicationApplicationId , - constructApplicationApplicationId , - getApplicationApplicationId , - setApplicationApplicationId , - - --- ** Flags - ApplicationFlagsPropertyInfo , - applicationFlags , - constructApplicationFlags , - getApplicationFlags , - setApplicationFlags , - - --- ** InactivityTimeout - ApplicationInactivityTimeoutPropertyInfo, - applicationInactivityTimeout , - constructApplicationInactivityTimeout , - getApplicationInactivityTimeout , - setApplicationInactivityTimeout , - - --- ** IsBusy - ApplicationIsBusyPropertyInfo , - applicationIsBusy , - getApplicationIsBusy , - - --- ** IsRegistered - ApplicationIsRegisteredPropertyInfo , - applicationIsRegistered , - getApplicationIsRegistered , - - --- ** IsRemote - ApplicationIsRemotePropertyInfo , - applicationIsRemote , - getApplicationIsRemote , - - --- ** ResourceBasePath - ApplicationResourceBasePathPropertyInfo , - applicationResourceBasePath , - clearApplicationResourceBasePath , - constructApplicationResourceBasePath , - getApplicationResourceBasePath , - setApplicationResourceBasePath , - - - - - -- * Signals --- ** Activate - ApplicationActivateCallback , - ApplicationActivateCallbackC , - ApplicationActivateSignalInfo , - afterApplicationActivate , - applicationActivateCallbackWrapper , - applicationActivateClosure , - mkApplicationActivateCallback , - noApplicationActivateCallback , - onApplicationActivate , - - --- ** CommandLine - ApplicationCommandLineCallback , - ApplicationCommandLineCallbackC , - ApplicationCommandLineSignalInfo , - afterApplicationCommandLine , - applicationCommandLineCallbackWrapper , - applicationCommandLineClosure , - mkApplicationCommandLineCallback , - noApplicationCommandLineCallback , - onApplicationCommandLine , - - --- ** HandleLocalOptions - ApplicationHandleLocalOptionsCallback , - ApplicationHandleLocalOptionsCallbackC , - ApplicationHandleLocalOptionsSignalInfo , - afterApplicationHandleLocalOptions , - applicationHandleLocalOptionsCallbackWrapper, - applicationHandleLocalOptionsClosure , - mkApplicationHandleLocalOptionsCallback , - noApplicationHandleLocalOptionsCallback , - onApplicationHandleLocalOptions , - - --- ** Open - ApplicationOpenCallback , - ApplicationOpenCallbackC , - ApplicationOpenSignalInfo , - afterApplicationOpen , - applicationOpenCallbackWrapper , - applicationOpenClosure , - mkApplicationOpenCallback , - noApplicationOpenCallback , - onApplicationOpen , - - --- ** Shutdown - ApplicationShutdownCallback , - ApplicationShutdownCallbackC , - ApplicationShutdownSignalInfo , - afterApplicationShutdown , - applicationShutdownCallbackWrapper , - applicationShutdownClosure , - mkApplicationShutdownCallback , - noApplicationShutdownCallback , - onApplicationShutdown , - - --- ** Startup - ApplicationStartupCallback , - ApplicationStartupCallbackC , - ApplicationStartupSignalInfo , - afterApplicationStartup , - applicationStartupCallbackWrapper , - applicationStartupClosure , - mkApplicationStartupCallback , - noApplicationStartupCallback , - onApplicationStartup , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype Application = Application (ForeignPtr Application) -foreign import ccall "g_application_get_type" - c_g_application_get_type :: IO GType - -type instance ParentTypes Application = ApplicationParentTypes -type ApplicationParentTypes = '[GObject.Object, ActionGroup, ActionMap] - -instance GObject Application where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_application_get_type - - -class GObject o => ApplicationK o -instance (GObject o, IsDescendantOf Application o) => ApplicationK o - -toApplication :: ApplicationK o => o -> IO Application -toApplication = unsafeCastTo Application - -noApplication :: Maybe Application -noApplication = Nothing - -type family ResolveApplicationMethod (t :: Symbol) (o :: *) :: * where - ResolveApplicationMethod "actionAdded" o = ActionGroupActionAddedMethodInfo - ResolveApplicationMethod "actionEnabledChanged" o = ActionGroupActionEnabledChangedMethodInfo - ResolveApplicationMethod "actionRemoved" o = ActionGroupActionRemovedMethodInfo - ResolveApplicationMethod "actionStateChanged" o = ActionGroupActionStateChangedMethodInfo - ResolveApplicationMethod "activate" o = ApplicationActivateMethodInfo - ResolveApplicationMethod "activateAction" o = ActionGroupActivateActionMethodInfo - ResolveApplicationMethod "addAction" o = ActionMapAddActionMethodInfo - ResolveApplicationMethod "addActionEntries" o = ActionMapAddActionEntriesMethodInfo - ResolveApplicationMethod "addMainOption" o = ApplicationAddMainOptionMethodInfo - ResolveApplicationMethod "addMainOptionEntries" o = ApplicationAddMainOptionEntriesMethodInfo - ResolveApplicationMethod "addOptionGroup" o = ApplicationAddOptionGroupMethodInfo - ResolveApplicationMethod "bindBusyProperty" o = ApplicationBindBusyPropertyMethodInfo - ResolveApplicationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveApplicationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveApplicationMethod "changeActionState" o = ActionGroupChangeActionStateMethodInfo - ResolveApplicationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveApplicationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveApplicationMethod "hasAction" o = ActionGroupHasActionMethodInfo - ResolveApplicationMethod "hold" o = ApplicationHoldMethodInfo - ResolveApplicationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveApplicationMethod "listActions" o = ActionGroupListActionsMethodInfo - ResolveApplicationMethod "lookupAction" o = ActionMapLookupActionMethodInfo - ResolveApplicationMethod "markBusy" o = ApplicationMarkBusyMethodInfo - ResolveApplicationMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveApplicationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveApplicationMethod "open" o = ApplicationOpenMethodInfo - ResolveApplicationMethod "queryAction" o = ActionGroupQueryActionMethodInfo - ResolveApplicationMethod "quit" o = ApplicationQuitMethodInfo - ResolveApplicationMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveApplicationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveApplicationMethod "register" o = ApplicationRegisterMethodInfo - ResolveApplicationMethod "release" o = ApplicationReleaseMethodInfo - ResolveApplicationMethod "removeAction" o = ActionMapRemoveActionMethodInfo - ResolveApplicationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveApplicationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveApplicationMethod "run" o = ApplicationRunMethodInfo - ResolveApplicationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveApplicationMethod "sendNotification" o = ApplicationSendNotificationMethodInfo - ResolveApplicationMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveApplicationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveApplicationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveApplicationMethod "unbindBusyProperty" o = ApplicationUnbindBusyPropertyMethodInfo - ResolveApplicationMethod "unmarkBusy" o = ApplicationUnmarkBusyMethodInfo - ResolveApplicationMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveApplicationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveApplicationMethod "withdrawNotification" o = ApplicationWithdrawNotificationMethodInfo - ResolveApplicationMethod "getActionEnabled" o = ActionGroupGetActionEnabledMethodInfo - ResolveApplicationMethod "getActionParameterType" o = ActionGroupGetActionParameterTypeMethodInfo - ResolveApplicationMethod "getActionState" o = ActionGroupGetActionStateMethodInfo - ResolveApplicationMethod "getActionStateHint" o = ActionGroupGetActionStateHintMethodInfo - ResolveApplicationMethod "getActionStateType" o = ActionGroupGetActionStateTypeMethodInfo - ResolveApplicationMethod "getApplicationId" o = ApplicationGetApplicationIdMethodInfo - ResolveApplicationMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveApplicationMethod "getDbusConnection" o = ApplicationGetDbusConnectionMethodInfo - ResolveApplicationMethod "getDbusObjectPath" o = ApplicationGetDbusObjectPathMethodInfo - ResolveApplicationMethod "getFlags" o = ApplicationGetFlagsMethodInfo - ResolveApplicationMethod "getInactivityTimeout" o = ApplicationGetInactivityTimeoutMethodInfo - ResolveApplicationMethod "getIsBusy" o = ApplicationGetIsBusyMethodInfo - ResolveApplicationMethod "getIsRegistered" o = ApplicationGetIsRegisteredMethodInfo - ResolveApplicationMethod "getIsRemote" o = ApplicationGetIsRemoteMethodInfo - ResolveApplicationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveApplicationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveApplicationMethod "getResourceBasePath" o = ApplicationGetResourceBasePathMethodInfo - ResolveApplicationMethod "setActionGroup" o = ApplicationSetActionGroupMethodInfo - ResolveApplicationMethod "setApplicationId" o = ApplicationSetApplicationIdMethodInfo - ResolveApplicationMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveApplicationMethod "setDefault" o = ApplicationSetDefaultMethodInfo - ResolveApplicationMethod "setFlags" o = ApplicationSetFlagsMethodInfo - ResolveApplicationMethod "setInactivityTimeout" o = ApplicationSetInactivityTimeoutMethodInfo - ResolveApplicationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveApplicationMethod "setResourceBasePath" o = ApplicationSetResourceBasePathMethodInfo - ResolveApplicationMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveApplicationMethod t Application, MethodInfo info Application p) => IsLabelProxy t (Application -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveApplicationMethod t Application, MethodInfo info Application p) => IsLabel t (Application -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Application::activate -type ApplicationActivateCallback = - IO () - -noApplicationActivateCallback :: Maybe ApplicationActivateCallback -noApplicationActivateCallback = Nothing - -type ApplicationActivateCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkApplicationActivateCallback :: ApplicationActivateCallbackC -> IO (FunPtr ApplicationActivateCallbackC) - -applicationActivateClosure :: ApplicationActivateCallback -> IO Closure -applicationActivateClosure cb = newCClosure =<< mkApplicationActivateCallback wrapped - where wrapped = applicationActivateCallbackWrapper cb - -applicationActivateCallbackWrapper :: - ApplicationActivateCallback -> - Ptr () -> - Ptr () -> - IO () -applicationActivateCallbackWrapper _cb _ _ = do - _cb - -onApplicationActivate :: (GObject a, MonadIO m) => a -> ApplicationActivateCallback -> m SignalHandlerId -onApplicationActivate obj cb = liftIO $ connectApplicationActivate obj cb SignalConnectBefore -afterApplicationActivate :: (GObject a, MonadIO m) => a -> ApplicationActivateCallback -> m SignalHandlerId -afterApplicationActivate obj cb = connectApplicationActivate obj cb SignalConnectAfter - -connectApplicationActivate :: (GObject a, MonadIO m) => - a -> ApplicationActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectApplicationActivate obj cb after = liftIO $ do - cb' <- mkApplicationActivateCallback (applicationActivateCallbackWrapper cb) - connectSignalFunPtr obj "activate" cb' after - --- signal Application::command-line -type ApplicationCommandLineCallback = - ApplicationCommandLine -> - IO Int32 - -noApplicationCommandLineCallback :: Maybe ApplicationCommandLineCallback -noApplicationCommandLineCallback = Nothing - -type ApplicationCommandLineCallbackC = - Ptr () -> -- object - Ptr ApplicationCommandLine -> - Ptr () -> -- user_data - IO Int32 - -foreign import ccall "wrapper" - mkApplicationCommandLineCallback :: ApplicationCommandLineCallbackC -> IO (FunPtr ApplicationCommandLineCallbackC) - -applicationCommandLineClosure :: ApplicationCommandLineCallback -> IO Closure -applicationCommandLineClosure cb = newCClosure =<< mkApplicationCommandLineCallback wrapped - where wrapped = applicationCommandLineCallbackWrapper cb - -applicationCommandLineCallbackWrapper :: - ApplicationCommandLineCallback -> - Ptr () -> - Ptr ApplicationCommandLine -> - Ptr () -> - IO Int32 -applicationCommandLineCallbackWrapper _cb _ commandLine _ = do - commandLine' <- (newObject ApplicationCommandLine) commandLine - result <- _cb commandLine' - return result - -onApplicationCommandLine :: (GObject a, MonadIO m) => a -> ApplicationCommandLineCallback -> m SignalHandlerId -onApplicationCommandLine obj cb = liftIO $ connectApplicationCommandLine obj cb SignalConnectBefore -afterApplicationCommandLine :: (GObject a, MonadIO m) => a -> ApplicationCommandLineCallback -> m SignalHandlerId -afterApplicationCommandLine obj cb = connectApplicationCommandLine obj cb SignalConnectAfter - -connectApplicationCommandLine :: (GObject a, MonadIO m) => - a -> ApplicationCommandLineCallback -> SignalConnectMode -> m SignalHandlerId -connectApplicationCommandLine obj cb after = liftIO $ do - cb' <- mkApplicationCommandLineCallback (applicationCommandLineCallbackWrapper cb) - connectSignalFunPtr obj "command-line" cb' after - --- signal Application::handle-local-options -type ApplicationHandleLocalOptionsCallback = - GLib.VariantDict -> - IO Int32 - -noApplicationHandleLocalOptionsCallback :: Maybe ApplicationHandleLocalOptionsCallback -noApplicationHandleLocalOptionsCallback = Nothing - -type ApplicationHandleLocalOptionsCallbackC = - Ptr () -> -- object - Ptr GLib.VariantDict -> - Ptr () -> -- user_data - IO Int32 - -foreign import ccall "wrapper" - mkApplicationHandleLocalOptionsCallback :: ApplicationHandleLocalOptionsCallbackC -> IO (FunPtr ApplicationHandleLocalOptionsCallbackC) - -applicationHandleLocalOptionsClosure :: ApplicationHandleLocalOptionsCallback -> IO Closure -applicationHandleLocalOptionsClosure cb = newCClosure =<< mkApplicationHandleLocalOptionsCallback wrapped - where wrapped = applicationHandleLocalOptionsCallbackWrapper cb - -applicationHandleLocalOptionsCallbackWrapper :: - ApplicationHandleLocalOptionsCallback -> - Ptr () -> - Ptr GLib.VariantDict -> - Ptr () -> - IO Int32 -applicationHandleLocalOptionsCallbackWrapper _cb _ options _ = do - options' <- (newBoxed GLib.VariantDict) options - result <- _cb options' - return result - -onApplicationHandleLocalOptions :: (GObject a, MonadIO m) => a -> ApplicationHandleLocalOptionsCallback -> m SignalHandlerId -onApplicationHandleLocalOptions obj cb = liftIO $ connectApplicationHandleLocalOptions obj cb SignalConnectBefore -afterApplicationHandleLocalOptions :: (GObject a, MonadIO m) => a -> ApplicationHandleLocalOptionsCallback -> m SignalHandlerId -afterApplicationHandleLocalOptions obj cb = connectApplicationHandleLocalOptions obj cb SignalConnectAfter - -connectApplicationHandleLocalOptions :: (GObject a, MonadIO m) => - a -> ApplicationHandleLocalOptionsCallback -> SignalConnectMode -> m SignalHandlerId -connectApplicationHandleLocalOptions obj cb after = liftIO $ do - cb' <- mkApplicationHandleLocalOptionsCallback (applicationHandleLocalOptionsCallbackWrapper cb) - connectSignalFunPtr obj "handle-local-options" cb' after - --- signal Application::open -type ApplicationOpenCallback = - [File] -> - T.Text -> - IO () - -noApplicationOpenCallback :: Maybe ApplicationOpenCallback -noApplicationOpenCallback = Nothing - -type ApplicationOpenCallbackC = - Ptr () -> -- object - Ptr (Ptr File) -> - Int32 -> - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkApplicationOpenCallback :: ApplicationOpenCallbackC -> IO (FunPtr ApplicationOpenCallbackC) - -applicationOpenClosure :: ApplicationOpenCallback -> IO Closure -applicationOpenClosure cb = newCClosure =<< mkApplicationOpenCallback wrapped - where wrapped = applicationOpenCallbackWrapper cb - -applicationOpenCallbackWrapper :: - ApplicationOpenCallback -> - Ptr () -> - Ptr (Ptr File) -> - Int32 -> - CString -> - Ptr () -> - IO () -applicationOpenCallbackWrapper _cb _ files nFiles hint _ = do - files' <- (unpackPtrArrayWithLength nFiles) files - files'' <- mapM (newObject File) files' - hint' <- cstringToText hint - _cb files'' hint' - -onApplicationOpen :: (GObject a, MonadIO m) => a -> ApplicationOpenCallback -> m SignalHandlerId -onApplicationOpen obj cb = liftIO $ connectApplicationOpen obj cb SignalConnectBefore -afterApplicationOpen :: (GObject a, MonadIO m) => a -> ApplicationOpenCallback -> m SignalHandlerId -afterApplicationOpen obj cb = connectApplicationOpen obj cb SignalConnectAfter - -connectApplicationOpen :: (GObject a, MonadIO m) => - a -> ApplicationOpenCallback -> SignalConnectMode -> m SignalHandlerId -connectApplicationOpen obj cb after = liftIO $ do - cb' <- mkApplicationOpenCallback (applicationOpenCallbackWrapper cb) - connectSignalFunPtr obj "open" cb' after - --- signal Application::shutdown -type ApplicationShutdownCallback = - IO () - -noApplicationShutdownCallback :: Maybe ApplicationShutdownCallback -noApplicationShutdownCallback = Nothing - -type ApplicationShutdownCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkApplicationShutdownCallback :: ApplicationShutdownCallbackC -> IO (FunPtr ApplicationShutdownCallbackC) - -applicationShutdownClosure :: ApplicationShutdownCallback -> IO Closure -applicationShutdownClosure cb = newCClosure =<< mkApplicationShutdownCallback wrapped - where wrapped = applicationShutdownCallbackWrapper cb - -applicationShutdownCallbackWrapper :: - ApplicationShutdownCallback -> - Ptr () -> - Ptr () -> - IO () -applicationShutdownCallbackWrapper _cb _ _ = do - _cb - -onApplicationShutdown :: (GObject a, MonadIO m) => a -> ApplicationShutdownCallback -> m SignalHandlerId -onApplicationShutdown obj cb = liftIO $ connectApplicationShutdown obj cb SignalConnectBefore -afterApplicationShutdown :: (GObject a, MonadIO m) => a -> ApplicationShutdownCallback -> m SignalHandlerId -afterApplicationShutdown obj cb = connectApplicationShutdown obj cb SignalConnectAfter - -connectApplicationShutdown :: (GObject a, MonadIO m) => - a -> ApplicationShutdownCallback -> SignalConnectMode -> m SignalHandlerId -connectApplicationShutdown obj cb after = liftIO $ do - cb' <- mkApplicationShutdownCallback (applicationShutdownCallbackWrapper cb) - connectSignalFunPtr obj "shutdown" cb' after - --- signal Application::startup -type ApplicationStartupCallback = - IO () - -noApplicationStartupCallback :: Maybe ApplicationStartupCallback -noApplicationStartupCallback = Nothing - -type ApplicationStartupCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkApplicationStartupCallback :: ApplicationStartupCallbackC -> IO (FunPtr ApplicationStartupCallbackC) - -applicationStartupClosure :: ApplicationStartupCallback -> IO Closure -applicationStartupClosure cb = newCClosure =<< mkApplicationStartupCallback wrapped - where wrapped = applicationStartupCallbackWrapper cb - -applicationStartupCallbackWrapper :: - ApplicationStartupCallback -> - Ptr () -> - Ptr () -> - IO () -applicationStartupCallbackWrapper _cb _ _ = do - _cb - -onApplicationStartup :: (GObject a, MonadIO m) => a -> ApplicationStartupCallback -> m SignalHandlerId -onApplicationStartup obj cb = liftIO $ connectApplicationStartup obj cb SignalConnectBefore -afterApplicationStartup :: (GObject a, MonadIO m) => a -> ApplicationStartupCallback -> m SignalHandlerId -afterApplicationStartup obj cb = connectApplicationStartup obj cb SignalConnectAfter - -connectApplicationStartup :: (GObject a, MonadIO m) => - a -> ApplicationStartupCallback -> SignalConnectMode -> m SignalHandlerId -connectApplicationStartup obj cb after = liftIO $ do - cb' <- mkApplicationStartupCallback (applicationStartupCallbackWrapper cb) - connectSignalFunPtr obj "startup" cb' after - --- VVV Prop "action-group" - -- Type: TInterface "Gio" "ActionGroup" - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Just True) - -setApplicationActionGroup :: (MonadIO m, ApplicationK o, ActionGroupK a) => o -> a -> m () -setApplicationActionGroup obj val = liftIO $ setObjectPropertyObject obj "action-group" (Just val) - -constructApplicationActionGroup :: (ActionGroupK a) => a -> IO ([Char], GValue) -constructApplicationActionGroup val = constructObjectPropertyObject "action-group" (Just val) - -clearApplicationActionGroup :: (MonadIO m, ApplicationK o) => o -> m () -clearApplicationActionGroup obj = liftIO $ setObjectPropertyObject obj "action-group" (Nothing :: Maybe ActionGroup) - -data ApplicationActionGroupPropertyInfo -instance AttrInfo ApplicationActionGroupPropertyInfo where - type AttrAllowedOps ApplicationActionGroupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint ApplicationActionGroupPropertyInfo = ActionGroupK - type AttrBaseTypeConstraint ApplicationActionGroupPropertyInfo = ApplicationK - type AttrGetType ApplicationActionGroupPropertyInfo = () - type AttrLabel ApplicationActionGroupPropertyInfo = "action-group" - attrGet _ = undefined - attrSet _ = setApplicationActionGroup - attrConstruct _ = constructApplicationActionGroup - attrClear _ = clearApplicationActionGroup - --- VVV Prop "application-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just True) - -getApplicationApplicationId :: (MonadIO m, ApplicationK o) => o -> m T.Text -getApplicationApplicationId obj = liftIO $ checkUnexpectedNothing "getApplicationApplicationId" $ getObjectPropertyString obj "application-id" - -setApplicationApplicationId :: (MonadIO m, ApplicationK o) => o -> T.Text -> m () -setApplicationApplicationId obj val = liftIO $ setObjectPropertyString obj "application-id" (Just val) - -constructApplicationApplicationId :: T.Text -> IO ([Char], GValue) -constructApplicationApplicationId val = constructObjectPropertyString "application-id" (Just val) - -clearApplicationApplicationId :: (MonadIO m, ApplicationK o) => o -> m () -clearApplicationApplicationId obj = liftIO $ setObjectPropertyString obj "application-id" (Nothing :: Maybe T.Text) - -data ApplicationApplicationIdPropertyInfo -instance AttrInfo ApplicationApplicationIdPropertyInfo where - type AttrAllowedOps ApplicationApplicationIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ApplicationApplicationIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ApplicationApplicationIdPropertyInfo = ApplicationK - type AttrGetType ApplicationApplicationIdPropertyInfo = T.Text - type AttrLabel ApplicationApplicationIdPropertyInfo = "application-id" - attrGet _ = getApplicationApplicationId - attrSet _ = setApplicationApplicationId - attrConstruct _ = constructApplicationApplicationId - attrClear _ = clearApplicationApplicationId - --- VVV Prop "flags" - -- Type: TInterface "Gio" "ApplicationFlags" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getApplicationFlags :: (MonadIO m, ApplicationK o) => o -> m [ApplicationFlags] -getApplicationFlags obj = liftIO $ getObjectPropertyFlags obj "flags" - -setApplicationFlags :: (MonadIO m, ApplicationK o) => o -> [ApplicationFlags] -> m () -setApplicationFlags obj val = liftIO $ setObjectPropertyFlags obj "flags" val - -constructApplicationFlags :: [ApplicationFlags] -> IO ([Char], GValue) -constructApplicationFlags val = constructObjectPropertyFlags "flags" val - -data ApplicationFlagsPropertyInfo -instance AttrInfo ApplicationFlagsPropertyInfo where - type AttrAllowedOps ApplicationFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ApplicationFlagsPropertyInfo = (~) [ApplicationFlags] - type AttrBaseTypeConstraint ApplicationFlagsPropertyInfo = ApplicationK - type AttrGetType ApplicationFlagsPropertyInfo = [ApplicationFlags] - type AttrLabel ApplicationFlagsPropertyInfo = "flags" - attrGet _ = getApplicationFlags - attrSet _ = setApplicationFlags - attrConstruct _ = constructApplicationFlags - attrClear _ = undefined - --- VVV Prop "inactivity-timeout" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getApplicationInactivityTimeout :: (MonadIO m, ApplicationK o) => o -> m Word32 -getApplicationInactivityTimeout obj = liftIO $ getObjectPropertyUInt32 obj "inactivity-timeout" - -setApplicationInactivityTimeout :: (MonadIO m, ApplicationK o) => o -> Word32 -> m () -setApplicationInactivityTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "inactivity-timeout" val - -constructApplicationInactivityTimeout :: Word32 -> IO ([Char], GValue) -constructApplicationInactivityTimeout val = constructObjectPropertyUInt32 "inactivity-timeout" val - -data ApplicationInactivityTimeoutPropertyInfo -instance AttrInfo ApplicationInactivityTimeoutPropertyInfo where - type AttrAllowedOps ApplicationInactivityTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ApplicationInactivityTimeoutPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint ApplicationInactivityTimeoutPropertyInfo = ApplicationK - type AttrGetType ApplicationInactivityTimeoutPropertyInfo = Word32 - type AttrLabel ApplicationInactivityTimeoutPropertyInfo = "inactivity-timeout" - attrGet _ = getApplicationInactivityTimeout - attrSet _ = setApplicationInactivityTimeout - attrConstruct _ = constructApplicationInactivityTimeout - attrClear _ = undefined - --- VVV Prop "is-busy" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getApplicationIsBusy :: (MonadIO m, ApplicationK o) => o -> m Bool -getApplicationIsBusy obj = liftIO $ getObjectPropertyBool obj "is-busy" - -data ApplicationIsBusyPropertyInfo -instance AttrInfo ApplicationIsBusyPropertyInfo where - type AttrAllowedOps ApplicationIsBusyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ApplicationIsBusyPropertyInfo = (~) () - type AttrBaseTypeConstraint ApplicationIsBusyPropertyInfo = ApplicationK - type AttrGetType ApplicationIsBusyPropertyInfo = Bool - type AttrLabel ApplicationIsBusyPropertyInfo = "is-busy" - attrGet _ = getApplicationIsBusy - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-registered" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getApplicationIsRegistered :: (MonadIO m, ApplicationK o) => o -> m Bool -getApplicationIsRegistered obj = liftIO $ getObjectPropertyBool obj "is-registered" - -data ApplicationIsRegisteredPropertyInfo -instance AttrInfo ApplicationIsRegisteredPropertyInfo where - type AttrAllowedOps ApplicationIsRegisteredPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ApplicationIsRegisteredPropertyInfo = (~) () - type AttrBaseTypeConstraint ApplicationIsRegisteredPropertyInfo = ApplicationK - type AttrGetType ApplicationIsRegisteredPropertyInfo = Bool - type AttrLabel ApplicationIsRegisteredPropertyInfo = "is-registered" - attrGet _ = getApplicationIsRegistered - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-remote" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getApplicationIsRemote :: (MonadIO m, ApplicationK o) => o -> m Bool -getApplicationIsRemote obj = liftIO $ getObjectPropertyBool obj "is-remote" - -data ApplicationIsRemotePropertyInfo -instance AttrInfo ApplicationIsRemotePropertyInfo where - type AttrAllowedOps ApplicationIsRemotePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ApplicationIsRemotePropertyInfo = (~) () - type AttrBaseTypeConstraint ApplicationIsRemotePropertyInfo = ApplicationK - type AttrGetType ApplicationIsRemotePropertyInfo = Bool - type AttrLabel ApplicationIsRemotePropertyInfo = "is-remote" - attrGet _ = getApplicationIsRemote - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "resource-base-path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just True,Just True) - -getApplicationResourceBasePath :: (MonadIO m, ApplicationK o) => o -> m (Maybe T.Text) -getApplicationResourceBasePath obj = liftIO $ getObjectPropertyString obj "resource-base-path" - -setApplicationResourceBasePath :: (MonadIO m, ApplicationK o) => o -> T.Text -> m () -setApplicationResourceBasePath obj val = liftIO $ setObjectPropertyString obj "resource-base-path" (Just val) - -constructApplicationResourceBasePath :: T.Text -> IO ([Char], GValue) -constructApplicationResourceBasePath val = constructObjectPropertyString "resource-base-path" (Just val) - -clearApplicationResourceBasePath :: (MonadIO m, ApplicationK o) => o -> m () -clearApplicationResourceBasePath obj = liftIO $ setObjectPropertyString obj "resource-base-path" (Nothing :: Maybe T.Text) - -data ApplicationResourceBasePathPropertyInfo -instance AttrInfo ApplicationResourceBasePathPropertyInfo where - type AttrAllowedOps ApplicationResourceBasePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ApplicationResourceBasePathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ApplicationResourceBasePathPropertyInfo = ApplicationK - type AttrGetType ApplicationResourceBasePathPropertyInfo = (Maybe T.Text) - type AttrLabel ApplicationResourceBasePathPropertyInfo = "resource-base-path" - attrGet _ = getApplicationResourceBasePath - attrSet _ = setApplicationResourceBasePath - attrConstruct _ = constructApplicationResourceBasePath - attrClear _ = clearApplicationResourceBasePath - -type instance AttributeList Application = ApplicationAttributeList -type ApplicationAttributeList = ('[ '("actionGroup", ApplicationActionGroupPropertyInfo), '("applicationId", ApplicationApplicationIdPropertyInfo), '("flags", ApplicationFlagsPropertyInfo), '("inactivityTimeout", ApplicationInactivityTimeoutPropertyInfo), '("isBusy", ApplicationIsBusyPropertyInfo), '("isRegistered", ApplicationIsRegisteredPropertyInfo), '("isRemote", ApplicationIsRemotePropertyInfo), '("resourceBasePath", ApplicationResourceBasePathPropertyInfo)] :: [(Symbol, *)]) - -applicationActionGroup :: AttrLabelProxy "actionGroup" -applicationActionGroup = AttrLabelProxy - -applicationApplicationId :: AttrLabelProxy "applicationId" -applicationApplicationId = AttrLabelProxy - -applicationFlags :: AttrLabelProxy "flags" -applicationFlags = AttrLabelProxy - -applicationInactivityTimeout :: AttrLabelProxy "inactivityTimeout" -applicationInactivityTimeout = AttrLabelProxy - -applicationIsBusy :: AttrLabelProxy "isBusy" -applicationIsBusy = AttrLabelProxy - -applicationIsRegistered :: AttrLabelProxy "isRegistered" -applicationIsRegistered = AttrLabelProxy - -applicationIsRemote :: AttrLabelProxy "isRemote" -applicationIsRemote = AttrLabelProxy - -applicationResourceBasePath :: AttrLabelProxy "resourceBasePath" -applicationResourceBasePath = AttrLabelProxy - -data ApplicationActivateSignalInfo -instance SignalInfo ApplicationActivateSignalInfo where - type HaskellCallbackType ApplicationActivateSignalInfo = ApplicationActivateCallback - connectSignal _ = connectApplicationActivate - -data ApplicationCommandLineSignalInfo -instance SignalInfo ApplicationCommandLineSignalInfo where - type HaskellCallbackType ApplicationCommandLineSignalInfo = ApplicationCommandLineCallback - connectSignal _ = connectApplicationCommandLine - -data ApplicationHandleLocalOptionsSignalInfo -instance SignalInfo ApplicationHandleLocalOptionsSignalInfo where - type HaskellCallbackType ApplicationHandleLocalOptionsSignalInfo = ApplicationHandleLocalOptionsCallback - connectSignal _ = connectApplicationHandleLocalOptions - -data ApplicationOpenSignalInfo -instance SignalInfo ApplicationOpenSignalInfo where - type HaskellCallbackType ApplicationOpenSignalInfo = ApplicationOpenCallback - connectSignal _ = connectApplicationOpen - -data ApplicationShutdownSignalInfo -instance SignalInfo ApplicationShutdownSignalInfo where - type HaskellCallbackType ApplicationShutdownSignalInfo = ApplicationShutdownCallback - connectSignal _ = connectApplicationShutdown - -data ApplicationStartupSignalInfo -instance SignalInfo ApplicationStartupSignalInfo where - type HaskellCallbackType ApplicationStartupSignalInfo = ApplicationStartupCallback - connectSignal _ = connectApplicationStartup - -type instance SignalList Application = ApplicationSignalList -type ApplicationSignalList = ('[ '("actionAdded", ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", ActionGroupActionRemovedSignalInfo), '("actionStateChanged", ActionGroupActionStateChangedSignalInfo), '("activate", ApplicationActivateSignalInfo), '("commandLine", ApplicationCommandLineSignalInfo), '("handleLocalOptions", ApplicationHandleLocalOptionsSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("open", ApplicationOpenSignalInfo), '("shutdown", ApplicationShutdownSignalInfo), '("startup", ApplicationStartupSignalInfo)] :: [(Symbol, *)]) - --- method Application::new --- method type : Constructor --- Args : [Arg {argCName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Application") --- throws : False --- Skip return : False - -foreign import ccall "g_application_new" g_application_new :: - CString -> -- application_id : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "ApplicationFlags" - IO (Ptr Application) - - -applicationNew :: - (MonadIO m) => - Maybe (T.Text) -- applicationId - -> [ApplicationFlags] -- flags - -> m Application -- result -applicationNew applicationId flags = liftIO $ do - maybeApplicationId <- case applicationId of - Nothing -> return nullPtr - Just jApplicationId -> do - jApplicationId' <- textToCString jApplicationId - return jApplicationId' - let flags' = gflagsToWord flags - result <- g_application_new maybeApplicationId flags' - checkUnexpectedReturnNULL "g_application_new" result - result' <- (wrapObject Application) result - freeMem maybeApplicationId - return result' - --- method Application::activate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_activate" g_application_activate :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO () - - -applicationActivate :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m () -- result -applicationActivate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_application_activate _obj' - touchManagedPtr _obj - return () - -data ApplicationActivateMethodInfo -instance (signature ~ (m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationActivateMethodInfo a signature where - overloadedMethod _ = applicationActivate - --- method Application::add_main_option --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "long_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "short_name", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "GLib" "OptionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg", argType = TInterface "GLib" "OptionArg", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg_description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_add_main_option" g_application_add_main_option :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - CString -> -- long_name : TBasicType TUTF8 - Int8 -> -- short_name : TBasicType TInt8 - CUInt -> -- flags : TInterface "GLib" "OptionFlags" - CUInt -> -- arg : TInterface "GLib" "OptionArg" - CString -> -- description : TBasicType TUTF8 - CString -> -- arg_description : TBasicType TUTF8 - IO () - - -applicationAddMainOption :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> T.Text -- longName - -> Int8 -- shortName - -> [GLib.OptionFlags] -- flags - -> GLib.OptionArg -- arg - -> T.Text -- description - -> Maybe (T.Text) -- argDescription - -> m () -- result -applicationAddMainOption _obj longName shortName flags arg description argDescription = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - longName' <- textToCString longName - let flags' = gflagsToWord flags - let arg' = (fromIntegral . fromEnum) arg - description' <- textToCString description - maybeArgDescription <- case argDescription of - Nothing -> return nullPtr - Just jArgDescription -> do - jArgDescription' <- textToCString jArgDescription - return jArgDescription' - g_application_add_main_option _obj' longName' shortName flags' arg' description' maybeArgDescription - touchManagedPtr _obj - freeMem longName' - freeMem description' - freeMem maybeArgDescription - return () - -data ApplicationAddMainOptionMethodInfo -instance (signature ~ (T.Text -> Int8 -> [GLib.OptionFlags] -> GLib.OptionArg -> T.Text -> Maybe (T.Text) -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationAddMainOptionMethodInfo a signature where - overloadedMethod _ = applicationAddMainOption - --- method Application::add_main_option_entries --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_add_main_option_entries" g_application_add_main_option_entries :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - Ptr (Ptr GLib.OptionEntry) -> -- entries : TCArray True (-1) (-1) (TInterface "GLib" "OptionEntry") - IO () - - -applicationAddMainOptionEntries :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> [GLib.OptionEntry] -- entries - -> m () -- result -applicationAddMainOptionEntries _obj entries = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let entries' = map unsafeManagedPtrGetPtr entries - entries'' <- packZeroTerminatedPtrArray entries' - g_application_add_main_option_entries _obj' entries'' - touchManagedPtr _obj - mapM_ touchManagedPtr entries - freeMem entries'' - return () - -data ApplicationAddMainOptionEntriesMethodInfo -instance (signature ~ ([GLib.OptionEntry] -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationAddMainOptionEntriesMethodInfo a signature where - overloadedMethod _ = applicationAddMainOptionEntries - --- method Application::add_option_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_add_option_group" g_application_add_option_group :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - Ptr GLib.OptionGroup -> -- group : TInterface "GLib" "OptionGroup" - IO () - - -applicationAddOptionGroup :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> GLib.OptionGroup -- group - -> m () -- result -applicationAddOptionGroup _obj group = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let group' = unsafeManagedPtrGetPtr group - g_application_add_option_group _obj' group' - touchManagedPtr _obj - touchManagedPtr group - return () - -data ApplicationAddOptionGroupMethodInfo -instance (signature ~ (GLib.OptionGroup -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationAddOptionGroupMethodInfo a signature where - overloadedMethod _ = applicationAddOptionGroup - --- method Application::bind_busy_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_bind_busy_property" g_application_bind_busy_property :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - Ptr GObject.Object -> -- object : TInterface "GObject" "Object" - CString -> -- property : TBasicType TUTF8 - IO () - - -applicationBindBusyProperty :: - (MonadIO m, ApplicationK a, GObject.ObjectK b) => - a -- _obj - -> b -- object - -> T.Text -- property - -> m () -- result -applicationBindBusyProperty _obj object property = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let object' = unsafeManagedPtrCastPtr object - property' <- textToCString property - g_application_bind_busy_property _obj' object' property' - touchManagedPtr _obj - touchManagedPtr object - freeMem property' - return () - -data ApplicationBindBusyPropertyMethodInfo -instance (signature ~ (b -> T.Text -> m ()), MonadIO m, ApplicationK a, GObject.ObjectK b) => MethodInfo ApplicationBindBusyPropertyMethodInfo a signature where - overloadedMethod _ = applicationBindBusyProperty - --- method Application::get_application_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_application_get_application_id" g_application_get_application_id :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO CString - - -applicationGetApplicationId :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m T.Text -- result -applicationGetApplicationId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_get_application_id _obj' - checkUnexpectedReturnNULL "g_application_get_application_id" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ApplicationGetApplicationIdMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetApplicationIdMethodInfo a signature where - overloadedMethod _ = applicationGetApplicationId - --- method Application::get_dbus_connection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusConnection") --- throws : False --- Skip return : False - -foreign import ccall "g_application_get_dbus_connection" g_application_get_dbus_connection :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO (Ptr DBusConnection) - - -applicationGetDbusConnection :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m DBusConnection -- result -applicationGetDbusConnection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_get_dbus_connection _obj' - checkUnexpectedReturnNULL "g_application_get_dbus_connection" result - result' <- (newObject DBusConnection) result - touchManagedPtr _obj - return result' - -data ApplicationGetDbusConnectionMethodInfo -instance (signature ~ (m DBusConnection), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetDbusConnectionMethodInfo a signature where - overloadedMethod _ = applicationGetDbusConnection - --- method Application::get_dbus_object_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_application_get_dbus_object_path" g_application_get_dbus_object_path :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO CString - - -applicationGetDbusObjectPath :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m T.Text -- result -applicationGetDbusObjectPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_get_dbus_object_path _obj' - checkUnexpectedReturnNULL "g_application_get_dbus_object_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ApplicationGetDbusObjectPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetDbusObjectPathMethodInfo a signature where - overloadedMethod _ = applicationGetDbusObjectPath - --- method Application::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "ApplicationFlags") --- throws : False --- Skip return : False - -foreign import ccall "g_application_get_flags" g_application_get_flags :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO CUInt - - -applicationGetFlags :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m [ApplicationFlags] -- result -applicationGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data ApplicationGetFlagsMethodInfo -instance (signature ~ (m [ApplicationFlags]), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetFlagsMethodInfo a signature where - overloadedMethod _ = applicationGetFlags - --- method Application::get_inactivity_timeout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_application_get_inactivity_timeout" g_application_get_inactivity_timeout :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO Word32 - - -applicationGetInactivityTimeout :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m Word32 -- result -applicationGetInactivityTimeout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_get_inactivity_timeout _obj' - touchManagedPtr _obj - return result - -data ApplicationGetInactivityTimeoutMethodInfo -instance (signature ~ (m Word32), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetInactivityTimeoutMethodInfo a signature where - overloadedMethod _ = applicationGetInactivityTimeout - --- method Application::get_is_busy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_application_get_is_busy" g_application_get_is_busy :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO CInt - - -applicationGetIsBusy :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m Bool -- result -applicationGetIsBusy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_get_is_busy _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ApplicationGetIsBusyMethodInfo -instance (signature ~ (m Bool), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetIsBusyMethodInfo a signature where - overloadedMethod _ = applicationGetIsBusy - --- method Application::get_is_registered --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_application_get_is_registered" g_application_get_is_registered :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO CInt - - -applicationGetIsRegistered :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m Bool -- result -applicationGetIsRegistered _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_get_is_registered _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ApplicationGetIsRegisteredMethodInfo -instance (signature ~ (m Bool), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetIsRegisteredMethodInfo a signature where - overloadedMethod _ = applicationGetIsRegistered - --- method Application::get_is_remote --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_application_get_is_remote" g_application_get_is_remote :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO CInt - - -applicationGetIsRemote :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m Bool -- result -applicationGetIsRemote _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_get_is_remote _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ApplicationGetIsRemoteMethodInfo -instance (signature ~ (m Bool), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetIsRemoteMethodInfo a signature where - overloadedMethod _ = applicationGetIsRemote - --- method Application::get_resource_base_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_application_get_resource_base_path" g_application_get_resource_base_path :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO CString - - -applicationGetResourceBasePath :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m (Maybe T.Text) -- result -applicationGetResourceBasePath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_get_resource_base_path _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ApplicationGetResourceBasePathMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, ApplicationK a) => MethodInfo ApplicationGetResourceBasePathMethodInfo a signature where - overloadedMethod _ = applicationGetResourceBasePath - --- method Application::hold --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_hold" g_application_hold :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO () - - -applicationHold :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m () -- result -applicationHold _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_application_hold _obj' - touchManagedPtr _obj - return () - -data ApplicationHoldMethodInfo -instance (signature ~ (m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationHoldMethodInfo a signature where - overloadedMethod _ = applicationHold - --- method Application::mark_busy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_mark_busy" g_application_mark_busy :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO () - - -applicationMarkBusy :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m () -- result -applicationMarkBusy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_application_mark_busy _obj' - touchManagedPtr _obj - return () - -data ApplicationMarkBusyMethodInfo -instance (signature ~ (m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationMarkBusyMethodInfo a signature where - overloadedMethod _ = applicationMarkBusy - --- method Application::open --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "files", argType = TCArray False (-1) 2 (TInterface "Gio" "File"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_files", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hint", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_files", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_open" g_application_open :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - Ptr (Ptr File) -> -- files : TCArray False (-1) 2 (TInterface "Gio" "File") - Int32 -> -- n_files : TBasicType TInt - CString -> -- hint : TBasicType TUTF8 - IO () - - -applicationOpen :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> [File] -- files - -> T.Text -- hint - -> m () -- result -applicationOpen _obj files hint = liftIO $ do - let nFiles = fromIntegral $ length files - let _obj' = unsafeManagedPtrCastPtr _obj - let files' = map unsafeManagedPtrCastPtr files - files'' <- packPtrArray files' - hint' <- textToCString hint - g_application_open _obj' files'' nFiles hint' - touchManagedPtr _obj - mapM_ touchManagedPtr files - freeMem files'' - freeMem hint' - return () - -data ApplicationOpenMethodInfo -instance (signature ~ ([File] -> T.Text -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationOpenMethodInfo a signature where - overloadedMethod _ = applicationOpen - --- method Application::quit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_quit" g_application_quit :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO () - - -applicationQuit :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m () -- result -applicationQuit _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_application_quit _obj' - touchManagedPtr _obj - return () - -data ApplicationQuitMethodInfo -instance (signature ~ (m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationQuitMethodInfo a signature where - overloadedMethod _ = applicationQuit - --- method Application::register --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_application_register" g_application_register :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -applicationRegister :: - (MonadIO m, ApplicationK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -applicationRegister _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_application_register _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data ApplicationRegisterMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ApplicationK a, CancellableK b) => MethodInfo ApplicationRegisterMethodInfo a signature where - overloadedMethod _ = applicationRegister - --- method Application::release --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_release" g_application_release :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO () - - -applicationRelease :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m () -- result -applicationRelease _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_application_release _obj' - touchManagedPtr _obj - return () - -data ApplicationReleaseMethodInfo -instance (signature ~ (m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationReleaseMethodInfo a signature where - overloadedMethod _ = applicationRelease - --- method Application::run --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argv", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_application_run" g_application_run :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - Int32 -> -- argc : TBasicType TInt - Ptr CString -> -- argv : TCArray False (-1) 1 (TBasicType TUTF8) - IO Int32 - - -applicationRun :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> Maybe ([T.Text]) -- argv - -> m Int32 -- result -applicationRun _obj argv = liftIO $ do - let argc = case argv of - Nothing -> 0 - Just jArgv -> fromIntegral $ length jArgv - let _obj' = unsafeManagedPtrCastPtr _obj - maybeArgv <- case argv of - Nothing -> return nullPtr - Just jArgv -> do - jArgv' <- packUTF8CArray jArgv - return jArgv' - result <- g_application_run _obj' argc maybeArgv - touchManagedPtr _obj - (mapCArrayWithLength argc) freeMem maybeArgv - freeMem maybeArgv - return result - -data ApplicationRunMethodInfo -instance (signature ~ (Maybe ([T.Text]) -> m Int32), MonadIO m, ApplicationK a) => MethodInfo ApplicationRunMethodInfo a signature where - overloadedMethod _ = applicationRun - --- method Application::send_notification --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notification", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_send_notification" g_application_send_notification :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - CString -> -- id : TBasicType TUTF8 - Ptr Notification -> -- notification : TInterface "Gio" "Notification" - IO () - - -applicationSendNotification :: - (MonadIO m, ApplicationK a, NotificationK b) => - a -- _obj - -> Maybe (T.Text) -- id - -> b -- notification - -> m () -- result -applicationSendNotification _obj id notification = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeId <- case id of - Nothing -> return nullPtr - Just jId -> do - jId' <- textToCString jId - return jId' - let notification' = unsafeManagedPtrCastPtr notification - g_application_send_notification _obj' maybeId notification' - touchManagedPtr _obj - touchManagedPtr notification - freeMem maybeId - return () - -data ApplicationSendNotificationMethodInfo -instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, ApplicationK a, NotificationK b) => MethodInfo ApplicationSendNotificationMethodInfo a signature where - overloadedMethod _ = applicationSendNotification - --- method Application::set_action_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_set_action_group" g_application_set_action_group :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - Ptr ActionGroup -> -- action_group : TInterface "Gio" "ActionGroup" - IO () - -{-# DEPRECATED applicationSetActionGroup ["(Since version 2.32)","Use the #GActionMap interface instead. Never ever","mix use of this API with use of #GActionMap on the same @application","or things will go very badly wrong. This function is known to","introduce buggy behaviour (ie: signals not emitted on changes to the","action group), so you should really use #GActionMap instead."]#-} -applicationSetActionGroup :: - (MonadIO m, ApplicationK a, ActionGroupK b) => - a -- _obj - -> Maybe (b) -- actionGroup - -> m () -- result -applicationSetActionGroup _obj actionGroup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeActionGroup <- case actionGroup of - Nothing -> return nullPtr - Just jActionGroup -> do - let jActionGroup' = unsafeManagedPtrCastPtr jActionGroup - return jActionGroup' - g_application_set_action_group _obj' maybeActionGroup - touchManagedPtr _obj - whenJust actionGroup touchManagedPtr - return () - -data ApplicationSetActionGroupMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ApplicationK a, ActionGroupK b) => MethodInfo ApplicationSetActionGroupMethodInfo a signature where - overloadedMethod _ = applicationSetActionGroup - --- method Application::set_application_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_set_application_id" g_application_set_application_id :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - CString -> -- application_id : TBasicType TUTF8 - IO () - - -applicationSetApplicationId :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> Maybe (T.Text) -- applicationId - -> m () -- result -applicationSetApplicationId _obj applicationId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeApplicationId <- case applicationId of - Nothing -> return nullPtr - Just jApplicationId -> do - jApplicationId' <- textToCString jApplicationId - return jApplicationId' - g_application_set_application_id _obj' maybeApplicationId - touchManagedPtr _obj - freeMem maybeApplicationId - return () - -data ApplicationSetApplicationIdMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationSetApplicationIdMethodInfo a signature where - overloadedMethod _ = applicationSetApplicationId - --- method Application::set_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_set_default" g_application_set_default :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO () - - -applicationSetDefault :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m () -- result -applicationSetDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_application_set_default _obj' - touchManagedPtr _obj - return () - -data ApplicationSetDefaultMethodInfo -instance (signature ~ (m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationSetDefaultMethodInfo a signature where - overloadedMethod _ = applicationSetDefault - --- method Application::set_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "ApplicationFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_set_flags" g_application_set_flags :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - CUInt -> -- flags : TInterface "Gio" "ApplicationFlags" - IO () - - -applicationSetFlags :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> [ApplicationFlags] -- flags - -> m () -- result -applicationSetFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - g_application_set_flags _obj' flags' - touchManagedPtr _obj - return () - -data ApplicationSetFlagsMethodInfo -instance (signature ~ ([ApplicationFlags] -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationSetFlagsMethodInfo a signature where - overloadedMethod _ = applicationSetFlags - --- method Application::set_inactivity_timeout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inactivity_timeout", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_set_inactivity_timeout" g_application_set_inactivity_timeout :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - Word32 -> -- inactivity_timeout : TBasicType TUInt - IO () - - -applicationSetInactivityTimeout :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> Word32 -- inactivityTimeout - -> m () -- result -applicationSetInactivityTimeout _obj inactivityTimeout = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_application_set_inactivity_timeout _obj' inactivityTimeout - touchManagedPtr _obj - return () - -data ApplicationSetInactivityTimeoutMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationSetInactivityTimeoutMethodInfo a signature where - overloadedMethod _ = applicationSetInactivityTimeout - --- method Application::set_resource_base_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resource_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_set_resource_base_path" g_application_set_resource_base_path :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - CString -> -- resource_path : TBasicType TUTF8 - IO () - - -applicationSetResourceBasePath :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> Maybe (T.Text) -- resourcePath - -> m () -- result -applicationSetResourceBasePath _obj resourcePath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeResourcePath <- case resourcePath of - Nothing -> return nullPtr - Just jResourcePath -> do - jResourcePath' <- textToCString jResourcePath - return jResourcePath' - g_application_set_resource_base_path _obj' maybeResourcePath - touchManagedPtr _obj - freeMem maybeResourcePath - return () - -data ApplicationSetResourceBasePathMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationSetResourceBasePathMethodInfo a signature where - overloadedMethod _ = applicationSetResourceBasePath - --- method Application::unbind_busy_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_unbind_busy_property" g_application_unbind_busy_property :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - Ptr GObject.Object -> -- object : TInterface "GObject" "Object" - CString -> -- property : TBasicType TUTF8 - IO () - - -applicationUnbindBusyProperty :: - (MonadIO m, ApplicationK a, GObject.ObjectK b) => - a -- _obj - -> b -- object - -> T.Text -- property - -> m () -- result -applicationUnbindBusyProperty _obj object property = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let object' = unsafeManagedPtrCastPtr object - property' <- textToCString property - g_application_unbind_busy_property _obj' object' property' - touchManagedPtr _obj - touchManagedPtr object - freeMem property' - return () - -data ApplicationUnbindBusyPropertyMethodInfo -instance (signature ~ (b -> T.Text -> m ()), MonadIO m, ApplicationK a, GObject.ObjectK b) => MethodInfo ApplicationUnbindBusyPropertyMethodInfo a signature where - overloadedMethod _ = applicationUnbindBusyProperty - --- method Application::unmark_busy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_unmark_busy" g_application_unmark_busy :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - IO () - - -applicationUnmarkBusy :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> m () -- result -applicationUnmarkBusy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_application_unmark_busy _obj' - touchManagedPtr _obj - return () - -data ApplicationUnmarkBusyMethodInfo -instance (signature ~ (m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationUnmarkBusyMethodInfo a signature where - overloadedMethod _ = applicationUnmarkBusy - --- method Application::withdraw_notification --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Application", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_withdraw_notification" g_application_withdraw_notification :: - Ptr Application -> -- _obj : TInterface "Gio" "Application" - CString -> -- id : TBasicType TUTF8 - IO () - - -applicationWithdrawNotification :: - (MonadIO m, ApplicationK a) => - a -- _obj - -> T.Text -- id - -> m () -- result -applicationWithdrawNotification _obj id = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - id' <- textToCString id - g_application_withdraw_notification _obj' id' - touchManagedPtr _obj - freeMem id' - return () - -data ApplicationWithdrawNotificationMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ApplicationK a) => MethodInfo ApplicationWithdrawNotificationMethodInfo a signature where - overloadedMethod _ = applicationWithdrawNotification - --- method Application::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Application") --- throws : False --- Skip return : False - -foreign import ccall "g_application_get_default" g_application_get_default :: - IO (Ptr Application) - - -applicationGetDefault :: - (MonadIO m) => - m Application -- result -applicationGetDefault = liftIO $ do - result <- g_application_get_default - checkUnexpectedReturnNULL "g_application_get_default" result - result' <- (newObject Application) result - return result' - --- method Application::id_is_valid --- method type : MemberFunction --- Args : [Arg {argCName = "application_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_application_id_is_valid" g_application_id_is_valid :: - CString -> -- application_id : TBasicType TUTF8 - IO CInt - - -applicationIdIsValid :: - (MonadIO m) => - T.Text -- applicationId - -> m Bool -- result -applicationIdIsValid applicationId = liftIO $ do - applicationId' <- textToCString applicationId - result <- g_application_id_is_valid applicationId' - let result' = (/= 0) result - freeMem applicationId' - return result' - - diff --git a/GI/Gio/Objects/Application.hs-boot b/GI/Gio/Objects/Application.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/Application.hs-boot +++ /dev/null @@ -1,58 +0,0 @@ -module GI.Gio.Objects.Application where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Application = Application (ForeignPtr Application) -instance GObject Application where -class GObject o => ApplicationK o -instance (GObject o, IsDescendantOf Application o) => ApplicationK o -data ApplicationActionGroupPropertyInfo -data ApplicationApplicationIdPropertyInfo -data ApplicationFlagsPropertyInfo -data ApplicationInactivityTimeoutPropertyInfo -data ApplicationIsBusyPropertyInfo -data ApplicationIsRegisteredPropertyInfo -data ApplicationIsRemotePropertyInfo -data ApplicationResourceBasePathPropertyInfo -data ApplicationActivateSignalInfo -data ApplicationCommandLineSignalInfo -data ApplicationHandleLocalOptionsSignalInfo -data ApplicationOpenSignalInfo -data ApplicationShutdownSignalInfo -data ApplicationStartupSignalInfo -data ApplicationActivateMethodInfo -data ApplicationAddMainOptionMethodInfo -data ApplicationAddMainOptionEntriesMethodInfo -data ApplicationAddOptionGroupMethodInfo -data ApplicationBindBusyPropertyMethodInfo -data ApplicationGetApplicationIdMethodInfo -data ApplicationGetDbusConnectionMethodInfo -data ApplicationGetDbusObjectPathMethodInfo -data ApplicationGetFlagsMethodInfo -data ApplicationGetInactivityTimeoutMethodInfo -data ApplicationGetIsBusyMethodInfo -data ApplicationGetIsRegisteredMethodInfo -data ApplicationGetIsRemoteMethodInfo -data ApplicationGetResourceBasePathMethodInfo -data ApplicationHoldMethodInfo -data ApplicationMarkBusyMethodInfo -data ApplicationOpenMethodInfo -data ApplicationQuitMethodInfo -data ApplicationRegisterMethodInfo -data ApplicationReleaseMethodInfo -data ApplicationRunMethodInfo -data ApplicationSendNotificationMethodInfo -data ApplicationSetActionGroupMethodInfo -data ApplicationSetApplicationIdMethodInfo -data ApplicationSetDefaultMethodInfo -data ApplicationSetFlagsMethodInfo -data ApplicationSetInactivityTimeoutMethodInfo -data ApplicationSetResourceBasePathMethodInfo -data ApplicationUnbindBusyPropertyMethodInfo -data ApplicationUnmarkBusyMethodInfo -data ApplicationWithdrawNotificationMethodInfo diff --git a/GI/Gio/Objects/ApplicationCommandLine.hs b/GI/Gio/Objects/ApplicationCommandLine.hs deleted file mode 100644 --- a/GI/Gio/Objects/ApplicationCommandLine.hs +++ /dev/null @@ -1,612 +0,0 @@ - - -{- | -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.Objects.ApplicationCommandLine - ( - --- * Exported types - ApplicationCommandLine(..) , - ApplicationCommandLineK , - toApplicationCommandLine , - noApplicationCommandLine , - - - -- * Methods --- ** applicationCommandLineCreateFileForArg - ApplicationCommandLineCreateFileForArgMethodInfo, - applicationCommandLineCreateFileForArg , - - --- ** applicationCommandLineGetArguments - ApplicationCommandLineGetArgumentsMethodInfo, - applicationCommandLineGetArguments , - - --- ** applicationCommandLineGetCwd - ApplicationCommandLineGetCwdMethodInfo , - applicationCommandLineGetCwd , - - --- ** applicationCommandLineGetEnviron - ApplicationCommandLineGetEnvironMethodInfo, - applicationCommandLineGetEnviron , - - --- ** applicationCommandLineGetExitStatus - ApplicationCommandLineGetExitStatusMethodInfo, - applicationCommandLineGetExitStatus , - - --- ** applicationCommandLineGetIsRemote - ApplicationCommandLineGetIsRemoteMethodInfo, - applicationCommandLineGetIsRemote , - - --- ** applicationCommandLineGetOptionsDict - ApplicationCommandLineGetOptionsDictMethodInfo, - applicationCommandLineGetOptionsDict , - - --- ** applicationCommandLineGetPlatformData - ApplicationCommandLineGetPlatformDataMethodInfo, - applicationCommandLineGetPlatformData , - - --- ** applicationCommandLineGetStdin - ApplicationCommandLineGetStdinMethodInfo, - applicationCommandLineGetStdin , - - --- ** applicationCommandLineGetenv - ApplicationCommandLineGetenvMethodInfo , - applicationCommandLineGetenv , - - --- ** applicationCommandLineSetExitStatus - ApplicationCommandLineSetExitStatusMethodInfo, - applicationCommandLineSetExitStatus , - - - - - -- * Properties --- ** Arguments - ApplicationCommandLineArgumentsPropertyInfo, - applicationCommandLineArguments , - constructApplicationCommandLineArguments, - - --- ** IsRemote - ApplicationCommandLineIsRemotePropertyInfo, - applicationCommandLineIsRemote , - getApplicationCommandLineIsRemote , - - --- ** Options - ApplicationCommandLineOptionsPropertyInfo, - applicationCommandLineOptions , - constructApplicationCommandLineOptions , - - --- ** PlatformData - ApplicationCommandLinePlatformDataPropertyInfo, - applicationCommandLinePlatformData , - constructApplicationCommandLinePlatformData, - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ApplicationCommandLine = ApplicationCommandLine (ForeignPtr ApplicationCommandLine) -foreign import ccall "g_application_command_line_get_type" - c_g_application_command_line_get_type :: IO GType - -type instance ParentTypes ApplicationCommandLine = ApplicationCommandLineParentTypes -type ApplicationCommandLineParentTypes = '[GObject.Object] - -instance GObject ApplicationCommandLine where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_application_command_line_get_type - - -class GObject o => ApplicationCommandLineK o -instance (GObject o, IsDescendantOf ApplicationCommandLine o) => ApplicationCommandLineK o - -toApplicationCommandLine :: ApplicationCommandLineK o => o -> IO ApplicationCommandLine -toApplicationCommandLine = unsafeCastTo ApplicationCommandLine - -noApplicationCommandLine :: Maybe ApplicationCommandLine -noApplicationCommandLine = Nothing - -type family ResolveApplicationCommandLineMethod (t :: Symbol) (o :: *) :: * where - ResolveApplicationCommandLineMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveApplicationCommandLineMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveApplicationCommandLineMethod "createFileForArg" o = ApplicationCommandLineCreateFileForArgMethodInfo - ResolveApplicationCommandLineMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveApplicationCommandLineMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveApplicationCommandLineMethod "getenv" o = ApplicationCommandLineGetenvMethodInfo - ResolveApplicationCommandLineMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveApplicationCommandLineMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveApplicationCommandLineMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveApplicationCommandLineMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveApplicationCommandLineMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveApplicationCommandLineMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveApplicationCommandLineMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveApplicationCommandLineMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveApplicationCommandLineMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveApplicationCommandLineMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveApplicationCommandLineMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveApplicationCommandLineMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveApplicationCommandLineMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveApplicationCommandLineMethod "getArguments" o = ApplicationCommandLineGetArgumentsMethodInfo - ResolveApplicationCommandLineMethod "getCwd" o = ApplicationCommandLineGetCwdMethodInfo - ResolveApplicationCommandLineMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveApplicationCommandLineMethod "getEnviron" o = ApplicationCommandLineGetEnvironMethodInfo - ResolveApplicationCommandLineMethod "getExitStatus" o = ApplicationCommandLineGetExitStatusMethodInfo - ResolveApplicationCommandLineMethod "getIsRemote" o = ApplicationCommandLineGetIsRemoteMethodInfo - ResolveApplicationCommandLineMethod "getOptionsDict" o = ApplicationCommandLineGetOptionsDictMethodInfo - ResolveApplicationCommandLineMethod "getPlatformData" o = ApplicationCommandLineGetPlatformDataMethodInfo - ResolveApplicationCommandLineMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveApplicationCommandLineMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveApplicationCommandLineMethod "getStdin" o = ApplicationCommandLineGetStdinMethodInfo - ResolveApplicationCommandLineMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveApplicationCommandLineMethod "setExitStatus" o = ApplicationCommandLineSetExitStatusMethodInfo - ResolveApplicationCommandLineMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveApplicationCommandLineMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveApplicationCommandLineMethod t ApplicationCommandLine, MethodInfo info ApplicationCommandLine p) => IsLabelProxy t (ApplicationCommandLine -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveApplicationCommandLineMethod t ApplicationCommandLine, MethodInfo info ApplicationCommandLine p) => IsLabel t (ApplicationCommandLine -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "arguments" - -- Type: TVariant - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructApplicationCommandLineArguments :: GVariant -> IO ([Char], GValue) -constructApplicationCommandLineArguments val = constructObjectPropertyVariant "arguments" (Just val) - -data ApplicationCommandLineArgumentsPropertyInfo -instance AttrInfo ApplicationCommandLineArgumentsPropertyInfo where - type AttrAllowedOps ApplicationCommandLineArgumentsPropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint ApplicationCommandLineArgumentsPropertyInfo = (~) GVariant - type AttrBaseTypeConstraint ApplicationCommandLineArgumentsPropertyInfo = ApplicationCommandLineK - type AttrGetType ApplicationCommandLineArgumentsPropertyInfo = () - type AttrLabel ApplicationCommandLineArgumentsPropertyInfo = "arguments" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructApplicationCommandLineArguments - attrClear _ = undefined - --- VVV Prop "is-remote" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getApplicationCommandLineIsRemote :: (MonadIO m, ApplicationCommandLineK o) => o -> m Bool -getApplicationCommandLineIsRemote obj = liftIO $ getObjectPropertyBool obj "is-remote" - -data ApplicationCommandLineIsRemotePropertyInfo -instance AttrInfo ApplicationCommandLineIsRemotePropertyInfo where - type AttrAllowedOps ApplicationCommandLineIsRemotePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint ApplicationCommandLineIsRemotePropertyInfo = (~) () - type AttrBaseTypeConstraint ApplicationCommandLineIsRemotePropertyInfo = ApplicationCommandLineK - type AttrGetType ApplicationCommandLineIsRemotePropertyInfo = Bool - type AttrLabel ApplicationCommandLineIsRemotePropertyInfo = "is-remote" - attrGet _ = getApplicationCommandLineIsRemote - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "options" - -- Type: TVariant - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructApplicationCommandLineOptions :: GVariant -> IO ([Char], GValue) -constructApplicationCommandLineOptions val = constructObjectPropertyVariant "options" (Just val) - -data ApplicationCommandLineOptionsPropertyInfo -instance AttrInfo ApplicationCommandLineOptionsPropertyInfo where - type AttrAllowedOps ApplicationCommandLineOptionsPropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint ApplicationCommandLineOptionsPropertyInfo = (~) GVariant - type AttrBaseTypeConstraint ApplicationCommandLineOptionsPropertyInfo = ApplicationCommandLineK - type AttrGetType ApplicationCommandLineOptionsPropertyInfo = () - type AttrLabel ApplicationCommandLineOptionsPropertyInfo = "options" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructApplicationCommandLineOptions - attrClear _ = undefined - --- VVV Prop "platform-data" - -- Type: TVariant - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructApplicationCommandLinePlatformData :: GVariant -> IO ([Char], GValue) -constructApplicationCommandLinePlatformData val = constructObjectPropertyVariant "platform-data" (Just val) - -data ApplicationCommandLinePlatformDataPropertyInfo -instance AttrInfo ApplicationCommandLinePlatformDataPropertyInfo where - type AttrAllowedOps ApplicationCommandLinePlatformDataPropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint ApplicationCommandLinePlatformDataPropertyInfo = (~) GVariant - type AttrBaseTypeConstraint ApplicationCommandLinePlatformDataPropertyInfo = ApplicationCommandLineK - type AttrGetType ApplicationCommandLinePlatformDataPropertyInfo = () - type AttrLabel ApplicationCommandLinePlatformDataPropertyInfo = "platform-data" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructApplicationCommandLinePlatformData - attrClear _ = undefined - -type instance AttributeList ApplicationCommandLine = ApplicationCommandLineAttributeList -type ApplicationCommandLineAttributeList = ('[ '("arguments", ApplicationCommandLineArgumentsPropertyInfo), '("isRemote", ApplicationCommandLineIsRemotePropertyInfo), '("options", ApplicationCommandLineOptionsPropertyInfo), '("platformData", ApplicationCommandLinePlatformDataPropertyInfo)] :: [(Symbol, *)]) - -applicationCommandLineArguments :: AttrLabelProxy "arguments" -applicationCommandLineArguments = AttrLabelProxy - -applicationCommandLineIsRemote :: AttrLabelProxy "isRemote" -applicationCommandLineIsRemote = AttrLabelProxy - -applicationCommandLineOptions :: AttrLabelProxy "options" -applicationCommandLineOptions = AttrLabelProxy - -applicationCommandLinePlatformData :: AttrLabelProxy "platformData" -applicationCommandLinePlatformData = AttrLabelProxy - -type instance SignalList ApplicationCommandLine = ApplicationCommandLineSignalList -type ApplicationCommandLineSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ApplicationCommandLine::create_file_for_arg --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_application_command_line_create_file_for_arg" g_application_command_line_create_file_for_arg :: - Ptr ApplicationCommandLine -> -- _obj : TInterface "Gio" "ApplicationCommandLine" - CString -> -- arg : TBasicType TUTF8 - IO (Ptr File) - - -applicationCommandLineCreateFileForArg :: - (MonadIO m, ApplicationCommandLineK a) => - a -- _obj - -> T.Text -- arg - -> m File -- result -applicationCommandLineCreateFileForArg _obj arg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - arg' <- textToCString arg - result <- g_application_command_line_create_file_for_arg _obj' arg' - checkUnexpectedReturnNULL "g_application_command_line_create_file_for_arg" result - result' <- (wrapObject File) result - touchManagedPtr _obj - freeMem arg' - return result' - -data ApplicationCommandLineCreateFileForArgMethodInfo -instance (signature ~ (T.Text -> m File), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineCreateFileForArgMethodInfo a signature where - overloadedMethod _ = applicationCommandLineCreateFileForArg - --- method ApplicationCommandLine::get_arguments --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_application_command_line_get_arguments" g_application_command_line_get_arguments :: - Ptr ApplicationCommandLine -> -- _obj : TInterface "Gio" "ApplicationCommandLine" - Ptr Int32 -> -- argc : TBasicType TInt - IO (Ptr CString) - - -applicationCommandLineGetArguments :: - (MonadIO m, ApplicationCommandLineK a) => - a -- _obj - -> m [T.Text] -- result -applicationCommandLineGetArguments _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - argc <- allocMem :: IO (Ptr Int32) - result <- g_application_command_line_get_arguments _obj' argc - argc' <- peek argc - checkUnexpectedReturnNULL "g_application_command_line_get_arguments" result - result' <- (unpackUTF8CArrayWithLength argc') result - (mapCArrayWithLength argc') freeMem result - freeMem result - touchManagedPtr _obj - freeMem argc - return result' - -data ApplicationCommandLineGetArgumentsMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetArgumentsMethodInfo a signature where - overloadedMethod _ = applicationCommandLineGetArguments - --- method ApplicationCommandLine::get_cwd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_application_command_line_get_cwd" g_application_command_line_get_cwd :: - Ptr ApplicationCommandLine -> -- _obj : TInterface "Gio" "ApplicationCommandLine" - IO CString - - -applicationCommandLineGetCwd :: - (MonadIO m, ApplicationCommandLineK a) => - a -- _obj - -> m T.Text -- result -applicationCommandLineGetCwd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_command_line_get_cwd _obj' - checkUnexpectedReturnNULL "g_application_command_line_get_cwd" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ApplicationCommandLineGetCwdMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetCwdMethodInfo a signature where - overloadedMethod _ = applicationCommandLineGetCwd - --- method ApplicationCommandLine::get_environ --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_application_command_line_get_environ" g_application_command_line_get_environ :: - Ptr ApplicationCommandLine -> -- _obj : TInterface "Gio" "ApplicationCommandLine" - IO (Ptr CString) - - -applicationCommandLineGetEnviron :: - (MonadIO m, ApplicationCommandLineK a) => - a -- _obj - -> m [T.Text] -- result -applicationCommandLineGetEnviron _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_command_line_get_environ _obj' - checkUnexpectedReturnNULL "g_application_command_line_get_environ" result - result' <- unpackZeroTerminatedUTF8CArray result - touchManagedPtr _obj - return result' - -data ApplicationCommandLineGetEnvironMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetEnvironMethodInfo a signature where - overloadedMethod _ = applicationCommandLineGetEnviron - --- method ApplicationCommandLine::get_exit_status --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_application_command_line_get_exit_status" g_application_command_line_get_exit_status :: - Ptr ApplicationCommandLine -> -- _obj : TInterface "Gio" "ApplicationCommandLine" - IO Int32 - - -applicationCommandLineGetExitStatus :: - (MonadIO m, ApplicationCommandLineK a) => - a -- _obj - -> m Int32 -- result -applicationCommandLineGetExitStatus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_command_line_get_exit_status _obj' - touchManagedPtr _obj - return result - -data ApplicationCommandLineGetExitStatusMethodInfo -instance (signature ~ (m Int32), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetExitStatusMethodInfo a signature where - overloadedMethod _ = applicationCommandLineGetExitStatus - --- method ApplicationCommandLine::get_is_remote --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_application_command_line_get_is_remote" g_application_command_line_get_is_remote :: - Ptr ApplicationCommandLine -> -- _obj : TInterface "Gio" "ApplicationCommandLine" - IO CInt - - -applicationCommandLineGetIsRemote :: - (MonadIO m, ApplicationCommandLineK a) => - a -- _obj - -> m Bool -- result -applicationCommandLineGetIsRemote _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_command_line_get_is_remote _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ApplicationCommandLineGetIsRemoteMethodInfo -instance (signature ~ (m Bool), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetIsRemoteMethodInfo a signature where - overloadedMethod _ = applicationCommandLineGetIsRemote - --- method ApplicationCommandLine::get_options_dict --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantDict") --- throws : False --- Skip return : False - -foreign import ccall "g_application_command_line_get_options_dict" g_application_command_line_get_options_dict :: - Ptr ApplicationCommandLine -> -- _obj : TInterface "Gio" "ApplicationCommandLine" - IO (Ptr GLib.VariantDict) - - -applicationCommandLineGetOptionsDict :: - (MonadIO m, ApplicationCommandLineK a) => - a -- _obj - -> m GLib.VariantDict -- result -applicationCommandLineGetOptionsDict _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_command_line_get_options_dict _obj' - checkUnexpectedReturnNULL "g_application_command_line_get_options_dict" result - result' <- (newBoxed GLib.VariantDict) result - touchManagedPtr _obj - return result' - -data ApplicationCommandLineGetOptionsDictMethodInfo -instance (signature ~ (m GLib.VariantDict), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetOptionsDictMethodInfo a signature where - overloadedMethod _ = applicationCommandLineGetOptionsDict - --- method ApplicationCommandLine::get_platform_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_application_command_line_get_platform_data" g_application_command_line_get_platform_data :: - Ptr ApplicationCommandLine -> -- _obj : TInterface "Gio" "ApplicationCommandLine" - IO (Ptr GVariant) - - -applicationCommandLineGetPlatformData :: - (MonadIO m, ApplicationCommandLineK a) => - a -- _obj - -> m (Maybe GVariant) -- result -applicationCommandLineGetPlatformData _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_command_line_get_platform_data _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- wrapGVariantPtr result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ApplicationCommandLineGetPlatformDataMethodInfo -instance (signature ~ (m (Maybe GVariant)), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetPlatformDataMethodInfo a signature where - overloadedMethod _ = applicationCommandLineGetPlatformData - --- method ApplicationCommandLine::get_stdin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_application_command_line_get_stdin" g_application_command_line_get_stdin :: - Ptr ApplicationCommandLine -> -- _obj : TInterface "Gio" "ApplicationCommandLine" - IO (Ptr InputStream) - - -applicationCommandLineGetStdin :: - (MonadIO m, ApplicationCommandLineK a) => - a -- _obj - -> m InputStream -- result -applicationCommandLineGetStdin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_application_command_line_get_stdin _obj' - checkUnexpectedReturnNULL "g_application_command_line_get_stdin" result - result' <- (wrapObject InputStream) result - touchManagedPtr _obj - return result' - -data ApplicationCommandLineGetStdinMethodInfo -instance (signature ~ (m InputStream), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetStdinMethodInfo a signature where - overloadedMethod _ = applicationCommandLineGetStdin - --- method ApplicationCommandLine::getenv --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", 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}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_application_command_line_getenv" g_application_command_line_getenv :: - Ptr ApplicationCommandLine -> -- _obj : TInterface "Gio" "ApplicationCommandLine" - CString -> -- name : TBasicType TUTF8 - IO CString - - -applicationCommandLineGetenv :: - (MonadIO m, ApplicationCommandLineK a) => - a -- _obj - -> T.Text -- name - -> m T.Text -- result -applicationCommandLineGetenv _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - result <- g_application_command_line_getenv _obj' name' - checkUnexpectedReturnNULL "g_application_command_line_getenv" result - result' <- cstringToText result - touchManagedPtr _obj - freeMem name' - return result' - -data ApplicationCommandLineGetenvMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineGetenvMethodInfo a signature where - overloadedMethod _ = applicationCommandLineGetenv - --- method ApplicationCommandLine::set_exit_status --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ApplicationCommandLine", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exit_status", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_application_command_line_set_exit_status" g_application_command_line_set_exit_status :: - Ptr ApplicationCommandLine -> -- _obj : TInterface "Gio" "ApplicationCommandLine" - Int32 -> -- exit_status : TBasicType TInt - IO () - - -applicationCommandLineSetExitStatus :: - (MonadIO m, ApplicationCommandLineK a) => - a -- _obj - -> Int32 -- exitStatus - -> m () -- result -applicationCommandLineSetExitStatus _obj exitStatus = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_application_command_line_set_exit_status _obj' exitStatus - touchManagedPtr _obj - return () - -data ApplicationCommandLineSetExitStatusMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, ApplicationCommandLineK a) => MethodInfo ApplicationCommandLineSetExitStatusMethodInfo a signature where - overloadedMethod _ = applicationCommandLineSetExitStatus - - diff --git a/GI/Gio/Objects/ApplicationCommandLine.hs-boot b/GI/Gio/Objects/ApplicationCommandLine.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/ApplicationCommandLine.hs-boot +++ /dev/null @@ -1,28 +0,0 @@ -module GI.Gio.Objects.ApplicationCommandLine where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ApplicationCommandLine = ApplicationCommandLine (ForeignPtr ApplicationCommandLine) -instance GObject ApplicationCommandLine where -class GObject o => ApplicationCommandLineK o -instance (GObject o, IsDescendantOf ApplicationCommandLine o) => ApplicationCommandLineK o -data ApplicationCommandLineArgumentsPropertyInfo -data ApplicationCommandLineIsRemotePropertyInfo -data ApplicationCommandLineOptionsPropertyInfo -data ApplicationCommandLinePlatformDataPropertyInfo -data ApplicationCommandLineCreateFileForArgMethodInfo -data ApplicationCommandLineGetArgumentsMethodInfo -data ApplicationCommandLineGetCwdMethodInfo -data ApplicationCommandLineGetEnvironMethodInfo -data ApplicationCommandLineGetExitStatusMethodInfo -data ApplicationCommandLineGetIsRemoteMethodInfo -data ApplicationCommandLineGetOptionsDictMethodInfo -data ApplicationCommandLineGetPlatformDataMethodInfo -data ApplicationCommandLineGetStdinMethodInfo -data ApplicationCommandLineGetenvMethodInfo -data ApplicationCommandLineSetExitStatusMethodInfo diff --git a/GI/Gio/Objects/BufferedInputStream.hs b/GI/Gio/Objects/BufferedInputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/BufferedInputStream.hs +++ /dev/null @@ -1,595 +0,0 @@ - - -{- | -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.Objects.BufferedInputStream - ( - --- * Exported types - BufferedInputStream(..) , - BufferedInputStreamK , - toBufferedInputStream , - noBufferedInputStream , - - - -- * Methods --- ** bufferedInputStreamFill - BufferedInputStreamFillMethodInfo , - bufferedInputStreamFill , - - --- ** bufferedInputStreamFillAsync - BufferedInputStreamFillAsyncMethodInfo , - bufferedInputStreamFillAsync , - - --- ** bufferedInputStreamFillFinish - BufferedInputStreamFillFinishMethodInfo , - bufferedInputStreamFillFinish , - - --- ** bufferedInputStreamGetAvailable - BufferedInputStreamGetAvailableMethodInfo, - bufferedInputStreamGetAvailable , - - --- ** bufferedInputStreamGetBufferSize - BufferedInputStreamGetBufferSizeMethodInfo, - bufferedInputStreamGetBufferSize , - - --- ** bufferedInputStreamNew - bufferedInputStreamNew , - - --- ** bufferedInputStreamNewSized - bufferedInputStreamNewSized , - - --- ** bufferedInputStreamPeek - BufferedInputStreamPeekMethodInfo , - bufferedInputStreamPeek , - - --- ** bufferedInputStreamPeekBuffer - BufferedInputStreamPeekBufferMethodInfo , - bufferedInputStreamPeekBuffer , - - --- ** bufferedInputStreamReadByte - BufferedInputStreamReadByteMethodInfo , - bufferedInputStreamReadByte , - - --- ** bufferedInputStreamSetBufferSize - BufferedInputStreamSetBufferSizeMethodInfo, - bufferedInputStreamSetBufferSize , - - - - - -- * Properties --- ** BufferSize - BufferedInputStreamBufferSizePropertyInfo, - bufferedInputStreamBufferSize , - constructBufferedInputStreamBufferSize , - getBufferedInputStreamBufferSize , - setBufferedInputStreamBufferSize , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype BufferedInputStream = BufferedInputStream (ForeignPtr BufferedInputStream) -foreign import ccall "g_buffered_input_stream_get_type" - c_g_buffered_input_stream_get_type :: IO GType - -type instance ParentTypes BufferedInputStream = BufferedInputStreamParentTypes -type BufferedInputStreamParentTypes = '[FilterInputStream, InputStream, GObject.Object, Seekable] - -instance GObject BufferedInputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_buffered_input_stream_get_type - - -class GObject o => BufferedInputStreamK o -instance (GObject o, IsDescendantOf BufferedInputStream o) => BufferedInputStreamK o - -toBufferedInputStream :: BufferedInputStreamK o => o -> IO BufferedInputStream -toBufferedInputStream = unsafeCastTo BufferedInputStream - -noBufferedInputStream :: Maybe BufferedInputStream -noBufferedInputStream = Nothing - -type family ResolveBufferedInputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveBufferedInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveBufferedInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveBufferedInputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo - ResolveBufferedInputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo - ResolveBufferedInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo - ResolveBufferedInputStreamMethod "close" o = InputStreamCloseMethodInfo - ResolveBufferedInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo - ResolveBufferedInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo - ResolveBufferedInputStreamMethod "fill" o = BufferedInputStreamFillMethodInfo - ResolveBufferedInputStreamMethod "fillAsync" o = BufferedInputStreamFillAsyncMethodInfo - ResolveBufferedInputStreamMethod "fillFinish" o = BufferedInputStreamFillFinishMethodInfo - ResolveBufferedInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveBufferedInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveBufferedInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo - ResolveBufferedInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo - ResolveBufferedInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveBufferedInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveBufferedInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveBufferedInputStreamMethod "peek" o = BufferedInputStreamPeekMethodInfo - ResolveBufferedInputStreamMethod "peekBuffer" o = BufferedInputStreamPeekBufferMethodInfo - ResolveBufferedInputStreamMethod "read" o = InputStreamReadMethodInfo - ResolveBufferedInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo - ResolveBufferedInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo - ResolveBufferedInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo - ResolveBufferedInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo - ResolveBufferedInputStreamMethod "readByte" o = BufferedInputStreamReadByteMethodInfo - ResolveBufferedInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo - ResolveBufferedInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo - ResolveBufferedInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo - ResolveBufferedInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo - ResolveBufferedInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveBufferedInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveBufferedInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveBufferedInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveBufferedInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveBufferedInputStreamMethod "seek" o = SeekableSeekMethodInfo - ResolveBufferedInputStreamMethod "skip" o = InputStreamSkipMethodInfo - ResolveBufferedInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo - ResolveBufferedInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo - ResolveBufferedInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveBufferedInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveBufferedInputStreamMethod "tell" o = SeekableTellMethodInfo - ResolveBufferedInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveBufferedInputStreamMethod "truncate" o = SeekableTruncateMethodInfo - ResolveBufferedInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveBufferedInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveBufferedInputStreamMethod "getAvailable" o = BufferedInputStreamGetAvailableMethodInfo - ResolveBufferedInputStreamMethod "getBaseStream" o = FilterInputStreamGetBaseStreamMethodInfo - ResolveBufferedInputStreamMethod "getBufferSize" o = BufferedInputStreamGetBufferSizeMethodInfo - ResolveBufferedInputStreamMethod "getCloseBaseStream" o = FilterInputStreamGetCloseBaseStreamMethodInfo - ResolveBufferedInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveBufferedInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveBufferedInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveBufferedInputStreamMethod "setBufferSize" o = BufferedInputStreamSetBufferSizeMethodInfo - ResolveBufferedInputStreamMethod "setCloseBaseStream" o = FilterInputStreamSetCloseBaseStreamMethodInfo - ResolveBufferedInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveBufferedInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo - ResolveBufferedInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveBufferedInputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBufferedInputStreamMethod t BufferedInputStream, MethodInfo info BufferedInputStream p) => IsLabelProxy t (BufferedInputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBufferedInputStreamMethod t BufferedInputStream, MethodInfo info BufferedInputStream p) => IsLabel t (BufferedInputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "buffer-size" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getBufferedInputStreamBufferSize :: (MonadIO m, BufferedInputStreamK o) => o -> m Word32 -getBufferedInputStreamBufferSize obj = liftIO $ getObjectPropertyUInt32 obj "buffer-size" - -setBufferedInputStreamBufferSize :: (MonadIO m, BufferedInputStreamK o) => o -> Word32 -> m () -setBufferedInputStreamBufferSize obj val = liftIO $ setObjectPropertyUInt32 obj "buffer-size" val - -constructBufferedInputStreamBufferSize :: Word32 -> IO ([Char], GValue) -constructBufferedInputStreamBufferSize val = constructObjectPropertyUInt32 "buffer-size" val - -data BufferedInputStreamBufferSizePropertyInfo -instance AttrInfo BufferedInputStreamBufferSizePropertyInfo where - type AttrAllowedOps BufferedInputStreamBufferSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint BufferedInputStreamBufferSizePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint BufferedInputStreamBufferSizePropertyInfo = BufferedInputStreamK - type AttrGetType BufferedInputStreamBufferSizePropertyInfo = Word32 - type AttrLabel BufferedInputStreamBufferSizePropertyInfo = "buffer-size" - attrGet _ = getBufferedInputStreamBufferSize - attrSet _ = setBufferedInputStreamBufferSize - attrConstruct _ = constructBufferedInputStreamBufferSize - attrClear _ = undefined - -type instance AttributeList BufferedInputStream = BufferedInputStreamAttributeList -type BufferedInputStreamAttributeList = ('[ '("baseStream", FilterInputStreamBaseStreamPropertyInfo), '("bufferSize", BufferedInputStreamBufferSizePropertyInfo), '("closeBaseStream", FilterInputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)]) - -bufferedInputStreamBufferSize :: AttrLabelProxy "bufferSize" -bufferedInputStreamBufferSize = AttrLabelProxy - -type instance SignalList BufferedInputStream = BufferedInputStreamSignalList -type BufferedInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method BufferedInputStream::new --- method type : Constructor --- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "BufferedInputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_buffered_input_stream_new" g_buffered_input_stream_new :: - Ptr InputStream -> -- base_stream : TInterface "Gio" "InputStream" - IO (Ptr BufferedInputStream) - - -bufferedInputStreamNew :: - (MonadIO m, InputStreamK a) => - a -- baseStream - -> m BufferedInputStream -- result -bufferedInputStreamNew baseStream = liftIO $ do - let baseStream' = unsafeManagedPtrCastPtr baseStream - result <- g_buffered_input_stream_new baseStream' - checkUnexpectedReturnNULL "g_buffered_input_stream_new" result - result' <- (wrapObject BufferedInputStream) result - touchManagedPtr baseStream - return result' - --- method BufferedInputStream::new_sized --- method type : Constructor --- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "BufferedInputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_buffered_input_stream_new_sized" g_buffered_input_stream_new_sized :: - Ptr InputStream -> -- base_stream : TInterface "Gio" "InputStream" - Word64 -> -- size : TBasicType TUInt64 - IO (Ptr BufferedInputStream) - - -bufferedInputStreamNewSized :: - (MonadIO m, InputStreamK a) => - a -- baseStream - -> Word64 -- size - -> m BufferedInputStream -- result -bufferedInputStreamNewSized baseStream size = liftIO $ do - let baseStream' = unsafeManagedPtrCastPtr baseStream - result <- g_buffered_input_stream_new_sized baseStream' size - checkUnexpectedReturnNULL "g_buffered_input_stream_new_sized" result - result' <- (wrapObject BufferedInputStream) result - touchManagedPtr baseStream - return result' - --- method BufferedInputStream::fill --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt64, 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 : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_buffered_input_stream_fill" g_buffered_input_stream_fill :: - Ptr BufferedInputStream -> -- _obj : TInterface "Gio" "BufferedInputStream" - Int64 -> -- count : TBasicType TInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -bufferedInputStreamFill :: - (MonadIO m, BufferedInputStreamK a, CancellableK b) => - a -- _obj - -> Int64 -- count - -> Maybe (b) -- cancellable - -> m Int64 -- result -bufferedInputStreamFill _obj count cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_buffered_input_stream_fill _obj' count maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result - ) (do - return () - ) - -data BufferedInputStreamFillMethodInfo -instance (signature ~ (Int64 -> Maybe (b) -> m Int64), MonadIO m, BufferedInputStreamK a, CancellableK b) => MethodInfo BufferedInputStreamFillMethodInfo a signature where - overloadedMethod _ = bufferedInputStreamFill - --- method BufferedInputStream::fill_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_buffered_input_stream_fill_async" g_buffered_input_stream_fill_async :: - Ptr BufferedInputStream -> -- _obj : TInterface "Gio" "BufferedInputStream" - Int64 -> -- count : TBasicType TInt64 - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -bufferedInputStreamFillAsync :: - (MonadIO m, BufferedInputStreamK a, CancellableK b) => - a -- _obj - -> Int64 -- count - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -bufferedInputStreamFillAsync _obj count ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_buffered_input_stream_fill_async _obj' count ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data BufferedInputStreamFillAsyncMethodInfo -instance (signature ~ (Int64 -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, BufferedInputStreamK a, CancellableK b) => MethodInfo BufferedInputStreamFillAsyncMethodInfo a signature where - overloadedMethod _ = bufferedInputStreamFillAsync - --- method BufferedInputStream::fill_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_buffered_input_stream_fill_finish" g_buffered_input_stream_fill_finish :: - Ptr BufferedInputStream -> -- _obj : TInterface "Gio" "BufferedInputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO Int64 - - -bufferedInputStreamFillFinish :: - (MonadIO m, BufferedInputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m Int64 -- result -bufferedInputStreamFillFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_buffered_input_stream_fill_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return result - ) (do - return () - ) - -data BufferedInputStreamFillFinishMethodInfo -instance (signature ~ (b -> m Int64), MonadIO m, BufferedInputStreamK a, AsyncResultK b) => MethodInfo BufferedInputStreamFillFinishMethodInfo a signature where - overloadedMethod _ = bufferedInputStreamFillFinish - --- method BufferedInputStream::get_available --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_buffered_input_stream_get_available" g_buffered_input_stream_get_available :: - Ptr BufferedInputStream -> -- _obj : TInterface "Gio" "BufferedInputStream" - IO Word64 - - -bufferedInputStreamGetAvailable :: - (MonadIO m, BufferedInputStreamK a) => - a -- _obj - -> m Word64 -- result -bufferedInputStreamGetAvailable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_buffered_input_stream_get_available _obj' - touchManagedPtr _obj - return result - -data BufferedInputStreamGetAvailableMethodInfo -instance (signature ~ (m Word64), MonadIO m, BufferedInputStreamK a) => MethodInfo BufferedInputStreamGetAvailableMethodInfo a signature where - overloadedMethod _ = bufferedInputStreamGetAvailable - --- method BufferedInputStream::get_buffer_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_buffered_input_stream_get_buffer_size" g_buffered_input_stream_get_buffer_size :: - Ptr BufferedInputStream -> -- _obj : TInterface "Gio" "BufferedInputStream" - IO Word64 - - -bufferedInputStreamGetBufferSize :: - (MonadIO m, BufferedInputStreamK a) => - a -- _obj - -> m Word64 -- result -bufferedInputStreamGetBufferSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_buffered_input_stream_get_buffer_size _obj' - touchManagedPtr _obj - return result - -data BufferedInputStreamGetBufferSizeMethodInfo -instance (signature ~ (m Word64), MonadIO m, BufferedInputStreamK a) => MethodInfo BufferedInputStreamGetBufferSizeMethodInfo a signature where - overloadedMethod _ = bufferedInputStreamGetBufferSize - --- method BufferedInputStream::peek --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, 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}] --- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_buffered_input_stream_peek" g_buffered_input_stream_peek :: - Ptr BufferedInputStream -> -- _obj : TInterface "Gio" "BufferedInputStream" - Ptr Word8 -> -- buffer : TCArray False (-1) 3 (TBasicType TUInt8) - Word64 -> -- offset : TBasicType TUInt64 - Word64 -> -- count : TBasicType TUInt64 - IO Word64 - - -bufferedInputStreamPeek :: - (MonadIO m, BufferedInputStreamK a) => - a -- _obj - -> ByteString -- buffer - -> Word64 -- offset - -> m Word64 -- result -bufferedInputStreamPeek _obj buffer offset = liftIO $ do - let count = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - result <- g_buffered_input_stream_peek _obj' buffer' offset count - touchManagedPtr _obj - freeMem buffer' - return result - -data BufferedInputStreamPeekMethodInfo -instance (signature ~ (ByteString -> Word64 -> m Word64), MonadIO m, BufferedInputStreamK a) => MethodInfo BufferedInputStreamPeekMethodInfo a signature where - overloadedMethod _ = bufferedInputStreamPeek - --- method BufferedInputStream::peek_buffer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "count", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TBasicType TUInt8)) --- throws : False --- Skip return : False - -foreign import ccall "g_buffered_input_stream_peek_buffer" g_buffered_input_stream_peek_buffer :: - Ptr BufferedInputStream -> -- _obj : TInterface "Gio" "BufferedInputStream" - Ptr Word64 -> -- count : TBasicType TUInt64 - IO (Ptr Word8) - - -bufferedInputStreamPeekBuffer :: - (MonadIO m, BufferedInputStreamK a) => - a -- _obj - -> m ByteString -- result -bufferedInputStreamPeekBuffer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - count <- allocMem :: IO (Ptr Word64) - result <- g_buffered_input_stream_peek_buffer _obj' count - count' <- peek count - checkUnexpectedReturnNULL "g_buffered_input_stream_peek_buffer" result - result' <- (unpackByteStringWithLength count') result - touchManagedPtr _obj - freeMem count - return result' - -data BufferedInputStreamPeekBufferMethodInfo -instance (signature ~ (m ByteString), MonadIO m, BufferedInputStreamK a) => MethodInfo BufferedInputStreamPeekBufferMethodInfo a signature where - overloadedMethod _ = bufferedInputStreamPeekBuffer - --- method BufferedInputStream::read_byte --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", 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 : Just (TBasicType TInt) --- throws : True --- Skip return : False - -foreign import ccall "g_buffered_input_stream_read_byte" g_buffered_input_stream_read_byte :: - Ptr BufferedInputStream -> -- _obj : TInterface "Gio" "BufferedInputStream" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int32 - - -bufferedInputStreamReadByte :: - (MonadIO m, BufferedInputStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m Int32 -- result -bufferedInputStreamReadByte _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_buffered_input_stream_read_byte _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result - ) (do - return () - ) - -data BufferedInputStreamReadByteMethodInfo -instance (signature ~ (Maybe (b) -> m Int32), MonadIO m, BufferedInputStreamK a, CancellableK b) => MethodInfo BufferedInputStreamReadByteMethodInfo a signature where - overloadedMethod _ = bufferedInputStreamReadByte - --- method BufferedInputStream::set_buffer_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_buffered_input_stream_set_buffer_size" g_buffered_input_stream_set_buffer_size :: - Ptr BufferedInputStream -> -- _obj : TInterface "Gio" "BufferedInputStream" - Word64 -> -- size : TBasicType TUInt64 - IO () - - -bufferedInputStreamSetBufferSize :: - (MonadIO m, BufferedInputStreamK a) => - a -- _obj - -> Word64 -- size - -> m () -- result -bufferedInputStreamSetBufferSize _obj size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_buffered_input_stream_set_buffer_size _obj' size - touchManagedPtr _obj - return () - -data BufferedInputStreamSetBufferSizeMethodInfo -instance (signature ~ (Word64 -> m ()), MonadIO m, BufferedInputStreamK a) => MethodInfo BufferedInputStreamSetBufferSizeMethodInfo a signature where - overloadedMethod _ = bufferedInputStreamSetBufferSize - - diff --git a/GI/Gio/Objects/BufferedInputStream.hs-boot b/GI/Gio/Objects/BufferedInputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/BufferedInputStream.hs-boot +++ /dev/null @@ -1,23 +0,0 @@ -module GI.Gio.Objects.BufferedInputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype BufferedInputStream = BufferedInputStream (ForeignPtr BufferedInputStream) -instance GObject BufferedInputStream where -class GObject o => BufferedInputStreamK o -instance (GObject o, IsDescendantOf BufferedInputStream o) => BufferedInputStreamK o -data BufferedInputStreamBufferSizePropertyInfo -data BufferedInputStreamFillMethodInfo -data BufferedInputStreamFillAsyncMethodInfo -data BufferedInputStreamFillFinishMethodInfo -data BufferedInputStreamGetAvailableMethodInfo -data BufferedInputStreamGetBufferSizeMethodInfo -data BufferedInputStreamPeekMethodInfo -data BufferedInputStreamPeekBufferMethodInfo -data BufferedInputStreamReadByteMethodInfo -data BufferedInputStreamSetBufferSizeMethodInfo diff --git a/GI/Gio/Objects/BufferedOutputStream.hs b/GI/Gio/Objects/BufferedOutputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/BufferedOutputStream.hs +++ /dev/null @@ -1,401 +0,0 @@ - - -{- | -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.Objects.BufferedOutputStream - ( - --- * Exported types - BufferedOutputStream(..) , - BufferedOutputStreamK , - toBufferedOutputStream , - noBufferedOutputStream , - - - -- * Methods --- ** bufferedOutputStreamGetAutoGrow - BufferedOutputStreamGetAutoGrowMethodInfo, - bufferedOutputStreamGetAutoGrow , - - --- ** bufferedOutputStreamGetBufferSize - BufferedOutputStreamGetBufferSizeMethodInfo, - bufferedOutputStreamGetBufferSize , - - --- ** bufferedOutputStreamNew - bufferedOutputStreamNew , - - --- ** bufferedOutputStreamNewSized - bufferedOutputStreamNewSized , - - --- ** bufferedOutputStreamSetAutoGrow - BufferedOutputStreamSetAutoGrowMethodInfo, - bufferedOutputStreamSetAutoGrow , - - --- ** bufferedOutputStreamSetBufferSize - BufferedOutputStreamSetBufferSizeMethodInfo, - bufferedOutputStreamSetBufferSize , - - - - - -- * Properties --- ** AutoGrow - BufferedOutputStreamAutoGrowPropertyInfo, - bufferedOutputStreamAutoGrow , - constructBufferedOutputStreamAutoGrow , - getBufferedOutputStreamAutoGrow , - setBufferedOutputStreamAutoGrow , - - --- ** BufferSize - BufferedOutputStreamBufferSizePropertyInfo, - bufferedOutputStreamBufferSize , - constructBufferedOutputStreamBufferSize , - getBufferedOutputStreamBufferSize , - setBufferedOutputStreamBufferSize , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype BufferedOutputStream = BufferedOutputStream (ForeignPtr BufferedOutputStream) -foreign import ccall "g_buffered_output_stream_get_type" - c_g_buffered_output_stream_get_type :: IO GType - -type instance ParentTypes BufferedOutputStream = BufferedOutputStreamParentTypes -type BufferedOutputStreamParentTypes = '[FilterOutputStream, OutputStream, GObject.Object, Seekable] - -instance GObject BufferedOutputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_buffered_output_stream_get_type - - -class GObject o => BufferedOutputStreamK o -instance (GObject o, IsDescendantOf BufferedOutputStream o) => BufferedOutputStreamK o - -toBufferedOutputStream :: BufferedOutputStreamK o => o -> IO BufferedOutputStream -toBufferedOutputStream = unsafeCastTo BufferedOutputStream - -noBufferedOutputStream :: Maybe BufferedOutputStream -noBufferedOutputStream = Nothing - -type family ResolveBufferedOutputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveBufferedOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveBufferedOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveBufferedOutputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo - ResolveBufferedOutputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo - ResolveBufferedOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo - ResolveBufferedOutputStreamMethod "close" o = OutputStreamCloseMethodInfo - ResolveBufferedOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo - ResolveBufferedOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo - ResolveBufferedOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo - ResolveBufferedOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo - ResolveBufferedOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo - ResolveBufferedOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveBufferedOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveBufferedOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo - ResolveBufferedOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo - ResolveBufferedOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo - ResolveBufferedOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveBufferedOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveBufferedOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveBufferedOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveBufferedOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveBufferedOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveBufferedOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveBufferedOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveBufferedOutputStreamMethod "seek" o = SeekableSeekMethodInfo - ResolveBufferedOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo - ResolveBufferedOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo - ResolveBufferedOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo - ResolveBufferedOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveBufferedOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveBufferedOutputStreamMethod "tell" o = SeekableTellMethodInfo - ResolveBufferedOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveBufferedOutputStreamMethod "truncate" o = SeekableTruncateMethodInfo - ResolveBufferedOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveBufferedOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveBufferedOutputStreamMethod "write" o = OutputStreamWriteMethodInfo - ResolveBufferedOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo - ResolveBufferedOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo - ResolveBufferedOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo - ResolveBufferedOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo - ResolveBufferedOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo - ResolveBufferedOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo - ResolveBufferedOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo - ResolveBufferedOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo - ResolveBufferedOutputStreamMethod "getAutoGrow" o = BufferedOutputStreamGetAutoGrowMethodInfo - ResolveBufferedOutputStreamMethod "getBaseStream" o = FilterOutputStreamGetBaseStreamMethodInfo - ResolveBufferedOutputStreamMethod "getBufferSize" o = BufferedOutputStreamGetBufferSizeMethodInfo - ResolveBufferedOutputStreamMethod "getCloseBaseStream" o = FilterOutputStreamGetCloseBaseStreamMethodInfo - ResolveBufferedOutputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveBufferedOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveBufferedOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveBufferedOutputStreamMethod "setAutoGrow" o = BufferedOutputStreamSetAutoGrowMethodInfo - ResolveBufferedOutputStreamMethod "setBufferSize" o = BufferedOutputStreamSetBufferSizeMethodInfo - ResolveBufferedOutputStreamMethod "setCloseBaseStream" o = FilterOutputStreamSetCloseBaseStreamMethodInfo - ResolveBufferedOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveBufferedOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo - ResolveBufferedOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveBufferedOutputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBufferedOutputStreamMethod t BufferedOutputStream, MethodInfo info BufferedOutputStream p) => IsLabelProxy t (BufferedOutputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBufferedOutputStreamMethod t BufferedOutputStream, MethodInfo info BufferedOutputStream p) => IsLabel t (BufferedOutputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "auto-grow" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getBufferedOutputStreamAutoGrow :: (MonadIO m, BufferedOutputStreamK o) => o -> m Bool -getBufferedOutputStreamAutoGrow obj = liftIO $ getObjectPropertyBool obj "auto-grow" - -setBufferedOutputStreamAutoGrow :: (MonadIO m, BufferedOutputStreamK o) => o -> Bool -> m () -setBufferedOutputStreamAutoGrow obj val = liftIO $ setObjectPropertyBool obj "auto-grow" val - -constructBufferedOutputStreamAutoGrow :: Bool -> IO ([Char], GValue) -constructBufferedOutputStreamAutoGrow val = constructObjectPropertyBool "auto-grow" val - -data BufferedOutputStreamAutoGrowPropertyInfo -instance AttrInfo BufferedOutputStreamAutoGrowPropertyInfo where - type AttrAllowedOps BufferedOutputStreamAutoGrowPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint BufferedOutputStreamAutoGrowPropertyInfo = (~) Bool - type AttrBaseTypeConstraint BufferedOutputStreamAutoGrowPropertyInfo = BufferedOutputStreamK - type AttrGetType BufferedOutputStreamAutoGrowPropertyInfo = Bool - type AttrLabel BufferedOutputStreamAutoGrowPropertyInfo = "auto-grow" - attrGet _ = getBufferedOutputStreamAutoGrow - attrSet _ = setBufferedOutputStreamAutoGrow - attrConstruct _ = constructBufferedOutputStreamAutoGrow - attrClear _ = undefined - --- VVV Prop "buffer-size" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getBufferedOutputStreamBufferSize :: (MonadIO m, BufferedOutputStreamK o) => o -> m Word32 -getBufferedOutputStreamBufferSize obj = liftIO $ getObjectPropertyUInt32 obj "buffer-size" - -setBufferedOutputStreamBufferSize :: (MonadIO m, BufferedOutputStreamK o) => o -> Word32 -> m () -setBufferedOutputStreamBufferSize obj val = liftIO $ setObjectPropertyUInt32 obj "buffer-size" val - -constructBufferedOutputStreamBufferSize :: Word32 -> IO ([Char], GValue) -constructBufferedOutputStreamBufferSize val = constructObjectPropertyUInt32 "buffer-size" val - -data BufferedOutputStreamBufferSizePropertyInfo -instance AttrInfo BufferedOutputStreamBufferSizePropertyInfo where - type AttrAllowedOps BufferedOutputStreamBufferSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint BufferedOutputStreamBufferSizePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint BufferedOutputStreamBufferSizePropertyInfo = BufferedOutputStreamK - type AttrGetType BufferedOutputStreamBufferSizePropertyInfo = Word32 - type AttrLabel BufferedOutputStreamBufferSizePropertyInfo = "buffer-size" - attrGet _ = getBufferedOutputStreamBufferSize - attrSet _ = setBufferedOutputStreamBufferSize - attrConstruct _ = constructBufferedOutputStreamBufferSize - attrClear _ = undefined - -type instance AttributeList BufferedOutputStream = BufferedOutputStreamAttributeList -type BufferedOutputStreamAttributeList = ('[ '("autoGrow", BufferedOutputStreamAutoGrowPropertyInfo), '("baseStream", FilterOutputStreamBaseStreamPropertyInfo), '("bufferSize", BufferedOutputStreamBufferSizePropertyInfo), '("closeBaseStream", FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)]) - -bufferedOutputStreamAutoGrow :: AttrLabelProxy "autoGrow" -bufferedOutputStreamAutoGrow = AttrLabelProxy - -bufferedOutputStreamBufferSize :: AttrLabelProxy "bufferSize" -bufferedOutputStreamBufferSize = AttrLabelProxy - -type instance SignalList BufferedOutputStream = BufferedOutputStreamSignalList -type BufferedOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method BufferedOutputStream::new --- method type : Constructor --- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "BufferedOutputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_buffered_output_stream_new" g_buffered_output_stream_new :: - Ptr OutputStream -> -- base_stream : TInterface "Gio" "OutputStream" - IO (Ptr BufferedOutputStream) - - -bufferedOutputStreamNew :: - (MonadIO m, OutputStreamK a) => - a -- baseStream - -> m BufferedOutputStream -- result -bufferedOutputStreamNew baseStream = liftIO $ do - let baseStream' = unsafeManagedPtrCastPtr baseStream - result <- g_buffered_output_stream_new baseStream' - checkUnexpectedReturnNULL "g_buffered_output_stream_new" result - result' <- (wrapObject BufferedOutputStream) result - touchManagedPtr baseStream - return result' - --- method BufferedOutputStream::new_sized --- method type : Constructor --- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "BufferedOutputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_buffered_output_stream_new_sized" g_buffered_output_stream_new_sized :: - Ptr OutputStream -> -- base_stream : TInterface "Gio" "OutputStream" - Word64 -> -- size : TBasicType TUInt64 - IO (Ptr BufferedOutputStream) - - -bufferedOutputStreamNewSized :: - (MonadIO m, OutputStreamK a) => - a -- baseStream - -> Word64 -- size - -> m BufferedOutputStream -- result -bufferedOutputStreamNewSized baseStream size = liftIO $ do - let baseStream' = unsafeManagedPtrCastPtr baseStream - result <- g_buffered_output_stream_new_sized baseStream' size - checkUnexpectedReturnNULL "g_buffered_output_stream_new_sized" result - result' <- (wrapObject BufferedOutputStream) result - touchManagedPtr baseStream - return result' - --- method BufferedOutputStream::get_auto_grow --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_buffered_output_stream_get_auto_grow" g_buffered_output_stream_get_auto_grow :: - Ptr BufferedOutputStream -> -- _obj : TInterface "Gio" "BufferedOutputStream" - IO CInt - - -bufferedOutputStreamGetAutoGrow :: - (MonadIO m, BufferedOutputStreamK a) => - a -- _obj - -> m Bool -- result -bufferedOutputStreamGetAutoGrow _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_buffered_output_stream_get_auto_grow _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data BufferedOutputStreamGetAutoGrowMethodInfo -instance (signature ~ (m Bool), MonadIO m, BufferedOutputStreamK a) => MethodInfo BufferedOutputStreamGetAutoGrowMethodInfo a signature where - overloadedMethod _ = bufferedOutputStreamGetAutoGrow - --- method BufferedOutputStream::get_buffer_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_buffered_output_stream_get_buffer_size" g_buffered_output_stream_get_buffer_size :: - Ptr BufferedOutputStream -> -- _obj : TInterface "Gio" "BufferedOutputStream" - IO Word64 - - -bufferedOutputStreamGetBufferSize :: - (MonadIO m, BufferedOutputStreamK a) => - a -- _obj - -> m Word64 -- result -bufferedOutputStreamGetBufferSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_buffered_output_stream_get_buffer_size _obj' - touchManagedPtr _obj - return result - -data BufferedOutputStreamGetBufferSizeMethodInfo -instance (signature ~ (m Word64), MonadIO m, BufferedOutputStreamK a) => MethodInfo BufferedOutputStreamGetBufferSizeMethodInfo a signature where - overloadedMethod _ = bufferedOutputStreamGetBufferSize - --- method BufferedOutputStream::set_auto_grow --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auto_grow", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_buffered_output_stream_set_auto_grow" g_buffered_output_stream_set_auto_grow :: - Ptr BufferedOutputStream -> -- _obj : TInterface "Gio" "BufferedOutputStream" - CInt -> -- auto_grow : TBasicType TBoolean - IO () - - -bufferedOutputStreamSetAutoGrow :: - (MonadIO m, BufferedOutputStreamK a) => - a -- _obj - -> Bool -- autoGrow - -> m () -- result -bufferedOutputStreamSetAutoGrow _obj autoGrow = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let autoGrow' = (fromIntegral . fromEnum) autoGrow - g_buffered_output_stream_set_auto_grow _obj' autoGrow' - touchManagedPtr _obj - return () - -data BufferedOutputStreamSetAutoGrowMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, BufferedOutputStreamK a) => MethodInfo BufferedOutputStreamSetAutoGrowMethodInfo a signature where - overloadedMethod _ = bufferedOutputStreamSetAutoGrow - --- method BufferedOutputStream::set_buffer_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BufferedOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_buffered_output_stream_set_buffer_size" g_buffered_output_stream_set_buffer_size :: - Ptr BufferedOutputStream -> -- _obj : TInterface "Gio" "BufferedOutputStream" - Word64 -> -- size : TBasicType TUInt64 - IO () - - -bufferedOutputStreamSetBufferSize :: - (MonadIO m, BufferedOutputStreamK a) => - a -- _obj - -> Word64 -- size - -> m () -- result -bufferedOutputStreamSetBufferSize _obj size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_buffered_output_stream_set_buffer_size _obj' size - touchManagedPtr _obj - return () - -data BufferedOutputStreamSetBufferSizeMethodInfo -instance (signature ~ (Word64 -> m ()), MonadIO m, BufferedOutputStreamK a) => MethodInfo BufferedOutputStreamSetBufferSizeMethodInfo a signature where - overloadedMethod _ = bufferedOutputStreamSetBufferSize - - diff --git a/GI/Gio/Objects/BufferedOutputStream.hs-boot b/GI/Gio/Objects/BufferedOutputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/BufferedOutputStream.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gio.Objects.BufferedOutputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype BufferedOutputStream = BufferedOutputStream (ForeignPtr BufferedOutputStream) -instance GObject BufferedOutputStream where -class GObject o => BufferedOutputStreamK o -instance (GObject o, IsDescendantOf BufferedOutputStream o) => BufferedOutputStreamK o -data BufferedOutputStreamAutoGrowPropertyInfo -data BufferedOutputStreamBufferSizePropertyInfo -data BufferedOutputStreamGetAutoGrowMethodInfo -data BufferedOutputStreamGetBufferSizeMethodInfo -data BufferedOutputStreamSetAutoGrowMethodInfo -data BufferedOutputStreamSetBufferSizeMethodInfo diff --git a/GI/Gio/Objects/BytesIcon.hs b/GI/Gio/Objects/BytesIcon.hs deleted file mode 100644 --- a/GI/Gio/Objects/BytesIcon.hs +++ /dev/null @@ -1,202 +0,0 @@ - - -{- | -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.Objects.BytesIcon - ( - --- * Exported types - BytesIcon(..) , - BytesIconK , - toBytesIcon , - noBytesIcon , - - - -- * Methods --- ** bytesIconGetBytes - BytesIconGetBytesMethodInfo , - bytesIconGetBytes , - - --- ** bytesIconNew - bytesIconNew , - - - - - -- * Properties --- ** Bytes - BytesIconBytesPropertyInfo , - bytesIconBytes , - constructBytesIconBytes , - getBytesIconBytes , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype BytesIcon = BytesIcon (ForeignPtr BytesIcon) -foreign import ccall "g_bytes_icon_get_type" - c_g_bytes_icon_get_type :: IO GType - -type instance ParentTypes BytesIcon = BytesIconParentTypes -type BytesIconParentTypes = '[GObject.Object, Icon, LoadableIcon] - -instance GObject BytesIcon where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_bytes_icon_get_type - - -class GObject o => BytesIconK o -instance (GObject o, IsDescendantOf BytesIcon o) => BytesIconK o - -toBytesIcon :: BytesIconK o => o -> IO BytesIcon -toBytesIcon = unsafeCastTo BytesIcon - -noBytesIcon :: Maybe BytesIcon -noBytesIcon = Nothing - -type family ResolveBytesIconMethod (t :: Symbol) (o :: *) :: * where - ResolveBytesIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveBytesIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveBytesIconMethod "equal" o = IconEqualMethodInfo - ResolveBytesIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveBytesIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveBytesIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveBytesIconMethod "load" o = LoadableIconLoadMethodInfo - ResolveBytesIconMethod "loadAsync" o = LoadableIconLoadAsyncMethodInfo - ResolveBytesIconMethod "loadFinish" o = LoadableIconLoadFinishMethodInfo - ResolveBytesIconMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveBytesIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveBytesIconMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveBytesIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveBytesIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveBytesIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveBytesIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveBytesIconMethod "serialize" o = IconSerializeMethodInfo - ResolveBytesIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveBytesIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveBytesIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveBytesIconMethod "toString" o = IconToStringMethodInfo - ResolveBytesIconMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveBytesIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveBytesIconMethod "getBytes" o = BytesIconGetBytesMethodInfo - ResolveBytesIconMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveBytesIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveBytesIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveBytesIconMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveBytesIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveBytesIconMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBytesIconMethod t BytesIcon, MethodInfo info BytesIcon p) => IsLabelProxy t (BytesIcon -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBytesIconMethod t BytesIcon, MethodInfo info BytesIcon p) => IsLabel t (BytesIcon -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "bytes" - -- Type: TInterface "GLib" "Bytes" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getBytesIconBytes :: (MonadIO m, BytesIconK o) => o -> m GLib.Bytes -getBytesIconBytes obj = liftIO $ checkUnexpectedNothing "getBytesIconBytes" $ getObjectPropertyBoxed obj "bytes" GLib.Bytes - -constructBytesIconBytes :: GLib.Bytes -> IO ([Char], GValue) -constructBytesIconBytes val = constructObjectPropertyBoxed "bytes" (Just val) - -data BytesIconBytesPropertyInfo -instance AttrInfo BytesIconBytesPropertyInfo where - type AttrAllowedOps BytesIconBytesPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint BytesIconBytesPropertyInfo = (~) GLib.Bytes - type AttrBaseTypeConstraint BytesIconBytesPropertyInfo = BytesIconK - type AttrGetType BytesIconBytesPropertyInfo = GLib.Bytes - type AttrLabel BytesIconBytesPropertyInfo = "bytes" - attrGet _ = getBytesIconBytes - attrSet _ = undefined - attrConstruct _ = constructBytesIconBytes - attrClear _ = undefined - -type instance AttributeList BytesIcon = BytesIconAttributeList -type BytesIconAttributeList = ('[ '("bytes", BytesIconBytesPropertyInfo)] :: [(Symbol, *)]) - -bytesIconBytes :: AttrLabelProxy "bytes" -bytesIconBytes = AttrLabelProxy - -type instance SignalList BytesIcon = BytesIconSignalList -type BytesIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method BytesIcon::new --- method type : Constructor --- Args : [Arg {argCName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "BytesIcon") --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_icon_new" g_bytes_icon_new :: - Ptr GLib.Bytes -> -- bytes : TInterface "GLib" "Bytes" - IO (Ptr BytesIcon) - - -bytesIconNew :: - (MonadIO m) => - GLib.Bytes -- bytes - -> m BytesIcon -- result -bytesIconNew bytes = liftIO $ do - let bytes' = unsafeManagedPtrGetPtr bytes - result <- g_bytes_icon_new bytes' - checkUnexpectedReturnNULL "g_bytes_icon_new" result - result' <- (wrapObject BytesIcon) result - touchManagedPtr bytes - return result' - --- method BytesIcon::get_bytes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "BytesIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Bytes") --- throws : False --- Skip return : False - -foreign import ccall "g_bytes_icon_get_bytes" g_bytes_icon_get_bytes :: - Ptr BytesIcon -> -- _obj : TInterface "Gio" "BytesIcon" - IO (Ptr GLib.Bytes) - - -bytesIconGetBytes :: - (MonadIO m, BytesIconK a) => - a -- _obj - -> m GLib.Bytes -- result -bytesIconGetBytes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_bytes_icon_get_bytes _obj' - checkUnexpectedReturnNULL "g_bytes_icon_get_bytes" result - result' <- (newBoxed GLib.Bytes) result - touchManagedPtr _obj - return result' - -data BytesIconGetBytesMethodInfo -instance (signature ~ (m GLib.Bytes), MonadIO m, BytesIconK a) => MethodInfo BytesIconGetBytesMethodInfo a signature where - overloadedMethod _ = bytesIconGetBytes - - diff --git a/GI/Gio/Objects/BytesIcon.hs-boot b/GI/Gio/Objects/BytesIcon.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/BytesIcon.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gio.Objects.BytesIcon where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype BytesIcon = BytesIcon (ForeignPtr BytesIcon) -instance GObject BytesIcon where -class GObject o => BytesIconK o -instance (GObject o, IsDescendantOf BytesIcon o) => BytesIconK o -data BytesIconBytesPropertyInfo -data BytesIconGetBytesMethodInfo diff --git a/GI/Gio/Objects/Cancellable.hs b/GI/Gio/Objects/Cancellable.hs deleted file mode 100644 --- a/GI/Gio/Objects/Cancellable.hs +++ /dev/null @@ -1,588 +0,0 @@ - - -{- | -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.Objects.Cancellable - ( - --- * Exported types - Cancellable(..) , - CancellableK , - toCancellable , - noCancellable , - - - -- * Methods --- ** cancellableCancel - CancellableCancelMethodInfo , - cancellableCancel , - - --- ** cancellableConnect - CancellableConnectMethodInfo , - cancellableConnect , - - --- ** cancellableDisconnect - CancellableDisconnectMethodInfo , - cancellableDisconnect , - - --- ** cancellableGetCurrent - cancellableGetCurrent , - - --- ** cancellableGetFd - CancellableGetFdMethodInfo , - cancellableGetFd , - - --- ** cancellableIsCancelled - CancellableIsCancelledMethodInfo , - cancellableIsCancelled , - - --- ** cancellableMakePollfd - CancellableMakePollfdMethodInfo , - cancellableMakePollfd , - - --- ** cancellableNew - cancellableNew , - - --- ** cancellablePopCurrent - CancellablePopCurrentMethodInfo , - cancellablePopCurrent , - - --- ** cancellablePushCurrent - CancellablePushCurrentMethodInfo , - cancellablePushCurrent , - - --- ** cancellableReleaseFd - CancellableReleaseFdMethodInfo , - cancellableReleaseFd , - - --- ** cancellableReset - CancellableResetMethodInfo , - cancellableReset , - - --- ** cancellableSetErrorIfCancelled - CancellableSetErrorIfCancelledMethodInfo, - cancellableSetErrorIfCancelled , - - - - - -- * Signals --- ** Cancelled - CancellableCancelledCallback , - CancellableCancelledCallbackC , - CancellableCancelledSignalInfo , - afterCancellableCancelled , - cancellableCancelledCallbackWrapper , - cancellableCancelledClosure , - mkCancellableCancelledCallback , - noCancellableCancelledCallback , - onCancellableCancelled , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype Cancellable = Cancellable (ForeignPtr Cancellable) -foreign import ccall "g_cancellable_get_type" - c_g_cancellable_get_type :: IO GType - -type instance ParentTypes Cancellable = CancellableParentTypes -type CancellableParentTypes = '[GObject.Object] - -instance GObject Cancellable where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_cancellable_get_type - - -class GObject o => CancellableK o -instance (GObject o, IsDescendantOf Cancellable o) => CancellableK o - -toCancellable :: CancellableK o => o -> IO Cancellable -toCancellable = unsafeCastTo Cancellable - -noCancellable :: Maybe Cancellable -noCancellable = Nothing - -type family ResolveCancellableMethod (t :: Symbol) (o :: *) :: * where - ResolveCancellableMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCancellableMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCancellableMethod "cancel" o = CancellableCancelMethodInfo - ResolveCancellableMethod "connect" o = CancellableConnectMethodInfo - ResolveCancellableMethod "disconnect" o = CancellableDisconnectMethodInfo - ResolveCancellableMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCancellableMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCancellableMethod "isCancelled" o = CancellableIsCancelledMethodInfo - ResolveCancellableMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCancellableMethod "makePollfd" o = CancellableMakePollfdMethodInfo - ResolveCancellableMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCancellableMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCancellableMethod "popCurrent" o = CancellablePopCurrentMethodInfo - ResolveCancellableMethod "pushCurrent" o = CancellablePushCurrentMethodInfo - ResolveCancellableMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCancellableMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCancellableMethod "releaseFd" o = CancellableReleaseFdMethodInfo - ResolveCancellableMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCancellableMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCancellableMethod "reset" o = CancellableResetMethodInfo - ResolveCancellableMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCancellableMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCancellableMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCancellableMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCancellableMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCancellableMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCancellableMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCancellableMethod "getFd" o = CancellableGetFdMethodInfo - ResolveCancellableMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCancellableMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCancellableMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCancellableMethod "setErrorIfCancelled" o = CancellableSetErrorIfCancelledMethodInfo - ResolveCancellableMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCancellableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCancellableMethod t Cancellable, MethodInfo info Cancellable p) => IsLabelProxy t (Cancellable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCancellableMethod t Cancellable, MethodInfo info Cancellable p) => IsLabel t (Cancellable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Cancellable::cancelled -type CancellableCancelledCallback = - IO () - -noCancellableCancelledCallback :: Maybe CancellableCancelledCallback -noCancellableCancelledCallback = Nothing - -type CancellableCancelledCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCancellableCancelledCallback :: CancellableCancelledCallbackC -> IO (FunPtr CancellableCancelledCallbackC) - -cancellableCancelledClosure :: CancellableCancelledCallback -> IO Closure -cancellableCancelledClosure cb = newCClosure =<< mkCancellableCancelledCallback wrapped - where wrapped = cancellableCancelledCallbackWrapper cb - -cancellableCancelledCallbackWrapper :: - CancellableCancelledCallback -> - Ptr () -> - Ptr () -> - IO () -cancellableCancelledCallbackWrapper _cb _ _ = do - _cb - -onCancellableCancelled :: (GObject a, MonadIO m) => a -> CancellableCancelledCallback -> m SignalHandlerId -onCancellableCancelled obj cb = liftIO $ connectCancellableCancelled obj cb SignalConnectBefore -afterCancellableCancelled :: (GObject a, MonadIO m) => a -> CancellableCancelledCallback -> m SignalHandlerId -afterCancellableCancelled obj cb = connectCancellableCancelled obj cb SignalConnectAfter - -connectCancellableCancelled :: (GObject a, MonadIO m) => - a -> CancellableCancelledCallback -> SignalConnectMode -> m SignalHandlerId -connectCancellableCancelled obj cb after = liftIO $ do - cb' <- mkCancellableCancelledCallback (cancellableCancelledCallbackWrapper cb) - connectSignalFunPtr obj "cancelled" cb' after - -type instance AttributeList Cancellable = CancellableAttributeList -type CancellableAttributeList = ('[ ] :: [(Symbol, *)]) - -data CancellableCancelledSignalInfo -instance SignalInfo CancellableCancelledSignalInfo where - type HaskellCallbackType CancellableCancelledSignalInfo = CancellableCancelledCallback - connectSignal _ = connectCancellableCancelled - -type instance SignalList Cancellable = CancellableSignalList -type CancellableSignalList = ('[ '("cancelled", CancellableCancelledSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Cancellable::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Cancellable") --- throws : False --- Skip return : False - -foreign import ccall "g_cancellable_new" g_cancellable_new :: - IO (Ptr Cancellable) - - -cancellableNew :: - (MonadIO m) => - m Cancellable -- result -cancellableNew = liftIO $ do - result <- g_cancellable_new - checkUnexpectedReturnNULL "g_cancellable_new" result - result' <- (wrapObject Cancellable) result - return result' - --- method Cancellable::cancel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_cancellable_cancel" g_cancellable_cancel :: - Ptr Cancellable -> -- _obj : TInterface "Gio" "Cancellable" - IO () - - -cancellableCancel :: - (MonadIO m, CancellableK a) => - a -- _obj - -> m () -- result -cancellableCancel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_cancellable_cancel _obj' - touchManagedPtr _obj - return () - -data CancellableCancelMethodInfo -instance (signature ~ (m ()), MonadIO m, CancellableK a) => MethodInfo CancellableCancelMethodInfo a signature where - overloadedMethod _ = cancellableCancel - --- method Cancellable::connect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "GObject" "Callback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data_destroy_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TULong) --- throws : False --- Skip return : False - -foreign import ccall "g_cancellable_connect" g_cancellable_connect :: - Ptr Cancellable -> -- _obj : TInterface "Gio" "Cancellable" - FunPtr GObject.CallbackC -> -- callback : TInterface "GObject" "Callback" - Ptr () -> -- data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- data_destroy_func : TInterface "GLib" "DestroyNotify" - IO CULong - - -cancellableConnect :: - (MonadIO m, CancellableK a) => - a -- _obj - -> GObject.Callback -- callback - -> m CULong -- result -cancellableConnect _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback' <- GObject.mkCallback (GObject.callbackWrapper Nothing callback) - let data_ = castFunPtrToPtr callback' - let dataDestroyFunc = safeFreeFunPtrPtr - result <- g_cancellable_connect _obj' callback' data_ dataDestroyFunc - touchManagedPtr _obj - return result - -data CancellableConnectMethodInfo -instance (signature ~ (GObject.Callback -> m CULong), MonadIO m, CancellableK a) => MethodInfo CancellableConnectMethodInfo a signature where - overloadedMethod _ = cancellableConnect - --- method Cancellable::disconnect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handler_id", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_cancellable_disconnect" g_cancellable_disconnect :: - Ptr Cancellable -> -- _obj : TInterface "Gio" "Cancellable" - CULong -> -- handler_id : TBasicType TULong - IO () - - -cancellableDisconnect :: - (MonadIO m, CancellableK a) => - a -- _obj - -> CULong -- handlerId - -> m () -- result -cancellableDisconnect _obj handlerId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_cancellable_disconnect _obj' handlerId - touchManagedPtr _obj - return () - -data CancellableDisconnectMethodInfo -instance (signature ~ (CULong -> m ()), MonadIO m, CancellableK a) => MethodInfo CancellableDisconnectMethodInfo a signature where - overloadedMethod _ = cancellableDisconnect - --- method Cancellable::get_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_cancellable_get_fd" g_cancellable_get_fd :: - Ptr Cancellable -> -- _obj : TInterface "Gio" "Cancellable" - IO Int32 - - -cancellableGetFd :: - (MonadIO m, CancellableK a) => - a -- _obj - -> m Int32 -- result -cancellableGetFd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_cancellable_get_fd _obj' - touchManagedPtr _obj - return result - -data CancellableGetFdMethodInfo -instance (signature ~ (m Int32), MonadIO m, CancellableK a) => MethodInfo CancellableGetFdMethodInfo a signature where - overloadedMethod _ = cancellableGetFd - --- method Cancellable::is_cancelled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_cancellable_is_cancelled" g_cancellable_is_cancelled :: - Ptr Cancellable -> -- _obj : TInterface "Gio" "Cancellable" - IO CInt - - -cancellableIsCancelled :: - (MonadIO m, CancellableK a) => - a -- _obj - -> m Bool -- result -cancellableIsCancelled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_cancellable_is_cancelled _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CancellableIsCancelledMethodInfo -instance (signature ~ (m Bool), MonadIO m, CancellableK a) => MethodInfo CancellableIsCancelledMethodInfo a signature where - overloadedMethod _ = cancellableIsCancelled - --- method Cancellable::make_pollfd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pollfd", argType = TInterface "GLib" "PollFD", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_cancellable_make_pollfd" g_cancellable_make_pollfd :: - Ptr Cancellable -> -- _obj : TInterface "Gio" "Cancellable" - Ptr GLib.PollFD -> -- pollfd : TInterface "GLib" "PollFD" - IO CInt - - -cancellableMakePollfd :: - (MonadIO m, CancellableK a) => - a -- _obj - -> GLib.PollFD -- pollfd - -> m Bool -- result -cancellableMakePollfd _obj pollfd = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pollfd' = unsafeManagedPtrGetPtr pollfd - result <- g_cancellable_make_pollfd _obj' pollfd' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr pollfd - return result' - -data CancellableMakePollfdMethodInfo -instance (signature ~ (GLib.PollFD -> m Bool), MonadIO m, CancellableK a) => MethodInfo CancellableMakePollfdMethodInfo a signature where - overloadedMethod _ = cancellableMakePollfd - --- method Cancellable::pop_current --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_cancellable_pop_current" g_cancellable_pop_current :: - Ptr Cancellable -> -- _obj : TInterface "Gio" "Cancellable" - IO () - - -cancellablePopCurrent :: - (MonadIO m, CancellableK a) => - a -- _obj - -> m () -- result -cancellablePopCurrent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_cancellable_pop_current _obj' - touchManagedPtr _obj - return () - -data CancellablePopCurrentMethodInfo -instance (signature ~ (m ()), MonadIO m, CancellableK a) => MethodInfo CancellablePopCurrentMethodInfo a signature where - overloadedMethod _ = cancellablePopCurrent - --- method Cancellable::push_current --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_cancellable_push_current" g_cancellable_push_current :: - Ptr Cancellable -> -- _obj : TInterface "Gio" "Cancellable" - IO () - - -cancellablePushCurrent :: - (MonadIO m, CancellableK a) => - a -- _obj - -> m () -- result -cancellablePushCurrent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_cancellable_push_current _obj' - touchManagedPtr _obj - return () - -data CancellablePushCurrentMethodInfo -instance (signature ~ (m ()), MonadIO m, CancellableK a) => MethodInfo CancellablePushCurrentMethodInfo a signature where - overloadedMethod _ = cancellablePushCurrent - --- method Cancellable::release_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_cancellable_release_fd" g_cancellable_release_fd :: - Ptr Cancellable -> -- _obj : TInterface "Gio" "Cancellable" - IO () - - -cancellableReleaseFd :: - (MonadIO m, CancellableK a) => - a -- _obj - -> m () -- result -cancellableReleaseFd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_cancellable_release_fd _obj' - touchManagedPtr _obj - return () - -data CancellableReleaseFdMethodInfo -instance (signature ~ (m ()), MonadIO m, CancellableK a) => MethodInfo CancellableReleaseFdMethodInfo a signature where - overloadedMethod _ = cancellableReleaseFd - --- method Cancellable::reset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_cancellable_reset" g_cancellable_reset :: - Ptr Cancellable -> -- _obj : TInterface "Gio" "Cancellable" - IO () - - -cancellableReset :: - (MonadIO m, CancellableK a) => - a -- _obj - -> m () -- result -cancellableReset _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_cancellable_reset _obj' - touchManagedPtr _obj - return () - -data CancellableResetMethodInfo -instance (signature ~ (m ()), MonadIO m, CancellableK a) => MethodInfo CancellableResetMethodInfo a signature where - overloadedMethod _ = cancellableReset - --- method Cancellable::set_error_if_cancelled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_cancellable_set_error_if_cancelled" g_cancellable_set_error_if_cancelled :: - Ptr Cancellable -> -- _obj : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -cancellableSetErrorIfCancelled :: - (MonadIO m, CancellableK a) => - a -- _obj - -> m () -- result -cancellableSetErrorIfCancelled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ g_cancellable_set_error_if_cancelled _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data CancellableSetErrorIfCancelledMethodInfo -instance (signature ~ (m ()), MonadIO m, CancellableK a) => MethodInfo CancellableSetErrorIfCancelledMethodInfo a signature where - overloadedMethod _ = cancellableSetErrorIfCancelled - --- method Cancellable::get_current --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Cancellable") --- throws : False --- Skip return : False - -foreign import ccall "g_cancellable_get_current" g_cancellable_get_current :: - IO (Ptr Cancellable) - - -cancellableGetCurrent :: - (MonadIO m) => - m (Maybe Cancellable) -- result -cancellableGetCurrent = liftIO $ do - result <- g_cancellable_get_current - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Cancellable) result' - return result'' - return maybeResult - - diff --git a/GI/Gio/Objects/Cancellable.hs-boot b/GI/Gio/Objects/Cancellable.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/Cancellable.hs-boot +++ /dev/null @@ -1,25 +0,0 @@ -module GI.Gio.Objects.Cancellable where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Cancellable = Cancellable (ForeignPtr Cancellable) -instance GObject Cancellable where -class GObject o => CancellableK o -instance (GObject o, IsDescendantOf Cancellable o) => CancellableK o -data CancellableCancelledSignalInfo -data CancellableCancelMethodInfo -data CancellableConnectMethodInfo -data CancellableDisconnectMethodInfo -data CancellableGetFdMethodInfo -data CancellableIsCancelledMethodInfo -data CancellableMakePollfdMethodInfo -data CancellablePopCurrentMethodInfo -data CancellablePushCurrentMethodInfo -data CancellableReleaseFdMethodInfo -data CancellableResetMethodInfo -data CancellableSetErrorIfCancelledMethodInfo diff --git a/GI/Gio/Objects/CharsetConverter.hs b/GI/Gio/Objects/CharsetConverter.hs deleted file mode 100644 --- a/GI/Gio/Objects/CharsetConverter.hs +++ /dev/null @@ -1,346 +0,0 @@ - - -{- | -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.Objects.CharsetConverter - ( - --- * Exported types - CharsetConverter(..) , - CharsetConverterK , - toCharsetConverter , - noCharsetConverter , - - - -- * Methods --- ** charsetConverterGetNumFallbacks - CharsetConverterGetNumFallbacksMethodInfo, - charsetConverterGetNumFallbacks , - - --- ** charsetConverterGetUseFallback - CharsetConverterGetUseFallbackMethodInfo, - charsetConverterGetUseFallback , - - --- ** charsetConverterNew - charsetConverterNew , - - --- ** charsetConverterSetUseFallback - CharsetConverterSetUseFallbackMethodInfo, - charsetConverterSetUseFallback , - - - - - -- * Properties --- ** FromCharset - CharsetConverterFromCharsetPropertyInfo , - charsetConverterFromCharset , - constructCharsetConverterFromCharset , - getCharsetConverterFromCharset , - - --- ** ToCharset - CharsetConverterToCharsetPropertyInfo , - charsetConverterToCharset , - constructCharsetConverterToCharset , - getCharsetConverterToCharset , - - --- ** UseFallback - CharsetConverterUseFallbackPropertyInfo , - charsetConverterUseFallback , - constructCharsetConverterUseFallback , - getCharsetConverterUseFallback , - setCharsetConverterUseFallback , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype CharsetConverter = CharsetConverter (ForeignPtr CharsetConverter) -foreign import ccall "g_charset_converter_get_type" - c_g_charset_converter_get_type :: IO GType - -type instance ParentTypes CharsetConverter = CharsetConverterParentTypes -type CharsetConverterParentTypes = '[GObject.Object, Converter, Initable] - -instance GObject CharsetConverter where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_charset_converter_get_type - - -class GObject o => CharsetConverterK o -instance (GObject o, IsDescendantOf CharsetConverter o) => CharsetConverterK o - -toCharsetConverter :: CharsetConverterK o => o -> IO CharsetConverter -toCharsetConverter = unsafeCastTo CharsetConverter - -noCharsetConverter :: Maybe CharsetConverter -noCharsetConverter = Nothing - -type family ResolveCharsetConverterMethod (t :: Symbol) (o :: *) :: * where - ResolveCharsetConverterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCharsetConverterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCharsetConverterMethod "convert" o = ConverterConvertMethodInfo - ResolveCharsetConverterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCharsetConverterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCharsetConverterMethod "init" o = InitableInitMethodInfo - ResolveCharsetConverterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCharsetConverterMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCharsetConverterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCharsetConverterMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCharsetConverterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCharsetConverterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCharsetConverterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCharsetConverterMethod "reset" o = ConverterResetMethodInfo - ResolveCharsetConverterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCharsetConverterMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCharsetConverterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCharsetConverterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCharsetConverterMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCharsetConverterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCharsetConverterMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCharsetConverterMethod "getNumFallbacks" o = CharsetConverterGetNumFallbacksMethodInfo - ResolveCharsetConverterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCharsetConverterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCharsetConverterMethod "getUseFallback" o = CharsetConverterGetUseFallbackMethodInfo - ResolveCharsetConverterMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCharsetConverterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCharsetConverterMethod "setUseFallback" o = CharsetConverterSetUseFallbackMethodInfo - ResolveCharsetConverterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCharsetConverterMethod t CharsetConverter, MethodInfo info CharsetConverter p) => IsLabelProxy t (CharsetConverter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCharsetConverterMethod t CharsetConverter, MethodInfo info CharsetConverter p) => IsLabel t (CharsetConverter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "from-charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getCharsetConverterFromCharset :: (MonadIO m, CharsetConverterK o) => o -> m (Maybe T.Text) -getCharsetConverterFromCharset obj = liftIO $ getObjectPropertyString obj "from-charset" - -constructCharsetConverterFromCharset :: T.Text -> IO ([Char], GValue) -constructCharsetConverterFromCharset val = constructObjectPropertyString "from-charset" (Just val) - -data CharsetConverterFromCharsetPropertyInfo -instance AttrInfo CharsetConverterFromCharsetPropertyInfo where - type AttrAllowedOps CharsetConverterFromCharsetPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CharsetConverterFromCharsetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CharsetConverterFromCharsetPropertyInfo = CharsetConverterK - type AttrGetType CharsetConverterFromCharsetPropertyInfo = (Maybe T.Text) - type AttrLabel CharsetConverterFromCharsetPropertyInfo = "from-charset" - attrGet _ = getCharsetConverterFromCharset - attrSet _ = undefined - attrConstruct _ = constructCharsetConverterFromCharset - attrClear _ = undefined - --- VVV Prop "to-charset" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getCharsetConverterToCharset :: (MonadIO m, CharsetConverterK o) => o -> m (Maybe T.Text) -getCharsetConverterToCharset obj = liftIO $ getObjectPropertyString obj "to-charset" - -constructCharsetConverterToCharset :: T.Text -> IO ([Char], GValue) -constructCharsetConverterToCharset val = constructObjectPropertyString "to-charset" (Just val) - -data CharsetConverterToCharsetPropertyInfo -instance AttrInfo CharsetConverterToCharsetPropertyInfo where - type AttrAllowedOps CharsetConverterToCharsetPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CharsetConverterToCharsetPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CharsetConverterToCharsetPropertyInfo = CharsetConverterK - type AttrGetType CharsetConverterToCharsetPropertyInfo = (Maybe T.Text) - type AttrLabel CharsetConverterToCharsetPropertyInfo = "to-charset" - attrGet _ = getCharsetConverterToCharset - attrSet _ = undefined - attrConstruct _ = constructCharsetConverterToCharset - attrClear _ = undefined - --- VVV Prop "use-fallback" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getCharsetConverterUseFallback :: (MonadIO m, CharsetConverterK o) => o -> m Bool -getCharsetConverterUseFallback obj = liftIO $ getObjectPropertyBool obj "use-fallback" - -setCharsetConverterUseFallback :: (MonadIO m, CharsetConverterK o) => o -> Bool -> m () -setCharsetConverterUseFallback obj val = liftIO $ setObjectPropertyBool obj "use-fallback" val - -constructCharsetConverterUseFallback :: Bool -> IO ([Char], GValue) -constructCharsetConverterUseFallback val = constructObjectPropertyBool "use-fallback" val - -data CharsetConverterUseFallbackPropertyInfo -instance AttrInfo CharsetConverterUseFallbackPropertyInfo where - type AttrAllowedOps CharsetConverterUseFallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CharsetConverterUseFallbackPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CharsetConverterUseFallbackPropertyInfo = CharsetConverterK - type AttrGetType CharsetConverterUseFallbackPropertyInfo = Bool - type AttrLabel CharsetConverterUseFallbackPropertyInfo = "use-fallback" - attrGet _ = getCharsetConverterUseFallback - attrSet _ = setCharsetConverterUseFallback - attrConstruct _ = constructCharsetConverterUseFallback - attrClear _ = undefined - -type instance AttributeList CharsetConverter = CharsetConverterAttributeList -type CharsetConverterAttributeList = ('[ '("fromCharset", CharsetConverterFromCharsetPropertyInfo), '("toCharset", CharsetConverterToCharsetPropertyInfo), '("useFallback", CharsetConverterUseFallbackPropertyInfo)] :: [(Symbol, *)]) - -charsetConverterFromCharset :: AttrLabelProxy "fromCharset" -charsetConverterFromCharset = AttrLabelProxy - -charsetConverterToCharset :: AttrLabelProxy "toCharset" -charsetConverterToCharset = AttrLabelProxy - -charsetConverterUseFallback :: AttrLabelProxy "useFallback" -charsetConverterUseFallback = AttrLabelProxy - -type instance SignalList CharsetConverter = CharsetConverterSignalList -type CharsetConverterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CharsetConverter::new --- method type : Constructor --- Args : [Arg {argCName = "to_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "from_charset", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "CharsetConverter") --- throws : True --- Skip return : False - -foreign import ccall "g_charset_converter_new" g_charset_converter_new :: - CString -> -- to_charset : TBasicType TUTF8 - CString -> -- from_charset : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr CharsetConverter) - - -charsetConverterNew :: - (MonadIO m) => - T.Text -- toCharset - -> T.Text -- fromCharset - -> m CharsetConverter -- result -charsetConverterNew toCharset fromCharset = liftIO $ do - toCharset' <- textToCString toCharset - fromCharset' <- textToCString fromCharset - onException (do - result <- propagateGError $ g_charset_converter_new toCharset' fromCharset' - checkUnexpectedReturnNULL "g_charset_converter_new" result - result' <- (wrapObject CharsetConverter) result - freeMem toCharset' - freeMem fromCharset' - return result' - ) (do - freeMem toCharset' - freeMem fromCharset' - ) - --- method CharsetConverter::get_num_fallbacks --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "CharsetConverter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_charset_converter_get_num_fallbacks" g_charset_converter_get_num_fallbacks :: - Ptr CharsetConverter -> -- _obj : TInterface "Gio" "CharsetConverter" - IO Word32 - - -charsetConverterGetNumFallbacks :: - (MonadIO m, CharsetConverterK a) => - a -- _obj - -> m Word32 -- result -charsetConverterGetNumFallbacks _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_charset_converter_get_num_fallbacks _obj' - touchManagedPtr _obj - return result - -data CharsetConverterGetNumFallbacksMethodInfo -instance (signature ~ (m Word32), MonadIO m, CharsetConverterK a) => MethodInfo CharsetConverterGetNumFallbacksMethodInfo a signature where - overloadedMethod _ = charsetConverterGetNumFallbacks - --- method CharsetConverter::get_use_fallback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "CharsetConverter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_charset_converter_get_use_fallback" g_charset_converter_get_use_fallback :: - Ptr CharsetConverter -> -- _obj : TInterface "Gio" "CharsetConverter" - IO CInt - - -charsetConverterGetUseFallback :: - (MonadIO m, CharsetConverterK a) => - a -- _obj - -> m Bool -- result -charsetConverterGetUseFallback _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_charset_converter_get_use_fallback _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CharsetConverterGetUseFallbackMethodInfo -instance (signature ~ (m Bool), MonadIO m, CharsetConverterK a) => MethodInfo CharsetConverterGetUseFallbackMethodInfo a signature where - overloadedMethod _ = charsetConverterGetUseFallback - --- method CharsetConverter::set_use_fallback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "CharsetConverter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_fallback", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_charset_converter_set_use_fallback" g_charset_converter_set_use_fallback :: - Ptr CharsetConverter -> -- _obj : TInterface "Gio" "CharsetConverter" - CInt -> -- use_fallback : TBasicType TBoolean - IO () - - -charsetConverterSetUseFallback :: - (MonadIO m, CharsetConverterK a) => - a -- _obj - -> Bool -- useFallback - -> m () -- result -charsetConverterSetUseFallback _obj useFallback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useFallback' = (fromIntegral . fromEnum) useFallback - g_charset_converter_set_use_fallback _obj' useFallback' - touchManagedPtr _obj - return () - -data CharsetConverterSetUseFallbackMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, CharsetConverterK a) => MethodInfo CharsetConverterSetUseFallbackMethodInfo a signature where - overloadedMethod _ = charsetConverterSetUseFallback - - diff --git a/GI/Gio/Objects/CharsetConverter.hs-boot b/GI/Gio/Objects/CharsetConverter.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/CharsetConverter.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gio.Objects.CharsetConverter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype CharsetConverter = CharsetConverter (ForeignPtr CharsetConverter) -instance GObject CharsetConverter where -class GObject o => CharsetConverterK o -instance (GObject o, IsDescendantOf CharsetConverter o) => CharsetConverterK o -data CharsetConverterFromCharsetPropertyInfo -data CharsetConverterToCharsetPropertyInfo -data CharsetConverterUseFallbackPropertyInfo -data CharsetConverterGetNumFallbacksMethodInfo -data CharsetConverterGetUseFallbackMethodInfo -data CharsetConverterSetUseFallbackMethodInfo diff --git a/GI/Gio/Objects/ConverterInputStream.hs b/GI/Gio/Objects/ConverterInputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/ConverterInputStream.hs +++ /dev/null @@ -1,225 +0,0 @@ - - -{- | -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.Objects.ConverterInputStream - ( - --- * Exported types - ConverterInputStream(..) , - ConverterInputStreamK , - toConverterInputStream , - noConverterInputStream , - - - -- * Methods --- ** converterInputStreamGetConverter - ConverterInputStreamGetConverterMethodInfo, - converterInputStreamGetConverter , - - --- ** converterInputStreamNew - converterInputStreamNew , - - - - - -- * Properties --- ** Converter - ConverterInputStreamConverterPropertyInfo, - constructConverterInputStreamConverter , - converterInputStreamConverter , - getConverterInputStreamConverter , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype ConverterInputStream = ConverterInputStream (ForeignPtr ConverterInputStream) -foreign import ccall "g_converter_input_stream_get_type" - c_g_converter_input_stream_get_type :: IO GType - -type instance ParentTypes ConverterInputStream = ConverterInputStreamParentTypes -type ConverterInputStreamParentTypes = '[FilterInputStream, InputStream, GObject.Object, PollableInputStream] - -instance GObject ConverterInputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_converter_input_stream_get_type - - -class GObject o => ConverterInputStreamK o -instance (GObject o, IsDescendantOf ConverterInputStream o) => ConverterInputStreamK o - -toConverterInputStream :: ConverterInputStreamK o => o -> IO ConverterInputStream -toConverterInputStream = unsafeCastTo ConverterInputStream - -noConverterInputStream :: Maybe ConverterInputStream -noConverterInputStream = Nothing - -type family ResolveConverterInputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveConverterInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveConverterInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveConverterInputStreamMethod "canPoll" o = PollableInputStreamCanPollMethodInfo - ResolveConverterInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo - ResolveConverterInputStreamMethod "close" o = InputStreamCloseMethodInfo - ResolveConverterInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo - ResolveConverterInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo - ResolveConverterInputStreamMethod "createSource" o = PollableInputStreamCreateSourceMethodInfo - ResolveConverterInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveConverterInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveConverterInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo - ResolveConverterInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo - ResolveConverterInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveConverterInputStreamMethod "isReadable" o = PollableInputStreamIsReadableMethodInfo - ResolveConverterInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveConverterInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveConverterInputStreamMethod "read" o = InputStreamReadMethodInfo - ResolveConverterInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo - ResolveConverterInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo - ResolveConverterInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo - ResolveConverterInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo - ResolveConverterInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo - ResolveConverterInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo - ResolveConverterInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo - ResolveConverterInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo - ResolveConverterInputStreamMethod "readNonblocking" o = PollableInputStreamReadNonblockingMethodInfo - ResolveConverterInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveConverterInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveConverterInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveConverterInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveConverterInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveConverterInputStreamMethod "skip" o = InputStreamSkipMethodInfo - ResolveConverterInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo - ResolveConverterInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo - ResolveConverterInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveConverterInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveConverterInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveConverterInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveConverterInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveConverterInputStreamMethod "getBaseStream" o = FilterInputStreamGetBaseStreamMethodInfo - ResolveConverterInputStreamMethod "getCloseBaseStream" o = FilterInputStreamGetCloseBaseStreamMethodInfo - ResolveConverterInputStreamMethod "getConverter" o = ConverterInputStreamGetConverterMethodInfo - ResolveConverterInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveConverterInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveConverterInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveConverterInputStreamMethod "setCloseBaseStream" o = FilterInputStreamSetCloseBaseStreamMethodInfo - ResolveConverterInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveConverterInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo - ResolveConverterInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveConverterInputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveConverterInputStreamMethod t ConverterInputStream, MethodInfo info ConverterInputStream p) => IsLabelProxy t (ConverterInputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveConverterInputStreamMethod t ConverterInputStream, MethodInfo info ConverterInputStream p) => IsLabel t (ConverterInputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "converter" - -- Type: TInterface "Gio" "Converter" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getConverterInputStreamConverter :: (MonadIO m, ConverterInputStreamK o) => o -> m Converter -getConverterInputStreamConverter obj = liftIO $ checkUnexpectedNothing "getConverterInputStreamConverter" $ getObjectPropertyObject obj "converter" Converter - -constructConverterInputStreamConverter :: (ConverterK a) => a -> IO ([Char], GValue) -constructConverterInputStreamConverter val = constructObjectPropertyObject "converter" (Just val) - -data ConverterInputStreamConverterPropertyInfo -instance AttrInfo ConverterInputStreamConverterPropertyInfo where - type AttrAllowedOps ConverterInputStreamConverterPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ConverterInputStreamConverterPropertyInfo = ConverterK - type AttrBaseTypeConstraint ConverterInputStreamConverterPropertyInfo = ConverterInputStreamK - type AttrGetType ConverterInputStreamConverterPropertyInfo = Converter - type AttrLabel ConverterInputStreamConverterPropertyInfo = "converter" - attrGet _ = getConverterInputStreamConverter - attrSet _ = undefined - attrConstruct _ = constructConverterInputStreamConverter - attrClear _ = undefined - -type instance AttributeList ConverterInputStream = ConverterInputStreamAttributeList -type ConverterInputStreamAttributeList = ('[ '("baseStream", FilterInputStreamBaseStreamPropertyInfo), '("closeBaseStream", FilterInputStreamCloseBaseStreamPropertyInfo), '("converter", ConverterInputStreamConverterPropertyInfo)] :: [(Symbol, *)]) - -converterInputStreamConverter :: AttrLabelProxy "converter" -converterInputStreamConverter = AttrLabelProxy - -type instance SignalList ConverterInputStream = ConverterInputStreamSignalList -type ConverterInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ConverterInputStream::new --- method type : Constructor --- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "converter", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "ConverterInputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_converter_input_stream_new" g_converter_input_stream_new :: - Ptr InputStream -> -- base_stream : TInterface "Gio" "InputStream" - Ptr Converter -> -- converter : TInterface "Gio" "Converter" - IO (Ptr ConverterInputStream) - - -converterInputStreamNew :: - (MonadIO m, InputStreamK a, ConverterK b) => - a -- baseStream - -> b -- converter - -> m ConverterInputStream -- result -converterInputStreamNew baseStream converter = liftIO $ do - let baseStream' = unsafeManagedPtrCastPtr baseStream - let converter' = unsafeManagedPtrCastPtr converter - result <- g_converter_input_stream_new baseStream' converter' - checkUnexpectedReturnNULL "g_converter_input_stream_new" result - result' <- (wrapObject ConverterInputStream) result - touchManagedPtr baseStream - touchManagedPtr converter - return result' - --- method ConverterInputStream::get_converter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ConverterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Converter") --- throws : False --- Skip return : False - -foreign import ccall "g_converter_input_stream_get_converter" g_converter_input_stream_get_converter :: - Ptr ConverterInputStream -> -- _obj : TInterface "Gio" "ConverterInputStream" - IO (Ptr Converter) - - -converterInputStreamGetConverter :: - (MonadIO m, ConverterInputStreamK a) => - a -- _obj - -> m Converter -- result -converterInputStreamGetConverter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_converter_input_stream_get_converter _obj' - checkUnexpectedReturnNULL "g_converter_input_stream_get_converter" result - result' <- (newObject Converter) result - touchManagedPtr _obj - return result' - -data ConverterInputStreamGetConverterMethodInfo -instance (signature ~ (m Converter), MonadIO m, ConverterInputStreamK a) => MethodInfo ConverterInputStreamGetConverterMethodInfo a signature where - overloadedMethod _ = converterInputStreamGetConverter - - diff --git a/GI/Gio/Objects/ConverterInputStream.hs-boot b/GI/Gio/Objects/ConverterInputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/ConverterInputStream.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gio.Objects.ConverterInputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ConverterInputStream = ConverterInputStream (ForeignPtr ConverterInputStream) -instance GObject ConverterInputStream where -class GObject o => ConverterInputStreamK o -instance (GObject o, IsDescendantOf ConverterInputStream o) => ConverterInputStreamK o -data ConverterInputStreamConverterPropertyInfo -data ConverterInputStreamGetConverterMethodInfo diff --git a/GI/Gio/Objects/ConverterOutputStream.hs b/GI/Gio/Objects/ConverterOutputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/ConverterOutputStream.hs +++ /dev/null @@ -1,229 +0,0 @@ - - -{- | -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.Objects.ConverterOutputStream - ( - --- * Exported types - ConverterOutputStream(..) , - ConverterOutputStreamK , - toConverterOutputStream , - noConverterOutputStream , - - - -- * Methods --- ** converterOutputStreamGetConverter - ConverterOutputStreamGetConverterMethodInfo, - converterOutputStreamGetConverter , - - --- ** converterOutputStreamNew - converterOutputStreamNew , - - - - - -- * Properties --- ** Converter - ConverterOutputStreamConverterPropertyInfo, - constructConverterOutputStreamConverter , - converterOutputStreamConverter , - getConverterOutputStreamConverter , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype ConverterOutputStream = ConverterOutputStream (ForeignPtr ConverterOutputStream) -foreign import ccall "g_converter_output_stream_get_type" - c_g_converter_output_stream_get_type :: IO GType - -type instance ParentTypes ConverterOutputStream = ConverterOutputStreamParentTypes -type ConverterOutputStreamParentTypes = '[FilterOutputStream, OutputStream, GObject.Object, PollableOutputStream] - -instance GObject ConverterOutputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_converter_output_stream_get_type - - -class GObject o => ConverterOutputStreamK o -instance (GObject o, IsDescendantOf ConverterOutputStream o) => ConverterOutputStreamK o - -toConverterOutputStream :: ConverterOutputStreamK o => o -> IO ConverterOutputStream -toConverterOutputStream = unsafeCastTo ConverterOutputStream - -noConverterOutputStream :: Maybe ConverterOutputStream -noConverterOutputStream = Nothing - -type family ResolveConverterOutputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveConverterOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveConverterOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveConverterOutputStreamMethod "canPoll" o = PollableOutputStreamCanPollMethodInfo - ResolveConverterOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo - ResolveConverterOutputStreamMethod "close" o = OutputStreamCloseMethodInfo - ResolveConverterOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo - ResolveConverterOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo - ResolveConverterOutputStreamMethod "createSource" o = PollableOutputStreamCreateSourceMethodInfo - ResolveConverterOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo - ResolveConverterOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo - ResolveConverterOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo - ResolveConverterOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveConverterOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveConverterOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo - ResolveConverterOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo - ResolveConverterOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo - ResolveConverterOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveConverterOutputStreamMethod "isWritable" o = PollableOutputStreamIsWritableMethodInfo - ResolveConverterOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveConverterOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveConverterOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveConverterOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveConverterOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveConverterOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveConverterOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveConverterOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo - ResolveConverterOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo - ResolveConverterOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo - ResolveConverterOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveConverterOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveConverterOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveConverterOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveConverterOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveConverterOutputStreamMethod "write" o = OutputStreamWriteMethodInfo - ResolveConverterOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo - ResolveConverterOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo - ResolveConverterOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo - ResolveConverterOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo - ResolveConverterOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo - ResolveConverterOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo - ResolveConverterOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo - ResolveConverterOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo - ResolveConverterOutputStreamMethod "writeNonblocking" o = PollableOutputStreamWriteNonblockingMethodInfo - ResolveConverterOutputStreamMethod "getBaseStream" o = FilterOutputStreamGetBaseStreamMethodInfo - ResolveConverterOutputStreamMethod "getCloseBaseStream" o = FilterOutputStreamGetCloseBaseStreamMethodInfo - ResolveConverterOutputStreamMethod "getConverter" o = ConverterOutputStreamGetConverterMethodInfo - ResolveConverterOutputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveConverterOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveConverterOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveConverterOutputStreamMethod "setCloseBaseStream" o = FilterOutputStreamSetCloseBaseStreamMethodInfo - ResolveConverterOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveConverterOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo - ResolveConverterOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveConverterOutputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveConverterOutputStreamMethod t ConverterOutputStream, MethodInfo info ConverterOutputStream p) => IsLabelProxy t (ConverterOutputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveConverterOutputStreamMethod t ConverterOutputStream, MethodInfo info ConverterOutputStream p) => IsLabel t (ConverterOutputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "converter" - -- Type: TInterface "Gio" "Converter" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getConverterOutputStreamConverter :: (MonadIO m, ConverterOutputStreamK o) => o -> m Converter -getConverterOutputStreamConverter obj = liftIO $ checkUnexpectedNothing "getConverterOutputStreamConverter" $ getObjectPropertyObject obj "converter" Converter - -constructConverterOutputStreamConverter :: (ConverterK a) => a -> IO ([Char], GValue) -constructConverterOutputStreamConverter val = constructObjectPropertyObject "converter" (Just val) - -data ConverterOutputStreamConverterPropertyInfo -instance AttrInfo ConverterOutputStreamConverterPropertyInfo where - type AttrAllowedOps ConverterOutputStreamConverterPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ConverterOutputStreamConverterPropertyInfo = ConverterK - type AttrBaseTypeConstraint ConverterOutputStreamConverterPropertyInfo = ConverterOutputStreamK - type AttrGetType ConverterOutputStreamConverterPropertyInfo = Converter - type AttrLabel ConverterOutputStreamConverterPropertyInfo = "converter" - attrGet _ = getConverterOutputStreamConverter - attrSet _ = undefined - attrConstruct _ = constructConverterOutputStreamConverter - attrClear _ = undefined - -type instance AttributeList ConverterOutputStream = ConverterOutputStreamAttributeList -type ConverterOutputStreamAttributeList = ('[ '("baseStream", FilterOutputStreamBaseStreamPropertyInfo), '("closeBaseStream", FilterOutputStreamCloseBaseStreamPropertyInfo), '("converter", ConverterOutputStreamConverterPropertyInfo)] :: [(Symbol, *)]) - -converterOutputStreamConverter :: AttrLabelProxy "converter" -converterOutputStreamConverter = AttrLabelProxy - -type instance SignalList ConverterOutputStream = ConverterOutputStreamSignalList -type ConverterOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ConverterOutputStream::new --- method type : Constructor --- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "converter", argType = TInterface "Gio" "Converter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "ConverterOutputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_converter_output_stream_new" g_converter_output_stream_new :: - Ptr OutputStream -> -- base_stream : TInterface "Gio" "OutputStream" - Ptr Converter -> -- converter : TInterface "Gio" "Converter" - IO (Ptr ConverterOutputStream) - - -converterOutputStreamNew :: - (MonadIO m, OutputStreamK a, ConverterK b) => - a -- baseStream - -> b -- converter - -> m ConverterOutputStream -- result -converterOutputStreamNew baseStream converter = liftIO $ do - let baseStream' = unsafeManagedPtrCastPtr baseStream - let converter' = unsafeManagedPtrCastPtr converter - result <- g_converter_output_stream_new baseStream' converter' - checkUnexpectedReturnNULL "g_converter_output_stream_new" result - result' <- (wrapObject ConverterOutputStream) result - touchManagedPtr baseStream - touchManagedPtr converter - return result' - --- method ConverterOutputStream::get_converter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ConverterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Converter") --- throws : False --- Skip return : False - -foreign import ccall "g_converter_output_stream_get_converter" g_converter_output_stream_get_converter :: - Ptr ConverterOutputStream -> -- _obj : TInterface "Gio" "ConverterOutputStream" - IO (Ptr Converter) - - -converterOutputStreamGetConverter :: - (MonadIO m, ConverterOutputStreamK a) => - a -- _obj - -> m Converter -- result -converterOutputStreamGetConverter _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_converter_output_stream_get_converter _obj' - checkUnexpectedReturnNULL "g_converter_output_stream_get_converter" result - result' <- (newObject Converter) result - touchManagedPtr _obj - return result' - -data ConverterOutputStreamGetConverterMethodInfo -instance (signature ~ (m Converter), MonadIO m, ConverterOutputStreamK a) => MethodInfo ConverterOutputStreamGetConverterMethodInfo a signature where - overloadedMethod _ = converterOutputStreamGetConverter - - diff --git a/GI/Gio/Objects/ConverterOutputStream.hs-boot b/GI/Gio/Objects/ConverterOutputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/ConverterOutputStream.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gio.Objects.ConverterOutputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ConverterOutputStream = ConverterOutputStream (ForeignPtr ConverterOutputStream) -instance GObject ConverterOutputStream where -class GObject o => ConverterOutputStreamK o -instance (GObject o, IsDescendantOf ConverterOutputStream o) => ConverterOutputStreamK o -data ConverterOutputStreamConverterPropertyInfo -data ConverterOutputStreamGetConverterMethodInfo diff --git a/GI/Gio/Objects/Credentials.hs b/GI/Gio/Objects/Credentials.hs deleted file mode 100644 --- a/GI/Gio/Objects/Credentials.hs +++ /dev/null @@ -1,352 +0,0 @@ - - -{- | -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.Objects.Credentials - ( - --- * Exported types - Credentials(..) , - CredentialsK , - toCredentials , - noCredentials , - - - -- * Methods --- ** credentialsGetUnixPid - CredentialsGetUnixPidMethodInfo , - credentialsGetUnixPid , - - --- ** credentialsGetUnixUser - CredentialsGetUnixUserMethodInfo , - credentialsGetUnixUser , - - --- ** credentialsIsSameUser - CredentialsIsSameUserMethodInfo , - credentialsIsSameUser , - - --- ** credentialsNew - credentialsNew , - - --- ** credentialsSetNative - CredentialsSetNativeMethodInfo , - credentialsSetNative , - - --- ** credentialsSetUnixUser - CredentialsSetUnixUserMethodInfo , - credentialsSetUnixUser , - - --- ** credentialsToString - CredentialsToStringMethodInfo , - credentialsToString , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype Credentials = Credentials (ForeignPtr Credentials) -foreign import ccall "g_credentials_get_type" - c_g_credentials_get_type :: IO GType - -type instance ParentTypes Credentials = CredentialsParentTypes -type CredentialsParentTypes = '[GObject.Object] - -instance GObject Credentials where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_credentials_get_type - - -class GObject o => CredentialsK o -instance (GObject o, IsDescendantOf Credentials o) => CredentialsK o - -toCredentials :: CredentialsK o => o -> IO Credentials -toCredentials = unsafeCastTo Credentials - -noCredentials :: Maybe Credentials -noCredentials = Nothing - -type family ResolveCredentialsMethod (t :: Symbol) (o :: *) :: * where - ResolveCredentialsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCredentialsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCredentialsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCredentialsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCredentialsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCredentialsMethod "isSameUser" o = CredentialsIsSameUserMethodInfo - ResolveCredentialsMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCredentialsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCredentialsMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCredentialsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCredentialsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCredentialsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCredentialsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCredentialsMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCredentialsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCredentialsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCredentialsMethod "toString" o = CredentialsToStringMethodInfo - ResolveCredentialsMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCredentialsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCredentialsMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCredentialsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCredentialsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCredentialsMethod "getUnixPid" o = CredentialsGetUnixPidMethodInfo - ResolveCredentialsMethod "getUnixUser" o = CredentialsGetUnixUserMethodInfo - ResolveCredentialsMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCredentialsMethod "setNative" o = CredentialsSetNativeMethodInfo - ResolveCredentialsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCredentialsMethod "setUnixUser" o = CredentialsSetUnixUserMethodInfo - ResolveCredentialsMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCredentialsMethod t Credentials, MethodInfo info Credentials p) => IsLabelProxy t (Credentials -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCredentialsMethod t Credentials, MethodInfo info Credentials p) => IsLabel t (Credentials -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Credentials = CredentialsAttributeList -type CredentialsAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Credentials = CredentialsSignalList -type CredentialsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Credentials::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Credentials") --- throws : False --- Skip return : False - -foreign import ccall "g_credentials_new" g_credentials_new :: - IO (Ptr Credentials) - - -credentialsNew :: - (MonadIO m) => - m Credentials -- result -credentialsNew = liftIO $ do - result <- g_credentials_new - checkUnexpectedReturnNULL "g_credentials_new" result - result' <- (wrapObject Credentials) result - return result' - --- method Credentials::get_unix_pid --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : True --- Skip return : False - -foreign import ccall "g_credentials_get_unix_pid" g_credentials_get_unix_pid :: - Ptr Credentials -> -- _obj : TInterface "Gio" "Credentials" - Ptr (Ptr GError) -> -- error - IO Int32 - - -credentialsGetUnixPid :: - (MonadIO m, CredentialsK a) => - a -- _obj - -> m Int32 -- result -credentialsGetUnixPid _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ g_credentials_get_unix_pid _obj' - touchManagedPtr _obj - return result - ) (do - return () - ) - -data CredentialsGetUnixPidMethodInfo -instance (signature ~ (m Int32), MonadIO m, CredentialsK a) => MethodInfo CredentialsGetUnixPidMethodInfo a signature where - overloadedMethod _ = credentialsGetUnixPid - --- method Credentials::get_unix_user --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : True --- Skip return : False - -foreign import ccall "g_credentials_get_unix_user" g_credentials_get_unix_user :: - Ptr Credentials -> -- _obj : TInterface "Gio" "Credentials" - Ptr (Ptr GError) -> -- error - IO Word32 - - -credentialsGetUnixUser :: - (MonadIO m, CredentialsK a) => - a -- _obj - -> m Word32 -- result -credentialsGetUnixUser _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ g_credentials_get_unix_user _obj' - touchManagedPtr _obj - return result - ) (do - return () - ) - -data CredentialsGetUnixUserMethodInfo -instance (signature ~ (m Word32), MonadIO m, CredentialsK a) => MethodInfo CredentialsGetUnixUserMethodInfo a signature where - overloadedMethod _ = credentialsGetUnixUser - --- method Credentials::is_same_user --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other_credentials", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_credentials_is_same_user" g_credentials_is_same_user :: - Ptr Credentials -> -- _obj : TInterface "Gio" "Credentials" - Ptr Credentials -> -- other_credentials : TInterface "Gio" "Credentials" - Ptr (Ptr GError) -> -- error - IO CInt - - -credentialsIsSameUser :: - (MonadIO m, CredentialsK a, CredentialsK b) => - a -- _obj - -> b -- otherCredentials - -> m () -- result -credentialsIsSameUser _obj otherCredentials = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let otherCredentials' = unsafeManagedPtrCastPtr otherCredentials - onException (do - _ <- propagateGError $ g_credentials_is_same_user _obj' otherCredentials' - touchManagedPtr _obj - touchManagedPtr otherCredentials - return () - ) (do - return () - ) - -data CredentialsIsSameUserMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, CredentialsK a, CredentialsK b) => MethodInfo CredentialsIsSameUserMethodInfo a signature where - overloadedMethod _ = credentialsIsSameUser - --- method Credentials::set_native --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "native_type", argType = TInterface "Gio" "CredentialsType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "native", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_credentials_set_native" g_credentials_set_native :: - Ptr Credentials -> -- _obj : TInterface "Gio" "Credentials" - CUInt -> -- native_type : TInterface "Gio" "CredentialsType" - Ptr () -> -- native : TBasicType TPtr - IO () - - -credentialsSetNative :: - (MonadIO m, CredentialsK a) => - a -- _obj - -> CredentialsType -- nativeType - -> Ptr () -- native - -> m () -- result -credentialsSetNative _obj nativeType native = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let nativeType' = (fromIntegral . fromEnum) nativeType - g_credentials_set_native _obj' nativeType' native - touchManagedPtr _obj - return () - -data CredentialsSetNativeMethodInfo -instance (signature ~ (CredentialsType -> Ptr () -> m ()), MonadIO m, CredentialsK a) => MethodInfo CredentialsSetNativeMethodInfo a signature where - overloadedMethod _ = credentialsSetNative - --- method Credentials::set_unix_user --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uid", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_credentials_set_unix_user" g_credentials_set_unix_user :: - Ptr Credentials -> -- _obj : TInterface "Gio" "Credentials" - Word32 -> -- uid : TBasicType TUInt - Ptr (Ptr GError) -> -- error - IO CInt - - -credentialsSetUnixUser :: - (MonadIO m, CredentialsK a) => - a -- _obj - -> Word32 -- uid - -> m () -- result -credentialsSetUnixUser _obj uid = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ g_credentials_set_unix_user _obj' uid - touchManagedPtr _obj - return () - ) (do - return () - ) - -data CredentialsSetUnixUserMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, CredentialsK a) => MethodInfo CredentialsSetUnixUserMethodInfo a signature where - overloadedMethod _ = credentialsSetUnixUser - --- method Credentials::to_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_credentials_to_string" g_credentials_to_string :: - Ptr Credentials -> -- _obj : TInterface "Gio" "Credentials" - IO CString - - -credentialsToString :: - (MonadIO m, CredentialsK a) => - a -- _obj - -> m T.Text -- result -credentialsToString _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_credentials_to_string _obj' - checkUnexpectedReturnNULL "g_credentials_to_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data CredentialsToStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m, CredentialsK a) => MethodInfo CredentialsToStringMethodInfo a signature where - overloadedMethod _ = credentialsToString - - diff --git a/GI/Gio/Objects/Credentials.hs-boot b/GI/Gio/Objects/Credentials.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/Credentials.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gio.Objects.Credentials where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Credentials = Credentials (ForeignPtr Credentials) -instance GObject Credentials where -class GObject o => CredentialsK o -instance (GObject o, IsDescendantOf Credentials o) => CredentialsK o -data CredentialsGetUnixPidMethodInfo -data CredentialsGetUnixUserMethodInfo -data CredentialsIsSameUserMethodInfo -data CredentialsSetNativeMethodInfo -data CredentialsSetUnixUserMethodInfo -data CredentialsToStringMethodInfo diff --git a/GI/Gio/Objects/DBusActionGroup.hs b/GI/Gio/Objects/DBusActionGroup.hs deleted file mode 100644 --- a/GI/Gio/Objects/DBusActionGroup.hs +++ /dev/null @@ -1,148 +0,0 @@ - - -{- | -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.Objects.DBusActionGroup - ( - --- * Exported types - DBusActionGroup(..) , - DBusActionGroupK , - toDBusActionGroup , - noDBusActionGroup , - - - -- * Methods --- ** dBusActionGroupGet - dBusActionGroupGet , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype DBusActionGroup = DBusActionGroup (ForeignPtr DBusActionGroup) -foreign import ccall "g_dbus_action_group_get_type" - c_g_dbus_action_group_get_type :: IO GType - -type instance ParentTypes DBusActionGroup = DBusActionGroupParentTypes -type DBusActionGroupParentTypes = '[GObject.Object, ActionGroup, RemoteActionGroup] - -instance GObject DBusActionGroup where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_action_group_get_type - - -class GObject o => DBusActionGroupK o -instance (GObject o, IsDescendantOf DBusActionGroup o) => DBusActionGroupK o - -toDBusActionGroup :: DBusActionGroupK o => o -> IO DBusActionGroup -toDBusActionGroup = unsafeCastTo DBusActionGroup - -noDBusActionGroup :: Maybe DBusActionGroup -noDBusActionGroup = Nothing - -type family ResolveDBusActionGroupMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusActionGroupMethod "actionAdded" o = ActionGroupActionAddedMethodInfo - ResolveDBusActionGroupMethod "actionEnabledChanged" o = ActionGroupActionEnabledChangedMethodInfo - ResolveDBusActionGroupMethod "actionRemoved" o = ActionGroupActionRemovedMethodInfo - ResolveDBusActionGroupMethod "actionStateChanged" o = ActionGroupActionStateChangedMethodInfo - ResolveDBusActionGroupMethod "activateAction" o = ActionGroupActivateActionMethodInfo - ResolveDBusActionGroupMethod "activateActionFull" o = RemoteActionGroupActivateActionFullMethodInfo - ResolveDBusActionGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusActionGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusActionGroupMethod "changeActionState" o = ActionGroupChangeActionStateMethodInfo - ResolveDBusActionGroupMethod "changeActionStateFull" o = RemoteActionGroupChangeActionStateFullMethodInfo - ResolveDBusActionGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusActionGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusActionGroupMethod "hasAction" o = ActionGroupHasActionMethodInfo - ResolveDBusActionGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusActionGroupMethod "listActions" o = ActionGroupListActionsMethodInfo - ResolveDBusActionGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusActionGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusActionGroupMethod "queryAction" o = ActionGroupQueryActionMethodInfo - ResolveDBusActionGroupMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusActionGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusActionGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusActionGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusActionGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusActionGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusActionGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusActionGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusActionGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusActionGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusActionGroupMethod "getActionEnabled" o = ActionGroupGetActionEnabledMethodInfo - ResolveDBusActionGroupMethod "getActionParameterType" o = ActionGroupGetActionParameterTypeMethodInfo - ResolveDBusActionGroupMethod "getActionState" o = ActionGroupGetActionStateMethodInfo - ResolveDBusActionGroupMethod "getActionStateHint" o = ActionGroupGetActionStateHintMethodInfo - ResolveDBusActionGroupMethod "getActionStateType" o = ActionGroupGetActionStateTypeMethodInfo - ResolveDBusActionGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusActionGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusActionGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusActionGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusActionGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusActionGroupMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusActionGroupMethod t DBusActionGroup, MethodInfo info DBusActionGroup p) => IsLabelProxy t (DBusActionGroup -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusActionGroupMethod t DBusActionGroup, MethodInfo info DBusActionGroup p) => IsLabel t (DBusActionGroup -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DBusActionGroup = DBusActionGroupAttributeList -type DBusActionGroupAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList DBusActionGroup = DBusActionGroupSignalList -type DBusActionGroupSignalList = ('[ '("actionAdded", ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", ActionGroupActionRemovedSignalInfo), '("actionStateChanged", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DBusActionGroup::get --- method type : MemberFunction --- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusActionGroup") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_action_group_get" g_dbus_action_group_get :: - Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection" - CString -> -- bus_name : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - IO (Ptr DBusActionGroup) - - -dBusActionGroupGet :: - (MonadIO m, DBusConnectionK a) => - a -- connection - -> T.Text -- busName - -> T.Text -- objectPath - -> m DBusActionGroup -- result -dBusActionGroupGet connection busName objectPath = liftIO $ do - let connection' = unsafeManagedPtrCastPtr connection - busName' <- textToCString busName - objectPath' <- textToCString objectPath - result <- g_dbus_action_group_get connection' busName' objectPath' - checkUnexpectedReturnNULL "g_dbus_action_group_get" result - result' <- (wrapObject DBusActionGroup) result - touchManagedPtr connection - freeMem busName' - freeMem objectPath' - return result' - - diff --git a/GI/Gio/Objects/DBusActionGroup.hs-boot b/GI/Gio/Objects/DBusActionGroup.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DBusActionGroup.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gio.Objects.DBusActionGroup where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusActionGroup = DBusActionGroup (ForeignPtr DBusActionGroup) -instance GObject DBusActionGroup where -class GObject o => DBusActionGroupK o -instance (GObject o, IsDescendantOf DBusActionGroup o) => DBusActionGroupK o diff --git a/GI/Gio/Objects/DBusAuthObserver.hs b/GI/Gio/Objects/DBusAuthObserver.hs deleted file mode 100644 --- a/GI/Gio/Objects/DBusAuthObserver.hs +++ /dev/null @@ -1,338 +0,0 @@ - - -{- | -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.Objects.DBusAuthObserver - ( - --- * Exported types - DBusAuthObserver(..) , - DBusAuthObserverK , - toDBusAuthObserver , - noDBusAuthObserver , - - - -- * Methods --- ** dBusAuthObserverAllowMechanism - DBusAuthObserverAllowMechanismMethodInfo, - dBusAuthObserverAllowMechanism , - - --- ** dBusAuthObserverAuthorizeAuthenticatedPeer - DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo, - dBusAuthObserverAuthorizeAuthenticatedPeer, - - --- ** dBusAuthObserverNew - dBusAuthObserverNew , - - - - - -- * Signals --- ** AllowMechanism - DBusAuthObserverAllowMechanismCallback , - DBusAuthObserverAllowMechanismCallbackC , - DBusAuthObserverAllowMechanismSignalInfo, - afterDBusAuthObserverAllowMechanism , - dBusAuthObserverAllowMechanismCallbackWrapper, - dBusAuthObserverAllowMechanismClosure , - mkDBusAuthObserverAllowMechanismCallback, - noDBusAuthObserverAllowMechanismCallback, - onDBusAuthObserverAllowMechanism , - - --- ** AuthorizeAuthenticatedPeer - DBusAuthObserverAuthorizeAuthenticatedPeerCallback, - DBusAuthObserverAuthorizeAuthenticatedPeerCallbackC, - DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo, - afterDBusAuthObserverAuthorizeAuthenticatedPeer, - dBusAuthObserverAuthorizeAuthenticatedPeerCallbackWrapper, - dBusAuthObserverAuthorizeAuthenticatedPeerClosure, - mkDBusAuthObserverAuthorizeAuthenticatedPeerCallback, - noDBusAuthObserverAuthorizeAuthenticatedPeerCallback, - onDBusAuthObserverAuthorizeAuthenticatedPeer, - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype DBusAuthObserver = DBusAuthObserver (ForeignPtr DBusAuthObserver) -foreign import ccall "g_dbus_auth_observer_get_type" - c_g_dbus_auth_observer_get_type :: IO GType - -type instance ParentTypes DBusAuthObserver = DBusAuthObserverParentTypes -type DBusAuthObserverParentTypes = '[GObject.Object] - -instance GObject DBusAuthObserver where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_auth_observer_get_type - - -class GObject o => DBusAuthObserverK o -instance (GObject o, IsDescendantOf DBusAuthObserver o) => DBusAuthObserverK o - -toDBusAuthObserver :: DBusAuthObserverK o => o -> IO DBusAuthObserver -toDBusAuthObserver = unsafeCastTo DBusAuthObserver - -noDBusAuthObserver :: Maybe DBusAuthObserver -noDBusAuthObserver = Nothing - -type family ResolveDBusAuthObserverMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusAuthObserverMethod "allowMechanism" o = DBusAuthObserverAllowMechanismMethodInfo - ResolveDBusAuthObserverMethod "authorizeAuthenticatedPeer" o = DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo - ResolveDBusAuthObserverMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusAuthObserverMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusAuthObserverMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusAuthObserverMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusAuthObserverMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusAuthObserverMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusAuthObserverMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusAuthObserverMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusAuthObserverMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusAuthObserverMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusAuthObserverMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusAuthObserverMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusAuthObserverMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusAuthObserverMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusAuthObserverMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusAuthObserverMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusAuthObserverMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusAuthObserverMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusAuthObserverMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusAuthObserverMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusAuthObserverMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusAuthObserverMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusAuthObserverMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusAuthObserverMethod t DBusAuthObserver, MethodInfo info DBusAuthObserver p) => IsLabelProxy t (DBusAuthObserver -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusAuthObserverMethod t DBusAuthObserver, MethodInfo info DBusAuthObserver p) => IsLabel t (DBusAuthObserver -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal DBusAuthObserver::allow-mechanism -type DBusAuthObserverAllowMechanismCallback = - T.Text -> - IO Bool - -noDBusAuthObserverAllowMechanismCallback :: Maybe DBusAuthObserverAllowMechanismCallback -noDBusAuthObserverAllowMechanismCallback = Nothing - -type DBusAuthObserverAllowMechanismCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkDBusAuthObserverAllowMechanismCallback :: DBusAuthObserverAllowMechanismCallbackC -> IO (FunPtr DBusAuthObserverAllowMechanismCallbackC) - -dBusAuthObserverAllowMechanismClosure :: DBusAuthObserverAllowMechanismCallback -> IO Closure -dBusAuthObserverAllowMechanismClosure cb = newCClosure =<< mkDBusAuthObserverAllowMechanismCallback wrapped - where wrapped = dBusAuthObserverAllowMechanismCallbackWrapper cb - -dBusAuthObserverAllowMechanismCallbackWrapper :: - DBusAuthObserverAllowMechanismCallback -> - Ptr () -> - CString -> - Ptr () -> - IO CInt -dBusAuthObserverAllowMechanismCallbackWrapper _cb _ mechanism _ = do - mechanism' <- cstringToText mechanism - result <- _cb mechanism' - let result' = (fromIntegral . fromEnum) result - return result' - -onDBusAuthObserverAllowMechanism :: (GObject a, MonadIO m) => a -> DBusAuthObserverAllowMechanismCallback -> m SignalHandlerId -onDBusAuthObserverAllowMechanism obj cb = liftIO $ connectDBusAuthObserverAllowMechanism obj cb SignalConnectBefore -afterDBusAuthObserverAllowMechanism :: (GObject a, MonadIO m) => a -> DBusAuthObserverAllowMechanismCallback -> m SignalHandlerId -afterDBusAuthObserverAllowMechanism obj cb = connectDBusAuthObserverAllowMechanism obj cb SignalConnectAfter - -connectDBusAuthObserverAllowMechanism :: (GObject a, MonadIO m) => - a -> DBusAuthObserverAllowMechanismCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusAuthObserverAllowMechanism obj cb after = liftIO $ do - cb' <- mkDBusAuthObserverAllowMechanismCallback (dBusAuthObserverAllowMechanismCallbackWrapper cb) - connectSignalFunPtr obj "allow-mechanism" cb' after - --- signal DBusAuthObserver::authorize-authenticated-peer -type DBusAuthObserverAuthorizeAuthenticatedPeerCallback = - IOStream -> - Maybe Credentials -> - IO Bool - -noDBusAuthObserverAuthorizeAuthenticatedPeerCallback :: Maybe DBusAuthObserverAuthorizeAuthenticatedPeerCallback -noDBusAuthObserverAuthorizeAuthenticatedPeerCallback = Nothing - -type DBusAuthObserverAuthorizeAuthenticatedPeerCallbackC = - Ptr () -> -- object - Ptr IOStream -> - Ptr Credentials -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkDBusAuthObserverAuthorizeAuthenticatedPeerCallback :: DBusAuthObserverAuthorizeAuthenticatedPeerCallbackC -> IO (FunPtr DBusAuthObserverAuthorizeAuthenticatedPeerCallbackC) - -dBusAuthObserverAuthorizeAuthenticatedPeerClosure :: DBusAuthObserverAuthorizeAuthenticatedPeerCallback -> IO Closure -dBusAuthObserverAuthorizeAuthenticatedPeerClosure cb = newCClosure =<< mkDBusAuthObserverAuthorizeAuthenticatedPeerCallback wrapped - where wrapped = dBusAuthObserverAuthorizeAuthenticatedPeerCallbackWrapper cb - -dBusAuthObserverAuthorizeAuthenticatedPeerCallbackWrapper :: - DBusAuthObserverAuthorizeAuthenticatedPeerCallback -> - Ptr () -> - Ptr IOStream -> - Ptr Credentials -> - Ptr () -> - IO CInt -dBusAuthObserverAuthorizeAuthenticatedPeerCallbackWrapper _cb _ stream credentials _ = do - stream' <- (newObject IOStream) stream - maybeCredentials <- - if credentials == nullPtr - then return Nothing - else do - credentials' <- (newObject Credentials) credentials - return $ Just credentials' - result <- _cb stream' maybeCredentials - let result' = (fromIntegral . fromEnum) result - return result' - -onDBusAuthObserverAuthorizeAuthenticatedPeer :: (GObject a, MonadIO m) => a -> DBusAuthObserverAuthorizeAuthenticatedPeerCallback -> m SignalHandlerId -onDBusAuthObserverAuthorizeAuthenticatedPeer obj cb = liftIO $ connectDBusAuthObserverAuthorizeAuthenticatedPeer obj cb SignalConnectBefore -afterDBusAuthObserverAuthorizeAuthenticatedPeer :: (GObject a, MonadIO m) => a -> DBusAuthObserverAuthorizeAuthenticatedPeerCallback -> m SignalHandlerId -afterDBusAuthObserverAuthorizeAuthenticatedPeer obj cb = connectDBusAuthObserverAuthorizeAuthenticatedPeer obj cb SignalConnectAfter - -connectDBusAuthObserverAuthorizeAuthenticatedPeer :: (GObject a, MonadIO m) => - a -> DBusAuthObserverAuthorizeAuthenticatedPeerCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusAuthObserverAuthorizeAuthenticatedPeer obj cb after = liftIO $ do - cb' <- mkDBusAuthObserverAuthorizeAuthenticatedPeerCallback (dBusAuthObserverAuthorizeAuthenticatedPeerCallbackWrapper cb) - connectSignalFunPtr obj "authorize-authenticated-peer" cb' after - -type instance AttributeList DBusAuthObserver = DBusAuthObserverAttributeList -type DBusAuthObserverAttributeList = ('[ ] :: [(Symbol, *)]) - -data DBusAuthObserverAllowMechanismSignalInfo -instance SignalInfo DBusAuthObserverAllowMechanismSignalInfo where - type HaskellCallbackType DBusAuthObserverAllowMechanismSignalInfo = DBusAuthObserverAllowMechanismCallback - connectSignal _ = connectDBusAuthObserverAllowMechanism - -data DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo -instance SignalInfo DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo where - type HaskellCallbackType DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo = DBusAuthObserverAuthorizeAuthenticatedPeerCallback - connectSignal _ = connectDBusAuthObserverAuthorizeAuthenticatedPeer - -type instance SignalList DBusAuthObserver = DBusAuthObserverSignalList -type DBusAuthObserverSignalList = ('[ '("allowMechanism", DBusAuthObserverAllowMechanismSignalInfo), '("authorizeAuthenticatedPeer", DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DBusAuthObserver::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusAuthObserver") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_auth_observer_new" g_dbus_auth_observer_new :: - IO (Ptr DBusAuthObserver) - - -dBusAuthObserverNew :: - (MonadIO m) => - m DBusAuthObserver -- result -dBusAuthObserverNew = liftIO $ do - result <- g_dbus_auth_observer_new - checkUnexpectedReturnNULL "g_dbus_auth_observer_new" result - result' <- (wrapObject DBusAuthObserver) result - return result' - --- method DBusAuthObserver::allow_mechanism --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mechanism", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_auth_observer_allow_mechanism" g_dbus_auth_observer_allow_mechanism :: - Ptr DBusAuthObserver -> -- _obj : TInterface "Gio" "DBusAuthObserver" - CString -> -- mechanism : TBasicType TUTF8 - IO CInt - - -dBusAuthObserverAllowMechanism :: - (MonadIO m, DBusAuthObserverK a) => - a -- _obj - -> T.Text -- mechanism - -> m Bool -- result -dBusAuthObserverAllowMechanism _obj mechanism = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - mechanism' <- textToCString mechanism - result <- g_dbus_auth_observer_allow_mechanism _obj' mechanism' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem mechanism' - return result' - -data DBusAuthObserverAllowMechanismMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, DBusAuthObserverK a) => MethodInfo DBusAuthObserverAllowMechanismMethodInfo a signature where - overloadedMethod _ = dBusAuthObserverAllowMechanism - --- method DBusAuthObserver::authorize_authenticated_peer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusAuthObserver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "credentials", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_auth_observer_authorize_authenticated_peer" g_dbus_auth_observer_authorize_authenticated_peer :: - Ptr DBusAuthObserver -> -- _obj : TInterface "Gio" "DBusAuthObserver" - Ptr IOStream -> -- stream : TInterface "Gio" "IOStream" - Ptr Credentials -> -- credentials : TInterface "Gio" "Credentials" - IO CInt - - -dBusAuthObserverAuthorizeAuthenticatedPeer :: - (MonadIO m, DBusAuthObserverK a, IOStreamK b, CredentialsK c) => - a -- _obj - -> b -- stream - -> Maybe (c) -- credentials - -> m Bool -- result -dBusAuthObserverAuthorizeAuthenticatedPeer _obj stream credentials = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let stream' = unsafeManagedPtrCastPtr stream - maybeCredentials <- case credentials of - Nothing -> return nullPtr - Just jCredentials -> do - let jCredentials' = unsafeManagedPtrCastPtr jCredentials - return jCredentials' - result <- g_dbus_auth_observer_authorize_authenticated_peer _obj' stream' maybeCredentials - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr stream - whenJust credentials touchManagedPtr - return result' - -data DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo -instance (signature ~ (b -> Maybe (c) -> m Bool), MonadIO m, DBusAuthObserverK a, IOStreamK b, CredentialsK c) => MethodInfo DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo a signature where - overloadedMethod _ = dBusAuthObserverAuthorizeAuthenticatedPeer - - diff --git a/GI/Gio/Objects/DBusAuthObserver.hs-boot b/GI/Gio/Objects/DBusAuthObserver.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DBusAuthObserver.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Objects.DBusAuthObserver where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusAuthObserver = DBusAuthObserver (ForeignPtr DBusAuthObserver) -instance GObject DBusAuthObserver where -class GObject o => DBusAuthObserverK o -instance (GObject o, IsDescendantOf DBusAuthObserver o) => DBusAuthObserverK o -data DBusAuthObserverAllowMechanismSignalInfo -data DBusAuthObserverAuthorizeAuthenticatedPeerSignalInfo -data DBusAuthObserverAllowMechanismMethodInfo -data DBusAuthObserverAuthorizeAuthenticatedPeerMethodInfo diff --git a/GI/Gio/Objects/DBusConnection.hs b/GI/Gio/Objects/DBusConnection.hs deleted file mode 100644 --- a/GI/Gio/Objects/DBusConnection.hs +++ /dev/null @@ -1,2699 +0,0 @@ - - -{- | -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.Objects.DBusConnection - ( - --- * Exported types - DBusConnection(..) , - DBusConnectionK , - toDBusConnection , - noDBusConnection , - - - -- * Methods --- ** dBusConnectionAddFilter - DBusConnectionAddFilterMethodInfo , - dBusConnectionAddFilter , - - --- ** dBusConnectionCall - DBusConnectionCallMethodInfo , - dBusConnectionCall , - - --- ** dBusConnectionCallFinish - DBusConnectionCallFinishMethodInfo , - dBusConnectionCallFinish , - - --- ** dBusConnectionCallSync - DBusConnectionCallSyncMethodInfo , - dBusConnectionCallSync , - - --- ** dBusConnectionCallWithUnixFdList - DBusConnectionCallWithUnixFdListMethodInfo, - dBusConnectionCallWithUnixFdList , - - --- ** dBusConnectionCallWithUnixFdListFinish - DBusConnectionCallWithUnixFdListFinishMethodInfo, - dBusConnectionCallWithUnixFdListFinish , - - --- ** dBusConnectionCallWithUnixFdListSync - DBusConnectionCallWithUnixFdListSyncMethodInfo, - dBusConnectionCallWithUnixFdListSync , - - --- ** dBusConnectionClose - DBusConnectionCloseMethodInfo , - dBusConnectionClose , - - --- ** dBusConnectionCloseFinish - DBusConnectionCloseFinishMethodInfo , - dBusConnectionCloseFinish , - - --- ** dBusConnectionCloseSync - DBusConnectionCloseSyncMethodInfo , - dBusConnectionCloseSync , - - --- ** dBusConnectionEmitSignal - DBusConnectionEmitSignalMethodInfo , - dBusConnectionEmitSignal , - - --- ** dBusConnectionExportActionGroup - DBusConnectionExportActionGroupMethodInfo, - dBusConnectionExportActionGroup , - - --- ** dBusConnectionExportMenuModel - DBusConnectionExportMenuModelMethodInfo , - dBusConnectionExportMenuModel , - - --- ** dBusConnectionFlush - DBusConnectionFlushMethodInfo , - dBusConnectionFlush , - - --- ** dBusConnectionFlushFinish - DBusConnectionFlushFinishMethodInfo , - dBusConnectionFlushFinish , - - --- ** dBusConnectionFlushSync - DBusConnectionFlushSyncMethodInfo , - dBusConnectionFlushSync , - - --- ** dBusConnectionGetCapabilities - DBusConnectionGetCapabilitiesMethodInfo , - dBusConnectionGetCapabilities , - - --- ** dBusConnectionGetExitOnClose - DBusConnectionGetExitOnCloseMethodInfo , - dBusConnectionGetExitOnClose , - - --- ** dBusConnectionGetGuid - DBusConnectionGetGuidMethodInfo , - dBusConnectionGetGuid , - - --- ** dBusConnectionGetLastSerial - DBusConnectionGetLastSerialMethodInfo , - dBusConnectionGetLastSerial , - - --- ** dBusConnectionGetPeerCredentials - DBusConnectionGetPeerCredentialsMethodInfo, - dBusConnectionGetPeerCredentials , - - --- ** dBusConnectionGetStream - DBusConnectionGetStreamMethodInfo , - dBusConnectionGetStream , - - --- ** dBusConnectionGetUniqueName - DBusConnectionGetUniqueNameMethodInfo , - dBusConnectionGetUniqueName , - - --- ** dBusConnectionIsClosed - DBusConnectionIsClosedMethodInfo , - dBusConnectionIsClosed , - - --- ** dBusConnectionNew - dBusConnectionNew , - - --- ** dBusConnectionNewFinish - dBusConnectionNewFinish , - - --- ** dBusConnectionNewForAddress - dBusConnectionNewForAddress , - - --- ** dBusConnectionNewForAddressFinish - dBusConnectionNewForAddressFinish , - - --- ** dBusConnectionNewForAddressSync - dBusConnectionNewForAddressSync , - - --- ** dBusConnectionNewSync - dBusConnectionNewSync , - - --- ** dBusConnectionRegisterObject - DBusConnectionRegisterObjectMethodInfo , - dBusConnectionRegisterObject , - - --- ** dBusConnectionRegisterSubtree - DBusConnectionRegisterSubtreeMethodInfo , - dBusConnectionRegisterSubtree , - - --- ** dBusConnectionRemoveFilter - DBusConnectionRemoveFilterMethodInfo , - dBusConnectionRemoveFilter , - - --- ** dBusConnectionSendMessage - DBusConnectionSendMessageMethodInfo , - dBusConnectionSendMessage , - - --- ** dBusConnectionSendMessageWithReply - DBusConnectionSendMessageWithReplyMethodInfo, - dBusConnectionSendMessageWithReply , - - --- ** dBusConnectionSendMessageWithReplyFinish - DBusConnectionSendMessageWithReplyFinishMethodInfo, - dBusConnectionSendMessageWithReplyFinish, - - --- ** dBusConnectionSendMessageWithReplySync - DBusConnectionSendMessageWithReplySyncMethodInfo, - dBusConnectionSendMessageWithReplySync , - - --- ** dBusConnectionSetExitOnClose - DBusConnectionSetExitOnCloseMethodInfo , - dBusConnectionSetExitOnClose , - - --- ** dBusConnectionSignalSubscribe - DBusConnectionSignalSubscribeMethodInfo , - dBusConnectionSignalSubscribe , - - --- ** dBusConnectionSignalUnsubscribe - DBusConnectionSignalUnsubscribeMethodInfo, - dBusConnectionSignalUnsubscribe , - - --- ** dBusConnectionStartMessageProcessing - DBusConnectionStartMessageProcessingMethodInfo, - dBusConnectionStartMessageProcessing , - - --- ** dBusConnectionUnexportActionGroup - DBusConnectionUnexportActionGroupMethodInfo, - dBusConnectionUnexportActionGroup , - - --- ** dBusConnectionUnexportMenuModel - DBusConnectionUnexportMenuModelMethodInfo, - dBusConnectionUnexportMenuModel , - - --- ** dBusConnectionUnregisterObject - DBusConnectionUnregisterObjectMethodInfo, - dBusConnectionUnregisterObject , - - --- ** dBusConnectionUnregisterSubtree - DBusConnectionUnregisterSubtreeMethodInfo, - dBusConnectionUnregisterSubtree , - - - - - -- * Properties --- ** Address - DBusConnectionAddressPropertyInfo , - constructDBusConnectionAddress , - dBusConnectionAddress , - - --- ** AuthenticationObserver - DBusConnectionAuthenticationObserverPropertyInfo, - constructDBusConnectionAuthenticationObserver, - dBusConnectionAuthenticationObserver , - - --- ** Capabilities - DBusConnectionCapabilitiesPropertyInfo , - dBusConnectionCapabilities , - getDBusConnectionCapabilities , - - --- ** Closed - DBusConnectionClosedPropertyInfo , - dBusConnectionClosed , - getDBusConnectionClosed , - - --- ** ExitOnClose - DBusConnectionExitOnClosePropertyInfo , - constructDBusConnectionExitOnClose , - dBusConnectionExitOnClose , - getDBusConnectionExitOnClose , - setDBusConnectionExitOnClose , - - --- ** Flags - DBusConnectionFlagsPropertyInfo , - constructDBusConnectionFlags , - dBusConnectionFlags , - - --- ** Guid - DBusConnectionGuidPropertyInfo , - constructDBusConnectionGuid , - dBusConnectionGuid , - getDBusConnectionGuid , - - --- ** Stream - DBusConnectionStreamPropertyInfo , - constructDBusConnectionStream , - dBusConnectionStream , - getDBusConnectionStream , - - --- ** UniqueName - DBusConnectionUniqueNamePropertyInfo , - dBusConnectionUniqueName , - getDBusConnectionUniqueName , - - - - - -- * Signals --- ** Closed - DBusConnectionClosedCallback , - DBusConnectionClosedCallbackC , - DBusConnectionClosedSignalInfo , - afterDBusConnectionClosed , - dBusConnectionClosedCallbackWrapper , - dBusConnectionClosedClosure , - mkDBusConnectionClosedCallback , - noDBusConnectionClosedCallback , - onDBusConnectionClosed , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype DBusConnection = DBusConnection (ForeignPtr DBusConnection) -foreign import ccall "g_dbus_connection_get_type" - c_g_dbus_connection_get_type :: IO GType - -type instance ParentTypes DBusConnection = DBusConnectionParentTypes -type DBusConnectionParentTypes = '[GObject.Object, AsyncInitable, Initable] - -instance GObject DBusConnection where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_connection_get_type - - -class GObject o => DBusConnectionK o -instance (GObject o, IsDescendantOf DBusConnection o) => DBusConnectionK o - -toDBusConnection :: DBusConnectionK o => o -> IO DBusConnection -toDBusConnection = unsafeCastTo DBusConnection - -noDBusConnection :: Maybe DBusConnection -noDBusConnection = Nothing - -type family ResolveDBusConnectionMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusConnectionMethod "addFilter" o = DBusConnectionAddFilterMethodInfo - ResolveDBusConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusConnectionMethod "call" o = DBusConnectionCallMethodInfo - ResolveDBusConnectionMethod "callFinish" o = DBusConnectionCallFinishMethodInfo - ResolveDBusConnectionMethod "callSync" o = DBusConnectionCallSyncMethodInfo - ResolveDBusConnectionMethod "callWithUnixFdList" o = DBusConnectionCallWithUnixFdListMethodInfo - ResolveDBusConnectionMethod "callWithUnixFdListFinish" o = DBusConnectionCallWithUnixFdListFinishMethodInfo - ResolveDBusConnectionMethod "callWithUnixFdListSync" o = DBusConnectionCallWithUnixFdListSyncMethodInfo - ResolveDBusConnectionMethod "close" o = DBusConnectionCloseMethodInfo - ResolveDBusConnectionMethod "closeFinish" o = DBusConnectionCloseFinishMethodInfo - ResolveDBusConnectionMethod "closeSync" o = DBusConnectionCloseSyncMethodInfo - ResolveDBusConnectionMethod "emitSignal" o = DBusConnectionEmitSignalMethodInfo - ResolveDBusConnectionMethod "exportActionGroup" o = DBusConnectionExportActionGroupMethodInfo - ResolveDBusConnectionMethod "exportMenuModel" o = DBusConnectionExportMenuModelMethodInfo - ResolveDBusConnectionMethod "flush" o = DBusConnectionFlushMethodInfo - ResolveDBusConnectionMethod "flushFinish" o = DBusConnectionFlushFinishMethodInfo - ResolveDBusConnectionMethod "flushSync" o = DBusConnectionFlushSyncMethodInfo - ResolveDBusConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusConnectionMethod "init" o = InitableInitMethodInfo - ResolveDBusConnectionMethod "initAsync" o = AsyncInitableInitAsyncMethodInfo - ResolveDBusConnectionMethod "initFinish" o = AsyncInitableInitFinishMethodInfo - ResolveDBusConnectionMethod "isClosed" o = DBusConnectionIsClosedMethodInfo - ResolveDBusConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusConnectionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusConnectionMethod "registerObject" o = DBusConnectionRegisterObjectMethodInfo - ResolveDBusConnectionMethod "registerSubtree" o = DBusConnectionRegisterSubtreeMethodInfo - ResolveDBusConnectionMethod "removeFilter" o = DBusConnectionRemoveFilterMethodInfo - ResolveDBusConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusConnectionMethod "sendMessage" o = DBusConnectionSendMessageMethodInfo - ResolveDBusConnectionMethod "sendMessageWithReply" o = DBusConnectionSendMessageWithReplyMethodInfo - ResolveDBusConnectionMethod "sendMessageWithReplyFinish" o = DBusConnectionSendMessageWithReplyFinishMethodInfo - ResolveDBusConnectionMethod "sendMessageWithReplySync" o = DBusConnectionSendMessageWithReplySyncMethodInfo - ResolveDBusConnectionMethod "signalSubscribe" o = DBusConnectionSignalSubscribeMethodInfo - ResolveDBusConnectionMethod "signalUnsubscribe" o = DBusConnectionSignalUnsubscribeMethodInfo - ResolveDBusConnectionMethod "startMessageProcessing" o = DBusConnectionStartMessageProcessingMethodInfo - ResolveDBusConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusConnectionMethod "unexportActionGroup" o = DBusConnectionUnexportActionGroupMethodInfo - ResolveDBusConnectionMethod "unexportMenuModel" o = DBusConnectionUnexportMenuModelMethodInfo - ResolveDBusConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusConnectionMethod "unregisterObject" o = DBusConnectionUnregisterObjectMethodInfo - ResolveDBusConnectionMethod "unregisterSubtree" o = DBusConnectionUnregisterSubtreeMethodInfo - ResolveDBusConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusConnectionMethod "getCapabilities" o = DBusConnectionGetCapabilitiesMethodInfo - ResolveDBusConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusConnectionMethod "getExitOnClose" o = DBusConnectionGetExitOnCloseMethodInfo - ResolveDBusConnectionMethod "getGuid" o = DBusConnectionGetGuidMethodInfo - ResolveDBusConnectionMethod "getLastSerial" o = DBusConnectionGetLastSerialMethodInfo - ResolveDBusConnectionMethod "getPeerCredentials" o = DBusConnectionGetPeerCredentialsMethodInfo - ResolveDBusConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusConnectionMethod "getStream" o = DBusConnectionGetStreamMethodInfo - ResolveDBusConnectionMethod "getUniqueName" o = DBusConnectionGetUniqueNameMethodInfo - ResolveDBusConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusConnectionMethod "setExitOnClose" o = DBusConnectionSetExitOnCloseMethodInfo - ResolveDBusConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusConnectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusConnectionMethod t DBusConnection, MethodInfo info DBusConnection p) => IsLabelProxy t (DBusConnection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusConnectionMethod t DBusConnection, MethodInfo info DBusConnection p) => IsLabel t (DBusConnection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal DBusConnection::closed -type DBusConnectionClosedCallback = - Bool -> - Maybe GError -> - IO () - -noDBusConnectionClosedCallback :: Maybe DBusConnectionClosedCallback -noDBusConnectionClosedCallback = Nothing - -type DBusConnectionClosedCallbackC = - Ptr () -> -- object - CInt -> - Ptr GError -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDBusConnectionClosedCallback :: DBusConnectionClosedCallbackC -> IO (FunPtr DBusConnectionClosedCallbackC) - -dBusConnectionClosedClosure :: DBusConnectionClosedCallback -> IO Closure -dBusConnectionClosedClosure cb = newCClosure =<< mkDBusConnectionClosedCallback wrapped - where wrapped = dBusConnectionClosedCallbackWrapper cb - -dBusConnectionClosedCallbackWrapper :: - DBusConnectionClosedCallback -> - Ptr () -> - CInt -> - Ptr GError -> - Ptr () -> - IO () -dBusConnectionClosedCallbackWrapper _cb _ remotePeerVanished error_ _ = do - let remotePeerVanished' = (/= 0) remotePeerVanished - maybeError_ <- - if error_ == nullPtr - then return Nothing - else do - error_' <- (newBoxed GError) error_ - return $ Just error_' - _cb remotePeerVanished' maybeError_ - -onDBusConnectionClosed :: (GObject a, MonadIO m) => a -> DBusConnectionClosedCallback -> m SignalHandlerId -onDBusConnectionClosed obj cb = liftIO $ connectDBusConnectionClosed obj cb SignalConnectBefore -afterDBusConnectionClosed :: (GObject a, MonadIO m) => a -> DBusConnectionClosedCallback -> m SignalHandlerId -afterDBusConnectionClosed obj cb = connectDBusConnectionClosed obj cb SignalConnectAfter - -connectDBusConnectionClosed :: (GObject a, MonadIO m) => - a -> DBusConnectionClosedCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusConnectionClosed obj cb after = liftIO $ do - cb' <- mkDBusConnectionClosedCallback (dBusConnectionClosedCallbackWrapper cb) - connectSignalFunPtr obj "closed" cb' after - --- VVV Prop "address" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructDBusConnectionAddress :: T.Text -> IO ([Char], GValue) -constructDBusConnectionAddress val = constructObjectPropertyString "address" (Just val) - -data DBusConnectionAddressPropertyInfo -instance AttrInfo DBusConnectionAddressPropertyInfo where - type AttrAllowedOps DBusConnectionAddressPropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint DBusConnectionAddressPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DBusConnectionAddressPropertyInfo = DBusConnectionK - type AttrGetType DBusConnectionAddressPropertyInfo = () - type AttrLabel DBusConnectionAddressPropertyInfo = "address" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructDBusConnectionAddress - attrClear _ = undefined - --- VVV Prop "authentication-observer" - -- Type: TInterface "Gio" "DBusAuthObserver" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructDBusConnectionAuthenticationObserver :: (DBusAuthObserverK a) => a -> IO ([Char], GValue) -constructDBusConnectionAuthenticationObserver val = constructObjectPropertyObject "authentication-observer" (Just val) - -data DBusConnectionAuthenticationObserverPropertyInfo -instance AttrInfo DBusConnectionAuthenticationObserverPropertyInfo where - type AttrAllowedOps DBusConnectionAuthenticationObserverPropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint DBusConnectionAuthenticationObserverPropertyInfo = DBusAuthObserverK - type AttrBaseTypeConstraint DBusConnectionAuthenticationObserverPropertyInfo = DBusConnectionK - type AttrGetType DBusConnectionAuthenticationObserverPropertyInfo = () - type AttrLabel DBusConnectionAuthenticationObserverPropertyInfo = "authentication-observer" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructDBusConnectionAuthenticationObserver - attrClear _ = undefined - --- VVV Prop "capabilities" - -- Type: TInterface "Gio" "DBusCapabilityFlags" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDBusConnectionCapabilities :: (MonadIO m, DBusConnectionK o) => o -> m [DBusCapabilityFlags] -getDBusConnectionCapabilities obj = liftIO $ getObjectPropertyFlags obj "capabilities" - -data DBusConnectionCapabilitiesPropertyInfo -instance AttrInfo DBusConnectionCapabilitiesPropertyInfo where - type AttrAllowedOps DBusConnectionCapabilitiesPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DBusConnectionCapabilitiesPropertyInfo = (~) () - type AttrBaseTypeConstraint DBusConnectionCapabilitiesPropertyInfo = DBusConnectionK - type AttrGetType DBusConnectionCapabilitiesPropertyInfo = [DBusCapabilityFlags] - type AttrLabel DBusConnectionCapabilitiesPropertyInfo = "capabilities" - attrGet _ = getDBusConnectionCapabilities - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "closed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDBusConnectionClosed :: (MonadIO m, DBusConnectionK o) => o -> m Bool -getDBusConnectionClosed obj = liftIO $ getObjectPropertyBool obj "closed" - -data DBusConnectionClosedPropertyInfo -instance AttrInfo DBusConnectionClosedPropertyInfo where - type AttrAllowedOps DBusConnectionClosedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DBusConnectionClosedPropertyInfo = (~) () - type AttrBaseTypeConstraint DBusConnectionClosedPropertyInfo = DBusConnectionK - type AttrGetType DBusConnectionClosedPropertyInfo = Bool - type AttrLabel DBusConnectionClosedPropertyInfo = "closed" - attrGet _ = getDBusConnectionClosed - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "exit-on-close" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDBusConnectionExitOnClose :: (MonadIO m, DBusConnectionK o) => o -> m Bool -getDBusConnectionExitOnClose obj = liftIO $ getObjectPropertyBool obj "exit-on-close" - -setDBusConnectionExitOnClose :: (MonadIO m, DBusConnectionK o) => o -> Bool -> m () -setDBusConnectionExitOnClose obj val = liftIO $ setObjectPropertyBool obj "exit-on-close" val - -constructDBusConnectionExitOnClose :: Bool -> IO ([Char], GValue) -constructDBusConnectionExitOnClose val = constructObjectPropertyBool "exit-on-close" val - -data DBusConnectionExitOnClosePropertyInfo -instance AttrInfo DBusConnectionExitOnClosePropertyInfo where - type AttrAllowedOps DBusConnectionExitOnClosePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DBusConnectionExitOnClosePropertyInfo = (~) Bool - type AttrBaseTypeConstraint DBusConnectionExitOnClosePropertyInfo = DBusConnectionK - type AttrGetType DBusConnectionExitOnClosePropertyInfo = Bool - type AttrLabel DBusConnectionExitOnClosePropertyInfo = "exit-on-close" - attrGet _ = getDBusConnectionExitOnClose - attrSet _ = setDBusConnectionExitOnClose - attrConstruct _ = constructDBusConnectionExitOnClose - attrClear _ = undefined - --- VVV Prop "flags" - -- Type: TInterface "Gio" "DBusConnectionFlags" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructDBusConnectionFlags :: [DBusConnectionFlags] -> IO ([Char], GValue) -constructDBusConnectionFlags val = constructObjectPropertyFlags "flags" val - -data DBusConnectionFlagsPropertyInfo -instance AttrInfo DBusConnectionFlagsPropertyInfo where - type AttrAllowedOps DBusConnectionFlagsPropertyInfo = '[ 'AttrConstruct] - type AttrSetTypeConstraint DBusConnectionFlagsPropertyInfo = (~) [DBusConnectionFlags] - type AttrBaseTypeConstraint DBusConnectionFlagsPropertyInfo = DBusConnectionK - type AttrGetType DBusConnectionFlagsPropertyInfo = () - type AttrLabel DBusConnectionFlagsPropertyInfo = "flags" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructDBusConnectionFlags - attrClear _ = undefined - --- VVV Prop "guid" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getDBusConnectionGuid :: (MonadIO m, DBusConnectionK o) => o -> m T.Text -getDBusConnectionGuid obj = liftIO $ checkUnexpectedNothing "getDBusConnectionGuid" $ getObjectPropertyString obj "guid" - -constructDBusConnectionGuid :: T.Text -> IO ([Char], GValue) -constructDBusConnectionGuid val = constructObjectPropertyString "guid" (Just val) - -data DBusConnectionGuidPropertyInfo -instance AttrInfo DBusConnectionGuidPropertyInfo where - type AttrAllowedOps DBusConnectionGuidPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusConnectionGuidPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DBusConnectionGuidPropertyInfo = DBusConnectionK - type AttrGetType DBusConnectionGuidPropertyInfo = T.Text - type AttrLabel DBusConnectionGuidPropertyInfo = "guid" - attrGet _ = getDBusConnectionGuid - attrSet _ = undefined - attrConstruct _ = constructDBusConnectionGuid - attrClear _ = undefined - --- VVV Prop "stream" - -- Type: TInterface "Gio" "IOStream" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getDBusConnectionStream :: (MonadIO m, DBusConnectionK o) => o -> m IOStream -getDBusConnectionStream obj = liftIO $ checkUnexpectedNothing "getDBusConnectionStream" $ getObjectPropertyObject obj "stream" IOStream - -constructDBusConnectionStream :: (IOStreamK a) => a -> IO ([Char], GValue) -constructDBusConnectionStream val = constructObjectPropertyObject "stream" (Just val) - -data DBusConnectionStreamPropertyInfo -instance AttrInfo DBusConnectionStreamPropertyInfo where - type AttrAllowedOps DBusConnectionStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusConnectionStreamPropertyInfo = IOStreamK - type AttrBaseTypeConstraint DBusConnectionStreamPropertyInfo = DBusConnectionK - type AttrGetType DBusConnectionStreamPropertyInfo = IOStream - type AttrLabel DBusConnectionStreamPropertyInfo = "stream" - attrGet _ = getDBusConnectionStream - attrSet _ = undefined - attrConstruct _ = constructDBusConnectionStream - attrClear _ = undefined - --- VVV Prop "unique-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDBusConnectionUniqueName :: (MonadIO m, DBusConnectionK o) => o -> m T.Text -getDBusConnectionUniqueName obj = liftIO $ checkUnexpectedNothing "getDBusConnectionUniqueName" $ getObjectPropertyString obj "unique-name" - -data DBusConnectionUniqueNamePropertyInfo -instance AttrInfo DBusConnectionUniqueNamePropertyInfo where - type AttrAllowedOps DBusConnectionUniqueNamePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusConnectionUniqueNamePropertyInfo = (~) () - type AttrBaseTypeConstraint DBusConnectionUniqueNamePropertyInfo = DBusConnectionK - type AttrGetType DBusConnectionUniqueNamePropertyInfo = T.Text - type AttrLabel DBusConnectionUniqueNamePropertyInfo = "unique-name" - attrGet _ = getDBusConnectionUniqueName - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DBusConnection = DBusConnectionAttributeList -type DBusConnectionAttributeList = ('[ '("address", DBusConnectionAddressPropertyInfo), '("authenticationObserver", DBusConnectionAuthenticationObserverPropertyInfo), '("capabilities", DBusConnectionCapabilitiesPropertyInfo), '("closed", DBusConnectionClosedPropertyInfo), '("exitOnClose", DBusConnectionExitOnClosePropertyInfo), '("flags", DBusConnectionFlagsPropertyInfo), '("guid", DBusConnectionGuidPropertyInfo), '("stream", DBusConnectionStreamPropertyInfo), '("uniqueName", DBusConnectionUniqueNamePropertyInfo)] :: [(Symbol, *)]) - -dBusConnectionAddress :: AttrLabelProxy "address" -dBusConnectionAddress = AttrLabelProxy - -dBusConnectionAuthenticationObserver :: AttrLabelProxy "authenticationObserver" -dBusConnectionAuthenticationObserver = AttrLabelProxy - -dBusConnectionCapabilities :: AttrLabelProxy "capabilities" -dBusConnectionCapabilities = AttrLabelProxy - -dBusConnectionClosed :: AttrLabelProxy "closed" -dBusConnectionClosed = AttrLabelProxy - -dBusConnectionExitOnClose :: AttrLabelProxy "exitOnClose" -dBusConnectionExitOnClose = AttrLabelProxy - -dBusConnectionFlags :: AttrLabelProxy "flags" -dBusConnectionFlags = AttrLabelProxy - -dBusConnectionGuid :: AttrLabelProxy "guid" -dBusConnectionGuid = AttrLabelProxy - -dBusConnectionStream :: AttrLabelProxy "stream" -dBusConnectionStream = AttrLabelProxy - -dBusConnectionUniqueName :: AttrLabelProxy "uniqueName" -dBusConnectionUniqueName = AttrLabelProxy - -data DBusConnectionClosedSignalInfo -instance SignalInfo DBusConnectionClosedSignalInfo where - type HaskellCallbackType DBusConnectionClosedSignalInfo = DBusConnectionClosedCallback - connectSignal _ = connectDBusConnectionClosed - -type instance SignalList DBusConnection = DBusConnectionSignalList -type DBusConnectionSignalList = ('[ '("closed", DBusConnectionClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DBusConnection::new_finish --- method type : Constructor --- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_new_finish" g_dbus_connection_new_finish :: - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusConnection) - - -dBusConnectionNewFinish :: - (MonadIO m, AsyncResultK a) => - a -- res - -> m DBusConnection -- result -dBusConnectionNewFinish res = liftIO $ do - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_dbus_connection_new_finish res' - checkUnexpectedReturnNULL "g_dbus_connection_new_finish" result - result' <- (wrapObject DBusConnection) result - touchManagedPtr res - return result' - ) (do - return () - ) - --- method DBusConnection::new_for_address_finish --- method type : Constructor --- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_new_for_address_finish" g_dbus_connection_new_for_address_finish :: - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusConnection) - - -dBusConnectionNewForAddressFinish :: - (MonadIO m, AsyncResultK a) => - a -- res - -> m DBusConnection -- result -dBusConnectionNewForAddressFinish res = liftIO $ do - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_dbus_connection_new_for_address_finish res' - checkUnexpectedReturnNULL "g_dbus_connection_new_for_address_finish" result - result' <- (wrapObject DBusConnection) result - touchManagedPtr res - return result' - ) (do - return () - ) - --- method DBusConnection::new_for_address_sync --- method type : Constructor --- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "observer", argType = TInterface "Gio" "DBusAuthObserver", 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 : Just (TInterface "Gio" "DBusConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_new_for_address_sync" g_dbus_connection_new_for_address_sync :: - CString -> -- address : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "DBusConnectionFlags" - Ptr DBusAuthObserver -> -- observer : TInterface "Gio" "DBusAuthObserver" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusConnection) - - -dBusConnectionNewForAddressSync :: - (MonadIO m, DBusAuthObserverK a, CancellableK b) => - T.Text -- address - -> [DBusConnectionFlags] -- flags - -> Maybe (a) -- observer - -> Maybe (b) -- cancellable - -> m DBusConnection -- result -dBusConnectionNewForAddressSync address flags observer cancellable = liftIO $ do - address' <- textToCString address - let flags' = gflagsToWord flags - maybeObserver <- case observer of - Nothing -> return nullPtr - Just jObserver -> do - let jObserver' = unsafeManagedPtrCastPtr jObserver - return jObserver' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_dbus_connection_new_for_address_sync address' flags' maybeObserver maybeCancellable - checkUnexpectedReturnNULL "g_dbus_connection_new_for_address_sync" result - result' <- (wrapObject DBusConnection) result - whenJust observer touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem address' - return result' - ) (do - freeMem address' - ) - --- method DBusConnection::new_sync --- method type : Constructor --- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "observer", argType = TInterface "Gio" "DBusAuthObserver", 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 : Just (TInterface "Gio" "DBusConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_new_sync" g_dbus_connection_new_sync :: - Ptr IOStream -> -- stream : TInterface "Gio" "IOStream" - CString -> -- guid : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "DBusConnectionFlags" - Ptr DBusAuthObserver -> -- observer : TInterface "Gio" "DBusAuthObserver" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusConnection) - - -dBusConnectionNewSync :: - (MonadIO m, IOStreamK a, DBusAuthObserverK b, CancellableK c) => - a -- stream - -> Maybe (T.Text) -- guid - -> [DBusConnectionFlags] -- flags - -> Maybe (b) -- observer - -> Maybe (c) -- cancellable - -> m DBusConnection -- result -dBusConnectionNewSync stream guid flags observer cancellable = liftIO $ do - let stream' = unsafeManagedPtrCastPtr stream - maybeGuid <- case guid of - Nothing -> return nullPtr - Just jGuid -> do - jGuid' <- textToCString jGuid - return jGuid' - let flags' = gflagsToWord flags - maybeObserver <- case observer of - Nothing -> return nullPtr - Just jObserver -> do - let jObserver' = unsafeManagedPtrCastPtr jObserver - return jObserver' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_dbus_connection_new_sync stream' maybeGuid flags' maybeObserver maybeCancellable - checkUnexpectedReturnNULL "g_dbus_connection_new_sync" result - result' <- (wrapObject DBusConnection) result - touchManagedPtr stream - whenJust observer touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem maybeGuid - return result' - ) (do - freeMem maybeGuid - ) - --- method DBusConnection::add_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_function", argType = TInterface "Gio" "DBusMessageFilterFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_add_filter" g_dbus_connection_add_filter :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - FunPtr DBusMessageFilterFunctionC -> -- filter_function : TInterface "Gio" "DBusMessageFilterFunction" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- user_data_free_func : TInterface "GLib" "DestroyNotify" - IO Word32 - - -dBusConnectionAddFilter :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> DBusMessageFilterFunction -- filterFunction - -> m Word32 -- result -dBusConnectionAddFilter _obj filterFunction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filterFunction' <- mkDBusMessageFilterFunction (dBusMessageFilterFunctionWrapper Nothing filterFunction) - let userData = castFunPtrToPtr filterFunction' - let userDataFreeFunc = safeFreeFunPtrPtr - result <- g_dbus_connection_add_filter _obj' filterFunction' userData userDataFreeFunc - touchManagedPtr _obj - return result - -data DBusConnectionAddFilterMethodInfo -instance (signature ~ (DBusMessageFilterFunction -> m Word32), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionAddFilterMethodInfo a signature where - overloadedMethod _ = dBusConnectionAddFilter - --- method DBusConnection::call --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, 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 = 11, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_call" g_dbus_connection_call :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - CString -> -- bus_name : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - CString -> -- interface_name : TBasicType TUTF8 - CString -> -- method_name : TBasicType TUTF8 - Ptr GVariant -> -- parameters : TVariant - Ptr GLib.VariantType -> -- reply_type : TInterface "GLib" "VariantType" - CUInt -> -- flags : TInterface "Gio" "DBusCallFlags" - Int32 -> -- timeout_msec : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dBusConnectionCall :: - (MonadIO m, DBusConnectionK a, CancellableK b) => - a -- _obj - -> Maybe (T.Text) -- busName - -> T.Text -- objectPath - -> T.Text -- interfaceName - -> T.Text -- methodName - -> Maybe (GVariant) -- parameters - -> Maybe (GLib.VariantType) -- replyType - -> [DBusCallFlags] -- flags - -> Int32 -- timeoutMsec - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -dBusConnectionCall _obj busName objectPath interfaceName methodName parameters replyType flags timeoutMsec cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeBusName <- case busName of - Nothing -> return nullPtr - Just jBusName -> do - jBusName' <- textToCString jBusName - return jBusName' - objectPath' <- textToCString objectPath - interfaceName' <- textToCString interfaceName - methodName' <- textToCString methodName - maybeParameters <- case parameters of - Nothing -> return nullPtr - Just jParameters -> do - let jParameters' = unsafeManagedPtrGetPtr jParameters - return jParameters' - maybeReplyType <- case replyType of - Nothing -> return nullPtr - Just jReplyType -> do - let jReplyType' = unsafeManagedPtrGetPtr jReplyType - return jReplyType' - let flags' = gflagsToWord flags - 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_connection_call _obj' maybeBusName objectPath' interfaceName' methodName' maybeParameters maybeReplyType flags' timeoutMsec maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust replyType touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem maybeBusName - freeMem objectPath' - freeMem interfaceName' - freeMem methodName' - return () - -data DBusConnectionCallMethodInfo -instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> Maybe (GLib.VariantType) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DBusConnectionK a, CancellableK b) => MethodInfo DBusConnectionCallMethodInfo a signature where - overloadedMethod _ = dBusConnectionCall - --- method DBusConnection::call_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_call_finish" g_dbus_connection_call_finish :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr GVariant) - - -dBusConnectionCallFinish :: - (MonadIO m, DBusConnectionK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m GVariant -- result -dBusConnectionCallFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_dbus_connection_call_finish _obj' res' - checkUnexpectedReturnNULL "g_dbus_connection_call_finish" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data DBusConnectionCallFinishMethodInfo -instance (signature ~ (b -> m GVariant), MonadIO m, DBusConnectionK a, AsyncResultK b) => MethodInfo DBusConnectionCallFinishMethodInfo a signature where - overloadedMethod _ = dBusConnectionCallFinish - --- method DBusConnection::call_sync --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, 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 : Just TVariant --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_call_sync" g_dbus_connection_call_sync :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - CString -> -- bus_name : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - CString -> -- interface_name : TBasicType TUTF8 - CString -> -- method_name : TBasicType TUTF8 - Ptr GVariant -> -- parameters : TVariant - Ptr GLib.VariantType -> -- reply_type : TInterface "GLib" "VariantType" - CUInt -> -- flags : TInterface "Gio" "DBusCallFlags" - Int32 -> -- timeout_msec : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr GVariant) - - -dBusConnectionCallSync :: - (MonadIO m, DBusConnectionK a, CancellableK b) => - a -- _obj - -> Maybe (T.Text) -- busName - -> T.Text -- objectPath - -> T.Text -- interfaceName - -> T.Text -- methodName - -> Maybe (GVariant) -- parameters - -> Maybe (GLib.VariantType) -- replyType - -> [DBusCallFlags] -- flags - -> Int32 -- timeoutMsec - -> Maybe (b) -- cancellable - -> m GVariant -- result -dBusConnectionCallSync _obj busName objectPath interfaceName methodName parameters replyType flags timeoutMsec cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeBusName <- case busName of - Nothing -> return nullPtr - Just jBusName -> do - jBusName' <- textToCString jBusName - return jBusName' - objectPath' <- textToCString objectPath - interfaceName' <- textToCString interfaceName - methodName' <- textToCString methodName - maybeParameters <- case parameters of - Nothing -> return nullPtr - Just jParameters -> do - let jParameters' = unsafeManagedPtrGetPtr jParameters - return jParameters' - maybeReplyType <- case replyType of - Nothing -> return nullPtr - Just jReplyType -> do - let jReplyType' = unsafeManagedPtrGetPtr jReplyType - return jReplyType' - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_dbus_connection_call_sync _obj' maybeBusName objectPath' interfaceName' methodName' maybeParameters maybeReplyType flags' timeoutMsec maybeCancellable - checkUnexpectedReturnNULL "g_dbus_connection_call_sync" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - whenJust replyType touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem maybeBusName - freeMem objectPath' - freeMem interfaceName' - freeMem methodName' - return result' - ) (do - freeMem maybeBusName - freeMem objectPath' - freeMem interfaceName' - freeMem methodName' - ) - -data DBusConnectionCallSyncMethodInfo -instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> Maybe (GLib.VariantType) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> m GVariant), MonadIO m, DBusConnectionK a, CancellableK b) => MethodInfo DBusConnectionCallSyncMethodInfo a signature where - overloadedMethod _ = dBusConnectionCallSync - --- method DBusConnection::call_with_unix_fd_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface "Gio" "UnixFDList", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 12, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_call_with_unix_fd_list" g_dbus_connection_call_with_unix_fd_list :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - CString -> -- bus_name : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - CString -> -- interface_name : TBasicType TUTF8 - CString -> -- method_name : TBasicType TUTF8 - Ptr GVariant -> -- parameters : TVariant - Ptr GLib.VariantType -> -- reply_type : TInterface "GLib" "VariantType" - CUInt -> -- flags : TInterface "Gio" "DBusCallFlags" - Int32 -> -- timeout_msec : TBasicType TInt - Ptr UnixFDList -> -- fd_list : TInterface "Gio" "UnixFDList" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dBusConnectionCallWithUnixFdList :: - (MonadIO m, DBusConnectionK a, UnixFDListK b, CancellableK c) => - a -- _obj - -> Maybe (T.Text) -- busName - -> T.Text -- objectPath - -> T.Text -- interfaceName - -> T.Text -- methodName - -> Maybe (GVariant) -- parameters - -> Maybe (GLib.VariantType) -- replyType - -> [DBusCallFlags] -- flags - -> Int32 -- timeoutMsec - -> Maybe (b) -- fdList - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -dBusConnectionCallWithUnixFdList _obj busName objectPath interfaceName methodName parameters replyType flags timeoutMsec fdList cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeBusName <- case busName of - Nothing -> return nullPtr - Just jBusName -> do - jBusName' <- textToCString jBusName - return jBusName' - objectPath' <- textToCString objectPath - interfaceName' <- textToCString interfaceName - methodName' <- textToCString methodName - maybeParameters <- case parameters of - Nothing -> return nullPtr - Just jParameters -> do - let jParameters' = unsafeManagedPtrGetPtr jParameters - return jParameters' - maybeReplyType <- case replyType of - Nothing -> return nullPtr - Just jReplyType -> do - let jReplyType' = unsafeManagedPtrGetPtr jReplyType - return jReplyType' - let flags' = gflagsToWord flags - maybeFdList <- case fdList of - Nothing -> return nullPtr - Just jFdList -> do - let jFdList' = unsafeManagedPtrCastPtr jFdList - return jFdList' - 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_connection_call_with_unix_fd_list _obj' maybeBusName objectPath' interfaceName' methodName' maybeParameters maybeReplyType flags' timeoutMsec maybeFdList maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust replyType touchManagedPtr - whenJust fdList touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem maybeBusName - freeMem objectPath' - freeMem interfaceName' - freeMem methodName' - return () - -data DBusConnectionCallWithUnixFdListMethodInfo -instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> Maybe (GLib.VariantType) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DBusConnectionK a, UnixFDListK b, CancellableK c) => MethodInfo DBusConnectionCallWithUnixFdListMethodInfo a signature where - overloadedMethod _ = dBusConnectionCallWithUnixFdList - --- method DBusConnection::call_with_unix_fd_list_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_call_with_unix_fd_list_finish" g_dbus_connection_call_with_unix_fd_list_finish :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Ptr (Ptr UnixFDList) -> -- out_fd_list : TInterface "Gio" "UnixFDList" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr GVariant) - - -dBusConnectionCallWithUnixFdListFinish :: - (MonadIO m, DBusConnectionK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m (GVariant,UnixFDList) -- result -dBusConnectionCallWithUnixFdListFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - outFdList <- allocMem :: IO (Ptr (Ptr UnixFDList)) - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_dbus_connection_call_with_unix_fd_list_finish _obj' outFdList res' - checkUnexpectedReturnNULL "g_dbus_connection_call_with_unix_fd_list_finish" result - result' <- wrapGVariantPtr result - outFdList' <- peek outFdList - outFdList'' <- (wrapObject UnixFDList) outFdList' - touchManagedPtr _obj - touchManagedPtr res - freeMem outFdList - return (result', outFdList'') - ) (do - freeMem outFdList - ) - -data DBusConnectionCallWithUnixFdListFinishMethodInfo -instance (signature ~ (b -> m (GVariant,UnixFDList)), MonadIO m, DBusConnectionK a, AsyncResultK b) => MethodInfo DBusConnectionCallWithUnixFdListFinishMethodInfo a signature where - overloadedMethod _ = dBusConnectionCallWithUnixFdListFinish - --- method DBusConnection::call_with_unix_fd_list_sync --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reply_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_fd_list", argType = TInterface "Gio" "UnixFDList", 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 : [] --- returnType : Just TVariant --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_call_with_unix_fd_list_sync" g_dbus_connection_call_with_unix_fd_list_sync :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - CString -> -- bus_name : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - CString -> -- interface_name : TBasicType TUTF8 - CString -> -- method_name : TBasicType TUTF8 - Ptr GVariant -> -- parameters : TVariant - Ptr GLib.VariantType -> -- reply_type : TInterface "GLib" "VariantType" - CUInt -> -- flags : TInterface "Gio" "DBusCallFlags" - Int32 -> -- timeout_msec : TBasicType TInt - Ptr UnixFDList -> -- fd_list : TInterface "Gio" "UnixFDList" - Ptr (Ptr UnixFDList) -> -- out_fd_list : TInterface "Gio" "UnixFDList" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr GVariant) - - -dBusConnectionCallWithUnixFdListSync :: - (MonadIO m, DBusConnectionK a, UnixFDListK b, CancellableK c) => - a -- _obj - -> Maybe (T.Text) -- busName - -> T.Text -- objectPath - -> T.Text -- interfaceName - -> T.Text -- methodName - -> Maybe (GVariant) -- parameters - -> Maybe (GLib.VariantType) -- replyType - -> [DBusCallFlags] -- flags - -> Int32 -- timeoutMsec - -> Maybe (b) -- fdList - -> Maybe (c) -- cancellable - -> m (GVariant,UnixFDList) -- result -dBusConnectionCallWithUnixFdListSync _obj busName objectPath interfaceName methodName parameters replyType flags timeoutMsec fdList cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeBusName <- case busName of - Nothing -> return nullPtr - Just jBusName -> do - jBusName' <- textToCString jBusName - return jBusName' - objectPath' <- textToCString objectPath - interfaceName' <- textToCString interfaceName - methodName' <- textToCString methodName - maybeParameters <- case parameters of - Nothing -> return nullPtr - Just jParameters -> do - let jParameters' = unsafeManagedPtrGetPtr jParameters - return jParameters' - maybeReplyType <- case replyType of - Nothing -> return nullPtr - Just jReplyType -> do - let jReplyType' = unsafeManagedPtrGetPtr jReplyType - return jReplyType' - let flags' = gflagsToWord flags - maybeFdList <- case fdList of - Nothing -> return nullPtr - Just jFdList -> do - let jFdList' = unsafeManagedPtrCastPtr jFdList - return jFdList' - outFdList <- allocMem :: IO (Ptr (Ptr UnixFDList)) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_dbus_connection_call_with_unix_fd_list_sync _obj' maybeBusName objectPath' interfaceName' methodName' maybeParameters maybeReplyType flags' timeoutMsec maybeFdList outFdList maybeCancellable - checkUnexpectedReturnNULL "g_dbus_connection_call_with_unix_fd_list_sync" result - result' <- wrapGVariantPtr result - outFdList' <- peek outFdList - outFdList'' <- (wrapObject UnixFDList) outFdList' - touchManagedPtr _obj - whenJust replyType touchManagedPtr - whenJust fdList touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem maybeBusName - freeMem objectPath' - freeMem interfaceName' - freeMem methodName' - freeMem outFdList - return (result', outFdList'') - ) (do - freeMem maybeBusName - freeMem objectPath' - freeMem interfaceName' - freeMem methodName' - freeMem outFdList - ) - -data DBusConnectionCallWithUnixFdListSyncMethodInfo -instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> Maybe (GLib.VariantType) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (c) -> m (GVariant,UnixFDList)), MonadIO m, DBusConnectionK a, UnixFDListK b, CancellableK c) => MethodInfo DBusConnectionCallWithUnixFdListSyncMethodInfo a signature where - overloadedMethod _ = dBusConnectionCallWithUnixFdListSync - --- method DBusConnection::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_close" g_dbus_connection_close :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dBusConnectionClose :: - (MonadIO m, DBusConnectionK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -dBusConnectionClose _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_connection_close _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data DBusConnectionCloseMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DBusConnectionK a, CancellableK b) => MethodInfo DBusConnectionCloseMethodInfo a signature where - overloadedMethod _ = dBusConnectionClose - --- method DBusConnection::close_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_close_finish" g_dbus_connection_close_finish :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -dBusConnectionCloseFinish :: - (MonadIO m, DBusConnectionK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m () -- result -dBusConnectionCloseFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - _ <- propagateGError $ g_dbus_connection_close_finish _obj' res' - touchManagedPtr _obj - touchManagedPtr res - return () - ) (do - return () - ) - -data DBusConnectionCloseFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DBusConnectionK a, AsyncResultK b) => MethodInfo DBusConnectionCloseFinishMethodInfo a signature where - overloadedMethod _ = dBusConnectionCloseFinish - --- method DBusConnection::close_sync --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_close_sync" g_dbus_connection_close_sync :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -dBusConnectionCloseSync :: - (MonadIO m, DBusConnectionK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -dBusConnectionCloseSync _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_dbus_connection_close_sync _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data DBusConnectionCloseSyncMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, DBusConnectionK a, CancellableK b) => MethodInfo DBusConnectionCloseSyncMethodInfo a signature where - overloadedMethod _ = dBusConnectionCloseSync - --- method DBusConnection::emit_signal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destination_bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_emit_signal" g_dbus_connection_emit_signal :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - CString -> -- destination_bus_name : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - CString -> -- interface_name : TBasicType TUTF8 - CString -> -- signal_name : TBasicType TUTF8 - Ptr GVariant -> -- parameters : TVariant - Ptr (Ptr GError) -> -- error - IO CInt - - -dBusConnectionEmitSignal :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> Maybe (T.Text) -- destinationBusName - -> T.Text -- objectPath - -> T.Text -- interfaceName - -> T.Text -- signalName - -> Maybe (GVariant) -- parameters - -> m () -- result -dBusConnectionEmitSignal _obj destinationBusName objectPath interfaceName signalName parameters = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeDestinationBusName <- case destinationBusName of - Nothing -> return nullPtr - Just jDestinationBusName -> do - jDestinationBusName' <- textToCString jDestinationBusName - return jDestinationBusName' - objectPath' <- textToCString objectPath - interfaceName' <- textToCString interfaceName - signalName' <- textToCString signalName - maybeParameters <- case parameters of - Nothing -> return nullPtr - Just jParameters -> do - let jParameters' = unsafeManagedPtrGetPtr jParameters - return jParameters' - onException (do - _ <- propagateGError $ g_dbus_connection_emit_signal _obj' maybeDestinationBusName objectPath' interfaceName' signalName' maybeParameters - touchManagedPtr _obj - freeMem maybeDestinationBusName - freeMem objectPath' - freeMem interfaceName' - freeMem signalName' - return () - ) (do - freeMem maybeDestinationBusName - freeMem objectPath' - freeMem interfaceName' - freeMem signalName' - ) - -data DBusConnectionEmitSignalMethodInfo -instance (signature ~ (Maybe (T.Text) -> T.Text -> T.Text -> T.Text -> Maybe (GVariant) -> m ()), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionEmitSignalMethodInfo a signature where - overloadedMethod _ = dBusConnectionEmitSignal - --- method DBusConnection::export_action_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_group", argType = TInterface "Gio" "ActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_export_action_group" g_dbus_connection_export_action_group :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - CString -> -- object_path : TBasicType TUTF8 - Ptr ActionGroup -> -- action_group : TInterface "Gio" "ActionGroup" - Ptr (Ptr GError) -> -- error - IO Word32 - - -dBusConnectionExportActionGroup :: - (MonadIO m, DBusConnectionK a, ActionGroupK b) => - a -- _obj - -> T.Text -- objectPath - -> b -- actionGroup - -> m Word32 -- result -dBusConnectionExportActionGroup _obj objectPath actionGroup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - objectPath' <- textToCString objectPath - let actionGroup' = unsafeManagedPtrCastPtr actionGroup - onException (do - result <- propagateGError $ g_dbus_connection_export_action_group _obj' objectPath' actionGroup' - touchManagedPtr _obj - touchManagedPtr actionGroup - freeMem objectPath' - return result - ) (do - freeMem objectPath' - ) - -data DBusConnectionExportActionGroupMethodInfo -instance (signature ~ (T.Text -> b -> m Word32), MonadIO m, DBusConnectionK a, ActionGroupK b) => MethodInfo DBusConnectionExportActionGroupMethodInfo a signature where - overloadedMethod _ = dBusConnectionExportActionGroup - --- method DBusConnection::export_menu_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "menu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_export_menu_model" g_dbus_connection_export_menu_model :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - CString -> -- object_path : TBasicType TUTF8 - Ptr MenuModel -> -- menu : TInterface "Gio" "MenuModel" - Ptr (Ptr GError) -> -- error - IO Word32 - - -dBusConnectionExportMenuModel :: - (MonadIO m, DBusConnectionK a, MenuModelK b) => - a -- _obj - -> T.Text -- objectPath - -> b -- menu - -> m Word32 -- result -dBusConnectionExportMenuModel _obj objectPath menu = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - objectPath' <- textToCString objectPath - let menu' = unsafeManagedPtrCastPtr menu - onException (do - result <- propagateGError $ g_dbus_connection_export_menu_model _obj' objectPath' menu' - touchManagedPtr _obj - touchManagedPtr menu - freeMem objectPath' - return result - ) (do - freeMem objectPath' - ) - -data DBusConnectionExportMenuModelMethodInfo -instance (signature ~ (T.Text -> b -> m Word32), MonadIO m, DBusConnectionK a, MenuModelK b) => MethodInfo DBusConnectionExportMenuModelMethodInfo a signature where - overloadedMethod _ = dBusConnectionExportMenuModel - --- method DBusConnection::flush --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_flush" g_dbus_connection_flush :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dBusConnectionFlush :: - (MonadIO m, DBusConnectionK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -dBusConnectionFlush _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_connection_flush _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data DBusConnectionFlushMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DBusConnectionK a, CancellableK b) => MethodInfo DBusConnectionFlushMethodInfo a signature where - overloadedMethod _ = dBusConnectionFlush - --- method DBusConnection::flush_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_flush_finish" g_dbus_connection_flush_finish :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -dBusConnectionFlushFinish :: - (MonadIO m, DBusConnectionK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m () -- result -dBusConnectionFlushFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - _ <- propagateGError $ g_dbus_connection_flush_finish _obj' res' - touchManagedPtr _obj - touchManagedPtr res - return () - ) (do - return () - ) - -data DBusConnectionFlushFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DBusConnectionK a, AsyncResultK b) => MethodInfo DBusConnectionFlushFinishMethodInfo a signature where - overloadedMethod _ = dBusConnectionFlushFinish - --- method DBusConnection::flush_sync --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_flush_sync" g_dbus_connection_flush_sync :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -dBusConnectionFlushSync :: - (MonadIO m, DBusConnectionK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -dBusConnectionFlushSync _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_dbus_connection_flush_sync _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data DBusConnectionFlushSyncMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, DBusConnectionK a, CancellableK b) => MethodInfo DBusConnectionFlushSyncMethodInfo a signature where - overloadedMethod _ = dBusConnectionFlushSync - --- method DBusConnection::get_capabilities --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusCapabilityFlags") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_get_capabilities" g_dbus_connection_get_capabilities :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - IO CUInt - - -dBusConnectionGetCapabilities :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> m [DBusCapabilityFlags] -- result -dBusConnectionGetCapabilities _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_connection_get_capabilities _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data DBusConnectionGetCapabilitiesMethodInfo -instance (signature ~ (m [DBusCapabilityFlags]), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionGetCapabilitiesMethodInfo a signature where - overloadedMethod _ = dBusConnectionGetCapabilities - --- method DBusConnection::get_exit_on_close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_get_exit_on_close" g_dbus_connection_get_exit_on_close :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - IO CInt - - -dBusConnectionGetExitOnClose :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> m Bool -- result -dBusConnectionGetExitOnClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_connection_get_exit_on_close _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DBusConnectionGetExitOnCloseMethodInfo -instance (signature ~ (m Bool), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionGetExitOnCloseMethodInfo a signature where - overloadedMethod _ = dBusConnectionGetExitOnClose - --- method DBusConnection::get_guid --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_get_guid" g_dbus_connection_get_guid :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - IO CString - - -dBusConnectionGetGuid :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> m T.Text -- result -dBusConnectionGetGuid _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_connection_get_guid _obj' - checkUnexpectedReturnNULL "g_dbus_connection_get_guid" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusConnectionGetGuidMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionGetGuidMethodInfo a signature where - overloadedMethod _ = dBusConnectionGetGuid - --- method DBusConnection::get_last_serial --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_get_last_serial" g_dbus_connection_get_last_serial :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - IO Word32 - - -dBusConnectionGetLastSerial :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> m Word32 -- result -dBusConnectionGetLastSerial _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_connection_get_last_serial _obj' - touchManagedPtr _obj - return result - -data DBusConnectionGetLastSerialMethodInfo -instance (signature ~ (m Word32), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionGetLastSerialMethodInfo a signature where - overloadedMethod _ = dBusConnectionGetLastSerial - --- method DBusConnection::get_peer_credentials --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Credentials") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_get_peer_credentials" g_dbus_connection_get_peer_credentials :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - IO (Ptr Credentials) - - -dBusConnectionGetPeerCredentials :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> m Credentials -- result -dBusConnectionGetPeerCredentials _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_connection_get_peer_credentials _obj' - checkUnexpectedReturnNULL "g_dbus_connection_get_peer_credentials" result - result' <- (newObject Credentials) result - touchManagedPtr _obj - return result' - -data DBusConnectionGetPeerCredentialsMethodInfo -instance (signature ~ (m Credentials), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionGetPeerCredentialsMethodInfo a signature where - overloadedMethod _ = dBusConnectionGetPeerCredentials - --- method DBusConnection::get_stream --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "IOStream") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_get_stream" g_dbus_connection_get_stream :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - IO (Ptr IOStream) - - -dBusConnectionGetStream :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> m IOStream -- result -dBusConnectionGetStream _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_connection_get_stream _obj' - checkUnexpectedReturnNULL "g_dbus_connection_get_stream" result - result' <- (newObject IOStream) result - touchManagedPtr _obj - return result' - -data DBusConnectionGetStreamMethodInfo -instance (signature ~ (m IOStream), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionGetStreamMethodInfo a signature where - overloadedMethod _ = dBusConnectionGetStream - --- method DBusConnection::get_unique_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_get_unique_name" g_dbus_connection_get_unique_name :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - IO CString - - -dBusConnectionGetUniqueName :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> m T.Text -- result -dBusConnectionGetUniqueName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_connection_get_unique_name _obj' - checkUnexpectedReturnNULL "g_dbus_connection_get_unique_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusConnectionGetUniqueNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionGetUniqueNameMethodInfo a signature where - overloadedMethod _ = dBusConnectionGetUniqueName - --- method DBusConnection::is_closed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_is_closed" g_dbus_connection_is_closed :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - IO CInt - - -dBusConnectionIsClosed :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> m Bool -- result -dBusConnectionIsClosed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_connection_is_closed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DBusConnectionIsClosedMethodInfo -instance (signature ~ (m Bool), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionIsClosedMethodInfo a signature where - overloadedMethod _ = dBusConnectionIsClosed - --- method DBusConnection::register_object --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_call_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_property_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "set_property_closure", argType = TInterface "GObject" "Closure", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_register_object_with_closures" g_dbus_connection_register_object_with_closures :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - CString -> -- object_path : TBasicType TUTF8 - Ptr DBusInterfaceInfo -> -- interface_info : TInterface "Gio" "DBusInterfaceInfo" - Ptr Closure -> -- method_call_closure : TInterface "GObject" "Closure" - Ptr Closure -> -- get_property_closure : TInterface "GObject" "Closure" - Ptr Closure -> -- set_property_closure : TInterface "GObject" "Closure" - Ptr (Ptr GError) -> -- error - IO Word32 - - -dBusConnectionRegisterObject :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> T.Text -- objectPath - -> DBusInterfaceInfo -- interfaceInfo - -> Maybe (Closure) -- methodCallClosure - -> Maybe (Closure) -- getPropertyClosure - -> Maybe (Closure) -- setPropertyClosure - -> m Word32 -- result -dBusConnectionRegisterObject _obj objectPath interfaceInfo methodCallClosure getPropertyClosure setPropertyClosure = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - objectPath' <- textToCString objectPath - let interfaceInfo' = unsafeManagedPtrGetPtr interfaceInfo - maybeMethodCallClosure <- case methodCallClosure of - Nothing -> return nullPtr - Just jMethodCallClosure -> do - let jMethodCallClosure' = unsafeManagedPtrGetPtr jMethodCallClosure - return jMethodCallClosure' - maybeGetPropertyClosure <- case getPropertyClosure of - Nothing -> return nullPtr - Just jGetPropertyClosure -> do - let jGetPropertyClosure' = unsafeManagedPtrGetPtr jGetPropertyClosure - return jGetPropertyClosure' - maybeSetPropertyClosure <- case setPropertyClosure of - Nothing -> return nullPtr - Just jSetPropertyClosure -> do - let jSetPropertyClosure' = unsafeManagedPtrGetPtr jSetPropertyClosure - return jSetPropertyClosure' - onException (do - result <- propagateGError $ g_dbus_connection_register_object_with_closures _obj' objectPath' interfaceInfo' maybeMethodCallClosure maybeGetPropertyClosure maybeSetPropertyClosure - touchManagedPtr _obj - touchManagedPtr interfaceInfo - whenJust methodCallClosure touchManagedPtr - whenJust getPropertyClosure touchManagedPtr - whenJust setPropertyClosure touchManagedPtr - freeMem objectPath' - return result - ) (do - freeMem objectPath' - ) - -data DBusConnectionRegisterObjectMethodInfo -instance (signature ~ (T.Text -> DBusInterfaceInfo -> Maybe (Closure) -> Maybe (Closure) -> Maybe (Closure) -> m Word32), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionRegisterObjectMethodInfo a signature where - overloadedMethod _ = dBusConnectionRegisterObject - --- method DBusConnection::register_subtree --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vtable", argType = TInterface "Gio" "DBusSubtreeVTable", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusSubtreeFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_register_subtree" g_dbus_connection_register_subtree :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - CString -> -- object_path : TBasicType TUTF8 - Ptr DBusSubtreeVTable -> -- vtable : TInterface "Gio" "DBusSubtreeVTable" - CUInt -> -- flags : TInterface "Gio" "DBusSubtreeFlags" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- user_data_free_func : TInterface "GLib" "DestroyNotify" - Ptr (Ptr GError) -> -- error - IO Word32 - - -dBusConnectionRegisterSubtree :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> T.Text -- objectPath - -> DBusSubtreeVTable -- vtable - -> [DBusSubtreeFlags] -- flags - -> Ptr () -- userData - -> GLib.DestroyNotify -- userDataFreeFunc - -> m Word32 -- result -dBusConnectionRegisterSubtree _obj objectPath vtable flags userData userDataFreeFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - objectPath' <- textToCString objectPath - let vtable' = unsafeManagedPtrGetPtr vtable - let flags' = gflagsToWord flags - ptruserDataFreeFunc <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) - userDataFreeFunc' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptruserDataFreeFunc) userDataFreeFunc) - poke ptruserDataFreeFunc userDataFreeFunc' - onException (do - result <- propagateGError $ g_dbus_connection_register_subtree _obj' objectPath' vtable' flags' userData userDataFreeFunc' - touchManagedPtr _obj - touchManagedPtr vtable - freeMem objectPath' - return result - ) (do - freeMem objectPath' - ) - -data DBusConnectionRegisterSubtreeMethodInfo -instance (signature ~ (T.Text -> DBusSubtreeVTable -> [DBusSubtreeFlags] -> Ptr () -> GLib.DestroyNotify -> m Word32), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionRegisterSubtreeMethodInfo a signature where - overloadedMethod _ = dBusConnectionRegisterSubtree - --- method DBusConnection::remove_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_remove_filter" g_dbus_connection_remove_filter :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Word32 -> -- filter_id : TBasicType TUInt - IO () - - -dBusConnectionRemoveFilter :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> Word32 -- filterId - -> m () -- result -dBusConnectionRemoveFilter _obj filterId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_connection_remove_filter _obj' filterId - touchManagedPtr _obj - return () - -data DBusConnectionRemoveFilterMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionRemoveFilterMethodInfo a signature where - overloadedMethod _ = dBusConnectionRemoveFilter - --- method DBusConnection::send_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusSendMessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_serial", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_send_message" g_dbus_connection_send_message :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Ptr DBusMessage -> -- message : TInterface "Gio" "DBusMessage" - CUInt -> -- flags : TInterface "Gio" "DBusSendMessageFlags" - Ptr Word32 -> -- out_serial : TBasicType TUInt32 - Ptr (Ptr GError) -> -- error - IO CInt - - -dBusConnectionSendMessage :: - (MonadIO m, DBusConnectionK a, DBusMessageK b) => - a -- _obj - -> b -- message - -> [DBusSendMessageFlags] -- flags - -> m (Word32) -- result -dBusConnectionSendMessage _obj message flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let message' = unsafeManagedPtrCastPtr message - let flags' = gflagsToWord flags - outSerial <- allocMem :: IO (Ptr Word32) - onException (do - _ <- propagateGError $ g_dbus_connection_send_message _obj' message' flags' outSerial - outSerial' <- peek outSerial - touchManagedPtr _obj - touchManagedPtr message - freeMem outSerial - return outSerial' - ) (do - freeMem outSerial - ) - -data DBusConnectionSendMessageMethodInfo -instance (signature ~ (b -> [DBusSendMessageFlags] -> m (Word32)), MonadIO m, DBusConnectionK a, DBusMessageK b) => MethodInfo DBusConnectionSendMessageMethodInfo a signature where - overloadedMethod _ = dBusConnectionSendMessage - --- method DBusConnection::send_message_with_reply --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusSendMessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_serial", argType = TBasicType TUInt32, 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_send_message_with_reply" g_dbus_connection_send_message_with_reply :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Ptr DBusMessage -> -- message : TInterface "Gio" "DBusMessage" - CUInt -> -- flags : TInterface "Gio" "DBusSendMessageFlags" - Int32 -> -- timeout_msec : TBasicType TInt - Ptr Word32 -> -- out_serial : TBasicType TUInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dBusConnectionSendMessageWithReply :: - (MonadIO m, DBusConnectionK a, DBusMessageK b, CancellableK c) => - a -- _obj - -> b -- message - -> [DBusSendMessageFlags] -- flags - -> Int32 -- timeoutMsec - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m (Word32) -- result -dBusConnectionSendMessageWithReply _obj message flags timeoutMsec cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let message' = unsafeManagedPtrCastPtr message - let flags' = gflagsToWord flags - outSerial <- allocMem :: IO (Ptr Word32) - 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_connection_send_message_with_reply _obj' message' flags' timeoutMsec outSerial maybeCancellable maybeCallback userData - outSerial' <- peek outSerial - touchManagedPtr _obj - touchManagedPtr message - whenJust cancellable touchManagedPtr - freeMem outSerial - return outSerial' - -data DBusConnectionSendMessageWithReplyMethodInfo -instance (signature ~ (b -> [DBusSendMessageFlags] -> Int32 -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m (Word32)), MonadIO m, DBusConnectionK a, DBusMessageK b, CancellableK c) => MethodInfo DBusConnectionSendMessageWithReplyMethodInfo a signature where - overloadedMethod _ = dBusConnectionSendMessageWithReply - --- method DBusConnection::send_message_with_reply_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusMessage") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_send_message_with_reply_finish" g_dbus_connection_send_message_with_reply_finish :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusMessage) - - -dBusConnectionSendMessageWithReplyFinish :: - (MonadIO m, DBusConnectionK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m DBusMessage -- result -dBusConnectionSendMessageWithReplyFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_dbus_connection_send_message_with_reply_finish _obj' res' - checkUnexpectedReturnNULL "g_dbus_connection_send_message_with_reply_finish" result - result' <- (wrapObject DBusMessage) result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data DBusConnectionSendMessageWithReplyFinishMethodInfo -instance (signature ~ (b -> m DBusMessage), MonadIO m, DBusConnectionK a, AsyncResultK b) => MethodInfo DBusConnectionSendMessageWithReplyFinishMethodInfo a signature where - overloadedMethod _ = dBusConnectionSendMessageWithReplyFinish - --- method DBusConnection::send_message_with_reply_sync --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusSendMessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_serial", argType = TBasicType TUInt32, 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 : [] --- returnType : Just (TInterface "Gio" "DBusMessage") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_connection_send_message_with_reply_sync" g_dbus_connection_send_message_with_reply_sync :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Ptr DBusMessage -> -- message : TInterface "Gio" "DBusMessage" - CUInt -> -- flags : TInterface "Gio" "DBusSendMessageFlags" - Int32 -> -- timeout_msec : TBasicType TInt - Ptr Word32 -> -- out_serial : TBasicType TUInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusMessage) - - -dBusConnectionSendMessageWithReplySync :: - (MonadIO m, DBusConnectionK a, DBusMessageK b, CancellableK c) => - a -- _obj - -> b -- message - -> [DBusSendMessageFlags] -- flags - -> Int32 -- timeoutMsec - -> Maybe (c) -- cancellable - -> m (DBusMessage,Word32) -- result -dBusConnectionSendMessageWithReplySync _obj message flags timeoutMsec cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let message' = unsafeManagedPtrCastPtr message - let flags' = gflagsToWord flags - outSerial <- allocMem :: IO (Ptr Word32) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_dbus_connection_send_message_with_reply_sync _obj' message' flags' timeoutMsec outSerial maybeCancellable - checkUnexpectedReturnNULL "g_dbus_connection_send_message_with_reply_sync" result - result' <- (wrapObject DBusMessage) result - outSerial' <- peek outSerial - touchManagedPtr _obj - touchManagedPtr message - whenJust cancellable touchManagedPtr - freeMem outSerial - return (result', outSerial') - ) (do - freeMem outSerial - ) - -data DBusConnectionSendMessageWithReplySyncMethodInfo -instance (signature ~ (b -> [DBusSendMessageFlags] -> Int32 -> Maybe (c) -> m (DBusMessage,Word32)), MonadIO m, DBusConnectionK a, DBusMessageK b, CancellableK c) => MethodInfo DBusConnectionSendMessageWithReplySyncMethodInfo a signature where - overloadedMethod _ = dBusConnectionSendMessageWithReplySync - --- method DBusConnection::set_exit_on_close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "exit_on_close", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_set_exit_on_close" g_dbus_connection_set_exit_on_close :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - CInt -> -- exit_on_close : TBasicType TBoolean - IO () - - -dBusConnectionSetExitOnClose :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> Bool -- exitOnClose - -> m () -- result -dBusConnectionSetExitOnClose _obj exitOnClose = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let exitOnClose' = (fromIntegral . fromEnum) exitOnClose - g_dbus_connection_set_exit_on_close _obj' exitOnClose' - touchManagedPtr _obj - return () - -data DBusConnectionSetExitOnCloseMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionSetExitOnCloseMethodInfo a signature where - overloadedMethod _ = dBusConnectionSetExitOnClose - --- method DBusConnection::signal_subscribe --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sender", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "member", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg0", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusSignalFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "DBusSignalCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 8, argDestroy = 9, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data_free_func", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_signal_subscribe" g_dbus_connection_signal_subscribe :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - CString -> -- sender : TBasicType TUTF8 - CString -> -- interface_name : TBasicType TUTF8 - CString -> -- member : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - CString -> -- arg0 : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "DBusSignalFlags" - FunPtr DBusSignalCallbackC -> -- callback : TInterface "Gio" "DBusSignalCallback" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- user_data_free_func : TInterface "GLib" "DestroyNotify" - IO Word32 - - -dBusConnectionSignalSubscribe :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> Maybe (T.Text) -- sender - -> Maybe (T.Text) -- interfaceName - -> Maybe (T.Text) -- member - -> Maybe (T.Text) -- objectPath - -> Maybe (T.Text) -- arg0 - -> [DBusSignalFlags] -- flags - -> DBusSignalCallback -- callback - -> m Word32 -- result -dBusConnectionSignalSubscribe _obj sender interfaceName member objectPath arg0 flags callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeSender <- case sender of - Nothing -> return nullPtr - Just jSender -> do - jSender' <- textToCString jSender - return jSender' - maybeInterfaceName <- case interfaceName of - Nothing -> return nullPtr - Just jInterfaceName -> do - jInterfaceName' <- textToCString jInterfaceName - return jInterfaceName' - maybeMember <- case member of - Nothing -> return nullPtr - Just jMember -> do - jMember' <- textToCString jMember - return jMember' - maybeObjectPath <- case objectPath of - Nothing -> return nullPtr - Just jObjectPath -> do - jObjectPath' <- textToCString jObjectPath - return jObjectPath' - maybeArg0 <- case arg0 of - Nothing -> return nullPtr - Just jArg0 -> do - jArg0' <- textToCString jArg0 - return jArg0' - let flags' = gflagsToWord flags - callback' <- mkDBusSignalCallback (dBusSignalCallbackWrapper Nothing callback) - let userData = castFunPtrToPtr callback' - let userDataFreeFunc = safeFreeFunPtrPtr - result <- g_dbus_connection_signal_subscribe _obj' maybeSender maybeInterfaceName maybeMember maybeObjectPath maybeArg0 flags' callback' userData userDataFreeFunc - touchManagedPtr _obj - freeMem maybeSender - freeMem maybeInterfaceName - freeMem maybeMember - freeMem maybeObjectPath - freeMem maybeArg0 - return result - -data DBusConnectionSignalSubscribeMethodInfo -instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> Maybe (T.Text) -> Maybe (T.Text) -> Maybe (T.Text) -> [DBusSignalFlags] -> DBusSignalCallback -> m Word32), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionSignalSubscribeMethodInfo a signature where - overloadedMethod _ = dBusConnectionSignalSubscribe - --- method DBusConnection::signal_unsubscribe --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "subscription_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_signal_unsubscribe" g_dbus_connection_signal_unsubscribe :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Word32 -> -- subscription_id : TBasicType TUInt - IO () - - -dBusConnectionSignalUnsubscribe :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> Word32 -- subscriptionId - -> m () -- result -dBusConnectionSignalUnsubscribe _obj subscriptionId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_connection_signal_unsubscribe _obj' subscriptionId - touchManagedPtr _obj - return () - -data DBusConnectionSignalUnsubscribeMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionSignalUnsubscribeMethodInfo a signature where - overloadedMethod _ = dBusConnectionSignalUnsubscribe - --- method DBusConnection::start_message_processing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_start_message_processing" g_dbus_connection_start_message_processing :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - IO () - - -dBusConnectionStartMessageProcessing :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> m () -- result -dBusConnectionStartMessageProcessing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_connection_start_message_processing _obj' - touchManagedPtr _obj - return () - -data DBusConnectionStartMessageProcessingMethodInfo -instance (signature ~ (m ()), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionStartMessageProcessingMethodInfo a signature where - overloadedMethod _ = dBusConnectionStartMessageProcessing - --- method DBusConnection::unexport_action_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "export_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_unexport_action_group" g_dbus_connection_unexport_action_group :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Word32 -> -- export_id : TBasicType TUInt - IO () - - -dBusConnectionUnexportActionGroup :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> Word32 -- exportId - -> m () -- result -dBusConnectionUnexportActionGroup _obj exportId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_connection_unexport_action_group _obj' exportId - touchManagedPtr _obj - return () - -data DBusConnectionUnexportActionGroupMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionUnexportActionGroupMethodInfo a signature where - overloadedMethod _ = dBusConnectionUnexportActionGroup - --- method DBusConnection::unexport_menu_model --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "export_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_unexport_menu_model" g_dbus_connection_unexport_menu_model :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Word32 -> -- export_id : TBasicType TUInt - IO () - - -dBusConnectionUnexportMenuModel :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> Word32 -- exportId - -> m () -- result -dBusConnectionUnexportMenuModel _obj exportId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_connection_unexport_menu_model _obj' exportId - touchManagedPtr _obj - return () - -data DBusConnectionUnexportMenuModelMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionUnexportMenuModelMethodInfo a signature where - overloadedMethod _ = dBusConnectionUnexportMenuModel - --- method DBusConnection::unregister_object --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "registration_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_unregister_object" g_dbus_connection_unregister_object :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Word32 -> -- registration_id : TBasicType TUInt - IO CInt - - -dBusConnectionUnregisterObject :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> Word32 -- registrationId - -> m Bool -- result -dBusConnectionUnregisterObject _obj registrationId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_connection_unregister_object _obj' registrationId - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DBusConnectionUnregisterObjectMethodInfo -instance (signature ~ (Word32 -> m Bool), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionUnregisterObjectMethodInfo a signature where - overloadedMethod _ = dBusConnectionUnregisterObject - --- method DBusConnection::unregister_subtree --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "registration_id", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_unregister_subtree" g_dbus_connection_unregister_subtree :: - Ptr DBusConnection -> -- _obj : TInterface "Gio" "DBusConnection" - Word32 -> -- registration_id : TBasicType TUInt - IO CInt - - -dBusConnectionUnregisterSubtree :: - (MonadIO m, DBusConnectionK a) => - a -- _obj - -> Word32 -- registrationId - -> m Bool -- result -dBusConnectionUnregisterSubtree _obj registrationId = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_connection_unregister_subtree _obj' registrationId - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DBusConnectionUnregisterSubtreeMethodInfo -instance (signature ~ (Word32 -> m Bool), MonadIO m, DBusConnectionK a) => MethodInfo DBusConnectionUnregisterSubtreeMethodInfo a signature where - overloadedMethod _ = dBusConnectionUnregisterSubtree - --- method DBusConnection::new --- method type : MemberFunction --- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "observer", argType = TInterface "Gio" "DBusAuthObserver", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_new" g_dbus_connection_new :: - Ptr IOStream -> -- stream : TInterface "Gio" "IOStream" - CString -> -- guid : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "DBusConnectionFlags" - Ptr DBusAuthObserver -> -- observer : TInterface "Gio" "DBusAuthObserver" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dBusConnectionNew :: - (MonadIO m, IOStreamK a, DBusAuthObserverK b, CancellableK c) => - a -- stream - -> Maybe (T.Text) -- guid - -> [DBusConnectionFlags] -- flags - -> Maybe (b) -- observer - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -dBusConnectionNew stream guid flags observer cancellable callback = liftIO $ do - let stream' = unsafeManagedPtrCastPtr stream - maybeGuid <- case guid of - Nothing -> return nullPtr - Just jGuid -> do - jGuid' <- textToCString jGuid - return jGuid' - let flags' = gflagsToWord flags - maybeObserver <- case observer of - Nothing -> return nullPtr - Just jObserver -> do - let jObserver' = unsafeManagedPtrCastPtr jObserver - return jObserver' - 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_connection_new stream' maybeGuid flags' maybeObserver maybeCancellable maybeCallback userData - touchManagedPtr stream - whenJust observer touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem maybeGuid - return () - --- method DBusConnection::new_for_address --- method type : MemberFunction --- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusConnectionFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "observer", argType = TInterface "Gio" "DBusAuthObserver", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_connection_new_for_address" g_dbus_connection_new_for_address :: - CString -> -- address : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "DBusConnectionFlags" - Ptr DBusAuthObserver -> -- observer : TInterface "Gio" "DBusAuthObserver" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dBusConnectionNewForAddress :: - (MonadIO m, DBusAuthObserverK a, CancellableK b) => - T.Text -- address - -> [DBusConnectionFlags] -- flags - -> Maybe (a) -- observer - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -dBusConnectionNewForAddress address flags observer cancellable callback = liftIO $ do - address' <- textToCString address - let flags' = gflagsToWord flags - maybeObserver <- case observer of - Nothing -> return nullPtr - Just jObserver -> do - let jObserver' = unsafeManagedPtrCastPtr jObserver - return jObserver' - 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_connection_new_for_address address' flags' maybeObserver maybeCancellable maybeCallback userData - whenJust observer touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem address' - return () - - diff --git a/GI/Gio/Objects/DBusConnection.hs-boot b/GI/Gio/Objects/DBusConnection.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DBusConnection.hs-boot +++ /dev/null @@ -1,62 +0,0 @@ -module GI.Gio.Objects.DBusConnection where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusConnection = DBusConnection (ForeignPtr DBusConnection) -instance GObject DBusConnection where -class GObject o => DBusConnectionK o -instance (GObject o, IsDescendantOf DBusConnection o) => DBusConnectionK o -data DBusConnectionAddressPropertyInfo -data DBusConnectionAuthenticationObserverPropertyInfo -data DBusConnectionCapabilitiesPropertyInfo -data DBusConnectionClosedPropertyInfo -data DBusConnectionExitOnClosePropertyInfo -data DBusConnectionFlagsPropertyInfo -data DBusConnectionGuidPropertyInfo -data DBusConnectionStreamPropertyInfo -data DBusConnectionUniqueNamePropertyInfo -data DBusConnectionClosedSignalInfo -data DBusConnectionAddFilterMethodInfo -data DBusConnectionCallMethodInfo -data DBusConnectionCallFinishMethodInfo -data DBusConnectionCallSyncMethodInfo -data DBusConnectionCallWithUnixFdListMethodInfo -data DBusConnectionCallWithUnixFdListFinishMethodInfo -data DBusConnectionCallWithUnixFdListSyncMethodInfo -data DBusConnectionCloseMethodInfo -data DBusConnectionCloseFinishMethodInfo -data DBusConnectionCloseSyncMethodInfo -data DBusConnectionEmitSignalMethodInfo -data DBusConnectionExportActionGroupMethodInfo -data DBusConnectionExportMenuModelMethodInfo -data DBusConnectionFlushMethodInfo -data DBusConnectionFlushFinishMethodInfo -data DBusConnectionFlushSyncMethodInfo -data DBusConnectionGetCapabilitiesMethodInfo -data DBusConnectionGetExitOnCloseMethodInfo -data DBusConnectionGetGuidMethodInfo -data DBusConnectionGetLastSerialMethodInfo -data DBusConnectionGetPeerCredentialsMethodInfo -data DBusConnectionGetStreamMethodInfo -data DBusConnectionGetUniqueNameMethodInfo -data DBusConnectionIsClosedMethodInfo -data DBusConnectionRegisterObjectMethodInfo -data DBusConnectionRegisterSubtreeMethodInfo -data DBusConnectionRemoveFilterMethodInfo -data DBusConnectionSendMessageMethodInfo -data DBusConnectionSendMessageWithReplyMethodInfo -data DBusConnectionSendMessageWithReplyFinishMethodInfo -data DBusConnectionSendMessageWithReplySyncMethodInfo -data DBusConnectionSetExitOnCloseMethodInfo -data DBusConnectionSignalSubscribeMethodInfo -data DBusConnectionSignalUnsubscribeMethodInfo -data DBusConnectionStartMessageProcessingMethodInfo -data DBusConnectionUnexportActionGroupMethodInfo -data DBusConnectionUnexportMenuModelMethodInfo -data DBusConnectionUnregisterObjectMethodInfo -data DBusConnectionUnregisterSubtreeMethodInfo diff --git a/GI/Gio/Objects/DBusInterfaceSkeleton.hs b/GI/Gio/Objects/DBusInterfaceSkeleton.hs deleted file mode 100644 --- a/GI/Gio/Objects/DBusInterfaceSkeleton.hs +++ /dev/null @@ -1,633 +0,0 @@ - - -{- | -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.Objects.DBusInterfaceSkeleton - ( - --- * Exported types - DBusInterfaceSkeleton(..) , - DBusInterfaceSkeletonK , - toDBusInterfaceSkeleton , - noDBusInterfaceSkeleton , - - - -- * Methods --- ** dBusInterfaceSkeletonExport - DBusInterfaceSkeletonExportMethodInfo , - dBusInterfaceSkeletonExport , - - --- ** dBusInterfaceSkeletonFlush - DBusInterfaceSkeletonFlushMethodInfo , - dBusInterfaceSkeletonFlush , - - --- ** dBusInterfaceSkeletonGetConnection - DBusInterfaceSkeletonGetConnectionMethodInfo, - dBusInterfaceSkeletonGetConnection , - - --- ** dBusInterfaceSkeletonGetConnections - DBusInterfaceSkeletonGetConnectionsMethodInfo, - dBusInterfaceSkeletonGetConnections , - - --- ** dBusInterfaceSkeletonGetFlags - DBusInterfaceSkeletonGetFlagsMethodInfo , - dBusInterfaceSkeletonGetFlags , - - --- ** dBusInterfaceSkeletonGetInfo - DBusInterfaceSkeletonGetInfoMethodInfo , - dBusInterfaceSkeletonGetInfo , - - --- ** dBusInterfaceSkeletonGetObjectPath - DBusInterfaceSkeletonGetObjectPathMethodInfo, - dBusInterfaceSkeletonGetObjectPath , - - --- ** dBusInterfaceSkeletonGetProperties - DBusInterfaceSkeletonGetPropertiesMethodInfo, - dBusInterfaceSkeletonGetProperties , - - --- ** dBusInterfaceSkeletonHasConnection - DBusInterfaceSkeletonHasConnectionMethodInfo, - dBusInterfaceSkeletonHasConnection , - - --- ** dBusInterfaceSkeletonSetFlags - DBusInterfaceSkeletonSetFlagsMethodInfo , - dBusInterfaceSkeletonSetFlags , - - --- ** dBusInterfaceSkeletonUnexport - DBusInterfaceSkeletonUnexportMethodInfo , - dBusInterfaceSkeletonUnexport , - - --- ** dBusInterfaceSkeletonUnexportFromConnection - DBusInterfaceSkeletonUnexportFromConnectionMethodInfo, - dBusInterfaceSkeletonUnexportFromConnection, - - - - - -- * Properties --- ** GFlags - DBusInterfaceSkeletonGFlagsPropertyInfo , - constructDBusInterfaceSkeletonGFlags , - dBusInterfaceSkeletonGFlags , - getDBusInterfaceSkeletonGFlags , - setDBusInterfaceSkeletonGFlags , - - - - - -- * Signals --- ** GAuthorizeMethod - DBusInterfaceSkeletonGAuthorizeMethodCallback, - DBusInterfaceSkeletonGAuthorizeMethodCallbackC, - DBusInterfaceSkeletonGAuthorizeMethodSignalInfo, - afterDBusInterfaceSkeletonGAuthorizeMethod, - dBusInterfaceSkeletonGAuthorizeMethodCallbackWrapper, - dBusInterfaceSkeletonGAuthorizeMethodClosure, - mkDBusInterfaceSkeletonGAuthorizeMethodCallback, - noDBusInterfaceSkeletonGAuthorizeMethodCallback, - onDBusInterfaceSkeletonGAuthorizeMethod , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype DBusInterfaceSkeleton = DBusInterfaceSkeleton (ForeignPtr DBusInterfaceSkeleton) -foreign import ccall "g_dbus_interface_skeleton_get_type" - c_g_dbus_interface_skeleton_get_type :: IO GType - -type instance ParentTypes DBusInterfaceSkeleton = DBusInterfaceSkeletonParentTypes -type DBusInterfaceSkeletonParentTypes = '[GObject.Object, DBusInterface] - -instance GObject DBusInterfaceSkeleton where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_interface_skeleton_get_type - - -class GObject o => DBusInterfaceSkeletonK o -instance (GObject o, IsDescendantOf DBusInterfaceSkeleton o) => DBusInterfaceSkeletonK o - -toDBusInterfaceSkeleton :: DBusInterfaceSkeletonK o => o -> IO DBusInterfaceSkeleton -toDBusInterfaceSkeleton = unsafeCastTo DBusInterfaceSkeleton - -noDBusInterfaceSkeleton :: Maybe DBusInterfaceSkeleton -noDBusInterfaceSkeleton = Nothing - -type family ResolveDBusInterfaceSkeletonMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusInterfaceSkeletonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusInterfaceSkeletonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusInterfaceSkeletonMethod "export" o = DBusInterfaceSkeletonExportMethodInfo - ResolveDBusInterfaceSkeletonMethod "flush" o = DBusInterfaceSkeletonFlushMethodInfo - ResolveDBusInterfaceSkeletonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusInterfaceSkeletonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusInterfaceSkeletonMethod "hasConnection" o = DBusInterfaceSkeletonHasConnectionMethodInfo - ResolveDBusInterfaceSkeletonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusInterfaceSkeletonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusInterfaceSkeletonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusInterfaceSkeletonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusInterfaceSkeletonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusInterfaceSkeletonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusInterfaceSkeletonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusInterfaceSkeletonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusInterfaceSkeletonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusInterfaceSkeletonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusInterfaceSkeletonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusInterfaceSkeletonMethod "unexport" o = DBusInterfaceSkeletonUnexportMethodInfo - ResolveDBusInterfaceSkeletonMethod "unexportFromConnection" o = DBusInterfaceSkeletonUnexportFromConnectionMethodInfo - ResolveDBusInterfaceSkeletonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusInterfaceSkeletonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusInterfaceSkeletonMethod "getConnection" o = DBusInterfaceSkeletonGetConnectionMethodInfo - ResolveDBusInterfaceSkeletonMethod "getConnections" o = DBusInterfaceSkeletonGetConnectionsMethodInfo - ResolveDBusInterfaceSkeletonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusInterfaceSkeletonMethod "getFlags" o = DBusInterfaceSkeletonGetFlagsMethodInfo - ResolveDBusInterfaceSkeletonMethod "getObject" o = DBusInterfaceGetObjectMethodInfo - ResolveDBusInterfaceSkeletonMethod "getObjectPath" o = DBusInterfaceSkeletonGetObjectPathMethodInfo - ResolveDBusInterfaceSkeletonMethod "getProperties" o = DBusInterfaceSkeletonGetPropertiesMethodInfo - ResolveDBusInterfaceSkeletonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusInterfaceSkeletonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusInterfaceSkeletonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusInterfaceSkeletonMethod "setFlags" o = DBusInterfaceSkeletonSetFlagsMethodInfo - ResolveDBusInterfaceSkeletonMethod "setObject" o = DBusInterfaceSetObjectMethodInfo - ResolveDBusInterfaceSkeletonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusInterfaceSkeletonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusInterfaceSkeletonMethod t DBusInterfaceSkeleton, MethodInfo info DBusInterfaceSkeleton p) => IsLabelProxy t (DBusInterfaceSkeleton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusInterfaceSkeletonMethod t DBusInterfaceSkeleton, MethodInfo info DBusInterfaceSkeleton p) => IsLabel t (DBusInterfaceSkeleton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal DBusInterfaceSkeleton::g-authorize-method -type DBusInterfaceSkeletonGAuthorizeMethodCallback = - DBusMethodInvocation -> - IO Bool - -noDBusInterfaceSkeletonGAuthorizeMethodCallback :: Maybe DBusInterfaceSkeletonGAuthorizeMethodCallback -noDBusInterfaceSkeletonGAuthorizeMethodCallback = Nothing - -type DBusInterfaceSkeletonGAuthorizeMethodCallbackC = - Ptr () -> -- object - Ptr DBusMethodInvocation -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkDBusInterfaceSkeletonGAuthorizeMethodCallback :: DBusInterfaceSkeletonGAuthorizeMethodCallbackC -> IO (FunPtr DBusInterfaceSkeletonGAuthorizeMethodCallbackC) - -dBusInterfaceSkeletonGAuthorizeMethodClosure :: DBusInterfaceSkeletonGAuthorizeMethodCallback -> IO Closure -dBusInterfaceSkeletonGAuthorizeMethodClosure cb = newCClosure =<< mkDBusInterfaceSkeletonGAuthorizeMethodCallback wrapped - where wrapped = dBusInterfaceSkeletonGAuthorizeMethodCallbackWrapper cb - -dBusInterfaceSkeletonGAuthorizeMethodCallbackWrapper :: - DBusInterfaceSkeletonGAuthorizeMethodCallback -> - Ptr () -> - Ptr DBusMethodInvocation -> - Ptr () -> - IO CInt -dBusInterfaceSkeletonGAuthorizeMethodCallbackWrapper _cb _ invocation _ = do - invocation' <- (newObject DBusMethodInvocation) invocation - result <- _cb invocation' - let result' = (fromIntegral . fromEnum) result - return result' - -onDBusInterfaceSkeletonGAuthorizeMethod :: (GObject a, MonadIO m) => a -> DBusInterfaceSkeletonGAuthorizeMethodCallback -> m SignalHandlerId -onDBusInterfaceSkeletonGAuthorizeMethod obj cb = liftIO $ connectDBusInterfaceSkeletonGAuthorizeMethod obj cb SignalConnectBefore -afterDBusInterfaceSkeletonGAuthorizeMethod :: (GObject a, MonadIO m) => a -> DBusInterfaceSkeletonGAuthorizeMethodCallback -> m SignalHandlerId -afterDBusInterfaceSkeletonGAuthorizeMethod obj cb = connectDBusInterfaceSkeletonGAuthorizeMethod obj cb SignalConnectAfter - -connectDBusInterfaceSkeletonGAuthorizeMethod :: (GObject a, MonadIO m) => - a -> DBusInterfaceSkeletonGAuthorizeMethodCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusInterfaceSkeletonGAuthorizeMethod obj cb after = liftIO $ do - cb' <- mkDBusInterfaceSkeletonGAuthorizeMethodCallback (dBusInterfaceSkeletonGAuthorizeMethodCallbackWrapper cb) - connectSignalFunPtr obj "g-authorize-method" cb' after - --- VVV Prop "g-flags" - -- Type: TInterface "Gio" "DBusInterfaceSkeletonFlags" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDBusInterfaceSkeletonGFlags :: (MonadIO m, DBusInterfaceSkeletonK o) => o -> m [DBusInterfaceSkeletonFlags] -getDBusInterfaceSkeletonGFlags obj = liftIO $ getObjectPropertyFlags obj "g-flags" - -setDBusInterfaceSkeletonGFlags :: (MonadIO m, DBusInterfaceSkeletonK o) => o -> [DBusInterfaceSkeletonFlags] -> m () -setDBusInterfaceSkeletonGFlags obj val = liftIO $ setObjectPropertyFlags obj "g-flags" val - -constructDBusInterfaceSkeletonGFlags :: [DBusInterfaceSkeletonFlags] -> IO ([Char], GValue) -constructDBusInterfaceSkeletonGFlags val = constructObjectPropertyFlags "g-flags" val - -data DBusInterfaceSkeletonGFlagsPropertyInfo -instance AttrInfo DBusInterfaceSkeletonGFlagsPropertyInfo where - type AttrAllowedOps DBusInterfaceSkeletonGFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DBusInterfaceSkeletonGFlagsPropertyInfo = (~) [DBusInterfaceSkeletonFlags] - type AttrBaseTypeConstraint DBusInterfaceSkeletonGFlagsPropertyInfo = DBusInterfaceSkeletonK - type AttrGetType DBusInterfaceSkeletonGFlagsPropertyInfo = [DBusInterfaceSkeletonFlags] - type AttrLabel DBusInterfaceSkeletonGFlagsPropertyInfo = "g-flags" - attrGet _ = getDBusInterfaceSkeletonGFlags - attrSet _ = setDBusInterfaceSkeletonGFlags - attrConstruct _ = constructDBusInterfaceSkeletonGFlags - attrClear _ = undefined - -type instance AttributeList DBusInterfaceSkeleton = DBusInterfaceSkeletonAttributeList -type DBusInterfaceSkeletonAttributeList = ('[ '("gFlags", DBusInterfaceSkeletonGFlagsPropertyInfo)] :: [(Symbol, *)]) - -dBusInterfaceSkeletonGFlags :: AttrLabelProxy "gFlags" -dBusInterfaceSkeletonGFlags = AttrLabelProxy - -data DBusInterfaceSkeletonGAuthorizeMethodSignalInfo -instance SignalInfo DBusInterfaceSkeletonGAuthorizeMethodSignalInfo where - type HaskellCallbackType DBusInterfaceSkeletonGAuthorizeMethodSignalInfo = DBusInterfaceSkeletonGAuthorizeMethodCallback - connectSignal _ = connectDBusInterfaceSkeletonGAuthorizeMethod - -type instance SignalList DBusInterfaceSkeleton = DBusInterfaceSkeletonSignalList -type DBusInterfaceSkeletonSignalList = ('[ '("gAuthorizeMethod", DBusInterfaceSkeletonGAuthorizeMethodSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DBusInterfaceSkeleton::export --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_interface_skeleton_export" g_dbus_interface_skeleton_export :: - Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton" - Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection" - CString -> -- object_path : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -dBusInterfaceSkeletonExport :: - (MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) => - a -- _obj - -> b -- connection - -> T.Text -- objectPath - -> m () -- result -dBusInterfaceSkeletonExport _obj connection objectPath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let connection' = unsafeManagedPtrCastPtr connection - objectPath' <- textToCString objectPath - onException (do - _ <- propagateGError $ g_dbus_interface_skeleton_export _obj' connection' objectPath' - touchManagedPtr _obj - touchManagedPtr connection - freeMem objectPath' - return () - ) (do - freeMem objectPath' - ) - -data DBusInterfaceSkeletonExportMethodInfo -instance (signature ~ (b -> T.Text -> m ()), MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) => MethodInfo DBusInterfaceSkeletonExportMethodInfo a signature where - overloadedMethod _ = dBusInterfaceSkeletonExport - --- method DBusInterfaceSkeleton::flush --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_skeleton_flush" g_dbus_interface_skeleton_flush :: - Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton" - IO () - - -dBusInterfaceSkeletonFlush :: - (MonadIO m, DBusInterfaceSkeletonK a) => - a -- _obj - -> m () -- result -dBusInterfaceSkeletonFlush _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_interface_skeleton_flush _obj' - touchManagedPtr _obj - return () - -data DBusInterfaceSkeletonFlushMethodInfo -instance (signature ~ (m ()), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonFlushMethodInfo a signature where - overloadedMethod _ = dBusInterfaceSkeletonFlush - --- method DBusInterfaceSkeleton::get_connection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusConnection") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_skeleton_get_connection" g_dbus_interface_skeleton_get_connection :: - Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton" - IO (Ptr DBusConnection) - - -dBusInterfaceSkeletonGetConnection :: - (MonadIO m, DBusInterfaceSkeletonK a) => - a -- _obj - -> m DBusConnection -- result -dBusInterfaceSkeletonGetConnection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_interface_skeleton_get_connection _obj' - checkUnexpectedReturnNULL "g_dbus_interface_skeleton_get_connection" result - result' <- (newObject DBusConnection) result - touchManagedPtr _obj - return result' - -data DBusInterfaceSkeletonGetConnectionMethodInfo -instance (signature ~ (m DBusConnection), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetConnectionMethodInfo a signature where - overloadedMethod _ = dBusInterfaceSkeletonGetConnection - --- method DBusInterfaceSkeleton::get_connections --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "DBusConnection")) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_skeleton_get_connections" g_dbus_interface_skeleton_get_connections :: - Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton" - IO (Ptr (GList (Ptr DBusConnection))) - - -dBusInterfaceSkeletonGetConnections :: - (MonadIO m, DBusInterfaceSkeletonK a) => - a -- _obj - -> m [DBusConnection] -- result -dBusInterfaceSkeletonGetConnections _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_interface_skeleton_get_connections _obj' - result' <- unpackGList result - result'' <- mapM (wrapObject DBusConnection) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data DBusInterfaceSkeletonGetConnectionsMethodInfo -instance (signature ~ (m [DBusConnection]), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetConnectionsMethodInfo a signature where - overloadedMethod _ = dBusInterfaceSkeletonGetConnections - --- method DBusInterfaceSkeleton::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusInterfaceSkeletonFlags") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_skeleton_get_flags" g_dbus_interface_skeleton_get_flags :: - Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton" - IO CUInt - - -dBusInterfaceSkeletonGetFlags :: - (MonadIO m, DBusInterfaceSkeletonK a) => - a -- _obj - -> m [DBusInterfaceSkeletonFlags] -- result -dBusInterfaceSkeletonGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_interface_skeleton_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data DBusInterfaceSkeletonGetFlagsMethodInfo -instance (signature ~ (m [DBusInterfaceSkeletonFlags]), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetFlagsMethodInfo a signature where - overloadedMethod _ = dBusInterfaceSkeletonGetFlags - --- method DBusInterfaceSkeleton::get_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusInterfaceInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_skeleton_get_info" g_dbus_interface_skeleton_get_info :: - Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton" - IO (Ptr DBusInterfaceInfo) - - -dBusInterfaceSkeletonGetInfo :: - (MonadIO m, DBusInterfaceSkeletonK a) => - a -- _obj - -> m DBusInterfaceInfo -- result -dBusInterfaceSkeletonGetInfo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_interface_skeleton_get_info _obj' - checkUnexpectedReturnNULL "g_dbus_interface_skeleton_get_info" result - result' <- (newBoxed DBusInterfaceInfo) result - touchManagedPtr _obj - return result' - -data DBusInterfaceSkeletonGetInfoMethodInfo -instance (signature ~ (m DBusInterfaceInfo), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetInfoMethodInfo a signature where - overloadedMethod _ = dBusInterfaceSkeletonGetInfo - --- method DBusInterfaceSkeleton::get_object_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_skeleton_get_object_path" g_dbus_interface_skeleton_get_object_path :: - Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton" - IO CString - - -dBusInterfaceSkeletonGetObjectPath :: - (MonadIO m, DBusInterfaceSkeletonK a) => - a -- _obj - -> m T.Text -- result -dBusInterfaceSkeletonGetObjectPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_interface_skeleton_get_object_path _obj' - checkUnexpectedReturnNULL "g_dbus_interface_skeleton_get_object_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusInterfaceSkeletonGetObjectPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetObjectPathMethodInfo a signature where - overloadedMethod _ = dBusInterfaceSkeletonGetObjectPath - --- method DBusInterfaceSkeleton::get_properties --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_skeleton_get_properties" g_dbus_interface_skeleton_get_properties :: - Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton" - IO (Ptr GVariant) - - -dBusInterfaceSkeletonGetProperties :: - (MonadIO m, DBusInterfaceSkeletonK a) => - a -- _obj - -> m GVariant -- result -dBusInterfaceSkeletonGetProperties _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_interface_skeleton_get_properties _obj' - checkUnexpectedReturnNULL "g_dbus_interface_skeleton_get_properties" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - return result' - -data DBusInterfaceSkeletonGetPropertiesMethodInfo -instance (signature ~ (m GVariant), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonGetPropertiesMethodInfo a signature where - overloadedMethod _ = dBusInterfaceSkeletonGetProperties - --- method DBusInterfaceSkeleton::has_connection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_skeleton_has_connection" g_dbus_interface_skeleton_has_connection :: - Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton" - Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection" - IO CInt - - -dBusInterfaceSkeletonHasConnection :: - (MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) => - a -- _obj - -> b -- connection - -> m Bool -- result -dBusInterfaceSkeletonHasConnection _obj connection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let connection' = unsafeManagedPtrCastPtr connection - result <- g_dbus_interface_skeleton_has_connection _obj' connection' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr connection - return result' - -data DBusInterfaceSkeletonHasConnectionMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) => MethodInfo DBusInterfaceSkeletonHasConnectionMethodInfo a signature where - overloadedMethod _ = dBusInterfaceSkeletonHasConnection - --- method DBusInterfaceSkeleton::set_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusInterfaceSkeletonFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_skeleton_set_flags" g_dbus_interface_skeleton_set_flags :: - Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton" - CUInt -> -- flags : TInterface "Gio" "DBusInterfaceSkeletonFlags" - IO () - - -dBusInterfaceSkeletonSetFlags :: - (MonadIO m, DBusInterfaceSkeletonK a) => - a -- _obj - -> [DBusInterfaceSkeletonFlags] -- flags - -> m () -- result -dBusInterfaceSkeletonSetFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - g_dbus_interface_skeleton_set_flags _obj' flags' - touchManagedPtr _obj - return () - -data DBusInterfaceSkeletonSetFlagsMethodInfo -instance (signature ~ ([DBusInterfaceSkeletonFlags] -> m ()), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonSetFlagsMethodInfo a signature where - overloadedMethod _ = dBusInterfaceSkeletonSetFlags - --- method DBusInterfaceSkeleton::unexport --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_skeleton_unexport" g_dbus_interface_skeleton_unexport :: - Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton" - IO () - - -dBusInterfaceSkeletonUnexport :: - (MonadIO m, DBusInterfaceSkeletonK a) => - a -- _obj - -> m () -- result -dBusInterfaceSkeletonUnexport _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_interface_skeleton_unexport _obj' - touchManagedPtr _obj - return () - -data DBusInterfaceSkeletonUnexportMethodInfo -instance (signature ~ (m ()), MonadIO m, DBusInterfaceSkeletonK a) => MethodInfo DBusInterfaceSkeletonUnexportMethodInfo a signature where - overloadedMethod _ = dBusInterfaceSkeletonUnexport - --- method DBusInterfaceSkeleton::unexport_from_connection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_skeleton_unexport_from_connection" g_dbus_interface_skeleton_unexport_from_connection :: - Ptr DBusInterfaceSkeleton -> -- _obj : TInterface "Gio" "DBusInterfaceSkeleton" - Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection" - IO () - - -dBusInterfaceSkeletonUnexportFromConnection :: - (MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) => - a -- _obj - -> b -- connection - -> m () -- result -dBusInterfaceSkeletonUnexportFromConnection _obj connection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let connection' = unsafeManagedPtrCastPtr connection - g_dbus_interface_skeleton_unexport_from_connection _obj' connection' - touchManagedPtr _obj - touchManagedPtr connection - return () - -data DBusInterfaceSkeletonUnexportFromConnectionMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DBusInterfaceSkeletonK a, DBusConnectionK b) => MethodInfo DBusInterfaceSkeletonUnexportFromConnectionMethodInfo a signature where - overloadedMethod _ = dBusInterfaceSkeletonUnexportFromConnection - - diff --git a/GI/Gio/Objects/DBusInterfaceSkeleton.hs-boot b/GI/Gio/Objects/DBusInterfaceSkeleton.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DBusInterfaceSkeleton.hs-boot +++ /dev/null @@ -1,27 +0,0 @@ -module GI.Gio.Objects.DBusInterfaceSkeleton where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusInterfaceSkeleton = DBusInterfaceSkeleton (ForeignPtr DBusInterfaceSkeleton) -instance GObject DBusInterfaceSkeleton where -class GObject o => DBusInterfaceSkeletonK o -instance (GObject o, IsDescendantOf DBusInterfaceSkeleton o) => DBusInterfaceSkeletonK o -data DBusInterfaceSkeletonGFlagsPropertyInfo -data DBusInterfaceSkeletonGAuthorizeMethodSignalInfo -data DBusInterfaceSkeletonExportMethodInfo -data DBusInterfaceSkeletonFlushMethodInfo -data DBusInterfaceSkeletonGetConnectionMethodInfo -data DBusInterfaceSkeletonGetConnectionsMethodInfo -data DBusInterfaceSkeletonGetFlagsMethodInfo -data DBusInterfaceSkeletonGetInfoMethodInfo -data DBusInterfaceSkeletonGetObjectPathMethodInfo -data DBusInterfaceSkeletonGetPropertiesMethodInfo -data DBusInterfaceSkeletonHasConnectionMethodInfo -data DBusInterfaceSkeletonSetFlagsMethodInfo -data DBusInterfaceSkeletonUnexportMethodInfo -data DBusInterfaceSkeletonUnexportFromConnectionMethodInfo diff --git a/GI/Gio/Objects/DBusMenuModel.hs b/GI/Gio/Objects/DBusMenuModel.hs deleted file mode 100644 --- a/GI/Gio/Objects/DBusMenuModel.hs +++ /dev/null @@ -1,139 +0,0 @@ - - -{- | -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.Objects.DBusMenuModel - ( - --- * Exported types - DBusMenuModel(..) , - DBusMenuModelK , - toDBusMenuModel , - noDBusMenuModel , - - - -- * Methods --- ** dBusMenuModelGet - dBusMenuModelGet , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype DBusMenuModel = DBusMenuModel (ForeignPtr DBusMenuModel) -foreign import ccall "g_dbus_menu_model_get_type" - c_g_dbus_menu_model_get_type :: IO GType - -type instance ParentTypes DBusMenuModel = DBusMenuModelParentTypes -type DBusMenuModelParentTypes = '[MenuModel, GObject.Object] - -instance GObject DBusMenuModel where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_menu_model_get_type - - -class GObject o => DBusMenuModelK o -instance (GObject o, IsDescendantOf DBusMenuModel o) => DBusMenuModelK o - -toDBusMenuModel :: DBusMenuModelK o => o -> IO DBusMenuModel -toDBusMenuModel = unsafeCastTo DBusMenuModel - -noDBusMenuModel :: Maybe DBusMenuModel -noDBusMenuModel = Nothing - -type family ResolveDBusMenuModelMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusMenuModelMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusMenuModelMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusMenuModelMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusMenuModelMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusMenuModelMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusMenuModelMethod "isMutable" o = MenuModelIsMutableMethodInfo - ResolveDBusMenuModelMethod "itemsChanged" o = MenuModelItemsChangedMethodInfo - ResolveDBusMenuModelMethod "iterateItemAttributes" o = MenuModelIterateItemAttributesMethodInfo - ResolveDBusMenuModelMethod "iterateItemLinks" o = MenuModelIterateItemLinksMethodInfo - ResolveDBusMenuModelMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusMenuModelMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusMenuModelMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusMenuModelMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusMenuModelMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusMenuModelMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusMenuModelMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusMenuModelMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusMenuModelMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusMenuModelMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusMenuModelMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusMenuModelMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusMenuModelMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusMenuModelMethod "getItemAttributeValue" o = MenuModelGetItemAttributeValueMethodInfo - ResolveDBusMenuModelMethod "getItemLink" o = MenuModelGetItemLinkMethodInfo - ResolveDBusMenuModelMethod "getNItems" o = MenuModelGetNItemsMethodInfo - ResolveDBusMenuModelMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusMenuModelMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusMenuModelMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusMenuModelMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusMenuModelMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusMenuModelMethod t DBusMenuModel, MethodInfo info DBusMenuModel p) => IsLabelProxy t (DBusMenuModel -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusMenuModelMethod t DBusMenuModel, MethodInfo info DBusMenuModel p) => IsLabel t (DBusMenuModel -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DBusMenuModel = DBusMenuModelAttributeList -type DBusMenuModelAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList DBusMenuModel = DBusMenuModelSignalList -type DBusMenuModelSignalList = ('[ '("itemsChanged", MenuModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DBusMenuModel::get --- method type : MemberFunction --- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bus_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusMenuModel") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_menu_model_get" g_dbus_menu_model_get :: - Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection" - CString -> -- bus_name : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - IO (Ptr DBusMenuModel) - - -dBusMenuModelGet :: - (MonadIO m, DBusConnectionK a) => - a -- connection - -> T.Text -- busName - -> T.Text -- objectPath - -> m DBusMenuModel -- result -dBusMenuModelGet connection busName objectPath = liftIO $ do - let connection' = unsafeManagedPtrCastPtr connection - busName' <- textToCString busName - objectPath' <- textToCString objectPath - result <- g_dbus_menu_model_get connection' busName' objectPath' - checkUnexpectedReturnNULL "g_dbus_menu_model_get" result - result' <- (wrapObject DBusMenuModel) result - touchManagedPtr connection - freeMem busName' - freeMem objectPath' - return result' - - diff --git a/GI/Gio/Objects/DBusMenuModel.hs-boot b/GI/Gio/Objects/DBusMenuModel.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DBusMenuModel.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gio.Objects.DBusMenuModel where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusMenuModel = DBusMenuModel (ForeignPtr DBusMenuModel) -instance GObject DBusMenuModel where -class GObject o => DBusMenuModelK o -instance (GObject o, IsDescendantOf DBusMenuModel o) => DBusMenuModelK o diff --git a/GI/Gio/Objects/DBusMessage.hs b/GI/Gio/Objects/DBusMessage.hs deleted file mode 100644 --- a/GI/Gio/Objects/DBusMessage.hs +++ /dev/null @@ -1,1836 +0,0 @@ - - -{- | -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.Objects.DBusMessage - ( - --- * Exported types - DBusMessage(..) , - DBusMessageK , - toDBusMessage , - noDBusMessage , - - - -- * Methods --- ** dBusMessageBytesNeeded - dBusMessageBytesNeeded , - - --- ** dBusMessageCopy - DBusMessageCopyMethodInfo , - dBusMessageCopy , - - --- ** dBusMessageGetArg0 - DBusMessageGetArg0MethodInfo , - dBusMessageGetArg0 , - - --- ** dBusMessageGetBody - DBusMessageGetBodyMethodInfo , - dBusMessageGetBody , - - --- ** dBusMessageGetByteOrder - DBusMessageGetByteOrderMethodInfo , - dBusMessageGetByteOrder , - - --- ** dBusMessageGetDestination - DBusMessageGetDestinationMethodInfo , - dBusMessageGetDestination , - - --- ** dBusMessageGetErrorName - DBusMessageGetErrorNameMethodInfo , - dBusMessageGetErrorName , - - --- ** dBusMessageGetFlags - DBusMessageGetFlagsMethodInfo , - dBusMessageGetFlags , - - --- ** dBusMessageGetHeader - DBusMessageGetHeaderMethodInfo , - dBusMessageGetHeader , - - --- ** dBusMessageGetHeaderFields - DBusMessageGetHeaderFieldsMethodInfo , - dBusMessageGetHeaderFields , - - --- ** dBusMessageGetInterface - DBusMessageGetInterfaceMethodInfo , - dBusMessageGetInterface , - - --- ** dBusMessageGetLocked - DBusMessageGetLockedMethodInfo , - dBusMessageGetLocked , - - --- ** dBusMessageGetMember - DBusMessageGetMemberMethodInfo , - dBusMessageGetMember , - - --- ** dBusMessageGetMessageType - DBusMessageGetMessageTypeMethodInfo , - dBusMessageGetMessageType , - - --- ** dBusMessageGetNumUnixFds - DBusMessageGetNumUnixFdsMethodInfo , - dBusMessageGetNumUnixFds , - - --- ** dBusMessageGetPath - DBusMessageGetPathMethodInfo , - dBusMessageGetPath , - - --- ** dBusMessageGetReplySerial - DBusMessageGetReplySerialMethodInfo , - dBusMessageGetReplySerial , - - --- ** dBusMessageGetSender - DBusMessageGetSenderMethodInfo , - dBusMessageGetSender , - - --- ** dBusMessageGetSerial - DBusMessageGetSerialMethodInfo , - dBusMessageGetSerial , - - --- ** dBusMessageGetSignature - DBusMessageGetSignatureMethodInfo , - dBusMessageGetSignature , - - --- ** dBusMessageGetUnixFdList - DBusMessageGetUnixFdListMethodInfo , - dBusMessageGetUnixFdList , - - --- ** dBusMessageLock - DBusMessageLockMethodInfo , - dBusMessageLock , - - --- ** dBusMessageNew - dBusMessageNew , - - --- ** dBusMessageNewFromBlob - dBusMessageNewFromBlob , - - --- ** dBusMessageNewMethodCall - dBusMessageNewMethodCall , - - --- ** dBusMessageNewMethodErrorLiteral - DBusMessageNewMethodErrorLiteralMethodInfo, - dBusMessageNewMethodErrorLiteral , - - --- ** dBusMessageNewMethodReply - DBusMessageNewMethodReplyMethodInfo , - dBusMessageNewMethodReply , - - --- ** dBusMessageNewSignal - dBusMessageNewSignal , - - --- ** dBusMessagePrint - DBusMessagePrintMethodInfo , - dBusMessagePrint , - - --- ** dBusMessageSetBody - DBusMessageSetBodyMethodInfo , - dBusMessageSetBody , - - --- ** dBusMessageSetByteOrder - DBusMessageSetByteOrderMethodInfo , - dBusMessageSetByteOrder , - - --- ** dBusMessageSetDestination - DBusMessageSetDestinationMethodInfo , - dBusMessageSetDestination , - - --- ** dBusMessageSetErrorName - DBusMessageSetErrorNameMethodInfo , - dBusMessageSetErrorName , - - --- ** dBusMessageSetFlags - DBusMessageSetFlagsMethodInfo , - dBusMessageSetFlags , - - --- ** dBusMessageSetHeader - DBusMessageSetHeaderMethodInfo , - dBusMessageSetHeader , - - --- ** dBusMessageSetInterface - DBusMessageSetInterfaceMethodInfo , - dBusMessageSetInterface , - - --- ** dBusMessageSetMember - DBusMessageSetMemberMethodInfo , - dBusMessageSetMember , - - --- ** dBusMessageSetMessageType - DBusMessageSetMessageTypeMethodInfo , - dBusMessageSetMessageType , - - --- ** dBusMessageSetNumUnixFds - DBusMessageSetNumUnixFdsMethodInfo , - dBusMessageSetNumUnixFds , - - --- ** dBusMessageSetPath - DBusMessageSetPathMethodInfo , - dBusMessageSetPath , - - --- ** dBusMessageSetReplySerial - DBusMessageSetReplySerialMethodInfo , - dBusMessageSetReplySerial , - - --- ** dBusMessageSetSender - DBusMessageSetSenderMethodInfo , - dBusMessageSetSender , - - --- ** dBusMessageSetSerial - DBusMessageSetSerialMethodInfo , - dBusMessageSetSerial , - - --- ** dBusMessageSetSignature - DBusMessageSetSignatureMethodInfo , - dBusMessageSetSignature , - - --- ** dBusMessageSetUnixFdList - DBusMessageSetUnixFdListMethodInfo , - dBusMessageSetUnixFdList , - - --- ** dBusMessageToBlob - DBusMessageToBlobMethodInfo , - dBusMessageToBlob , - - --- ** dBusMessageToGerror - DBusMessageToGerrorMethodInfo , - dBusMessageToGerror , - - - - - -- * Properties --- ** Locked - DBusMessageLockedPropertyInfo , - dBusMessageLocked , - getDBusMessageLocked , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype DBusMessage = DBusMessage (ForeignPtr DBusMessage) -foreign import ccall "g_dbus_message_get_type" - c_g_dbus_message_get_type :: IO GType - -type instance ParentTypes DBusMessage = DBusMessageParentTypes -type DBusMessageParentTypes = '[GObject.Object] - -instance GObject DBusMessage where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_message_get_type - - -class GObject o => DBusMessageK o -instance (GObject o, IsDescendantOf DBusMessage o) => DBusMessageK o - -toDBusMessage :: DBusMessageK o => o -> IO DBusMessage -toDBusMessage = unsafeCastTo DBusMessage - -noDBusMessage :: Maybe DBusMessage -noDBusMessage = Nothing - -type family ResolveDBusMessageMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusMessageMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusMessageMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusMessageMethod "copy" o = DBusMessageCopyMethodInfo - ResolveDBusMessageMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusMessageMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusMessageMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusMessageMethod "lock" o = DBusMessageLockMethodInfo - ResolveDBusMessageMethod "newMethodErrorLiteral" o = DBusMessageNewMethodErrorLiteralMethodInfo - ResolveDBusMessageMethod "newMethodReply" o = DBusMessageNewMethodReplyMethodInfo - ResolveDBusMessageMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusMessageMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusMessageMethod "print" o = DBusMessagePrintMethodInfo - ResolveDBusMessageMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusMessageMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusMessageMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusMessageMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusMessageMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusMessageMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusMessageMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusMessageMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusMessageMethod "toBlob" o = DBusMessageToBlobMethodInfo - ResolveDBusMessageMethod "toGerror" o = DBusMessageToGerrorMethodInfo - ResolveDBusMessageMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusMessageMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusMessageMethod "getArg0" o = DBusMessageGetArg0MethodInfo - ResolveDBusMessageMethod "getBody" o = DBusMessageGetBodyMethodInfo - ResolveDBusMessageMethod "getByteOrder" o = DBusMessageGetByteOrderMethodInfo - ResolveDBusMessageMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusMessageMethod "getDestination" o = DBusMessageGetDestinationMethodInfo - ResolveDBusMessageMethod "getErrorName" o = DBusMessageGetErrorNameMethodInfo - ResolveDBusMessageMethod "getFlags" o = DBusMessageGetFlagsMethodInfo - ResolveDBusMessageMethod "getHeader" o = DBusMessageGetHeaderMethodInfo - ResolveDBusMessageMethod "getHeaderFields" o = DBusMessageGetHeaderFieldsMethodInfo - ResolveDBusMessageMethod "getInterface" o = DBusMessageGetInterfaceMethodInfo - ResolveDBusMessageMethod "getLocked" o = DBusMessageGetLockedMethodInfo - ResolveDBusMessageMethod "getMember" o = DBusMessageGetMemberMethodInfo - ResolveDBusMessageMethod "getMessageType" o = DBusMessageGetMessageTypeMethodInfo - ResolveDBusMessageMethod "getNumUnixFds" o = DBusMessageGetNumUnixFdsMethodInfo - ResolveDBusMessageMethod "getPath" o = DBusMessageGetPathMethodInfo - ResolveDBusMessageMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusMessageMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusMessageMethod "getReplySerial" o = DBusMessageGetReplySerialMethodInfo - ResolveDBusMessageMethod "getSender" o = DBusMessageGetSenderMethodInfo - ResolveDBusMessageMethod "getSerial" o = DBusMessageGetSerialMethodInfo - ResolveDBusMessageMethod "getSignature" o = DBusMessageGetSignatureMethodInfo - ResolveDBusMessageMethod "getUnixFdList" o = DBusMessageGetUnixFdListMethodInfo - ResolveDBusMessageMethod "setBody" o = DBusMessageSetBodyMethodInfo - ResolveDBusMessageMethod "setByteOrder" o = DBusMessageSetByteOrderMethodInfo - ResolveDBusMessageMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusMessageMethod "setDestination" o = DBusMessageSetDestinationMethodInfo - ResolveDBusMessageMethod "setErrorName" o = DBusMessageSetErrorNameMethodInfo - ResolveDBusMessageMethod "setFlags" o = DBusMessageSetFlagsMethodInfo - ResolveDBusMessageMethod "setHeader" o = DBusMessageSetHeaderMethodInfo - ResolveDBusMessageMethod "setInterface" o = DBusMessageSetInterfaceMethodInfo - ResolveDBusMessageMethod "setMember" o = DBusMessageSetMemberMethodInfo - ResolveDBusMessageMethod "setMessageType" o = DBusMessageSetMessageTypeMethodInfo - ResolveDBusMessageMethod "setNumUnixFds" o = DBusMessageSetNumUnixFdsMethodInfo - ResolveDBusMessageMethod "setPath" o = DBusMessageSetPathMethodInfo - ResolveDBusMessageMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusMessageMethod "setReplySerial" o = DBusMessageSetReplySerialMethodInfo - ResolveDBusMessageMethod "setSender" o = DBusMessageSetSenderMethodInfo - ResolveDBusMessageMethod "setSerial" o = DBusMessageSetSerialMethodInfo - ResolveDBusMessageMethod "setSignature" o = DBusMessageSetSignatureMethodInfo - ResolveDBusMessageMethod "setUnixFdList" o = DBusMessageSetUnixFdListMethodInfo - ResolveDBusMessageMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusMessageMethod t DBusMessage, MethodInfo info DBusMessage p) => IsLabelProxy t (DBusMessage -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusMessageMethod t DBusMessage, MethodInfo info DBusMessage p) => IsLabel t (DBusMessage -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "locked" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDBusMessageLocked :: (MonadIO m, DBusMessageK o) => o -> m Bool -getDBusMessageLocked obj = liftIO $ getObjectPropertyBool obj "locked" - -data DBusMessageLockedPropertyInfo -instance AttrInfo DBusMessageLockedPropertyInfo where - type AttrAllowedOps DBusMessageLockedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DBusMessageLockedPropertyInfo = (~) () - type AttrBaseTypeConstraint DBusMessageLockedPropertyInfo = DBusMessageK - type AttrGetType DBusMessageLockedPropertyInfo = Bool - type AttrLabel DBusMessageLockedPropertyInfo = "locked" - attrGet _ = getDBusMessageLocked - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList DBusMessage = DBusMessageAttributeList -type DBusMessageAttributeList = ('[ '("locked", DBusMessageLockedPropertyInfo)] :: [(Symbol, *)]) - -dBusMessageLocked :: AttrLabelProxy "locked" -dBusMessageLocked = AttrLabelProxy - -type instance SignalList DBusMessage = DBusMessageSignalList -type DBusMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DBusMessage::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusMessage") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_new" g_dbus_message_new :: - IO (Ptr DBusMessage) - - -dBusMessageNew :: - (MonadIO m) => - m DBusMessage -- result -dBusMessageNew = liftIO $ do - result <- g_dbus_message_new - checkUnexpectedReturnNULL "g_dbus_message_new" result - result' <- (wrapObject DBusMessage) result - return result' - --- method DBusMessage::new_from_blob --- method type : Constructor --- Args : [Arg {argCName = "blob", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "capabilities", argType = TInterface "Gio" "DBusCapabilityFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TInterface "Gio" "DBusMessage") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_message_new_from_blob" g_dbus_message_new_from_blob :: - Ptr Word8 -> -- blob : TCArray False (-1) 1 (TBasicType TUInt8) - Word64 -> -- blob_len : TBasicType TUInt64 - CUInt -> -- capabilities : TInterface "Gio" "DBusCapabilityFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusMessage) - - -dBusMessageNewFromBlob :: - (MonadIO m) => - ByteString -- blob - -> [DBusCapabilityFlags] -- capabilities - -> m DBusMessage -- result -dBusMessageNewFromBlob blob capabilities = liftIO $ do - let blobLen = fromIntegral $ B.length blob - blob' <- packByteString blob - let capabilities' = gflagsToWord capabilities - onException (do - result <- propagateGError $ g_dbus_message_new_from_blob blob' blobLen capabilities' - checkUnexpectedReturnNULL "g_dbus_message_new_from_blob" result - result' <- (wrapObject DBusMessage) result - freeMem blob' - return result' - ) (do - freeMem blob' - ) - --- method DBusMessage::new_method_call --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusMessage") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_new_method_call" g_dbus_message_new_method_call :: - CString -> -- name : TBasicType TUTF8 - CString -> -- path : TBasicType TUTF8 - CString -> -- interface_ : TBasicType TUTF8 - CString -> -- method : TBasicType TUTF8 - IO (Ptr DBusMessage) - - -dBusMessageNewMethodCall :: - (MonadIO m) => - Maybe (T.Text) -- name - -> T.Text -- path - -> Maybe (T.Text) -- interface_ - -> T.Text -- method - -> m DBusMessage -- result -dBusMessageNewMethodCall name path interface_ method = liftIO $ do - maybeName <- case name of - Nothing -> return nullPtr - Just jName -> do - jName' <- textToCString jName - return jName' - path' <- textToCString path - maybeInterface_ <- case interface_ of - Nothing -> return nullPtr - Just jInterface_ -> do - jInterface_' <- textToCString jInterface_ - return jInterface_' - method' <- textToCString method - result <- g_dbus_message_new_method_call maybeName path' maybeInterface_ method' - checkUnexpectedReturnNULL "g_dbus_message_new_method_call" result - result' <- (wrapObject DBusMessage) result - freeMem maybeName - freeMem path' - freeMem maybeInterface_ - freeMem method' - return result' - --- method DBusMessage::new_signal --- method type : Constructor --- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusMessage") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_new_signal" g_dbus_message_new_signal :: - CString -> -- path : TBasicType TUTF8 - CString -> -- interface_ : TBasicType TUTF8 - CString -> -- signal : TBasicType TUTF8 - IO (Ptr DBusMessage) - - -dBusMessageNewSignal :: - (MonadIO m) => - T.Text -- path - -> T.Text -- interface_ - -> T.Text -- signal - -> m DBusMessage -- result -dBusMessageNewSignal path interface_ signal = liftIO $ do - path' <- textToCString path - interface_' <- textToCString interface_ - signal' <- textToCString signal - result <- g_dbus_message_new_signal path' interface_' signal' - checkUnexpectedReturnNULL "g_dbus_message_new_signal" result - result' <- (wrapObject DBusMessage) result - freeMem path' - freeMem interface_' - freeMem signal' - return result' - --- method DBusMessage::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusMessage") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_message_copy" g_dbus_message_copy :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusMessage) - - -dBusMessageCopy :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m DBusMessage -- result -dBusMessageCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ g_dbus_message_copy _obj' - checkUnexpectedReturnNULL "g_dbus_message_copy" result - result' <- (wrapObject DBusMessage) result - touchManagedPtr _obj - return result' - ) (do - return () - ) - -data DBusMessageCopyMethodInfo -instance (signature ~ (m DBusMessage), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageCopyMethodInfo a signature where - overloadedMethod _ = dBusMessageCopy - --- method DBusMessage::get_arg0 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_arg0" g_dbus_message_get_arg0 :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO CString - - -dBusMessageGetArg0 :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m T.Text -- result -dBusMessageGetArg0 _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_arg0 _obj' - checkUnexpectedReturnNULL "g_dbus_message_get_arg0" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusMessageGetArg0MethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetArg0MethodInfo a signature where - overloadedMethod _ = dBusMessageGetArg0 - --- method DBusMessage::get_body --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_body" g_dbus_message_get_body :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO (Ptr GVariant) - - -dBusMessageGetBody :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m GVariant -- result -dBusMessageGetBody _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_body _obj' - checkUnexpectedReturnNULL "g_dbus_message_get_body" result - result' <- newGVariantFromPtr result - touchManagedPtr _obj - return result' - -data DBusMessageGetBodyMethodInfo -instance (signature ~ (m GVariant), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetBodyMethodInfo a signature where - overloadedMethod _ = dBusMessageGetBody - --- method DBusMessage::get_byte_order --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusMessageByteOrder") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_byte_order" g_dbus_message_get_byte_order :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO CUInt - - -dBusMessageGetByteOrder :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m DBusMessageByteOrder -- result -dBusMessageGetByteOrder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_byte_order _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data DBusMessageGetByteOrderMethodInfo -instance (signature ~ (m DBusMessageByteOrder), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetByteOrderMethodInfo a signature where - overloadedMethod _ = dBusMessageGetByteOrder - --- method DBusMessage::get_destination --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_destination" g_dbus_message_get_destination :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO CString - - -dBusMessageGetDestination :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m T.Text -- result -dBusMessageGetDestination _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_destination _obj' - checkUnexpectedReturnNULL "g_dbus_message_get_destination" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusMessageGetDestinationMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetDestinationMethodInfo a signature where - overloadedMethod _ = dBusMessageGetDestination - --- method DBusMessage::get_error_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_error_name" g_dbus_message_get_error_name :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO CString - - -dBusMessageGetErrorName :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m T.Text -- result -dBusMessageGetErrorName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_error_name _obj' - checkUnexpectedReturnNULL "g_dbus_message_get_error_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusMessageGetErrorNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetErrorNameMethodInfo a signature where - overloadedMethod _ = dBusMessageGetErrorName - --- method DBusMessage::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusMessageFlags") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_flags" g_dbus_message_get_flags :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO CUInt - - -dBusMessageGetFlags :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m [DBusMessageFlags] -- result -dBusMessageGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data DBusMessageGetFlagsMethodInfo -instance (signature ~ (m [DBusMessageFlags]), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetFlagsMethodInfo a signature where - overloadedMethod _ = dBusMessageGetFlags - --- method DBusMessage::get_header --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "header_field", argType = TInterface "Gio" "DBusMessageHeaderField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_header" g_dbus_message_get_header :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - CUInt -> -- header_field : TInterface "Gio" "DBusMessageHeaderField" - IO (Ptr GVariant) - - -dBusMessageGetHeader :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> DBusMessageHeaderField -- headerField - -> m GVariant -- result -dBusMessageGetHeader _obj headerField = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let headerField' = (fromIntegral . fromEnum) headerField - result <- g_dbus_message_get_header _obj' headerField' - checkUnexpectedReturnNULL "g_dbus_message_get_header" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - return result' - -data DBusMessageGetHeaderMethodInfo -instance (signature ~ (DBusMessageHeaderField -> m GVariant), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetHeaderMethodInfo a signature where - overloadedMethod _ = dBusMessageGetHeader - --- method DBusMessage::get_header_fields --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUInt8)) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_header_fields" g_dbus_message_get_header_fields :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO (Ptr Word8) - - -dBusMessageGetHeaderFields :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m ByteString -- result -dBusMessageGetHeaderFields _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_header_fields _obj' - checkUnexpectedReturnNULL "g_dbus_message_get_header_fields" result - result' <- unpackZeroTerminatedByteString result - touchManagedPtr _obj - return result' - -data DBusMessageGetHeaderFieldsMethodInfo -instance (signature ~ (m ByteString), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetHeaderFieldsMethodInfo a signature where - overloadedMethod _ = dBusMessageGetHeaderFields - --- method DBusMessage::get_interface --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_interface" g_dbus_message_get_interface :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO CString - - -dBusMessageGetInterface :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m T.Text -- result -dBusMessageGetInterface _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_interface _obj' - checkUnexpectedReturnNULL "g_dbus_message_get_interface" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusMessageGetInterfaceMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetInterfaceMethodInfo a signature where - overloadedMethod _ = dBusMessageGetInterface - --- method DBusMessage::get_locked --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_locked" g_dbus_message_get_locked :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO CInt - - -dBusMessageGetLocked :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m Bool -- result -dBusMessageGetLocked _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_locked _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DBusMessageGetLockedMethodInfo -instance (signature ~ (m Bool), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetLockedMethodInfo a signature where - overloadedMethod _ = dBusMessageGetLocked - --- method DBusMessage::get_member --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_member" g_dbus_message_get_member :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO CString - - -dBusMessageGetMember :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m T.Text -- result -dBusMessageGetMember _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_member _obj' - checkUnexpectedReturnNULL "g_dbus_message_get_member" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusMessageGetMemberMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetMemberMethodInfo a signature where - overloadedMethod _ = dBusMessageGetMember - --- method DBusMessage::get_message_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusMessageType") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_message_type" g_dbus_message_get_message_type :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO CUInt - - -dBusMessageGetMessageType :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m DBusMessageType -- result -dBusMessageGetMessageType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_message_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data DBusMessageGetMessageTypeMethodInfo -instance (signature ~ (m DBusMessageType), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetMessageTypeMethodInfo a signature where - overloadedMethod _ = dBusMessageGetMessageType - --- method DBusMessage::get_num_unix_fds --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_num_unix_fds" g_dbus_message_get_num_unix_fds :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO Word32 - - -dBusMessageGetNumUnixFds :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m Word32 -- result -dBusMessageGetNumUnixFds _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_num_unix_fds _obj' - touchManagedPtr _obj - return result - -data DBusMessageGetNumUnixFdsMethodInfo -instance (signature ~ (m Word32), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetNumUnixFdsMethodInfo a signature where - overloadedMethod _ = dBusMessageGetNumUnixFds - --- method DBusMessage::get_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_path" g_dbus_message_get_path :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO CString - - -dBusMessageGetPath :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m T.Text -- result -dBusMessageGetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_path _obj' - checkUnexpectedReturnNULL "g_dbus_message_get_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusMessageGetPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetPathMethodInfo a signature where - overloadedMethod _ = dBusMessageGetPath - --- method DBusMessage::get_reply_serial --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_reply_serial" g_dbus_message_get_reply_serial :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO Word32 - - -dBusMessageGetReplySerial :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m Word32 -- result -dBusMessageGetReplySerial _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_reply_serial _obj' - touchManagedPtr _obj - return result - -data DBusMessageGetReplySerialMethodInfo -instance (signature ~ (m Word32), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetReplySerialMethodInfo a signature where - overloadedMethod _ = dBusMessageGetReplySerial - --- method DBusMessage::get_sender --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_sender" g_dbus_message_get_sender :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO CString - - -dBusMessageGetSender :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m T.Text -- result -dBusMessageGetSender _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_sender _obj' - checkUnexpectedReturnNULL "g_dbus_message_get_sender" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusMessageGetSenderMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetSenderMethodInfo a signature where - overloadedMethod _ = dBusMessageGetSender - --- method DBusMessage::get_serial --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_serial" g_dbus_message_get_serial :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO Word32 - - -dBusMessageGetSerial :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m Word32 -- result -dBusMessageGetSerial _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_serial _obj' - touchManagedPtr _obj - return result - -data DBusMessageGetSerialMethodInfo -instance (signature ~ (m Word32), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetSerialMethodInfo a signature where - overloadedMethod _ = dBusMessageGetSerial - --- method DBusMessage::get_signature --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_signature" g_dbus_message_get_signature :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO CString - - -dBusMessageGetSignature :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m T.Text -- result -dBusMessageGetSignature _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_signature _obj' - checkUnexpectedReturnNULL "g_dbus_message_get_signature" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusMessageGetSignatureMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetSignatureMethodInfo a signature where - overloadedMethod _ = dBusMessageGetSignature - --- method DBusMessage::get_unix_fd_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "UnixFDList") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_get_unix_fd_list" g_dbus_message_get_unix_fd_list :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO (Ptr UnixFDList) - - -dBusMessageGetUnixFdList :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m UnixFDList -- result -dBusMessageGetUnixFdList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_get_unix_fd_list _obj' - checkUnexpectedReturnNULL "g_dbus_message_get_unix_fd_list" result - result' <- (newObject UnixFDList) result - touchManagedPtr _obj - return result' - -data DBusMessageGetUnixFdListMethodInfo -instance (signature ~ (m UnixFDList), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageGetUnixFdListMethodInfo a signature where - overloadedMethod _ = dBusMessageGetUnixFdList - --- method DBusMessage::lock --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_lock" g_dbus_message_lock :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO () - - -dBusMessageLock :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m () -- result -dBusMessageLock _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_message_lock _obj' - touchManagedPtr _obj - return () - -data DBusMessageLockMethodInfo -instance (signature ~ (m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageLockMethodInfo a signature where - overloadedMethod _ = dBusMessageLock - --- method DBusMessage::new_method_error_literal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusMessage") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_new_method_error_literal" g_dbus_message_new_method_error_literal :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - CString -> -- error_name : TBasicType TUTF8 - CString -> -- error_message : TBasicType TUTF8 - IO (Ptr DBusMessage) - - -dBusMessageNewMethodErrorLiteral :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> T.Text -- errorName - -> T.Text -- errorMessage - -> m DBusMessage -- result -dBusMessageNewMethodErrorLiteral _obj errorName errorMessage = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - errorName' <- textToCString errorName - errorMessage' <- textToCString errorMessage - result <- g_dbus_message_new_method_error_literal _obj' errorName' errorMessage' - checkUnexpectedReturnNULL "g_dbus_message_new_method_error_literal" result - result' <- (wrapObject DBusMessage) result - touchManagedPtr _obj - freeMem errorName' - freeMem errorMessage' - return result' - -data DBusMessageNewMethodErrorLiteralMethodInfo -instance (signature ~ (T.Text -> T.Text -> m DBusMessage), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageNewMethodErrorLiteralMethodInfo a signature where - overloadedMethod _ = dBusMessageNewMethodErrorLiteral - --- method DBusMessage::new_method_reply --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusMessage") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_new_method_reply" g_dbus_message_new_method_reply :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - IO (Ptr DBusMessage) - - -dBusMessageNewMethodReply :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m DBusMessage -- result -dBusMessageNewMethodReply _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_new_method_reply _obj' - checkUnexpectedReturnNULL "g_dbus_message_new_method_reply" result - result' <- (wrapObject DBusMessage) result - touchManagedPtr _obj - return result' - -data DBusMessageNewMethodReplyMethodInfo -instance (signature ~ (m DBusMessage), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageNewMethodReplyMethodInfo a signature where - overloadedMethod _ = dBusMessageNewMethodReply - --- method DBusMessage::print --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indent", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_print" g_dbus_message_print :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - Word32 -> -- indent : TBasicType TUInt - IO CString - - -dBusMessagePrint :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> Word32 -- indent - -> m T.Text -- result -dBusMessagePrint _obj indent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_message_print _obj' indent - checkUnexpectedReturnNULL "g_dbus_message_print" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data DBusMessagePrintMethodInfo -instance (signature ~ (Word32 -> m T.Text), MonadIO m, DBusMessageK a) => MethodInfo DBusMessagePrintMethodInfo a signature where - overloadedMethod _ = dBusMessagePrint - --- method DBusMessage::set_body --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_body" g_dbus_message_set_body :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - Ptr GVariant -> -- body : TVariant - IO () - - -dBusMessageSetBody :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> GVariant -- body - -> m () -- result -dBusMessageSetBody _obj body = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let body' = unsafeManagedPtrGetPtr body - g_dbus_message_set_body _obj' body' - touchManagedPtr _obj - return () - -data DBusMessageSetBodyMethodInfo -instance (signature ~ (GVariant -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetBodyMethodInfo a signature where - overloadedMethod _ = dBusMessageSetBody - --- method DBusMessage::set_byte_order --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "byte_order", argType = TInterface "Gio" "DBusMessageByteOrder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_byte_order" g_dbus_message_set_byte_order :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - CUInt -> -- byte_order : TInterface "Gio" "DBusMessageByteOrder" - IO () - - -dBusMessageSetByteOrder :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> DBusMessageByteOrder -- byteOrder - -> m () -- result -dBusMessageSetByteOrder _obj byteOrder = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let byteOrder' = (fromIntegral . fromEnum) byteOrder - g_dbus_message_set_byte_order _obj' byteOrder' - touchManagedPtr _obj - return () - -data DBusMessageSetByteOrderMethodInfo -instance (signature ~ (DBusMessageByteOrder -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetByteOrderMethodInfo a signature where - overloadedMethod _ = dBusMessageSetByteOrder - --- method DBusMessage::set_destination --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_destination" g_dbus_message_set_destination :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - CString -> -- value : TBasicType TUTF8 - IO () - - -dBusMessageSetDestination :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> T.Text -- value - -> m () -- result -dBusMessageSetDestination _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - value' <- textToCString value - g_dbus_message_set_destination _obj' value' - touchManagedPtr _obj - freeMem value' - return () - -data DBusMessageSetDestinationMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetDestinationMethodInfo a signature where - overloadedMethod _ = dBusMessageSetDestination - --- method DBusMessage::set_error_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_error_name" g_dbus_message_set_error_name :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - CString -> -- value : TBasicType TUTF8 - IO () - - -dBusMessageSetErrorName :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> T.Text -- value - -> m () -- result -dBusMessageSetErrorName _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - value' <- textToCString value - g_dbus_message_set_error_name _obj' value' - touchManagedPtr _obj - freeMem value' - return () - -data DBusMessageSetErrorNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetErrorNameMethodInfo a signature where - overloadedMethod _ = dBusMessageSetErrorName - --- method DBusMessage::set_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusMessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_flags" g_dbus_message_set_flags :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - CUInt -> -- flags : TInterface "Gio" "DBusMessageFlags" - IO () - - -dBusMessageSetFlags :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> [DBusMessageFlags] -- flags - -> m () -- result -dBusMessageSetFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - g_dbus_message_set_flags _obj' flags' - touchManagedPtr _obj - return () - -data DBusMessageSetFlagsMethodInfo -instance (signature ~ ([DBusMessageFlags] -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetFlagsMethodInfo a signature where - overloadedMethod _ = dBusMessageSetFlags - --- method DBusMessage::set_header --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "header_field", argType = TInterface "Gio" "DBusMessageHeaderField", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_header" g_dbus_message_set_header :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - CUInt -> -- header_field : TInterface "Gio" "DBusMessageHeaderField" - Ptr GVariant -> -- value : TVariant - IO () - - -dBusMessageSetHeader :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> DBusMessageHeaderField -- headerField - -> Maybe (GVariant) -- value - -> m () -- result -dBusMessageSetHeader _obj headerField value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let headerField' = (fromIntegral . fromEnum) headerField - maybeValue <- case value of - Nothing -> return nullPtr - Just jValue -> do - let jValue' = unsafeManagedPtrGetPtr jValue - return jValue' - g_dbus_message_set_header _obj' headerField' maybeValue - touchManagedPtr _obj - return () - -data DBusMessageSetHeaderMethodInfo -instance (signature ~ (DBusMessageHeaderField -> Maybe (GVariant) -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetHeaderMethodInfo a signature where - overloadedMethod _ = dBusMessageSetHeader - --- method DBusMessage::set_interface --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_interface" g_dbus_message_set_interface :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - CString -> -- value : TBasicType TUTF8 - IO () - - -dBusMessageSetInterface :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> T.Text -- value - -> m () -- result -dBusMessageSetInterface _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - value' <- textToCString value - g_dbus_message_set_interface _obj' value' - touchManagedPtr _obj - freeMem value' - return () - -data DBusMessageSetInterfaceMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetInterfaceMethodInfo a signature where - overloadedMethod _ = dBusMessageSetInterface - --- method DBusMessage::set_member --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_member" g_dbus_message_set_member :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - CString -> -- value : TBasicType TUTF8 - IO () - - -dBusMessageSetMember :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> T.Text -- value - -> m () -- result -dBusMessageSetMember _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - value' <- textToCString value - g_dbus_message_set_member _obj' value' - touchManagedPtr _obj - freeMem value' - return () - -data DBusMessageSetMemberMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetMemberMethodInfo a signature where - overloadedMethod _ = dBusMessageSetMember - --- method DBusMessage::set_message_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "DBusMessageType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_message_type" g_dbus_message_set_message_type :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - CUInt -> -- type : TInterface "Gio" "DBusMessageType" - IO () - - -dBusMessageSetMessageType :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> DBusMessageType -- type_ - -> m () -- result -dBusMessageSetMessageType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - g_dbus_message_set_message_type _obj' type_' - touchManagedPtr _obj - return () - -data DBusMessageSetMessageTypeMethodInfo -instance (signature ~ (DBusMessageType -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetMessageTypeMethodInfo a signature where - overloadedMethod _ = dBusMessageSetMessageType - --- method DBusMessage::set_num_unix_fds --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_num_unix_fds" g_dbus_message_set_num_unix_fds :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - Word32 -> -- value : TBasicType TUInt32 - IO () - - -dBusMessageSetNumUnixFds :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> Word32 -- value - -> m () -- result -dBusMessageSetNumUnixFds _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_message_set_num_unix_fds _obj' value - touchManagedPtr _obj - return () - -data DBusMessageSetNumUnixFdsMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetNumUnixFdsMethodInfo a signature where - overloadedMethod _ = dBusMessageSetNumUnixFds - --- method DBusMessage::set_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_path" g_dbus_message_set_path :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - CString -> -- value : TBasicType TUTF8 - IO () - - -dBusMessageSetPath :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> T.Text -- value - -> m () -- result -dBusMessageSetPath _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - value' <- textToCString value - g_dbus_message_set_path _obj' value' - touchManagedPtr _obj - freeMem value' - return () - -data DBusMessageSetPathMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetPathMethodInfo a signature where - overloadedMethod _ = dBusMessageSetPath - --- method DBusMessage::set_reply_serial --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_reply_serial" g_dbus_message_set_reply_serial :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - Word32 -> -- value : TBasicType TUInt32 - IO () - - -dBusMessageSetReplySerial :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> Word32 -- value - -> m () -- result -dBusMessageSetReplySerial _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_message_set_reply_serial _obj' value - touchManagedPtr _obj - return () - -data DBusMessageSetReplySerialMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetReplySerialMethodInfo a signature where - overloadedMethod _ = dBusMessageSetReplySerial - --- method DBusMessage::set_sender --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_sender" g_dbus_message_set_sender :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - CString -> -- value : TBasicType TUTF8 - IO () - - -dBusMessageSetSender :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> T.Text -- value - -> m () -- result -dBusMessageSetSender _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - value' <- textToCString value - g_dbus_message_set_sender _obj' value' - touchManagedPtr _obj - freeMem value' - return () - -data DBusMessageSetSenderMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetSenderMethodInfo a signature where - overloadedMethod _ = dBusMessageSetSender - --- method DBusMessage::set_serial --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "serial", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_serial" g_dbus_message_set_serial :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - Word32 -> -- serial : TBasicType TUInt32 - IO () - - -dBusMessageSetSerial :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> Word32 -- serial - -> m () -- result -dBusMessageSetSerial _obj serial = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_message_set_serial _obj' serial - touchManagedPtr _obj - return () - -data DBusMessageSetSerialMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetSerialMethodInfo a signature where - overloadedMethod _ = dBusMessageSetSerial - --- method DBusMessage::set_signature --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_signature" g_dbus_message_set_signature :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - CString -> -- value : TBasicType TUTF8 - IO () - - -dBusMessageSetSignature :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> T.Text -- value - -> m () -- result -dBusMessageSetSignature _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - value' <- textToCString value - g_dbus_message_set_signature _obj' value' - touchManagedPtr _obj - freeMem value' - return () - -data DBusMessageSetSignatureMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageSetSignatureMethodInfo a signature where - overloadedMethod _ = dBusMessageSetSignature - --- method DBusMessage::set_unix_fd_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_message_set_unix_fd_list" g_dbus_message_set_unix_fd_list :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - Ptr UnixFDList -> -- fd_list : TInterface "Gio" "UnixFDList" - IO () - - -dBusMessageSetUnixFdList :: - (MonadIO m, DBusMessageK a, UnixFDListK b) => - a -- _obj - -> Maybe (b) -- fdList - -> m () -- result -dBusMessageSetUnixFdList _obj fdList = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFdList <- case fdList of - Nothing -> return nullPtr - Just jFdList -> do - let jFdList' = unsafeManagedPtrCastPtr jFdList - return jFdList' - g_dbus_message_set_unix_fd_list _obj' maybeFdList - touchManagedPtr _obj - whenJust fdList touchManagedPtr - return () - -data DBusMessageSetUnixFdListMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, DBusMessageK a, UnixFDListK b) => MethodInfo DBusMessageSetUnixFdListMethodInfo a signature where - overloadedMethod _ = dBusMessageSetUnixFdList - --- method DBusMessage::to_blob --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "capabilities", argType = TInterface "Gio" "DBusCapabilityFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "out_size", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TBasicType TUInt8)) --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_message_to_blob" g_dbus_message_to_blob :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - Ptr Word64 -> -- out_size : TBasicType TUInt64 - CUInt -> -- capabilities : TInterface "Gio" "DBusCapabilityFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr Word8) - - -dBusMessageToBlob :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> [DBusCapabilityFlags] -- capabilities - -> m ByteString -- result -dBusMessageToBlob _obj capabilities = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - outSize <- allocMem :: IO (Ptr Word64) - let capabilities' = gflagsToWord capabilities - onException (do - result <- propagateGError $ g_dbus_message_to_blob _obj' outSize capabilities' - outSize' <- peek outSize - checkUnexpectedReturnNULL "g_dbus_message_to_blob" result - result' <- (unpackByteStringWithLength outSize') result - freeMem result - touchManagedPtr _obj - freeMem outSize - return result' - ) (do - freeMem outSize - ) - -data DBusMessageToBlobMethodInfo -instance (signature ~ ([DBusCapabilityFlags] -> m ByteString), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageToBlobMethodInfo a signature where - overloadedMethod _ = dBusMessageToBlob - --- method DBusMessage::to_gerror --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_message_to_gerror" g_dbus_message_to_gerror :: - Ptr DBusMessage -> -- _obj : TInterface "Gio" "DBusMessage" - Ptr (Ptr GError) -> -- error - IO CInt - - -dBusMessageToGerror :: - (MonadIO m, DBusMessageK a) => - a -- _obj - -> m () -- result -dBusMessageToGerror _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ g_dbus_message_to_gerror _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data DBusMessageToGerrorMethodInfo -instance (signature ~ (m ()), MonadIO m, DBusMessageK a) => MethodInfo DBusMessageToGerrorMethodInfo a signature where - overloadedMethod _ = dBusMessageToGerror - --- method DBusMessage::bytes_needed --- method type : MemberFunction --- Args : [Arg {argCName = "blob", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "blob_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_message_bytes_needed" g_dbus_message_bytes_needed :: - Ptr Word8 -> -- blob : TCArray False (-1) 1 (TBasicType TUInt8) - Word64 -> -- blob_len : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO Int64 - - -dBusMessageBytesNeeded :: - (MonadIO m) => - ByteString -- blob - -> m Int64 -- result -dBusMessageBytesNeeded blob = liftIO $ do - let blobLen = fromIntegral $ B.length blob - blob' <- packByteString blob - onException (do - result <- propagateGError $ g_dbus_message_bytes_needed blob' blobLen - freeMem blob' - return result - ) (do - freeMem blob' - ) - - diff --git a/GI/Gio/Objects/DBusMessage.hs-boot b/GI/Gio/Objects/DBusMessage.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DBusMessage.hs-boot +++ /dev/null @@ -1,56 +0,0 @@ -module GI.Gio.Objects.DBusMessage where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusMessage = DBusMessage (ForeignPtr DBusMessage) -instance GObject DBusMessage where -class GObject o => DBusMessageK o -instance (GObject o, IsDescendantOf DBusMessage o) => DBusMessageK o -data DBusMessageLockedPropertyInfo -data DBusMessageCopyMethodInfo -data DBusMessageGetArg0MethodInfo -data DBusMessageGetBodyMethodInfo -data DBusMessageGetByteOrderMethodInfo -data DBusMessageGetDestinationMethodInfo -data DBusMessageGetErrorNameMethodInfo -data DBusMessageGetFlagsMethodInfo -data DBusMessageGetHeaderMethodInfo -data DBusMessageGetHeaderFieldsMethodInfo -data DBusMessageGetInterfaceMethodInfo -data DBusMessageGetLockedMethodInfo -data DBusMessageGetMemberMethodInfo -data DBusMessageGetMessageTypeMethodInfo -data DBusMessageGetNumUnixFdsMethodInfo -data DBusMessageGetPathMethodInfo -data DBusMessageGetReplySerialMethodInfo -data DBusMessageGetSenderMethodInfo -data DBusMessageGetSerialMethodInfo -data DBusMessageGetSignatureMethodInfo -data DBusMessageGetUnixFdListMethodInfo -data DBusMessageLockMethodInfo -data DBusMessageNewMethodErrorLiteralMethodInfo -data DBusMessageNewMethodReplyMethodInfo -data DBusMessagePrintMethodInfo -data DBusMessageSetBodyMethodInfo -data DBusMessageSetByteOrderMethodInfo -data DBusMessageSetDestinationMethodInfo -data DBusMessageSetErrorNameMethodInfo -data DBusMessageSetFlagsMethodInfo -data DBusMessageSetHeaderMethodInfo -data DBusMessageSetInterfaceMethodInfo -data DBusMessageSetMemberMethodInfo -data DBusMessageSetMessageTypeMethodInfo -data DBusMessageSetNumUnixFdsMethodInfo -data DBusMessageSetPathMethodInfo -data DBusMessageSetReplySerialMethodInfo -data DBusMessageSetSenderMethodInfo -data DBusMessageSetSerialMethodInfo -data DBusMessageSetSignatureMethodInfo -data DBusMessageSetUnixFdListMethodInfo -data DBusMessageToBlobMethodInfo -data DBusMessageToGerrorMethodInfo diff --git a/GI/Gio/Objects/DBusMethodInvocation.hs b/GI/Gio/Objects/DBusMethodInvocation.hs deleted file mode 100644 --- a/GI/Gio/Objects/DBusMethodInvocation.hs +++ /dev/null @@ -1,617 +0,0 @@ - - -{- | -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.Objects.DBusMethodInvocation - ( - --- * Exported types - DBusMethodInvocation(..) , - DBusMethodInvocationK , - toDBusMethodInvocation , - noDBusMethodInvocation , - - - -- * Methods --- ** dBusMethodInvocationGetConnection - DBusMethodInvocationGetConnectionMethodInfo, - dBusMethodInvocationGetConnection , - - --- ** dBusMethodInvocationGetInterfaceName - DBusMethodInvocationGetInterfaceNameMethodInfo, - dBusMethodInvocationGetInterfaceName , - - --- ** dBusMethodInvocationGetMessage - DBusMethodInvocationGetMessageMethodInfo, - dBusMethodInvocationGetMessage , - - --- ** dBusMethodInvocationGetMethodInfo - DBusMethodInvocationGetMethodInfoMethodInfo, - dBusMethodInvocationGetMethodInfo , - - --- ** dBusMethodInvocationGetMethodName - DBusMethodInvocationGetMethodNameMethodInfo, - dBusMethodInvocationGetMethodName , - - --- ** dBusMethodInvocationGetObjectPath - DBusMethodInvocationGetObjectPathMethodInfo, - dBusMethodInvocationGetObjectPath , - - --- ** dBusMethodInvocationGetParameters - DBusMethodInvocationGetParametersMethodInfo, - dBusMethodInvocationGetParameters , - - --- ** dBusMethodInvocationGetPropertyInfo - DBusMethodInvocationGetPropertyInfoMethodInfo, - dBusMethodInvocationGetPropertyInfo , - - --- ** dBusMethodInvocationGetSender - DBusMethodInvocationGetSenderMethodInfo , - dBusMethodInvocationGetSender , - - --- ** dBusMethodInvocationReturnDbusError - DBusMethodInvocationReturnDbusErrorMethodInfo, - dBusMethodInvocationReturnDbusError , - - --- ** dBusMethodInvocationReturnErrorLiteral - DBusMethodInvocationReturnErrorLiteralMethodInfo, - dBusMethodInvocationReturnErrorLiteral , - - --- ** dBusMethodInvocationReturnGerror - DBusMethodInvocationReturnGerrorMethodInfo, - dBusMethodInvocationReturnGerror , - - --- ** dBusMethodInvocationReturnValue - DBusMethodInvocationReturnValueMethodInfo, - dBusMethodInvocationReturnValue , - - --- ** dBusMethodInvocationReturnValueWithUnixFdList - DBusMethodInvocationReturnValueWithUnixFdListMethodInfo, - dBusMethodInvocationReturnValueWithUnixFdList, - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype DBusMethodInvocation = DBusMethodInvocation (ForeignPtr DBusMethodInvocation) -foreign import ccall "g_dbus_method_invocation_get_type" - c_g_dbus_method_invocation_get_type :: IO GType - -type instance ParentTypes DBusMethodInvocation = DBusMethodInvocationParentTypes -type DBusMethodInvocationParentTypes = '[GObject.Object] - -instance GObject DBusMethodInvocation where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_method_invocation_get_type - - -class GObject o => DBusMethodInvocationK o -instance (GObject o, IsDescendantOf DBusMethodInvocation o) => DBusMethodInvocationK o - -toDBusMethodInvocation :: DBusMethodInvocationK o => o -> IO DBusMethodInvocation -toDBusMethodInvocation = unsafeCastTo DBusMethodInvocation - -noDBusMethodInvocation :: Maybe DBusMethodInvocation -noDBusMethodInvocation = Nothing - -type family ResolveDBusMethodInvocationMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusMethodInvocationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusMethodInvocationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusMethodInvocationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusMethodInvocationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusMethodInvocationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusMethodInvocationMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusMethodInvocationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusMethodInvocationMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusMethodInvocationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusMethodInvocationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusMethodInvocationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusMethodInvocationMethod "returnDbusError" o = DBusMethodInvocationReturnDbusErrorMethodInfo - ResolveDBusMethodInvocationMethod "returnErrorLiteral" o = DBusMethodInvocationReturnErrorLiteralMethodInfo - ResolveDBusMethodInvocationMethod "returnGerror" o = DBusMethodInvocationReturnGerrorMethodInfo - ResolveDBusMethodInvocationMethod "returnValue" o = DBusMethodInvocationReturnValueMethodInfo - ResolveDBusMethodInvocationMethod "returnValueWithUnixFdList" o = DBusMethodInvocationReturnValueWithUnixFdListMethodInfo - ResolveDBusMethodInvocationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusMethodInvocationMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusMethodInvocationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusMethodInvocationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusMethodInvocationMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusMethodInvocationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusMethodInvocationMethod "getConnection" o = DBusMethodInvocationGetConnectionMethodInfo - ResolveDBusMethodInvocationMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusMethodInvocationMethod "getInterfaceName" o = DBusMethodInvocationGetInterfaceNameMethodInfo - ResolveDBusMethodInvocationMethod "getMessage" o = DBusMethodInvocationGetMessageMethodInfo - ResolveDBusMethodInvocationMethod "getMethodInfo" o = DBusMethodInvocationGetMethodInfoMethodInfo - ResolveDBusMethodInvocationMethod "getMethodName" o = DBusMethodInvocationGetMethodNameMethodInfo - ResolveDBusMethodInvocationMethod "getObjectPath" o = DBusMethodInvocationGetObjectPathMethodInfo - ResolveDBusMethodInvocationMethod "getParameters" o = DBusMethodInvocationGetParametersMethodInfo - ResolveDBusMethodInvocationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusMethodInvocationMethod "getPropertyInfo" o = DBusMethodInvocationGetPropertyInfoMethodInfo - ResolveDBusMethodInvocationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusMethodInvocationMethod "getSender" o = DBusMethodInvocationGetSenderMethodInfo - ResolveDBusMethodInvocationMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusMethodInvocationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusMethodInvocationMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusMethodInvocationMethod t DBusMethodInvocation, MethodInfo info DBusMethodInvocation p) => IsLabelProxy t (DBusMethodInvocation -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusMethodInvocationMethod t DBusMethodInvocation, MethodInfo info DBusMethodInvocation p) => IsLabel t (DBusMethodInvocation -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList DBusMethodInvocation = DBusMethodInvocationAttributeList -type DBusMethodInvocationAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList DBusMethodInvocation = DBusMethodInvocationSignalList -type DBusMethodInvocationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DBusMethodInvocation::get_connection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusConnection") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_invocation_get_connection" g_dbus_method_invocation_get_connection :: - Ptr DBusMethodInvocation -> -- _obj : TInterface "Gio" "DBusMethodInvocation" - IO (Ptr DBusConnection) - - -dBusMethodInvocationGetConnection :: - (MonadIO m, DBusMethodInvocationK a) => - a -- _obj - -> m DBusConnection -- result -dBusMethodInvocationGetConnection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_method_invocation_get_connection _obj' - checkUnexpectedReturnNULL "g_dbus_method_invocation_get_connection" result - result' <- (newObject DBusConnection) result - touchManagedPtr _obj - return result' - -data DBusMethodInvocationGetConnectionMethodInfo -instance (signature ~ (m DBusConnection), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetConnectionMethodInfo a signature where - overloadedMethod _ = dBusMethodInvocationGetConnection - --- method DBusMethodInvocation::get_interface_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_invocation_get_interface_name" g_dbus_method_invocation_get_interface_name :: - Ptr DBusMethodInvocation -> -- _obj : TInterface "Gio" "DBusMethodInvocation" - IO CString - - -dBusMethodInvocationGetInterfaceName :: - (MonadIO m, DBusMethodInvocationK a) => - a -- _obj - -> m T.Text -- result -dBusMethodInvocationGetInterfaceName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_method_invocation_get_interface_name _obj' - checkUnexpectedReturnNULL "g_dbus_method_invocation_get_interface_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusMethodInvocationGetInterfaceNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetInterfaceNameMethodInfo a signature where - overloadedMethod _ = dBusMethodInvocationGetInterfaceName - --- method DBusMethodInvocation::get_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusMessage") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_invocation_get_message" g_dbus_method_invocation_get_message :: - Ptr DBusMethodInvocation -> -- _obj : TInterface "Gio" "DBusMethodInvocation" - IO (Ptr DBusMessage) - - -dBusMethodInvocationGetMessage :: - (MonadIO m, DBusMethodInvocationK a) => - a -- _obj - -> m DBusMessage -- result -dBusMethodInvocationGetMessage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_method_invocation_get_message _obj' - checkUnexpectedReturnNULL "g_dbus_method_invocation_get_message" result - result' <- (newObject DBusMessage) result - touchManagedPtr _obj - return result' - -data DBusMethodInvocationGetMessageMethodInfo -instance (signature ~ (m DBusMessage), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetMessageMethodInfo a signature where - overloadedMethod _ = dBusMethodInvocationGetMessage - --- method DBusMethodInvocation::get_method_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusMethodInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_invocation_get_method_info" g_dbus_method_invocation_get_method_info :: - Ptr DBusMethodInvocation -> -- _obj : TInterface "Gio" "DBusMethodInvocation" - IO (Ptr DBusMethodInfo) - - -dBusMethodInvocationGetMethodInfo :: - (MonadIO m, DBusMethodInvocationK a) => - a -- _obj - -> m DBusMethodInfo -- result -dBusMethodInvocationGetMethodInfo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_method_invocation_get_method_info _obj' - checkUnexpectedReturnNULL "g_dbus_method_invocation_get_method_info" result - result' <- (newBoxed DBusMethodInfo) result - touchManagedPtr _obj - return result' - -data DBusMethodInvocationGetMethodInfoMethodInfo -instance (signature ~ (m DBusMethodInfo), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetMethodInfoMethodInfo a signature where - overloadedMethod _ = dBusMethodInvocationGetMethodInfo - --- method DBusMethodInvocation::get_method_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_invocation_get_method_name" g_dbus_method_invocation_get_method_name :: - Ptr DBusMethodInvocation -> -- _obj : TInterface "Gio" "DBusMethodInvocation" - IO CString - - -dBusMethodInvocationGetMethodName :: - (MonadIO m, DBusMethodInvocationK a) => - a -- _obj - -> m T.Text -- result -dBusMethodInvocationGetMethodName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_method_invocation_get_method_name _obj' - checkUnexpectedReturnNULL "g_dbus_method_invocation_get_method_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusMethodInvocationGetMethodNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetMethodNameMethodInfo a signature where - overloadedMethod _ = dBusMethodInvocationGetMethodName - --- method DBusMethodInvocation::get_object_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_invocation_get_object_path" g_dbus_method_invocation_get_object_path :: - Ptr DBusMethodInvocation -> -- _obj : TInterface "Gio" "DBusMethodInvocation" - IO CString - - -dBusMethodInvocationGetObjectPath :: - (MonadIO m, DBusMethodInvocationK a) => - a -- _obj - -> m T.Text -- result -dBusMethodInvocationGetObjectPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_method_invocation_get_object_path _obj' - checkUnexpectedReturnNULL "g_dbus_method_invocation_get_object_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusMethodInvocationGetObjectPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetObjectPathMethodInfo a signature where - overloadedMethod _ = dBusMethodInvocationGetObjectPath - --- method DBusMethodInvocation::get_parameters --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_invocation_get_parameters" g_dbus_method_invocation_get_parameters :: - Ptr DBusMethodInvocation -> -- _obj : TInterface "Gio" "DBusMethodInvocation" - IO (Ptr GVariant) - - -dBusMethodInvocationGetParameters :: - (MonadIO m, DBusMethodInvocationK a) => - a -- _obj - -> m GVariant -- result -dBusMethodInvocationGetParameters _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_method_invocation_get_parameters _obj' - checkUnexpectedReturnNULL "g_dbus_method_invocation_get_parameters" result - result' <- newGVariantFromPtr result - touchManagedPtr _obj - return result' - -data DBusMethodInvocationGetParametersMethodInfo -instance (signature ~ (m GVariant), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetParametersMethodInfo a signature where - overloadedMethod _ = dBusMethodInvocationGetParameters - --- method DBusMethodInvocation::get_property_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusPropertyInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_invocation_get_property_info" g_dbus_method_invocation_get_property_info :: - Ptr DBusMethodInvocation -> -- _obj : TInterface "Gio" "DBusMethodInvocation" - IO (Ptr DBusPropertyInfo) - - -dBusMethodInvocationGetPropertyInfo :: - (MonadIO m, DBusMethodInvocationK a) => - a -- _obj - -> m DBusPropertyInfo -- result -dBusMethodInvocationGetPropertyInfo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_method_invocation_get_property_info _obj' - checkUnexpectedReturnNULL "g_dbus_method_invocation_get_property_info" result - result' <- (newBoxed DBusPropertyInfo) result - touchManagedPtr _obj - return result' - -data DBusMethodInvocationGetPropertyInfoMethodInfo -instance (signature ~ (m DBusPropertyInfo), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetPropertyInfoMethodInfo a signature where - overloadedMethod _ = dBusMethodInvocationGetPropertyInfo - --- method DBusMethodInvocation::get_sender --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_invocation_get_sender" g_dbus_method_invocation_get_sender :: - Ptr DBusMethodInvocation -> -- _obj : TInterface "Gio" "DBusMethodInvocation" - IO CString - - -dBusMethodInvocationGetSender :: - (MonadIO m, DBusMethodInvocationK a) => - a -- _obj - -> m T.Text -- result -dBusMethodInvocationGetSender _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_method_invocation_get_sender _obj' - checkUnexpectedReturnNULL "g_dbus_method_invocation_get_sender" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusMethodInvocationGetSenderMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationGetSenderMethodInfo a signature where - overloadedMethod _ = dBusMethodInvocationGetSender - --- method DBusMethodInvocation::return_dbus_error --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "error_message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_invocation_return_dbus_error" g_dbus_method_invocation_return_dbus_error :: - Ptr DBusMethodInvocation -> -- _obj : TInterface "Gio" "DBusMethodInvocation" - CString -> -- error_name : TBasicType TUTF8 - CString -> -- error_message : TBasicType TUTF8 - IO () - - -dBusMethodInvocationReturnDbusError :: - (MonadIO m, DBusMethodInvocationK a) => - a -- _obj - -> T.Text -- errorName - -> T.Text -- errorMessage - -> m () -- result -dBusMethodInvocationReturnDbusError _obj errorName errorMessage = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - errorName' <- textToCString errorName - errorMessage' <- textToCString errorMessage - g_dbus_method_invocation_return_dbus_error _obj' errorName' errorMessage' - touchManagedPtr _obj - freeMem errorName' - freeMem errorMessage' - return () - -data DBusMethodInvocationReturnDbusErrorMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationReturnDbusErrorMethodInfo a signature where - overloadedMethod _ = dBusMethodInvocationReturnDbusError - --- method DBusMethodInvocation::return_error_literal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "code", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "message", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_invocation_return_error_literal" g_dbus_method_invocation_return_error_literal :: - Ptr DBusMethodInvocation -> -- _obj : TInterface "Gio" "DBusMethodInvocation" - Word32 -> -- domain : TBasicType TUInt32 - Int32 -> -- code : TBasicType TInt - CString -> -- message : TBasicType TUTF8 - IO () - - -dBusMethodInvocationReturnErrorLiteral :: - (MonadIO m, DBusMethodInvocationK a) => - a -- _obj - -> Word32 -- domain - -> Int32 -- code - -> T.Text -- message - -> m () -- result -dBusMethodInvocationReturnErrorLiteral _obj domain code message = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - message' <- textToCString message - g_dbus_method_invocation_return_error_literal _obj' domain code message' - touchManagedPtr _obj - freeMem message' - return () - -data DBusMethodInvocationReturnErrorLiteralMethodInfo -instance (signature ~ (Word32 -> Int32 -> T.Text -> m ()), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationReturnErrorLiteralMethodInfo a signature where - overloadedMethod _ = dBusMethodInvocationReturnErrorLiteral - --- method DBusMethodInvocation::return_gerror --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_invocation_return_gerror" g_dbus_method_invocation_return_gerror :: - Ptr DBusMethodInvocation -> -- _obj : TInterface "Gio" "DBusMethodInvocation" - Ptr GError -> -- error : TError - IO () - - -dBusMethodInvocationReturnGerror :: - (MonadIO m, DBusMethodInvocationK a) => - a -- _obj - -> GError -- error_ - -> m () -- result -dBusMethodInvocationReturnGerror _obj error_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let error_' = unsafeManagedPtrGetPtr error_ - g_dbus_method_invocation_return_gerror _obj' error_' - touchManagedPtr _obj - touchManagedPtr error_ - return () - -data DBusMethodInvocationReturnGerrorMethodInfo -instance (signature ~ (GError -> m ()), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationReturnGerrorMethodInfo a signature where - overloadedMethod _ = dBusMethodInvocationReturnGerror - --- method DBusMethodInvocation::return_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_invocation_return_value" g_dbus_method_invocation_return_value :: - Ptr DBusMethodInvocation -> -- _obj : TInterface "Gio" "DBusMethodInvocation" - Ptr GVariant -> -- parameters : TVariant - IO () - - -dBusMethodInvocationReturnValue :: - (MonadIO m, DBusMethodInvocationK a) => - a -- _obj - -> Maybe (GVariant) -- parameters - -> m () -- result -dBusMethodInvocationReturnValue _obj parameters = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeParameters <- case parameters of - Nothing -> return nullPtr - Just jParameters -> do - let jParameters' = unsafeManagedPtrGetPtr jParameters - return jParameters' - g_dbus_method_invocation_return_value _obj' maybeParameters - touchManagedPtr _obj - return () - -data DBusMethodInvocationReturnValueMethodInfo -instance (signature ~ (Maybe (GVariant) -> m ()), MonadIO m, DBusMethodInvocationK a) => MethodInfo DBusMethodInvocationReturnValueMethodInfo a signature where - overloadedMethod _ = dBusMethodInvocationReturnValue - --- method DBusMethodInvocation::return_value_with_unix_fd_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInvocation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_invocation_return_value_with_unix_fd_list" g_dbus_method_invocation_return_value_with_unix_fd_list :: - Ptr DBusMethodInvocation -> -- _obj : TInterface "Gio" "DBusMethodInvocation" - Ptr GVariant -> -- parameters : TVariant - Ptr UnixFDList -> -- fd_list : TInterface "Gio" "UnixFDList" - IO () - - -dBusMethodInvocationReturnValueWithUnixFdList :: - (MonadIO m, DBusMethodInvocationK a, UnixFDListK b) => - a -- _obj - -> Maybe (GVariant) -- parameters - -> Maybe (b) -- fdList - -> m () -- result -dBusMethodInvocationReturnValueWithUnixFdList _obj parameters fdList = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeParameters <- case parameters of - Nothing -> return nullPtr - Just jParameters -> do - let jParameters' = unsafeManagedPtrGetPtr jParameters - return jParameters' - maybeFdList <- case fdList of - Nothing -> return nullPtr - Just jFdList -> do - let jFdList' = unsafeManagedPtrCastPtr jFdList - return jFdList' - g_dbus_method_invocation_return_value_with_unix_fd_list _obj' maybeParameters maybeFdList - touchManagedPtr _obj - whenJust fdList touchManagedPtr - return () - -data DBusMethodInvocationReturnValueWithUnixFdListMethodInfo -instance (signature ~ (Maybe (GVariant) -> Maybe (b) -> m ()), MonadIO m, DBusMethodInvocationK a, UnixFDListK b) => MethodInfo DBusMethodInvocationReturnValueWithUnixFdListMethodInfo a signature where - overloadedMethod _ = dBusMethodInvocationReturnValueWithUnixFdList - - diff --git a/GI/Gio/Objects/DBusMethodInvocation.hs-boot b/GI/Gio/Objects/DBusMethodInvocation.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DBusMethodInvocation.hs-boot +++ /dev/null @@ -1,27 +0,0 @@ -module GI.Gio.Objects.DBusMethodInvocation where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusMethodInvocation = DBusMethodInvocation (ForeignPtr DBusMethodInvocation) -instance GObject DBusMethodInvocation where -class GObject o => DBusMethodInvocationK o -instance (GObject o, IsDescendantOf DBusMethodInvocation o) => DBusMethodInvocationK o -data DBusMethodInvocationGetConnectionMethodInfo -data DBusMethodInvocationGetInterfaceNameMethodInfo -data DBusMethodInvocationGetMessageMethodInfo -data DBusMethodInvocationGetMethodInfoMethodInfo -data DBusMethodInvocationGetMethodNameMethodInfo -data DBusMethodInvocationGetObjectPathMethodInfo -data DBusMethodInvocationGetParametersMethodInfo -data DBusMethodInvocationGetPropertyInfoMethodInfo -data DBusMethodInvocationGetSenderMethodInfo -data DBusMethodInvocationReturnDbusErrorMethodInfo -data DBusMethodInvocationReturnErrorLiteralMethodInfo -data DBusMethodInvocationReturnGerrorMethodInfo -data DBusMethodInvocationReturnValueMethodInfo -data DBusMethodInvocationReturnValueWithUnixFdListMethodInfo diff --git a/GI/Gio/Objects/DBusObjectManagerClient.hs b/GI/Gio/Objects/DBusObjectManagerClient.hs deleted file mode 100644 --- a/GI/Gio/Objects/DBusObjectManagerClient.hs +++ /dev/null @@ -1,1021 +0,0 @@ - - -{- | -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.Objects.DBusObjectManagerClient - ( - --- * Exported types - DBusObjectManagerClient(..) , - DBusObjectManagerClientK , - toDBusObjectManagerClient , - noDBusObjectManagerClient , - - - -- * Methods --- ** dBusObjectManagerClientGetConnection - DBusObjectManagerClientGetConnectionMethodInfo, - dBusObjectManagerClientGetConnection , - - --- ** dBusObjectManagerClientGetFlags - DBusObjectManagerClientGetFlagsMethodInfo, - dBusObjectManagerClientGetFlags , - - --- ** dBusObjectManagerClientGetName - DBusObjectManagerClientGetNameMethodInfo, - dBusObjectManagerClientGetName , - - --- ** dBusObjectManagerClientGetNameOwner - DBusObjectManagerClientGetNameOwnerMethodInfo, - dBusObjectManagerClientGetNameOwner , - - --- ** dBusObjectManagerClientNew - dBusObjectManagerClientNew , - - --- ** dBusObjectManagerClientNewFinish - dBusObjectManagerClientNewFinish , - - --- ** dBusObjectManagerClientNewForBus - dBusObjectManagerClientNewForBus , - - --- ** dBusObjectManagerClientNewForBusFinish - dBusObjectManagerClientNewForBusFinish , - - --- ** dBusObjectManagerClientNewForBusSync - dBusObjectManagerClientNewForBusSync , - - --- ** dBusObjectManagerClientNewSync - dBusObjectManagerClientNewSync , - - - - - -- * Properties --- ** BusType - DBusObjectManagerClientBusTypePropertyInfo, - constructDBusObjectManagerClientBusType , - dBusObjectManagerClientBusType , - - --- ** Connection - DBusObjectManagerClientConnectionPropertyInfo, - constructDBusObjectManagerClientConnection, - dBusObjectManagerClientConnection , - getDBusObjectManagerClientConnection , - - --- ** Flags - DBusObjectManagerClientFlagsPropertyInfo, - constructDBusObjectManagerClientFlags , - dBusObjectManagerClientFlags , - getDBusObjectManagerClientFlags , - - --- ** GetProxyTypeDestroyNotify - DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo, - constructDBusObjectManagerClientGetProxyTypeDestroyNotify, - dBusObjectManagerClientGetProxyTypeDestroyNotify, - getDBusObjectManagerClientGetProxyTypeDestroyNotify, - - --- ** GetProxyTypeFunc - DBusObjectManagerClientGetProxyTypeFuncPropertyInfo, - constructDBusObjectManagerClientGetProxyTypeFunc, - dBusObjectManagerClientGetProxyTypeFunc , - getDBusObjectManagerClientGetProxyTypeFunc, - - --- ** GetProxyTypeUserData - DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo, - constructDBusObjectManagerClientGetProxyTypeUserData, - dBusObjectManagerClientGetProxyTypeUserData, - getDBusObjectManagerClientGetProxyTypeUserData, - - --- ** Name - DBusObjectManagerClientNamePropertyInfo , - constructDBusObjectManagerClientName , - dBusObjectManagerClientName , - getDBusObjectManagerClientName , - - --- ** NameOwner - DBusObjectManagerClientNameOwnerPropertyInfo, - dBusObjectManagerClientNameOwner , - getDBusObjectManagerClientNameOwner , - - --- ** ObjectPath - DBusObjectManagerClientObjectPathPropertyInfo, - constructDBusObjectManagerClientObjectPath, - dBusObjectManagerClientObjectPath , - getDBusObjectManagerClientObjectPath , - - - - - -- * Signals --- ** InterfaceProxyPropertiesChanged - DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback, - DBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackC, - DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo, - afterDBusObjectManagerClientInterfaceProxyPropertiesChanged, - dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper, - dBusObjectManagerClientInterfaceProxyPropertiesChangedClosure, - mkDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback, - noDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback, - onDBusObjectManagerClientInterfaceProxyPropertiesChanged, - - --- ** InterfaceProxySignal - DBusObjectManagerClientInterfaceProxySignalCallback, - DBusObjectManagerClientInterfaceProxySignalCallbackC, - DBusObjectManagerClientInterfaceProxySignalSignalInfo, - afterDBusObjectManagerClientInterfaceProxySignal, - dBusObjectManagerClientInterfaceProxySignalCallbackWrapper, - dBusObjectManagerClientInterfaceProxySignalClosure, - mkDBusObjectManagerClientInterfaceProxySignalCallback, - noDBusObjectManagerClientInterfaceProxySignalCallback, - onDBusObjectManagerClientInterfaceProxySignal, - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype DBusObjectManagerClient = DBusObjectManagerClient (ForeignPtr DBusObjectManagerClient) -foreign import ccall "g_dbus_object_manager_client_get_type" - c_g_dbus_object_manager_client_get_type :: IO GType - -type instance ParentTypes DBusObjectManagerClient = DBusObjectManagerClientParentTypes -type DBusObjectManagerClientParentTypes = '[GObject.Object, AsyncInitable, DBusObjectManager, Initable] - -instance GObject DBusObjectManagerClient where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_object_manager_client_get_type - - -class GObject o => DBusObjectManagerClientK o -instance (GObject o, IsDescendantOf DBusObjectManagerClient o) => DBusObjectManagerClientK o - -toDBusObjectManagerClient :: DBusObjectManagerClientK o => o -> IO DBusObjectManagerClient -toDBusObjectManagerClient = unsafeCastTo DBusObjectManagerClient - -noDBusObjectManagerClient :: Maybe DBusObjectManagerClient -noDBusObjectManagerClient = Nothing - -type family ResolveDBusObjectManagerClientMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusObjectManagerClientMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusObjectManagerClientMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusObjectManagerClientMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusObjectManagerClientMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusObjectManagerClientMethod "init" o = InitableInitMethodInfo - ResolveDBusObjectManagerClientMethod "initAsync" o = AsyncInitableInitAsyncMethodInfo - ResolveDBusObjectManagerClientMethod "initFinish" o = AsyncInitableInitFinishMethodInfo - ResolveDBusObjectManagerClientMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusObjectManagerClientMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusObjectManagerClientMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusObjectManagerClientMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusObjectManagerClientMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusObjectManagerClientMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusObjectManagerClientMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusObjectManagerClientMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusObjectManagerClientMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusObjectManagerClientMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusObjectManagerClientMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusObjectManagerClientMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusObjectManagerClientMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusObjectManagerClientMethod "getConnection" o = DBusObjectManagerClientGetConnectionMethodInfo - ResolveDBusObjectManagerClientMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusObjectManagerClientMethod "getFlags" o = DBusObjectManagerClientGetFlagsMethodInfo - ResolveDBusObjectManagerClientMethod "getInterface" o = DBusObjectManagerGetInterfaceMethodInfo - ResolveDBusObjectManagerClientMethod "getName" o = DBusObjectManagerClientGetNameMethodInfo - ResolveDBusObjectManagerClientMethod "getNameOwner" o = DBusObjectManagerClientGetNameOwnerMethodInfo - ResolveDBusObjectManagerClientMethod "getObject" o = DBusObjectManagerGetObjectMethodInfo - ResolveDBusObjectManagerClientMethod "getObjectPath" o = DBusObjectManagerGetObjectPathMethodInfo - ResolveDBusObjectManagerClientMethod "getObjects" o = DBusObjectManagerGetObjectsMethodInfo - ResolveDBusObjectManagerClientMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusObjectManagerClientMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusObjectManagerClientMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusObjectManagerClientMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusObjectManagerClientMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusObjectManagerClientMethod t DBusObjectManagerClient, MethodInfo info DBusObjectManagerClient p) => IsLabelProxy t (DBusObjectManagerClient -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusObjectManagerClientMethod t DBusObjectManagerClient, MethodInfo info DBusObjectManagerClient p) => IsLabel t (DBusObjectManagerClient -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal DBusObjectManagerClient::interface-proxy-properties-changed -type DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback = - DBusObjectProxy -> - DBusProxy -> - GVariant -> - [T.Text] -> - IO () - -noDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback :: Maybe DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -noDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback = Nothing - -type DBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackC = - Ptr () -> -- object - Ptr DBusObjectProxy -> - Ptr DBusProxy -> - Ptr GVariant -> - Ptr CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback :: DBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackC -> IO (FunPtr DBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackC) - -dBusObjectManagerClientInterfaceProxyPropertiesChangedClosure :: DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> IO Closure -dBusObjectManagerClientInterfaceProxyPropertiesChangedClosure cb = newCClosure =<< mkDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback wrapped - where wrapped = dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper cb - -dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper :: - DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> - Ptr () -> - Ptr DBusObjectProxy -> - Ptr DBusProxy -> - Ptr GVariant -> - Ptr CString -> - Ptr () -> - IO () -dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper _cb _ objectProxy interfaceProxy changedProperties invalidatedProperties _ = do - objectProxy' <- (newObject DBusObjectProxy) objectProxy - interfaceProxy' <- (newObject DBusProxy) interfaceProxy - changedProperties' <- newGVariantFromPtr changedProperties - invalidatedProperties' <- unpackZeroTerminatedUTF8CArray invalidatedProperties - _cb objectProxy' interfaceProxy' changedProperties' invalidatedProperties' - -onDBusObjectManagerClientInterfaceProxyPropertiesChanged :: (GObject a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> m SignalHandlerId -onDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb = liftIO $ connectDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb SignalConnectBefore -afterDBusObjectManagerClientInterfaceProxyPropertiesChanged :: (GObject a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> m SignalHandlerId -afterDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb = connectDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb SignalConnectAfter - -connectDBusObjectManagerClientInterfaceProxyPropertiesChanged :: (GObject a, MonadIO m) => - a -> DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusObjectManagerClientInterfaceProxyPropertiesChanged obj cb after = liftIO $ do - cb' <- mkDBusObjectManagerClientInterfaceProxyPropertiesChangedCallback (dBusObjectManagerClientInterfaceProxyPropertiesChangedCallbackWrapper cb) - connectSignalFunPtr obj "interface-proxy-properties-changed" cb' after - --- signal DBusObjectManagerClient::interface-proxy-signal -type DBusObjectManagerClientInterfaceProxySignalCallback = - DBusObjectProxy -> - DBusProxy -> - T.Text -> - T.Text -> - GVariant -> - IO () - -noDBusObjectManagerClientInterfaceProxySignalCallback :: Maybe DBusObjectManagerClientInterfaceProxySignalCallback -noDBusObjectManagerClientInterfaceProxySignalCallback = Nothing - -type DBusObjectManagerClientInterfaceProxySignalCallbackC = - Ptr () -> -- object - Ptr DBusObjectProxy -> - Ptr DBusProxy -> - CString -> - CString -> - Ptr GVariant -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDBusObjectManagerClientInterfaceProxySignalCallback :: DBusObjectManagerClientInterfaceProxySignalCallbackC -> IO (FunPtr DBusObjectManagerClientInterfaceProxySignalCallbackC) - -dBusObjectManagerClientInterfaceProxySignalClosure :: DBusObjectManagerClientInterfaceProxySignalCallback -> IO Closure -dBusObjectManagerClientInterfaceProxySignalClosure cb = newCClosure =<< mkDBusObjectManagerClientInterfaceProxySignalCallback wrapped - where wrapped = dBusObjectManagerClientInterfaceProxySignalCallbackWrapper cb - -dBusObjectManagerClientInterfaceProxySignalCallbackWrapper :: - DBusObjectManagerClientInterfaceProxySignalCallback -> - Ptr () -> - Ptr DBusObjectProxy -> - Ptr DBusProxy -> - CString -> - CString -> - Ptr GVariant -> - Ptr () -> - IO () -dBusObjectManagerClientInterfaceProxySignalCallbackWrapper _cb _ objectProxy interfaceProxy senderName signalName parameters _ = do - objectProxy' <- (newObject DBusObjectProxy) objectProxy - interfaceProxy' <- (newObject DBusProxy) interfaceProxy - senderName' <- cstringToText senderName - signalName' <- cstringToText signalName - parameters' <- newGVariantFromPtr parameters - _cb objectProxy' interfaceProxy' senderName' signalName' parameters' - -onDBusObjectManagerClientInterfaceProxySignal :: (GObject a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxySignalCallback -> m SignalHandlerId -onDBusObjectManagerClientInterfaceProxySignal obj cb = liftIO $ connectDBusObjectManagerClientInterfaceProxySignal obj cb SignalConnectBefore -afterDBusObjectManagerClientInterfaceProxySignal :: (GObject a, MonadIO m) => a -> DBusObjectManagerClientInterfaceProxySignalCallback -> m SignalHandlerId -afterDBusObjectManagerClientInterfaceProxySignal obj cb = connectDBusObjectManagerClientInterfaceProxySignal obj cb SignalConnectAfter - -connectDBusObjectManagerClientInterfaceProxySignal :: (GObject a, MonadIO m) => - a -> DBusObjectManagerClientInterfaceProxySignalCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusObjectManagerClientInterfaceProxySignal obj cb after = liftIO $ do - cb' <- mkDBusObjectManagerClientInterfaceProxySignalCallback (dBusObjectManagerClientInterfaceProxySignalCallbackWrapper cb) - connectSignalFunPtr obj "interface-proxy-signal" cb' after - --- VVV Prop "bus-type" - -- Type: TInterface "Gio" "BusType" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructDBusObjectManagerClientBusType :: BusType -> IO ([Char], GValue) -constructDBusObjectManagerClientBusType val = constructObjectPropertyEnum "bus-type" val - -data DBusObjectManagerClientBusTypePropertyInfo -instance AttrInfo DBusObjectManagerClientBusTypePropertyInfo where - type AttrAllowedOps DBusObjectManagerClientBusTypePropertyInfo = '[ 'AttrConstruct] - type AttrSetTypeConstraint DBusObjectManagerClientBusTypePropertyInfo = (~) BusType - type AttrBaseTypeConstraint DBusObjectManagerClientBusTypePropertyInfo = DBusObjectManagerClientK - type AttrGetType DBusObjectManagerClientBusTypePropertyInfo = () - type AttrLabel DBusObjectManagerClientBusTypePropertyInfo = "bus-type" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructDBusObjectManagerClientBusType - attrClear _ = undefined - --- VVV Prop "connection" - -- Type: TInterface "Gio" "DBusConnection" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getDBusObjectManagerClientConnection :: (MonadIO m, DBusObjectManagerClientK o) => o -> m DBusConnection -getDBusObjectManagerClientConnection obj = liftIO $ checkUnexpectedNothing "getDBusObjectManagerClientConnection" $ getObjectPropertyObject obj "connection" DBusConnection - -constructDBusObjectManagerClientConnection :: (DBusConnectionK a) => a -> IO ([Char], GValue) -constructDBusObjectManagerClientConnection val = constructObjectPropertyObject "connection" (Just val) - -data DBusObjectManagerClientConnectionPropertyInfo -instance AttrInfo DBusObjectManagerClientConnectionPropertyInfo where - type AttrAllowedOps DBusObjectManagerClientConnectionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusObjectManagerClientConnectionPropertyInfo = DBusConnectionK - type AttrBaseTypeConstraint DBusObjectManagerClientConnectionPropertyInfo = DBusObjectManagerClientK - type AttrGetType DBusObjectManagerClientConnectionPropertyInfo = DBusConnection - type AttrLabel DBusObjectManagerClientConnectionPropertyInfo = "connection" - attrGet _ = getDBusObjectManagerClientConnection - attrSet _ = undefined - attrConstruct _ = constructDBusObjectManagerClientConnection - attrClear _ = undefined - --- VVV Prop "flags" - -- Type: TInterface "Gio" "DBusObjectManagerClientFlags" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getDBusObjectManagerClientFlags :: (MonadIO m, DBusObjectManagerClientK o) => o -> m [DBusObjectManagerClientFlags] -getDBusObjectManagerClientFlags obj = liftIO $ getObjectPropertyFlags obj "flags" - -constructDBusObjectManagerClientFlags :: [DBusObjectManagerClientFlags] -> IO ([Char], GValue) -constructDBusObjectManagerClientFlags val = constructObjectPropertyFlags "flags" val - -data DBusObjectManagerClientFlagsPropertyInfo -instance AttrInfo DBusObjectManagerClientFlagsPropertyInfo where - type AttrAllowedOps DBusObjectManagerClientFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DBusObjectManagerClientFlagsPropertyInfo = (~) [DBusObjectManagerClientFlags] - type AttrBaseTypeConstraint DBusObjectManagerClientFlagsPropertyInfo = DBusObjectManagerClientK - type AttrGetType DBusObjectManagerClientFlagsPropertyInfo = [DBusObjectManagerClientFlags] - type AttrLabel DBusObjectManagerClientFlagsPropertyInfo = "flags" - attrGet _ = getDBusObjectManagerClientFlags - attrSet _ = undefined - attrConstruct _ = constructDBusObjectManagerClientFlags - attrClear _ = undefined - --- VVV Prop "get-proxy-type-destroy-notify" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDBusObjectManagerClientGetProxyTypeDestroyNotify :: (MonadIO m, DBusObjectManagerClientK o) => o -> m (Ptr ()) -getDBusObjectManagerClientGetProxyTypeDestroyNotify obj = liftIO $ getObjectPropertyPtr obj "get-proxy-type-destroy-notify" - -constructDBusObjectManagerClientGetProxyTypeDestroyNotify :: Ptr () -> IO ([Char], GValue) -constructDBusObjectManagerClientGetProxyTypeDestroyNotify val = constructObjectPropertyPtr "get-proxy-type-destroy-notify" val - -data DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo -instance AttrInfo DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo where - type AttrAllowedOps DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = DBusObjectManagerClientK - type AttrGetType DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = (Ptr ()) - type AttrLabel DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo = "get-proxy-type-destroy-notify" - attrGet _ = getDBusObjectManagerClientGetProxyTypeDestroyNotify - attrSet _ = undefined - attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeDestroyNotify - attrClear _ = undefined - --- VVV Prop "get-proxy-type-func" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDBusObjectManagerClientGetProxyTypeFunc :: (MonadIO m, DBusObjectManagerClientK o) => o -> m (Ptr ()) -getDBusObjectManagerClientGetProxyTypeFunc obj = liftIO $ getObjectPropertyPtr obj "get-proxy-type-func" - -constructDBusObjectManagerClientGetProxyTypeFunc :: Ptr () -> IO ([Char], GValue) -constructDBusObjectManagerClientGetProxyTypeFunc val = constructObjectPropertyPtr "get-proxy-type-func" val - -data DBusObjectManagerClientGetProxyTypeFuncPropertyInfo -instance AttrInfo DBusObjectManagerClientGetProxyTypeFuncPropertyInfo where - type AttrAllowedOps DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = DBusObjectManagerClientK - type AttrGetType DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = (Ptr ()) - type AttrLabel DBusObjectManagerClientGetProxyTypeFuncPropertyInfo = "get-proxy-type-func" - attrGet _ = getDBusObjectManagerClientGetProxyTypeFunc - attrSet _ = undefined - attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeFunc - attrClear _ = undefined - --- VVV Prop "get-proxy-type-user-data" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDBusObjectManagerClientGetProxyTypeUserData :: (MonadIO m, DBusObjectManagerClientK o) => o -> m (Ptr ()) -getDBusObjectManagerClientGetProxyTypeUserData obj = liftIO $ getObjectPropertyPtr obj "get-proxy-type-user-data" - -constructDBusObjectManagerClientGetProxyTypeUserData :: Ptr () -> IO ([Char], GValue) -constructDBusObjectManagerClientGetProxyTypeUserData val = constructObjectPropertyPtr "get-proxy-type-user-data" val - -data DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo -instance AttrInfo DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo where - type AttrAllowedOps DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = DBusObjectManagerClientK - type AttrGetType DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = (Ptr ()) - type AttrLabel DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo = "get-proxy-type-user-data" - attrGet _ = getDBusObjectManagerClientGetProxyTypeUserData - attrSet _ = undefined - attrConstruct _ = constructDBusObjectManagerClientGetProxyTypeUserData - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getDBusObjectManagerClientName :: (MonadIO m, DBusObjectManagerClientK o) => o -> m T.Text -getDBusObjectManagerClientName obj = liftIO $ checkUnexpectedNothing "getDBusObjectManagerClientName" $ getObjectPropertyString obj "name" - -constructDBusObjectManagerClientName :: T.Text -> IO ([Char], GValue) -constructDBusObjectManagerClientName val = constructObjectPropertyString "name" (Just val) - -data DBusObjectManagerClientNamePropertyInfo -instance AttrInfo DBusObjectManagerClientNamePropertyInfo where - type AttrAllowedOps DBusObjectManagerClientNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusObjectManagerClientNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DBusObjectManagerClientNamePropertyInfo = DBusObjectManagerClientK - type AttrGetType DBusObjectManagerClientNamePropertyInfo = T.Text - type AttrLabel DBusObjectManagerClientNamePropertyInfo = "name" - attrGet _ = getDBusObjectManagerClientName - attrSet _ = undefined - attrConstruct _ = constructDBusObjectManagerClientName - attrClear _ = undefined - --- VVV Prop "name-owner" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDBusObjectManagerClientNameOwner :: (MonadIO m, DBusObjectManagerClientK o) => o -> m (Maybe T.Text) -getDBusObjectManagerClientNameOwner obj = liftIO $ getObjectPropertyString obj "name-owner" - -data DBusObjectManagerClientNameOwnerPropertyInfo -instance AttrInfo DBusObjectManagerClientNameOwnerPropertyInfo where - type AttrAllowedOps DBusObjectManagerClientNameOwnerPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusObjectManagerClientNameOwnerPropertyInfo = (~) () - type AttrBaseTypeConstraint DBusObjectManagerClientNameOwnerPropertyInfo = DBusObjectManagerClientK - type AttrGetType DBusObjectManagerClientNameOwnerPropertyInfo = (Maybe T.Text) - type AttrLabel DBusObjectManagerClientNameOwnerPropertyInfo = "name-owner" - attrGet _ = getDBusObjectManagerClientNameOwner - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "object-path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDBusObjectManagerClientObjectPath :: (MonadIO m, DBusObjectManagerClientK o) => o -> m (Maybe T.Text) -getDBusObjectManagerClientObjectPath obj = liftIO $ getObjectPropertyString obj "object-path" - -constructDBusObjectManagerClientObjectPath :: T.Text -> IO ([Char], GValue) -constructDBusObjectManagerClientObjectPath val = constructObjectPropertyString "object-path" (Just val) - -data DBusObjectManagerClientObjectPathPropertyInfo -instance AttrInfo DBusObjectManagerClientObjectPathPropertyInfo where - type AttrAllowedOps DBusObjectManagerClientObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusObjectManagerClientObjectPathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DBusObjectManagerClientObjectPathPropertyInfo = DBusObjectManagerClientK - type AttrGetType DBusObjectManagerClientObjectPathPropertyInfo = (Maybe T.Text) - type AttrLabel DBusObjectManagerClientObjectPathPropertyInfo = "object-path" - attrGet _ = getDBusObjectManagerClientObjectPath - attrSet _ = undefined - attrConstruct _ = constructDBusObjectManagerClientObjectPath - attrClear _ = undefined - -type instance AttributeList DBusObjectManagerClient = DBusObjectManagerClientAttributeList -type DBusObjectManagerClientAttributeList = ('[ '("busType", DBusObjectManagerClientBusTypePropertyInfo), '("connection", DBusObjectManagerClientConnectionPropertyInfo), '("flags", DBusObjectManagerClientFlagsPropertyInfo), '("getProxyTypeDestroyNotify", DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo), '("getProxyTypeFunc", DBusObjectManagerClientGetProxyTypeFuncPropertyInfo), '("getProxyTypeUserData", DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo), '("name", DBusObjectManagerClientNamePropertyInfo), '("nameOwner", DBusObjectManagerClientNameOwnerPropertyInfo), '("objectPath", DBusObjectManagerClientObjectPathPropertyInfo)] :: [(Symbol, *)]) - -dBusObjectManagerClientBusType :: AttrLabelProxy "busType" -dBusObjectManagerClientBusType = AttrLabelProxy - -dBusObjectManagerClientConnection :: AttrLabelProxy "connection" -dBusObjectManagerClientConnection = AttrLabelProxy - -dBusObjectManagerClientFlags :: AttrLabelProxy "flags" -dBusObjectManagerClientFlags = AttrLabelProxy - -dBusObjectManagerClientGetProxyTypeDestroyNotify :: AttrLabelProxy "getProxyTypeDestroyNotify" -dBusObjectManagerClientGetProxyTypeDestroyNotify = AttrLabelProxy - -dBusObjectManagerClientGetProxyTypeFunc :: AttrLabelProxy "getProxyTypeFunc" -dBusObjectManagerClientGetProxyTypeFunc = AttrLabelProxy - -dBusObjectManagerClientGetProxyTypeUserData :: AttrLabelProxy "getProxyTypeUserData" -dBusObjectManagerClientGetProxyTypeUserData = AttrLabelProxy - -dBusObjectManagerClientName :: AttrLabelProxy "name" -dBusObjectManagerClientName = AttrLabelProxy - -dBusObjectManagerClientNameOwner :: AttrLabelProxy "nameOwner" -dBusObjectManagerClientNameOwner = AttrLabelProxy - -dBusObjectManagerClientObjectPath :: AttrLabelProxy "objectPath" -dBusObjectManagerClientObjectPath = AttrLabelProxy - -data DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo -instance SignalInfo DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo where - type HaskellCallbackType DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo = DBusObjectManagerClientInterfaceProxyPropertiesChangedCallback - connectSignal _ = connectDBusObjectManagerClientInterfaceProxyPropertiesChanged - -data DBusObjectManagerClientInterfaceProxySignalSignalInfo -instance SignalInfo DBusObjectManagerClientInterfaceProxySignalSignalInfo where - type HaskellCallbackType DBusObjectManagerClientInterfaceProxySignalSignalInfo = DBusObjectManagerClientInterfaceProxySignalCallback - connectSignal _ = connectDBusObjectManagerClientInterfaceProxySignal - -type instance SignalList DBusObjectManagerClient = DBusObjectManagerClientSignalList -type DBusObjectManagerClientSignalList = ('[ '("interfaceAdded", DBusObjectManagerInterfaceAddedSignalInfo), '("interfaceProxyPropertiesChanged", DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo), '("interfaceProxySignal", DBusObjectManagerClientInterfaceProxySignalSignalInfo), '("interfaceRemoved", DBusObjectManagerInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("objectAdded", DBusObjectManagerObjectAddedSignalInfo), '("objectRemoved", DBusObjectManagerObjectRemovedSignalInfo)] :: [(Symbol, *)]) - --- method DBusObjectManagerClient::new_finish --- method type : Constructor --- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusObjectManagerClient") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_object_manager_client_new_finish" g_dbus_object_manager_client_new_finish :: - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusObjectManagerClient) - - -dBusObjectManagerClientNewFinish :: - (MonadIO m, AsyncResultK a) => - a -- res - -> m DBusObjectManagerClient -- result -dBusObjectManagerClientNewFinish res = liftIO $ do - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_dbus_object_manager_client_new_finish res' - checkUnexpectedReturnNULL "g_dbus_object_manager_client_new_finish" result - result' <- (wrapObject DBusObjectManagerClient) result - touchManagedPtr res - return result' - ) (do - return () - ) - --- method DBusObjectManagerClient::new_for_bus_finish --- method type : Constructor --- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusObjectManagerClient") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_object_manager_client_new_for_bus_finish" g_dbus_object_manager_client_new_for_bus_finish :: - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusObjectManagerClient) - - -dBusObjectManagerClientNewForBusFinish :: - (MonadIO m, AsyncResultK a) => - a -- res - -> m DBusObjectManagerClient -- result -dBusObjectManagerClientNewForBusFinish res = liftIO $ do - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_dbus_object_manager_client_new_for_bus_finish res' - checkUnexpectedReturnNULL "g_dbus_object_manager_client_new_for_bus_finish" result - result' <- (wrapObject DBusObjectManagerClient) result - touchManagedPtr res - return result' - ) (do - return () - ) - --- method DBusObjectManagerClient::new_for_bus_sync --- method type : Constructor --- 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 = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", 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 = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, 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 : Just (TInterface "Gio" "DBusObjectManagerClient") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_object_manager_client_new_for_bus_sync" g_dbus_object_manager_client_new_for_bus_sync :: - CUInt -> -- bus_type : TInterface "Gio" "BusType" - CUInt -> -- flags : TInterface "Gio" "DBusObjectManagerClientFlags" - CString -> -- name : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - FunPtr DBusProxyTypeFuncC -> -- get_proxy_type_func : TInterface "Gio" "DBusProxyTypeFunc" - Ptr () -> -- get_proxy_type_user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- get_proxy_type_destroy_notify : TInterface "GLib" "DestroyNotify" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusObjectManagerClient) - - -dBusObjectManagerClientNewForBusSync :: - (MonadIO m, CancellableK a) => - BusType -- busType - -> [DBusObjectManagerClientFlags] -- flags - -> T.Text -- name - -> T.Text -- objectPath - -> Maybe (DBusProxyTypeFunc) -- getProxyTypeFunc - -> Maybe (a) -- cancellable - -> m DBusObjectManagerClient -- result -dBusObjectManagerClientNewForBusSync busType flags name objectPath getProxyTypeFunc cancellable = liftIO $ do - let busType' = (fromIntegral . fromEnum) busType - let flags' = gflagsToWord flags - name' <- textToCString name - objectPath' <- textToCString objectPath - maybeGetProxyTypeFunc <- case getProxyTypeFunc of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jGetProxyTypeFunc -> do - jGetProxyTypeFunc' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGetProxyTypeFunc) - return jGetProxyTypeFunc' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - let getProxyTypeUserData = castFunPtrToPtr maybeGetProxyTypeFunc - let getProxyTypeDestroyNotify = safeFreeFunPtrPtr - onException (do - result <- propagateGError $ g_dbus_object_manager_client_new_for_bus_sync busType' flags' name' objectPath' maybeGetProxyTypeFunc getProxyTypeUserData getProxyTypeDestroyNotify maybeCancellable - checkUnexpectedReturnNULL "g_dbus_object_manager_client_new_for_bus_sync" result - result' <- (wrapObject DBusObjectManagerClient) result - whenJust cancellable touchManagedPtr - freeMem name' - freeMem objectPath' - return result' - ) (do - freeMem name' - freeMem objectPath' - ) - --- method DBusObjectManagerClient::new_sync --- method type : Constructor --- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, 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 : Just (TInterface "Gio" "DBusObjectManagerClient") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_object_manager_client_new_sync" g_dbus_object_manager_client_new_sync :: - Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection" - CUInt -> -- flags : TInterface "Gio" "DBusObjectManagerClientFlags" - CString -> -- name : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - FunPtr DBusProxyTypeFuncC -> -- get_proxy_type_func : TInterface "Gio" "DBusProxyTypeFunc" - Ptr () -> -- get_proxy_type_user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- get_proxy_type_destroy_notify : TInterface "GLib" "DestroyNotify" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusObjectManagerClient) - - -dBusObjectManagerClientNewSync :: - (MonadIO m, DBusConnectionK a, CancellableK b) => - a -- connection - -> [DBusObjectManagerClientFlags] -- flags - -> Maybe (T.Text) -- name - -> T.Text -- objectPath - -> Maybe (DBusProxyTypeFunc) -- getProxyTypeFunc - -> Maybe (b) -- cancellable - -> m DBusObjectManagerClient -- result -dBusObjectManagerClientNewSync connection flags name objectPath getProxyTypeFunc cancellable = liftIO $ do - let connection' = unsafeManagedPtrCastPtr connection - let flags' = gflagsToWord flags - maybeName <- case name of - Nothing -> return nullPtr - Just jName -> do - jName' <- textToCString jName - return jName' - objectPath' <- textToCString objectPath - maybeGetProxyTypeFunc <- case getProxyTypeFunc of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jGetProxyTypeFunc -> do - jGetProxyTypeFunc' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGetProxyTypeFunc) - return jGetProxyTypeFunc' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - let getProxyTypeUserData = castFunPtrToPtr maybeGetProxyTypeFunc - let getProxyTypeDestroyNotify = safeFreeFunPtrPtr - onException (do - result <- propagateGError $ g_dbus_object_manager_client_new_sync connection' flags' maybeName objectPath' maybeGetProxyTypeFunc getProxyTypeUserData getProxyTypeDestroyNotify maybeCancellable - checkUnexpectedReturnNULL "g_dbus_object_manager_client_new_sync" result - result' <- (wrapObject DBusObjectManagerClient) result - touchManagedPtr connection - whenJust cancellable touchManagedPtr - freeMem maybeName - freeMem objectPath' - return result' - ) (do - freeMem maybeName - freeMem objectPath' - ) - --- method DBusObjectManagerClient::get_connection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusConnection") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_client_get_connection" g_dbus_object_manager_client_get_connection :: - Ptr DBusObjectManagerClient -> -- _obj : TInterface "Gio" "DBusObjectManagerClient" - IO (Ptr DBusConnection) - - -dBusObjectManagerClientGetConnection :: - (MonadIO m, DBusObjectManagerClientK a) => - a -- _obj - -> m DBusConnection -- result -dBusObjectManagerClientGetConnection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_object_manager_client_get_connection _obj' - checkUnexpectedReturnNULL "g_dbus_object_manager_client_get_connection" result - result' <- (newObject DBusConnection) result - touchManagedPtr _obj - return result' - -data DBusObjectManagerClientGetConnectionMethodInfo -instance (signature ~ (m DBusConnection), MonadIO m, DBusObjectManagerClientK a) => MethodInfo DBusObjectManagerClientGetConnectionMethodInfo a signature where - overloadedMethod _ = dBusObjectManagerClientGetConnection - --- method DBusObjectManagerClient::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusObjectManagerClientFlags") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_client_get_flags" g_dbus_object_manager_client_get_flags :: - Ptr DBusObjectManagerClient -> -- _obj : TInterface "Gio" "DBusObjectManagerClient" - IO CUInt - - -dBusObjectManagerClientGetFlags :: - (MonadIO m, DBusObjectManagerClientK a) => - a -- _obj - -> m [DBusObjectManagerClientFlags] -- result -dBusObjectManagerClientGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_object_manager_client_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data DBusObjectManagerClientGetFlagsMethodInfo -instance (signature ~ (m [DBusObjectManagerClientFlags]), MonadIO m, DBusObjectManagerClientK a) => MethodInfo DBusObjectManagerClientGetFlagsMethodInfo a signature where - overloadedMethod _ = dBusObjectManagerClientGetFlags - --- method DBusObjectManagerClient::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_client_get_name" g_dbus_object_manager_client_get_name :: - Ptr DBusObjectManagerClient -> -- _obj : TInterface "Gio" "DBusObjectManagerClient" - IO CString - - -dBusObjectManagerClientGetName :: - (MonadIO m, DBusObjectManagerClientK a) => - a -- _obj - -> m T.Text -- result -dBusObjectManagerClientGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_object_manager_client_get_name _obj' - checkUnexpectedReturnNULL "g_dbus_object_manager_client_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusObjectManagerClientGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusObjectManagerClientK a) => MethodInfo DBusObjectManagerClientGetNameMethodInfo a signature where - overloadedMethod _ = dBusObjectManagerClientGetName - --- method DBusObjectManagerClient::get_name_owner --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_client_get_name_owner" g_dbus_object_manager_client_get_name_owner :: - Ptr DBusObjectManagerClient -> -- _obj : TInterface "Gio" "DBusObjectManagerClient" - IO CString - - -dBusObjectManagerClientGetNameOwner :: - (MonadIO m, DBusObjectManagerClientK a) => - a -- _obj - -> m (Maybe T.Text) -- result -dBusObjectManagerClientGetNameOwner _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_object_manager_client_get_name_owner _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - return maybeResult - -data DBusObjectManagerClientGetNameOwnerMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, DBusObjectManagerClientK a) => MethodInfo DBusObjectManagerClientGetNameOwnerMethodInfo a signature where - overloadedMethod _ = dBusObjectManagerClientGetNameOwner - --- method DBusObjectManagerClient::new --- method type : MemberFunction --- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", 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 = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, 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 = 9, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_client_new" g_dbus_object_manager_client_new :: - Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection" - CUInt -> -- flags : TInterface "Gio" "DBusObjectManagerClientFlags" - CString -> -- name : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - FunPtr DBusProxyTypeFuncC -> -- get_proxy_type_func : TInterface "Gio" "DBusProxyTypeFunc" - Ptr () -> -- get_proxy_type_user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- get_proxy_type_destroy_notify : TInterface "GLib" "DestroyNotify" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dBusObjectManagerClientNew :: - (MonadIO m, DBusConnectionK a, CancellableK b) => - a -- connection - -> [DBusObjectManagerClientFlags] -- flags - -> T.Text -- name - -> T.Text -- objectPath - -> Maybe (DBusProxyTypeFunc) -- getProxyTypeFunc - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -dBusObjectManagerClientNew connection flags name objectPath getProxyTypeFunc cancellable callback = liftIO $ do - let connection' = unsafeManagedPtrCastPtr connection - let flags' = gflagsToWord flags - name' <- textToCString name - objectPath' <- textToCString objectPath - maybeGetProxyTypeFunc <- case getProxyTypeFunc of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jGetProxyTypeFunc -> do - jGetProxyTypeFunc' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGetProxyTypeFunc) - return jGetProxyTypeFunc' - 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 getProxyTypeUserData = castFunPtrToPtr maybeGetProxyTypeFunc - let getProxyTypeDestroyNotify = safeFreeFunPtrPtr - let userData = nullPtr - g_dbus_object_manager_client_new connection' flags' name' objectPath' maybeGetProxyTypeFunc getProxyTypeUserData getProxyTypeDestroyNotify maybeCancellable maybeCallback userData - touchManagedPtr connection - whenJust cancellable touchManagedPtr - freeMem name' - freeMem objectPath' - return () - --- method DBusObjectManagerClient::new_for_bus --- method type : MemberFunction --- 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 = "flags", argType = TInterface "Gio" "DBusObjectManagerClientFlags", 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 = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_func", argType = TInterface "Gio" "DBusProxyTypeFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "get_proxy_type_destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, 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 = 9, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_client_new_for_bus" g_dbus_object_manager_client_new_for_bus :: - CUInt -> -- bus_type : TInterface "Gio" "BusType" - CUInt -> -- flags : TInterface "Gio" "DBusObjectManagerClientFlags" - CString -> -- name : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - FunPtr DBusProxyTypeFuncC -> -- get_proxy_type_func : TInterface "Gio" "DBusProxyTypeFunc" - Ptr () -> -- get_proxy_type_user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- get_proxy_type_destroy_notify : TInterface "GLib" "DestroyNotify" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dBusObjectManagerClientNewForBus :: - (MonadIO m, CancellableK a) => - BusType -- busType - -> [DBusObjectManagerClientFlags] -- flags - -> T.Text -- name - -> T.Text -- objectPath - -> Maybe (DBusProxyTypeFunc) -- getProxyTypeFunc - -> Maybe (a) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -dBusObjectManagerClientNewForBus busType flags name objectPath getProxyTypeFunc cancellable callback = liftIO $ do - let busType' = (fromIntegral . fromEnum) busType - let flags' = gflagsToWord flags - name' <- textToCString name - objectPath' <- textToCString objectPath - maybeGetProxyTypeFunc <- case getProxyTypeFunc of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jGetProxyTypeFunc -> do - jGetProxyTypeFunc' <- mkDBusProxyTypeFunc (dBusProxyTypeFuncWrapper Nothing jGetProxyTypeFunc) - return jGetProxyTypeFunc' - 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 getProxyTypeUserData = castFunPtrToPtr maybeGetProxyTypeFunc - let getProxyTypeDestroyNotify = safeFreeFunPtrPtr - let userData = nullPtr - g_dbus_object_manager_client_new_for_bus busType' flags' name' objectPath' maybeGetProxyTypeFunc getProxyTypeUserData getProxyTypeDestroyNotify maybeCancellable maybeCallback userData - whenJust cancellable touchManagedPtr - freeMem name' - freeMem objectPath' - return () - - diff --git a/GI/Gio/Objects/DBusObjectManagerClient.hs-boot b/GI/Gio/Objects/DBusObjectManagerClient.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DBusObjectManagerClient.hs-boot +++ /dev/null @@ -1,28 +0,0 @@ -module GI.Gio.Objects.DBusObjectManagerClient where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusObjectManagerClient = DBusObjectManagerClient (ForeignPtr DBusObjectManagerClient) -instance GObject DBusObjectManagerClient where -class GObject o => DBusObjectManagerClientK o -instance (GObject o, IsDescendantOf DBusObjectManagerClient o) => DBusObjectManagerClientK o -data DBusObjectManagerClientBusTypePropertyInfo -data DBusObjectManagerClientConnectionPropertyInfo -data DBusObjectManagerClientFlagsPropertyInfo -data DBusObjectManagerClientGetProxyTypeDestroyNotifyPropertyInfo -data DBusObjectManagerClientGetProxyTypeFuncPropertyInfo -data DBusObjectManagerClientGetProxyTypeUserDataPropertyInfo -data DBusObjectManagerClientNamePropertyInfo -data DBusObjectManagerClientNameOwnerPropertyInfo -data DBusObjectManagerClientObjectPathPropertyInfo -data DBusObjectManagerClientInterfaceProxyPropertiesChangedSignalInfo -data DBusObjectManagerClientInterfaceProxySignalSignalInfo -data DBusObjectManagerClientGetConnectionMethodInfo -data DBusObjectManagerClientGetFlagsMethodInfo -data DBusObjectManagerClientGetNameMethodInfo -data DBusObjectManagerClientGetNameOwnerMethodInfo diff --git a/GI/Gio/Objects/DBusObjectManagerServer.hs b/GI/Gio/Objects/DBusObjectManagerServer.hs deleted file mode 100644 --- a/GI/Gio/Objects/DBusObjectManagerServer.hs +++ /dev/null @@ -1,431 +0,0 @@ - - -{- | -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.Objects.DBusObjectManagerServer - ( - --- * Exported types - DBusObjectManagerServer(..) , - DBusObjectManagerServerK , - toDBusObjectManagerServer , - noDBusObjectManagerServer , - - - -- * Methods --- ** dBusObjectManagerServerExport - DBusObjectManagerServerExportMethodInfo , - dBusObjectManagerServerExport , - - --- ** dBusObjectManagerServerExportUniquely - DBusObjectManagerServerExportUniquelyMethodInfo, - dBusObjectManagerServerExportUniquely , - - --- ** dBusObjectManagerServerGetConnection - DBusObjectManagerServerGetConnectionMethodInfo, - dBusObjectManagerServerGetConnection , - - --- ** dBusObjectManagerServerIsExported - DBusObjectManagerServerIsExportedMethodInfo, - dBusObjectManagerServerIsExported , - - --- ** dBusObjectManagerServerNew - dBusObjectManagerServerNew , - - --- ** dBusObjectManagerServerSetConnection - DBusObjectManagerServerSetConnectionMethodInfo, - dBusObjectManagerServerSetConnection , - - --- ** dBusObjectManagerServerUnexport - DBusObjectManagerServerUnexportMethodInfo, - dBusObjectManagerServerUnexport , - - - - - -- * Properties --- ** Connection - DBusObjectManagerServerConnectionPropertyInfo, - clearDBusObjectManagerServerConnection , - constructDBusObjectManagerServerConnection, - dBusObjectManagerServerConnection , - getDBusObjectManagerServerConnection , - setDBusObjectManagerServerConnection , - - --- ** ObjectPath - DBusObjectManagerServerObjectPathPropertyInfo, - constructDBusObjectManagerServerObjectPath, - dBusObjectManagerServerObjectPath , - getDBusObjectManagerServerObjectPath , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype DBusObjectManagerServer = DBusObjectManagerServer (ForeignPtr DBusObjectManagerServer) -foreign import ccall "g_dbus_object_manager_server_get_type" - c_g_dbus_object_manager_server_get_type :: IO GType - -type instance ParentTypes DBusObjectManagerServer = DBusObjectManagerServerParentTypes -type DBusObjectManagerServerParentTypes = '[GObject.Object, DBusObjectManager] - -instance GObject DBusObjectManagerServer where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_object_manager_server_get_type - - -class GObject o => DBusObjectManagerServerK o -instance (GObject o, IsDescendantOf DBusObjectManagerServer o) => DBusObjectManagerServerK o - -toDBusObjectManagerServer :: DBusObjectManagerServerK o => o -> IO DBusObjectManagerServer -toDBusObjectManagerServer = unsafeCastTo DBusObjectManagerServer - -noDBusObjectManagerServer :: Maybe DBusObjectManagerServer -noDBusObjectManagerServer = Nothing - -type family ResolveDBusObjectManagerServerMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusObjectManagerServerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusObjectManagerServerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusObjectManagerServerMethod "export" o = DBusObjectManagerServerExportMethodInfo - ResolveDBusObjectManagerServerMethod "exportUniquely" o = DBusObjectManagerServerExportUniquelyMethodInfo - ResolveDBusObjectManagerServerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusObjectManagerServerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusObjectManagerServerMethod "isExported" o = DBusObjectManagerServerIsExportedMethodInfo - ResolveDBusObjectManagerServerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusObjectManagerServerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusObjectManagerServerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusObjectManagerServerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusObjectManagerServerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusObjectManagerServerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusObjectManagerServerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusObjectManagerServerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusObjectManagerServerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusObjectManagerServerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusObjectManagerServerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusObjectManagerServerMethod "unexport" o = DBusObjectManagerServerUnexportMethodInfo - ResolveDBusObjectManagerServerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusObjectManagerServerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusObjectManagerServerMethod "getConnection" o = DBusObjectManagerServerGetConnectionMethodInfo - ResolveDBusObjectManagerServerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusObjectManagerServerMethod "getInterface" o = DBusObjectManagerGetInterfaceMethodInfo - ResolveDBusObjectManagerServerMethod "getObject" o = DBusObjectManagerGetObjectMethodInfo - ResolveDBusObjectManagerServerMethod "getObjectPath" o = DBusObjectManagerGetObjectPathMethodInfo - ResolveDBusObjectManagerServerMethod "getObjects" o = DBusObjectManagerGetObjectsMethodInfo - ResolveDBusObjectManagerServerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusObjectManagerServerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusObjectManagerServerMethod "setConnection" o = DBusObjectManagerServerSetConnectionMethodInfo - ResolveDBusObjectManagerServerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusObjectManagerServerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusObjectManagerServerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusObjectManagerServerMethod t DBusObjectManagerServer, MethodInfo info DBusObjectManagerServer p) => IsLabelProxy t (DBusObjectManagerServer -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusObjectManagerServerMethod t DBusObjectManagerServer, MethodInfo info DBusObjectManagerServer p) => IsLabel t (DBusObjectManagerServer -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "connection" - -- Type: TInterface "Gio" "DBusConnection" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just True) - -getDBusObjectManagerServerConnection :: (MonadIO m, DBusObjectManagerServerK o) => o -> m (Maybe DBusConnection) -getDBusObjectManagerServerConnection obj = liftIO $ getObjectPropertyObject obj "connection" DBusConnection - -setDBusObjectManagerServerConnection :: (MonadIO m, DBusObjectManagerServerK o, DBusConnectionK a) => o -> a -> m () -setDBusObjectManagerServerConnection obj val = liftIO $ setObjectPropertyObject obj "connection" (Just val) - -constructDBusObjectManagerServerConnection :: (DBusConnectionK a) => a -> IO ([Char], GValue) -constructDBusObjectManagerServerConnection val = constructObjectPropertyObject "connection" (Just val) - -clearDBusObjectManagerServerConnection :: (MonadIO m, DBusObjectManagerServerK o) => o -> m () -clearDBusObjectManagerServerConnection obj = liftIO $ setObjectPropertyObject obj "connection" (Nothing :: Maybe DBusConnection) - -data DBusObjectManagerServerConnectionPropertyInfo -instance AttrInfo DBusObjectManagerServerConnectionPropertyInfo where - type AttrAllowedOps DBusObjectManagerServerConnectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusObjectManagerServerConnectionPropertyInfo = DBusConnectionK - type AttrBaseTypeConstraint DBusObjectManagerServerConnectionPropertyInfo = DBusObjectManagerServerK - type AttrGetType DBusObjectManagerServerConnectionPropertyInfo = (Maybe DBusConnection) - type AttrLabel DBusObjectManagerServerConnectionPropertyInfo = "connection" - attrGet _ = getDBusObjectManagerServerConnection - attrSet _ = setDBusObjectManagerServerConnection - attrConstruct _ = constructDBusObjectManagerServerConnection - attrClear _ = clearDBusObjectManagerServerConnection - --- VVV Prop "object-path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDBusObjectManagerServerObjectPath :: (MonadIO m, DBusObjectManagerServerK o) => o -> m (Maybe T.Text) -getDBusObjectManagerServerObjectPath obj = liftIO $ getObjectPropertyString obj "object-path" - -constructDBusObjectManagerServerObjectPath :: T.Text -> IO ([Char], GValue) -constructDBusObjectManagerServerObjectPath val = constructObjectPropertyString "object-path" (Just val) - -data DBusObjectManagerServerObjectPathPropertyInfo -instance AttrInfo DBusObjectManagerServerObjectPathPropertyInfo where - type AttrAllowedOps DBusObjectManagerServerObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusObjectManagerServerObjectPathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DBusObjectManagerServerObjectPathPropertyInfo = DBusObjectManagerServerK - type AttrGetType DBusObjectManagerServerObjectPathPropertyInfo = (Maybe T.Text) - type AttrLabel DBusObjectManagerServerObjectPathPropertyInfo = "object-path" - attrGet _ = getDBusObjectManagerServerObjectPath - attrSet _ = undefined - attrConstruct _ = constructDBusObjectManagerServerObjectPath - attrClear _ = undefined - -type instance AttributeList DBusObjectManagerServer = DBusObjectManagerServerAttributeList -type DBusObjectManagerServerAttributeList = ('[ '("connection", DBusObjectManagerServerConnectionPropertyInfo), '("objectPath", DBusObjectManagerServerObjectPathPropertyInfo)] :: [(Symbol, *)]) - -dBusObjectManagerServerConnection :: AttrLabelProxy "connection" -dBusObjectManagerServerConnection = AttrLabelProxy - -dBusObjectManagerServerObjectPath :: AttrLabelProxy "objectPath" -dBusObjectManagerServerObjectPath = AttrLabelProxy - -type instance SignalList DBusObjectManagerServer = DBusObjectManagerServerSignalList -type DBusObjectManagerServerSignalList = ('[ '("interfaceAdded", DBusObjectManagerInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectManagerInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("objectAdded", DBusObjectManagerObjectAddedSignalInfo), '("objectRemoved", DBusObjectManagerObjectRemovedSignalInfo)] :: [(Symbol, *)]) - --- method DBusObjectManagerServer::new --- method type : Constructor --- Args : [Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusObjectManagerServer") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_server_new" g_dbus_object_manager_server_new :: - CString -> -- object_path : TBasicType TUTF8 - IO (Ptr DBusObjectManagerServer) - - -dBusObjectManagerServerNew :: - (MonadIO m) => - T.Text -- objectPath - -> m DBusObjectManagerServer -- result -dBusObjectManagerServerNew objectPath = liftIO $ do - objectPath' <- textToCString objectPath - result <- g_dbus_object_manager_server_new objectPath' - checkUnexpectedReturnNULL "g_dbus_object_manager_server_new" result - result' <- (wrapObject DBusObjectManagerServer) result - freeMem objectPath' - return result' - --- method DBusObjectManagerServer::export --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_server_export" g_dbus_object_manager_server_export :: - Ptr DBusObjectManagerServer -> -- _obj : TInterface "Gio" "DBusObjectManagerServer" - Ptr DBusObjectSkeleton -> -- object : TInterface "Gio" "DBusObjectSkeleton" - IO () - - -dBusObjectManagerServerExport :: - (MonadIO m, DBusObjectManagerServerK a, DBusObjectSkeletonK b) => - a -- _obj - -> b -- object - -> m () -- result -dBusObjectManagerServerExport _obj object = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let object' = unsafeManagedPtrCastPtr object - g_dbus_object_manager_server_export _obj' object' - touchManagedPtr _obj - touchManagedPtr object - return () - -data DBusObjectManagerServerExportMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DBusObjectManagerServerK a, DBusObjectSkeletonK b) => MethodInfo DBusObjectManagerServerExportMethodInfo a signature where - overloadedMethod _ = dBusObjectManagerServerExport - --- method DBusObjectManagerServer::export_uniquely --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_server_export_uniquely" g_dbus_object_manager_server_export_uniquely :: - Ptr DBusObjectManagerServer -> -- _obj : TInterface "Gio" "DBusObjectManagerServer" - Ptr DBusObjectSkeleton -> -- object : TInterface "Gio" "DBusObjectSkeleton" - IO () - - -dBusObjectManagerServerExportUniquely :: - (MonadIO m, DBusObjectManagerServerK a, DBusObjectSkeletonK b) => - a -- _obj - -> b -- object - -> m () -- result -dBusObjectManagerServerExportUniquely _obj object = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let object' = unsafeManagedPtrCastPtr object - g_dbus_object_manager_server_export_uniquely _obj' object' - touchManagedPtr _obj - touchManagedPtr object - return () - -data DBusObjectManagerServerExportUniquelyMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DBusObjectManagerServerK a, DBusObjectSkeletonK b) => MethodInfo DBusObjectManagerServerExportUniquelyMethodInfo a signature where - overloadedMethod _ = dBusObjectManagerServerExportUniquely - --- method DBusObjectManagerServer::get_connection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusConnection") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_server_get_connection" g_dbus_object_manager_server_get_connection :: - Ptr DBusObjectManagerServer -> -- _obj : TInterface "Gio" "DBusObjectManagerServer" - IO (Ptr DBusConnection) - - -dBusObjectManagerServerGetConnection :: - (MonadIO m, DBusObjectManagerServerK a) => - a -- _obj - -> m DBusConnection -- result -dBusObjectManagerServerGetConnection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_object_manager_server_get_connection _obj' - checkUnexpectedReturnNULL "g_dbus_object_manager_server_get_connection" result - result' <- (wrapObject DBusConnection) result - touchManagedPtr _obj - return result' - -data DBusObjectManagerServerGetConnectionMethodInfo -instance (signature ~ (m DBusConnection), MonadIO m, DBusObjectManagerServerK a) => MethodInfo DBusObjectManagerServerGetConnectionMethodInfo a signature where - overloadedMethod _ = dBusObjectManagerServerGetConnection - --- method DBusObjectManagerServer::is_exported --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_server_is_exported" g_dbus_object_manager_server_is_exported :: - Ptr DBusObjectManagerServer -> -- _obj : TInterface "Gio" "DBusObjectManagerServer" - Ptr DBusObjectSkeleton -> -- object : TInterface "Gio" "DBusObjectSkeleton" - IO CInt - - -dBusObjectManagerServerIsExported :: - (MonadIO m, DBusObjectManagerServerK a, DBusObjectSkeletonK b) => - a -- _obj - -> b -- object - -> m Bool -- result -dBusObjectManagerServerIsExported _obj object = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let object' = unsafeManagedPtrCastPtr object - result <- g_dbus_object_manager_server_is_exported _obj' object' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr object - return result' - -data DBusObjectManagerServerIsExportedMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, DBusObjectManagerServerK a, DBusObjectSkeletonK b) => MethodInfo DBusObjectManagerServerIsExportedMethodInfo a signature where - overloadedMethod _ = dBusObjectManagerServerIsExported - --- method DBusObjectManagerServer::set_connection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_server_set_connection" g_dbus_object_manager_server_set_connection :: - Ptr DBusObjectManagerServer -> -- _obj : TInterface "Gio" "DBusObjectManagerServer" - Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection" - IO () - - -dBusObjectManagerServerSetConnection :: - (MonadIO m, DBusObjectManagerServerK a, DBusConnectionK b) => - a -- _obj - -> Maybe (b) -- connection - -> m () -- result -dBusObjectManagerServerSetConnection _obj connection = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeConnection <- case connection of - Nothing -> return nullPtr - Just jConnection -> do - let jConnection' = unsafeManagedPtrCastPtr jConnection - return jConnection' - g_dbus_object_manager_server_set_connection _obj' maybeConnection - touchManagedPtr _obj - whenJust connection touchManagedPtr - return () - -data DBusObjectManagerServerSetConnectionMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, DBusObjectManagerServerK a, DBusConnectionK b) => MethodInfo DBusObjectManagerServerSetConnectionMethodInfo a signature where - overloadedMethod _ = dBusObjectManagerServerSetConnection - --- method DBusObjectManagerServer::unexport --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectManagerServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_manager_server_unexport" g_dbus_object_manager_server_unexport :: - Ptr DBusObjectManagerServer -> -- _obj : TInterface "Gio" "DBusObjectManagerServer" - CString -> -- object_path : TBasicType TUTF8 - IO CInt - - -dBusObjectManagerServerUnexport :: - (MonadIO m, DBusObjectManagerServerK a) => - a -- _obj - -> T.Text -- objectPath - -> m Bool -- result -dBusObjectManagerServerUnexport _obj objectPath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - objectPath' <- textToCString objectPath - result <- g_dbus_object_manager_server_unexport _obj' objectPath' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem objectPath' - return result' - -data DBusObjectManagerServerUnexportMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, DBusObjectManagerServerK a) => MethodInfo DBusObjectManagerServerUnexportMethodInfo a signature where - overloadedMethod _ = dBusObjectManagerServerUnexport - - diff --git a/GI/Gio/Objects/DBusObjectManagerServer.hs-boot b/GI/Gio/Objects/DBusObjectManagerServer.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DBusObjectManagerServer.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gio.Objects.DBusObjectManagerServer where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusObjectManagerServer = DBusObjectManagerServer (ForeignPtr DBusObjectManagerServer) -instance GObject DBusObjectManagerServer where -class GObject o => DBusObjectManagerServerK o -instance (GObject o, IsDescendantOf DBusObjectManagerServer o) => DBusObjectManagerServerK o -data DBusObjectManagerServerConnectionPropertyInfo -data DBusObjectManagerServerObjectPathPropertyInfo -data DBusObjectManagerServerExportMethodInfo -data DBusObjectManagerServerExportUniquelyMethodInfo -data DBusObjectManagerServerGetConnectionMethodInfo -data DBusObjectManagerServerIsExportedMethodInfo -data DBusObjectManagerServerSetConnectionMethodInfo -data DBusObjectManagerServerUnexportMethodInfo diff --git a/GI/Gio/Objects/DBusObjectProxy.hs b/GI/Gio/Objects/DBusObjectProxy.hs deleted file mode 100644 --- a/GI/Gio/Objects/DBusObjectProxy.hs +++ /dev/null @@ -1,235 +0,0 @@ - - -{- | -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.Objects.DBusObjectProxy - ( - --- * Exported types - DBusObjectProxy(..) , - DBusObjectProxyK , - toDBusObjectProxy , - noDBusObjectProxy , - - - -- * Methods --- ** dBusObjectProxyGetConnection - DBusObjectProxyGetConnectionMethodInfo , - dBusObjectProxyGetConnection , - - --- ** dBusObjectProxyNew - dBusObjectProxyNew , - - - - - -- * Properties --- ** GConnection - DBusObjectProxyGConnectionPropertyInfo , - constructDBusObjectProxyGConnection , - dBusObjectProxyGConnection , - getDBusObjectProxyGConnection , - - --- ** GObjectPath - DBusObjectProxyGObjectPathPropertyInfo , - constructDBusObjectProxyGObjectPath , - dBusObjectProxyGObjectPath , - getDBusObjectProxyGObjectPath , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype DBusObjectProxy = DBusObjectProxy (ForeignPtr DBusObjectProxy) -foreign import ccall "g_dbus_object_proxy_get_type" - c_g_dbus_object_proxy_get_type :: IO GType - -type instance ParentTypes DBusObjectProxy = DBusObjectProxyParentTypes -type DBusObjectProxyParentTypes = '[GObject.Object, DBusObject] - -instance GObject DBusObjectProxy where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_object_proxy_get_type - - -class GObject o => DBusObjectProxyK o -instance (GObject o, IsDescendantOf DBusObjectProxy o) => DBusObjectProxyK o - -toDBusObjectProxy :: DBusObjectProxyK o => o -> IO DBusObjectProxy -toDBusObjectProxy = unsafeCastTo DBusObjectProxy - -noDBusObjectProxy :: Maybe DBusObjectProxy -noDBusObjectProxy = Nothing - -type family ResolveDBusObjectProxyMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusObjectProxyMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusObjectProxyMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusObjectProxyMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusObjectProxyMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusObjectProxyMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusObjectProxyMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusObjectProxyMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusObjectProxyMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusObjectProxyMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusObjectProxyMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusObjectProxyMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusObjectProxyMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusObjectProxyMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusObjectProxyMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusObjectProxyMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusObjectProxyMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusObjectProxyMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusObjectProxyMethod "getConnection" o = DBusObjectProxyGetConnectionMethodInfo - ResolveDBusObjectProxyMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusObjectProxyMethod "getInterface" o = DBusObjectGetInterfaceMethodInfo - ResolveDBusObjectProxyMethod "getInterfaces" o = DBusObjectGetInterfacesMethodInfo - ResolveDBusObjectProxyMethod "getObjectPath" o = DBusObjectGetObjectPathMethodInfo - ResolveDBusObjectProxyMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusObjectProxyMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusObjectProxyMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusObjectProxyMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusObjectProxyMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusObjectProxyMethod t DBusObjectProxy, MethodInfo info DBusObjectProxy p) => IsLabelProxy t (DBusObjectProxy -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusObjectProxyMethod t DBusObjectProxy, MethodInfo info DBusObjectProxy p) => IsLabel t (DBusObjectProxy -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "g-connection" - -- Type: TInterface "Gio" "DBusConnection" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDBusObjectProxyGConnection :: (MonadIO m, DBusObjectProxyK o) => o -> m (Maybe DBusConnection) -getDBusObjectProxyGConnection obj = liftIO $ getObjectPropertyObject obj "g-connection" DBusConnection - -constructDBusObjectProxyGConnection :: (DBusConnectionK a) => a -> IO ([Char], GValue) -constructDBusObjectProxyGConnection val = constructObjectPropertyObject "g-connection" (Just val) - -data DBusObjectProxyGConnectionPropertyInfo -instance AttrInfo DBusObjectProxyGConnectionPropertyInfo where - type AttrAllowedOps DBusObjectProxyGConnectionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusObjectProxyGConnectionPropertyInfo = DBusConnectionK - type AttrBaseTypeConstraint DBusObjectProxyGConnectionPropertyInfo = DBusObjectProxyK - type AttrGetType DBusObjectProxyGConnectionPropertyInfo = (Maybe DBusConnection) - type AttrLabel DBusObjectProxyGConnectionPropertyInfo = "g-connection" - attrGet _ = getDBusObjectProxyGConnection - attrSet _ = undefined - attrConstruct _ = constructDBusObjectProxyGConnection - attrClear _ = undefined - --- VVV Prop "g-object-path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDBusObjectProxyGObjectPath :: (MonadIO m, DBusObjectProxyK o) => o -> m (Maybe T.Text) -getDBusObjectProxyGObjectPath obj = liftIO $ getObjectPropertyString obj "g-object-path" - -constructDBusObjectProxyGObjectPath :: T.Text -> IO ([Char], GValue) -constructDBusObjectProxyGObjectPath val = constructObjectPropertyString "g-object-path" (Just val) - -data DBusObjectProxyGObjectPathPropertyInfo -instance AttrInfo DBusObjectProxyGObjectPathPropertyInfo where - type AttrAllowedOps DBusObjectProxyGObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusObjectProxyGObjectPathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DBusObjectProxyGObjectPathPropertyInfo = DBusObjectProxyK - type AttrGetType DBusObjectProxyGObjectPathPropertyInfo = (Maybe T.Text) - type AttrLabel DBusObjectProxyGObjectPathPropertyInfo = "g-object-path" - attrGet _ = getDBusObjectProxyGObjectPath - attrSet _ = undefined - attrConstruct _ = constructDBusObjectProxyGObjectPath - attrClear _ = undefined - -type instance AttributeList DBusObjectProxy = DBusObjectProxyAttributeList -type DBusObjectProxyAttributeList = ('[ '("gConnection", DBusObjectProxyGConnectionPropertyInfo), '("gObjectPath", DBusObjectProxyGObjectPathPropertyInfo)] :: [(Symbol, *)]) - -dBusObjectProxyGConnection :: AttrLabelProxy "gConnection" -dBusObjectProxyGConnection = AttrLabelProxy - -dBusObjectProxyGObjectPath :: AttrLabelProxy "gObjectPath" -dBusObjectProxyGObjectPath = AttrLabelProxy - -type instance SignalList DBusObjectProxy = DBusObjectProxySignalList -type DBusObjectProxySignalList = ('[ '("interfaceAdded", DBusObjectInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DBusObjectProxy::new --- method type : Constructor --- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusObjectProxy") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_proxy_new" g_dbus_object_proxy_new :: - Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection" - CString -> -- object_path : TBasicType TUTF8 - IO (Ptr DBusObjectProxy) - - -dBusObjectProxyNew :: - (MonadIO m, DBusConnectionK a) => - a -- connection - -> T.Text -- objectPath - -> m DBusObjectProxy -- result -dBusObjectProxyNew connection objectPath = liftIO $ do - let connection' = unsafeManagedPtrCastPtr connection - objectPath' <- textToCString objectPath - result <- g_dbus_object_proxy_new connection' objectPath' - checkUnexpectedReturnNULL "g_dbus_object_proxy_new" result - result' <- (wrapObject DBusObjectProxy) result - touchManagedPtr connection - freeMem objectPath' - return result' - --- method DBusObjectProxy::get_connection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusConnection") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_proxy_get_connection" g_dbus_object_proxy_get_connection :: - Ptr DBusObjectProxy -> -- _obj : TInterface "Gio" "DBusObjectProxy" - IO (Ptr DBusConnection) - - -dBusObjectProxyGetConnection :: - (MonadIO m, DBusObjectProxyK a) => - a -- _obj - -> m DBusConnection -- result -dBusObjectProxyGetConnection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_object_proxy_get_connection _obj' - checkUnexpectedReturnNULL "g_dbus_object_proxy_get_connection" result - result' <- (newObject DBusConnection) result - touchManagedPtr _obj - return result' - -data DBusObjectProxyGetConnectionMethodInfo -instance (signature ~ (m DBusConnection), MonadIO m, DBusObjectProxyK a) => MethodInfo DBusObjectProxyGetConnectionMethodInfo a signature where - overloadedMethod _ = dBusObjectProxyGetConnection - - diff --git a/GI/Gio/Objects/DBusObjectProxy.hs-boot b/GI/Gio/Objects/DBusObjectProxy.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DBusObjectProxy.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gio.Objects.DBusObjectProxy where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusObjectProxy = DBusObjectProxy (ForeignPtr DBusObjectProxy) -instance GObject DBusObjectProxy where -class GObject o => DBusObjectProxyK o -instance (GObject o, IsDescendantOf DBusObjectProxy o) => DBusObjectProxyK o -data DBusObjectProxyGConnectionPropertyInfo -data DBusObjectProxyGObjectPathPropertyInfo -data DBusObjectProxyGetConnectionMethodInfo diff --git a/GI/Gio/Objects/DBusObjectSkeleton.hs b/GI/Gio/Objects/DBusObjectSkeleton.hs deleted file mode 100644 --- a/GI/Gio/Objects/DBusObjectSkeleton.hs +++ /dev/null @@ -1,420 +0,0 @@ - - -{- | -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.Objects.DBusObjectSkeleton - ( - --- * Exported types - DBusObjectSkeleton(..) , - DBusObjectSkeletonK , - toDBusObjectSkeleton , - noDBusObjectSkeleton , - - - -- * Methods --- ** dBusObjectSkeletonAddInterface - DBusObjectSkeletonAddInterfaceMethodInfo, - dBusObjectSkeletonAddInterface , - - --- ** dBusObjectSkeletonFlush - DBusObjectSkeletonFlushMethodInfo , - dBusObjectSkeletonFlush , - - --- ** dBusObjectSkeletonNew - dBusObjectSkeletonNew , - - --- ** dBusObjectSkeletonRemoveInterface - DBusObjectSkeletonRemoveInterfaceMethodInfo, - dBusObjectSkeletonRemoveInterface , - - --- ** dBusObjectSkeletonRemoveInterfaceByName - DBusObjectSkeletonRemoveInterfaceByNameMethodInfo, - dBusObjectSkeletonRemoveInterfaceByName , - - --- ** dBusObjectSkeletonSetObjectPath - DBusObjectSkeletonSetObjectPathMethodInfo, - dBusObjectSkeletonSetObjectPath , - - - - - -- * Properties --- ** GObjectPath - DBusObjectSkeletonGObjectPathPropertyInfo, - clearDBusObjectSkeletonGObjectPath , - constructDBusObjectSkeletonGObjectPath , - dBusObjectSkeletonGObjectPath , - getDBusObjectSkeletonGObjectPath , - setDBusObjectSkeletonGObjectPath , - - - - - -- * Signals --- ** AuthorizeMethod - DBusObjectSkeletonAuthorizeMethodCallback, - DBusObjectSkeletonAuthorizeMethodCallbackC, - DBusObjectSkeletonAuthorizeMethodSignalInfo, - afterDBusObjectSkeletonAuthorizeMethod , - dBusObjectSkeletonAuthorizeMethodCallbackWrapper, - dBusObjectSkeletonAuthorizeMethodClosure, - mkDBusObjectSkeletonAuthorizeMethodCallback, - noDBusObjectSkeletonAuthorizeMethodCallback, - onDBusObjectSkeletonAuthorizeMethod , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype DBusObjectSkeleton = DBusObjectSkeleton (ForeignPtr DBusObjectSkeleton) -foreign import ccall "g_dbus_object_skeleton_get_type" - c_g_dbus_object_skeleton_get_type :: IO GType - -type instance ParentTypes DBusObjectSkeleton = DBusObjectSkeletonParentTypes -type DBusObjectSkeletonParentTypes = '[GObject.Object, DBusObject] - -instance GObject DBusObjectSkeleton where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_object_skeleton_get_type - - -class GObject o => DBusObjectSkeletonK o -instance (GObject o, IsDescendantOf DBusObjectSkeleton o) => DBusObjectSkeletonK o - -toDBusObjectSkeleton :: DBusObjectSkeletonK o => o -> IO DBusObjectSkeleton -toDBusObjectSkeleton = unsafeCastTo DBusObjectSkeleton - -noDBusObjectSkeleton :: Maybe DBusObjectSkeleton -noDBusObjectSkeleton = Nothing - -type family ResolveDBusObjectSkeletonMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusObjectSkeletonMethod "addInterface" o = DBusObjectSkeletonAddInterfaceMethodInfo - ResolveDBusObjectSkeletonMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusObjectSkeletonMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusObjectSkeletonMethod "flush" o = DBusObjectSkeletonFlushMethodInfo - ResolveDBusObjectSkeletonMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusObjectSkeletonMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusObjectSkeletonMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusObjectSkeletonMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusObjectSkeletonMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusObjectSkeletonMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusObjectSkeletonMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusObjectSkeletonMethod "removeInterface" o = DBusObjectSkeletonRemoveInterfaceMethodInfo - ResolveDBusObjectSkeletonMethod "removeInterfaceByName" o = DBusObjectSkeletonRemoveInterfaceByNameMethodInfo - ResolveDBusObjectSkeletonMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusObjectSkeletonMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusObjectSkeletonMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusObjectSkeletonMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusObjectSkeletonMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusObjectSkeletonMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusObjectSkeletonMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusObjectSkeletonMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusObjectSkeletonMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusObjectSkeletonMethod "getInterface" o = DBusObjectGetInterfaceMethodInfo - ResolveDBusObjectSkeletonMethod "getInterfaces" o = DBusObjectGetInterfacesMethodInfo - ResolveDBusObjectSkeletonMethod "getObjectPath" o = DBusObjectGetObjectPathMethodInfo - ResolveDBusObjectSkeletonMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusObjectSkeletonMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusObjectSkeletonMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusObjectSkeletonMethod "setObjectPath" o = DBusObjectSkeletonSetObjectPathMethodInfo - ResolveDBusObjectSkeletonMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusObjectSkeletonMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusObjectSkeletonMethod t DBusObjectSkeleton, MethodInfo info DBusObjectSkeleton p) => IsLabelProxy t (DBusObjectSkeleton -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusObjectSkeletonMethod t DBusObjectSkeleton, MethodInfo info DBusObjectSkeleton p) => IsLabel t (DBusObjectSkeleton -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal DBusObjectSkeleton::authorize-method -type DBusObjectSkeletonAuthorizeMethodCallback = - DBusInterfaceSkeleton -> - DBusMethodInvocation -> - IO Bool - -noDBusObjectSkeletonAuthorizeMethodCallback :: Maybe DBusObjectSkeletonAuthorizeMethodCallback -noDBusObjectSkeletonAuthorizeMethodCallback = Nothing - -type DBusObjectSkeletonAuthorizeMethodCallbackC = - Ptr () -> -- object - Ptr DBusInterfaceSkeleton -> - Ptr DBusMethodInvocation -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkDBusObjectSkeletonAuthorizeMethodCallback :: DBusObjectSkeletonAuthorizeMethodCallbackC -> IO (FunPtr DBusObjectSkeletonAuthorizeMethodCallbackC) - -dBusObjectSkeletonAuthorizeMethodClosure :: DBusObjectSkeletonAuthorizeMethodCallback -> IO Closure -dBusObjectSkeletonAuthorizeMethodClosure cb = newCClosure =<< mkDBusObjectSkeletonAuthorizeMethodCallback wrapped - where wrapped = dBusObjectSkeletonAuthorizeMethodCallbackWrapper cb - -dBusObjectSkeletonAuthorizeMethodCallbackWrapper :: - DBusObjectSkeletonAuthorizeMethodCallback -> - Ptr () -> - Ptr DBusInterfaceSkeleton -> - Ptr DBusMethodInvocation -> - Ptr () -> - IO CInt -dBusObjectSkeletonAuthorizeMethodCallbackWrapper _cb _ interface invocation _ = do - interface' <- (newObject DBusInterfaceSkeleton) interface - invocation' <- (newObject DBusMethodInvocation) invocation - result <- _cb interface' invocation' - let result' = (fromIntegral . fromEnum) result - return result' - -onDBusObjectSkeletonAuthorizeMethod :: (GObject a, MonadIO m) => a -> DBusObjectSkeletonAuthorizeMethodCallback -> m SignalHandlerId -onDBusObjectSkeletonAuthorizeMethod obj cb = liftIO $ connectDBusObjectSkeletonAuthorizeMethod obj cb SignalConnectBefore -afterDBusObjectSkeletonAuthorizeMethod :: (GObject a, MonadIO m) => a -> DBusObjectSkeletonAuthorizeMethodCallback -> m SignalHandlerId -afterDBusObjectSkeletonAuthorizeMethod obj cb = connectDBusObjectSkeletonAuthorizeMethod obj cb SignalConnectAfter - -connectDBusObjectSkeletonAuthorizeMethod :: (GObject a, MonadIO m) => - a -> DBusObjectSkeletonAuthorizeMethodCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusObjectSkeletonAuthorizeMethod obj cb after = liftIO $ do - cb' <- mkDBusObjectSkeletonAuthorizeMethodCallback (dBusObjectSkeletonAuthorizeMethodCallbackWrapper cb) - connectSignalFunPtr obj "authorize-method" cb' after - --- VVV Prop "g-object-path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getDBusObjectSkeletonGObjectPath :: (MonadIO m, DBusObjectSkeletonK o) => o -> m (Maybe T.Text) -getDBusObjectSkeletonGObjectPath obj = liftIO $ getObjectPropertyString obj "g-object-path" - -setDBusObjectSkeletonGObjectPath :: (MonadIO m, DBusObjectSkeletonK o) => o -> T.Text -> m () -setDBusObjectSkeletonGObjectPath obj val = liftIO $ setObjectPropertyString obj "g-object-path" (Just val) - -constructDBusObjectSkeletonGObjectPath :: T.Text -> IO ([Char], GValue) -constructDBusObjectSkeletonGObjectPath val = constructObjectPropertyString "g-object-path" (Just val) - -clearDBusObjectSkeletonGObjectPath :: (MonadIO m, DBusObjectSkeletonK o) => o -> m () -clearDBusObjectSkeletonGObjectPath obj = liftIO $ setObjectPropertyString obj "g-object-path" (Nothing :: Maybe T.Text) - -data DBusObjectSkeletonGObjectPathPropertyInfo -instance AttrInfo DBusObjectSkeletonGObjectPathPropertyInfo where - type AttrAllowedOps DBusObjectSkeletonGObjectPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusObjectSkeletonGObjectPathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DBusObjectSkeletonGObjectPathPropertyInfo = DBusObjectSkeletonK - type AttrGetType DBusObjectSkeletonGObjectPathPropertyInfo = (Maybe T.Text) - type AttrLabel DBusObjectSkeletonGObjectPathPropertyInfo = "g-object-path" - attrGet _ = getDBusObjectSkeletonGObjectPath - attrSet _ = setDBusObjectSkeletonGObjectPath - attrConstruct _ = constructDBusObjectSkeletonGObjectPath - attrClear _ = clearDBusObjectSkeletonGObjectPath - -type instance AttributeList DBusObjectSkeleton = DBusObjectSkeletonAttributeList -type DBusObjectSkeletonAttributeList = ('[ '("gObjectPath", DBusObjectSkeletonGObjectPathPropertyInfo)] :: [(Symbol, *)]) - -dBusObjectSkeletonGObjectPath :: AttrLabelProxy "gObjectPath" -dBusObjectSkeletonGObjectPath = AttrLabelProxy - -data DBusObjectSkeletonAuthorizeMethodSignalInfo -instance SignalInfo DBusObjectSkeletonAuthorizeMethodSignalInfo where - type HaskellCallbackType DBusObjectSkeletonAuthorizeMethodSignalInfo = DBusObjectSkeletonAuthorizeMethodCallback - connectSignal _ = connectDBusObjectSkeletonAuthorizeMethod - -type instance SignalList DBusObjectSkeleton = DBusObjectSkeletonSignalList -type DBusObjectSkeletonSignalList = ('[ '("authorizeMethod", DBusObjectSkeletonAuthorizeMethodSignalInfo), '("interfaceAdded", DBusObjectInterfaceAddedSignalInfo), '("interfaceRemoved", DBusObjectInterfaceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DBusObjectSkeleton::new --- method type : Constructor --- Args : [Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusObjectSkeleton") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_skeleton_new" g_dbus_object_skeleton_new :: - CString -> -- object_path : TBasicType TUTF8 - IO (Ptr DBusObjectSkeleton) - - -dBusObjectSkeletonNew :: - (MonadIO m) => - T.Text -- objectPath - -> m DBusObjectSkeleton -- result -dBusObjectSkeletonNew objectPath = liftIO $ do - objectPath' <- textToCString objectPath - result <- g_dbus_object_skeleton_new objectPath' - checkUnexpectedReturnNULL "g_dbus_object_skeleton_new" result - result' <- (wrapObject DBusObjectSkeleton) result - freeMem objectPath' - return result' - --- method DBusObjectSkeleton::add_interface --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_skeleton_add_interface" g_dbus_object_skeleton_add_interface :: - Ptr DBusObjectSkeleton -> -- _obj : TInterface "Gio" "DBusObjectSkeleton" - Ptr DBusInterfaceSkeleton -> -- interface_ : TInterface "Gio" "DBusInterfaceSkeleton" - IO () - - -dBusObjectSkeletonAddInterface :: - (MonadIO m, DBusObjectSkeletonK a, DBusInterfaceSkeletonK b) => - a -- _obj - -> b -- interface_ - -> m () -- result -dBusObjectSkeletonAddInterface _obj interface_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let interface_' = unsafeManagedPtrCastPtr interface_ - g_dbus_object_skeleton_add_interface _obj' interface_' - touchManagedPtr _obj - touchManagedPtr interface_ - return () - -data DBusObjectSkeletonAddInterfaceMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DBusObjectSkeletonK a, DBusInterfaceSkeletonK b) => MethodInfo DBusObjectSkeletonAddInterfaceMethodInfo a signature where - overloadedMethod _ = dBusObjectSkeletonAddInterface - --- method DBusObjectSkeleton::flush --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_skeleton_flush" g_dbus_object_skeleton_flush :: - Ptr DBusObjectSkeleton -> -- _obj : TInterface "Gio" "DBusObjectSkeleton" - IO () - - -dBusObjectSkeletonFlush :: - (MonadIO m, DBusObjectSkeletonK a) => - a -- _obj - -> m () -- result -dBusObjectSkeletonFlush _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_object_skeleton_flush _obj' - touchManagedPtr _obj - return () - -data DBusObjectSkeletonFlushMethodInfo -instance (signature ~ (m ()), MonadIO m, DBusObjectSkeletonK a) => MethodInfo DBusObjectSkeletonFlushMethodInfo a signature where - overloadedMethod _ = dBusObjectSkeletonFlush - --- method DBusObjectSkeleton::remove_interface --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_", argType = TInterface "Gio" "DBusInterfaceSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_skeleton_remove_interface" g_dbus_object_skeleton_remove_interface :: - Ptr DBusObjectSkeleton -> -- _obj : TInterface "Gio" "DBusObjectSkeleton" - Ptr DBusInterfaceSkeleton -> -- interface_ : TInterface "Gio" "DBusInterfaceSkeleton" - IO () - - -dBusObjectSkeletonRemoveInterface :: - (MonadIO m, DBusObjectSkeletonK a, DBusInterfaceSkeletonK b) => - a -- _obj - -> b -- interface_ - -> m () -- result -dBusObjectSkeletonRemoveInterface _obj interface_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let interface_' = unsafeManagedPtrCastPtr interface_ - g_dbus_object_skeleton_remove_interface _obj' interface_' - touchManagedPtr _obj - touchManagedPtr interface_ - return () - -data DBusObjectSkeletonRemoveInterfaceMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, DBusObjectSkeletonK a, DBusInterfaceSkeletonK b) => MethodInfo DBusObjectSkeletonRemoveInterfaceMethodInfo a signature where - overloadedMethod _ = dBusObjectSkeletonRemoveInterface - --- method DBusObjectSkeleton::remove_interface_by_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_skeleton_remove_interface_by_name" g_dbus_object_skeleton_remove_interface_by_name :: - Ptr DBusObjectSkeleton -> -- _obj : TInterface "Gio" "DBusObjectSkeleton" - CString -> -- interface_name : TBasicType TUTF8 - IO () - - -dBusObjectSkeletonRemoveInterfaceByName :: - (MonadIO m, DBusObjectSkeletonK a) => - a -- _obj - -> T.Text -- interfaceName - -> m () -- result -dBusObjectSkeletonRemoveInterfaceByName _obj interfaceName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - interfaceName' <- textToCString interfaceName - g_dbus_object_skeleton_remove_interface_by_name _obj' interfaceName' - touchManagedPtr _obj - freeMem interfaceName' - return () - -data DBusObjectSkeletonRemoveInterfaceByNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DBusObjectSkeletonK a) => MethodInfo DBusObjectSkeletonRemoveInterfaceByNameMethodInfo a signature where - overloadedMethod _ = dBusObjectSkeletonRemoveInterfaceByName - --- method DBusObjectSkeleton::set_object_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusObjectSkeleton", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_object_skeleton_set_object_path" g_dbus_object_skeleton_set_object_path :: - Ptr DBusObjectSkeleton -> -- _obj : TInterface "Gio" "DBusObjectSkeleton" - CString -> -- object_path : TBasicType TUTF8 - IO () - - -dBusObjectSkeletonSetObjectPath :: - (MonadIO m, DBusObjectSkeletonK a) => - a -- _obj - -> T.Text -- objectPath - -> m () -- result -dBusObjectSkeletonSetObjectPath _obj objectPath = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - objectPath' <- textToCString objectPath - g_dbus_object_skeleton_set_object_path _obj' objectPath' - touchManagedPtr _obj - freeMem objectPath' - return () - -data DBusObjectSkeletonSetObjectPathMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, DBusObjectSkeletonK a) => MethodInfo DBusObjectSkeletonSetObjectPathMethodInfo a signature where - overloadedMethod _ = dBusObjectSkeletonSetObjectPath - - diff --git a/GI/Gio/Objects/DBusObjectSkeleton.hs-boot b/GI/Gio/Objects/DBusObjectSkeleton.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DBusObjectSkeleton.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.Gio.Objects.DBusObjectSkeleton where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusObjectSkeleton = DBusObjectSkeleton (ForeignPtr DBusObjectSkeleton) -instance GObject DBusObjectSkeleton where -class GObject o => DBusObjectSkeletonK o -instance (GObject o, IsDescendantOf DBusObjectSkeleton o) => DBusObjectSkeletonK o -data DBusObjectSkeletonGObjectPathPropertyInfo -data DBusObjectSkeletonAuthorizeMethodSignalInfo -data DBusObjectSkeletonAddInterfaceMethodInfo -data DBusObjectSkeletonFlushMethodInfo -data DBusObjectSkeletonRemoveInterfaceMethodInfo -data DBusObjectSkeletonRemoveInterfaceByNameMethodInfo -data DBusObjectSkeletonSetObjectPathMethodInfo diff --git a/GI/Gio/Objects/DBusProxy.hs b/GI/Gio/Objects/DBusProxy.hs deleted file mode 100644 --- a/GI/Gio/Objects/DBusProxy.hs +++ /dev/null @@ -1,1742 +0,0 @@ - - -{- | -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.Objects.DBusProxy - ( - --- * Exported types - DBusProxy(..) , - DBusProxyK , - toDBusProxy , - noDBusProxy , - - - -- * Methods --- ** dBusProxyCall - DBusProxyCallMethodInfo , - dBusProxyCall , - - --- ** dBusProxyCallFinish - DBusProxyCallFinishMethodInfo , - dBusProxyCallFinish , - - --- ** dBusProxyCallSync - DBusProxyCallSyncMethodInfo , - dBusProxyCallSync , - - --- ** dBusProxyCallWithUnixFdList - DBusProxyCallWithUnixFdListMethodInfo , - dBusProxyCallWithUnixFdList , - - --- ** dBusProxyCallWithUnixFdListFinish - DBusProxyCallWithUnixFdListFinishMethodInfo, - dBusProxyCallWithUnixFdListFinish , - - --- ** dBusProxyCallWithUnixFdListSync - DBusProxyCallWithUnixFdListSyncMethodInfo, - dBusProxyCallWithUnixFdListSync , - - --- ** dBusProxyGetCachedProperty - DBusProxyGetCachedPropertyMethodInfo , - dBusProxyGetCachedProperty , - - --- ** dBusProxyGetCachedPropertyNames - DBusProxyGetCachedPropertyNamesMethodInfo, - dBusProxyGetCachedPropertyNames , - - --- ** dBusProxyGetConnection - DBusProxyGetConnectionMethodInfo , - dBusProxyGetConnection , - - --- ** dBusProxyGetDefaultTimeout - DBusProxyGetDefaultTimeoutMethodInfo , - dBusProxyGetDefaultTimeout , - - --- ** dBusProxyGetFlags - DBusProxyGetFlagsMethodInfo , - dBusProxyGetFlags , - - --- ** dBusProxyGetInterfaceInfo - DBusProxyGetInterfaceInfoMethodInfo , - dBusProxyGetInterfaceInfo , - - --- ** dBusProxyGetInterfaceName - DBusProxyGetInterfaceNameMethodInfo , - dBusProxyGetInterfaceName , - - --- ** dBusProxyGetName - DBusProxyGetNameMethodInfo , - dBusProxyGetName , - - --- ** dBusProxyGetNameOwner - DBusProxyGetNameOwnerMethodInfo , - dBusProxyGetNameOwner , - - --- ** dBusProxyGetObjectPath - DBusProxyGetObjectPathMethodInfo , - dBusProxyGetObjectPath , - - --- ** dBusProxyNew - dBusProxyNew , - - --- ** dBusProxyNewFinish - dBusProxyNewFinish , - - --- ** dBusProxyNewForBus - dBusProxyNewForBus , - - --- ** dBusProxyNewForBusFinish - dBusProxyNewForBusFinish , - - --- ** dBusProxyNewForBusSync - dBusProxyNewForBusSync , - - --- ** dBusProxyNewSync - dBusProxyNewSync , - - --- ** dBusProxySetCachedProperty - DBusProxySetCachedPropertyMethodInfo , - dBusProxySetCachedProperty , - - --- ** dBusProxySetDefaultTimeout - DBusProxySetDefaultTimeoutMethodInfo , - dBusProxySetDefaultTimeout , - - --- ** dBusProxySetInterfaceInfo - DBusProxySetInterfaceInfoMethodInfo , - dBusProxySetInterfaceInfo , - - - - - -- * Properties --- ** GBusType - DBusProxyGBusTypePropertyInfo , - constructDBusProxyGBusType , - dBusProxyGBusType , - - --- ** GConnection - DBusProxyGConnectionPropertyInfo , - constructDBusProxyGConnection , - dBusProxyGConnection , - getDBusProxyGConnection , - - --- ** GDefaultTimeout - DBusProxyGDefaultTimeoutPropertyInfo , - constructDBusProxyGDefaultTimeout , - dBusProxyGDefaultTimeout , - getDBusProxyGDefaultTimeout , - setDBusProxyGDefaultTimeout , - - --- ** GFlags - DBusProxyGFlagsPropertyInfo , - constructDBusProxyGFlags , - dBusProxyGFlags , - getDBusProxyGFlags , - - --- ** GInterfaceInfo - DBusProxyGInterfaceInfoPropertyInfo , - clearDBusProxyGInterfaceInfo , - constructDBusProxyGInterfaceInfo , - dBusProxyGInterfaceInfo , - getDBusProxyGInterfaceInfo , - setDBusProxyGInterfaceInfo , - - --- ** GInterfaceName - DBusProxyGInterfaceNamePropertyInfo , - constructDBusProxyGInterfaceName , - dBusProxyGInterfaceName , - getDBusProxyGInterfaceName , - - --- ** GName - DBusProxyGNamePropertyInfo , - constructDBusProxyGName , - dBusProxyGName , - getDBusProxyGName , - - --- ** GNameOwner - DBusProxyGNameOwnerPropertyInfo , - dBusProxyGNameOwner , - getDBusProxyGNameOwner , - - --- ** GObjectPath - DBusProxyGObjectPathPropertyInfo , - constructDBusProxyGObjectPath , - dBusProxyGObjectPath , - getDBusProxyGObjectPath , - - - - - -- * Signals --- ** GPropertiesChanged - DBusProxyGPropertiesChangedCallback , - DBusProxyGPropertiesChangedCallbackC , - DBusProxyGPropertiesChangedSignalInfo , - afterDBusProxyGPropertiesChanged , - dBusProxyGPropertiesChangedCallbackWrapper, - dBusProxyGPropertiesChangedClosure , - mkDBusProxyGPropertiesChangedCallback , - noDBusProxyGPropertiesChangedCallback , - onDBusProxyGPropertiesChanged , - - --- ** GSignal - DBusProxyGSignalCallback , - DBusProxyGSignalCallbackC , - DBusProxyGSignalSignalInfo , - afterDBusProxyGSignal , - dBusProxyGSignalCallbackWrapper , - dBusProxyGSignalClosure , - mkDBusProxyGSignalCallback , - noDBusProxyGSignalCallback , - onDBusProxyGSignal , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype DBusProxy = DBusProxy (ForeignPtr DBusProxy) -foreign import ccall "g_dbus_proxy_get_type" - c_g_dbus_proxy_get_type :: IO GType - -type instance ParentTypes DBusProxy = DBusProxyParentTypes -type DBusProxyParentTypes = '[GObject.Object, AsyncInitable, DBusInterface, Initable] - -instance GObject DBusProxy where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_proxy_get_type - - -class GObject o => DBusProxyK o -instance (GObject o, IsDescendantOf DBusProxy o) => DBusProxyK o - -toDBusProxy :: DBusProxyK o => o -> IO DBusProxy -toDBusProxy = unsafeCastTo DBusProxy - -noDBusProxy :: Maybe DBusProxy -noDBusProxy = Nothing - -type family ResolveDBusProxyMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusProxyMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusProxyMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusProxyMethod "call" o = DBusProxyCallMethodInfo - ResolveDBusProxyMethod "callFinish" o = DBusProxyCallFinishMethodInfo - ResolveDBusProxyMethod "callSync" o = DBusProxyCallSyncMethodInfo - ResolveDBusProxyMethod "callWithUnixFdList" o = DBusProxyCallWithUnixFdListMethodInfo - ResolveDBusProxyMethod "callWithUnixFdListFinish" o = DBusProxyCallWithUnixFdListFinishMethodInfo - ResolveDBusProxyMethod "callWithUnixFdListSync" o = DBusProxyCallWithUnixFdListSyncMethodInfo - ResolveDBusProxyMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusProxyMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusProxyMethod "init" o = InitableInitMethodInfo - ResolveDBusProxyMethod "initAsync" o = AsyncInitableInitAsyncMethodInfo - ResolveDBusProxyMethod "initFinish" o = AsyncInitableInitFinishMethodInfo - ResolveDBusProxyMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusProxyMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusProxyMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusProxyMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusProxyMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusProxyMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusProxyMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusProxyMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusProxyMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusProxyMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusProxyMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusProxyMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusProxyMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusProxyMethod "getCachedProperty" o = DBusProxyGetCachedPropertyMethodInfo - ResolveDBusProxyMethod "getCachedPropertyNames" o = DBusProxyGetCachedPropertyNamesMethodInfo - ResolveDBusProxyMethod "getConnection" o = DBusProxyGetConnectionMethodInfo - ResolveDBusProxyMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusProxyMethod "getDefaultTimeout" o = DBusProxyGetDefaultTimeoutMethodInfo - ResolveDBusProxyMethod "getFlags" o = DBusProxyGetFlagsMethodInfo - ResolveDBusProxyMethod "getInfo" o = DBusInterfaceGetInfoMethodInfo - ResolveDBusProxyMethod "getInterfaceInfo" o = DBusProxyGetInterfaceInfoMethodInfo - ResolveDBusProxyMethod "getInterfaceName" o = DBusProxyGetInterfaceNameMethodInfo - ResolveDBusProxyMethod "getName" o = DBusProxyGetNameMethodInfo - ResolveDBusProxyMethod "getNameOwner" o = DBusProxyGetNameOwnerMethodInfo - ResolveDBusProxyMethod "getObject" o = DBusInterfaceGetObjectMethodInfo - ResolveDBusProxyMethod "getObjectPath" o = DBusProxyGetObjectPathMethodInfo - ResolveDBusProxyMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusProxyMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusProxyMethod "setCachedProperty" o = DBusProxySetCachedPropertyMethodInfo - ResolveDBusProxyMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusProxyMethod "setDefaultTimeout" o = DBusProxySetDefaultTimeoutMethodInfo - ResolveDBusProxyMethod "setInterfaceInfo" o = DBusProxySetInterfaceInfoMethodInfo - ResolveDBusProxyMethod "setObject" o = DBusInterfaceSetObjectMethodInfo - ResolveDBusProxyMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusProxyMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusProxyMethod t DBusProxy, MethodInfo info DBusProxy p) => IsLabelProxy t (DBusProxy -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusProxyMethod t DBusProxy, MethodInfo info DBusProxy p) => IsLabel t (DBusProxy -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal DBusProxy::g-properties-changed -type DBusProxyGPropertiesChangedCallback = - GVariant -> - [T.Text] -> - IO () - -noDBusProxyGPropertiesChangedCallback :: Maybe DBusProxyGPropertiesChangedCallback -noDBusProxyGPropertiesChangedCallback = Nothing - -type DBusProxyGPropertiesChangedCallbackC = - Ptr () -> -- object - Ptr GVariant -> - Ptr CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDBusProxyGPropertiesChangedCallback :: DBusProxyGPropertiesChangedCallbackC -> IO (FunPtr DBusProxyGPropertiesChangedCallbackC) - -dBusProxyGPropertiesChangedClosure :: DBusProxyGPropertiesChangedCallback -> IO Closure -dBusProxyGPropertiesChangedClosure cb = newCClosure =<< mkDBusProxyGPropertiesChangedCallback wrapped - where wrapped = dBusProxyGPropertiesChangedCallbackWrapper cb - -dBusProxyGPropertiesChangedCallbackWrapper :: - DBusProxyGPropertiesChangedCallback -> - Ptr () -> - Ptr GVariant -> - Ptr CString -> - Ptr () -> - IO () -dBusProxyGPropertiesChangedCallbackWrapper _cb _ changedProperties invalidatedProperties _ = do - changedProperties' <- newGVariantFromPtr changedProperties - invalidatedProperties' <- unpackZeroTerminatedUTF8CArray invalidatedProperties - _cb changedProperties' invalidatedProperties' - -onDBusProxyGPropertiesChanged :: (GObject a, MonadIO m) => a -> DBusProxyGPropertiesChangedCallback -> m SignalHandlerId -onDBusProxyGPropertiesChanged obj cb = liftIO $ connectDBusProxyGPropertiesChanged obj cb SignalConnectBefore -afterDBusProxyGPropertiesChanged :: (GObject a, MonadIO m) => a -> DBusProxyGPropertiesChangedCallback -> m SignalHandlerId -afterDBusProxyGPropertiesChanged obj cb = connectDBusProxyGPropertiesChanged obj cb SignalConnectAfter - -connectDBusProxyGPropertiesChanged :: (GObject a, MonadIO m) => - a -> DBusProxyGPropertiesChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusProxyGPropertiesChanged obj cb after = liftIO $ do - cb' <- mkDBusProxyGPropertiesChangedCallback (dBusProxyGPropertiesChangedCallbackWrapper cb) - connectSignalFunPtr obj "g-properties-changed" cb' after - --- signal DBusProxy::g-signal -type DBusProxyGSignalCallback = - Maybe T.Text -> - T.Text -> - GVariant -> - IO () - -noDBusProxyGSignalCallback :: Maybe DBusProxyGSignalCallback -noDBusProxyGSignalCallback = Nothing - -type DBusProxyGSignalCallbackC = - Ptr () -> -- object - CString -> - CString -> - Ptr GVariant -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkDBusProxyGSignalCallback :: DBusProxyGSignalCallbackC -> IO (FunPtr DBusProxyGSignalCallbackC) - -dBusProxyGSignalClosure :: DBusProxyGSignalCallback -> IO Closure -dBusProxyGSignalClosure cb = newCClosure =<< mkDBusProxyGSignalCallback wrapped - where wrapped = dBusProxyGSignalCallbackWrapper cb - -dBusProxyGSignalCallbackWrapper :: - DBusProxyGSignalCallback -> - Ptr () -> - CString -> - CString -> - Ptr GVariant -> - Ptr () -> - IO () -dBusProxyGSignalCallbackWrapper _cb _ senderName signalName parameters _ = do - maybeSenderName <- - if senderName == nullPtr - then return Nothing - else do - senderName' <- cstringToText senderName - return $ Just senderName' - signalName' <- cstringToText signalName - parameters' <- newGVariantFromPtr parameters - _cb maybeSenderName signalName' parameters' - -onDBusProxyGSignal :: (GObject a, MonadIO m) => a -> DBusProxyGSignalCallback -> m SignalHandlerId -onDBusProxyGSignal obj cb = liftIO $ connectDBusProxyGSignal obj cb SignalConnectBefore -afterDBusProxyGSignal :: (GObject a, MonadIO m) => a -> DBusProxyGSignalCallback -> m SignalHandlerId -afterDBusProxyGSignal obj cb = connectDBusProxyGSignal obj cb SignalConnectAfter - -connectDBusProxyGSignal :: (GObject a, MonadIO m) => - a -> DBusProxyGSignalCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusProxyGSignal obj cb after = liftIO $ do - cb' <- mkDBusProxyGSignalCallback (dBusProxyGSignalCallbackWrapper cb) - connectSignalFunPtr obj "g-signal" cb' after - --- VVV Prop "g-bus-type" - -- Type: TInterface "Gio" "BusType" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructDBusProxyGBusType :: BusType -> IO ([Char], GValue) -constructDBusProxyGBusType val = constructObjectPropertyEnum "g-bus-type" val - -data DBusProxyGBusTypePropertyInfo -instance AttrInfo DBusProxyGBusTypePropertyInfo where - type AttrAllowedOps DBusProxyGBusTypePropertyInfo = '[ 'AttrConstruct] - type AttrSetTypeConstraint DBusProxyGBusTypePropertyInfo = (~) BusType - type AttrBaseTypeConstraint DBusProxyGBusTypePropertyInfo = DBusProxyK - type AttrGetType DBusProxyGBusTypePropertyInfo = () - type AttrLabel DBusProxyGBusTypePropertyInfo = "g-bus-type" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructDBusProxyGBusType - attrClear _ = undefined - --- VVV Prop "g-connection" - -- Type: TInterface "Gio" "DBusConnection" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDBusProxyGConnection :: (MonadIO m, DBusProxyK o) => o -> m (Maybe DBusConnection) -getDBusProxyGConnection obj = liftIO $ getObjectPropertyObject obj "g-connection" DBusConnection - -constructDBusProxyGConnection :: (DBusConnectionK a) => a -> IO ([Char], GValue) -constructDBusProxyGConnection val = constructObjectPropertyObject "g-connection" (Just val) - -data DBusProxyGConnectionPropertyInfo -instance AttrInfo DBusProxyGConnectionPropertyInfo where - type AttrAllowedOps DBusProxyGConnectionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusProxyGConnectionPropertyInfo = DBusConnectionK - type AttrBaseTypeConstraint DBusProxyGConnectionPropertyInfo = DBusProxyK - type AttrGetType DBusProxyGConnectionPropertyInfo = (Maybe DBusConnection) - type AttrLabel DBusProxyGConnectionPropertyInfo = "g-connection" - attrGet _ = getDBusProxyGConnection - attrSet _ = undefined - attrConstruct _ = constructDBusProxyGConnection - attrClear _ = undefined - --- VVV Prop "g-default-timeout" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getDBusProxyGDefaultTimeout :: (MonadIO m, DBusProxyK o) => o -> m Int32 -getDBusProxyGDefaultTimeout obj = liftIO $ getObjectPropertyInt32 obj "g-default-timeout" - -setDBusProxyGDefaultTimeout :: (MonadIO m, DBusProxyK o) => o -> Int32 -> m () -setDBusProxyGDefaultTimeout obj val = liftIO $ setObjectPropertyInt32 obj "g-default-timeout" val - -constructDBusProxyGDefaultTimeout :: Int32 -> IO ([Char], GValue) -constructDBusProxyGDefaultTimeout val = constructObjectPropertyInt32 "g-default-timeout" val - -data DBusProxyGDefaultTimeoutPropertyInfo -instance AttrInfo DBusProxyGDefaultTimeoutPropertyInfo where - type AttrAllowedOps DBusProxyGDefaultTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DBusProxyGDefaultTimeoutPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint DBusProxyGDefaultTimeoutPropertyInfo = DBusProxyK - type AttrGetType DBusProxyGDefaultTimeoutPropertyInfo = Int32 - type AttrLabel DBusProxyGDefaultTimeoutPropertyInfo = "g-default-timeout" - attrGet _ = getDBusProxyGDefaultTimeout - attrSet _ = setDBusProxyGDefaultTimeout - attrConstruct _ = constructDBusProxyGDefaultTimeout - attrClear _ = undefined - --- VVV Prop "g-flags" - -- Type: TInterface "Gio" "DBusProxyFlags" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDBusProxyGFlags :: (MonadIO m, DBusProxyK o) => o -> m [DBusProxyFlags] -getDBusProxyGFlags obj = liftIO $ getObjectPropertyFlags obj "g-flags" - -constructDBusProxyGFlags :: [DBusProxyFlags] -> IO ([Char], GValue) -constructDBusProxyGFlags val = constructObjectPropertyFlags "g-flags" val - -data DBusProxyGFlagsPropertyInfo -instance AttrInfo DBusProxyGFlagsPropertyInfo where - type AttrAllowedOps DBusProxyGFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DBusProxyGFlagsPropertyInfo = (~) [DBusProxyFlags] - type AttrBaseTypeConstraint DBusProxyGFlagsPropertyInfo = DBusProxyK - type AttrGetType DBusProxyGFlagsPropertyInfo = [DBusProxyFlags] - type AttrLabel DBusProxyGFlagsPropertyInfo = "g-flags" - attrGet _ = getDBusProxyGFlags - attrSet _ = undefined - attrConstruct _ = constructDBusProxyGFlags - attrClear _ = undefined - --- VVV Prop "g-interface-info" - -- Type: TInterface "Gio" "DBusInterfaceInfo" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getDBusProxyGInterfaceInfo :: (MonadIO m, DBusProxyK o) => o -> m (Maybe DBusInterfaceInfo) -getDBusProxyGInterfaceInfo obj = liftIO $ getObjectPropertyBoxed obj "g-interface-info" DBusInterfaceInfo - -setDBusProxyGInterfaceInfo :: (MonadIO m, DBusProxyK o) => o -> DBusInterfaceInfo -> m () -setDBusProxyGInterfaceInfo obj val = liftIO $ setObjectPropertyBoxed obj "g-interface-info" (Just val) - -constructDBusProxyGInterfaceInfo :: DBusInterfaceInfo -> IO ([Char], GValue) -constructDBusProxyGInterfaceInfo val = constructObjectPropertyBoxed "g-interface-info" (Just val) - -clearDBusProxyGInterfaceInfo :: (MonadIO m, DBusProxyK o) => o -> m () -clearDBusProxyGInterfaceInfo obj = liftIO $ setObjectPropertyBoxed obj "g-interface-info" (Nothing :: Maybe DBusInterfaceInfo) - -data DBusProxyGInterfaceInfoPropertyInfo -instance AttrInfo DBusProxyGInterfaceInfoPropertyInfo where - type AttrAllowedOps DBusProxyGInterfaceInfoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusProxyGInterfaceInfoPropertyInfo = (~) DBusInterfaceInfo - type AttrBaseTypeConstraint DBusProxyGInterfaceInfoPropertyInfo = DBusProxyK - type AttrGetType DBusProxyGInterfaceInfoPropertyInfo = (Maybe DBusInterfaceInfo) - type AttrLabel DBusProxyGInterfaceInfoPropertyInfo = "g-interface-info" - attrGet _ = getDBusProxyGInterfaceInfo - attrSet _ = setDBusProxyGInterfaceInfo - attrConstruct _ = constructDBusProxyGInterfaceInfo - attrClear _ = clearDBusProxyGInterfaceInfo - --- VVV Prop "g-interface-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDBusProxyGInterfaceName :: (MonadIO m, DBusProxyK o) => o -> m (Maybe T.Text) -getDBusProxyGInterfaceName obj = liftIO $ getObjectPropertyString obj "g-interface-name" - -constructDBusProxyGInterfaceName :: T.Text -> IO ([Char], GValue) -constructDBusProxyGInterfaceName val = constructObjectPropertyString "g-interface-name" (Just val) - -data DBusProxyGInterfaceNamePropertyInfo -instance AttrInfo DBusProxyGInterfaceNamePropertyInfo where - type AttrAllowedOps DBusProxyGInterfaceNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusProxyGInterfaceNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DBusProxyGInterfaceNamePropertyInfo = DBusProxyK - type AttrGetType DBusProxyGInterfaceNamePropertyInfo = (Maybe T.Text) - type AttrLabel DBusProxyGInterfaceNamePropertyInfo = "g-interface-name" - attrGet _ = getDBusProxyGInterfaceName - attrSet _ = undefined - attrConstruct _ = constructDBusProxyGInterfaceName - attrClear _ = undefined - --- VVV Prop "g-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDBusProxyGName :: (MonadIO m, DBusProxyK o) => o -> m (Maybe T.Text) -getDBusProxyGName obj = liftIO $ getObjectPropertyString obj "g-name" - -constructDBusProxyGName :: T.Text -> IO ([Char], GValue) -constructDBusProxyGName val = constructObjectPropertyString "g-name" (Just val) - -data DBusProxyGNamePropertyInfo -instance AttrInfo DBusProxyGNamePropertyInfo where - type AttrAllowedOps DBusProxyGNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusProxyGNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DBusProxyGNamePropertyInfo = DBusProxyK - type AttrGetType DBusProxyGNamePropertyInfo = (Maybe T.Text) - type AttrLabel DBusProxyGNamePropertyInfo = "g-name" - attrGet _ = getDBusProxyGName - attrSet _ = undefined - attrConstruct _ = constructDBusProxyGName - attrClear _ = undefined - --- VVV Prop "g-name-owner" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDBusProxyGNameOwner :: (MonadIO m, DBusProxyK o) => o -> m (Maybe T.Text) -getDBusProxyGNameOwner obj = liftIO $ getObjectPropertyString obj "g-name-owner" - -data DBusProxyGNameOwnerPropertyInfo -instance AttrInfo DBusProxyGNameOwnerPropertyInfo where - type AttrAllowedOps DBusProxyGNameOwnerPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusProxyGNameOwnerPropertyInfo = (~) () - type AttrBaseTypeConstraint DBusProxyGNameOwnerPropertyInfo = DBusProxyK - type AttrGetType DBusProxyGNameOwnerPropertyInfo = (Maybe T.Text) - type AttrLabel DBusProxyGNameOwnerPropertyInfo = "g-name-owner" - attrGet _ = getDBusProxyGNameOwner - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "g-object-path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDBusProxyGObjectPath :: (MonadIO m, DBusProxyK o) => o -> m (Maybe T.Text) -getDBusProxyGObjectPath obj = liftIO $ getObjectPropertyString obj "g-object-path" - -constructDBusProxyGObjectPath :: T.Text -> IO ([Char], GValue) -constructDBusProxyGObjectPath val = constructObjectPropertyString "g-object-path" (Just val) - -data DBusProxyGObjectPathPropertyInfo -instance AttrInfo DBusProxyGObjectPathPropertyInfo where - type AttrAllowedOps DBusProxyGObjectPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusProxyGObjectPathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DBusProxyGObjectPathPropertyInfo = DBusProxyK - type AttrGetType DBusProxyGObjectPathPropertyInfo = (Maybe T.Text) - type AttrLabel DBusProxyGObjectPathPropertyInfo = "g-object-path" - attrGet _ = getDBusProxyGObjectPath - attrSet _ = undefined - attrConstruct _ = constructDBusProxyGObjectPath - attrClear _ = undefined - -type instance AttributeList DBusProxy = DBusProxyAttributeList -type DBusProxyAttributeList = ('[ '("gBusType", DBusProxyGBusTypePropertyInfo), '("gConnection", DBusProxyGConnectionPropertyInfo), '("gDefaultTimeout", DBusProxyGDefaultTimeoutPropertyInfo), '("gFlags", DBusProxyGFlagsPropertyInfo), '("gInterfaceInfo", DBusProxyGInterfaceInfoPropertyInfo), '("gInterfaceName", DBusProxyGInterfaceNamePropertyInfo), '("gName", DBusProxyGNamePropertyInfo), '("gNameOwner", DBusProxyGNameOwnerPropertyInfo), '("gObjectPath", DBusProxyGObjectPathPropertyInfo)] :: [(Symbol, *)]) - -dBusProxyGBusType :: AttrLabelProxy "gBusType" -dBusProxyGBusType = AttrLabelProxy - -dBusProxyGConnection :: AttrLabelProxy "gConnection" -dBusProxyGConnection = AttrLabelProxy - -dBusProxyGDefaultTimeout :: AttrLabelProxy "gDefaultTimeout" -dBusProxyGDefaultTimeout = AttrLabelProxy - -dBusProxyGFlags :: AttrLabelProxy "gFlags" -dBusProxyGFlags = AttrLabelProxy - -dBusProxyGInterfaceInfo :: AttrLabelProxy "gInterfaceInfo" -dBusProxyGInterfaceInfo = AttrLabelProxy - -dBusProxyGInterfaceName :: AttrLabelProxy "gInterfaceName" -dBusProxyGInterfaceName = AttrLabelProxy - -dBusProxyGName :: AttrLabelProxy "gName" -dBusProxyGName = AttrLabelProxy - -dBusProxyGNameOwner :: AttrLabelProxy "gNameOwner" -dBusProxyGNameOwner = AttrLabelProxy - -dBusProxyGObjectPath :: AttrLabelProxy "gObjectPath" -dBusProxyGObjectPath = AttrLabelProxy - -data DBusProxyGPropertiesChangedSignalInfo -instance SignalInfo DBusProxyGPropertiesChangedSignalInfo where - type HaskellCallbackType DBusProxyGPropertiesChangedSignalInfo = DBusProxyGPropertiesChangedCallback - connectSignal _ = connectDBusProxyGPropertiesChanged - -data DBusProxyGSignalSignalInfo -instance SignalInfo DBusProxyGSignalSignalInfo where - type HaskellCallbackType DBusProxyGSignalSignalInfo = DBusProxyGSignalCallback - connectSignal _ = connectDBusProxyGSignal - -type instance SignalList DBusProxy = DBusProxySignalList -type DBusProxySignalList = ('[ '("gPropertiesChanged", DBusProxyGPropertiesChangedSignalInfo), '("gSignal", DBusProxyGSignalSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DBusProxy::new_finish --- method type : Constructor --- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusProxy") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_proxy_new_finish" g_dbus_proxy_new_finish :: - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusProxy) - - -dBusProxyNewFinish :: - (MonadIO m, AsyncResultK a) => - a -- res - -> m DBusProxy -- result -dBusProxyNewFinish res = liftIO $ do - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_dbus_proxy_new_finish res' - checkUnexpectedReturnNULL "g_dbus_proxy_new_finish" result - result' <- (wrapObject DBusProxy) result - touchManagedPtr res - return result' - ) (do - return () - ) - --- method DBusProxy::new_for_bus_finish --- method type : Constructor --- Args : [Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusProxy") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_proxy_new_for_bus_finish" g_dbus_proxy_new_for_bus_finish :: - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusProxy) - - -dBusProxyNewForBusFinish :: - (MonadIO m, AsyncResultK a) => - a -- res - -> m DBusProxy -- result -dBusProxyNewForBusFinish res = liftIO $ do - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_dbus_proxy_new_for_bus_finish res' - checkUnexpectedReturnNULL "g_dbus_proxy_new_for_bus_finish" result - result' <- (wrapObject DBusProxy) result - touchManagedPtr res - return result' - ) (do - return () - ) - --- method DBusProxy::new_for_bus_sync --- method type : Constructor --- 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 = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, 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 = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", 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 : Just (TInterface "Gio" "DBusProxy") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_proxy_new_for_bus_sync" g_dbus_proxy_new_for_bus_sync :: - CUInt -> -- bus_type : TInterface "Gio" "BusType" - CUInt -> -- flags : TInterface "Gio" "DBusProxyFlags" - Ptr DBusInterfaceInfo -> -- info : TInterface "Gio" "DBusInterfaceInfo" - CString -> -- name : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - CString -> -- interface_name : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusProxy) - - -dBusProxyNewForBusSync :: - (MonadIO m, CancellableK a) => - BusType -- busType - -> [DBusProxyFlags] -- flags - -> Maybe (DBusInterfaceInfo) -- info - -> T.Text -- name - -> T.Text -- objectPath - -> T.Text -- interfaceName - -> Maybe (a) -- cancellable - -> m DBusProxy -- result -dBusProxyNewForBusSync busType flags info name objectPath interfaceName cancellable = liftIO $ do - let busType' = (fromIntegral . fromEnum) busType - let flags' = gflagsToWord flags - maybeInfo <- case info of - Nothing -> return nullPtr - Just jInfo -> do - let jInfo' = unsafeManagedPtrGetPtr jInfo - return jInfo' - name' <- textToCString name - objectPath' <- textToCString objectPath - interfaceName' <- textToCString interfaceName - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_dbus_proxy_new_for_bus_sync busType' flags' maybeInfo name' objectPath' interfaceName' maybeCancellable - checkUnexpectedReturnNULL "g_dbus_proxy_new_for_bus_sync" result - result' <- (wrapObject DBusProxy) result - whenJust info touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem name' - freeMem objectPath' - freeMem interfaceName' - return result' - ) (do - freeMem name' - freeMem objectPath' - freeMem interfaceName' - ) - --- method DBusProxy::new_sync --- method type : Constructor --- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", 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 : Just (TInterface "Gio" "DBusProxy") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_proxy_new_sync" g_dbus_proxy_new_sync :: - Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection" - CUInt -> -- flags : TInterface "Gio" "DBusProxyFlags" - Ptr DBusInterfaceInfo -> -- info : TInterface "Gio" "DBusInterfaceInfo" - CString -> -- name : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - CString -> -- interface_name : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusProxy) - - -dBusProxyNewSync :: - (MonadIO m, DBusConnectionK a, CancellableK b) => - a -- connection - -> [DBusProxyFlags] -- flags - -> Maybe (DBusInterfaceInfo) -- info - -> Maybe (T.Text) -- name - -> T.Text -- objectPath - -> T.Text -- interfaceName - -> Maybe (b) -- cancellable - -> m DBusProxy -- result -dBusProxyNewSync connection flags info name objectPath interfaceName cancellable = liftIO $ do - let connection' = unsafeManagedPtrCastPtr connection - let flags' = gflagsToWord flags - maybeInfo <- case info of - Nothing -> return nullPtr - Just jInfo -> do - let jInfo' = unsafeManagedPtrGetPtr jInfo - return jInfo' - maybeName <- case name of - Nothing -> return nullPtr - Just jName -> do - jName' <- textToCString jName - return jName' - objectPath' <- textToCString objectPath - interfaceName' <- textToCString interfaceName - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_dbus_proxy_new_sync connection' flags' maybeInfo maybeName objectPath' interfaceName' maybeCancellable - checkUnexpectedReturnNULL "g_dbus_proxy_new_sync" result - result' <- (wrapObject DBusProxy) result - touchManagedPtr connection - whenJust info touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem maybeName - freeMem objectPath' - freeMem interfaceName' - return result' - ) (do - freeMem maybeName - freeMem objectPath' - freeMem interfaceName' - ) - --- method DBusProxy::call --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, 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 = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_call" g_dbus_proxy_call :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - CString -> -- method_name : TBasicType TUTF8 - Ptr GVariant -> -- parameters : TVariant - CUInt -> -- flags : TInterface "Gio" "DBusCallFlags" - Int32 -> -- timeout_msec : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dBusProxyCall :: - (MonadIO m, DBusProxyK a, CancellableK b) => - a -- _obj - -> T.Text -- methodName - -> Maybe (GVariant) -- parameters - -> [DBusCallFlags] -- flags - -> Int32 -- timeoutMsec - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -dBusProxyCall _obj methodName parameters flags timeoutMsec cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - methodName' <- textToCString methodName - maybeParameters <- case parameters of - Nothing -> return nullPtr - Just jParameters -> do - let jParameters' = unsafeManagedPtrGetPtr jParameters - return jParameters' - let flags' = gflagsToWord flags - 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_proxy_call _obj' methodName' maybeParameters flags' timeoutMsec maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem methodName' - return () - -data DBusProxyCallMethodInfo -instance (signature ~ (T.Text -> Maybe (GVariant) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DBusProxyK a, CancellableK b) => MethodInfo DBusProxyCallMethodInfo a signature where - overloadedMethod _ = dBusProxyCall - --- method DBusProxy::call_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_proxy_call_finish" g_dbus_proxy_call_finish :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr GVariant) - - -dBusProxyCallFinish :: - (MonadIO m, DBusProxyK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m GVariant -- result -dBusProxyCallFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_dbus_proxy_call_finish _obj' res' - checkUnexpectedReturnNULL "g_dbus_proxy_call_finish" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - touchManagedPtr res - return result' - ) (do - return () - ) - -data DBusProxyCallFinishMethodInfo -instance (signature ~ (b -> m GVariant), MonadIO m, DBusProxyK a, AsyncResultK b) => MethodInfo DBusProxyCallFinishMethodInfo a signature where - overloadedMethod _ = dBusProxyCallFinish - --- method DBusProxy::call_sync --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, 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 : Just TVariant --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_proxy_call_sync" g_dbus_proxy_call_sync :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - CString -> -- method_name : TBasicType TUTF8 - Ptr GVariant -> -- parameters : TVariant - CUInt -> -- flags : TInterface "Gio" "DBusCallFlags" - Int32 -> -- timeout_msec : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr GVariant) - - -dBusProxyCallSync :: - (MonadIO m, DBusProxyK a, CancellableK b) => - a -- _obj - -> T.Text -- methodName - -> Maybe (GVariant) -- parameters - -> [DBusCallFlags] -- flags - -> Int32 -- timeoutMsec - -> Maybe (b) -- cancellable - -> m GVariant -- result -dBusProxyCallSync _obj methodName parameters flags timeoutMsec cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - methodName' <- textToCString methodName - maybeParameters <- case parameters of - Nothing -> return nullPtr - Just jParameters -> do - let jParameters' = unsafeManagedPtrGetPtr jParameters - return jParameters' - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_dbus_proxy_call_sync _obj' methodName' maybeParameters flags' timeoutMsec maybeCancellable - checkUnexpectedReturnNULL "g_dbus_proxy_call_sync" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem methodName' - return result' - ) (do - freeMem methodName' - ) - -data DBusProxyCallSyncMethodInfo -instance (signature ~ (T.Text -> Maybe (GVariant) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> m GVariant), MonadIO m, DBusProxyK a, CancellableK b) => MethodInfo DBusProxyCallSyncMethodInfo a signature where - overloadedMethod _ = dBusProxyCallSync - --- method DBusProxy::call_with_unix_fd_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface "Gio" "UnixFDList", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_call_with_unix_fd_list" g_dbus_proxy_call_with_unix_fd_list :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - CString -> -- method_name : TBasicType TUTF8 - Ptr GVariant -> -- parameters : TVariant - CUInt -> -- flags : TInterface "Gio" "DBusCallFlags" - Int32 -> -- timeout_msec : TBasicType TInt - Ptr UnixFDList -> -- fd_list : TInterface "Gio" "UnixFDList" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dBusProxyCallWithUnixFdList :: - (MonadIO m, DBusProxyK a, UnixFDListK b, CancellableK c) => - a -- _obj - -> T.Text -- methodName - -> Maybe (GVariant) -- parameters - -> [DBusCallFlags] -- flags - -> Int32 -- timeoutMsec - -> Maybe (b) -- fdList - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -dBusProxyCallWithUnixFdList _obj methodName parameters flags timeoutMsec fdList cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - methodName' <- textToCString methodName - maybeParameters <- case parameters of - Nothing -> return nullPtr - Just jParameters -> do - let jParameters' = unsafeManagedPtrGetPtr jParameters - return jParameters' - let flags' = gflagsToWord flags - maybeFdList <- case fdList of - Nothing -> return nullPtr - Just jFdList -> do - let jFdList' = unsafeManagedPtrCastPtr jFdList - return jFdList' - 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_proxy_call_with_unix_fd_list _obj' methodName' maybeParameters flags' timeoutMsec maybeFdList maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust fdList touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem methodName' - return () - -data DBusProxyCallWithUnixFdListMethodInfo -instance (signature ~ (T.Text -> Maybe (GVariant) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DBusProxyK a, UnixFDListK b, CancellableK c) => MethodInfo DBusProxyCallWithUnixFdListMethodInfo a signature where - overloadedMethod _ = dBusProxyCallWithUnixFdList - --- method DBusProxy::call_with_unix_fd_list_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "res", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_proxy_call_with_unix_fd_list_finish" g_dbus_proxy_call_with_unix_fd_list_finish :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - Ptr (Ptr UnixFDList) -> -- out_fd_list : TInterface "Gio" "UnixFDList" - Ptr AsyncResult -> -- res : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr GVariant) - - -dBusProxyCallWithUnixFdListFinish :: - (MonadIO m, DBusProxyK a, AsyncResultK b) => - a -- _obj - -> b -- res - -> m (GVariant,UnixFDList) -- result -dBusProxyCallWithUnixFdListFinish _obj res = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - outFdList <- allocMem :: IO (Ptr (Ptr UnixFDList)) - let res' = unsafeManagedPtrCastPtr res - onException (do - result <- propagateGError $ g_dbus_proxy_call_with_unix_fd_list_finish _obj' outFdList res' - checkUnexpectedReturnNULL "g_dbus_proxy_call_with_unix_fd_list_finish" result - result' <- wrapGVariantPtr result - outFdList' <- peek outFdList - outFdList'' <- (wrapObject UnixFDList) outFdList' - touchManagedPtr _obj - touchManagedPtr res - freeMem outFdList - return (result', outFdList'') - ) (do - freeMem outFdList - ) - -data DBusProxyCallWithUnixFdListFinishMethodInfo -instance (signature ~ (b -> m (GVariant,UnixFDList)), MonadIO m, DBusProxyK a, AsyncResultK b) => MethodInfo DBusProxyCallWithUnixFdListFinishMethodInfo a signature where - overloadedMethod _ = dBusProxyCallWithUnixFdListFinish - --- method DBusProxy::call_with_unix_fd_list_sync --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameters", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusCallFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_fd_list", argType = TInterface "Gio" "UnixFDList", 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 : [] --- returnType : Just TVariant --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_proxy_call_with_unix_fd_list_sync" g_dbus_proxy_call_with_unix_fd_list_sync :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - CString -> -- method_name : TBasicType TUTF8 - Ptr GVariant -> -- parameters : TVariant - CUInt -> -- flags : TInterface "Gio" "DBusCallFlags" - Int32 -> -- timeout_msec : TBasicType TInt - Ptr UnixFDList -> -- fd_list : TInterface "Gio" "UnixFDList" - Ptr (Ptr UnixFDList) -> -- out_fd_list : TInterface "Gio" "UnixFDList" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr GVariant) - - -dBusProxyCallWithUnixFdListSync :: - (MonadIO m, DBusProxyK a, UnixFDListK b, CancellableK c) => - a -- _obj - -> T.Text -- methodName - -> Maybe (GVariant) -- parameters - -> [DBusCallFlags] -- flags - -> Int32 -- timeoutMsec - -> Maybe (b) -- fdList - -> Maybe (c) -- cancellable - -> m (GVariant,UnixFDList) -- result -dBusProxyCallWithUnixFdListSync _obj methodName parameters flags timeoutMsec fdList cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - methodName' <- textToCString methodName - maybeParameters <- case parameters of - Nothing -> return nullPtr - Just jParameters -> do - let jParameters' = unsafeManagedPtrGetPtr jParameters - return jParameters' - let flags' = gflagsToWord flags - maybeFdList <- case fdList of - Nothing -> return nullPtr - Just jFdList -> do - let jFdList' = unsafeManagedPtrCastPtr jFdList - return jFdList' - outFdList <- allocMem :: IO (Ptr (Ptr UnixFDList)) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_dbus_proxy_call_with_unix_fd_list_sync _obj' methodName' maybeParameters flags' timeoutMsec maybeFdList outFdList maybeCancellable - checkUnexpectedReturnNULL "g_dbus_proxy_call_with_unix_fd_list_sync" result - result' <- wrapGVariantPtr result - outFdList' <- peek outFdList - outFdList'' <- (wrapObject UnixFDList) outFdList' - touchManagedPtr _obj - whenJust fdList touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem methodName' - freeMem outFdList - return (result', outFdList'') - ) (do - freeMem methodName' - freeMem outFdList - ) - -data DBusProxyCallWithUnixFdListSyncMethodInfo -instance (signature ~ (T.Text -> Maybe (GVariant) -> [DBusCallFlags] -> Int32 -> Maybe (b) -> Maybe (c) -> m (GVariant,UnixFDList)), MonadIO m, DBusProxyK a, UnixFDListK b, CancellableK c) => MethodInfo DBusProxyCallWithUnixFdListSyncMethodInfo a signature where - overloadedMethod _ = dBusProxyCallWithUnixFdListSync - --- method DBusProxy::get_cached_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_get_cached_property" g_dbus_proxy_get_cached_property :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - CString -> -- property_name : TBasicType TUTF8 - IO (Ptr GVariant) - - -dBusProxyGetCachedProperty :: - (MonadIO m, DBusProxyK a) => - a -- _obj - -> T.Text -- propertyName - -> m GVariant -- result -dBusProxyGetCachedProperty _obj propertyName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - propertyName' <- textToCString propertyName - result <- g_dbus_proxy_get_cached_property _obj' propertyName' - checkUnexpectedReturnNULL "g_dbus_proxy_get_cached_property" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - freeMem propertyName' - return result' - -data DBusProxyGetCachedPropertyMethodInfo -instance (signature ~ (T.Text -> m GVariant), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetCachedPropertyMethodInfo a signature where - overloadedMethod _ = dBusProxyGetCachedProperty - --- method DBusProxy::get_cached_property_names --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_get_cached_property_names" g_dbus_proxy_get_cached_property_names :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - IO (Ptr CString) - - -dBusProxyGetCachedPropertyNames :: - (MonadIO m, DBusProxyK a) => - a -- _obj - -> m [T.Text] -- result -dBusProxyGetCachedPropertyNames _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_proxy_get_cached_property_names _obj' - checkUnexpectedReturnNULL "g_dbus_proxy_get_cached_property_names" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - return result' - -data DBusProxyGetCachedPropertyNamesMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetCachedPropertyNamesMethodInfo a signature where - overloadedMethod _ = dBusProxyGetCachedPropertyNames - --- method DBusProxy::get_connection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusConnection") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_get_connection" g_dbus_proxy_get_connection :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - IO (Ptr DBusConnection) - - -dBusProxyGetConnection :: - (MonadIO m, DBusProxyK a) => - a -- _obj - -> m DBusConnection -- result -dBusProxyGetConnection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_proxy_get_connection _obj' - checkUnexpectedReturnNULL "g_dbus_proxy_get_connection" result - result' <- (newObject DBusConnection) result - touchManagedPtr _obj - return result' - -data DBusProxyGetConnectionMethodInfo -instance (signature ~ (m DBusConnection), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetConnectionMethodInfo a signature where - overloadedMethod _ = dBusProxyGetConnection - --- method DBusProxy::get_default_timeout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_get_default_timeout" g_dbus_proxy_get_default_timeout :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - IO Int32 - - -dBusProxyGetDefaultTimeout :: - (MonadIO m, DBusProxyK a) => - a -- _obj - -> m Int32 -- result -dBusProxyGetDefaultTimeout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_proxy_get_default_timeout _obj' - touchManagedPtr _obj - return result - -data DBusProxyGetDefaultTimeoutMethodInfo -instance (signature ~ (m Int32), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetDefaultTimeoutMethodInfo a signature where - overloadedMethod _ = dBusProxyGetDefaultTimeout - --- method DBusProxy::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusProxyFlags") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_get_flags" g_dbus_proxy_get_flags :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - IO CUInt - - -dBusProxyGetFlags :: - (MonadIO m, DBusProxyK a) => - a -- _obj - -> m [DBusProxyFlags] -- result -dBusProxyGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_proxy_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data DBusProxyGetFlagsMethodInfo -instance (signature ~ (m [DBusProxyFlags]), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetFlagsMethodInfo a signature where - overloadedMethod _ = dBusProxyGetFlags - --- method DBusProxy::get_interface_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusInterfaceInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_get_interface_info" g_dbus_proxy_get_interface_info :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - IO (Ptr DBusInterfaceInfo) - - -dBusProxyGetInterfaceInfo :: - (MonadIO m, DBusProxyK a) => - a -- _obj - -> m DBusInterfaceInfo -- result -dBusProxyGetInterfaceInfo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_proxy_get_interface_info _obj' - checkUnexpectedReturnNULL "g_dbus_proxy_get_interface_info" result - result' <- (wrapBoxed DBusInterfaceInfo) result - touchManagedPtr _obj - return result' - -data DBusProxyGetInterfaceInfoMethodInfo -instance (signature ~ (m DBusInterfaceInfo), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetInterfaceInfoMethodInfo a signature where - overloadedMethod _ = dBusProxyGetInterfaceInfo - --- method DBusProxy::get_interface_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_get_interface_name" g_dbus_proxy_get_interface_name :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - IO CString - - -dBusProxyGetInterfaceName :: - (MonadIO m, DBusProxyK a) => - a -- _obj - -> m T.Text -- result -dBusProxyGetInterfaceName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_proxy_get_interface_name _obj' - checkUnexpectedReturnNULL "g_dbus_proxy_get_interface_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusProxyGetInterfaceNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetInterfaceNameMethodInfo a signature where - overloadedMethod _ = dBusProxyGetInterfaceName - --- method DBusProxy::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_get_name" g_dbus_proxy_get_name :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - IO CString - - -dBusProxyGetName :: - (MonadIO m, DBusProxyK a) => - a -- _obj - -> m T.Text -- result -dBusProxyGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_proxy_get_name _obj' - checkUnexpectedReturnNULL "g_dbus_proxy_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusProxyGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetNameMethodInfo a signature where - overloadedMethod _ = dBusProxyGetName - --- method DBusProxy::get_name_owner --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_get_name_owner" g_dbus_proxy_get_name_owner :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - IO CString - - -dBusProxyGetNameOwner :: - (MonadIO m, DBusProxyK a) => - a -- _obj - -> m T.Text -- result -dBusProxyGetNameOwner _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_proxy_get_name_owner _obj' - checkUnexpectedReturnNULL "g_dbus_proxy_get_name_owner" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data DBusProxyGetNameOwnerMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetNameOwnerMethodInfo a signature where - overloadedMethod _ = dBusProxyGetNameOwner - --- method DBusProxy::get_object_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_get_object_path" g_dbus_proxy_get_object_path :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - IO CString - - -dBusProxyGetObjectPath :: - (MonadIO m, DBusProxyK a) => - a -- _obj - -> m T.Text -- result -dBusProxyGetObjectPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_proxy_get_object_path _obj' - checkUnexpectedReturnNULL "g_dbus_proxy_get_object_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusProxyGetObjectPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusProxyK a) => MethodInfo DBusProxyGetObjectPathMethodInfo a signature where - overloadedMethod _ = dBusProxyGetObjectPath - --- method DBusProxy::set_cached_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_set_cached_property" g_dbus_proxy_set_cached_property :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - CString -> -- property_name : TBasicType TUTF8 - Ptr GVariant -> -- value : TVariant - IO () - - -dBusProxySetCachedProperty :: - (MonadIO m, DBusProxyK a) => - a -- _obj - -> T.Text -- propertyName - -> Maybe (GVariant) -- value - -> m () -- result -dBusProxySetCachedProperty _obj propertyName value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - propertyName' <- textToCString propertyName - maybeValue <- case value of - Nothing -> return nullPtr - Just jValue -> do - let jValue' = unsafeManagedPtrGetPtr jValue - return jValue' - g_dbus_proxy_set_cached_property _obj' propertyName' maybeValue - touchManagedPtr _obj - freeMem propertyName' - return () - -data DBusProxySetCachedPropertyMethodInfo -instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, DBusProxyK a) => MethodInfo DBusProxySetCachedPropertyMethodInfo a signature where - overloadedMethod _ = dBusProxySetCachedProperty - --- method DBusProxy::set_default_timeout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_set_default_timeout" g_dbus_proxy_set_default_timeout :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - Int32 -> -- timeout_msec : TBasicType TInt - IO () - - -dBusProxySetDefaultTimeout :: - (MonadIO m, DBusProxyK a) => - a -- _obj - -> Int32 -- timeoutMsec - -> m () -- result -dBusProxySetDefaultTimeout _obj timeoutMsec = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_proxy_set_default_timeout _obj' timeoutMsec - touchManagedPtr _obj - return () - -data DBusProxySetDefaultTimeoutMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, DBusProxyK a) => MethodInfo DBusProxySetDefaultTimeoutMethodInfo a signature where - overloadedMethod _ = dBusProxySetDefaultTimeout - --- method DBusProxy::set_interface_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusProxy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_set_interface_info" g_dbus_proxy_set_interface_info :: - Ptr DBusProxy -> -- _obj : TInterface "Gio" "DBusProxy" - Ptr DBusInterfaceInfo -> -- info : TInterface "Gio" "DBusInterfaceInfo" - IO () - - -dBusProxySetInterfaceInfo :: - (MonadIO m, DBusProxyK a) => - a -- _obj - -> Maybe (DBusInterfaceInfo) -- info - -> m () -- result -dBusProxySetInterfaceInfo _obj info = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeInfo <- case info of - Nothing -> return nullPtr - Just jInfo -> do - let jInfo' = unsafeManagedPtrGetPtr jInfo - return jInfo' - g_dbus_proxy_set_interface_info _obj' maybeInfo - touchManagedPtr _obj - whenJust info touchManagedPtr - return () - -data DBusProxySetInterfaceInfoMethodInfo -instance (signature ~ (Maybe (DBusInterfaceInfo) -> m ()), MonadIO m, DBusProxyK a) => MethodInfo DBusProxySetInterfaceInfoMethodInfo a signature where - overloadedMethod _ = dBusProxySetInterfaceInfo - --- method DBusProxy::new --- method type : MemberFunction --- Args : [Arg {argCName = "connection", argType = TInterface "Gio" "DBusConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", 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 = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_new" g_dbus_proxy_new :: - Ptr DBusConnection -> -- connection : TInterface "Gio" "DBusConnection" - CUInt -> -- flags : TInterface "Gio" "DBusProxyFlags" - Ptr DBusInterfaceInfo -> -- info : TInterface "Gio" "DBusInterfaceInfo" - CString -> -- name : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - CString -> -- interface_name : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dBusProxyNew :: - (MonadIO m, DBusConnectionK a, CancellableK b) => - a -- connection - -> [DBusProxyFlags] -- flags - -> Maybe (DBusInterfaceInfo) -- info - -> Maybe (T.Text) -- name - -> T.Text -- objectPath - -> T.Text -- interfaceName - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -dBusProxyNew connection flags info name objectPath interfaceName cancellable callback = liftIO $ do - let connection' = unsafeManagedPtrCastPtr connection - let flags' = gflagsToWord flags - maybeInfo <- case info of - Nothing -> return nullPtr - Just jInfo -> do - let jInfo' = unsafeManagedPtrGetPtr jInfo - return jInfo' - maybeName <- case name of - Nothing -> return nullPtr - Just jName -> do - jName' <- textToCString jName - return jName' - objectPath' <- textToCString objectPath - interfaceName' <- textToCString interfaceName - 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_proxy_new connection' flags' maybeInfo maybeName objectPath' interfaceName' maybeCancellable maybeCallback userData - touchManagedPtr connection - whenJust info touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem maybeName - freeMem objectPath' - freeMem interfaceName' - return () - --- method DBusProxy::new_for_bus --- method type : MemberFunction --- 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 = "flags", argType = TInterface "Gio" "DBusProxyFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = True, 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 = "object_path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interface_name", 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 = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_proxy_new_for_bus" g_dbus_proxy_new_for_bus :: - CUInt -> -- bus_type : TInterface "Gio" "BusType" - CUInt -> -- flags : TInterface "Gio" "DBusProxyFlags" - Ptr DBusInterfaceInfo -> -- info : TInterface "Gio" "DBusInterfaceInfo" - CString -> -- name : TBasicType TUTF8 - CString -> -- object_path : TBasicType TUTF8 - CString -> -- interface_name : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dBusProxyNewForBus :: - (MonadIO m, CancellableK a) => - BusType -- busType - -> [DBusProxyFlags] -- flags - -> Maybe (DBusInterfaceInfo) -- info - -> T.Text -- name - -> T.Text -- objectPath - -> T.Text -- interfaceName - -> Maybe (a) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -dBusProxyNewForBus busType flags info name objectPath interfaceName cancellable callback = liftIO $ do - let busType' = (fromIntegral . fromEnum) busType - let flags' = gflagsToWord flags - maybeInfo <- case info of - Nothing -> return nullPtr - Just jInfo -> do - let jInfo' = unsafeManagedPtrGetPtr jInfo - return jInfo' - name' <- textToCString name - objectPath' <- textToCString objectPath - interfaceName' <- textToCString interfaceName - 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_proxy_new_for_bus busType' flags' maybeInfo name' objectPath' interfaceName' maybeCancellable maybeCallback userData - whenJust info touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem name' - freeMem objectPath' - freeMem interfaceName' - return () - - diff --git a/GI/Gio/Objects/DBusProxy.hs-boot b/GI/Gio/Objects/DBusProxy.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DBusProxy.hs-boot +++ /dev/null @@ -1,43 +0,0 @@ -module GI.Gio.Objects.DBusProxy where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusProxy = DBusProxy (ForeignPtr DBusProxy) -instance GObject DBusProxy where -class GObject o => DBusProxyK o -instance (GObject o, IsDescendantOf DBusProxy o) => DBusProxyK o -data DBusProxyGBusTypePropertyInfo -data DBusProxyGConnectionPropertyInfo -data DBusProxyGDefaultTimeoutPropertyInfo -data DBusProxyGFlagsPropertyInfo -data DBusProxyGInterfaceInfoPropertyInfo -data DBusProxyGInterfaceNamePropertyInfo -data DBusProxyGNamePropertyInfo -data DBusProxyGNameOwnerPropertyInfo -data DBusProxyGObjectPathPropertyInfo -data DBusProxyGPropertiesChangedSignalInfo -data DBusProxyGSignalSignalInfo -data DBusProxyCallMethodInfo -data DBusProxyCallFinishMethodInfo -data DBusProxyCallSyncMethodInfo -data DBusProxyCallWithUnixFdListMethodInfo -data DBusProxyCallWithUnixFdListFinishMethodInfo -data DBusProxyCallWithUnixFdListSyncMethodInfo -data DBusProxyGetCachedPropertyMethodInfo -data DBusProxyGetCachedPropertyNamesMethodInfo -data DBusProxyGetConnectionMethodInfo -data DBusProxyGetDefaultTimeoutMethodInfo -data DBusProxyGetFlagsMethodInfo -data DBusProxyGetInterfaceInfoMethodInfo -data DBusProxyGetInterfaceNameMethodInfo -data DBusProxyGetNameMethodInfo -data DBusProxyGetNameOwnerMethodInfo -data DBusProxyGetObjectPathMethodInfo -data DBusProxySetCachedPropertyMethodInfo -data DBusProxySetDefaultTimeoutMethodInfo -data DBusProxySetInterfaceInfoMethodInfo diff --git a/GI/Gio/Objects/DBusServer.hs b/GI/Gio/Objects/DBusServer.hs deleted file mode 100644 --- a/GI/Gio/Objects/DBusServer.hs +++ /dev/null @@ -1,615 +0,0 @@ - - -{- | -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.Objects.DBusServer - ( - --- * Exported types - DBusServer(..) , - DBusServerK , - toDBusServer , - noDBusServer , - - - -- * Methods --- ** dBusServerGetClientAddress - DBusServerGetClientAddressMethodInfo , - dBusServerGetClientAddress , - - --- ** dBusServerGetFlags - DBusServerGetFlagsMethodInfo , - dBusServerGetFlags , - - --- ** dBusServerGetGuid - DBusServerGetGuidMethodInfo , - dBusServerGetGuid , - - --- ** dBusServerIsActive - DBusServerIsActiveMethodInfo , - dBusServerIsActive , - - --- ** dBusServerNewSync - dBusServerNewSync , - - --- ** dBusServerStart - DBusServerStartMethodInfo , - dBusServerStart , - - --- ** dBusServerStop - DBusServerStopMethodInfo , - dBusServerStop , - - - - - -- * Properties --- ** Active - DBusServerActivePropertyInfo , - dBusServerActive , - getDBusServerActive , - - --- ** Address - DBusServerAddressPropertyInfo , - constructDBusServerAddress , - dBusServerAddress , - getDBusServerAddress , - - --- ** AuthenticationObserver - DBusServerAuthenticationObserverPropertyInfo, - constructDBusServerAuthenticationObserver, - dBusServerAuthenticationObserver , - getDBusServerAuthenticationObserver , - - --- ** ClientAddress - DBusServerClientAddressPropertyInfo , - dBusServerClientAddress , - getDBusServerClientAddress , - - --- ** Flags - DBusServerFlagsPropertyInfo , - constructDBusServerFlags , - dBusServerFlags , - getDBusServerFlags , - - --- ** Guid - DBusServerGuidPropertyInfo , - constructDBusServerGuid , - dBusServerGuid , - getDBusServerGuid , - - - - - -- * Signals --- ** NewConnection - DBusServerNewConnectionCallback , - DBusServerNewConnectionCallbackC , - DBusServerNewConnectionSignalInfo , - afterDBusServerNewConnection , - dBusServerNewConnectionCallbackWrapper , - dBusServerNewConnectionClosure , - mkDBusServerNewConnectionCallback , - noDBusServerNewConnectionCallback , - onDBusServerNewConnection , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype DBusServer = DBusServer (ForeignPtr DBusServer) -foreign import ccall "g_dbus_server_get_type" - c_g_dbus_server_get_type :: IO GType - -type instance ParentTypes DBusServer = DBusServerParentTypes -type DBusServerParentTypes = '[GObject.Object, Initable] - -instance GObject DBusServer where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_dbus_server_get_type - - -class GObject o => DBusServerK o -instance (GObject o, IsDescendantOf DBusServer o) => DBusServerK o - -toDBusServer :: DBusServerK o => o -> IO DBusServer -toDBusServer = unsafeCastTo DBusServer - -noDBusServer :: Maybe DBusServer -noDBusServer = Nothing - -type family ResolveDBusServerMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusServerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDBusServerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDBusServerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDBusServerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDBusServerMethod "init" o = InitableInitMethodInfo - ResolveDBusServerMethod "isActive" o = DBusServerIsActiveMethodInfo - ResolveDBusServerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDBusServerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDBusServerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDBusServerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDBusServerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDBusServerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDBusServerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDBusServerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDBusServerMethod "start" o = DBusServerStartMethodInfo - ResolveDBusServerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDBusServerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDBusServerMethod "stop" o = DBusServerStopMethodInfo - ResolveDBusServerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDBusServerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDBusServerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDBusServerMethod "getClientAddress" o = DBusServerGetClientAddressMethodInfo - ResolveDBusServerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDBusServerMethod "getFlags" o = DBusServerGetFlagsMethodInfo - ResolveDBusServerMethod "getGuid" o = DBusServerGetGuidMethodInfo - ResolveDBusServerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDBusServerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDBusServerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDBusServerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDBusServerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusServerMethod t DBusServer, MethodInfo info DBusServer p) => IsLabelProxy t (DBusServer -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusServerMethod t DBusServer, MethodInfo info DBusServer p) => IsLabel t (DBusServer -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal DBusServer::new-connection -type DBusServerNewConnectionCallback = - DBusConnection -> - IO Bool - -noDBusServerNewConnectionCallback :: Maybe DBusServerNewConnectionCallback -noDBusServerNewConnectionCallback = Nothing - -type DBusServerNewConnectionCallbackC = - Ptr () -> -- object - Ptr DBusConnection -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkDBusServerNewConnectionCallback :: DBusServerNewConnectionCallbackC -> IO (FunPtr DBusServerNewConnectionCallbackC) - -dBusServerNewConnectionClosure :: DBusServerNewConnectionCallback -> IO Closure -dBusServerNewConnectionClosure cb = newCClosure =<< mkDBusServerNewConnectionCallback wrapped - where wrapped = dBusServerNewConnectionCallbackWrapper cb - -dBusServerNewConnectionCallbackWrapper :: - DBusServerNewConnectionCallback -> - Ptr () -> - Ptr DBusConnection -> - Ptr () -> - IO CInt -dBusServerNewConnectionCallbackWrapper _cb _ connection _ = do - connection' <- (newObject DBusConnection) connection - result <- _cb connection' - let result' = (fromIntegral . fromEnum) result - return result' - -onDBusServerNewConnection :: (GObject a, MonadIO m) => a -> DBusServerNewConnectionCallback -> m SignalHandlerId -onDBusServerNewConnection obj cb = liftIO $ connectDBusServerNewConnection obj cb SignalConnectBefore -afterDBusServerNewConnection :: (GObject a, MonadIO m) => a -> DBusServerNewConnectionCallback -> m SignalHandlerId -afterDBusServerNewConnection obj cb = connectDBusServerNewConnection obj cb SignalConnectAfter - -connectDBusServerNewConnection :: (GObject a, MonadIO m) => - a -> DBusServerNewConnectionCallback -> SignalConnectMode -> m SignalHandlerId -connectDBusServerNewConnection obj cb after = liftIO $ do - cb' <- mkDBusServerNewConnectionCallback (dBusServerNewConnectionCallbackWrapper cb) - connectSignalFunPtr obj "new-connection" cb' after - --- VVV Prop "active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getDBusServerActive :: (MonadIO m, DBusServerK o) => o -> m Bool -getDBusServerActive obj = liftIO $ getObjectPropertyBool obj "active" - -data DBusServerActivePropertyInfo -instance AttrInfo DBusServerActivePropertyInfo where - type AttrAllowedOps DBusServerActivePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint DBusServerActivePropertyInfo = (~) () - type AttrBaseTypeConstraint DBusServerActivePropertyInfo = DBusServerK - type AttrGetType DBusServerActivePropertyInfo = Bool - type AttrLabel DBusServerActivePropertyInfo = "active" - attrGet _ = getDBusServerActive - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "address" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDBusServerAddress :: (MonadIO m, DBusServerK o) => o -> m (Maybe T.Text) -getDBusServerAddress obj = liftIO $ getObjectPropertyString obj "address" - -constructDBusServerAddress :: T.Text -> IO ([Char], GValue) -constructDBusServerAddress val = constructObjectPropertyString "address" (Just val) - -data DBusServerAddressPropertyInfo -instance AttrInfo DBusServerAddressPropertyInfo where - type AttrAllowedOps DBusServerAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusServerAddressPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DBusServerAddressPropertyInfo = DBusServerK - type AttrGetType DBusServerAddressPropertyInfo = (Maybe T.Text) - type AttrLabel DBusServerAddressPropertyInfo = "address" - attrGet _ = getDBusServerAddress - attrSet _ = undefined - attrConstruct _ = constructDBusServerAddress - attrClear _ = undefined - --- VVV Prop "authentication-observer" - -- Type: TInterface "Gio" "DBusAuthObserver" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getDBusServerAuthenticationObserver :: (MonadIO m, DBusServerK o) => o -> m (Maybe DBusAuthObserver) -getDBusServerAuthenticationObserver obj = liftIO $ getObjectPropertyObject obj "authentication-observer" DBusAuthObserver - -constructDBusServerAuthenticationObserver :: (DBusAuthObserverK a) => a -> IO ([Char], GValue) -constructDBusServerAuthenticationObserver val = constructObjectPropertyObject "authentication-observer" (Just val) - -data DBusServerAuthenticationObserverPropertyInfo -instance AttrInfo DBusServerAuthenticationObserverPropertyInfo where - type AttrAllowedOps DBusServerAuthenticationObserverPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusServerAuthenticationObserverPropertyInfo = DBusAuthObserverK - type AttrBaseTypeConstraint DBusServerAuthenticationObserverPropertyInfo = DBusServerK - type AttrGetType DBusServerAuthenticationObserverPropertyInfo = (Maybe DBusAuthObserver) - type AttrLabel DBusServerAuthenticationObserverPropertyInfo = "authentication-observer" - attrGet _ = getDBusServerAuthenticationObserver - attrSet _ = undefined - attrConstruct _ = constructDBusServerAuthenticationObserver - attrClear _ = undefined - --- VVV Prop "client-address" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getDBusServerClientAddress :: (MonadIO m, DBusServerK o) => o -> m T.Text -getDBusServerClientAddress obj = liftIO $ checkUnexpectedNothing "getDBusServerClientAddress" $ getObjectPropertyString obj "client-address" - -data DBusServerClientAddressPropertyInfo -instance AttrInfo DBusServerClientAddressPropertyInfo where - type AttrAllowedOps DBusServerClientAddressPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusServerClientAddressPropertyInfo = (~) () - type AttrBaseTypeConstraint DBusServerClientAddressPropertyInfo = DBusServerK - type AttrGetType DBusServerClientAddressPropertyInfo = T.Text - type AttrLabel DBusServerClientAddressPropertyInfo = "client-address" - attrGet _ = getDBusServerClientAddress - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "flags" - -- Type: TInterface "Gio" "DBusServerFlags" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getDBusServerFlags :: (MonadIO m, DBusServerK o) => o -> m [DBusServerFlags] -getDBusServerFlags obj = liftIO $ getObjectPropertyFlags obj "flags" - -constructDBusServerFlags :: [DBusServerFlags] -> IO ([Char], GValue) -constructDBusServerFlags val = constructObjectPropertyFlags "flags" val - -data DBusServerFlagsPropertyInfo -instance AttrInfo DBusServerFlagsPropertyInfo where - type AttrAllowedOps DBusServerFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DBusServerFlagsPropertyInfo = (~) [DBusServerFlags] - type AttrBaseTypeConstraint DBusServerFlagsPropertyInfo = DBusServerK - type AttrGetType DBusServerFlagsPropertyInfo = [DBusServerFlags] - type AttrLabel DBusServerFlagsPropertyInfo = "flags" - attrGet _ = getDBusServerFlags - attrSet _ = undefined - attrConstruct _ = constructDBusServerFlags - attrClear _ = undefined - --- VVV Prop "guid" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getDBusServerGuid :: (MonadIO m, DBusServerK o) => o -> m T.Text -getDBusServerGuid obj = liftIO $ checkUnexpectedNothing "getDBusServerGuid" $ getObjectPropertyString obj "guid" - -constructDBusServerGuid :: T.Text -> IO ([Char], GValue) -constructDBusServerGuid val = constructObjectPropertyString "guid" (Just val) - -data DBusServerGuidPropertyInfo -instance AttrInfo DBusServerGuidPropertyInfo where - type AttrAllowedOps DBusServerGuidPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusServerGuidPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DBusServerGuidPropertyInfo = DBusServerK - type AttrGetType DBusServerGuidPropertyInfo = T.Text - type AttrLabel DBusServerGuidPropertyInfo = "guid" - attrGet _ = getDBusServerGuid - attrSet _ = undefined - attrConstruct _ = constructDBusServerGuid - attrClear _ = undefined - -type instance AttributeList DBusServer = DBusServerAttributeList -type DBusServerAttributeList = ('[ '("active", DBusServerActivePropertyInfo), '("address", DBusServerAddressPropertyInfo), '("authenticationObserver", DBusServerAuthenticationObserverPropertyInfo), '("clientAddress", DBusServerClientAddressPropertyInfo), '("flags", DBusServerFlagsPropertyInfo), '("guid", DBusServerGuidPropertyInfo)] :: [(Symbol, *)]) - -dBusServerActive :: AttrLabelProxy "active" -dBusServerActive = AttrLabelProxy - -dBusServerAddress :: AttrLabelProxy "address" -dBusServerAddress = AttrLabelProxy - -dBusServerAuthenticationObserver :: AttrLabelProxy "authenticationObserver" -dBusServerAuthenticationObserver = AttrLabelProxy - -dBusServerClientAddress :: AttrLabelProxy "clientAddress" -dBusServerClientAddress = AttrLabelProxy - -dBusServerFlags :: AttrLabelProxy "flags" -dBusServerFlags = AttrLabelProxy - -dBusServerGuid :: AttrLabelProxy "guid" -dBusServerGuid = AttrLabelProxy - -data DBusServerNewConnectionSignalInfo -instance SignalInfo DBusServerNewConnectionSignalInfo where - type HaskellCallbackType DBusServerNewConnectionSignalInfo = DBusServerNewConnectionCallback - connectSignal _ = connectDBusServerNewConnection - -type instance SignalList DBusServer = DBusServerSignalList -type DBusServerSignalList = ('[ '("newConnection", DBusServerNewConnectionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DBusServer::new_sync --- method type : Constructor --- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "DBusServerFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "guid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "observer", argType = TInterface "Gio" "DBusAuthObserver", 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 : Just (TInterface "Gio" "DBusServer") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_server_new_sync" g_dbus_server_new_sync :: - CString -> -- address : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "DBusServerFlags" - CString -> -- guid : TBasicType TUTF8 - Ptr DBusAuthObserver -> -- observer : TInterface "Gio" "DBusAuthObserver" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr DBusServer) - - -dBusServerNewSync :: - (MonadIO m, DBusAuthObserverK a, CancellableK b) => - T.Text -- address - -> [DBusServerFlags] -- flags - -> T.Text -- guid - -> Maybe (a) -- observer - -> Maybe (b) -- cancellable - -> m DBusServer -- result -dBusServerNewSync address flags guid observer cancellable = liftIO $ do - address' <- textToCString address - let flags' = gflagsToWord flags - guid' <- textToCString guid - maybeObserver <- case observer of - Nothing -> return nullPtr - Just jObserver -> do - let jObserver' = unsafeManagedPtrCastPtr jObserver - return jObserver' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_dbus_server_new_sync address' flags' guid' maybeObserver maybeCancellable - checkUnexpectedReturnNULL "g_dbus_server_new_sync" result - result' <- (wrapObject DBusServer) result - whenJust observer touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem address' - freeMem guid' - return result' - ) (do - freeMem address' - freeMem guid' - ) - --- method DBusServer::get_client_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_server_get_client_address" g_dbus_server_get_client_address :: - Ptr DBusServer -> -- _obj : TInterface "Gio" "DBusServer" - IO CString - - -dBusServerGetClientAddress :: - (MonadIO m, DBusServerK a) => - a -- _obj - -> m T.Text -- result -dBusServerGetClientAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_server_get_client_address _obj' - checkUnexpectedReturnNULL "g_dbus_server_get_client_address" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusServerGetClientAddressMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusServerK a) => MethodInfo DBusServerGetClientAddressMethodInfo a signature where - overloadedMethod _ = dBusServerGetClientAddress - --- method DBusServer::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusServerFlags") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_server_get_flags" g_dbus_server_get_flags :: - Ptr DBusServer -> -- _obj : TInterface "Gio" "DBusServer" - IO CUInt - - -dBusServerGetFlags :: - (MonadIO m, DBusServerK a) => - a -- _obj - -> m [DBusServerFlags] -- result -dBusServerGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_server_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data DBusServerGetFlagsMethodInfo -instance (signature ~ (m [DBusServerFlags]), MonadIO m, DBusServerK a) => MethodInfo DBusServerGetFlagsMethodInfo a signature where - overloadedMethod _ = dBusServerGetFlags - --- method DBusServer::get_guid --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_server_get_guid" g_dbus_server_get_guid :: - Ptr DBusServer -> -- _obj : TInterface "Gio" "DBusServer" - IO CString - - -dBusServerGetGuid :: - (MonadIO m, DBusServerK a) => - a -- _obj - -> m T.Text -- result -dBusServerGetGuid _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_server_get_guid _obj' - checkUnexpectedReturnNULL "g_dbus_server_get_guid" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DBusServerGetGuidMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DBusServerK a) => MethodInfo DBusServerGetGuidMethodInfo a signature where - overloadedMethod _ = dBusServerGetGuid - --- method DBusServer::is_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_server_is_active" g_dbus_server_is_active :: - Ptr DBusServer -> -- _obj : TInterface "Gio" "DBusServer" - IO CInt - - -dBusServerIsActive :: - (MonadIO m, DBusServerK a) => - a -- _obj - -> m Bool -- result -dBusServerIsActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_dbus_server_is_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DBusServerIsActiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, DBusServerK a) => MethodInfo DBusServerIsActiveMethodInfo a signature where - overloadedMethod _ = dBusServerIsActive - --- method DBusServer::start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_server_start" g_dbus_server_start :: - Ptr DBusServer -> -- _obj : TInterface "Gio" "DBusServer" - IO () - - -dBusServerStart :: - (MonadIO m, DBusServerK a) => - a -- _obj - -> m () -- result -dBusServerStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_server_start _obj' - touchManagedPtr _obj - return () - -data DBusServerStartMethodInfo -instance (signature ~ (m ()), MonadIO m, DBusServerK a) => MethodInfo DBusServerStartMethodInfo a signature where - overloadedMethod _ = dBusServerStart - --- method DBusServer::stop --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusServer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_server_stop" g_dbus_server_stop :: - Ptr DBusServer -> -- _obj : TInterface "Gio" "DBusServer" - IO () - - -dBusServerStop :: - (MonadIO m, DBusServerK a) => - a -- _obj - -> m () -- result -dBusServerStop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_dbus_server_stop _obj' - touchManagedPtr _obj - return () - -data DBusServerStopMethodInfo -instance (signature ~ (m ()), MonadIO m, DBusServerK a) => MethodInfo DBusServerStopMethodInfo a signature where - overloadedMethod _ = dBusServerStop - - diff --git a/GI/Gio/Objects/DBusServer.hs-boot b/GI/Gio/Objects/DBusServer.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DBusServer.hs-boot +++ /dev/null @@ -1,26 +0,0 @@ -module GI.Gio.Objects.DBusServer where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusServer = DBusServer (ForeignPtr DBusServer) -instance GObject DBusServer where -class GObject o => DBusServerK o -instance (GObject o, IsDescendantOf DBusServer o) => DBusServerK o -data DBusServerActivePropertyInfo -data DBusServerAddressPropertyInfo -data DBusServerAuthenticationObserverPropertyInfo -data DBusServerClientAddressPropertyInfo -data DBusServerFlagsPropertyInfo -data DBusServerGuidPropertyInfo -data DBusServerNewConnectionSignalInfo -data DBusServerGetClientAddressMethodInfo -data DBusServerGetFlagsMethodInfo -data DBusServerGetGuidMethodInfo -data DBusServerIsActiveMethodInfo -data DBusServerStartMethodInfo -data DBusServerStopMethodInfo diff --git a/GI/Gio/Objects/DataInputStream.hs b/GI/Gio/Objects/DataInputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/DataInputStream.hs +++ /dev/null @@ -1,1293 +0,0 @@ - - -{- | -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.Objects.DataInputStream - ( - --- * Exported types - DataInputStream(..) , - DataInputStreamK , - toDataInputStream , - noDataInputStream , - - - -- * Methods --- ** dataInputStreamGetByteOrder - DataInputStreamGetByteOrderMethodInfo , - dataInputStreamGetByteOrder , - - --- ** dataInputStreamGetNewlineType - DataInputStreamGetNewlineTypeMethodInfo , - dataInputStreamGetNewlineType , - - --- ** dataInputStreamNew - dataInputStreamNew , - - --- ** dataInputStreamReadByte - DataInputStreamReadByteMethodInfo , - dataInputStreamReadByte , - - --- ** dataInputStreamReadInt16 - DataInputStreamReadInt16MethodInfo , - dataInputStreamReadInt16 , - - --- ** dataInputStreamReadInt32 - DataInputStreamReadInt32MethodInfo , - dataInputStreamReadInt32 , - - --- ** dataInputStreamReadInt64 - DataInputStreamReadInt64MethodInfo , - dataInputStreamReadInt64 , - - --- ** dataInputStreamReadLine - DataInputStreamReadLineMethodInfo , - dataInputStreamReadLine , - - --- ** dataInputStreamReadLineAsync - DataInputStreamReadLineAsyncMethodInfo , - dataInputStreamReadLineAsync , - - --- ** dataInputStreamReadLineFinish - DataInputStreamReadLineFinishMethodInfo , - dataInputStreamReadLineFinish , - - --- ** dataInputStreamReadLineFinishUtf8 - DataInputStreamReadLineFinishUtf8MethodInfo, - dataInputStreamReadLineFinishUtf8 , - - --- ** dataInputStreamReadLineUtf8 - DataInputStreamReadLineUtf8MethodInfo , - dataInputStreamReadLineUtf8 , - - --- ** dataInputStreamReadUint16 - DataInputStreamReadUint16MethodInfo , - dataInputStreamReadUint16 , - - --- ** dataInputStreamReadUint32 - DataInputStreamReadUint32MethodInfo , - dataInputStreamReadUint32 , - - --- ** dataInputStreamReadUint64 - DataInputStreamReadUint64MethodInfo , - dataInputStreamReadUint64 , - - --- ** dataInputStreamReadUntil - DataInputStreamReadUntilMethodInfo , - dataInputStreamReadUntil , - - --- ** dataInputStreamReadUntilAsync - DataInputStreamReadUntilAsyncMethodInfo , - dataInputStreamReadUntilAsync , - - --- ** dataInputStreamReadUntilFinish - DataInputStreamReadUntilFinishMethodInfo, - dataInputStreamReadUntilFinish , - - --- ** dataInputStreamReadUpto - DataInputStreamReadUptoMethodInfo , - dataInputStreamReadUpto , - - --- ** dataInputStreamReadUptoAsync - DataInputStreamReadUptoAsyncMethodInfo , - dataInputStreamReadUptoAsync , - - --- ** dataInputStreamReadUptoFinish - DataInputStreamReadUptoFinishMethodInfo , - dataInputStreamReadUptoFinish , - - --- ** dataInputStreamSetByteOrder - DataInputStreamSetByteOrderMethodInfo , - dataInputStreamSetByteOrder , - - --- ** dataInputStreamSetNewlineType - DataInputStreamSetNewlineTypeMethodInfo , - dataInputStreamSetNewlineType , - - - - - -- * Properties --- ** ByteOrder - DataInputStreamByteOrderPropertyInfo , - constructDataInputStreamByteOrder , - dataInputStreamByteOrder , - getDataInputStreamByteOrder , - setDataInputStreamByteOrder , - - --- ** NewlineType - DataInputStreamNewlineTypePropertyInfo , - constructDataInputStreamNewlineType , - dataInputStreamNewlineType , - getDataInputStreamNewlineType , - setDataInputStreamNewlineType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype DataInputStream = DataInputStream (ForeignPtr DataInputStream) -foreign import ccall "g_data_input_stream_get_type" - c_g_data_input_stream_get_type :: IO GType - -type instance ParentTypes DataInputStream = DataInputStreamParentTypes -type DataInputStreamParentTypes = '[BufferedInputStream, FilterInputStream, InputStream, GObject.Object, Seekable] - -instance GObject DataInputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_data_input_stream_get_type - - -class GObject o => DataInputStreamK o -instance (GObject o, IsDescendantOf DataInputStream o) => DataInputStreamK o - -toDataInputStream :: DataInputStreamK o => o -> IO DataInputStream -toDataInputStream = unsafeCastTo DataInputStream - -noDataInputStream :: Maybe DataInputStream -noDataInputStream = Nothing - -type family ResolveDataInputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveDataInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDataInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDataInputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo - ResolveDataInputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo - ResolveDataInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo - ResolveDataInputStreamMethod "close" o = InputStreamCloseMethodInfo - ResolveDataInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo - ResolveDataInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo - ResolveDataInputStreamMethod "fill" o = BufferedInputStreamFillMethodInfo - ResolveDataInputStreamMethod "fillAsync" o = BufferedInputStreamFillAsyncMethodInfo - ResolveDataInputStreamMethod "fillFinish" o = BufferedInputStreamFillFinishMethodInfo - ResolveDataInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDataInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDataInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo - ResolveDataInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo - ResolveDataInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDataInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDataInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDataInputStreamMethod "peek" o = BufferedInputStreamPeekMethodInfo - ResolveDataInputStreamMethod "peekBuffer" o = BufferedInputStreamPeekBufferMethodInfo - ResolveDataInputStreamMethod "read" o = InputStreamReadMethodInfo - ResolveDataInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo - ResolveDataInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo - ResolveDataInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo - ResolveDataInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo - ResolveDataInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo - ResolveDataInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo - ResolveDataInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo - ResolveDataInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo - ResolveDataInputStreamMethod "readInt16" o = DataInputStreamReadInt16MethodInfo - ResolveDataInputStreamMethod "readInt32" o = DataInputStreamReadInt32MethodInfo - ResolveDataInputStreamMethod "readInt64" o = DataInputStreamReadInt64MethodInfo - ResolveDataInputStreamMethod "readLine" o = DataInputStreamReadLineMethodInfo - ResolveDataInputStreamMethod "readLineAsync" o = DataInputStreamReadLineAsyncMethodInfo - ResolveDataInputStreamMethod "readLineFinish" o = DataInputStreamReadLineFinishMethodInfo - ResolveDataInputStreamMethod "readLineFinishUtf8" o = DataInputStreamReadLineFinishUtf8MethodInfo - ResolveDataInputStreamMethod "readLineUtf8" o = DataInputStreamReadLineUtf8MethodInfo - ResolveDataInputStreamMethod "readUint16" o = DataInputStreamReadUint16MethodInfo - ResolveDataInputStreamMethod "readUint32" o = DataInputStreamReadUint32MethodInfo - ResolveDataInputStreamMethod "readUint64" o = DataInputStreamReadUint64MethodInfo - ResolveDataInputStreamMethod "readUntil" o = DataInputStreamReadUntilMethodInfo - ResolveDataInputStreamMethod "readUntilAsync" o = DataInputStreamReadUntilAsyncMethodInfo - ResolveDataInputStreamMethod "readUntilFinish" o = DataInputStreamReadUntilFinishMethodInfo - ResolveDataInputStreamMethod "readUpto" o = DataInputStreamReadUptoMethodInfo - ResolveDataInputStreamMethod "readUptoAsync" o = DataInputStreamReadUptoAsyncMethodInfo - ResolveDataInputStreamMethod "readUptoFinish" o = DataInputStreamReadUptoFinishMethodInfo - ResolveDataInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDataInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDataInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDataInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDataInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDataInputStreamMethod "seek" o = SeekableSeekMethodInfo - ResolveDataInputStreamMethod "skip" o = InputStreamSkipMethodInfo - ResolveDataInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo - ResolveDataInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo - ResolveDataInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDataInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDataInputStreamMethod "tell" o = SeekableTellMethodInfo - ResolveDataInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDataInputStreamMethod "truncate" o = SeekableTruncateMethodInfo - ResolveDataInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDataInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDataInputStreamMethod "getAvailable" o = BufferedInputStreamGetAvailableMethodInfo - ResolveDataInputStreamMethod "getBaseStream" o = FilterInputStreamGetBaseStreamMethodInfo - ResolveDataInputStreamMethod "getBufferSize" o = BufferedInputStreamGetBufferSizeMethodInfo - ResolveDataInputStreamMethod "getByteOrder" o = DataInputStreamGetByteOrderMethodInfo - ResolveDataInputStreamMethod "getCloseBaseStream" o = FilterInputStreamGetCloseBaseStreamMethodInfo - ResolveDataInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDataInputStreamMethod "getNewlineType" o = DataInputStreamGetNewlineTypeMethodInfo - ResolveDataInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDataInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDataInputStreamMethod "setBufferSize" o = BufferedInputStreamSetBufferSizeMethodInfo - ResolveDataInputStreamMethod "setByteOrder" o = DataInputStreamSetByteOrderMethodInfo - ResolveDataInputStreamMethod "setCloseBaseStream" o = FilterInputStreamSetCloseBaseStreamMethodInfo - ResolveDataInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDataInputStreamMethod "setNewlineType" o = DataInputStreamSetNewlineTypeMethodInfo - ResolveDataInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo - ResolveDataInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDataInputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDataInputStreamMethod t DataInputStream, MethodInfo info DataInputStream p) => IsLabelProxy t (DataInputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDataInputStreamMethod t DataInputStream, MethodInfo info DataInputStream p) => IsLabel t (DataInputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "byte-order" - -- Type: TInterface "Gio" "DataStreamByteOrder" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDataInputStreamByteOrder :: (MonadIO m, DataInputStreamK o) => o -> m DataStreamByteOrder -getDataInputStreamByteOrder obj = liftIO $ getObjectPropertyEnum obj "byte-order" - -setDataInputStreamByteOrder :: (MonadIO m, DataInputStreamK o) => o -> DataStreamByteOrder -> m () -setDataInputStreamByteOrder obj val = liftIO $ setObjectPropertyEnum obj "byte-order" val - -constructDataInputStreamByteOrder :: DataStreamByteOrder -> IO ([Char], GValue) -constructDataInputStreamByteOrder val = constructObjectPropertyEnum "byte-order" val - -data DataInputStreamByteOrderPropertyInfo -instance AttrInfo DataInputStreamByteOrderPropertyInfo where - type AttrAllowedOps DataInputStreamByteOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DataInputStreamByteOrderPropertyInfo = (~) DataStreamByteOrder - type AttrBaseTypeConstraint DataInputStreamByteOrderPropertyInfo = DataInputStreamK - type AttrGetType DataInputStreamByteOrderPropertyInfo = DataStreamByteOrder - type AttrLabel DataInputStreamByteOrderPropertyInfo = "byte-order" - attrGet _ = getDataInputStreamByteOrder - attrSet _ = setDataInputStreamByteOrder - attrConstruct _ = constructDataInputStreamByteOrder - attrClear _ = undefined - --- VVV Prop "newline-type" - -- Type: TInterface "Gio" "DataStreamNewlineType" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDataInputStreamNewlineType :: (MonadIO m, DataInputStreamK o) => o -> m DataStreamNewlineType -getDataInputStreamNewlineType obj = liftIO $ getObjectPropertyEnum obj "newline-type" - -setDataInputStreamNewlineType :: (MonadIO m, DataInputStreamK o) => o -> DataStreamNewlineType -> m () -setDataInputStreamNewlineType obj val = liftIO $ setObjectPropertyEnum obj "newline-type" val - -constructDataInputStreamNewlineType :: DataStreamNewlineType -> IO ([Char], GValue) -constructDataInputStreamNewlineType val = constructObjectPropertyEnum "newline-type" val - -data DataInputStreamNewlineTypePropertyInfo -instance AttrInfo DataInputStreamNewlineTypePropertyInfo where - type AttrAllowedOps DataInputStreamNewlineTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DataInputStreamNewlineTypePropertyInfo = (~) DataStreamNewlineType - type AttrBaseTypeConstraint DataInputStreamNewlineTypePropertyInfo = DataInputStreamK - type AttrGetType DataInputStreamNewlineTypePropertyInfo = DataStreamNewlineType - type AttrLabel DataInputStreamNewlineTypePropertyInfo = "newline-type" - attrGet _ = getDataInputStreamNewlineType - attrSet _ = setDataInputStreamNewlineType - attrConstruct _ = constructDataInputStreamNewlineType - attrClear _ = undefined - -type instance AttributeList DataInputStream = DataInputStreamAttributeList -type DataInputStreamAttributeList = ('[ '("baseStream", FilterInputStreamBaseStreamPropertyInfo), '("bufferSize", BufferedInputStreamBufferSizePropertyInfo), '("byteOrder", DataInputStreamByteOrderPropertyInfo), '("closeBaseStream", FilterInputStreamCloseBaseStreamPropertyInfo), '("newlineType", DataInputStreamNewlineTypePropertyInfo)] :: [(Symbol, *)]) - -dataInputStreamByteOrder :: AttrLabelProxy "byteOrder" -dataInputStreamByteOrder = AttrLabelProxy - -dataInputStreamNewlineType :: AttrLabelProxy "newlineType" -dataInputStreamNewlineType = AttrLabelProxy - -type instance SignalList DataInputStream = DataInputStreamSignalList -type DataInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DataInputStream::new --- method type : Constructor --- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DataInputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_data_input_stream_new" g_data_input_stream_new :: - Ptr InputStream -> -- base_stream : TInterface "Gio" "InputStream" - IO (Ptr DataInputStream) - - -dataInputStreamNew :: - (MonadIO m, InputStreamK a) => - a -- baseStream - -> m DataInputStream -- result -dataInputStreamNew baseStream = liftIO $ do - let baseStream' = unsafeManagedPtrCastPtr baseStream - result <- g_data_input_stream_new baseStream' - checkUnexpectedReturnNULL "g_data_input_stream_new" result - result' <- (wrapObject DataInputStream) result - touchManagedPtr baseStream - return result' - --- method DataInputStream::get_byte_order --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DataStreamByteOrder") --- throws : False --- Skip return : False - -foreign import ccall "g_data_input_stream_get_byte_order" g_data_input_stream_get_byte_order :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - IO CUInt - - -dataInputStreamGetByteOrder :: - (MonadIO m, DataInputStreamK a) => - a -- _obj - -> m DataStreamByteOrder -- result -dataInputStreamGetByteOrder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_data_input_stream_get_byte_order _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data DataInputStreamGetByteOrderMethodInfo -instance (signature ~ (m DataStreamByteOrder), MonadIO m, DataInputStreamK a) => MethodInfo DataInputStreamGetByteOrderMethodInfo a signature where - overloadedMethod _ = dataInputStreamGetByteOrder - --- method DataInputStream::get_newline_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DataStreamNewlineType") --- throws : False --- Skip return : False - -foreign import ccall "g_data_input_stream_get_newline_type" g_data_input_stream_get_newline_type :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - IO CUInt - - -dataInputStreamGetNewlineType :: - (MonadIO m, DataInputStreamK a) => - a -- _obj - -> m DataStreamNewlineType -- result -dataInputStreamGetNewlineType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_data_input_stream_get_newline_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data DataInputStreamGetNewlineTypeMethodInfo -instance (signature ~ (m DataStreamNewlineType), MonadIO m, DataInputStreamK a) => MethodInfo DataInputStreamGetNewlineTypeMethodInfo a signature where - overloadedMethod _ = dataInputStreamGetNewlineType - --- method DataInputStream::read_byte --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", 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 : Just (TBasicType TUInt8) --- throws : True --- Skip return : False - -foreign import ccall "g_data_input_stream_read_byte" g_data_input_stream_read_byte :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Word8 - - -dataInputStreamReadByte :: - (MonadIO m, DataInputStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m Word8 -- result -dataInputStreamReadByte _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_data_input_stream_read_byte _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result - ) (do - return () - ) - -data DataInputStreamReadByteMethodInfo -instance (signature ~ (Maybe (b) -> m Word8), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadByteMethodInfo a signature where - overloadedMethod _ = dataInputStreamReadByte - --- method DataInputStream::read_int16 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", 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 : Just (TBasicType TInt16) --- throws : True --- Skip return : False - -foreign import ccall "g_data_input_stream_read_int16" g_data_input_stream_read_int16 :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int16 - - -dataInputStreamReadInt16 :: - (MonadIO m, DataInputStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m Int16 -- result -dataInputStreamReadInt16 _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_data_input_stream_read_int16 _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result - ) (do - return () - ) - -data DataInputStreamReadInt16MethodInfo -instance (signature ~ (Maybe (b) -> m Int16), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadInt16MethodInfo a signature where - overloadedMethod _ = dataInputStreamReadInt16 - --- method DataInputStream::read_int32 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", 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 : Just (TBasicType TInt32) --- throws : True --- Skip return : False - -foreign import ccall "g_data_input_stream_read_int32" g_data_input_stream_read_int32 :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int32 - - -dataInputStreamReadInt32 :: - (MonadIO m, DataInputStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m Int32 -- result -dataInputStreamReadInt32 _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_data_input_stream_read_int32 _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result - ) (do - return () - ) - -data DataInputStreamReadInt32MethodInfo -instance (signature ~ (Maybe (b) -> m Int32), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadInt32MethodInfo a signature where - overloadedMethod _ = dataInputStreamReadInt32 - --- method DataInputStream::read_int64 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", 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 : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_data_input_stream_read_int64" g_data_input_stream_read_int64 :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -dataInputStreamReadInt64 :: - (MonadIO m, DataInputStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m Int64 -- result -dataInputStreamReadInt64 _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_data_input_stream_read_int64 _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result - ) (do - return () - ) - -data DataInputStreamReadInt64MethodInfo -instance (signature ~ (Maybe (b) -> m Int64), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadInt64MethodInfo a signature where - overloadedMethod _ = dataInputStreamReadInt64 - --- method DataInputStream::read_line --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", 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 : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUInt8)) --- throws : True --- Skip return : False - -foreign import ccall "g_data_input_stream_read_line" g_data_input_stream_read_line :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr Word8) - - -dataInputStreamReadLine :: - (MonadIO m, DataInputStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m ((Maybe ByteString),Word64) -- result -dataInputStreamReadLine _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - length_ <- allocMem :: IO (Ptr Word64) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_data_input_stream_read_line _obj' length_ maybeCancellable - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- unpackZeroTerminatedByteString result' - freeMem result' - return result'' - length_' <- peek length_ - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem length_ - return (maybeResult, length_') - ) (do - freeMem length_ - ) - -data DataInputStreamReadLineMethodInfo -instance (signature ~ (Maybe (b) -> m ((Maybe ByteString),Word64)), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadLineMethodInfo a signature where - overloadedMethod _ = dataInputStreamReadLine - --- method DataInputStream::read_line_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_data_input_stream_read_line_async" g_data_input_stream_read_line_async :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dataInputStreamReadLineAsync :: - (MonadIO m, DataInputStreamK a, CancellableK b) => - a -- _obj - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -dataInputStreamReadLineAsync _obj ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_data_input_stream_read_line_async _obj' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data DataInputStreamReadLineAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadLineAsyncMethodInfo a signature where - overloadedMethod _ = dataInputStreamReadLineAsync - --- method DataInputStream::read_line_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUInt8)) --- throws : True --- Skip return : False - -foreign import ccall "g_data_input_stream_read_line_finish" g_data_input_stream_read_line_finish :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO (Ptr Word8) - - -dataInputStreamReadLineFinish :: - (MonadIO m, DataInputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m ((Maybe ByteString),Word64) -- result -dataInputStreamReadLineFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_data_input_stream_read_line_finish _obj' result_' length_ - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- unpackZeroTerminatedByteString result' - freeMem result' - return result'' - length_' <- peek length_ - touchManagedPtr _obj - touchManagedPtr result_ - freeMem length_ - return (maybeResult, length_') - ) (do - freeMem length_ - ) - -data DataInputStreamReadLineFinishMethodInfo -instance (signature ~ (b -> m ((Maybe ByteString),Word64)), MonadIO m, DataInputStreamK a, AsyncResultK b) => MethodInfo DataInputStreamReadLineFinishMethodInfo a signature where - overloadedMethod _ = dataInputStreamReadLineFinish - --- method DataInputStream::read_line_finish_utf8 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_data_input_stream_read_line_finish_utf8" g_data_input_stream_read_line_finish_utf8 :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CString - - -dataInputStreamReadLineFinishUtf8 :: - (MonadIO m, DataInputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m ((Maybe T.Text),Word64) -- result -dataInputStreamReadLineFinishUtf8 _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_data_input_stream_read_line_finish_utf8 _obj' result_' length_ - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - length_' <- peek length_ - touchManagedPtr _obj - touchManagedPtr result_ - freeMem length_ - return (maybeResult, length_') - ) (do - freeMem length_ - ) - -data DataInputStreamReadLineFinishUtf8MethodInfo -instance (signature ~ (b -> m ((Maybe T.Text),Word64)), MonadIO m, DataInputStreamK a, AsyncResultK b) => MethodInfo DataInputStreamReadLineFinishUtf8MethodInfo a signature where - overloadedMethod _ = dataInputStreamReadLineFinishUtf8 - --- method DataInputStream::read_line_utf8 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", 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 : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_data_input_stream_read_line_utf8" g_data_input_stream_read_line_utf8 :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CString - - -dataInputStreamReadLineUtf8 :: - (MonadIO m, DataInputStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m ((Maybe T.Text),Word64) -- result -dataInputStreamReadLineUtf8 _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - length_ <- allocMem :: IO (Ptr Word64) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_data_input_stream_read_line_utf8 _obj' length_ maybeCancellable - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - length_' <- peek length_ - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem length_ - return (maybeResult, length_') - ) (do - freeMem length_ - ) - -data DataInputStreamReadLineUtf8MethodInfo -instance (signature ~ (Maybe (b) -> m ((Maybe T.Text),Word64)), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadLineUtf8MethodInfo a signature where - overloadedMethod _ = dataInputStreamReadLineUtf8 - --- method DataInputStream::read_uint16 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", 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 : Just (TBasicType TUInt16) --- throws : True --- Skip return : False - -foreign import ccall "g_data_input_stream_read_uint16" g_data_input_stream_read_uint16 :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Word16 - - -dataInputStreamReadUint16 :: - (MonadIO m, DataInputStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m Word16 -- result -dataInputStreamReadUint16 _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_data_input_stream_read_uint16 _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result - ) (do - return () - ) - -data DataInputStreamReadUint16MethodInfo -instance (signature ~ (Maybe (b) -> m Word16), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadUint16MethodInfo a signature where - overloadedMethod _ = dataInputStreamReadUint16 - --- method DataInputStream::read_uint32 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", 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 : Just (TBasicType TUInt32) --- throws : True --- Skip return : False - -foreign import ccall "g_data_input_stream_read_uint32" g_data_input_stream_read_uint32 :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Word32 - - -dataInputStreamReadUint32 :: - (MonadIO m, DataInputStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m Word32 -- result -dataInputStreamReadUint32 _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_data_input_stream_read_uint32 _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result - ) (do - return () - ) - -data DataInputStreamReadUint32MethodInfo -instance (signature ~ (Maybe (b) -> m Word32), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadUint32MethodInfo a signature where - overloadedMethod _ = dataInputStreamReadUint32 - --- method DataInputStream::read_uint64 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", 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 : Just (TBasicType TUInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_data_input_stream_read_uint64" g_data_input_stream_read_uint64 :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Word64 - - -dataInputStreamReadUint64 :: - (MonadIO m, DataInputStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m Word64 -- result -dataInputStreamReadUint64 _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_data_input_stream_read_uint64 _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result - ) (do - return () - ) - -data DataInputStreamReadUint64MethodInfo -instance (signature ~ (Maybe (b) -> m Word64), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadUint64MethodInfo a signature where - overloadedMethod _ = dataInputStreamReadUint64 - --- method DataInputStream::read_until --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", 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 : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_data_input_stream_read_until" g_data_input_stream_read_until :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - CString -> -- stop_chars : TBasicType TUTF8 - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CString - - -dataInputStreamReadUntil :: - (MonadIO m, DataInputStreamK a, CancellableK b) => - a -- _obj - -> T.Text -- stopChars - -> Maybe (b) -- cancellable - -> m (T.Text,Word64) -- result -dataInputStreamReadUntil _obj stopChars cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stopChars' <- textToCString stopChars - length_ <- allocMem :: IO (Ptr Word64) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_data_input_stream_read_until _obj' stopChars' length_ maybeCancellable - checkUnexpectedReturnNULL "g_data_input_stream_read_until" result - result' <- cstringToText result - freeMem result - length_' <- peek length_ - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem stopChars' - freeMem length_ - return (result', length_') - ) (do - freeMem stopChars' - freeMem length_ - ) - -data DataInputStreamReadUntilMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> m (T.Text,Word64)), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadUntilMethodInfo a signature where - overloadedMethod _ = dataInputStreamReadUntil - --- method DataInputStream::read_until_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_data_input_stream_read_until_async" g_data_input_stream_read_until_async :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - CString -> -- stop_chars : TBasicType TUTF8 - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dataInputStreamReadUntilAsync :: - (MonadIO m, DataInputStreamK a, CancellableK b) => - a -- _obj - -> T.Text -- stopChars - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -dataInputStreamReadUntilAsync _obj stopChars ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stopChars' <- textToCString stopChars - 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_data_input_stream_read_until_async _obj' stopChars' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem stopChars' - return () - -data DataInputStreamReadUntilAsyncMethodInfo -instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadUntilAsyncMethodInfo a signature where - overloadedMethod _ = dataInputStreamReadUntilAsync - --- method DataInputStream::read_until_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_data_input_stream_read_until_finish" g_data_input_stream_read_until_finish :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CString - - -dataInputStreamReadUntilFinish :: - (MonadIO m, DataInputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m (T.Text,Word64) -- result -dataInputStreamReadUntilFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_data_input_stream_read_until_finish _obj' result_' length_ - checkUnexpectedReturnNULL "g_data_input_stream_read_until_finish" result - result' <- cstringToText result - freeMem result - length_' <- peek length_ - touchManagedPtr _obj - touchManagedPtr result_ - freeMem length_ - return (result', length_') - ) (do - freeMem length_ - ) - -data DataInputStreamReadUntilFinishMethodInfo -instance (signature ~ (b -> m (T.Text,Word64)), MonadIO m, DataInputStreamK a, AsyncResultK b) => MethodInfo DataInputStreamReadUntilFinishMethodInfo a signature where - overloadedMethod _ = dataInputStreamReadUntilFinish - --- method DataInputStream::read_upto --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", 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 : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_data_input_stream_read_upto" g_data_input_stream_read_upto :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - CString -> -- stop_chars : TBasicType TUTF8 - Int64 -> -- stop_chars_len : TBasicType TInt64 - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CString - - -dataInputStreamReadUpto :: - (MonadIO m, DataInputStreamK a, CancellableK b) => - a -- _obj - -> T.Text -- stopChars - -> Int64 -- stopCharsLen - -> Maybe (b) -- cancellable - -> m (T.Text,Word64) -- result -dataInputStreamReadUpto _obj stopChars stopCharsLen cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stopChars' <- textToCString stopChars - length_ <- allocMem :: IO (Ptr Word64) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_data_input_stream_read_upto _obj' stopChars' stopCharsLen length_ maybeCancellable - checkUnexpectedReturnNULL "g_data_input_stream_read_upto" result - result' <- cstringToText result - freeMem result - length_' <- peek length_ - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem stopChars' - freeMem length_ - return (result', length_') - ) (do - freeMem stopChars' - freeMem length_ - ) - -data DataInputStreamReadUptoMethodInfo -instance (signature ~ (T.Text -> Int64 -> Maybe (b) -> m (T.Text,Word64)), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadUptoMethodInfo a signature where - overloadedMethod _ = dataInputStreamReadUpto - --- method DataInputStream::read_upto_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stop_chars_len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_data_input_stream_read_upto_async" g_data_input_stream_read_upto_async :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - CString -> -- stop_chars : TBasicType TUTF8 - Int64 -> -- stop_chars_len : TBasicType TInt64 - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -dataInputStreamReadUptoAsync :: - (MonadIO m, DataInputStreamK a, CancellableK b) => - a -- _obj - -> T.Text -- stopChars - -> Int64 -- stopCharsLen - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -dataInputStreamReadUptoAsync _obj stopChars stopCharsLen ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - stopChars' <- textToCString stopChars - 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_data_input_stream_read_upto_async _obj' stopChars' stopCharsLen ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem stopChars' - return () - -data DataInputStreamReadUptoAsyncMethodInfo -instance (signature ~ (T.Text -> Int64 -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, DataInputStreamK a, CancellableK b) => MethodInfo DataInputStreamReadUptoAsyncMethodInfo a signature where - overloadedMethod _ = dataInputStreamReadUptoAsync - --- method DataInputStream::read_upto_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_data_input_stream_read_upto_finish" g_data_input_stream_read_upto_finish :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr Word64 -> -- length : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CString - - -dataInputStreamReadUptoFinish :: - (MonadIO m, DataInputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m (T.Text,Word64) -- result -dataInputStreamReadUptoFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - length_ <- allocMem :: IO (Ptr Word64) - onException (do - result <- propagateGError $ g_data_input_stream_read_upto_finish _obj' result_' length_ - checkUnexpectedReturnNULL "g_data_input_stream_read_upto_finish" result - result' <- cstringToText result - freeMem result - length_' <- peek length_ - touchManagedPtr _obj - touchManagedPtr result_ - freeMem length_ - return (result', length_') - ) (do - freeMem length_ - ) - -data DataInputStreamReadUptoFinishMethodInfo -instance (signature ~ (b -> m (T.Text,Word64)), MonadIO m, DataInputStreamK a, AsyncResultK b) => MethodInfo DataInputStreamReadUptoFinishMethodInfo a signature where - overloadedMethod _ = dataInputStreamReadUptoFinish - --- method DataInputStream::set_byte_order --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface "Gio" "DataStreamByteOrder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_data_input_stream_set_byte_order" g_data_input_stream_set_byte_order :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - CUInt -> -- order : TInterface "Gio" "DataStreamByteOrder" - IO () - - -dataInputStreamSetByteOrder :: - (MonadIO m, DataInputStreamK a) => - a -- _obj - -> DataStreamByteOrder -- order - -> m () -- result -dataInputStreamSetByteOrder _obj order = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let order' = (fromIntegral . fromEnum) order - g_data_input_stream_set_byte_order _obj' order' - touchManagedPtr _obj - return () - -data DataInputStreamSetByteOrderMethodInfo -instance (signature ~ (DataStreamByteOrder -> m ()), MonadIO m, DataInputStreamK a) => MethodInfo DataInputStreamSetByteOrderMethodInfo a signature where - overloadedMethod _ = dataInputStreamSetByteOrder - --- method DataInputStream::set_newline_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "DataStreamNewlineType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_data_input_stream_set_newline_type" g_data_input_stream_set_newline_type :: - Ptr DataInputStream -> -- _obj : TInterface "Gio" "DataInputStream" - CUInt -> -- type : TInterface "Gio" "DataStreamNewlineType" - IO () - - -dataInputStreamSetNewlineType :: - (MonadIO m, DataInputStreamK a) => - a -- _obj - -> DataStreamNewlineType -- type_ - -> m () -- result -dataInputStreamSetNewlineType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - g_data_input_stream_set_newline_type _obj' type_' - touchManagedPtr _obj - return () - -data DataInputStreamSetNewlineTypeMethodInfo -instance (signature ~ (DataStreamNewlineType -> m ()), MonadIO m, DataInputStreamK a) => MethodInfo DataInputStreamSetNewlineTypeMethodInfo a signature where - overloadedMethod _ = dataInputStreamSetNewlineType - - diff --git a/GI/Gio/Objects/DataInputStream.hs-boot b/GI/Gio/Objects/DataInputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DataInputStream.hs-boot +++ /dev/null @@ -1,37 +0,0 @@ -module GI.Gio.Objects.DataInputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DataInputStream = DataInputStream (ForeignPtr DataInputStream) -instance GObject DataInputStream where -class GObject o => DataInputStreamK o -instance (GObject o, IsDescendantOf DataInputStream o) => DataInputStreamK o -data DataInputStreamByteOrderPropertyInfo -data DataInputStreamNewlineTypePropertyInfo -data DataInputStreamGetByteOrderMethodInfo -data DataInputStreamGetNewlineTypeMethodInfo -data DataInputStreamReadByteMethodInfo -data DataInputStreamReadInt16MethodInfo -data DataInputStreamReadInt32MethodInfo -data DataInputStreamReadInt64MethodInfo -data DataInputStreamReadLineMethodInfo -data DataInputStreamReadLineAsyncMethodInfo -data DataInputStreamReadLineFinishMethodInfo -data DataInputStreamReadLineFinishUtf8MethodInfo -data DataInputStreamReadLineUtf8MethodInfo -data DataInputStreamReadUint16MethodInfo -data DataInputStreamReadUint32MethodInfo -data DataInputStreamReadUint64MethodInfo -data DataInputStreamReadUntilMethodInfo -data DataInputStreamReadUntilAsyncMethodInfo -data DataInputStreamReadUntilFinishMethodInfo -data DataInputStreamReadUptoMethodInfo -data DataInputStreamReadUptoAsyncMethodInfo -data DataInputStreamReadUptoFinishMethodInfo -data DataInputStreamSetByteOrderMethodInfo -data DataInputStreamSetNewlineTypeMethodInfo diff --git a/GI/Gio/Objects/DataOutputStream.hs b/GI/Gio/Objects/DataOutputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/DataOutputStream.hs +++ /dev/null @@ -1,651 +0,0 @@ - - -{- | -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.Objects.DataOutputStream - ( - --- * Exported types - DataOutputStream(..) , - DataOutputStreamK , - toDataOutputStream , - noDataOutputStream , - - - -- * Methods --- ** dataOutputStreamGetByteOrder - DataOutputStreamGetByteOrderMethodInfo , - dataOutputStreamGetByteOrder , - - --- ** dataOutputStreamNew - dataOutputStreamNew , - - --- ** dataOutputStreamPutByte - DataOutputStreamPutByteMethodInfo , - dataOutputStreamPutByte , - - --- ** dataOutputStreamPutInt16 - DataOutputStreamPutInt16MethodInfo , - dataOutputStreamPutInt16 , - - --- ** dataOutputStreamPutInt32 - DataOutputStreamPutInt32MethodInfo , - dataOutputStreamPutInt32 , - - --- ** dataOutputStreamPutInt64 - DataOutputStreamPutInt64MethodInfo , - dataOutputStreamPutInt64 , - - --- ** dataOutputStreamPutString - DataOutputStreamPutStringMethodInfo , - dataOutputStreamPutString , - - --- ** dataOutputStreamPutUint16 - DataOutputStreamPutUint16MethodInfo , - dataOutputStreamPutUint16 , - - --- ** dataOutputStreamPutUint32 - DataOutputStreamPutUint32MethodInfo , - dataOutputStreamPutUint32 , - - --- ** dataOutputStreamPutUint64 - DataOutputStreamPutUint64MethodInfo , - dataOutputStreamPutUint64 , - - --- ** dataOutputStreamSetByteOrder - DataOutputStreamSetByteOrderMethodInfo , - dataOutputStreamSetByteOrder , - - - - - -- * Properties --- ** ByteOrder - DataOutputStreamByteOrderPropertyInfo , - constructDataOutputStreamByteOrder , - dataOutputStreamByteOrder , - getDataOutputStreamByteOrder , - setDataOutputStreamByteOrder , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype DataOutputStream = DataOutputStream (ForeignPtr DataOutputStream) -foreign import ccall "g_data_output_stream_get_type" - c_g_data_output_stream_get_type :: IO GType - -type instance ParentTypes DataOutputStream = DataOutputStreamParentTypes -type DataOutputStreamParentTypes = '[FilterOutputStream, OutputStream, GObject.Object, Seekable] - -instance GObject DataOutputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_data_output_stream_get_type - - -class GObject o => DataOutputStreamK o -instance (GObject o, IsDescendantOf DataOutputStream o) => DataOutputStreamK o - -toDataOutputStream :: DataOutputStreamK o => o -> IO DataOutputStream -toDataOutputStream = unsafeCastTo DataOutputStream - -noDataOutputStream :: Maybe DataOutputStream -noDataOutputStream = Nothing - -type family ResolveDataOutputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveDataOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDataOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDataOutputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo - ResolveDataOutputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo - ResolveDataOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo - ResolveDataOutputStreamMethod "close" o = OutputStreamCloseMethodInfo - ResolveDataOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo - ResolveDataOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo - ResolveDataOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo - ResolveDataOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo - ResolveDataOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo - ResolveDataOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDataOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDataOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo - ResolveDataOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo - ResolveDataOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo - ResolveDataOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDataOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDataOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDataOutputStreamMethod "putByte" o = DataOutputStreamPutByteMethodInfo - ResolveDataOutputStreamMethod "putInt16" o = DataOutputStreamPutInt16MethodInfo - ResolveDataOutputStreamMethod "putInt32" o = DataOutputStreamPutInt32MethodInfo - ResolveDataOutputStreamMethod "putInt64" o = DataOutputStreamPutInt64MethodInfo - ResolveDataOutputStreamMethod "putString" o = DataOutputStreamPutStringMethodInfo - ResolveDataOutputStreamMethod "putUint16" o = DataOutputStreamPutUint16MethodInfo - ResolveDataOutputStreamMethod "putUint32" o = DataOutputStreamPutUint32MethodInfo - ResolveDataOutputStreamMethod "putUint64" o = DataOutputStreamPutUint64MethodInfo - ResolveDataOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDataOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDataOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDataOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDataOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDataOutputStreamMethod "seek" o = SeekableSeekMethodInfo - ResolveDataOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo - ResolveDataOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo - ResolveDataOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo - ResolveDataOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDataOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDataOutputStreamMethod "tell" o = SeekableTellMethodInfo - ResolveDataOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDataOutputStreamMethod "truncate" o = SeekableTruncateMethodInfo - ResolveDataOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDataOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDataOutputStreamMethod "write" o = OutputStreamWriteMethodInfo - ResolveDataOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo - ResolveDataOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo - ResolveDataOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo - ResolveDataOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo - ResolveDataOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo - ResolveDataOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo - ResolveDataOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo - ResolveDataOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo - ResolveDataOutputStreamMethod "getBaseStream" o = FilterOutputStreamGetBaseStreamMethodInfo - ResolveDataOutputStreamMethod "getByteOrder" o = DataOutputStreamGetByteOrderMethodInfo - ResolveDataOutputStreamMethod "getCloseBaseStream" o = FilterOutputStreamGetCloseBaseStreamMethodInfo - ResolveDataOutputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDataOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDataOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDataOutputStreamMethod "setByteOrder" o = DataOutputStreamSetByteOrderMethodInfo - ResolveDataOutputStreamMethod "setCloseBaseStream" o = FilterOutputStreamSetCloseBaseStreamMethodInfo - ResolveDataOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDataOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo - ResolveDataOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDataOutputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDataOutputStreamMethod t DataOutputStream, MethodInfo info DataOutputStream p) => IsLabelProxy t (DataOutputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDataOutputStreamMethod t DataOutputStream, MethodInfo info DataOutputStream p) => IsLabel t (DataOutputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "byte-order" - -- Type: TInterface "Gio" "DataStreamByteOrder" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getDataOutputStreamByteOrder :: (MonadIO m, DataOutputStreamK o) => o -> m DataStreamByteOrder -getDataOutputStreamByteOrder obj = liftIO $ getObjectPropertyEnum obj "byte-order" - -setDataOutputStreamByteOrder :: (MonadIO m, DataOutputStreamK o) => o -> DataStreamByteOrder -> m () -setDataOutputStreamByteOrder obj val = liftIO $ setObjectPropertyEnum obj "byte-order" val - -constructDataOutputStreamByteOrder :: DataStreamByteOrder -> IO ([Char], GValue) -constructDataOutputStreamByteOrder val = constructObjectPropertyEnum "byte-order" val - -data DataOutputStreamByteOrderPropertyInfo -instance AttrInfo DataOutputStreamByteOrderPropertyInfo where - type AttrAllowedOps DataOutputStreamByteOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint DataOutputStreamByteOrderPropertyInfo = (~) DataStreamByteOrder - type AttrBaseTypeConstraint DataOutputStreamByteOrderPropertyInfo = DataOutputStreamK - type AttrGetType DataOutputStreamByteOrderPropertyInfo = DataStreamByteOrder - type AttrLabel DataOutputStreamByteOrderPropertyInfo = "byte-order" - attrGet _ = getDataOutputStreamByteOrder - attrSet _ = setDataOutputStreamByteOrder - attrConstruct _ = constructDataOutputStreamByteOrder - attrClear _ = undefined - -type instance AttributeList DataOutputStream = DataOutputStreamAttributeList -type DataOutputStreamAttributeList = ('[ '("baseStream", FilterOutputStreamBaseStreamPropertyInfo), '("byteOrder", DataOutputStreamByteOrderPropertyInfo), '("closeBaseStream", FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)]) - -dataOutputStreamByteOrder :: AttrLabelProxy "byteOrder" -dataOutputStreamByteOrder = AttrLabelProxy - -type instance SignalList DataOutputStream = DataOutputStreamSignalList -type DataOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DataOutputStream::new --- method type : Constructor --- Args : [Arg {argCName = "base_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DataOutputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_data_output_stream_new" g_data_output_stream_new :: - Ptr OutputStream -> -- base_stream : TInterface "Gio" "OutputStream" - IO (Ptr DataOutputStream) - - -dataOutputStreamNew :: - (MonadIO m, OutputStreamK a) => - a -- baseStream - -> m DataOutputStream -- result -dataOutputStreamNew baseStream = liftIO $ do - let baseStream' = unsafeManagedPtrCastPtr baseStream - result <- g_data_output_stream_new baseStream' - checkUnexpectedReturnNULL "g_data_output_stream_new" result - result' <- (wrapObject DataOutputStream) result - touchManagedPtr baseStream - return result' - --- method DataOutputStream::get_byte_order --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DataStreamByteOrder") --- throws : False --- Skip return : False - -foreign import ccall "g_data_output_stream_get_byte_order" g_data_output_stream_get_byte_order :: - Ptr DataOutputStream -> -- _obj : TInterface "Gio" "DataOutputStream" - IO CUInt - - -dataOutputStreamGetByteOrder :: - (MonadIO m, DataOutputStreamK a) => - a -- _obj - -> m DataStreamByteOrder -- result -dataOutputStreamGetByteOrder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_data_output_stream_get_byte_order _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data DataOutputStreamGetByteOrderMethodInfo -instance (signature ~ (m DataStreamByteOrder), MonadIO m, DataOutputStreamK a) => MethodInfo DataOutputStreamGetByteOrderMethodInfo a signature where - overloadedMethod _ = dataOutputStreamGetByteOrder - --- method DataOutputStream::put_byte --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUInt8, 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_data_output_stream_put_byte" g_data_output_stream_put_byte :: - Ptr DataOutputStream -> -- _obj : TInterface "Gio" "DataOutputStream" - Word8 -> -- data : TBasicType TUInt8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -dataOutputStreamPutByte :: - (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -- _obj - -> Word8 -- data_ - -> Maybe (b) -- cancellable - -> m () -- result -dataOutputStreamPutByte _obj data_ cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_data_output_stream_put_byte _obj' data_ maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data DataOutputStreamPutByteMethodInfo -instance (signature ~ (Word8 -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutByteMethodInfo a signature where - overloadedMethod _ = dataOutputStreamPutByte - --- method DataOutputStream::put_int16 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TInt16, 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_data_output_stream_put_int16" g_data_output_stream_put_int16 :: - Ptr DataOutputStream -> -- _obj : TInterface "Gio" "DataOutputStream" - Int16 -> -- data : TBasicType TInt16 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -dataOutputStreamPutInt16 :: - (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -- _obj - -> Int16 -- data_ - -> Maybe (b) -- cancellable - -> m () -- result -dataOutputStreamPutInt16 _obj data_ cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_data_output_stream_put_int16 _obj' data_ maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data DataOutputStreamPutInt16MethodInfo -instance (signature ~ (Int16 -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutInt16MethodInfo a signature where - overloadedMethod _ = dataOutputStreamPutInt16 - --- method DataOutputStream::put_int32 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_data_output_stream_put_int32" g_data_output_stream_put_int32 :: - Ptr DataOutputStream -> -- _obj : TInterface "Gio" "DataOutputStream" - Int32 -> -- data : TBasicType TInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -dataOutputStreamPutInt32 :: - (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -- _obj - -> Int32 -- data_ - -> Maybe (b) -- cancellable - -> m () -- result -dataOutputStreamPutInt32 _obj data_ cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_data_output_stream_put_int32 _obj' data_ maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data DataOutputStreamPutInt32MethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutInt32MethodInfo a signature where - overloadedMethod _ = dataOutputStreamPutInt32 - --- method DataOutputStream::put_int64 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TInt64, 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_data_output_stream_put_int64" g_data_output_stream_put_int64 :: - Ptr DataOutputStream -> -- _obj : TInterface "Gio" "DataOutputStream" - Int64 -> -- data : TBasicType TInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -dataOutputStreamPutInt64 :: - (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -- _obj - -> Int64 -- data_ - -> Maybe (b) -- cancellable - -> m () -- result -dataOutputStreamPutInt64 _obj data_ cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_data_output_stream_put_int64 _obj' data_ maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data DataOutputStreamPutInt64MethodInfo -instance (signature ~ (Int64 -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutInt64MethodInfo a signature where - overloadedMethod _ = dataOutputStreamPutInt64 - --- method DataOutputStream::put_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "str", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_data_output_stream_put_string" g_data_output_stream_put_string :: - Ptr DataOutputStream -> -- _obj : TInterface "Gio" "DataOutputStream" - CString -> -- str : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -dataOutputStreamPutString :: - (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -- _obj - -> T.Text -- str - -> Maybe (b) -- cancellable - -> m () -- result -dataOutputStreamPutString _obj str cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - str' <- textToCString str - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_data_output_stream_put_string _obj' str' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem str' - return () - ) (do - freeMem str' - ) - -data DataOutputStreamPutStringMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutStringMethodInfo a signature where - overloadedMethod _ = dataOutputStreamPutString - --- method DataOutputStream::put_uint16 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUInt16, 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_data_output_stream_put_uint16" g_data_output_stream_put_uint16 :: - Ptr DataOutputStream -> -- _obj : TInterface "Gio" "DataOutputStream" - Word16 -> -- data : TBasicType TUInt16 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -dataOutputStreamPutUint16 :: - (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -- _obj - -> Word16 -- data_ - -> Maybe (b) -- cancellable - -> m () -- result -dataOutputStreamPutUint16 _obj data_ cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_data_output_stream_put_uint16 _obj' data_ maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data DataOutputStreamPutUint16MethodInfo -instance (signature ~ (Word16 -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutUint16MethodInfo a signature where - overloadedMethod _ = dataOutputStreamPutUint16 - --- method DataOutputStream::put_uint32 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUInt32, 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_data_output_stream_put_uint32" g_data_output_stream_put_uint32 :: - Ptr DataOutputStream -> -- _obj : TInterface "Gio" "DataOutputStream" - Word32 -> -- data : TBasicType TUInt32 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -dataOutputStreamPutUint32 :: - (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -- _obj - -> Word32 -- data_ - -> Maybe (b) -- cancellable - -> m () -- result -dataOutputStreamPutUint32 _obj data_ cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_data_output_stream_put_uint32 _obj' data_ maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data DataOutputStreamPutUint32MethodInfo -instance (signature ~ (Word32 -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutUint32MethodInfo a signature where - overloadedMethod _ = dataOutputStreamPutUint32 - --- method DataOutputStream::put_uint64 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUInt64, 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_data_output_stream_put_uint64" g_data_output_stream_put_uint64 :: - Ptr DataOutputStream -> -- _obj : TInterface "Gio" "DataOutputStream" - Word64 -> -- data : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -dataOutputStreamPutUint64 :: - (MonadIO m, DataOutputStreamK a, CancellableK b) => - a -- _obj - -> Word64 -- data_ - -> Maybe (b) -- cancellable - -> m () -- result -dataOutputStreamPutUint64 _obj data_ cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_data_output_stream_put_uint64 _obj' data_ maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data DataOutputStreamPutUint64MethodInfo -instance (signature ~ (Word64 -> Maybe (b) -> m ()), MonadIO m, DataOutputStreamK a, CancellableK b) => MethodInfo DataOutputStreamPutUint64MethodInfo a signature where - overloadedMethod _ = dataOutputStreamPutUint64 - --- method DataOutputStream::set_byte_order --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DataOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface "Gio" "DataStreamByteOrder", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_data_output_stream_set_byte_order" g_data_output_stream_set_byte_order :: - Ptr DataOutputStream -> -- _obj : TInterface "Gio" "DataOutputStream" - CUInt -> -- order : TInterface "Gio" "DataStreamByteOrder" - IO () - - -dataOutputStreamSetByteOrder :: - (MonadIO m, DataOutputStreamK a) => - a -- _obj - -> DataStreamByteOrder -- order - -> m () -- result -dataOutputStreamSetByteOrder _obj order = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let order' = (fromIntegral . fromEnum) order - g_data_output_stream_set_byte_order _obj' order' - touchManagedPtr _obj - return () - -data DataOutputStreamSetByteOrderMethodInfo -instance (signature ~ (DataStreamByteOrder -> m ()), MonadIO m, DataOutputStreamK a) => MethodInfo DataOutputStreamSetByteOrderMethodInfo a signature where - overloadedMethod _ = dataOutputStreamSetByteOrder - - diff --git a/GI/Gio/Objects/DataOutputStream.hs-boot b/GI/Gio/Objects/DataOutputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DataOutputStream.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.Gio.Objects.DataOutputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DataOutputStream = DataOutputStream (ForeignPtr DataOutputStream) -instance GObject DataOutputStream where -class GObject o => DataOutputStreamK o -instance (GObject o, IsDescendantOf DataOutputStream o) => DataOutputStreamK o -data DataOutputStreamByteOrderPropertyInfo -data DataOutputStreamGetByteOrderMethodInfo -data DataOutputStreamPutByteMethodInfo -data DataOutputStreamPutInt16MethodInfo -data DataOutputStreamPutInt32MethodInfo -data DataOutputStreamPutInt64MethodInfo -data DataOutputStreamPutStringMethodInfo -data DataOutputStreamPutUint16MethodInfo -data DataOutputStreamPutUint32MethodInfo -data DataOutputStreamPutUint64MethodInfo -data DataOutputStreamSetByteOrderMethodInfo diff --git a/GI/Gio/Objects/DesktopAppInfo.hs b/GI/Gio/Objects/DesktopAppInfo.hs deleted file mode 100644 --- a/GI/Gio/Objects/DesktopAppInfo.hs +++ /dev/null @@ -1,865 +0,0 @@ - - -{- | -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.Objects.DesktopAppInfo - ( - --- * Exported types - DesktopAppInfo(..) , - DesktopAppInfoK , - toDesktopAppInfo , - noDesktopAppInfo , - - - -- * Methods --- ** Unsupported methods - DesktopAppInfoLaunchUrisAsManagerMethodInfo, - - --- ** desktopAppInfoGetActionName - DesktopAppInfoGetActionNameMethodInfo , - desktopAppInfoGetActionName , - - --- ** desktopAppInfoGetBoolean - DesktopAppInfoGetBooleanMethodInfo , - desktopAppInfoGetBoolean , - - --- ** desktopAppInfoGetCategories - DesktopAppInfoGetCategoriesMethodInfo , - desktopAppInfoGetCategories , - - --- ** desktopAppInfoGetFilename - DesktopAppInfoGetFilenameMethodInfo , - desktopAppInfoGetFilename , - - --- ** desktopAppInfoGetGenericName - DesktopAppInfoGetGenericNameMethodInfo , - desktopAppInfoGetGenericName , - - --- ** desktopAppInfoGetImplementations - desktopAppInfoGetImplementations , - - --- ** desktopAppInfoGetIsHidden - DesktopAppInfoGetIsHiddenMethodInfo , - desktopAppInfoGetIsHidden , - - --- ** desktopAppInfoGetKeywords - DesktopAppInfoGetKeywordsMethodInfo , - desktopAppInfoGetKeywords , - - --- ** desktopAppInfoGetNodisplay - DesktopAppInfoGetNodisplayMethodInfo , - desktopAppInfoGetNodisplay , - - --- ** desktopAppInfoGetShowIn - DesktopAppInfoGetShowInMethodInfo , - desktopAppInfoGetShowIn , - - --- ** desktopAppInfoGetStartupWmClass - DesktopAppInfoGetStartupWmClassMethodInfo, - desktopAppInfoGetStartupWmClass , - - --- ** desktopAppInfoGetString - DesktopAppInfoGetStringMethodInfo , - desktopAppInfoGetString , - - --- ** desktopAppInfoHasKey - DesktopAppInfoHasKeyMethodInfo , - desktopAppInfoHasKey , - - --- ** desktopAppInfoLaunchAction - DesktopAppInfoLaunchActionMethodInfo , - desktopAppInfoLaunchAction , - - --- ** desktopAppInfoListActions - DesktopAppInfoListActionsMethodInfo , - desktopAppInfoListActions , - - --- ** desktopAppInfoNew - desktopAppInfoNew , - - --- ** desktopAppInfoNewFromFilename - desktopAppInfoNewFromFilename , - - --- ** desktopAppInfoNewFromKeyfile - desktopAppInfoNewFromKeyfile , - - --- ** desktopAppInfoSearch - desktopAppInfoSearch , - - --- ** desktopAppInfoSetDesktopEnv - desktopAppInfoSetDesktopEnv , - - - - - -- * Properties --- ** Filename - DesktopAppInfoFilenamePropertyInfo , - constructDesktopAppInfoFilename , - desktopAppInfoFilename , - getDesktopAppInfoFilename , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype DesktopAppInfo = DesktopAppInfo (ForeignPtr DesktopAppInfo) -foreign import ccall "g_desktop_app_info_get_type" - c_g_desktop_app_info_get_type :: IO GType - -type instance ParentTypes DesktopAppInfo = DesktopAppInfoParentTypes -type DesktopAppInfoParentTypes = '[GObject.Object, AppInfo] - -instance GObject DesktopAppInfo where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_desktop_app_info_get_type - - -class GObject o => DesktopAppInfoK o -instance (GObject o, IsDescendantOf DesktopAppInfo o) => DesktopAppInfoK o - -toDesktopAppInfo :: DesktopAppInfoK o => o -> IO DesktopAppInfo -toDesktopAppInfo = unsafeCastTo DesktopAppInfo - -noDesktopAppInfo :: Maybe DesktopAppInfo -noDesktopAppInfo = Nothing - -type family ResolveDesktopAppInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveDesktopAppInfoMethod "addSupportsType" o = AppInfoAddSupportsTypeMethodInfo - ResolveDesktopAppInfoMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveDesktopAppInfoMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveDesktopAppInfoMethod "canDelete" o = AppInfoCanDeleteMethodInfo - ResolveDesktopAppInfoMethod "canRemoveSupportsType" o = AppInfoCanRemoveSupportsTypeMethodInfo - ResolveDesktopAppInfoMethod "delete" o = AppInfoDeleteMethodInfo - ResolveDesktopAppInfoMethod "dup" o = AppInfoDupMethodInfo - ResolveDesktopAppInfoMethod "equal" o = AppInfoEqualMethodInfo - ResolveDesktopAppInfoMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveDesktopAppInfoMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveDesktopAppInfoMethod "hasKey" o = DesktopAppInfoHasKeyMethodInfo - ResolveDesktopAppInfoMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveDesktopAppInfoMethod "launch" o = AppInfoLaunchMethodInfo - ResolveDesktopAppInfoMethod "launchAction" o = DesktopAppInfoLaunchActionMethodInfo - ResolveDesktopAppInfoMethod "launchUris" o = AppInfoLaunchUrisMethodInfo - ResolveDesktopAppInfoMethod "launchUrisAsManager" o = DesktopAppInfoLaunchUrisAsManagerMethodInfo - ResolveDesktopAppInfoMethod "listActions" o = DesktopAppInfoListActionsMethodInfo - ResolveDesktopAppInfoMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveDesktopAppInfoMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveDesktopAppInfoMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveDesktopAppInfoMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveDesktopAppInfoMethod "removeSupportsType" o = AppInfoRemoveSupportsTypeMethodInfo - ResolveDesktopAppInfoMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveDesktopAppInfoMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveDesktopAppInfoMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveDesktopAppInfoMethod "shouldShow" o = AppInfoShouldShowMethodInfo - ResolveDesktopAppInfoMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveDesktopAppInfoMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveDesktopAppInfoMethod "supportsFiles" o = AppInfoSupportsFilesMethodInfo - ResolveDesktopAppInfoMethod "supportsUris" o = AppInfoSupportsUrisMethodInfo - ResolveDesktopAppInfoMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveDesktopAppInfoMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveDesktopAppInfoMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveDesktopAppInfoMethod "getActionName" o = DesktopAppInfoGetActionNameMethodInfo - ResolveDesktopAppInfoMethod "getBoolean" o = DesktopAppInfoGetBooleanMethodInfo - ResolveDesktopAppInfoMethod "getCategories" o = DesktopAppInfoGetCategoriesMethodInfo - ResolveDesktopAppInfoMethod "getCommandline" o = AppInfoGetCommandlineMethodInfo - ResolveDesktopAppInfoMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveDesktopAppInfoMethod "getDescription" o = AppInfoGetDescriptionMethodInfo - ResolveDesktopAppInfoMethod "getDisplayName" o = AppInfoGetDisplayNameMethodInfo - ResolveDesktopAppInfoMethod "getExecutable" o = AppInfoGetExecutableMethodInfo - ResolveDesktopAppInfoMethod "getFilename" o = DesktopAppInfoGetFilenameMethodInfo - ResolveDesktopAppInfoMethod "getGenericName" o = DesktopAppInfoGetGenericNameMethodInfo - ResolveDesktopAppInfoMethod "getIcon" o = AppInfoGetIconMethodInfo - ResolveDesktopAppInfoMethod "getId" o = AppInfoGetIdMethodInfo - ResolveDesktopAppInfoMethod "getIsHidden" o = DesktopAppInfoGetIsHiddenMethodInfo - ResolveDesktopAppInfoMethod "getKeywords" o = DesktopAppInfoGetKeywordsMethodInfo - ResolveDesktopAppInfoMethod "getName" o = AppInfoGetNameMethodInfo - ResolveDesktopAppInfoMethod "getNodisplay" o = DesktopAppInfoGetNodisplayMethodInfo - ResolveDesktopAppInfoMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveDesktopAppInfoMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveDesktopAppInfoMethod "getShowIn" o = DesktopAppInfoGetShowInMethodInfo - ResolveDesktopAppInfoMethod "getStartupWmClass" o = DesktopAppInfoGetStartupWmClassMethodInfo - ResolveDesktopAppInfoMethod "getString" o = DesktopAppInfoGetStringMethodInfo - ResolveDesktopAppInfoMethod "getSupportedTypes" o = AppInfoGetSupportedTypesMethodInfo - ResolveDesktopAppInfoMethod "setAsDefaultForExtension" o = AppInfoSetAsDefaultForExtensionMethodInfo - ResolveDesktopAppInfoMethod "setAsDefaultForType" o = AppInfoSetAsDefaultForTypeMethodInfo - ResolveDesktopAppInfoMethod "setAsLastUsedForType" o = AppInfoSetAsLastUsedForTypeMethodInfo - ResolveDesktopAppInfoMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveDesktopAppInfoMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveDesktopAppInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDesktopAppInfoMethod t DesktopAppInfo, MethodInfo info DesktopAppInfo p) => IsLabelProxy t (DesktopAppInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDesktopAppInfoMethod t DesktopAppInfo, MethodInfo info DesktopAppInfo p) => IsLabel t (DesktopAppInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "filename" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getDesktopAppInfoFilename :: (MonadIO m, DesktopAppInfoK o) => o -> m T.Text -getDesktopAppInfoFilename obj = liftIO $ checkUnexpectedNothing "getDesktopAppInfoFilename" $ getObjectPropertyString obj "filename" - -constructDesktopAppInfoFilename :: T.Text -> IO ([Char], GValue) -constructDesktopAppInfoFilename val = constructObjectPropertyString "filename" (Just val) - -data DesktopAppInfoFilenamePropertyInfo -instance AttrInfo DesktopAppInfoFilenamePropertyInfo where - type AttrAllowedOps DesktopAppInfoFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DesktopAppInfoFilenamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint DesktopAppInfoFilenamePropertyInfo = DesktopAppInfoK - type AttrGetType DesktopAppInfoFilenamePropertyInfo = T.Text - type AttrLabel DesktopAppInfoFilenamePropertyInfo = "filename" - attrGet _ = getDesktopAppInfoFilename - attrSet _ = undefined - attrConstruct _ = constructDesktopAppInfoFilename - attrClear _ = undefined - -type instance AttributeList DesktopAppInfo = DesktopAppInfoAttributeList -type DesktopAppInfoAttributeList = ('[ '("filename", DesktopAppInfoFilenamePropertyInfo)] :: [(Symbol, *)]) - -desktopAppInfoFilename :: AttrLabelProxy "filename" -desktopAppInfoFilename = AttrLabelProxy - -type instance SignalList DesktopAppInfo = DesktopAppInfoSignalList -type DesktopAppInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method DesktopAppInfo::new --- method type : Constructor --- Args : [Arg {argCName = "desktop_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DesktopAppInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_new" g_desktop_app_info_new :: - CString -> -- desktop_id : TBasicType TUTF8 - IO (Ptr DesktopAppInfo) - - -desktopAppInfoNew :: - (MonadIO m) => - T.Text -- desktopId - -> m DesktopAppInfo -- result -desktopAppInfoNew desktopId = liftIO $ do - desktopId' <- textToCString desktopId - result <- g_desktop_app_info_new desktopId' - checkUnexpectedReturnNULL "g_desktop_app_info_new" result - result' <- (wrapObject DesktopAppInfo) result - freeMem desktopId' - return result' - --- method DesktopAppInfo::new_from_filename --- method type : Constructor --- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DesktopAppInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_new_from_filename" g_desktop_app_info_new_from_filename :: - CString -> -- filename : TBasicType TUTF8 - IO (Ptr DesktopAppInfo) - - -desktopAppInfoNewFromFilename :: - (MonadIO m) => - T.Text -- filename - -> m DesktopAppInfo -- result -desktopAppInfoNewFromFilename filename = liftIO $ do - filename' <- textToCString filename - result <- g_desktop_app_info_new_from_filename filename' - checkUnexpectedReturnNULL "g_desktop_app_info_new_from_filename" result - result' <- (wrapObject DesktopAppInfo) result - freeMem filename' - return result' - --- method DesktopAppInfo::new_from_keyfile --- method type : Constructor --- Args : [Arg {argCName = "key_file", argType = TInterface "GLib" "KeyFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DesktopAppInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_new_from_keyfile" g_desktop_app_info_new_from_keyfile :: - Ptr GLib.KeyFile -> -- key_file : TInterface "GLib" "KeyFile" - IO (Ptr DesktopAppInfo) - - -desktopAppInfoNewFromKeyfile :: - (MonadIO m) => - GLib.KeyFile -- keyFile - -> m DesktopAppInfo -- result -desktopAppInfoNewFromKeyfile keyFile = liftIO $ do - let keyFile' = unsafeManagedPtrGetPtr keyFile - result <- g_desktop_app_info_new_from_keyfile keyFile' - checkUnexpectedReturnNULL "g_desktop_app_info_new_from_keyfile" result - result' <- (wrapObject DesktopAppInfo) result - touchManagedPtr keyFile - return result' - --- method DesktopAppInfo::get_action_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_get_action_name" g_desktop_app_info_get_action_name :: - Ptr DesktopAppInfo -> -- _obj : TInterface "Gio" "DesktopAppInfo" - CString -> -- action_name : TBasicType TUTF8 - IO CString - - -desktopAppInfoGetActionName :: - (MonadIO m, DesktopAppInfoK a) => - a -- _obj - -> T.Text -- actionName - -> m T.Text -- result -desktopAppInfoGetActionName _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - result <- g_desktop_app_info_get_action_name _obj' actionName' - checkUnexpectedReturnNULL "g_desktop_app_info_get_action_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem actionName' - return result' - -data DesktopAppInfoGetActionNameMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetActionNameMethodInfo a signature where - overloadedMethod _ = desktopAppInfoGetActionName - --- method DesktopAppInfo::get_boolean --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_get_boolean" g_desktop_app_info_get_boolean :: - Ptr DesktopAppInfo -> -- _obj : TInterface "Gio" "DesktopAppInfo" - CString -> -- key : TBasicType TUTF8 - IO CInt - - -desktopAppInfoGetBoolean :: - (MonadIO m, DesktopAppInfoK a) => - a -- _obj - -> T.Text -- key - -> m Bool -- result -desktopAppInfoGetBoolean _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_desktop_app_info_get_boolean _obj' key' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - -data DesktopAppInfoGetBooleanMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetBooleanMethodInfo a signature where - overloadedMethod _ = desktopAppInfoGetBoolean - --- method DesktopAppInfo::get_categories --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_get_categories" g_desktop_app_info_get_categories :: - Ptr DesktopAppInfo -> -- _obj : TInterface "Gio" "DesktopAppInfo" - IO CString - - -desktopAppInfoGetCategories :: - (MonadIO m, DesktopAppInfoK a) => - a -- _obj - -> m T.Text -- result -desktopAppInfoGetCategories _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_desktop_app_info_get_categories _obj' - checkUnexpectedReturnNULL "g_desktop_app_info_get_categories" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DesktopAppInfoGetCategoriesMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetCategoriesMethodInfo a signature where - overloadedMethod _ = desktopAppInfoGetCategories - --- method DesktopAppInfo::get_filename --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_get_filename" g_desktop_app_info_get_filename :: - Ptr DesktopAppInfo -> -- _obj : TInterface "Gio" "DesktopAppInfo" - IO CString - - -desktopAppInfoGetFilename :: - (MonadIO m, DesktopAppInfoK a) => - a -- _obj - -> m T.Text -- result -desktopAppInfoGetFilename _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_desktop_app_info_get_filename _obj' - checkUnexpectedReturnNULL "g_desktop_app_info_get_filename" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DesktopAppInfoGetFilenameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetFilenameMethodInfo a signature where - overloadedMethod _ = desktopAppInfoGetFilename - --- method DesktopAppInfo::get_generic_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_get_generic_name" g_desktop_app_info_get_generic_name :: - Ptr DesktopAppInfo -> -- _obj : TInterface "Gio" "DesktopAppInfo" - IO CString - - -desktopAppInfoGetGenericName :: - (MonadIO m, DesktopAppInfoK a) => - a -- _obj - -> m T.Text -- result -desktopAppInfoGetGenericName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_desktop_app_info_get_generic_name _obj' - checkUnexpectedReturnNULL "g_desktop_app_info_get_generic_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DesktopAppInfoGetGenericNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetGenericNameMethodInfo a signature where - overloadedMethod _ = desktopAppInfoGetGenericName - --- method DesktopAppInfo::get_is_hidden --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_get_is_hidden" g_desktop_app_info_get_is_hidden :: - Ptr DesktopAppInfo -> -- _obj : TInterface "Gio" "DesktopAppInfo" - IO CInt - - -desktopAppInfoGetIsHidden :: - (MonadIO m, DesktopAppInfoK a) => - a -- _obj - -> m Bool -- result -desktopAppInfoGetIsHidden _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_desktop_app_info_get_is_hidden _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DesktopAppInfoGetIsHiddenMethodInfo -instance (signature ~ (m Bool), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetIsHiddenMethodInfo a signature where - overloadedMethod _ = desktopAppInfoGetIsHidden - --- method DesktopAppInfo::get_keywords --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_get_keywords" g_desktop_app_info_get_keywords :: - Ptr DesktopAppInfo -> -- _obj : TInterface "Gio" "DesktopAppInfo" - IO (Ptr CString) - - -desktopAppInfoGetKeywords :: - (MonadIO m, DesktopAppInfoK a) => - a -- _obj - -> m [T.Text] -- result -desktopAppInfoGetKeywords _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_desktop_app_info_get_keywords _obj' - checkUnexpectedReturnNULL "g_desktop_app_info_get_keywords" result - result' <- unpackZeroTerminatedUTF8CArray result - touchManagedPtr _obj - return result' - -data DesktopAppInfoGetKeywordsMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetKeywordsMethodInfo a signature where - overloadedMethod _ = desktopAppInfoGetKeywords - --- method DesktopAppInfo::get_nodisplay --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_get_nodisplay" g_desktop_app_info_get_nodisplay :: - Ptr DesktopAppInfo -> -- _obj : TInterface "Gio" "DesktopAppInfo" - IO CInt - - -desktopAppInfoGetNodisplay :: - (MonadIO m, DesktopAppInfoK a) => - a -- _obj - -> m Bool -- result -desktopAppInfoGetNodisplay _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_desktop_app_info_get_nodisplay _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DesktopAppInfoGetNodisplayMethodInfo -instance (signature ~ (m Bool), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetNodisplayMethodInfo a signature where - overloadedMethod _ = desktopAppInfoGetNodisplay - --- method DesktopAppInfo::get_show_in --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desktop_env", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_get_show_in" g_desktop_app_info_get_show_in :: - Ptr DesktopAppInfo -> -- _obj : TInterface "Gio" "DesktopAppInfo" - CString -> -- desktop_env : TBasicType TUTF8 - IO CInt - - -desktopAppInfoGetShowIn :: - (MonadIO m, DesktopAppInfoK a) => - a -- _obj - -> Maybe (T.Text) -- desktopEnv - -> m Bool -- result -desktopAppInfoGetShowIn _obj desktopEnv = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeDesktopEnv <- case desktopEnv of - Nothing -> return nullPtr - Just jDesktopEnv -> do - jDesktopEnv' <- textToCString jDesktopEnv - return jDesktopEnv' - result <- g_desktop_app_info_get_show_in _obj' maybeDesktopEnv - let result' = (/= 0) result - touchManagedPtr _obj - freeMem maybeDesktopEnv - return result' - -data DesktopAppInfoGetShowInMethodInfo -instance (signature ~ (Maybe (T.Text) -> m Bool), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetShowInMethodInfo a signature where - overloadedMethod _ = desktopAppInfoGetShowIn - --- method DesktopAppInfo::get_startup_wm_class --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_get_startup_wm_class" g_desktop_app_info_get_startup_wm_class :: - Ptr DesktopAppInfo -> -- _obj : TInterface "Gio" "DesktopAppInfo" - IO CString - - -desktopAppInfoGetStartupWmClass :: - (MonadIO m, DesktopAppInfoK a) => - a -- _obj - -> m T.Text -- result -desktopAppInfoGetStartupWmClass _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_desktop_app_info_get_startup_wm_class _obj' - checkUnexpectedReturnNULL "g_desktop_app_info_get_startup_wm_class" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data DesktopAppInfoGetStartupWmClassMethodInfo -instance (signature ~ (m T.Text), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetStartupWmClassMethodInfo a signature where - overloadedMethod _ = desktopAppInfoGetStartupWmClass - --- method DesktopAppInfo::get_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_get_string" g_desktop_app_info_get_string :: - Ptr DesktopAppInfo -> -- _obj : TInterface "Gio" "DesktopAppInfo" - CString -> -- key : TBasicType TUTF8 - IO CString - - -desktopAppInfoGetString :: - (MonadIO m, DesktopAppInfoK a) => - a -- _obj - -> T.Text -- key - -> m T.Text -- result -desktopAppInfoGetString _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_desktop_app_info_get_string _obj' key' - checkUnexpectedReturnNULL "g_desktop_app_info_get_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem key' - return result' - -data DesktopAppInfoGetStringMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoGetStringMethodInfo a signature where - overloadedMethod _ = desktopAppInfoGetString - --- method DesktopAppInfo::has_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_has_key" g_desktop_app_info_has_key :: - Ptr DesktopAppInfo -> -- _obj : TInterface "Gio" "DesktopAppInfo" - CString -> -- key : TBasicType TUTF8 - IO CInt - - -desktopAppInfoHasKey :: - (MonadIO m, DesktopAppInfoK a) => - a -- _obj - -> T.Text -- key - -> m Bool -- result -desktopAppInfoHasKey _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_desktop_app_info_has_key _obj' key' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - -data DesktopAppInfoHasKeyMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoHasKeyMethodInfo a signature where - overloadedMethod _ = desktopAppInfoHasKey - --- method DesktopAppInfo::launch_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "launch_context", argType = TInterface "Gio" "AppLaunchContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_launch_action" g_desktop_app_info_launch_action :: - Ptr DesktopAppInfo -> -- _obj : TInterface "Gio" "DesktopAppInfo" - CString -> -- action_name : TBasicType TUTF8 - Ptr AppLaunchContext -> -- launch_context : TInterface "Gio" "AppLaunchContext" - IO () - - -desktopAppInfoLaunchAction :: - (MonadIO m, DesktopAppInfoK a, AppLaunchContextK b) => - a -- _obj - -> T.Text -- actionName - -> Maybe (b) -- launchContext - -> m () -- result -desktopAppInfoLaunchAction _obj actionName launchContext = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - maybeLaunchContext <- case launchContext of - Nothing -> return nullPtr - Just jLaunchContext -> do - let jLaunchContext' = unsafeManagedPtrCastPtr jLaunchContext - return jLaunchContext' - g_desktop_app_info_launch_action _obj' actionName' maybeLaunchContext - touchManagedPtr _obj - whenJust launchContext touchManagedPtr - freeMem actionName' - return () - -data DesktopAppInfoLaunchActionMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, DesktopAppInfoK a, AppLaunchContextK b) => MethodInfo DesktopAppInfoLaunchActionMethodInfo a signature where - overloadedMethod _ = desktopAppInfoLaunchAction - --- XXX Could not generate method DesktopAppInfo::launch_uris_as_manager --- Error was : Bad introspection data: "Closure not found! Callable\n { returnType = Just (TBasicType TBoolean)\n , returnMayBeNull = False\n , returnTransfer = TransferNothing\n , args =\n [ Arg\n { argCName = \"_obj\"\n , argType = TInterface \"Gio\" \"DesktopAppInfo\"\n , direction = DirectionIn\n , mayBeNull = False\n , argScope = ScopeTypeInvalid\n , argClosure = -1\n , argDestroy = -1\n , argCallerAllocates = False\n , transfer = TransferNothing\n }\n , Arg\n { argCName = \"uris\"\n , argType = TGList (TBasicType TUTF8)\n , direction = DirectionIn\n , mayBeNull = False\n , argScope = ScopeTypeInvalid\n , argClosure = -1\n , argDestroy = -1\n , argCallerAllocates = False\n , transfer = TransferNothing\n }\n , Arg\n { argCName = \"launch_context\"\n , argType = TInterface \"Gio\" \"AppLaunchContext\"\n , direction = DirectionIn\n , mayBeNull = True\n , argScope = ScopeTypeInvalid\n , argClosure = -1\n , argDestroy = -1\n , argCallerAllocates = False\n , transfer = TransferNothing\n }\n , Arg\n { argCName = \"spawn_flags\"\n , argType = TInterface \"GLib\" \"SpawnFlags\"\n , direction = DirectionIn\n , mayBeNull = False\n , argScope = ScopeTypeInvalid\n , argClosure = -1\n , argDestroy = -1\n , argCallerAllocates = False\n , transfer = TransferNothing\n }\n , Arg\n { argCName = \"user_setup\"\n , argType = TInterface \"GLib\" \"SpawnChildSetupFunc\"\n , direction = DirectionIn\n , mayBeNull = True\n , argScope = ScopeTypeCall\n , argClosure = 5\n , argDestroy = -1\n , argCallerAllocates = False\n , transfer = TransferNothing\n }\n , Arg\n { argCName = \"user_setup_data\"\n , argType = TBasicType TPtr\n , direction = DirectionIn\n , mayBeNull = True\n , argScope = ScopeTypeInvalid\n , argClosure = 4\n , argDestroy = -1\n , argCallerAllocates = False\n , transfer = TransferNothing\n }\n , Arg\n { argCName = \"pid_callback\"\n , argType = TInterface \"Gio\" \"DesktopAppLaunchCallback\"\n , direction = DirectionIn\n , mayBeNull = True\n , argScope = ScopeTypeCall\n , argClosure = 7\n , argDestroy = -1\n , argCallerAllocates = False\n , transfer = TransferNothing\n }\n , Arg\n { argCName = \"pid_callback_data\"\n , argType = TBasicType TPtr\n , direction = DirectionIn\n , mayBeNull = True\n , argScope = ScopeTypeInvalid\n , argClosure = 6\n , argDestroy = -1\n , argCallerAllocates = False\n , transfer = TransferNothing\n }\n ]\n , skipReturn = False\n , callableDeprecated = Nothing\n }\nfromList\n [ ( 5\n , Arg\n { argCName = \"user_setup\"\n , argType = TInterface \"GLib\" \"SpawnChildSetupFunc\"\n , direction = DirectionIn\n , mayBeNull = True\n , argScope = ScopeTypeCall\n , argClosure = 5\n , argDestroy = -1\n , argCallerAllocates = False\n , transfer = TransferNothing\n }\n )\n , ( 7\n , Arg\n { argCName = \"pid_callback\"\n , argType = TInterface \"Gio\" \"DesktopAppLaunchCallback\"\n , direction = DirectionIn\n , mayBeNull = True\n , argScope = ScopeTypeCall\n , argClosure = 7\n , argDestroy = -1\n , argCallerAllocates = False\n , transfer = TransferNothing\n }\n )\n ]\n4" --- XXX: Dummy instance, since code generation failed. --- Please file a bug at http://github.com/haskell-gi/haskell-gi. -data DesktopAppInfoLaunchUrisAsManagerMethodInfo -instance (p ~ (), o ~ MethodResolutionFailed "launchUrisAsManager" DesktopAppInfo) => MethodInfo DesktopAppInfoLaunchUrisAsManagerMethodInfo o p where - overloadedMethod _ = undefined --- method DesktopAppInfo::list_actions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DesktopAppInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_list_actions" g_desktop_app_info_list_actions :: - Ptr DesktopAppInfo -> -- _obj : TInterface "Gio" "DesktopAppInfo" - IO (Ptr CString) - - -desktopAppInfoListActions :: - (MonadIO m, DesktopAppInfoK a) => - a -- _obj - -> m [T.Text] -- result -desktopAppInfoListActions _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_desktop_app_info_list_actions _obj' - checkUnexpectedReturnNULL "g_desktop_app_info_list_actions" result - result' <- unpackZeroTerminatedUTF8CArray result - touchManagedPtr _obj - return result' - -data DesktopAppInfoListActionsMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, DesktopAppInfoK a) => MethodInfo DesktopAppInfoListActionsMethodInfo a signature where - overloadedMethod _ = desktopAppInfoListActions - --- method DesktopAppInfo::get_implementations --- method type : MemberFunction --- Args : [Arg {argCName = "interface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "DesktopAppInfo")) --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_get_implementations" g_desktop_app_info_get_implementations :: - CString -> -- interface : TBasicType TUTF8 - IO (Ptr (GList (Ptr DesktopAppInfo))) - - -desktopAppInfoGetImplementations :: - (MonadIO m) => - T.Text -- interface - -> m [DesktopAppInfo] -- result -desktopAppInfoGetImplementations interface = liftIO $ do - interface' <- textToCString interface - result <- g_desktop_app_info_get_implementations interface' - result' <- unpackGList result - result'' <- mapM (wrapObject DesktopAppInfo) result' - g_list_free result - freeMem interface' - return result'' - --- method DesktopAppInfo::search --- method type : MemberFunction --- Args : [Arg {argCName = "search_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TCArray True (-1) (-1) (TBasicType TUTF8))) --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_search" g_desktop_app_info_search :: - CString -> -- search_string : TBasicType TUTF8 - IO (Ptr (Ptr CString)) - - -desktopAppInfoSearch :: - (MonadIO m) => - T.Text -- searchString - -> m [[T.Text]] -- result -desktopAppInfoSearch searchString = liftIO $ do - searchString' <- textToCString searchString - result <- g_desktop_app_info_search searchString' - checkUnexpectedReturnNULL "g_desktop_app_info_search" result - result' <- unpackZeroTerminatedPtrArray result - result'' <- mapM unpackZeroTerminatedUTF8CArray result' - let freeElemOfResult e = mapZeroTerminatedCArray freeMem e >> freeMem e - mapZeroTerminatedCArray freeElemOfResult result - freeMem result - freeMem searchString' - return result'' - --- method DesktopAppInfo::set_desktop_env --- method type : MemberFunction --- Args : [Arg {argCName = "desktop_env", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_desktop_app_info_set_desktop_env" g_desktop_app_info_set_desktop_env :: - CString -> -- desktop_env : TBasicType TUTF8 - IO () - -{-# DEPRECATED desktopAppInfoSetDesktopEnv ["(Since version 2.42)","do not use this API. Since 2.42 the value of the","`XDG_CURRENT_DESKTOP` environment variable will be used."]#-} -desktopAppInfoSetDesktopEnv :: - (MonadIO m) => - T.Text -- desktopEnv - -> m () -- result -desktopAppInfoSetDesktopEnv desktopEnv = liftIO $ do - desktopEnv' <- textToCString desktopEnv - g_desktop_app_info_set_desktop_env desktopEnv' - freeMem desktopEnv' - return () - - diff --git a/GI/Gio/Objects/DesktopAppInfo.hs-boot b/GI/Gio/Objects/DesktopAppInfo.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/DesktopAppInfo.hs-boot +++ /dev/null @@ -1,29 +0,0 @@ -module GI.Gio.Objects.DesktopAppInfo where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DesktopAppInfo = DesktopAppInfo (ForeignPtr DesktopAppInfo) -instance GObject DesktopAppInfo where -class GObject o => DesktopAppInfoK o -instance (GObject o, IsDescendantOf DesktopAppInfo o) => DesktopAppInfoK o -data DesktopAppInfoFilenamePropertyInfo -data DesktopAppInfoGetActionNameMethodInfo -data DesktopAppInfoGetBooleanMethodInfo -data DesktopAppInfoGetCategoriesMethodInfo -data DesktopAppInfoGetFilenameMethodInfo -data DesktopAppInfoGetGenericNameMethodInfo -data DesktopAppInfoGetIsHiddenMethodInfo -data DesktopAppInfoGetKeywordsMethodInfo -data DesktopAppInfoGetNodisplayMethodInfo -data DesktopAppInfoGetShowInMethodInfo -data DesktopAppInfoGetStartupWmClassMethodInfo -data DesktopAppInfoGetStringMethodInfo -data DesktopAppInfoHasKeyMethodInfo -data DesktopAppInfoLaunchActionMethodInfo -data DesktopAppInfoLaunchUrisAsManagerMethodInfo -data DesktopAppInfoListActionsMethodInfo diff --git a/GI/Gio/Objects/Emblem.hs b/GI/Gio/Objects/Emblem.hs deleted file mode 100644 --- a/GI/Gio/Objects/Emblem.hs +++ /dev/null @@ -1,297 +0,0 @@ - - -{- | -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.Objects.Emblem - ( - --- * Exported types - Emblem(..) , - EmblemK , - toEmblem , - noEmblem , - - - -- * Methods --- ** emblemGetIcon - EmblemGetIconMethodInfo , - emblemGetIcon , - - --- ** emblemGetOrigin - EmblemGetOriginMethodInfo , - emblemGetOrigin , - - --- ** emblemNew - emblemNew , - - --- ** emblemNewWithOrigin - emblemNewWithOrigin , - - - - - -- * Properties --- ** Icon - EmblemIconPropertyInfo , - constructEmblemIcon , - emblemIcon , - getEmblemIcon , - - --- ** Origin - EmblemOriginPropertyInfo , - constructEmblemOrigin , - emblemOrigin , - getEmblemOrigin , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype Emblem = Emblem (ForeignPtr Emblem) -foreign import ccall "g_emblem_get_type" - c_g_emblem_get_type :: IO GType - -type instance ParentTypes Emblem = EmblemParentTypes -type EmblemParentTypes = '[GObject.Object, Icon] - -instance GObject Emblem where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_emblem_get_type - - -class GObject o => EmblemK o -instance (GObject o, IsDescendantOf Emblem o) => EmblemK o - -toEmblem :: EmblemK o => o -> IO Emblem -toEmblem = unsafeCastTo Emblem - -noEmblem :: Maybe Emblem -noEmblem = Nothing - -type family ResolveEmblemMethod (t :: Symbol) (o :: *) :: * where - ResolveEmblemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveEmblemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveEmblemMethod "equal" o = IconEqualMethodInfo - ResolveEmblemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveEmblemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveEmblemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveEmblemMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveEmblemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveEmblemMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveEmblemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveEmblemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveEmblemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveEmblemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveEmblemMethod "serialize" o = IconSerializeMethodInfo - ResolveEmblemMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveEmblemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveEmblemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveEmblemMethod "toString" o = IconToStringMethodInfo - ResolveEmblemMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveEmblemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveEmblemMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveEmblemMethod "getIcon" o = EmblemGetIconMethodInfo - ResolveEmblemMethod "getOrigin" o = EmblemGetOriginMethodInfo - ResolveEmblemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveEmblemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveEmblemMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveEmblemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveEmblemMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEmblemMethod t Emblem, MethodInfo info Emblem p) => IsLabelProxy t (Emblem -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEmblemMethod t Emblem, MethodInfo info Emblem p) => IsLabel t (Emblem -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "icon" - -- Type: TInterface "GObject" "Object" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getEmblemIcon :: (MonadIO m, EmblemK o) => o -> m (Maybe GObject.Object) -getEmblemIcon obj = liftIO $ getObjectPropertyObject obj "icon" GObject.Object - -constructEmblemIcon :: (GObject.ObjectK a) => a -> IO ([Char], GValue) -constructEmblemIcon val = constructObjectPropertyObject "icon" (Just val) - -data EmblemIconPropertyInfo -instance AttrInfo EmblemIconPropertyInfo where - type AttrAllowedOps EmblemIconPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EmblemIconPropertyInfo = GObject.ObjectK - type AttrBaseTypeConstraint EmblemIconPropertyInfo = EmblemK - type AttrGetType EmblemIconPropertyInfo = (Maybe GObject.Object) - type AttrLabel EmblemIconPropertyInfo = "icon" - attrGet _ = getEmblemIcon - attrSet _ = undefined - attrConstruct _ = constructEmblemIcon - attrClear _ = undefined - --- VVV Prop "origin" - -- Type: TInterface "Gio" "EmblemOrigin" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getEmblemOrigin :: (MonadIO m, EmblemK o) => o -> m EmblemOrigin -getEmblemOrigin obj = liftIO $ getObjectPropertyEnum obj "origin" - -constructEmblemOrigin :: EmblemOrigin -> IO ([Char], GValue) -constructEmblemOrigin val = constructObjectPropertyEnum "origin" val - -data EmblemOriginPropertyInfo -instance AttrInfo EmblemOriginPropertyInfo where - type AttrAllowedOps EmblemOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint EmblemOriginPropertyInfo = (~) EmblemOrigin - type AttrBaseTypeConstraint EmblemOriginPropertyInfo = EmblemK - type AttrGetType EmblemOriginPropertyInfo = EmblemOrigin - type AttrLabel EmblemOriginPropertyInfo = "origin" - attrGet _ = getEmblemOrigin - attrSet _ = undefined - attrConstruct _ = constructEmblemOrigin - attrClear _ = undefined - -type instance AttributeList Emblem = EmblemAttributeList -type EmblemAttributeList = ('[ '("icon", EmblemIconPropertyInfo), '("origin", EmblemOriginPropertyInfo)] :: [(Symbol, *)]) - -emblemIcon :: AttrLabelProxy "icon" -emblemIcon = AttrLabelProxy - -emblemOrigin :: AttrLabelProxy "origin" -emblemOrigin = AttrLabelProxy - -type instance SignalList Emblem = EmblemSignalList -type EmblemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Emblem::new --- method type : Constructor --- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Emblem") --- throws : False --- Skip return : False - -foreign import ccall "g_emblem_new" g_emblem_new :: - Ptr Icon -> -- icon : TInterface "Gio" "Icon" - IO (Ptr Emblem) - - -emblemNew :: - (MonadIO m, IconK a) => - a -- icon - -> m Emblem -- result -emblemNew icon = liftIO $ do - let icon' = unsafeManagedPtrCastPtr icon - result <- g_emblem_new icon' - checkUnexpectedReturnNULL "g_emblem_new" result - result' <- (wrapObject Emblem) result - touchManagedPtr icon - return result' - --- method Emblem::new_with_origin --- method type : Constructor --- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TInterface "Gio" "EmblemOrigin", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Emblem") --- throws : False --- Skip return : False - -foreign import ccall "g_emblem_new_with_origin" g_emblem_new_with_origin :: - Ptr Icon -> -- icon : TInterface "Gio" "Icon" - CUInt -> -- origin : TInterface "Gio" "EmblemOrigin" - IO (Ptr Emblem) - - -emblemNewWithOrigin :: - (MonadIO m, IconK a) => - a -- icon - -> EmblemOrigin -- origin - -> m Emblem -- result -emblemNewWithOrigin icon origin = liftIO $ do - let icon' = unsafeManagedPtrCastPtr icon - let origin' = (fromIntegral . fromEnum) origin - result <- g_emblem_new_with_origin icon' origin' - checkUnexpectedReturnNULL "g_emblem_new_with_origin" result - result' <- (wrapObject Emblem) result - touchManagedPtr icon - return result' - --- method Emblem::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "g_emblem_get_icon" g_emblem_get_icon :: - Ptr Emblem -> -- _obj : TInterface "Gio" "Emblem" - IO (Ptr Icon) - - -emblemGetIcon :: - (MonadIO m, EmblemK a) => - a -- _obj - -> m Icon -- result -emblemGetIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_emblem_get_icon _obj' - checkUnexpectedReturnNULL "g_emblem_get_icon" result - result' <- (newObject Icon) result - touchManagedPtr _obj - return result' - -data EmblemGetIconMethodInfo -instance (signature ~ (m Icon), MonadIO m, EmblemK a) => MethodInfo EmblemGetIconMethodInfo a signature where - overloadedMethod _ = emblemGetIcon - --- method Emblem::get_origin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "EmblemOrigin") --- throws : False --- Skip return : False - -foreign import ccall "g_emblem_get_origin" g_emblem_get_origin :: - Ptr Emblem -> -- _obj : TInterface "Gio" "Emblem" - IO CUInt - - -emblemGetOrigin :: - (MonadIO m, EmblemK a) => - a -- _obj - -> m EmblemOrigin -- result -emblemGetOrigin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_emblem_get_origin _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data EmblemGetOriginMethodInfo -instance (signature ~ (m EmblemOrigin), MonadIO m, EmblemK a) => MethodInfo EmblemGetOriginMethodInfo a signature where - overloadedMethod _ = emblemGetOrigin - - diff --git a/GI/Gio/Objects/Emblem.hs-boot b/GI/Gio/Objects/Emblem.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/Emblem.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Objects.Emblem where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Emblem = Emblem (ForeignPtr Emblem) -instance GObject Emblem where -class GObject o => EmblemK o -instance (GObject o, IsDescendantOf Emblem o) => EmblemK o -data EmblemIconPropertyInfo -data EmblemOriginPropertyInfo -data EmblemGetIconMethodInfo -data EmblemGetOriginMethodInfo diff --git a/GI/Gio/Objects/EmblemedIcon.hs b/GI/Gio/Objects/EmblemedIcon.hs deleted file mode 100644 --- a/GI/Gio/Objects/EmblemedIcon.hs +++ /dev/null @@ -1,311 +0,0 @@ - - -{- | -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.Objects.EmblemedIcon - ( - --- * Exported types - EmblemedIcon(..) , - EmblemedIconK , - toEmblemedIcon , - noEmblemedIcon , - - - -- * Methods --- ** emblemedIconAddEmblem - EmblemedIconAddEmblemMethodInfo , - emblemedIconAddEmblem , - - --- ** emblemedIconClearEmblems - EmblemedIconClearEmblemsMethodInfo , - emblemedIconClearEmblems , - - --- ** emblemedIconGetEmblems - EmblemedIconGetEmblemsMethodInfo , - emblemedIconGetEmblems , - - --- ** emblemedIconGetIcon - EmblemedIconGetIconMethodInfo , - emblemedIconGetIcon , - - --- ** emblemedIconNew - emblemedIconNew , - - - - - -- * Properties --- ** Gicon - EmblemedIconGiconPropertyInfo , - constructEmblemedIconGicon , - emblemedIconGicon , - getEmblemedIconGicon , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype EmblemedIcon = EmblemedIcon (ForeignPtr EmblemedIcon) -foreign import ccall "g_emblemed_icon_get_type" - c_g_emblemed_icon_get_type :: IO GType - -type instance ParentTypes EmblemedIcon = EmblemedIconParentTypes -type EmblemedIconParentTypes = '[GObject.Object, Icon] - -instance GObject EmblemedIcon where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_emblemed_icon_get_type - - -class GObject o => EmblemedIconK o -instance (GObject o, IsDescendantOf EmblemedIcon o) => EmblemedIconK o - -toEmblemedIcon :: EmblemedIconK o => o -> IO EmblemedIcon -toEmblemedIcon = unsafeCastTo EmblemedIcon - -noEmblemedIcon :: Maybe EmblemedIcon -noEmblemedIcon = Nothing - -type family ResolveEmblemedIconMethod (t :: Symbol) (o :: *) :: * where - ResolveEmblemedIconMethod "addEmblem" o = EmblemedIconAddEmblemMethodInfo - ResolveEmblemedIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveEmblemedIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveEmblemedIconMethod "clearEmblems" o = EmblemedIconClearEmblemsMethodInfo - ResolveEmblemedIconMethod "equal" o = IconEqualMethodInfo - ResolveEmblemedIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveEmblemedIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveEmblemedIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveEmblemedIconMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveEmblemedIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveEmblemedIconMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveEmblemedIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveEmblemedIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveEmblemedIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveEmblemedIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveEmblemedIconMethod "serialize" o = IconSerializeMethodInfo - ResolveEmblemedIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveEmblemedIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveEmblemedIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveEmblemedIconMethod "toString" o = IconToStringMethodInfo - ResolveEmblemedIconMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveEmblemedIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveEmblemedIconMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveEmblemedIconMethod "getEmblems" o = EmblemedIconGetEmblemsMethodInfo - ResolveEmblemedIconMethod "getIcon" o = EmblemedIconGetIconMethodInfo - ResolveEmblemedIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveEmblemedIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveEmblemedIconMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveEmblemedIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveEmblemedIconMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveEmblemedIconMethod t EmblemedIcon, MethodInfo info EmblemedIcon p) => IsLabelProxy t (EmblemedIcon -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveEmblemedIconMethod t EmblemedIcon, MethodInfo info EmblemedIcon p) => IsLabel t (EmblemedIcon -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "gicon" - -- Type: TInterface "Gio" "Icon" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getEmblemedIconGicon :: (MonadIO m, EmblemedIconK o) => o -> m (Maybe Icon) -getEmblemedIconGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Icon - -constructEmblemedIconGicon :: (IconK a) => a -> IO ([Char], GValue) -constructEmblemedIconGicon val = constructObjectPropertyObject "gicon" (Just val) - -data EmblemedIconGiconPropertyInfo -instance AttrInfo EmblemedIconGiconPropertyInfo where - type AttrAllowedOps EmblemedIconGiconPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint EmblemedIconGiconPropertyInfo = IconK - type AttrBaseTypeConstraint EmblemedIconGiconPropertyInfo = EmblemedIconK - type AttrGetType EmblemedIconGiconPropertyInfo = (Maybe Icon) - type AttrLabel EmblemedIconGiconPropertyInfo = "gicon" - attrGet _ = getEmblemedIconGicon - attrSet _ = undefined - attrConstruct _ = constructEmblemedIconGicon - attrClear _ = undefined - -type instance AttributeList EmblemedIcon = EmblemedIconAttributeList -type EmblemedIconAttributeList = ('[ '("gicon", EmblemedIconGiconPropertyInfo)] :: [(Symbol, *)]) - -emblemedIconGicon :: AttrLabelProxy "gicon" -emblemedIconGicon = AttrLabelProxy - -type instance SignalList EmblemedIcon = EmblemedIconSignalList -type EmblemedIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method EmblemedIcon::new --- method type : Constructor --- Args : [Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "emblem", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "EmblemedIcon") --- throws : False --- Skip return : False - -foreign import ccall "g_emblemed_icon_new" g_emblemed_icon_new :: - Ptr Icon -> -- icon : TInterface "Gio" "Icon" - Ptr Emblem -> -- emblem : TInterface "Gio" "Emblem" - IO (Ptr EmblemedIcon) - - -emblemedIconNew :: - (MonadIO m, IconK a, EmblemK b) => - a -- icon - -> Maybe (b) -- emblem - -> m EmblemedIcon -- result -emblemedIconNew icon emblem = liftIO $ do - let icon' = unsafeManagedPtrCastPtr icon - maybeEmblem <- case emblem of - Nothing -> return nullPtr - Just jEmblem -> do - let jEmblem' = unsafeManagedPtrCastPtr jEmblem - return jEmblem' - result <- g_emblemed_icon_new icon' maybeEmblem - checkUnexpectedReturnNULL "g_emblemed_icon_new" result - result' <- (wrapObject EmblemedIcon) result - touchManagedPtr icon - whenJust emblem touchManagedPtr - return result' - --- method EmblemedIcon::add_emblem --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "emblem", argType = TInterface "Gio" "Emblem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_emblemed_icon_add_emblem" g_emblemed_icon_add_emblem :: - Ptr EmblemedIcon -> -- _obj : TInterface "Gio" "EmblemedIcon" - Ptr Emblem -> -- emblem : TInterface "Gio" "Emblem" - IO () - - -emblemedIconAddEmblem :: - (MonadIO m, EmblemedIconK a, EmblemK b) => - a -- _obj - -> b -- emblem - -> m () -- result -emblemedIconAddEmblem _obj emblem = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let emblem' = unsafeManagedPtrCastPtr emblem - g_emblemed_icon_add_emblem _obj' emblem' - touchManagedPtr _obj - touchManagedPtr emblem - return () - -data EmblemedIconAddEmblemMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, EmblemedIconK a, EmblemK b) => MethodInfo EmblemedIconAddEmblemMethodInfo a signature where - overloadedMethod _ = emblemedIconAddEmblem - --- method EmblemedIcon::clear_emblems --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_emblemed_icon_clear_emblems" g_emblemed_icon_clear_emblems :: - Ptr EmblemedIcon -> -- _obj : TInterface "Gio" "EmblemedIcon" - IO () - - -emblemedIconClearEmblems :: - (MonadIO m, EmblemedIconK a) => - a -- _obj - -> m () -- result -emblemedIconClearEmblems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_emblemed_icon_clear_emblems _obj' - touchManagedPtr _obj - return () - -data EmblemedIconClearEmblemsMethodInfo -instance (signature ~ (m ()), MonadIO m, EmblemedIconK a) => MethodInfo EmblemedIconClearEmblemsMethodInfo a signature where - overloadedMethod _ = emblemedIconClearEmblems - --- method EmblemedIcon::get_emblems --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "Emblem")) --- throws : False --- Skip return : False - -foreign import ccall "g_emblemed_icon_get_emblems" g_emblemed_icon_get_emblems :: - Ptr EmblemedIcon -> -- _obj : TInterface "Gio" "EmblemedIcon" - IO (Ptr (GList (Ptr Emblem))) - - -emblemedIconGetEmblems :: - (MonadIO m, EmblemedIconK a) => - a -- _obj - -> m [Emblem] -- result -emblemedIconGetEmblems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_emblemed_icon_get_emblems _obj' - result' <- unpackGList result - result'' <- mapM (newObject Emblem) result' - touchManagedPtr _obj - return result'' - -data EmblemedIconGetEmblemsMethodInfo -instance (signature ~ (m [Emblem]), MonadIO m, EmblemedIconK a) => MethodInfo EmblemedIconGetEmblemsMethodInfo a signature where - overloadedMethod _ = emblemedIconGetEmblems - --- method EmblemedIcon::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "EmblemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "g_emblemed_icon_get_icon" g_emblemed_icon_get_icon :: - Ptr EmblemedIcon -> -- _obj : TInterface "Gio" "EmblemedIcon" - IO (Ptr Icon) - - -emblemedIconGetIcon :: - (MonadIO m, EmblemedIconK a) => - a -- _obj - -> m Icon -- result -emblemedIconGetIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_emblemed_icon_get_icon _obj' - checkUnexpectedReturnNULL "g_emblemed_icon_get_icon" result - result' <- (newObject Icon) result - touchManagedPtr _obj - return result' - -data EmblemedIconGetIconMethodInfo -instance (signature ~ (m Icon), MonadIO m, EmblemedIconK a) => MethodInfo EmblemedIconGetIconMethodInfo a signature where - overloadedMethod _ = emblemedIconGetIcon - - diff --git a/GI/Gio/Objects/EmblemedIcon.hs-boot b/GI/Gio/Objects/EmblemedIcon.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/EmblemedIcon.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gio.Objects.EmblemedIcon where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype EmblemedIcon = EmblemedIcon (ForeignPtr EmblemedIcon) -instance GObject EmblemedIcon where -class GObject o => EmblemedIconK o -instance (GObject o, IsDescendantOf EmblemedIcon o) => EmblemedIconK o -data EmblemedIconGiconPropertyInfo -data EmblemedIconAddEmblemMethodInfo -data EmblemedIconClearEmblemsMethodInfo -data EmblemedIconGetEmblemsMethodInfo -data EmblemedIconGetIconMethodInfo diff --git a/GI/Gio/Objects/FileEnumerator.hs b/GI/Gio/Objects/FileEnumerator.hs deleted file mode 100644 --- a/GI/Gio/Objects/FileEnumerator.hs +++ /dev/null @@ -1,654 +0,0 @@ - - -{- | -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.Objects.FileEnumerator - ( - --- * Exported types - FileEnumerator(..) , - FileEnumeratorK , - toFileEnumerator , - noFileEnumerator , - - - -- * Methods --- ** fileEnumeratorClose - FileEnumeratorCloseMethodInfo , - fileEnumeratorClose , - - --- ** fileEnumeratorCloseAsync - FileEnumeratorCloseAsyncMethodInfo , - fileEnumeratorCloseAsync , - - --- ** fileEnumeratorCloseFinish - FileEnumeratorCloseFinishMethodInfo , - fileEnumeratorCloseFinish , - - --- ** fileEnumeratorGetChild - FileEnumeratorGetChildMethodInfo , - fileEnumeratorGetChild , - - --- ** fileEnumeratorGetContainer - FileEnumeratorGetContainerMethodInfo , - fileEnumeratorGetContainer , - - --- ** fileEnumeratorHasPending - FileEnumeratorHasPendingMethodInfo , - fileEnumeratorHasPending , - - --- ** fileEnumeratorIsClosed - FileEnumeratorIsClosedMethodInfo , - fileEnumeratorIsClosed , - - --- ** fileEnumeratorIterate - FileEnumeratorIterateMethodInfo , - fileEnumeratorIterate , - - --- ** fileEnumeratorNextFile - FileEnumeratorNextFileMethodInfo , - fileEnumeratorNextFile , - - --- ** fileEnumeratorNextFilesAsync - FileEnumeratorNextFilesAsyncMethodInfo , - fileEnumeratorNextFilesAsync , - - --- ** fileEnumeratorNextFilesFinish - FileEnumeratorNextFilesFinishMethodInfo , - fileEnumeratorNextFilesFinish , - - --- ** fileEnumeratorSetPending - FileEnumeratorSetPendingMethodInfo , - fileEnumeratorSetPending , - - - - - -- * Properties --- ** Container - FileEnumeratorContainerPropertyInfo , - constructFileEnumeratorContainer , - fileEnumeratorContainer , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype FileEnumerator = FileEnumerator (ForeignPtr FileEnumerator) -foreign import ccall "g_file_enumerator_get_type" - c_g_file_enumerator_get_type :: IO GType - -type instance ParentTypes FileEnumerator = FileEnumeratorParentTypes -type FileEnumeratorParentTypes = '[GObject.Object] - -instance GObject FileEnumerator where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_file_enumerator_get_type - - -class GObject o => FileEnumeratorK o -instance (GObject o, IsDescendantOf FileEnumerator o) => FileEnumeratorK o - -toFileEnumerator :: FileEnumeratorK o => o -> IO FileEnumerator -toFileEnumerator = unsafeCastTo FileEnumerator - -noFileEnumerator :: Maybe FileEnumerator -noFileEnumerator = Nothing - -type family ResolveFileEnumeratorMethod (t :: Symbol) (o :: *) :: * where - ResolveFileEnumeratorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFileEnumeratorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFileEnumeratorMethod "close" o = FileEnumeratorCloseMethodInfo - ResolveFileEnumeratorMethod "closeAsync" o = FileEnumeratorCloseAsyncMethodInfo - ResolveFileEnumeratorMethod "closeFinish" o = FileEnumeratorCloseFinishMethodInfo - ResolveFileEnumeratorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFileEnumeratorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFileEnumeratorMethod "hasPending" o = FileEnumeratorHasPendingMethodInfo - ResolveFileEnumeratorMethod "isClosed" o = FileEnumeratorIsClosedMethodInfo - ResolveFileEnumeratorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFileEnumeratorMethod "iterate" o = FileEnumeratorIterateMethodInfo - ResolveFileEnumeratorMethod "nextFile" o = FileEnumeratorNextFileMethodInfo - ResolveFileEnumeratorMethod "nextFilesAsync" o = FileEnumeratorNextFilesAsyncMethodInfo - ResolveFileEnumeratorMethod "nextFilesFinish" o = FileEnumeratorNextFilesFinishMethodInfo - ResolveFileEnumeratorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFileEnumeratorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFileEnumeratorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFileEnumeratorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFileEnumeratorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFileEnumeratorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFileEnumeratorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFileEnumeratorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFileEnumeratorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFileEnumeratorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFileEnumeratorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFileEnumeratorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFileEnumeratorMethod "getChild" o = FileEnumeratorGetChildMethodInfo - ResolveFileEnumeratorMethod "getContainer" o = FileEnumeratorGetContainerMethodInfo - ResolveFileEnumeratorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFileEnumeratorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFileEnumeratorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFileEnumeratorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFileEnumeratorMethod "setPending" o = FileEnumeratorSetPendingMethodInfo - ResolveFileEnumeratorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFileEnumeratorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileEnumeratorMethod t FileEnumerator, MethodInfo info FileEnumerator p) => IsLabelProxy t (FileEnumerator -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileEnumeratorMethod t FileEnumerator, MethodInfo info FileEnumerator p) => IsLabel t (FileEnumerator -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "container" - -- Type: TInterface "Gio" "File" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -constructFileEnumeratorContainer :: (FileK a) => a -> IO ([Char], GValue) -constructFileEnumeratorContainer val = constructObjectPropertyObject "container" (Just val) - -data FileEnumeratorContainerPropertyInfo -instance AttrInfo FileEnumeratorContainerPropertyInfo where - type AttrAllowedOps FileEnumeratorContainerPropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint FileEnumeratorContainerPropertyInfo = FileK - type AttrBaseTypeConstraint FileEnumeratorContainerPropertyInfo = FileEnumeratorK - type AttrGetType FileEnumeratorContainerPropertyInfo = () - type AttrLabel FileEnumeratorContainerPropertyInfo = "container" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructFileEnumeratorContainer - attrClear _ = undefined - -type instance AttributeList FileEnumerator = FileEnumeratorAttributeList -type FileEnumeratorAttributeList = ('[ '("container", FileEnumeratorContainerPropertyInfo)] :: [(Symbol, *)]) - -fileEnumeratorContainer :: AttrLabelProxy "container" -fileEnumeratorContainer = AttrLabelProxy - -type instance SignalList FileEnumerator = FileEnumeratorSignalList -type FileEnumeratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FileEnumerator::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_enumerator_close" g_file_enumerator_close :: - Ptr FileEnumerator -> -- _obj : TInterface "Gio" "FileEnumerator" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileEnumeratorClose :: - (MonadIO m, FileEnumeratorK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -fileEnumeratorClose _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_enumerator_close _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data FileEnumeratorCloseMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, FileEnumeratorK a, CancellableK b) => MethodInfo FileEnumeratorCloseMethodInfo a signature where - overloadedMethod _ = fileEnumeratorClose - --- method FileEnumerator::close_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_enumerator_close_async" g_file_enumerator_close_async :: - Ptr FileEnumerator -> -- _obj : TInterface "Gio" "FileEnumerator" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileEnumeratorCloseAsync :: - (MonadIO m, FileEnumeratorK a, CancellableK b) => - a -- _obj - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileEnumeratorCloseAsync _obj ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_file_enumerator_close_async _obj' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data FileEnumeratorCloseAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileEnumeratorK a, CancellableK b) => MethodInfo FileEnumeratorCloseAsyncMethodInfo a signature where - overloadedMethod _ = fileEnumeratorCloseAsync - --- method FileEnumerator::close_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_enumerator_close_finish" g_file_enumerator_close_finish :: - Ptr FileEnumerator -> -- _obj : TInterface "Gio" "FileEnumerator" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileEnumeratorCloseFinish :: - (MonadIO m, FileEnumeratorK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -fileEnumeratorCloseFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_file_enumerator_close_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data FileEnumeratorCloseFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileEnumeratorK a, AsyncResultK b) => MethodInfo FileEnumeratorCloseFinishMethodInfo a signature where - overloadedMethod _ = fileEnumeratorCloseFinish - --- method FileEnumerator::get_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_file_enumerator_get_child" g_file_enumerator_get_child :: - Ptr FileEnumerator -> -- _obj : TInterface "Gio" "FileEnumerator" - Ptr FileInfo -> -- info : TInterface "Gio" "FileInfo" - IO (Ptr File) - - -fileEnumeratorGetChild :: - (MonadIO m, FileEnumeratorK a, FileInfoK b) => - a -- _obj - -> b -- info - -> m File -- result -fileEnumeratorGetChild _obj info = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let info' = unsafeManagedPtrCastPtr info - result <- g_file_enumerator_get_child _obj' info' - checkUnexpectedReturnNULL "g_file_enumerator_get_child" result - result' <- (wrapObject File) result - touchManagedPtr _obj - touchManagedPtr info - return result' - -data FileEnumeratorGetChildMethodInfo -instance (signature ~ (b -> m File), MonadIO m, FileEnumeratorK a, FileInfoK b) => MethodInfo FileEnumeratorGetChildMethodInfo a signature where - overloadedMethod _ = fileEnumeratorGetChild - --- method FileEnumerator::get_container --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_file_enumerator_get_container" g_file_enumerator_get_container :: - Ptr FileEnumerator -> -- _obj : TInterface "Gio" "FileEnumerator" - IO (Ptr File) - - -fileEnumeratorGetContainer :: - (MonadIO m, FileEnumeratorK a) => - a -- _obj - -> m File -- result -fileEnumeratorGetContainer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_enumerator_get_container _obj' - checkUnexpectedReturnNULL "g_file_enumerator_get_container" result - result' <- (newObject File) result - touchManagedPtr _obj - return result' - -data FileEnumeratorGetContainerMethodInfo -instance (signature ~ (m File), MonadIO m, FileEnumeratorK a) => MethodInfo FileEnumeratorGetContainerMethodInfo a signature where - overloadedMethod _ = fileEnumeratorGetContainer - --- method FileEnumerator::has_pending --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_enumerator_has_pending" g_file_enumerator_has_pending :: - Ptr FileEnumerator -> -- _obj : TInterface "Gio" "FileEnumerator" - IO CInt - - -fileEnumeratorHasPending :: - (MonadIO m, FileEnumeratorK a) => - a -- _obj - -> m Bool -- result -fileEnumeratorHasPending _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_enumerator_has_pending _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileEnumeratorHasPendingMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileEnumeratorK a) => MethodInfo FileEnumeratorHasPendingMethodInfo a signature where - overloadedMethod _ = fileEnumeratorHasPending - --- method FileEnumerator::is_closed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_enumerator_is_closed" g_file_enumerator_is_closed :: - Ptr FileEnumerator -> -- _obj : TInterface "Gio" "FileEnumerator" - IO CInt - - -fileEnumeratorIsClosed :: - (MonadIO m, FileEnumeratorK a) => - a -- _obj - -> m Bool -- result -fileEnumeratorIsClosed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_enumerator_is_closed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileEnumeratorIsClosedMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileEnumeratorK a) => MethodInfo FileEnumeratorIsClosedMethodInfo a signature where - overloadedMethod _ = fileEnumeratorIsClosed - --- method FileEnumerator::iterate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_info", argType = TInterface "Gio" "FileInfo", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_child", argType = TInterface "Gio" "File", direction = DirectionOut, 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_file_enumerator_iterate" g_file_enumerator_iterate :: - Ptr FileEnumerator -> -- _obj : TInterface "Gio" "FileEnumerator" - Ptr (Ptr FileInfo) -> -- out_info : TInterface "Gio" "FileInfo" - Ptr (Ptr File) -> -- out_child : TInterface "Gio" "File" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -fileEnumeratorIterate :: - (MonadIO m, FileEnumeratorK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m (FileInfo,File) -- result -fileEnumeratorIterate _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - outInfo <- allocMem :: IO (Ptr (Ptr FileInfo)) - outChild <- allocMem :: IO (Ptr (Ptr File)) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_file_enumerator_iterate _obj' outInfo outChild maybeCancellable - outInfo' <- peek outInfo - outInfo'' <- (newObject FileInfo) outInfo' - outChild' <- peek outChild - outChild'' <- (newObject File) outChild' - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem outInfo - freeMem outChild - return (outInfo'', outChild'') - ) (do - freeMem outInfo - freeMem outChild - ) - -data FileEnumeratorIterateMethodInfo -instance (signature ~ (Maybe (b) -> m (FileInfo,File)), MonadIO m, FileEnumeratorK a, CancellableK b) => MethodInfo FileEnumeratorIterateMethodInfo a signature where - overloadedMethod _ = fileEnumeratorIterate - --- method FileEnumerator::next_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", 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 : Just (TInterface "Gio" "FileInfo") --- throws : True --- Skip return : False - -foreign import ccall "g_file_enumerator_next_file" g_file_enumerator_next_file :: - Ptr FileEnumerator -> -- _obj : TInterface "Gio" "FileEnumerator" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileInfo) - - -fileEnumeratorNextFile :: - (MonadIO m, FileEnumeratorK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m (Maybe FileInfo) -- result -fileEnumeratorNextFile _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_enumerator_next_file _obj' maybeCancellable - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject FileInfo) result' - return result'' - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return maybeResult - ) (do - return () - ) - -data FileEnumeratorNextFileMethodInfo -instance (signature ~ (Maybe (b) -> m (Maybe FileInfo)), MonadIO m, FileEnumeratorK a, CancellableK b) => MethodInfo FileEnumeratorNextFileMethodInfo a signature where - overloadedMethod _ = fileEnumeratorNextFile - --- method FileEnumerator::next_files_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_files", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_enumerator_next_files_async" g_file_enumerator_next_files_async :: - Ptr FileEnumerator -> -- _obj : TInterface "Gio" "FileEnumerator" - Int32 -> -- num_files : TBasicType TInt - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileEnumeratorNextFilesAsync :: - (MonadIO m, FileEnumeratorK a, CancellableK b) => - a -- _obj - -> Int32 -- numFiles - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileEnumeratorNextFilesAsync _obj numFiles ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_file_enumerator_next_files_async _obj' numFiles ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data FileEnumeratorNextFilesAsyncMethodInfo -instance (signature ~ (Int32 -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileEnumeratorK a, CancellableK b) => MethodInfo FileEnumeratorNextFilesAsyncMethodInfo a signature where - overloadedMethod _ = fileEnumeratorNextFilesAsync - --- method FileEnumerator::next_files_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "FileInfo")) --- throws : True --- Skip return : False - -foreign import ccall "g_file_enumerator_next_files_finish" g_file_enumerator_next_files_finish :: - Ptr FileEnumerator -> -- _obj : TInterface "Gio" "FileEnumerator" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr (GList (Ptr FileInfo))) - - -fileEnumeratorNextFilesFinish :: - (MonadIO m, FileEnumeratorK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m [FileInfo] -- result -fileEnumeratorNextFilesFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_file_enumerator_next_files_finish _obj' result_' - result' <- unpackGList result - result'' <- mapM (wrapObject FileInfo) result' - g_list_free result - touchManagedPtr _obj - touchManagedPtr result_ - return result'' - ) (do - return () - ) - -data FileEnumeratorNextFilesFinishMethodInfo -instance (signature ~ (b -> m [FileInfo]), MonadIO m, FileEnumeratorK a, AsyncResultK b) => MethodInfo FileEnumeratorNextFilesFinishMethodInfo a signature where - overloadedMethod _ = fileEnumeratorNextFilesFinish - --- method FileEnumerator::set_pending --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pending", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_enumerator_set_pending" g_file_enumerator_set_pending :: - Ptr FileEnumerator -> -- _obj : TInterface "Gio" "FileEnumerator" - CInt -> -- pending : TBasicType TBoolean - IO () - - -fileEnumeratorSetPending :: - (MonadIO m, FileEnumeratorK a) => - a -- _obj - -> Bool -- pending - -> m () -- result -fileEnumeratorSetPending _obj pending = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let pending' = (fromIntegral . fromEnum) pending - g_file_enumerator_set_pending _obj' pending' - touchManagedPtr _obj - return () - -data FileEnumeratorSetPendingMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FileEnumeratorK a) => MethodInfo FileEnumeratorSetPendingMethodInfo a signature where - overloadedMethod _ = fileEnumeratorSetPending - - diff --git a/GI/Gio/Objects/FileEnumerator.hs-boot b/GI/Gio/Objects/FileEnumerator.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/FileEnumerator.hs-boot +++ /dev/null @@ -1,26 +0,0 @@ -module GI.Gio.Objects.FileEnumerator where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FileEnumerator = FileEnumerator (ForeignPtr FileEnumerator) -instance GObject FileEnumerator where -class GObject o => FileEnumeratorK o -instance (GObject o, IsDescendantOf FileEnumerator o) => FileEnumeratorK o -data FileEnumeratorContainerPropertyInfo -data FileEnumeratorCloseMethodInfo -data FileEnumeratorCloseAsyncMethodInfo -data FileEnumeratorCloseFinishMethodInfo -data FileEnumeratorGetChildMethodInfo -data FileEnumeratorGetContainerMethodInfo -data FileEnumeratorHasPendingMethodInfo -data FileEnumeratorIsClosedMethodInfo -data FileEnumeratorIterateMethodInfo -data FileEnumeratorNextFileMethodInfo -data FileEnumeratorNextFilesAsyncMethodInfo -data FileEnumeratorNextFilesFinishMethodInfo -data FileEnumeratorSetPendingMethodInfo diff --git a/GI/Gio/Objects/FileIOStream.hs b/GI/Gio/Objects/FileIOStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/FileIOStream.hs +++ /dev/null @@ -1,300 +0,0 @@ - - -{- | -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.Objects.FileIOStream - ( - --- * Exported types - FileIOStream(..) , - FileIOStreamK , - toFileIOStream , - noFileIOStream , - - - -- * Methods --- ** fileIOStreamGetEtag - FileIOStreamGetEtagMethodInfo , - fileIOStreamGetEtag , - - --- ** fileIOStreamQueryInfo - FileIOStreamQueryInfoMethodInfo , - fileIOStreamQueryInfo , - - --- ** fileIOStreamQueryInfoAsync - FileIOStreamQueryInfoAsyncMethodInfo , - fileIOStreamQueryInfoAsync , - - --- ** fileIOStreamQueryInfoFinish - FileIOStreamQueryInfoFinishMethodInfo , - fileIOStreamQueryInfoFinish , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype FileIOStream = FileIOStream (ForeignPtr FileIOStream) -foreign import ccall "g_file_io_stream_get_type" - c_g_file_io_stream_get_type :: IO GType - -type instance ParentTypes FileIOStream = FileIOStreamParentTypes -type FileIOStreamParentTypes = '[IOStream, GObject.Object, Seekable] - -instance GObject FileIOStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_file_io_stream_get_type - - -class GObject o => FileIOStreamK o -instance (GObject o, IsDescendantOf FileIOStream o) => FileIOStreamK o - -toFileIOStream :: FileIOStreamK o => o -> IO FileIOStream -toFileIOStream = unsafeCastTo FileIOStream - -noFileIOStream :: Maybe FileIOStream -noFileIOStream = Nothing - -type family ResolveFileIOStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveFileIOStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFileIOStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFileIOStreamMethod "canSeek" o = SeekableCanSeekMethodInfo - ResolveFileIOStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo - ResolveFileIOStreamMethod "clearPending" o = IOStreamClearPendingMethodInfo - ResolveFileIOStreamMethod "close" o = IOStreamCloseMethodInfo - ResolveFileIOStreamMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo - ResolveFileIOStreamMethod "closeFinish" o = IOStreamCloseFinishMethodInfo - ResolveFileIOStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFileIOStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFileIOStreamMethod "hasPending" o = IOStreamHasPendingMethodInfo - ResolveFileIOStreamMethod "isClosed" o = IOStreamIsClosedMethodInfo - ResolveFileIOStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFileIOStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFileIOStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFileIOStreamMethod "queryInfo" o = FileIOStreamQueryInfoMethodInfo - ResolveFileIOStreamMethod "queryInfoAsync" o = FileIOStreamQueryInfoAsyncMethodInfo - ResolveFileIOStreamMethod "queryInfoFinish" o = FileIOStreamQueryInfoFinishMethodInfo - ResolveFileIOStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFileIOStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFileIOStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFileIOStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFileIOStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFileIOStreamMethod "seek" o = SeekableSeekMethodInfo - ResolveFileIOStreamMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo - ResolveFileIOStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFileIOStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFileIOStreamMethod "tell" o = SeekableTellMethodInfo - ResolveFileIOStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFileIOStreamMethod "truncate" o = SeekableTruncateMethodInfo - ResolveFileIOStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFileIOStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFileIOStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFileIOStreamMethod "getEtag" o = FileIOStreamGetEtagMethodInfo - ResolveFileIOStreamMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo - ResolveFileIOStreamMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo - ResolveFileIOStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFileIOStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFileIOStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFileIOStreamMethod "setPending" o = IOStreamSetPendingMethodInfo - ResolveFileIOStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFileIOStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileIOStreamMethod t FileIOStream, MethodInfo info FileIOStream p) => IsLabelProxy t (FileIOStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileIOStreamMethod t FileIOStream, MethodInfo info FileIOStream p) => IsLabel t (FileIOStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FileIOStream = FileIOStreamAttributeList -type FileIOStreamAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList FileIOStream = FileIOStreamSignalList -type FileIOStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FileIOStream::get_etag --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_io_stream_get_etag" g_file_io_stream_get_etag :: - Ptr FileIOStream -> -- _obj : TInterface "Gio" "FileIOStream" - IO CString - - -fileIOStreamGetEtag :: - (MonadIO m, FileIOStreamK a) => - a -- _obj - -> m T.Text -- result -fileIOStreamGetEtag _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_io_stream_get_etag _obj' - checkUnexpectedReturnNULL "g_file_io_stream_get_etag" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FileIOStreamGetEtagMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileIOStreamK a) => MethodInfo FileIOStreamGetEtagMethodInfo a signature where - overloadedMethod _ = fileIOStreamGetEtag - --- method FileIOStream::query_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", 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 : Just (TInterface "Gio" "FileInfo") --- throws : True --- Skip return : False - -foreign import ccall "g_file_io_stream_query_info" g_file_io_stream_query_info :: - Ptr FileIOStream -> -- _obj : TInterface "Gio" "FileIOStream" - CString -> -- attributes : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileInfo) - - -fileIOStreamQueryInfo :: - (MonadIO m, FileIOStreamK a, CancellableK b) => - a -- _obj - -> T.Text -- attributes - -> Maybe (b) -- cancellable - -> m FileInfo -- result -fileIOStreamQueryInfo _obj attributes cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attributes' <- textToCString attributes - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_io_stream_query_info _obj' attributes' maybeCancellable - checkUnexpectedReturnNULL "g_file_io_stream_query_info" result - result' <- (wrapObject FileInfo) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attributes' - return result' - ) (do - freeMem attributes' - ) - -data FileIOStreamQueryInfoMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> m FileInfo), MonadIO m, FileIOStreamK a, CancellableK b) => MethodInfo FileIOStreamQueryInfoMethodInfo a signature where - overloadedMethod _ = fileIOStreamQueryInfo - --- method FileIOStream::query_info_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_io_stream_query_info_async" g_file_io_stream_query_info_async :: - Ptr FileIOStream -> -- _obj : TInterface "Gio" "FileIOStream" - CString -> -- attributes : TBasicType TUTF8 - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileIOStreamQueryInfoAsync :: - (MonadIO m, FileIOStreamK a, CancellableK b) => - a -- _obj - -> T.Text -- attributes - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileIOStreamQueryInfoAsync _obj attributes ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attributes' <- textToCString attributes - 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_file_io_stream_query_info_async _obj' attributes' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attributes' - return () - -data FileIOStreamQueryInfoAsyncMethodInfo -instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileIOStreamK a, CancellableK b) => MethodInfo FileIOStreamQueryInfoAsyncMethodInfo a signature where - overloadedMethod _ = fileIOStreamQueryInfoAsync - --- method FileIOStream::query_info_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileIOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileInfo") --- throws : True --- Skip return : False - -foreign import ccall "g_file_io_stream_query_info_finish" g_file_io_stream_query_info_finish :: - Ptr FileIOStream -> -- _obj : TInterface "Gio" "FileIOStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr FileInfo) - - -fileIOStreamQueryInfoFinish :: - (MonadIO m, FileIOStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m FileInfo -- result -fileIOStreamQueryInfoFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_file_io_stream_query_info_finish _obj' result_' - checkUnexpectedReturnNULL "g_file_io_stream_query_info_finish" result - result' <- (wrapObject FileInfo) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data FileIOStreamQueryInfoFinishMethodInfo -instance (signature ~ (b -> m FileInfo), MonadIO m, FileIOStreamK a, AsyncResultK b) => MethodInfo FileIOStreamQueryInfoFinishMethodInfo a signature where - overloadedMethod _ = fileIOStreamQueryInfoFinish - - diff --git a/GI/Gio/Objects/FileIOStream.hs-boot b/GI/Gio/Objects/FileIOStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/FileIOStream.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Objects.FileIOStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FileIOStream = FileIOStream (ForeignPtr FileIOStream) -instance GObject FileIOStream where -class GObject o => FileIOStreamK o -instance (GObject o, IsDescendantOf FileIOStream o) => FileIOStreamK o -data FileIOStreamGetEtagMethodInfo -data FileIOStreamQueryInfoMethodInfo -data FileIOStreamQueryInfoAsyncMethodInfo -data FileIOStreamQueryInfoFinishMethodInfo diff --git a/GI/Gio/Objects/FileIcon.hs b/GI/Gio/Objects/FileIcon.hs deleted file mode 100644 --- a/GI/Gio/Objects/FileIcon.hs +++ /dev/null @@ -1,201 +0,0 @@ - - -{- | -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.Objects.FileIcon - ( - --- * Exported types - FileIcon(..) , - FileIconK , - toFileIcon , - noFileIcon , - - - -- * Methods --- ** fileIconGetFile - FileIconGetFileMethodInfo , - fileIconGetFile , - - --- ** fileIconNew - fileIconNew , - - - - - -- * Properties --- ** File - FileIconFilePropertyInfo , - constructFileIconFile , - fileIconFile , - getFileIconFile , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype FileIcon = FileIcon (ForeignPtr FileIcon) -foreign import ccall "g_file_icon_get_type" - c_g_file_icon_get_type :: IO GType - -type instance ParentTypes FileIcon = FileIconParentTypes -type FileIconParentTypes = '[GObject.Object, Icon, LoadableIcon] - -instance GObject FileIcon where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_file_icon_get_type - - -class GObject o => FileIconK o -instance (GObject o, IsDescendantOf FileIcon o) => FileIconK o - -toFileIcon :: FileIconK o => o -> IO FileIcon -toFileIcon = unsafeCastTo FileIcon - -noFileIcon :: Maybe FileIcon -noFileIcon = Nothing - -type family ResolveFileIconMethod (t :: Symbol) (o :: *) :: * where - ResolveFileIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFileIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFileIconMethod "equal" o = IconEqualMethodInfo - ResolveFileIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFileIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFileIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFileIconMethod "load" o = LoadableIconLoadMethodInfo - ResolveFileIconMethod "loadAsync" o = LoadableIconLoadAsyncMethodInfo - ResolveFileIconMethod "loadFinish" o = LoadableIconLoadFinishMethodInfo - ResolveFileIconMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFileIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFileIconMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFileIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFileIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFileIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFileIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFileIconMethod "serialize" o = IconSerializeMethodInfo - ResolveFileIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFileIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFileIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFileIconMethod "toString" o = IconToStringMethodInfo - ResolveFileIconMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFileIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFileIconMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFileIconMethod "getFile" o = FileIconGetFileMethodInfo - ResolveFileIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFileIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFileIconMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFileIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFileIconMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileIconMethod t FileIcon, MethodInfo info FileIcon p) => IsLabelProxy t (FileIcon -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileIconMethod t FileIcon, MethodInfo info FileIcon p) => IsLabel t (FileIcon -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "file" - -- Type: TInterface "Gio" "File" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getFileIconFile :: (MonadIO m, FileIconK o) => o -> m File -getFileIconFile obj = liftIO $ checkUnexpectedNothing "getFileIconFile" $ getObjectPropertyObject obj "file" File - -constructFileIconFile :: (FileK a) => a -> IO ([Char], GValue) -constructFileIconFile val = constructObjectPropertyObject "file" (Just val) - -data FileIconFilePropertyInfo -instance AttrInfo FileIconFilePropertyInfo where - type AttrAllowedOps FileIconFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FileIconFilePropertyInfo = FileK - type AttrBaseTypeConstraint FileIconFilePropertyInfo = FileIconK - type AttrGetType FileIconFilePropertyInfo = File - type AttrLabel FileIconFilePropertyInfo = "file" - attrGet _ = getFileIconFile - attrSet _ = undefined - attrConstruct _ = constructFileIconFile - attrClear _ = undefined - -type instance AttributeList FileIcon = FileIconAttributeList -type FileIconAttributeList = ('[ '("file", FileIconFilePropertyInfo)] :: [(Symbol, *)]) - -fileIconFile :: AttrLabelProxy "file" -fileIconFile = AttrLabelProxy - -type instance SignalList FileIcon = FileIconSignalList -type FileIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FileIcon::new --- method type : Constructor --- Args : [Arg {argCName = "file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileIcon") --- throws : False --- Skip return : False - -foreign import ccall "g_file_icon_new" g_file_icon_new :: - Ptr File -> -- file : TInterface "Gio" "File" - IO (Ptr FileIcon) - - -fileIconNew :: - (MonadIO m, FileK a) => - a -- file - -> m FileIcon -- result -fileIconNew file = liftIO $ do - let file' = unsafeManagedPtrCastPtr file - result <- g_file_icon_new file' - checkUnexpectedReturnNULL "g_file_icon_new" result - result' <- (wrapObject FileIcon) result - touchManagedPtr file - return result' - --- method FileIcon::get_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_file_icon_get_file" g_file_icon_get_file :: - Ptr FileIcon -> -- _obj : TInterface "Gio" "FileIcon" - IO (Ptr File) - - -fileIconGetFile :: - (MonadIO m, FileIconK a) => - a -- _obj - -> m File -- result -fileIconGetFile _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_icon_get_file _obj' - checkUnexpectedReturnNULL "g_file_icon_get_file" result - result' <- (newObject File) result - touchManagedPtr _obj - return result' - -data FileIconGetFileMethodInfo -instance (signature ~ (m File), MonadIO m, FileIconK a) => MethodInfo FileIconGetFileMethodInfo a signature where - overloadedMethod _ = fileIconGetFile - - diff --git a/GI/Gio/Objects/FileIcon.hs-boot b/GI/Gio/Objects/FileIcon.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/FileIcon.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gio.Objects.FileIcon where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FileIcon = FileIcon (ForeignPtr FileIcon) -instance GObject FileIcon where -class GObject o => FileIconK o -instance (GObject o, IsDescendantOf FileIcon o) => FileIconK o -data FileIconFilePropertyInfo -data FileIconGetFileMethodInfo diff --git a/GI/Gio/Objects/FileInfo.hs b/GI/Gio/Objects/FileInfo.hs deleted file mode 100644 --- a/GI/Gio/Objects/FileInfo.hs +++ /dev/null @@ -1,2429 +0,0 @@ - - -{- | -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.Objects.FileInfo - ( - --- * Exported types - FileInfo(..) , - FileInfoK , - toFileInfo , - noFileInfo , - - - -- * Methods --- ** fileInfoClearStatus - FileInfoClearStatusMethodInfo , - fileInfoClearStatus , - - --- ** fileInfoCopyInto - FileInfoCopyIntoMethodInfo , - fileInfoCopyInto , - - --- ** fileInfoDup - FileInfoDupMethodInfo , - fileInfoDup , - - --- ** fileInfoGetAttributeAsString - FileInfoGetAttributeAsStringMethodInfo , - fileInfoGetAttributeAsString , - - --- ** fileInfoGetAttributeBoolean - FileInfoGetAttributeBooleanMethodInfo , - fileInfoGetAttributeBoolean , - - --- ** fileInfoGetAttributeByteString - FileInfoGetAttributeByteStringMethodInfo, - fileInfoGetAttributeByteString , - - --- ** fileInfoGetAttributeData - FileInfoGetAttributeDataMethodInfo , - fileInfoGetAttributeData , - - --- ** fileInfoGetAttributeInt32 - FileInfoGetAttributeInt32MethodInfo , - fileInfoGetAttributeInt32 , - - --- ** fileInfoGetAttributeInt64 - FileInfoGetAttributeInt64MethodInfo , - fileInfoGetAttributeInt64 , - - --- ** fileInfoGetAttributeObject - FileInfoGetAttributeObjectMethodInfo , - fileInfoGetAttributeObject , - - --- ** fileInfoGetAttributeStatus - FileInfoGetAttributeStatusMethodInfo , - fileInfoGetAttributeStatus , - - --- ** fileInfoGetAttributeString - FileInfoGetAttributeStringMethodInfo , - fileInfoGetAttributeString , - - --- ** fileInfoGetAttributeStringv - FileInfoGetAttributeStringvMethodInfo , - fileInfoGetAttributeStringv , - - --- ** fileInfoGetAttributeType - FileInfoGetAttributeTypeMethodInfo , - fileInfoGetAttributeType , - - --- ** fileInfoGetAttributeUint32 - FileInfoGetAttributeUint32MethodInfo , - fileInfoGetAttributeUint32 , - - --- ** fileInfoGetAttributeUint64 - FileInfoGetAttributeUint64MethodInfo , - fileInfoGetAttributeUint64 , - - --- ** fileInfoGetContentType - FileInfoGetContentTypeMethodInfo , - fileInfoGetContentType , - - --- ** fileInfoGetDeletionDate - FileInfoGetDeletionDateMethodInfo , - fileInfoGetDeletionDate , - - --- ** fileInfoGetDisplayName - FileInfoGetDisplayNameMethodInfo , - fileInfoGetDisplayName , - - --- ** fileInfoGetEditName - FileInfoGetEditNameMethodInfo , - fileInfoGetEditName , - - --- ** fileInfoGetEtag - FileInfoGetEtagMethodInfo , - fileInfoGetEtag , - - --- ** fileInfoGetFileType - FileInfoGetFileTypeMethodInfo , - fileInfoGetFileType , - - --- ** fileInfoGetIcon - FileInfoGetIconMethodInfo , - fileInfoGetIcon , - - --- ** fileInfoGetIsBackup - FileInfoGetIsBackupMethodInfo , - fileInfoGetIsBackup , - - --- ** fileInfoGetIsHidden - FileInfoGetIsHiddenMethodInfo , - fileInfoGetIsHidden , - - --- ** fileInfoGetIsSymlink - FileInfoGetIsSymlinkMethodInfo , - fileInfoGetIsSymlink , - - --- ** fileInfoGetModificationTime - FileInfoGetModificationTimeMethodInfo , - fileInfoGetModificationTime , - - --- ** fileInfoGetName - FileInfoGetNameMethodInfo , - fileInfoGetName , - - --- ** fileInfoGetSize - FileInfoGetSizeMethodInfo , - fileInfoGetSize , - - --- ** fileInfoGetSortOrder - FileInfoGetSortOrderMethodInfo , - fileInfoGetSortOrder , - - --- ** fileInfoGetSymbolicIcon - FileInfoGetSymbolicIconMethodInfo , - fileInfoGetSymbolicIcon , - - --- ** fileInfoGetSymlinkTarget - FileInfoGetSymlinkTargetMethodInfo , - fileInfoGetSymlinkTarget , - - --- ** fileInfoHasAttribute - FileInfoHasAttributeMethodInfo , - fileInfoHasAttribute , - - --- ** fileInfoHasNamespace - FileInfoHasNamespaceMethodInfo , - fileInfoHasNamespace , - - --- ** fileInfoListAttributes - FileInfoListAttributesMethodInfo , - fileInfoListAttributes , - - --- ** fileInfoNew - fileInfoNew , - - --- ** fileInfoRemoveAttribute - FileInfoRemoveAttributeMethodInfo , - fileInfoRemoveAttribute , - - --- ** fileInfoSetAttribute - FileInfoSetAttributeMethodInfo , - fileInfoSetAttribute , - - --- ** fileInfoSetAttributeBoolean - FileInfoSetAttributeBooleanMethodInfo , - fileInfoSetAttributeBoolean , - - --- ** fileInfoSetAttributeByteString - FileInfoSetAttributeByteStringMethodInfo, - fileInfoSetAttributeByteString , - - --- ** fileInfoSetAttributeInt32 - FileInfoSetAttributeInt32MethodInfo , - fileInfoSetAttributeInt32 , - - --- ** fileInfoSetAttributeInt64 - FileInfoSetAttributeInt64MethodInfo , - fileInfoSetAttributeInt64 , - - --- ** fileInfoSetAttributeMask - FileInfoSetAttributeMaskMethodInfo , - fileInfoSetAttributeMask , - - --- ** fileInfoSetAttributeObject - FileInfoSetAttributeObjectMethodInfo , - fileInfoSetAttributeObject , - - --- ** fileInfoSetAttributeStatus - FileInfoSetAttributeStatusMethodInfo , - fileInfoSetAttributeStatus , - - --- ** fileInfoSetAttributeString - FileInfoSetAttributeStringMethodInfo , - fileInfoSetAttributeString , - - --- ** fileInfoSetAttributeStringv - FileInfoSetAttributeStringvMethodInfo , - fileInfoSetAttributeStringv , - - --- ** fileInfoSetAttributeUint32 - FileInfoSetAttributeUint32MethodInfo , - fileInfoSetAttributeUint32 , - - --- ** fileInfoSetAttributeUint64 - FileInfoSetAttributeUint64MethodInfo , - fileInfoSetAttributeUint64 , - - --- ** fileInfoSetContentType - FileInfoSetContentTypeMethodInfo , - fileInfoSetContentType , - - --- ** fileInfoSetDisplayName - FileInfoSetDisplayNameMethodInfo , - fileInfoSetDisplayName , - - --- ** fileInfoSetEditName - FileInfoSetEditNameMethodInfo , - fileInfoSetEditName , - - --- ** fileInfoSetFileType - FileInfoSetFileTypeMethodInfo , - fileInfoSetFileType , - - --- ** fileInfoSetIcon - FileInfoSetIconMethodInfo , - fileInfoSetIcon , - - --- ** fileInfoSetIsHidden - FileInfoSetIsHiddenMethodInfo , - fileInfoSetIsHidden , - - --- ** fileInfoSetIsSymlink - FileInfoSetIsSymlinkMethodInfo , - fileInfoSetIsSymlink , - - --- ** fileInfoSetModificationTime - FileInfoSetModificationTimeMethodInfo , - fileInfoSetModificationTime , - - --- ** fileInfoSetName - FileInfoSetNameMethodInfo , - fileInfoSetName , - - --- ** fileInfoSetSize - FileInfoSetSizeMethodInfo , - fileInfoSetSize , - - --- ** fileInfoSetSortOrder - FileInfoSetSortOrderMethodInfo , - fileInfoSetSortOrder , - - --- ** fileInfoSetSymbolicIcon - FileInfoSetSymbolicIconMethodInfo , - fileInfoSetSymbolicIcon , - - --- ** fileInfoSetSymlinkTarget - FileInfoSetSymlinkTargetMethodInfo , - fileInfoSetSymlinkTarget , - - --- ** fileInfoUnsetAttributeMask - FileInfoUnsetAttributeMaskMethodInfo , - fileInfoUnsetAttributeMask , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype FileInfo = FileInfo (ForeignPtr FileInfo) -foreign import ccall "g_file_info_get_type" - c_g_file_info_get_type :: IO GType - -type instance ParentTypes FileInfo = FileInfoParentTypes -type FileInfoParentTypes = '[GObject.Object] - -instance GObject FileInfo where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_file_info_get_type - - -class GObject o => FileInfoK o -instance (GObject o, IsDescendantOf FileInfo o) => FileInfoK o - -toFileInfo :: FileInfoK o => o -> IO FileInfo -toFileInfo = unsafeCastTo FileInfo - -noFileInfo :: Maybe FileInfo -noFileInfo = Nothing - -type family ResolveFileInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveFileInfoMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFileInfoMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFileInfoMethod "clearStatus" o = FileInfoClearStatusMethodInfo - ResolveFileInfoMethod "copyInto" o = FileInfoCopyIntoMethodInfo - ResolveFileInfoMethod "dup" o = FileInfoDupMethodInfo - ResolveFileInfoMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFileInfoMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFileInfoMethod "hasAttribute" o = FileInfoHasAttributeMethodInfo - ResolveFileInfoMethod "hasNamespace" o = FileInfoHasNamespaceMethodInfo - ResolveFileInfoMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFileInfoMethod "listAttributes" o = FileInfoListAttributesMethodInfo - ResolveFileInfoMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFileInfoMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFileInfoMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFileInfoMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFileInfoMethod "removeAttribute" o = FileInfoRemoveAttributeMethodInfo - ResolveFileInfoMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFileInfoMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFileInfoMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFileInfoMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFileInfoMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFileInfoMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFileInfoMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFileInfoMethod "unsetAttributeMask" o = FileInfoUnsetAttributeMaskMethodInfo - ResolveFileInfoMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFileInfoMethod "getAttributeAsString" o = FileInfoGetAttributeAsStringMethodInfo - ResolveFileInfoMethod "getAttributeBoolean" o = FileInfoGetAttributeBooleanMethodInfo - ResolveFileInfoMethod "getAttributeByteString" o = FileInfoGetAttributeByteStringMethodInfo - ResolveFileInfoMethod "getAttributeData" o = FileInfoGetAttributeDataMethodInfo - ResolveFileInfoMethod "getAttributeInt32" o = FileInfoGetAttributeInt32MethodInfo - ResolveFileInfoMethod "getAttributeInt64" o = FileInfoGetAttributeInt64MethodInfo - ResolveFileInfoMethod "getAttributeObject" o = FileInfoGetAttributeObjectMethodInfo - ResolveFileInfoMethod "getAttributeStatus" o = FileInfoGetAttributeStatusMethodInfo - ResolveFileInfoMethod "getAttributeString" o = FileInfoGetAttributeStringMethodInfo - ResolveFileInfoMethod "getAttributeStringv" o = FileInfoGetAttributeStringvMethodInfo - ResolveFileInfoMethod "getAttributeType" o = FileInfoGetAttributeTypeMethodInfo - ResolveFileInfoMethod "getAttributeUint32" o = FileInfoGetAttributeUint32MethodInfo - ResolveFileInfoMethod "getAttributeUint64" o = FileInfoGetAttributeUint64MethodInfo - ResolveFileInfoMethod "getContentType" o = FileInfoGetContentTypeMethodInfo - ResolveFileInfoMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFileInfoMethod "getDeletionDate" o = FileInfoGetDeletionDateMethodInfo - ResolveFileInfoMethod "getDisplayName" o = FileInfoGetDisplayNameMethodInfo - ResolveFileInfoMethod "getEditName" o = FileInfoGetEditNameMethodInfo - ResolveFileInfoMethod "getEtag" o = FileInfoGetEtagMethodInfo - ResolveFileInfoMethod "getFileType" o = FileInfoGetFileTypeMethodInfo - ResolveFileInfoMethod "getIcon" o = FileInfoGetIconMethodInfo - ResolveFileInfoMethod "getIsBackup" o = FileInfoGetIsBackupMethodInfo - ResolveFileInfoMethod "getIsHidden" o = FileInfoGetIsHiddenMethodInfo - ResolveFileInfoMethod "getIsSymlink" o = FileInfoGetIsSymlinkMethodInfo - ResolveFileInfoMethod "getModificationTime" o = FileInfoGetModificationTimeMethodInfo - ResolveFileInfoMethod "getName" o = FileInfoGetNameMethodInfo - ResolveFileInfoMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFileInfoMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFileInfoMethod "getSize" o = FileInfoGetSizeMethodInfo - ResolveFileInfoMethod "getSortOrder" o = FileInfoGetSortOrderMethodInfo - ResolveFileInfoMethod "getSymbolicIcon" o = FileInfoGetSymbolicIconMethodInfo - ResolveFileInfoMethod "getSymlinkTarget" o = FileInfoGetSymlinkTargetMethodInfo - ResolveFileInfoMethod "setAttribute" o = FileInfoSetAttributeMethodInfo - ResolveFileInfoMethod "setAttributeBoolean" o = FileInfoSetAttributeBooleanMethodInfo - ResolveFileInfoMethod "setAttributeByteString" o = FileInfoSetAttributeByteStringMethodInfo - ResolveFileInfoMethod "setAttributeInt32" o = FileInfoSetAttributeInt32MethodInfo - ResolveFileInfoMethod "setAttributeInt64" o = FileInfoSetAttributeInt64MethodInfo - ResolveFileInfoMethod "setAttributeMask" o = FileInfoSetAttributeMaskMethodInfo - ResolveFileInfoMethod "setAttributeObject" o = FileInfoSetAttributeObjectMethodInfo - ResolveFileInfoMethod "setAttributeStatus" o = FileInfoSetAttributeStatusMethodInfo - ResolveFileInfoMethod "setAttributeString" o = FileInfoSetAttributeStringMethodInfo - ResolveFileInfoMethod "setAttributeStringv" o = FileInfoSetAttributeStringvMethodInfo - ResolveFileInfoMethod "setAttributeUint32" o = FileInfoSetAttributeUint32MethodInfo - ResolveFileInfoMethod "setAttributeUint64" o = FileInfoSetAttributeUint64MethodInfo - ResolveFileInfoMethod "setContentType" o = FileInfoSetContentTypeMethodInfo - ResolveFileInfoMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFileInfoMethod "setDisplayName" o = FileInfoSetDisplayNameMethodInfo - ResolveFileInfoMethod "setEditName" o = FileInfoSetEditNameMethodInfo - ResolveFileInfoMethod "setFileType" o = FileInfoSetFileTypeMethodInfo - ResolveFileInfoMethod "setIcon" o = FileInfoSetIconMethodInfo - ResolveFileInfoMethod "setIsHidden" o = FileInfoSetIsHiddenMethodInfo - ResolveFileInfoMethod "setIsSymlink" o = FileInfoSetIsSymlinkMethodInfo - ResolveFileInfoMethod "setModificationTime" o = FileInfoSetModificationTimeMethodInfo - ResolveFileInfoMethod "setName" o = FileInfoSetNameMethodInfo - ResolveFileInfoMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFileInfoMethod "setSize" o = FileInfoSetSizeMethodInfo - ResolveFileInfoMethod "setSortOrder" o = FileInfoSetSortOrderMethodInfo - ResolveFileInfoMethod "setSymbolicIcon" o = FileInfoSetSymbolicIconMethodInfo - ResolveFileInfoMethod "setSymlinkTarget" o = FileInfoSetSymlinkTargetMethodInfo - ResolveFileInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileInfoMethod t FileInfo, MethodInfo info FileInfo p) => IsLabelProxy t (FileInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileInfoMethod t FileInfo, MethodInfo info FileInfo p) => IsLabel t (FileInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FileInfo = FileInfoAttributeList -type FileInfoAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList FileInfo = FileInfoSignalList -type FileInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FileInfo::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_new" g_file_info_new :: - IO (Ptr FileInfo) - - -fileInfoNew :: - (MonadIO m) => - m FileInfo -- result -fileInfoNew = liftIO $ do - result <- g_file_info_new - checkUnexpectedReturnNULL "g_file_info_new" result - result' <- (wrapObject FileInfo) result - return result' - --- method FileInfo::clear_status --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_clear_status" g_file_info_clear_status :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO () - - -fileInfoClearStatus :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m () -- result -fileInfoClearStatus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_file_info_clear_status _obj' - touchManagedPtr _obj - return () - -data FileInfoClearStatusMethodInfo -instance (signature ~ (m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoClearStatusMethodInfo a signature where - overloadedMethod _ = fileInfoClearStatus - --- method FileInfo::copy_into --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_copy_into" g_file_info_copy_into :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - Ptr FileInfo -> -- dest_info : TInterface "Gio" "FileInfo" - IO () - - -fileInfoCopyInto :: - (MonadIO m, FileInfoK a, FileInfoK b) => - a -- _obj - -> b -- destInfo - -> m () -- result -fileInfoCopyInto _obj destInfo = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let destInfo' = unsafeManagedPtrCastPtr destInfo - g_file_info_copy_into _obj' destInfo' - touchManagedPtr _obj - touchManagedPtr destInfo - return () - -data FileInfoCopyIntoMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileInfoK a, FileInfoK b) => MethodInfo FileInfoCopyIntoMethodInfo a signature where - overloadedMethod _ = fileInfoCopyInto - --- method FileInfo::dup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_dup" g_file_info_dup :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO (Ptr FileInfo) - - -fileInfoDup :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m FileInfo -- result -fileInfoDup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_dup _obj' - checkUnexpectedReturnNULL "g_file_info_dup" result - result' <- (wrapObject FileInfo) result - touchManagedPtr _obj - return result' - -data FileInfoDupMethodInfo -instance (signature ~ (m FileInfo), MonadIO m, FileInfoK a) => MethodInfo FileInfoDupMethodInfo a signature where - overloadedMethod _ = fileInfoDup - --- method FileInfo::get_attribute_as_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_attribute_as_string" g_file_info_get_attribute_as_string :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - IO CString - - -fileInfoGetAttributeAsString :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> m T.Text -- result -fileInfoGetAttributeAsString _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - result <- g_file_info_get_attribute_as_string _obj' attribute' - checkUnexpectedReturnNULL "g_file_info_get_attribute_as_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem attribute' - return result' - -data FileInfoGetAttributeAsStringMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeAsStringMethodInfo a signature where - overloadedMethod _ = fileInfoGetAttributeAsString - --- method FileInfo::get_attribute_boolean --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_attribute_boolean" g_file_info_get_attribute_boolean :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - IO CInt - - -fileInfoGetAttributeBoolean :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> m Bool -- result -fileInfoGetAttributeBoolean _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - result <- g_file_info_get_attribute_boolean _obj' attribute' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem attribute' - return result' - -data FileInfoGetAttributeBooleanMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeBooleanMethodInfo a signature where - overloadedMethod _ = fileInfoGetAttributeBoolean - --- method FileInfo::get_attribute_byte_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_attribute_byte_string" g_file_info_get_attribute_byte_string :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - IO CString - - -fileInfoGetAttributeByteString :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> m T.Text -- result -fileInfoGetAttributeByteString _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - result <- g_file_info_get_attribute_byte_string _obj' attribute' - checkUnexpectedReturnNULL "g_file_info_get_attribute_byte_string" result - result' <- cstringToText result - touchManagedPtr _obj - freeMem attribute' - return result' - -data FileInfoGetAttributeByteStringMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeByteStringMethodInfo a signature where - overloadedMethod _ = fileInfoGetAttributeByteString - --- method FileInfo::get_attribute_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "value_pp", argType = TBasicType TPtr, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "status", argType = TInterface "Gio" "FileAttributeStatus", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_attribute_data" g_file_info_get_attribute_data :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - Ptr CUInt -> -- type : TInterface "Gio" "FileAttributeType" - Ptr (Ptr ()) -> -- value_pp : TBasicType TPtr - Ptr CUInt -> -- status : TInterface "Gio" "FileAttributeStatus" - IO CInt - - -fileInfoGetAttributeData :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> m (Bool,FileAttributeType,(Ptr ()),FileAttributeStatus)-- result -fileInfoGetAttributeData _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - type_ <- allocMem :: IO (Ptr CUInt) - valuePp <- allocMem :: IO (Ptr (Ptr ())) - status <- allocMem :: IO (Ptr CUInt) - result <- g_file_info_get_attribute_data _obj' attribute' type_ valuePp status - let result' = (/= 0) result - type_' <- peek type_ - let type_'' = (toEnum . fromIntegral) type_' - valuePp' <- peek valuePp - status' <- peek status - let status'' = (toEnum . fromIntegral) status' - touchManagedPtr _obj - freeMem attribute' - freeMem type_ - freeMem valuePp - freeMem status - return (result', type_'', valuePp', status'') - -data FileInfoGetAttributeDataMethodInfo -instance (signature ~ (T.Text -> m (Bool,FileAttributeType,(Ptr ()),FileAttributeStatus)), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeDataMethodInfo a signature where - overloadedMethod _ = fileInfoGetAttributeData - --- method FileInfo::get_attribute_int32 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_attribute_int32" g_file_info_get_attribute_int32 :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - IO Int32 - - -fileInfoGetAttributeInt32 :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> m Int32 -- result -fileInfoGetAttributeInt32 _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - result <- g_file_info_get_attribute_int32 _obj' attribute' - touchManagedPtr _obj - freeMem attribute' - return result - -data FileInfoGetAttributeInt32MethodInfo -instance (signature ~ (T.Text -> m Int32), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeInt32MethodInfo a signature where - overloadedMethod _ = fileInfoGetAttributeInt32 - --- method FileInfo::get_attribute_int64 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_attribute_int64" g_file_info_get_attribute_int64 :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - IO Int64 - - -fileInfoGetAttributeInt64 :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> m Int64 -- result -fileInfoGetAttributeInt64 _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - result <- g_file_info_get_attribute_int64 _obj' attribute' - touchManagedPtr _obj - freeMem attribute' - return result - -data FileInfoGetAttributeInt64MethodInfo -instance (signature ~ (T.Text -> m Int64), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeInt64MethodInfo a signature where - overloadedMethod _ = fileInfoGetAttributeInt64 - --- method FileInfo::get_attribute_object --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GObject" "Object") --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_attribute_object" g_file_info_get_attribute_object :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - IO (Ptr GObject.Object) - - -fileInfoGetAttributeObject :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> m GObject.Object -- result -fileInfoGetAttributeObject _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - result <- g_file_info_get_attribute_object _obj' attribute' - checkUnexpectedReturnNULL "g_file_info_get_attribute_object" result - result' <- (newObject GObject.Object) result - touchManagedPtr _obj - freeMem attribute' - return result' - -data FileInfoGetAttributeObjectMethodInfo -instance (signature ~ (T.Text -> m GObject.Object), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeObjectMethodInfo a signature where - overloadedMethod _ = fileInfoGetAttributeObject - --- method FileInfo::get_attribute_status --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileAttributeStatus") --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_attribute_status" g_file_info_get_attribute_status :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - IO CUInt - - -fileInfoGetAttributeStatus :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> m FileAttributeStatus -- result -fileInfoGetAttributeStatus _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - result <- g_file_info_get_attribute_status _obj' attribute' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - freeMem attribute' - return result' - -data FileInfoGetAttributeStatusMethodInfo -instance (signature ~ (T.Text -> m FileAttributeStatus), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeStatusMethodInfo a signature where - overloadedMethod _ = fileInfoGetAttributeStatus - --- method FileInfo::get_attribute_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_attribute_string" g_file_info_get_attribute_string :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - IO CString - - -fileInfoGetAttributeString :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> m T.Text -- result -fileInfoGetAttributeString _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - result <- g_file_info_get_attribute_string _obj' attribute' - checkUnexpectedReturnNULL "g_file_info_get_attribute_string" result - result' <- cstringToText result - touchManagedPtr _obj - freeMem attribute' - return result' - -data FileInfoGetAttributeStringMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeStringMethodInfo a signature where - overloadedMethod _ = fileInfoGetAttributeString - --- method FileInfo::get_attribute_stringv --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_attribute_stringv" g_file_info_get_attribute_stringv :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - IO (Ptr CString) - - -fileInfoGetAttributeStringv :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> m [T.Text] -- result -fileInfoGetAttributeStringv _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - result <- g_file_info_get_attribute_stringv _obj' attribute' - checkUnexpectedReturnNULL "g_file_info_get_attribute_stringv" result - result' <- unpackZeroTerminatedUTF8CArray result - touchManagedPtr _obj - freeMem attribute' - return result' - -data FileInfoGetAttributeStringvMethodInfo -instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeStringvMethodInfo a signature where - overloadedMethod _ = fileInfoGetAttributeStringv - --- method FileInfo::get_attribute_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileAttributeType") --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_attribute_type" g_file_info_get_attribute_type :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - IO CUInt - - -fileInfoGetAttributeType :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> m FileAttributeType -- result -fileInfoGetAttributeType _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - result <- g_file_info_get_attribute_type _obj' attribute' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - freeMem attribute' - return result' - -data FileInfoGetAttributeTypeMethodInfo -instance (signature ~ (T.Text -> m FileAttributeType), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeTypeMethodInfo a signature where - overloadedMethod _ = fileInfoGetAttributeType - --- method FileInfo::get_attribute_uint32 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_attribute_uint32" g_file_info_get_attribute_uint32 :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - IO Word32 - - -fileInfoGetAttributeUint32 :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> m Word32 -- result -fileInfoGetAttributeUint32 _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - result <- g_file_info_get_attribute_uint32 _obj' attribute' - touchManagedPtr _obj - freeMem attribute' - return result - -data FileInfoGetAttributeUint32MethodInfo -instance (signature ~ (T.Text -> m Word32), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeUint32MethodInfo a signature where - overloadedMethod _ = fileInfoGetAttributeUint32 - --- method FileInfo::get_attribute_uint64 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_attribute_uint64" g_file_info_get_attribute_uint64 :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - IO Word64 - - -fileInfoGetAttributeUint64 :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> m Word64 -- result -fileInfoGetAttributeUint64 _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - result <- g_file_info_get_attribute_uint64 _obj' attribute' - touchManagedPtr _obj - freeMem attribute' - return result - -data FileInfoGetAttributeUint64MethodInfo -instance (signature ~ (T.Text -> m Word64), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetAttributeUint64MethodInfo a signature where - overloadedMethod _ = fileInfoGetAttributeUint64 - --- method FileInfo::get_content_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_content_type" g_file_info_get_content_type :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO CString - - -fileInfoGetContentType :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m T.Text -- result -fileInfoGetContentType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_content_type _obj' - checkUnexpectedReturnNULL "g_file_info_get_content_type" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FileInfoGetContentTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetContentTypeMethodInfo a signature where - overloadedMethod _ = fileInfoGetContentType - --- method FileInfo::get_deletion_date --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "DateTime") --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_deletion_date" g_file_info_get_deletion_date :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO (Ptr GLib.DateTime) - - -fileInfoGetDeletionDate :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m GLib.DateTime -- result -fileInfoGetDeletionDate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_deletion_date _obj' - checkUnexpectedReturnNULL "g_file_info_get_deletion_date" result - result' <- (wrapBoxed GLib.DateTime) result - touchManagedPtr _obj - return result' - -data FileInfoGetDeletionDateMethodInfo -instance (signature ~ (m GLib.DateTime), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetDeletionDateMethodInfo a signature where - overloadedMethod _ = fileInfoGetDeletionDate - --- method FileInfo::get_display_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_display_name" g_file_info_get_display_name :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO CString - - -fileInfoGetDisplayName :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m T.Text -- result -fileInfoGetDisplayName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_display_name _obj' - checkUnexpectedReturnNULL "g_file_info_get_display_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FileInfoGetDisplayNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetDisplayNameMethodInfo a signature where - overloadedMethod _ = fileInfoGetDisplayName - --- method FileInfo::get_edit_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_edit_name" g_file_info_get_edit_name :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO CString - - -fileInfoGetEditName :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m T.Text -- result -fileInfoGetEditName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_edit_name _obj' - checkUnexpectedReturnNULL "g_file_info_get_edit_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FileInfoGetEditNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetEditNameMethodInfo a signature where - overloadedMethod _ = fileInfoGetEditName - --- method FileInfo::get_etag --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_etag" g_file_info_get_etag :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO CString - - -fileInfoGetEtag :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m T.Text -- result -fileInfoGetEtag _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_etag _obj' - checkUnexpectedReturnNULL "g_file_info_get_etag" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FileInfoGetEtagMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetEtagMethodInfo a signature where - overloadedMethod _ = fileInfoGetEtag - --- method FileInfo::get_file_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileType") --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_file_type" g_file_info_get_file_type :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO CUInt - - -fileInfoGetFileType :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m FileType -- result -fileInfoGetFileType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_file_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data FileInfoGetFileTypeMethodInfo -instance (signature ~ (m FileType), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetFileTypeMethodInfo a signature where - overloadedMethod _ = fileInfoGetFileType - --- method FileInfo::get_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_icon" g_file_info_get_icon :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO (Ptr Icon) - - -fileInfoGetIcon :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m Icon -- result -fileInfoGetIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_icon _obj' - checkUnexpectedReturnNULL "g_file_info_get_icon" result - result' <- (newObject Icon) result - touchManagedPtr _obj - return result' - -data FileInfoGetIconMethodInfo -instance (signature ~ (m Icon), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetIconMethodInfo a signature where - overloadedMethod _ = fileInfoGetIcon - --- method FileInfo::get_is_backup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_is_backup" g_file_info_get_is_backup :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO CInt - - -fileInfoGetIsBackup :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m Bool -- result -fileInfoGetIsBackup _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_is_backup _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileInfoGetIsBackupMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetIsBackupMethodInfo a signature where - overloadedMethod _ = fileInfoGetIsBackup - --- method FileInfo::get_is_hidden --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_is_hidden" g_file_info_get_is_hidden :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO CInt - - -fileInfoGetIsHidden :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m Bool -- result -fileInfoGetIsHidden _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_is_hidden _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileInfoGetIsHiddenMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetIsHiddenMethodInfo a signature where - overloadedMethod _ = fileInfoGetIsHidden - --- method FileInfo::get_is_symlink --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_is_symlink" g_file_info_get_is_symlink :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO CInt - - -fileInfoGetIsSymlink :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m Bool -- result -fileInfoGetIsSymlink _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_is_symlink _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileInfoGetIsSymlinkMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetIsSymlinkMethodInfo a signature where - overloadedMethod _ = fileInfoGetIsSymlink - --- method FileInfo::get_modification_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "GLib" "TimeVal", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_modification_time" g_file_info_get_modification_time :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - Ptr GLib.TimeVal -> -- result : TInterface "GLib" "TimeVal" - IO () - - -fileInfoGetModificationTime :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m (GLib.TimeVal) -- result -fileInfoGetModificationTime _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result_ <- callocBytes 16 :: IO (Ptr GLib.TimeVal) - g_file_info_get_modification_time _obj' result_ - result_' <- (wrapPtr GLib.TimeVal) result_ - touchManagedPtr _obj - return result_' - -data FileInfoGetModificationTimeMethodInfo -instance (signature ~ (m (GLib.TimeVal)), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetModificationTimeMethodInfo a signature where - overloadedMethod _ = fileInfoGetModificationTime - --- method FileInfo::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_name" g_file_info_get_name :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO CString - - -fileInfoGetName :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m T.Text -- result -fileInfoGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_name _obj' - checkUnexpectedReturnNULL "g_file_info_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FileInfoGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetNameMethodInfo a signature where - overloadedMethod _ = fileInfoGetName - --- method FileInfo::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_size" g_file_info_get_size :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO Int64 - - -fileInfoGetSize :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m Int64 -- result -fileInfoGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_size _obj' - touchManagedPtr _obj - return result - -data FileInfoGetSizeMethodInfo -instance (signature ~ (m Int64), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetSizeMethodInfo a signature where - overloadedMethod _ = fileInfoGetSize - --- method FileInfo::get_sort_order --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_sort_order" g_file_info_get_sort_order :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO Int32 - - -fileInfoGetSortOrder :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m Int32 -- result -fileInfoGetSortOrder _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_sort_order _obj' - touchManagedPtr _obj - return result - -data FileInfoGetSortOrderMethodInfo -instance (signature ~ (m Int32), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetSortOrderMethodInfo a signature where - overloadedMethod _ = fileInfoGetSortOrder - --- method FileInfo::get_symbolic_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_symbolic_icon" g_file_info_get_symbolic_icon :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO (Ptr Icon) - - -fileInfoGetSymbolicIcon :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m Icon -- result -fileInfoGetSymbolicIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_symbolic_icon _obj' - checkUnexpectedReturnNULL "g_file_info_get_symbolic_icon" result - result' <- (newObject Icon) result - touchManagedPtr _obj - return result' - -data FileInfoGetSymbolicIconMethodInfo -instance (signature ~ (m Icon), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetSymbolicIconMethodInfo a signature where - overloadedMethod _ = fileInfoGetSymbolicIcon - --- method FileInfo::get_symlink_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_get_symlink_target" g_file_info_get_symlink_target :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO CString - - -fileInfoGetSymlinkTarget :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m T.Text -- result -fileInfoGetSymlinkTarget _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_info_get_symlink_target _obj' - checkUnexpectedReturnNULL "g_file_info_get_symlink_target" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FileInfoGetSymlinkTargetMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileInfoK a) => MethodInfo FileInfoGetSymlinkTargetMethodInfo a signature where - overloadedMethod _ = fileInfoGetSymlinkTarget - --- method FileInfo::has_attribute --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_has_attribute" g_file_info_has_attribute :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - IO CInt - - -fileInfoHasAttribute :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> m Bool -- result -fileInfoHasAttribute _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - result <- g_file_info_has_attribute _obj' attribute' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem attribute' - return result' - -data FileInfoHasAttributeMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, FileInfoK a) => MethodInfo FileInfoHasAttributeMethodInfo a signature where - overloadedMethod _ = fileInfoHasAttribute - --- method FileInfo::has_namespace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_space", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_has_namespace" g_file_info_has_namespace :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- name_space : TBasicType TUTF8 - IO CInt - - -fileInfoHasNamespace :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- nameSpace - -> m Bool -- result -fileInfoHasNamespace _obj nameSpace = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - nameSpace' <- textToCString nameSpace - result <- g_file_info_has_namespace _obj' nameSpace' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem nameSpace' - return result' - -data FileInfoHasNamespaceMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, FileInfoK a) => MethodInfo FileInfoHasNamespaceMethodInfo a signature where - overloadedMethod _ = fileInfoHasNamespace - --- method FileInfo::list_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name_space", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_list_attributes" g_file_info_list_attributes :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- name_space : TBasicType TUTF8 - IO (Ptr CString) - - -fileInfoListAttributes :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- nameSpace - -> m (Maybe [T.Text]) -- result -fileInfoListAttributes _obj nameSpace = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - nameSpace' <- textToCString nameSpace - result <- g_file_info_list_attributes _obj' nameSpace' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- unpackZeroTerminatedUTF8CArray result' - mapZeroTerminatedCArray freeMem result' - freeMem result' - return result'' - touchManagedPtr _obj - freeMem nameSpace' - return maybeResult - -data FileInfoListAttributesMethodInfo -instance (signature ~ (T.Text -> m (Maybe [T.Text])), MonadIO m, FileInfoK a) => MethodInfo FileInfoListAttributesMethodInfo a signature where - overloadedMethod _ = fileInfoListAttributes - --- method FileInfo::remove_attribute --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_remove_attribute" g_file_info_remove_attribute :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - IO () - - -fileInfoRemoveAttribute :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> m () -- result -fileInfoRemoveAttribute _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - g_file_info_remove_attribute _obj' attribute' - touchManagedPtr _obj - freeMem attribute' - return () - -data FileInfoRemoveAttributeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoRemoveAttributeMethodInfo a signature where - overloadedMethod _ = fileInfoRemoveAttribute - --- method FileInfo::set_attribute --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value_p", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_attribute" g_file_info_set_attribute :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - CUInt -> -- type : TInterface "Gio" "FileAttributeType" - Ptr () -> -- value_p : TBasicType TPtr - IO () - - -fileInfoSetAttribute :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> FileAttributeType -- type_ - -> Ptr () -- valueP - -> m () -- result -fileInfoSetAttribute _obj attribute type_ valueP = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - let type_' = (fromIntegral . fromEnum) type_ - g_file_info_set_attribute _obj' attribute' type_' valueP - touchManagedPtr _obj - freeMem attribute' - return () - -data FileInfoSetAttributeMethodInfo -instance (signature ~ (T.Text -> FileAttributeType -> Ptr () -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeMethodInfo a signature where - overloadedMethod _ = fileInfoSetAttribute - --- method FileInfo::set_attribute_boolean --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_attribute_boolean" g_file_info_set_attribute_boolean :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - CInt -> -- attr_value : TBasicType TBoolean - IO () - - -fileInfoSetAttributeBoolean :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> Bool -- attrValue - -> m () -- result -fileInfoSetAttributeBoolean _obj attribute attrValue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - let attrValue' = (fromIntegral . fromEnum) attrValue - g_file_info_set_attribute_boolean _obj' attribute' attrValue' - touchManagedPtr _obj - freeMem attribute' - return () - -data FileInfoSetAttributeBooleanMethodInfo -instance (signature ~ (T.Text -> Bool -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeBooleanMethodInfo a signature where - overloadedMethod _ = fileInfoSetAttributeBoolean - --- method FileInfo::set_attribute_byte_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_attribute_byte_string" g_file_info_set_attribute_byte_string :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - CString -> -- attr_value : TBasicType TUTF8 - IO () - - -fileInfoSetAttributeByteString :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> T.Text -- attrValue - -> m () -- result -fileInfoSetAttributeByteString _obj attribute attrValue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - attrValue' <- textToCString attrValue - g_file_info_set_attribute_byte_string _obj' attribute' attrValue' - touchManagedPtr _obj - freeMem attribute' - freeMem attrValue' - return () - -data FileInfoSetAttributeByteStringMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeByteStringMethodInfo a signature where - overloadedMethod _ = fileInfoSetAttributeByteString - --- method FileInfo::set_attribute_int32 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_attribute_int32" g_file_info_set_attribute_int32 :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - Int32 -> -- attr_value : TBasicType TInt32 - IO () - - -fileInfoSetAttributeInt32 :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> Int32 -- attrValue - -> m () -- result -fileInfoSetAttributeInt32 _obj attribute attrValue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - g_file_info_set_attribute_int32 _obj' attribute' attrValue - touchManagedPtr _obj - freeMem attribute' - return () - -data FileInfoSetAttributeInt32MethodInfo -instance (signature ~ (T.Text -> Int32 -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeInt32MethodInfo a signature where - overloadedMethod _ = fileInfoSetAttributeInt32 - --- method FileInfo::set_attribute_int64 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_attribute_int64" g_file_info_set_attribute_int64 :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - Int64 -> -- attr_value : TBasicType TInt64 - IO () - - -fileInfoSetAttributeInt64 :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> Int64 -- attrValue - -> m () -- result -fileInfoSetAttributeInt64 _obj attribute attrValue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - g_file_info_set_attribute_int64 _obj' attribute' attrValue - touchManagedPtr _obj - freeMem attribute' - return () - -data FileInfoSetAttributeInt64MethodInfo -instance (signature ~ (T.Text -> Int64 -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeInt64MethodInfo a signature where - overloadedMethod _ = fileInfoSetAttributeInt64 - --- method FileInfo::set_attribute_mask --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mask", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_attribute_mask" g_file_info_set_attribute_mask :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - Ptr FileAttributeMatcher -> -- mask : TInterface "Gio" "FileAttributeMatcher" - IO () - - -fileInfoSetAttributeMask :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> FileAttributeMatcher -- mask - -> m () -- result -fileInfoSetAttributeMask _obj mask = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mask' = unsafeManagedPtrGetPtr mask - g_file_info_set_attribute_mask _obj' mask' - touchManagedPtr _obj - touchManagedPtr mask - return () - -data FileInfoSetAttributeMaskMethodInfo -instance (signature ~ (FileAttributeMatcher -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeMaskMethodInfo a signature where - overloadedMethod _ = fileInfoSetAttributeMask - --- method FileInfo::set_attribute_object --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_attribute_object" g_file_info_set_attribute_object :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - Ptr GObject.Object -> -- attr_value : TInterface "GObject" "Object" - IO () - - -fileInfoSetAttributeObject :: - (MonadIO m, FileInfoK a, GObject.ObjectK b) => - a -- _obj - -> T.Text -- attribute - -> b -- attrValue - -> m () -- result -fileInfoSetAttributeObject _obj attribute attrValue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - let attrValue' = unsafeManagedPtrCastPtr attrValue - g_file_info_set_attribute_object _obj' attribute' attrValue' - touchManagedPtr _obj - touchManagedPtr attrValue - freeMem attribute' - return () - -data FileInfoSetAttributeObjectMethodInfo -instance (signature ~ (T.Text -> b -> m ()), MonadIO m, FileInfoK a, GObject.ObjectK b) => MethodInfo FileInfoSetAttributeObjectMethodInfo a signature where - overloadedMethod _ = fileInfoSetAttributeObject - --- method FileInfo::set_attribute_status --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status", argType = TInterface "Gio" "FileAttributeStatus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_attribute_status" g_file_info_set_attribute_status :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - CUInt -> -- status : TInterface "Gio" "FileAttributeStatus" - IO CInt - - -fileInfoSetAttributeStatus :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> FileAttributeStatus -- status - -> m Bool -- result -fileInfoSetAttributeStatus _obj attribute status = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - let status' = (fromIntegral . fromEnum) status - result <- g_file_info_set_attribute_status _obj' attribute' status' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem attribute' - return result' - -data FileInfoSetAttributeStatusMethodInfo -instance (signature ~ (T.Text -> FileAttributeStatus -> m Bool), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeStatusMethodInfo a signature where - overloadedMethod _ = fileInfoSetAttributeStatus - --- method FileInfo::set_attribute_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_attribute_string" g_file_info_set_attribute_string :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - CString -> -- attr_value : TBasicType TUTF8 - IO () - - -fileInfoSetAttributeString :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> T.Text -- attrValue - -> m () -- result -fileInfoSetAttributeString _obj attribute attrValue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - attrValue' <- textToCString attrValue - g_file_info_set_attribute_string _obj' attribute' attrValue' - touchManagedPtr _obj - freeMem attribute' - freeMem attrValue' - return () - -data FileInfoSetAttributeStringMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeStringMethodInfo a signature where - overloadedMethod _ = fileInfoSetAttributeString - --- method FileInfo::set_attribute_stringv --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_attribute_stringv" g_file_info_set_attribute_stringv :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - Ptr CString -> -- attr_value : TCArray False (-1) (-1) (TBasicType TUTF8) - IO () - - -fileInfoSetAttributeStringv :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> Ptr CString -- attrValue - -> m () -- result -fileInfoSetAttributeStringv _obj attribute attrValue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - g_file_info_set_attribute_stringv _obj' attribute' attrValue - touchManagedPtr _obj - freeMem attribute' - return () - -data FileInfoSetAttributeStringvMethodInfo -instance (signature ~ (T.Text -> Ptr CString -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeStringvMethodInfo a signature where - overloadedMethod _ = fileInfoSetAttributeStringv - --- method FileInfo::set_attribute_uint32 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_attribute_uint32" g_file_info_set_attribute_uint32 :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - Word32 -> -- attr_value : TBasicType TUInt32 - IO () - - -fileInfoSetAttributeUint32 :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> Word32 -- attrValue - -> m () -- result -fileInfoSetAttributeUint32 _obj attribute attrValue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - g_file_info_set_attribute_uint32 _obj' attribute' attrValue - touchManagedPtr _obj - freeMem attribute' - return () - -data FileInfoSetAttributeUint32MethodInfo -instance (signature ~ (T.Text -> Word32 -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeUint32MethodInfo a signature where - overloadedMethod _ = fileInfoSetAttributeUint32 - --- method FileInfo::set_attribute_uint64 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attr_value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_attribute_uint64" g_file_info_set_attribute_uint64 :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- attribute : TBasicType TUTF8 - Word64 -> -- attr_value : TBasicType TUInt64 - IO () - - -fileInfoSetAttributeUint64 :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- attribute - -> Word64 -- attrValue - -> m () -- result -fileInfoSetAttributeUint64 _obj attribute attrValue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - g_file_info_set_attribute_uint64 _obj' attribute' attrValue - touchManagedPtr _obj - freeMem attribute' - return () - -data FileInfoSetAttributeUint64MethodInfo -instance (signature ~ (T.Text -> Word64 -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetAttributeUint64MethodInfo a signature where - overloadedMethod _ = fileInfoSetAttributeUint64 - --- method FileInfo::set_content_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_content_type" g_file_info_set_content_type :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- content_type : TBasicType TUTF8 - IO () - - -fileInfoSetContentType :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- contentType - -> m () -- result -fileInfoSetContentType _obj contentType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - contentType' <- textToCString contentType - g_file_info_set_content_type _obj' contentType' - touchManagedPtr _obj - freeMem contentType' - return () - -data FileInfoSetContentTypeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetContentTypeMethodInfo a signature where - overloadedMethod _ = fileInfoSetContentType - --- method FileInfo::set_display_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_display_name" g_file_info_set_display_name :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- display_name : TBasicType TUTF8 - IO () - - -fileInfoSetDisplayName :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- displayName - -> m () -- result -fileInfoSetDisplayName _obj displayName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - displayName' <- textToCString displayName - g_file_info_set_display_name _obj' displayName' - touchManagedPtr _obj - freeMem displayName' - return () - -data FileInfoSetDisplayNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetDisplayNameMethodInfo a signature where - overloadedMethod _ = fileInfoSetDisplayName - --- method FileInfo::set_edit_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edit_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_edit_name" g_file_info_set_edit_name :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- edit_name : TBasicType TUTF8 - IO () - - -fileInfoSetEditName :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- editName - -> m () -- result -fileInfoSetEditName _obj editName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - editName' <- textToCString editName - g_file_info_set_edit_name _obj' editName' - touchManagedPtr _obj - freeMem editName' - return () - -data FileInfoSetEditNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetEditNameMethodInfo a signature where - overloadedMethod _ = fileInfoSetEditName - --- method FileInfo::set_file_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "FileType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_file_type" g_file_info_set_file_type :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CUInt -> -- type : TInterface "Gio" "FileType" - IO () - - -fileInfoSetFileType :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> FileType -- type_ - -> m () -- result -fileInfoSetFileType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - g_file_info_set_file_type _obj' type_' - touchManagedPtr _obj - return () - -data FileInfoSetFileTypeMethodInfo -instance (signature ~ (FileType -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetFileTypeMethodInfo a signature where - overloadedMethod _ = fileInfoSetFileType - --- method FileInfo::set_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_icon" g_file_info_set_icon :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - Ptr Icon -> -- icon : TInterface "Gio" "Icon" - IO () - - -fileInfoSetIcon :: - (MonadIO m, FileInfoK a, IconK b) => - a -- _obj - -> b -- icon - -> m () -- result -fileInfoSetIcon _obj icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon' = unsafeManagedPtrCastPtr icon - g_file_info_set_icon _obj' icon' - touchManagedPtr _obj - touchManagedPtr icon - return () - -data FileInfoSetIconMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileInfoK a, IconK b) => MethodInfo FileInfoSetIconMethodInfo a signature where - overloadedMethod _ = fileInfoSetIcon - --- method FileInfo::set_is_hidden --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_is_hidden" g_file_info_set_is_hidden :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CInt -> -- is_hidden : TBasicType TBoolean - IO () - - -fileInfoSetIsHidden :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> Bool -- isHidden - -> m () -- result -fileInfoSetIsHidden _obj isHidden = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let isHidden' = (fromIntegral . fromEnum) isHidden - g_file_info_set_is_hidden _obj' isHidden' - touchManagedPtr _obj - return () - -data FileInfoSetIsHiddenMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetIsHiddenMethodInfo a signature where - overloadedMethod _ = fileInfoSetIsHidden - --- method FileInfo::set_is_symlink --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_symlink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_is_symlink" g_file_info_set_is_symlink :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CInt -> -- is_symlink : TBasicType TBoolean - IO () - - -fileInfoSetIsSymlink :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> Bool -- isSymlink - -> m () -- result -fileInfoSetIsSymlink _obj isSymlink = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let isSymlink' = (fromIntegral . fromEnum) isSymlink - g_file_info_set_is_symlink _obj' isSymlink' - touchManagedPtr _obj - return () - -data FileInfoSetIsSymlinkMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetIsSymlinkMethodInfo a signature where - overloadedMethod _ = fileInfoSetIsSymlink - --- method FileInfo::set_modification_time --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mtime", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_modification_time" g_file_info_set_modification_time :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - Ptr GLib.TimeVal -> -- mtime : TInterface "GLib" "TimeVal" - IO () - - -fileInfoSetModificationTime :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> GLib.TimeVal -- mtime - -> m () -- result -fileInfoSetModificationTime _obj mtime = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mtime' = unsafeManagedPtrGetPtr mtime - g_file_info_set_modification_time _obj' mtime' - touchManagedPtr _obj - touchManagedPtr mtime - return () - -data FileInfoSetModificationTimeMethodInfo -instance (signature ~ (GLib.TimeVal -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetModificationTimeMethodInfo a signature where - overloadedMethod _ = fileInfoSetModificationTime - --- method FileInfo::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_name" g_file_info_set_name :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- name : TBasicType TUTF8 - IO () - - -fileInfoSetName :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- name - -> m () -- result -fileInfoSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - g_file_info_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data FileInfoSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetNameMethodInfo a signature where - overloadedMethod _ = fileInfoSetName - --- method FileInfo::set_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_size" g_file_info_set_size :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - Int64 -> -- size : TBasicType TInt64 - IO () - - -fileInfoSetSize :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> Int64 -- size - -> m () -- result -fileInfoSetSize _obj size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_file_info_set_size _obj' size - touchManagedPtr _obj - return () - -data FileInfoSetSizeMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetSizeMethodInfo a signature where - overloadedMethod _ = fileInfoSetSize - --- method FileInfo::set_sort_order --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_order", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_sort_order" g_file_info_set_sort_order :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - Int32 -> -- sort_order : TBasicType TInt32 - IO () - - -fileInfoSetSortOrder :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> Int32 -- sortOrder - -> m () -- result -fileInfoSetSortOrder _obj sortOrder = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_file_info_set_sort_order _obj' sortOrder - touchManagedPtr _obj - return () - -data FileInfoSetSortOrderMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetSortOrderMethodInfo a signature where - overloadedMethod _ = fileInfoSetSortOrder - --- method FileInfo::set_symbolic_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_symbolic_icon" g_file_info_set_symbolic_icon :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - Ptr Icon -> -- icon : TInterface "Gio" "Icon" - IO () - - -fileInfoSetSymbolicIcon :: - (MonadIO m, FileInfoK a, IconK b) => - a -- _obj - -> b -- icon - -> m () -- result -fileInfoSetSymbolicIcon _obj icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon' = unsafeManagedPtrCastPtr icon - g_file_info_set_symbolic_icon _obj' icon' - touchManagedPtr _obj - touchManagedPtr icon - return () - -data FileInfoSetSymbolicIconMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, FileInfoK a, IconK b) => MethodInfo FileInfoSetSymbolicIconMethodInfo a signature where - overloadedMethod _ = fileInfoSetSymbolicIcon - --- method FileInfo::set_symlink_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "symlink_target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_set_symlink_target" g_file_info_set_symlink_target :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - CString -> -- symlink_target : TBasicType TUTF8 - IO () - - -fileInfoSetSymlinkTarget :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> T.Text -- symlinkTarget - -> m () -- result -fileInfoSetSymlinkTarget _obj symlinkTarget = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - symlinkTarget' <- textToCString symlinkTarget - g_file_info_set_symlink_target _obj' symlinkTarget' - touchManagedPtr _obj - freeMem symlinkTarget' - return () - -data FileInfoSetSymlinkTargetMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoSetSymlinkTargetMethodInfo a signature where - overloadedMethod _ = fileInfoSetSymlinkTarget - --- method FileInfo::unset_attribute_mask --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_info_unset_attribute_mask" g_file_info_unset_attribute_mask :: - Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo" - IO () - - -fileInfoUnsetAttributeMask :: - (MonadIO m, FileInfoK a) => - a -- _obj - -> m () -- result -fileInfoUnsetAttributeMask _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_file_info_unset_attribute_mask _obj' - touchManagedPtr _obj - return () - -data FileInfoUnsetAttributeMaskMethodInfo -instance (signature ~ (m ()), MonadIO m, FileInfoK a) => MethodInfo FileInfoUnsetAttributeMaskMethodInfo a signature where - overloadedMethod _ = fileInfoUnsetAttributeMask - - diff --git a/GI/Gio/Objects/FileInfo.hs-boot b/GI/Gio/Objects/FileInfo.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/FileInfo.hs-boot +++ /dev/null @@ -1,75 +0,0 @@ -module GI.Gio.Objects.FileInfo where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FileInfo = FileInfo (ForeignPtr FileInfo) -instance GObject FileInfo where -class GObject o => FileInfoK o -instance (GObject o, IsDescendantOf FileInfo o) => FileInfoK o -data FileInfoClearStatusMethodInfo -data FileInfoCopyIntoMethodInfo -data FileInfoDupMethodInfo -data FileInfoGetAttributeAsStringMethodInfo -data FileInfoGetAttributeBooleanMethodInfo -data FileInfoGetAttributeByteStringMethodInfo -data FileInfoGetAttributeDataMethodInfo -data FileInfoGetAttributeInt32MethodInfo -data FileInfoGetAttributeInt64MethodInfo -data FileInfoGetAttributeObjectMethodInfo -data FileInfoGetAttributeStatusMethodInfo -data FileInfoGetAttributeStringMethodInfo -data FileInfoGetAttributeStringvMethodInfo -data FileInfoGetAttributeTypeMethodInfo -data FileInfoGetAttributeUint32MethodInfo -data FileInfoGetAttributeUint64MethodInfo -data FileInfoGetContentTypeMethodInfo -data FileInfoGetDeletionDateMethodInfo -data FileInfoGetDisplayNameMethodInfo -data FileInfoGetEditNameMethodInfo -data FileInfoGetEtagMethodInfo -data FileInfoGetFileTypeMethodInfo -data FileInfoGetIconMethodInfo -data FileInfoGetIsBackupMethodInfo -data FileInfoGetIsHiddenMethodInfo -data FileInfoGetIsSymlinkMethodInfo -data FileInfoGetModificationTimeMethodInfo -data FileInfoGetNameMethodInfo -data FileInfoGetSizeMethodInfo -data FileInfoGetSortOrderMethodInfo -data FileInfoGetSymbolicIconMethodInfo -data FileInfoGetSymlinkTargetMethodInfo -data FileInfoHasAttributeMethodInfo -data FileInfoHasNamespaceMethodInfo -data FileInfoListAttributesMethodInfo -data FileInfoRemoveAttributeMethodInfo -data FileInfoSetAttributeMethodInfo -data FileInfoSetAttributeBooleanMethodInfo -data FileInfoSetAttributeByteStringMethodInfo -data FileInfoSetAttributeInt32MethodInfo -data FileInfoSetAttributeInt64MethodInfo -data FileInfoSetAttributeMaskMethodInfo -data FileInfoSetAttributeObjectMethodInfo -data FileInfoSetAttributeStatusMethodInfo -data FileInfoSetAttributeStringMethodInfo -data FileInfoSetAttributeStringvMethodInfo -data FileInfoSetAttributeUint32MethodInfo -data FileInfoSetAttributeUint64MethodInfo -data FileInfoSetContentTypeMethodInfo -data FileInfoSetDisplayNameMethodInfo -data FileInfoSetEditNameMethodInfo -data FileInfoSetFileTypeMethodInfo -data FileInfoSetIconMethodInfo -data FileInfoSetIsHiddenMethodInfo -data FileInfoSetIsSymlinkMethodInfo -data FileInfoSetModificationTimeMethodInfo -data FileInfoSetNameMethodInfo -data FileInfoSetSizeMethodInfo -data FileInfoSetSortOrderMethodInfo -data FileInfoSetSymbolicIconMethodInfo -data FileInfoSetSymlinkTargetMethodInfo -data FileInfoUnsetAttributeMaskMethodInfo diff --git a/GI/Gio/Objects/FileInputStream.hs b/GI/Gio/Objects/FileInputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/FileInputStream.hs +++ /dev/null @@ -1,273 +0,0 @@ - - -{- | -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.Objects.FileInputStream - ( - --- * Exported types - FileInputStream(..) , - FileInputStreamK , - toFileInputStream , - noFileInputStream , - - - -- * Methods --- ** fileInputStreamQueryInfo - FileInputStreamQueryInfoMethodInfo , - fileInputStreamQueryInfo , - - --- ** fileInputStreamQueryInfoAsync - FileInputStreamQueryInfoAsyncMethodInfo , - fileInputStreamQueryInfoAsync , - - --- ** fileInputStreamQueryInfoFinish - FileInputStreamQueryInfoFinishMethodInfo, - fileInputStreamQueryInfoFinish , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype FileInputStream = FileInputStream (ForeignPtr FileInputStream) -foreign import ccall "g_file_input_stream_get_type" - c_g_file_input_stream_get_type :: IO GType - -type instance ParentTypes FileInputStream = FileInputStreamParentTypes -type FileInputStreamParentTypes = '[InputStream, GObject.Object, Seekable] - -instance GObject FileInputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_file_input_stream_get_type - - -class GObject o => FileInputStreamK o -instance (GObject o, IsDescendantOf FileInputStream o) => FileInputStreamK o - -toFileInputStream :: FileInputStreamK o => o -> IO FileInputStream -toFileInputStream = unsafeCastTo FileInputStream - -noFileInputStream :: Maybe FileInputStream -noFileInputStream = Nothing - -type family ResolveFileInputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveFileInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFileInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFileInputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo - ResolveFileInputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo - ResolveFileInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo - ResolveFileInputStreamMethod "close" o = InputStreamCloseMethodInfo - ResolveFileInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo - ResolveFileInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo - ResolveFileInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFileInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFileInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo - ResolveFileInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo - ResolveFileInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFileInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFileInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFileInputStreamMethod "queryInfo" o = FileInputStreamQueryInfoMethodInfo - ResolveFileInputStreamMethod "queryInfoAsync" o = FileInputStreamQueryInfoAsyncMethodInfo - ResolveFileInputStreamMethod "queryInfoFinish" o = FileInputStreamQueryInfoFinishMethodInfo - ResolveFileInputStreamMethod "read" o = InputStreamReadMethodInfo - ResolveFileInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo - ResolveFileInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo - ResolveFileInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo - ResolveFileInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo - ResolveFileInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo - ResolveFileInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo - ResolveFileInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo - ResolveFileInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo - ResolveFileInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFileInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFileInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFileInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFileInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFileInputStreamMethod "seek" o = SeekableSeekMethodInfo - ResolveFileInputStreamMethod "skip" o = InputStreamSkipMethodInfo - ResolveFileInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo - ResolveFileInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo - ResolveFileInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFileInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFileInputStreamMethod "tell" o = SeekableTellMethodInfo - ResolveFileInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFileInputStreamMethod "truncate" o = SeekableTruncateMethodInfo - ResolveFileInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFileInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFileInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFileInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFileInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFileInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFileInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo - ResolveFileInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFileInputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileInputStreamMethod t FileInputStream, MethodInfo info FileInputStream p) => IsLabelProxy t (FileInputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileInputStreamMethod t FileInputStream, MethodInfo info FileInputStream p) => IsLabel t (FileInputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FileInputStream = FileInputStreamAttributeList -type FileInputStreamAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList FileInputStream = FileInputStreamSignalList -type FileInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FileInputStream::query_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", 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 : Just (TInterface "Gio" "FileInfo") --- throws : True --- Skip return : False - -foreign import ccall "g_file_input_stream_query_info" g_file_input_stream_query_info :: - Ptr FileInputStream -> -- _obj : TInterface "Gio" "FileInputStream" - CString -> -- attributes : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileInfo) - - -fileInputStreamQueryInfo :: - (MonadIO m, FileInputStreamK a, CancellableK b) => - a -- _obj - -> T.Text -- attributes - -> Maybe (b) -- cancellable - -> m FileInfo -- result -fileInputStreamQueryInfo _obj attributes cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attributes' <- textToCString attributes - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_input_stream_query_info _obj' attributes' maybeCancellable - checkUnexpectedReturnNULL "g_file_input_stream_query_info" result - result' <- (wrapObject FileInfo) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attributes' - return result' - ) (do - freeMem attributes' - ) - -data FileInputStreamQueryInfoMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> m FileInfo), MonadIO m, FileInputStreamK a, CancellableK b) => MethodInfo FileInputStreamQueryInfoMethodInfo a signature where - overloadedMethod _ = fileInputStreamQueryInfo - --- method FileInputStream::query_info_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_input_stream_query_info_async" g_file_input_stream_query_info_async :: - Ptr FileInputStream -> -- _obj : TInterface "Gio" "FileInputStream" - CString -> -- attributes : TBasicType TUTF8 - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileInputStreamQueryInfoAsync :: - (MonadIO m, FileInputStreamK a, CancellableK b) => - a -- _obj - -> T.Text -- attributes - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileInputStreamQueryInfoAsync _obj attributes ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attributes' <- textToCString attributes - 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_file_input_stream_query_info_async _obj' attributes' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attributes' - return () - -data FileInputStreamQueryInfoAsyncMethodInfo -instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileInputStreamK a, CancellableK b) => MethodInfo FileInputStreamQueryInfoAsyncMethodInfo a signature where - overloadedMethod _ = fileInputStreamQueryInfoAsync - --- method FileInputStream::query_info_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileInfo") --- throws : True --- Skip return : False - -foreign import ccall "g_file_input_stream_query_info_finish" g_file_input_stream_query_info_finish :: - Ptr FileInputStream -> -- _obj : TInterface "Gio" "FileInputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr FileInfo) - - -fileInputStreamQueryInfoFinish :: - (MonadIO m, FileInputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m FileInfo -- result -fileInputStreamQueryInfoFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_file_input_stream_query_info_finish _obj' result_' - checkUnexpectedReturnNULL "g_file_input_stream_query_info_finish" result - result' <- (wrapObject FileInfo) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data FileInputStreamQueryInfoFinishMethodInfo -instance (signature ~ (b -> m FileInfo), MonadIO m, FileInputStreamK a, AsyncResultK b) => MethodInfo FileInputStreamQueryInfoFinishMethodInfo a signature where - overloadedMethod _ = fileInputStreamQueryInfoFinish - - diff --git a/GI/Gio/Objects/FileInputStream.hs-boot b/GI/Gio/Objects/FileInputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/FileInputStream.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gio.Objects.FileInputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FileInputStream = FileInputStream (ForeignPtr FileInputStream) -instance GObject FileInputStream where -class GObject o => FileInputStreamK o -instance (GObject o, IsDescendantOf FileInputStream o) => FileInputStreamK o -data FileInputStreamQueryInfoMethodInfo -data FileInputStreamQueryInfoAsyncMethodInfo -data FileInputStreamQueryInfoFinishMethodInfo diff --git a/GI/Gio/Objects/FileMonitor.hs b/GI/Gio/Objects/FileMonitor.hs deleted file mode 100644 --- a/GI/Gio/Objects/FileMonitor.hs +++ /dev/null @@ -1,386 +0,0 @@ - - -{- | -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.Objects.FileMonitor - ( - --- * Exported types - FileMonitor(..) , - FileMonitorK , - toFileMonitor , - noFileMonitor , - - - -- * Methods --- ** fileMonitorCancel - FileMonitorCancelMethodInfo , - fileMonitorCancel , - - --- ** fileMonitorEmitEvent - FileMonitorEmitEventMethodInfo , - fileMonitorEmitEvent , - - --- ** fileMonitorIsCancelled - FileMonitorIsCancelledMethodInfo , - fileMonitorIsCancelled , - - --- ** fileMonitorSetRateLimit - FileMonitorSetRateLimitMethodInfo , - fileMonitorSetRateLimit , - - - - - -- * Properties --- ** Cancelled - FileMonitorCancelledPropertyInfo , - fileMonitorCancelled , - getFileMonitorCancelled , - - --- ** RateLimit - FileMonitorRateLimitPropertyInfo , - constructFileMonitorRateLimit , - fileMonitorRateLimit , - getFileMonitorRateLimit , - setFileMonitorRateLimit , - - - - - -- * Signals --- ** Changed - FileMonitorChangedCallback , - FileMonitorChangedCallbackC , - FileMonitorChangedSignalInfo , - afterFileMonitorChanged , - fileMonitorChangedCallbackWrapper , - fileMonitorChangedClosure , - mkFileMonitorChangedCallback , - noFileMonitorChangedCallback , - onFileMonitorChanged , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype FileMonitor = FileMonitor (ForeignPtr FileMonitor) -foreign import ccall "g_file_monitor_get_type" - c_g_file_monitor_get_type :: IO GType - -type instance ParentTypes FileMonitor = FileMonitorParentTypes -type FileMonitorParentTypes = '[GObject.Object] - -instance GObject FileMonitor where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_file_monitor_get_type - - -class GObject o => FileMonitorK o -instance (GObject o, IsDescendantOf FileMonitor o) => FileMonitorK o - -toFileMonitor :: FileMonitorK o => o -> IO FileMonitor -toFileMonitor = unsafeCastTo FileMonitor - -noFileMonitor :: Maybe FileMonitor -noFileMonitor = Nothing - -type family ResolveFileMonitorMethod (t :: Symbol) (o :: *) :: * where - ResolveFileMonitorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFileMonitorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFileMonitorMethod "cancel" o = FileMonitorCancelMethodInfo - ResolveFileMonitorMethod "emitEvent" o = FileMonitorEmitEventMethodInfo - ResolveFileMonitorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFileMonitorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFileMonitorMethod "isCancelled" o = FileMonitorIsCancelledMethodInfo - ResolveFileMonitorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFileMonitorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFileMonitorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFileMonitorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFileMonitorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFileMonitorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFileMonitorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFileMonitorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFileMonitorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFileMonitorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFileMonitorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFileMonitorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFileMonitorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFileMonitorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFileMonitorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFileMonitorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFileMonitorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFileMonitorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFileMonitorMethod "setRateLimit" o = FileMonitorSetRateLimitMethodInfo - ResolveFileMonitorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileMonitorMethod t FileMonitor, MethodInfo info FileMonitor p) => IsLabelProxy t (FileMonitor -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileMonitorMethod t FileMonitor, MethodInfo info FileMonitor p) => IsLabel t (FileMonitor -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal FileMonitor::changed -type FileMonitorChangedCallback = - File -> - Maybe File -> - FileMonitorEvent -> - IO () - -noFileMonitorChangedCallback :: Maybe FileMonitorChangedCallback -noFileMonitorChangedCallback = Nothing - -type FileMonitorChangedCallbackC = - Ptr () -> -- object - Ptr File -> - Ptr File -> - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFileMonitorChangedCallback :: FileMonitorChangedCallbackC -> IO (FunPtr FileMonitorChangedCallbackC) - -fileMonitorChangedClosure :: FileMonitorChangedCallback -> IO Closure -fileMonitorChangedClosure cb = newCClosure =<< mkFileMonitorChangedCallback wrapped - where wrapped = fileMonitorChangedCallbackWrapper cb - -fileMonitorChangedCallbackWrapper :: - FileMonitorChangedCallback -> - Ptr () -> - Ptr File -> - Ptr File -> - CUInt -> - Ptr () -> - IO () -fileMonitorChangedCallbackWrapper _cb _ file otherFile eventType _ = do - file' <- (newObject File) file - maybeOtherFile <- - if otherFile == nullPtr - then return Nothing - else do - otherFile' <- (newObject File) otherFile - return $ Just otherFile' - let eventType' = (toEnum . fromIntegral) eventType - _cb file' maybeOtherFile eventType' - -onFileMonitorChanged :: (GObject a, MonadIO m) => a -> FileMonitorChangedCallback -> m SignalHandlerId -onFileMonitorChanged obj cb = liftIO $ connectFileMonitorChanged obj cb SignalConnectBefore -afterFileMonitorChanged :: (GObject a, MonadIO m) => a -> FileMonitorChangedCallback -> m SignalHandlerId -afterFileMonitorChanged obj cb = connectFileMonitorChanged obj cb SignalConnectAfter - -connectFileMonitorChanged :: (GObject a, MonadIO m) => - a -> FileMonitorChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectFileMonitorChanged obj cb after = liftIO $ do - cb' <- mkFileMonitorChangedCallback (fileMonitorChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- VVV Prop "cancelled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getFileMonitorCancelled :: (MonadIO m, FileMonitorK o) => o -> m Bool -getFileMonitorCancelled obj = liftIO $ getObjectPropertyBool obj "cancelled" - -data FileMonitorCancelledPropertyInfo -instance AttrInfo FileMonitorCancelledPropertyInfo where - type AttrAllowedOps FileMonitorCancelledPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint FileMonitorCancelledPropertyInfo = (~) () - type AttrBaseTypeConstraint FileMonitorCancelledPropertyInfo = FileMonitorK - type AttrGetType FileMonitorCancelledPropertyInfo = Bool - type AttrLabel FileMonitorCancelledPropertyInfo = "cancelled" - attrGet _ = getFileMonitorCancelled - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "rate-limit" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getFileMonitorRateLimit :: (MonadIO m, FileMonitorK o) => o -> m Int32 -getFileMonitorRateLimit obj = liftIO $ getObjectPropertyInt32 obj "rate-limit" - -setFileMonitorRateLimit :: (MonadIO m, FileMonitorK o) => o -> Int32 -> m () -setFileMonitorRateLimit obj val = liftIO $ setObjectPropertyInt32 obj "rate-limit" val - -constructFileMonitorRateLimit :: Int32 -> IO ([Char], GValue) -constructFileMonitorRateLimit val = constructObjectPropertyInt32 "rate-limit" val - -data FileMonitorRateLimitPropertyInfo -instance AttrInfo FileMonitorRateLimitPropertyInfo where - type AttrAllowedOps FileMonitorRateLimitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FileMonitorRateLimitPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint FileMonitorRateLimitPropertyInfo = FileMonitorK - type AttrGetType FileMonitorRateLimitPropertyInfo = Int32 - type AttrLabel FileMonitorRateLimitPropertyInfo = "rate-limit" - attrGet _ = getFileMonitorRateLimit - attrSet _ = setFileMonitorRateLimit - attrConstruct _ = constructFileMonitorRateLimit - attrClear _ = undefined - -type instance AttributeList FileMonitor = FileMonitorAttributeList -type FileMonitorAttributeList = ('[ '("cancelled", FileMonitorCancelledPropertyInfo), '("rateLimit", FileMonitorRateLimitPropertyInfo)] :: [(Symbol, *)]) - -fileMonitorCancelled :: AttrLabelProxy "cancelled" -fileMonitorCancelled = AttrLabelProxy - -fileMonitorRateLimit :: AttrLabelProxy "rateLimit" -fileMonitorRateLimit = AttrLabelProxy - -data FileMonitorChangedSignalInfo -instance SignalInfo FileMonitorChangedSignalInfo where - type HaskellCallbackType FileMonitorChangedSignalInfo = FileMonitorChangedCallback - connectSignal _ = connectFileMonitorChanged - -type instance SignalList FileMonitor = FileMonitorSignalList -type FileMonitorSignalList = ('[ '("changed", FileMonitorChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FileMonitor::cancel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_monitor_cancel" g_file_monitor_cancel :: - Ptr FileMonitor -> -- _obj : TInterface "Gio" "FileMonitor" - IO CInt - - -fileMonitorCancel :: - (MonadIO m, FileMonitorK a) => - a -- _obj - -> m Bool -- result -fileMonitorCancel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_monitor_cancel _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileMonitorCancelMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileMonitorK a) => MethodInfo FileMonitorCancelMethodInfo a signature where - overloadedMethod _ = fileMonitorCancel - --- method FileMonitor::emit_event --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other_file", argType = TInterface "Gio" "File", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_type", argType = TInterface "Gio" "FileMonitorEvent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_monitor_emit_event" g_file_monitor_emit_event :: - Ptr FileMonitor -> -- _obj : TInterface "Gio" "FileMonitor" - Ptr File -> -- child : TInterface "Gio" "File" - Ptr File -> -- other_file : TInterface "Gio" "File" - CUInt -> -- event_type : TInterface "Gio" "FileMonitorEvent" - IO () - - -fileMonitorEmitEvent :: - (MonadIO m, FileMonitorK a, FileK b, FileK c) => - a -- _obj - -> b -- child - -> c -- otherFile - -> FileMonitorEvent -- eventType - -> m () -- result -fileMonitorEmitEvent _obj child otherFile eventType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let child' = unsafeManagedPtrCastPtr child - let otherFile' = unsafeManagedPtrCastPtr otherFile - let eventType' = (fromIntegral . fromEnum) eventType - g_file_monitor_emit_event _obj' child' otherFile' eventType' - touchManagedPtr _obj - touchManagedPtr child - touchManagedPtr otherFile - return () - -data FileMonitorEmitEventMethodInfo -instance (signature ~ (b -> c -> FileMonitorEvent -> m ()), MonadIO m, FileMonitorK a, FileK b, FileK c) => MethodInfo FileMonitorEmitEventMethodInfo a signature where - overloadedMethod _ = fileMonitorEmitEvent - --- method FileMonitor::is_cancelled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_monitor_is_cancelled" g_file_monitor_is_cancelled :: - Ptr FileMonitor -> -- _obj : TInterface "Gio" "FileMonitor" - IO CInt - - -fileMonitorIsCancelled :: - (MonadIO m, FileMonitorK a) => - a -- _obj - -> m Bool -- result -fileMonitorIsCancelled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_monitor_is_cancelled _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FileMonitorIsCancelledMethodInfo -instance (signature ~ (m Bool), MonadIO m, FileMonitorK a) => MethodInfo FileMonitorIsCancelledMethodInfo a signature where - overloadedMethod _ = fileMonitorIsCancelled - --- method FileMonitor::set_rate_limit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit_msecs", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_monitor_set_rate_limit" g_file_monitor_set_rate_limit :: - Ptr FileMonitor -> -- _obj : TInterface "Gio" "FileMonitor" - Int32 -> -- limit_msecs : TBasicType TInt - IO () - - -fileMonitorSetRateLimit :: - (MonadIO m, FileMonitorK a) => - a -- _obj - -> Int32 -- limitMsecs - -> m () -- result -fileMonitorSetRateLimit _obj limitMsecs = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_file_monitor_set_rate_limit _obj' limitMsecs - touchManagedPtr _obj - return () - -data FileMonitorSetRateLimitMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, FileMonitorK a) => MethodInfo FileMonitorSetRateLimitMethodInfo a signature where - overloadedMethod _ = fileMonitorSetRateLimit - - diff --git a/GI/Gio/Objects/FileMonitor.hs-boot b/GI/Gio/Objects/FileMonitor.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/FileMonitor.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.Gio.Objects.FileMonitor where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FileMonitor = FileMonitor (ForeignPtr FileMonitor) -instance GObject FileMonitor where -class GObject o => FileMonitorK o -instance (GObject o, IsDescendantOf FileMonitor o) => FileMonitorK o -data FileMonitorCancelledPropertyInfo -data FileMonitorRateLimitPropertyInfo -data FileMonitorChangedSignalInfo -data FileMonitorCancelMethodInfo -data FileMonitorEmitEventMethodInfo -data FileMonitorIsCancelledMethodInfo -data FileMonitorSetRateLimitMethodInfo diff --git a/GI/Gio/Objects/FileOutputStream.hs b/GI/Gio/Objects/FileOutputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/FileOutputStream.hs +++ /dev/null @@ -1,313 +0,0 @@ - - -{- | -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.Objects.FileOutputStream - ( - --- * Exported types - FileOutputStream(..) , - FileOutputStreamK , - toFileOutputStream , - noFileOutputStream , - - - -- * Methods --- ** fileOutputStreamGetEtag - FileOutputStreamGetEtagMethodInfo , - fileOutputStreamGetEtag , - - --- ** fileOutputStreamQueryInfo - FileOutputStreamQueryInfoMethodInfo , - fileOutputStreamQueryInfo , - - --- ** fileOutputStreamQueryInfoAsync - FileOutputStreamQueryInfoAsyncMethodInfo, - fileOutputStreamQueryInfoAsync , - - --- ** fileOutputStreamQueryInfoFinish - FileOutputStreamQueryInfoFinishMethodInfo, - fileOutputStreamQueryInfoFinish , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype FileOutputStream = FileOutputStream (ForeignPtr FileOutputStream) -foreign import ccall "g_file_output_stream_get_type" - c_g_file_output_stream_get_type :: IO GType - -type instance ParentTypes FileOutputStream = FileOutputStreamParentTypes -type FileOutputStreamParentTypes = '[OutputStream, GObject.Object, Seekable] - -instance GObject FileOutputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_file_output_stream_get_type - - -class GObject o => FileOutputStreamK o -instance (GObject o, IsDescendantOf FileOutputStream o) => FileOutputStreamK o - -toFileOutputStream :: FileOutputStreamK o => o -> IO FileOutputStream -toFileOutputStream = unsafeCastTo FileOutputStream - -noFileOutputStream :: Maybe FileOutputStream -noFileOutputStream = Nothing - -type family ResolveFileOutputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveFileOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFileOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFileOutputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo - ResolveFileOutputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo - ResolveFileOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo - ResolveFileOutputStreamMethod "close" o = OutputStreamCloseMethodInfo - ResolveFileOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo - ResolveFileOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo - ResolveFileOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo - ResolveFileOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo - ResolveFileOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo - ResolveFileOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFileOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFileOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo - ResolveFileOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo - ResolveFileOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo - ResolveFileOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFileOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFileOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFileOutputStreamMethod "queryInfo" o = FileOutputStreamQueryInfoMethodInfo - ResolveFileOutputStreamMethod "queryInfoAsync" o = FileOutputStreamQueryInfoAsyncMethodInfo - ResolveFileOutputStreamMethod "queryInfoFinish" o = FileOutputStreamQueryInfoFinishMethodInfo - ResolveFileOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFileOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFileOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFileOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFileOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFileOutputStreamMethod "seek" o = SeekableSeekMethodInfo - ResolveFileOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo - ResolveFileOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo - ResolveFileOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo - ResolveFileOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFileOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFileOutputStreamMethod "tell" o = SeekableTellMethodInfo - ResolveFileOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFileOutputStreamMethod "truncate" o = SeekableTruncateMethodInfo - ResolveFileOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFileOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFileOutputStreamMethod "write" o = OutputStreamWriteMethodInfo - ResolveFileOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo - ResolveFileOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo - ResolveFileOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo - ResolveFileOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo - ResolveFileOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo - ResolveFileOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo - ResolveFileOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo - ResolveFileOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo - ResolveFileOutputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFileOutputStreamMethod "getEtag" o = FileOutputStreamGetEtagMethodInfo - ResolveFileOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFileOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFileOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFileOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo - ResolveFileOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFileOutputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileOutputStreamMethod t FileOutputStream, MethodInfo info FileOutputStream p) => IsLabelProxy t (FileOutputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileOutputStreamMethod t FileOutputStream, MethodInfo info FileOutputStream p) => IsLabel t (FileOutputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList FileOutputStream = FileOutputStreamAttributeList -type FileOutputStreamAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList FileOutputStream = FileOutputStreamSignalList -type FileOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FileOutputStream::get_etag --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_output_stream_get_etag" g_file_output_stream_get_etag :: - Ptr FileOutputStream -> -- _obj : TInterface "Gio" "FileOutputStream" - IO CString - - -fileOutputStreamGetEtag :: - (MonadIO m, FileOutputStreamK a) => - a -- _obj - -> m T.Text -- result -fileOutputStreamGetEtag _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_file_output_stream_get_etag _obj' - checkUnexpectedReturnNULL "g_file_output_stream_get_etag" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FileOutputStreamGetEtagMethodInfo -instance (signature ~ (m T.Text), MonadIO m, FileOutputStreamK a) => MethodInfo FileOutputStreamGetEtagMethodInfo a signature where - overloadedMethod _ = fileOutputStreamGetEtag - --- method FileOutputStream::query_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", 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 : Just (TInterface "Gio" "FileInfo") --- throws : True --- Skip return : False - -foreign import ccall "g_file_output_stream_query_info" g_file_output_stream_query_info :: - Ptr FileOutputStream -> -- _obj : TInterface "Gio" "FileOutputStream" - CString -> -- attributes : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr FileInfo) - - -fileOutputStreamQueryInfo :: - (MonadIO m, FileOutputStreamK a, CancellableK b) => - a -- _obj - -> T.Text -- attributes - -> Maybe (b) -- cancellable - -> m FileInfo -- result -fileOutputStreamQueryInfo _obj attributes cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attributes' <- textToCString attributes - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_file_output_stream_query_info _obj' attributes' maybeCancellable - checkUnexpectedReturnNULL "g_file_output_stream_query_info" result - result' <- (wrapObject FileInfo) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attributes' - return result' - ) (do - freeMem attributes' - ) - -data FileOutputStreamQueryInfoMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> m FileInfo), MonadIO m, FileOutputStreamK a, CancellableK b) => MethodInfo FileOutputStreamQueryInfoMethodInfo a signature where - overloadedMethod _ = fileOutputStreamQueryInfo - --- method FileOutputStream::query_info_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_output_stream_query_info_async" g_file_output_stream_query_info_async :: - Ptr FileOutputStream -> -- _obj : TInterface "Gio" "FileOutputStream" - CString -> -- attributes : TBasicType TUTF8 - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -fileOutputStreamQueryInfoAsync :: - (MonadIO m, FileOutputStreamK a, CancellableK b) => - a -- _obj - -> T.Text -- attributes - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -fileOutputStreamQueryInfoAsync _obj attributes ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attributes' <- textToCString attributes - 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_file_output_stream_query_info_async _obj' attributes' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem attributes' - return () - -data FileOutputStreamQueryInfoAsyncMethodInfo -instance (signature ~ (T.Text -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, FileOutputStreamK a, CancellableK b) => MethodInfo FileOutputStreamQueryInfoAsyncMethodInfo a signature where - overloadedMethod _ = fileOutputStreamQueryInfoAsync - --- method FileOutputStream::query_info_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileInfo") --- throws : True --- Skip return : False - -foreign import ccall "g_file_output_stream_query_info_finish" g_file_output_stream_query_info_finish :: - Ptr FileOutputStream -> -- _obj : TInterface "Gio" "FileOutputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr FileInfo) - - -fileOutputStreamQueryInfoFinish :: - (MonadIO m, FileOutputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m FileInfo -- result -fileOutputStreamQueryInfoFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_file_output_stream_query_info_finish _obj' result_' - checkUnexpectedReturnNULL "g_file_output_stream_query_info_finish" result - result' <- (wrapObject FileInfo) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data FileOutputStreamQueryInfoFinishMethodInfo -instance (signature ~ (b -> m FileInfo), MonadIO m, FileOutputStreamK a, AsyncResultK b) => MethodInfo FileOutputStreamQueryInfoFinishMethodInfo a signature where - overloadedMethod _ = fileOutputStreamQueryInfoFinish - - diff --git a/GI/Gio/Objects/FileOutputStream.hs-boot b/GI/Gio/Objects/FileOutputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/FileOutputStream.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Objects.FileOutputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FileOutputStream = FileOutputStream (ForeignPtr FileOutputStream) -instance GObject FileOutputStream where -class GObject o => FileOutputStreamK o -instance (GObject o, IsDescendantOf FileOutputStream o) => FileOutputStreamK o -data FileOutputStreamGetEtagMethodInfo -data FileOutputStreamQueryInfoMethodInfo -data FileOutputStreamQueryInfoAsyncMethodInfo -data FileOutputStreamQueryInfoFinishMethodInfo diff --git a/GI/Gio/Objects/FilenameCompleter.hs b/GI/Gio/Objects/FilenameCompleter.hs deleted file mode 100644 --- a/GI/Gio/Objects/FilenameCompleter.hs +++ /dev/null @@ -1,295 +0,0 @@ - - -{- | -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.Objects.FilenameCompleter - ( - --- * Exported types - FilenameCompleter(..) , - FilenameCompleterK , - toFilenameCompleter , - noFilenameCompleter , - - - -- * Methods --- ** filenameCompleterGetCompletionSuffix - FilenameCompleterGetCompletionSuffixMethodInfo, - filenameCompleterGetCompletionSuffix , - - --- ** filenameCompleterGetCompletions - FilenameCompleterGetCompletionsMethodInfo, - filenameCompleterGetCompletions , - - --- ** filenameCompleterNew - filenameCompleterNew , - - --- ** filenameCompleterSetDirsOnly - FilenameCompleterSetDirsOnlyMethodInfo , - filenameCompleterSetDirsOnly , - - - - - -- * Signals --- ** GotCompletionData - FilenameCompleterGotCompletionDataCallback, - FilenameCompleterGotCompletionDataCallbackC, - FilenameCompleterGotCompletionDataSignalInfo, - afterFilenameCompleterGotCompletionData , - filenameCompleterGotCompletionDataCallbackWrapper, - filenameCompleterGotCompletionDataClosure, - mkFilenameCompleterGotCompletionDataCallback, - noFilenameCompleterGotCompletionDataCallback, - onFilenameCompleterGotCompletionData , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype FilenameCompleter = FilenameCompleter (ForeignPtr FilenameCompleter) -foreign import ccall "g_filename_completer_get_type" - c_g_filename_completer_get_type :: IO GType - -type instance ParentTypes FilenameCompleter = FilenameCompleterParentTypes -type FilenameCompleterParentTypes = '[GObject.Object] - -instance GObject FilenameCompleter where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_filename_completer_get_type - - -class GObject o => FilenameCompleterK o -instance (GObject o, IsDescendantOf FilenameCompleter o) => FilenameCompleterK o - -toFilenameCompleter :: FilenameCompleterK o => o -> IO FilenameCompleter -toFilenameCompleter = unsafeCastTo FilenameCompleter - -noFilenameCompleter :: Maybe FilenameCompleter -noFilenameCompleter = Nothing - -type family ResolveFilenameCompleterMethod (t :: Symbol) (o :: *) :: * where - ResolveFilenameCompleterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFilenameCompleterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFilenameCompleterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFilenameCompleterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFilenameCompleterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFilenameCompleterMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFilenameCompleterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFilenameCompleterMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFilenameCompleterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFilenameCompleterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFilenameCompleterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFilenameCompleterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFilenameCompleterMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFilenameCompleterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFilenameCompleterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFilenameCompleterMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFilenameCompleterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFilenameCompleterMethod "getCompletionSuffix" o = FilenameCompleterGetCompletionSuffixMethodInfo - ResolveFilenameCompleterMethod "getCompletions" o = FilenameCompleterGetCompletionsMethodInfo - ResolveFilenameCompleterMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFilenameCompleterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFilenameCompleterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFilenameCompleterMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFilenameCompleterMethod "setDirsOnly" o = FilenameCompleterSetDirsOnlyMethodInfo - ResolveFilenameCompleterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFilenameCompleterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFilenameCompleterMethod t FilenameCompleter, MethodInfo info FilenameCompleter p) => IsLabelProxy t (FilenameCompleter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFilenameCompleterMethod t FilenameCompleter, MethodInfo info FilenameCompleter p) => IsLabel t (FilenameCompleter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal FilenameCompleter::got-completion-data -type FilenameCompleterGotCompletionDataCallback = - IO () - -noFilenameCompleterGotCompletionDataCallback :: Maybe FilenameCompleterGotCompletionDataCallback -noFilenameCompleterGotCompletionDataCallback = Nothing - -type FilenameCompleterGotCompletionDataCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkFilenameCompleterGotCompletionDataCallback :: FilenameCompleterGotCompletionDataCallbackC -> IO (FunPtr FilenameCompleterGotCompletionDataCallbackC) - -filenameCompleterGotCompletionDataClosure :: FilenameCompleterGotCompletionDataCallback -> IO Closure -filenameCompleterGotCompletionDataClosure cb = newCClosure =<< mkFilenameCompleterGotCompletionDataCallback wrapped - where wrapped = filenameCompleterGotCompletionDataCallbackWrapper cb - -filenameCompleterGotCompletionDataCallbackWrapper :: - FilenameCompleterGotCompletionDataCallback -> - Ptr () -> - Ptr () -> - IO () -filenameCompleterGotCompletionDataCallbackWrapper _cb _ _ = do - _cb - -onFilenameCompleterGotCompletionData :: (GObject a, MonadIO m) => a -> FilenameCompleterGotCompletionDataCallback -> m SignalHandlerId -onFilenameCompleterGotCompletionData obj cb = liftIO $ connectFilenameCompleterGotCompletionData obj cb SignalConnectBefore -afterFilenameCompleterGotCompletionData :: (GObject a, MonadIO m) => a -> FilenameCompleterGotCompletionDataCallback -> m SignalHandlerId -afterFilenameCompleterGotCompletionData obj cb = connectFilenameCompleterGotCompletionData obj cb SignalConnectAfter - -connectFilenameCompleterGotCompletionData :: (GObject a, MonadIO m) => - a -> FilenameCompleterGotCompletionDataCallback -> SignalConnectMode -> m SignalHandlerId -connectFilenameCompleterGotCompletionData obj cb after = liftIO $ do - cb' <- mkFilenameCompleterGotCompletionDataCallback (filenameCompleterGotCompletionDataCallbackWrapper cb) - connectSignalFunPtr obj "got-completion-data" cb' after - -type instance AttributeList FilenameCompleter = FilenameCompleterAttributeList -type FilenameCompleterAttributeList = ('[ ] :: [(Symbol, *)]) - -data FilenameCompleterGotCompletionDataSignalInfo -instance SignalInfo FilenameCompleterGotCompletionDataSignalInfo where - type HaskellCallbackType FilenameCompleterGotCompletionDataSignalInfo = FilenameCompleterGotCompletionDataCallback - connectSignal _ = connectFilenameCompleterGotCompletionData - -type instance SignalList FilenameCompleter = FilenameCompleterSignalList -type FilenameCompleterSignalList = ('[ '("gotCompletionData", FilenameCompleterGotCompletionDataSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FilenameCompleter::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FilenameCompleter") --- throws : False --- Skip return : False - -foreign import ccall "g_filename_completer_new" g_filename_completer_new :: - IO (Ptr FilenameCompleter) - - -filenameCompleterNew :: - (MonadIO m) => - m FilenameCompleter -- result -filenameCompleterNew = liftIO $ do - result <- g_filename_completer_new - checkUnexpectedReturnNULL "g_filename_completer_new" result - result' <- (wrapObject FilenameCompleter) result - return result' - --- method FilenameCompleter::get_completion_suffix --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilenameCompleter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "initial_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_filename_completer_get_completion_suffix" g_filename_completer_get_completion_suffix :: - Ptr FilenameCompleter -> -- _obj : TInterface "Gio" "FilenameCompleter" - CString -> -- initial_text : TBasicType TUTF8 - IO CString - - -filenameCompleterGetCompletionSuffix :: - (MonadIO m, FilenameCompleterK a) => - a -- _obj - -> T.Text -- initialText - -> m T.Text -- result -filenameCompleterGetCompletionSuffix _obj initialText = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - initialText' <- textToCString initialText - result <- g_filename_completer_get_completion_suffix _obj' initialText' - checkUnexpectedReturnNULL "g_filename_completer_get_completion_suffix" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem initialText' - return result' - -data FilenameCompleterGetCompletionSuffixMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, FilenameCompleterK a) => MethodInfo FilenameCompleterGetCompletionSuffixMethodInfo a signature where - overloadedMethod _ = filenameCompleterGetCompletionSuffix - --- method FilenameCompleter::get_completions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilenameCompleter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "initial_text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_filename_completer_get_completions" g_filename_completer_get_completions :: - Ptr FilenameCompleter -> -- _obj : TInterface "Gio" "FilenameCompleter" - CString -> -- initial_text : TBasicType TUTF8 - IO (Ptr CString) - - -filenameCompleterGetCompletions :: - (MonadIO m, FilenameCompleterK a) => - a -- _obj - -> T.Text -- initialText - -> m [T.Text] -- result -filenameCompleterGetCompletions _obj initialText = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - initialText' <- textToCString initialText - result <- g_filename_completer_get_completions _obj' initialText' - checkUnexpectedReturnNULL "g_filename_completer_get_completions" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - freeMem initialText' - return result' - -data FilenameCompleterGetCompletionsMethodInfo -instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, FilenameCompleterK a) => MethodInfo FilenameCompleterGetCompletionsMethodInfo a signature where - overloadedMethod _ = filenameCompleterGetCompletions - --- method FilenameCompleter::set_dirs_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilenameCompleter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dirs_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_filename_completer_set_dirs_only" g_filename_completer_set_dirs_only :: - Ptr FilenameCompleter -> -- _obj : TInterface "Gio" "FilenameCompleter" - CInt -> -- dirs_only : TBasicType TBoolean - IO () - - -filenameCompleterSetDirsOnly :: - (MonadIO m, FilenameCompleterK a) => - a -- _obj - -> Bool -- dirsOnly - -> m () -- result -filenameCompleterSetDirsOnly _obj dirsOnly = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let dirsOnly' = (fromIntegral . fromEnum) dirsOnly - g_filename_completer_set_dirs_only _obj' dirsOnly' - touchManagedPtr _obj - return () - -data FilenameCompleterSetDirsOnlyMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FilenameCompleterK a) => MethodInfo FilenameCompleterSetDirsOnlyMethodInfo a signature where - overloadedMethod _ = filenameCompleterSetDirsOnly - - diff --git a/GI/Gio/Objects/FilenameCompleter.hs-boot b/GI/Gio/Objects/FilenameCompleter.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/FilenameCompleter.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Objects.FilenameCompleter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FilenameCompleter = FilenameCompleter (ForeignPtr FilenameCompleter) -instance GObject FilenameCompleter where -class GObject o => FilenameCompleterK o -instance (GObject o, IsDescendantOf FilenameCompleter o) => FilenameCompleterK o -data FilenameCompleterGotCompletionDataSignalInfo -data FilenameCompleterGetCompletionSuffixMethodInfo -data FilenameCompleterGetCompletionsMethodInfo -data FilenameCompleterSetDirsOnlyMethodInfo diff --git a/GI/Gio/Objects/FilterInputStream.hs b/GI/Gio/Objects/FilterInputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/FilterInputStream.hs +++ /dev/null @@ -1,292 +0,0 @@ - - -{- | -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.Objects.FilterInputStream - ( - --- * Exported types - FilterInputStream(..) , - FilterInputStreamK , - toFilterInputStream , - noFilterInputStream , - - - -- * Methods --- ** filterInputStreamGetBaseStream - FilterInputStreamGetBaseStreamMethodInfo, - filterInputStreamGetBaseStream , - - --- ** filterInputStreamGetCloseBaseStream - FilterInputStreamGetCloseBaseStreamMethodInfo, - filterInputStreamGetCloseBaseStream , - - --- ** filterInputStreamSetCloseBaseStream - FilterInputStreamSetCloseBaseStreamMethodInfo, - filterInputStreamSetCloseBaseStream , - - - - - -- * Properties --- ** BaseStream - FilterInputStreamBaseStreamPropertyInfo , - constructFilterInputStreamBaseStream , - filterInputStreamBaseStream , - getFilterInputStreamBaseStream , - - --- ** CloseBaseStream - FilterInputStreamCloseBaseStreamPropertyInfo, - constructFilterInputStreamCloseBaseStream, - filterInputStreamCloseBaseStream , - getFilterInputStreamCloseBaseStream , - setFilterInputStreamCloseBaseStream , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype FilterInputStream = FilterInputStream (ForeignPtr FilterInputStream) -foreign import ccall "g_filter_input_stream_get_type" - c_g_filter_input_stream_get_type :: IO GType - -type instance ParentTypes FilterInputStream = FilterInputStreamParentTypes -type FilterInputStreamParentTypes = '[InputStream, GObject.Object] - -instance GObject FilterInputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_filter_input_stream_get_type - - -class GObject o => FilterInputStreamK o -instance (GObject o, IsDescendantOf FilterInputStream o) => FilterInputStreamK o - -toFilterInputStream :: FilterInputStreamK o => o -> IO FilterInputStream -toFilterInputStream = unsafeCastTo FilterInputStream - -noFilterInputStream :: Maybe FilterInputStream -noFilterInputStream = Nothing - -type family ResolveFilterInputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveFilterInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFilterInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFilterInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo - ResolveFilterInputStreamMethod "close" o = InputStreamCloseMethodInfo - ResolveFilterInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo - ResolveFilterInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo - ResolveFilterInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFilterInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFilterInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo - ResolveFilterInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo - ResolveFilterInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFilterInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFilterInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFilterInputStreamMethod "read" o = InputStreamReadMethodInfo - ResolveFilterInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo - ResolveFilterInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo - ResolveFilterInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo - ResolveFilterInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo - ResolveFilterInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo - ResolveFilterInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo - ResolveFilterInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo - ResolveFilterInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo - ResolveFilterInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFilterInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFilterInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFilterInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFilterInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFilterInputStreamMethod "skip" o = InputStreamSkipMethodInfo - ResolveFilterInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo - ResolveFilterInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo - ResolveFilterInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFilterInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFilterInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFilterInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFilterInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFilterInputStreamMethod "getBaseStream" o = FilterInputStreamGetBaseStreamMethodInfo - ResolveFilterInputStreamMethod "getCloseBaseStream" o = FilterInputStreamGetCloseBaseStreamMethodInfo - ResolveFilterInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFilterInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFilterInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFilterInputStreamMethod "setCloseBaseStream" o = FilterInputStreamSetCloseBaseStreamMethodInfo - ResolveFilterInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFilterInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo - ResolveFilterInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFilterInputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFilterInputStreamMethod t FilterInputStream, MethodInfo info FilterInputStream p) => IsLabelProxy t (FilterInputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFilterInputStreamMethod t FilterInputStream, MethodInfo info FilterInputStream p) => IsLabel t (FilterInputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "base-stream" - -- Type: TInterface "Gio" "InputStream" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getFilterInputStreamBaseStream :: (MonadIO m, FilterInputStreamK o) => o -> m InputStream -getFilterInputStreamBaseStream obj = liftIO $ checkUnexpectedNothing "getFilterInputStreamBaseStream" $ getObjectPropertyObject obj "base-stream" InputStream - -constructFilterInputStreamBaseStream :: (InputStreamK a) => a -> IO ([Char], GValue) -constructFilterInputStreamBaseStream val = constructObjectPropertyObject "base-stream" (Just val) - -data FilterInputStreamBaseStreamPropertyInfo -instance AttrInfo FilterInputStreamBaseStreamPropertyInfo where - type AttrAllowedOps FilterInputStreamBaseStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FilterInputStreamBaseStreamPropertyInfo = InputStreamK - type AttrBaseTypeConstraint FilterInputStreamBaseStreamPropertyInfo = FilterInputStreamK - type AttrGetType FilterInputStreamBaseStreamPropertyInfo = InputStream - type AttrLabel FilterInputStreamBaseStreamPropertyInfo = "base-stream" - attrGet _ = getFilterInputStreamBaseStream - attrSet _ = undefined - attrConstruct _ = constructFilterInputStreamBaseStream - attrClear _ = undefined - --- VVV Prop "close-base-stream" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getFilterInputStreamCloseBaseStream :: (MonadIO m, FilterInputStreamK o) => o -> m Bool -getFilterInputStreamCloseBaseStream obj = liftIO $ getObjectPropertyBool obj "close-base-stream" - -setFilterInputStreamCloseBaseStream :: (MonadIO m, FilterInputStreamK o) => o -> Bool -> m () -setFilterInputStreamCloseBaseStream obj val = liftIO $ setObjectPropertyBool obj "close-base-stream" val - -constructFilterInputStreamCloseBaseStream :: Bool -> IO ([Char], GValue) -constructFilterInputStreamCloseBaseStream val = constructObjectPropertyBool "close-base-stream" val - -data FilterInputStreamCloseBaseStreamPropertyInfo -instance AttrInfo FilterInputStreamCloseBaseStreamPropertyInfo where - type AttrAllowedOps FilterInputStreamCloseBaseStreamPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FilterInputStreamCloseBaseStreamPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FilterInputStreamCloseBaseStreamPropertyInfo = FilterInputStreamK - type AttrGetType FilterInputStreamCloseBaseStreamPropertyInfo = Bool - type AttrLabel FilterInputStreamCloseBaseStreamPropertyInfo = "close-base-stream" - attrGet _ = getFilterInputStreamCloseBaseStream - attrSet _ = setFilterInputStreamCloseBaseStream - attrConstruct _ = constructFilterInputStreamCloseBaseStream - attrClear _ = undefined - -type instance AttributeList FilterInputStream = FilterInputStreamAttributeList -type FilterInputStreamAttributeList = ('[ '("baseStream", FilterInputStreamBaseStreamPropertyInfo), '("closeBaseStream", FilterInputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)]) - -filterInputStreamBaseStream :: AttrLabelProxy "baseStream" -filterInputStreamBaseStream = AttrLabelProxy - -filterInputStreamCloseBaseStream :: AttrLabelProxy "closeBaseStream" -filterInputStreamCloseBaseStream = AttrLabelProxy - -type instance SignalList FilterInputStream = FilterInputStreamSignalList -type FilterInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FilterInputStream::get_base_stream --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_filter_input_stream_get_base_stream" g_filter_input_stream_get_base_stream :: - Ptr FilterInputStream -> -- _obj : TInterface "Gio" "FilterInputStream" - IO (Ptr InputStream) - - -filterInputStreamGetBaseStream :: - (MonadIO m, FilterInputStreamK a) => - a -- _obj - -> m InputStream -- result -filterInputStreamGetBaseStream _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_filter_input_stream_get_base_stream _obj' - checkUnexpectedReturnNULL "g_filter_input_stream_get_base_stream" result - result' <- (newObject InputStream) result - touchManagedPtr _obj - return result' - -data FilterInputStreamGetBaseStreamMethodInfo -instance (signature ~ (m InputStream), MonadIO m, FilterInputStreamK a) => MethodInfo FilterInputStreamGetBaseStreamMethodInfo a signature where - overloadedMethod _ = filterInputStreamGetBaseStream - --- method FilterInputStream::get_close_base_stream --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_filter_input_stream_get_close_base_stream" g_filter_input_stream_get_close_base_stream :: - Ptr FilterInputStream -> -- _obj : TInterface "Gio" "FilterInputStream" - IO CInt - - -filterInputStreamGetCloseBaseStream :: - (MonadIO m, FilterInputStreamK a) => - a -- _obj - -> m Bool -- result -filterInputStreamGetCloseBaseStream _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_filter_input_stream_get_close_base_stream _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FilterInputStreamGetCloseBaseStreamMethodInfo -instance (signature ~ (m Bool), MonadIO m, FilterInputStreamK a) => MethodInfo FilterInputStreamGetCloseBaseStreamMethodInfo a signature where - overloadedMethod _ = filterInputStreamGetCloseBaseStream - --- method FilterInputStream::set_close_base_stream --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_base", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_filter_input_stream_set_close_base_stream" g_filter_input_stream_set_close_base_stream :: - Ptr FilterInputStream -> -- _obj : TInterface "Gio" "FilterInputStream" - CInt -> -- close_base : TBasicType TBoolean - IO () - - -filterInputStreamSetCloseBaseStream :: - (MonadIO m, FilterInputStreamK a) => - a -- _obj - -> Bool -- closeBase - -> m () -- result -filterInputStreamSetCloseBaseStream _obj closeBase = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let closeBase' = (fromIntegral . fromEnum) closeBase - g_filter_input_stream_set_close_base_stream _obj' closeBase' - touchManagedPtr _obj - return () - -data FilterInputStreamSetCloseBaseStreamMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FilterInputStreamK a) => MethodInfo FilterInputStreamSetCloseBaseStreamMethodInfo a signature where - overloadedMethod _ = filterInputStreamSetCloseBaseStream - - diff --git a/GI/Gio/Objects/FilterInputStream.hs-boot b/GI/Gio/Objects/FilterInputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/FilterInputStream.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gio.Objects.FilterInputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FilterInputStream = FilterInputStream (ForeignPtr FilterInputStream) -instance GObject FilterInputStream where -class GObject o => FilterInputStreamK o -instance (GObject o, IsDescendantOf FilterInputStream o) => FilterInputStreamK o -data FilterInputStreamBaseStreamPropertyInfo -data FilterInputStreamCloseBaseStreamPropertyInfo -data FilterInputStreamGetBaseStreamMethodInfo -data FilterInputStreamGetCloseBaseStreamMethodInfo -data FilterInputStreamSetCloseBaseStreamMethodInfo diff --git a/GI/Gio/Objects/FilterOutputStream.hs b/GI/Gio/Objects/FilterOutputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/FilterOutputStream.hs +++ /dev/null @@ -1,292 +0,0 @@ - - -{- | -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.Objects.FilterOutputStream - ( - --- * Exported types - FilterOutputStream(..) , - FilterOutputStreamK , - toFilterOutputStream , - noFilterOutputStream , - - - -- * Methods --- ** filterOutputStreamGetBaseStream - FilterOutputStreamGetBaseStreamMethodInfo, - filterOutputStreamGetBaseStream , - - --- ** filterOutputStreamGetCloseBaseStream - FilterOutputStreamGetCloseBaseStreamMethodInfo, - filterOutputStreamGetCloseBaseStream , - - --- ** filterOutputStreamSetCloseBaseStream - FilterOutputStreamSetCloseBaseStreamMethodInfo, - filterOutputStreamSetCloseBaseStream , - - - - - -- * Properties --- ** BaseStream - FilterOutputStreamBaseStreamPropertyInfo, - constructFilterOutputStreamBaseStream , - filterOutputStreamBaseStream , - getFilterOutputStreamBaseStream , - - --- ** CloseBaseStream - FilterOutputStreamCloseBaseStreamPropertyInfo, - constructFilterOutputStreamCloseBaseStream, - filterOutputStreamCloseBaseStream , - getFilterOutputStreamCloseBaseStream , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype FilterOutputStream = FilterOutputStream (ForeignPtr FilterOutputStream) -foreign import ccall "g_filter_output_stream_get_type" - c_g_filter_output_stream_get_type :: IO GType - -type instance ParentTypes FilterOutputStream = FilterOutputStreamParentTypes -type FilterOutputStreamParentTypes = '[OutputStream, GObject.Object] - -instance GObject FilterOutputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_filter_output_stream_get_type - - -class GObject o => FilterOutputStreamK o -instance (GObject o, IsDescendantOf FilterOutputStream o) => FilterOutputStreamK o - -toFilterOutputStream :: FilterOutputStreamK o => o -> IO FilterOutputStream -toFilterOutputStream = unsafeCastTo FilterOutputStream - -noFilterOutputStream :: Maybe FilterOutputStream -noFilterOutputStream = Nothing - -type family ResolveFilterOutputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveFilterOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveFilterOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveFilterOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo - ResolveFilterOutputStreamMethod "close" o = OutputStreamCloseMethodInfo - ResolveFilterOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo - ResolveFilterOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo - ResolveFilterOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo - ResolveFilterOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo - ResolveFilterOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo - ResolveFilterOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveFilterOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveFilterOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo - ResolveFilterOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo - ResolveFilterOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo - ResolveFilterOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveFilterOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveFilterOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveFilterOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveFilterOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveFilterOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveFilterOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveFilterOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveFilterOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo - ResolveFilterOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo - ResolveFilterOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo - ResolveFilterOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveFilterOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveFilterOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveFilterOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveFilterOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveFilterOutputStreamMethod "write" o = OutputStreamWriteMethodInfo - ResolveFilterOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo - ResolveFilterOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo - ResolveFilterOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo - ResolveFilterOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo - ResolveFilterOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo - ResolveFilterOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo - ResolveFilterOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo - ResolveFilterOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo - ResolveFilterOutputStreamMethod "getBaseStream" o = FilterOutputStreamGetBaseStreamMethodInfo - ResolveFilterOutputStreamMethod "getCloseBaseStream" o = FilterOutputStreamGetCloseBaseStreamMethodInfo - ResolveFilterOutputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveFilterOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveFilterOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveFilterOutputStreamMethod "setCloseBaseStream" o = FilterOutputStreamSetCloseBaseStreamMethodInfo - ResolveFilterOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveFilterOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo - ResolveFilterOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveFilterOutputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFilterOutputStreamMethod t FilterOutputStream, MethodInfo info FilterOutputStream p) => IsLabelProxy t (FilterOutputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFilterOutputStreamMethod t FilterOutputStream, MethodInfo info FilterOutputStream p) => IsLabel t (FilterOutputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "base-stream" - -- Type: TInterface "Gio" "OutputStream" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getFilterOutputStreamBaseStream :: (MonadIO m, FilterOutputStreamK o) => o -> m OutputStream -getFilterOutputStreamBaseStream obj = liftIO $ checkUnexpectedNothing "getFilterOutputStreamBaseStream" $ getObjectPropertyObject obj "base-stream" OutputStream - -constructFilterOutputStreamBaseStream :: (OutputStreamK a) => a -> IO ([Char], GValue) -constructFilterOutputStreamBaseStream val = constructObjectPropertyObject "base-stream" (Just val) - -data FilterOutputStreamBaseStreamPropertyInfo -instance AttrInfo FilterOutputStreamBaseStreamPropertyInfo where - type AttrAllowedOps FilterOutputStreamBaseStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FilterOutputStreamBaseStreamPropertyInfo = OutputStreamK - type AttrBaseTypeConstraint FilterOutputStreamBaseStreamPropertyInfo = FilterOutputStreamK - type AttrGetType FilterOutputStreamBaseStreamPropertyInfo = OutputStream - type AttrLabel FilterOutputStreamBaseStreamPropertyInfo = "base-stream" - attrGet _ = getFilterOutputStreamBaseStream - attrSet _ = undefined - attrConstruct _ = constructFilterOutputStreamBaseStream - attrClear _ = undefined - --- VVV Prop "close-base-stream" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Just False) - -getFilterOutputStreamCloseBaseStream :: (MonadIO m, FilterOutputStreamK o) => o -> m Bool -getFilterOutputStreamCloseBaseStream obj = liftIO $ getObjectPropertyBool obj "close-base-stream" - -constructFilterOutputStreamCloseBaseStream :: Bool -> IO ([Char], GValue) -constructFilterOutputStreamCloseBaseStream val = constructObjectPropertyBool "close-base-stream" val - -data FilterOutputStreamCloseBaseStreamPropertyInfo -instance AttrInfo FilterOutputStreamCloseBaseStreamPropertyInfo where - type AttrAllowedOps FilterOutputStreamCloseBaseStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint FilterOutputStreamCloseBaseStreamPropertyInfo = (~) Bool - type AttrBaseTypeConstraint FilterOutputStreamCloseBaseStreamPropertyInfo = FilterOutputStreamK - type AttrGetType FilterOutputStreamCloseBaseStreamPropertyInfo = Bool - type AttrLabel FilterOutputStreamCloseBaseStreamPropertyInfo = "close-base-stream" - attrGet _ = getFilterOutputStreamCloseBaseStream - attrSet _ = undefined - attrConstruct _ = constructFilterOutputStreamCloseBaseStream - attrClear _ = undefined - -type instance AttributeList FilterOutputStream = FilterOutputStreamAttributeList -type FilterOutputStreamAttributeList = ('[ '("baseStream", FilterOutputStreamBaseStreamPropertyInfo), '("closeBaseStream", FilterOutputStreamCloseBaseStreamPropertyInfo)] :: [(Symbol, *)]) - -filterOutputStreamBaseStream :: AttrLabelProxy "baseStream" -filterOutputStreamBaseStream = AttrLabelProxy - -filterOutputStreamCloseBaseStream :: AttrLabelProxy "closeBaseStream" -filterOutputStreamCloseBaseStream = AttrLabelProxy - -type instance SignalList FilterOutputStream = FilterOutputStreamSignalList -type FilterOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method FilterOutputStream::get_base_stream --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "OutputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_filter_output_stream_get_base_stream" g_filter_output_stream_get_base_stream :: - Ptr FilterOutputStream -> -- _obj : TInterface "Gio" "FilterOutputStream" - IO (Ptr OutputStream) - - -filterOutputStreamGetBaseStream :: - (MonadIO m, FilterOutputStreamK a) => - a -- _obj - -> m OutputStream -- result -filterOutputStreamGetBaseStream _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_filter_output_stream_get_base_stream _obj' - checkUnexpectedReturnNULL "g_filter_output_stream_get_base_stream" result - result' <- (newObject OutputStream) result - touchManagedPtr _obj - return result' - -data FilterOutputStreamGetBaseStreamMethodInfo -instance (signature ~ (m OutputStream), MonadIO m, FilterOutputStreamK a) => MethodInfo FilterOutputStreamGetBaseStreamMethodInfo a signature where - overloadedMethod _ = filterOutputStreamGetBaseStream - --- method FilterOutputStream::get_close_base_stream --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_filter_output_stream_get_close_base_stream" g_filter_output_stream_get_close_base_stream :: - Ptr FilterOutputStream -> -- _obj : TInterface "Gio" "FilterOutputStream" - IO CInt - - -filterOutputStreamGetCloseBaseStream :: - (MonadIO m, FilterOutputStreamK a) => - a -- _obj - -> m Bool -- result -filterOutputStreamGetCloseBaseStream _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_filter_output_stream_get_close_base_stream _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data FilterOutputStreamGetCloseBaseStreamMethodInfo -instance (signature ~ (m Bool), MonadIO m, FilterOutputStreamK a) => MethodInfo FilterOutputStreamGetCloseBaseStreamMethodInfo a signature where - overloadedMethod _ = filterOutputStreamGetCloseBaseStream - --- method FilterOutputStream::set_close_base_stream --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FilterOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_base", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_filter_output_stream_set_close_base_stream" g_filter_output_stream_set_close_base_stream :: - Ptr FilterOutputStream -> -- _obj : TInterface "Gio" "FilterOutputStream" - CInt -> -- close_base : TBasicType TBoolean - IO () - - -filterOutputStreamSetCloseBaseStream :: - (MonadIO m, FilterOutputStreamK a) => - a -- _obj - -> Bool -- closeBase - -> m () -- result -filterOutputStreamSetCloseBaseStream _obj closeBase = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let closeBase' = (fromIntegral . fromEnum) closeBase - g_filter_output_stream_set_close_base_stream _obj' closeBase' - touchManagedPtr _obj - return () - -data FilterOutputStreamSetCloseBaseStreamMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, FilterOutputStreamK a) => MethodInfo FilterOutputStreamSetCloseBaseStreamMethodInfo a signature where - overloadedMethod _ = filterOutputStreamSetCloseBaseStream - - diff --git a/GI/Gio/Objects/FilterOutputStream.hs-boot b/GI/Gio/Objects/FilterOutputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/FilterOutputStream.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gio.Objects.FilterOutputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FilterOutputStream = FilterOutputStream (ForeignPtr FilterOutputStream) -instance GObject FilterOutputStream where -class GObject o => FilterOutputStreamK o -instance (GObject o, IsDescendantOf FilterOutputStream o) => FilterOutputStreamK o -data FilterOutputStreamBaseStreamPropertyInfo -data FilterOutputStreamCloseBaseStreamPropertyInfo -data FilterOutputStreamGetBaseStreamMethodInfo -data FilterOutputStreamGetCloseBaseStreamMethodInfo -data FilterOutputStreamSetCloseBaseStreamMethodInfo diff --git a/GI/Gio/Objects/IOStream.hs b/GI/Gio/Objects/IOStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/IOStream.hs +++ /dev/null @@ -1,629 +0,0 @@ - - -{- | -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.Objects.IOStream - ( - --- * Exported types - IOStream(..) , - IOStreamK , - toIOStream , - noIOStream , - - - -- * Methods --- ** iOStreamClearPending - IOStreamClearPendingMethodInfo , - iOStreamClearPending , - - --- ** iOStreamClose - IOStreamCloseMethodInfo , - iOStreamClose , - - --- ** iOStreamCloseAsync - IOStreamCloseAsyncMethodInfo , - iOStreamCloseAsync , - - --- ** iOStreamCloseFinish - IOStreamCloseFinishMethodInfo , - iOStreamCloseFinish , - - --- ** iOStreamGetInputStream - IOStreamGetInputStreamMethodInfo , - iOStreamGetInputStream , - - --- ** iOStreamGetOutputStream - IOStreamGetOutputStreamMethodInfo , - iOStreamGetOutputStream , - - --- ** iOStreamHasPending - IOStreamHasPendingMethodInfo , - iOStreamHasPending , - - --- ** iOStreamIsClosed - IOStreamIsClosedMethodInfo , - iOStreamIsClosed , - - --- ** iOStreamSetPending - IOStreamSetPendingMethodInfo , - iOStreamSetPending , - - --- ** iOStreamSpliceAsync - IOStreamSpliceAsyncMethodInfo , - iOStreamSpliceAsync , - - --- ** iOStreamSpliceFinish - iOStreamSpliceFinish , - - - - - -- * Properties --- ** Closed - IOStreamClosedPropertyInfo , - getIOStreamClosed , - iOStreamClosed , - - --- ** InputStream - IOStreamInputStreamPropertyInfo , - getIOStreamInputStream , - iOStreamInputStream , - - --- ** OutputStream - IOStreamOutputStreamPropertyInfo , - getIOStreamOutputStream , - iOStreamOutputStream , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype IOStream = IOStream (ForeignPtr IOStream) -foreign import ccall "g_io_stream_get_type" - c_g_io_stream_get_type :: IO GType - -type instance ParentTypes IOStream = IOStreamParentTypes -type IOStreamParentTypes = '[GObject.Object] - -instance GObject IOStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_io_stream_get_type - - -class GObject o => IOStreamK o -instance (GObject o, IsDescendantOf IOStream o) => IOStreamK o - -toIOStream :: IOStreamK o => o -> IO IOStream -toIOStream = unsafeCastTo IOStream - -noIOStream :: Maybe IOStream -noIOStream = Nothing - -type family ResolveIOStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveIOStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveIOStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveIOStreamMethod "clearPending" o = IOStreamClearPendingMethodInfo - ResolveIOStreamMethod "close" o = IOStreamCloseMethodInfo - ResolveIOStreamMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo - ResolveIOStreamMethod "closeFinish" o = IOStreamCloseFinishMethodInfo - ResolveIOStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveIOStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveIOStreamMethod "hasPending" o = IOStreamHasPendingMethodInfo - ResolveIOStreamMethod "isClosed" o = IOStreamIsClosedMethodInfo - ResolveIOStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveIOStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveIOStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveIOStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveIOStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveIOStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveIOStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveIOStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveIOStreamMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo - ResolveIOStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveIOStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveIOStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveIOStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveIOStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveIOStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveIOStreamMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo - ResolveIOStreamMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo - ResolveIOStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveIOStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveIOStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveIOStreamMethod "setPending" o = IOStreamSetPendingMethodInfo - ResolveIOStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveIOStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIOStreamMethod t IOStream, MethodInfo info IOStream p) => IsLabelProxy t (IOStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIOStreamMethod t IOStream, MethodInfo info IOStream p) => IsLabel t (IOStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "closed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getIOStreamClosed :: (MonadIO m, IOStreamK o) => o -> m Bool -getIOStreamClosed obj = liftIO $ getObjectPropertyBool obj "closed" - -data IOStreamClosedPropertyInfo -instance AttrInfo IOStreamClosedPropertyInfo where - type AttrAllowedOps IOStreamClosedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint IOStreamClosedPropertyInfo = (~) () - type AttrBaseTypeConstraint IOStreamClosedPropertyInfo = IOStreamK - type AttrGetType IOStreamClosedPropertyInfo = Bool - type AttrLabel IOStreamClosedPropertyInfo = "closed" - attrGet _ = getIOStreamClosed - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "input-stream" - -- Type: TInterface "Gio" "InputStream" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getIOStreamInputStream :: (MonadIO m, IOStreamK o) => o -> m InputStream -getIOStreamInputStream obj = liftIO $ checkUnexpectedNothing "getIOStreamInputStream" $ getObjectPropertyObject obj "input-stream" InputStream - -data IOStreamInputStreamPropertyInfo -instance AttrInfo IOStreamInputStreamPropertyInfo where - type AttrAllowedOps IOStreamInputStreamPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint IOStreamInputStreamPropertyInfo = (~) () - type AttrBaseTypeConstraint IOStreamInputStreamPropertyInfo = IOStreamK - type AttrGetType IOStreamInputStreamPropertyInfo = InputStream - type AttrLabel IOStreamInputStreamPropertyInfo = "input-stream" - attrGet _ = getIOStreamInputStream - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "output-stream" - -- Type: TInterface "Gio" "OutputStream" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getIOStreamOutputStream :: (MonadIO m, IOStreamK o) => o -> m OutputStream -getIOStreamOutputStream obj = liftIO $ checkUnexpectedNothing "getIOStreamOutputStream" $ getObjectPropertyObject obj "output-stream" OutputStream - -data IOStreamOutputStreamPropertyInfo -instance AttrInfo IOStreamOutputStreamPropertyInfo where - type AttrAllowedOps IOStreamOutputStreamPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint IOStreamOutputStreamPropertyInfo = (~) () - type AttrBaseTypeConstraint IOStreamOutputStreamPropertyInfo = IOStreamK - type AttrGetType IOStreamOutputStreamPropertyInfo = OutputStream - type AttrLabel IOStreamOutputStreamPropertyInfo = "output-stream" - attrGet _ = getIOStreamOutputStream - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList IOStream = IOStreamAttributeList -type IOStreamAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo)] :: [(Symbol, *)]) - -iOStreamClosed :: AttrLabelProxy "closed" -iOStreamClosed = AttrLabelProxy - -iOStreamInputStream :: AttrLabelProxy "inputStream" -iOStreamInputStream = AttrLabelProxy - -iOStreamOutputStream :: AttrLabelProxy "outputStream" -iOStreamOutputStream = AttrLabelProxy - -type instance SignalList IOStream = IOStreamSignalList -type IOStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method IOStream::clear_pending --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_io_stream_clear_pending" g_io_stream_clear_pending :: - Ptr IOStream -> -- _obj : TInterface "Gio" "IOStream" - IO () - - -iOStreamClearPending :: - (MonadIO m, IOStreamK a) => - a -- _obj - -> m () -- result -iOStreamClearPending _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_io_stream_clear_pending _obj' - touchManagedPtr _obj - return () - -data IOStreamClearPendingMethodInfo -instance (signature ~ (m ()), MonadIO m, IOStreamK a) => MethodInfo IOStreamClearPendingMethodInfo a signature where - overloadedMethod _ = iOStreamClearPending - --- method IOStream::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_io_stream_close" g_io_stream_close :: - Ptr IOStream -> -- _obj : TInterface "Gio" "IOStream" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -iOStreamClose :: - (MonadIO m, IOStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -iOStreamClose _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_io_stream_close _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data IOStreamCloseMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IOStreamK a, CancellableK b) => MethodInfo IOStreamCloseMethodInfo a signature where - overloadedMethod _ = iOStreamClose - --- method IOStream::close_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_io_stream_close_async" g_io_stream_close_async :: - Ptr IOStream -> -- _obj : TInterface "Gio" "IOStream" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -iOStreamCloseAsync :: - (MonadIO m, IOStreamK a, CancellableK b) => - a -- _obj - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -iOStreamCloseAsync _obj ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_io_stream_close_async _obj' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data IOStreamCloseAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, IOStreamK a, CancellableK b) => MethodInfo IOStreamCloseAsyncMethodInfo a signature where - overloadedMethod _ = iOStreamCloseAsync - --- method IOStream::close_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_io_stream_close_finish" g_io_stream_close_finish :: - Ptr IOStream -> -- _obj : TInterface "Gio" "IOStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -iOStreamCloseFinish :: - (MonadIO m, IOStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -iOStreamCloseFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_io_stream_close_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data IOStreamCloseFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, IOStreamK a, AsyncResultK b) => MethodInfo IOStreamCloseFinishMethodInfo a signature where - overloadedMethod _ = iOStreamCloseFinish - --- method IOStream::get_input_stream --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_io_stream_get_input_stream" g_io_stream_get_input_stream :: - Ptr IOStream -> -- _obj : TInterface "Gio" "IOStream" - IO (Ptr InputStream) - - -iOStreamGetInputStream :: - (MonadIO m, IOStreamK a) => - a -- _obj - -> m InputStream -- result -iOStreamGetInputStream _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_io_stream_get_input_stream _obj' - checkUnexpectedReturnNULL "g_io_stream_get_input_stream" result - result' <- (newObject InputStream) result - touchManagedPtr _obj - return result' - -data IOStreamGetInputStreamMethodInfo -instance (signature ~ (m InputStream), MonadIO m, IOStreamK a) => MethodInfo IOStreamGetInputStreamMethodInfo a signature where - overloadedMethod _ = iOStreamGetInputStream - --- method IOStream::get_output_stream --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "OutputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_io_stream_get_output_stream" g_io_stream_get_output_stream :: - Ptr IOStream -> -- _obj : TInterface "Gio" "IOStream" - IO (Ptr OutputStream) - - -iOStreamGetOutputStream :: - (MonadIO m, IOStreamK a) => - a -- _obj - -> m OutputStream -- result -iOStreamGetOutputStream _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_io_stream_get_output_stream _obj' - checkUnexpectedReturnNULL "g_io_stream_get_output_stream" result - result' <- (newObject OutputStream) result - touchManagedPtr _obj - return result' - -data IOStreamGetOutputStreamMethodInfo -instance (signature ~ (m OutputStream), MonadIO m, IOStreamK a) => MethodInfo IOStreamGetOutputStreamMethodInfo a signature where - overloadedMethod _ = iOStreamGetOutputStream - --- method IOStream::has_pending --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_io_stream_has_pending" g_io_stream_has_pending :: - Ptr IOStream -> -- _obj : TInterface "Gio" "IOStream" - IO CInt - - -iOStreamHasPending :: - (MonadIO m, IOStreamK a) => - a -- _obj - -> m Bool -- result -iOStreamHasPending _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_io_stream_has_pending _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data IOStreamHasPendingMethodInfo -instance (signature ~ (m Bool), MonadIO m, IOStreamK a) => MethodInfo IOStreamHasPendingMethodInfo a signature where - overloadedMethod _ = iOStreamHasPending - --- method IOStream::is_closed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_io_stream_is_closed" g_io_stream_is_closed :: - Ptr IOStream -> -- _obj : TInterface "Gio" "IOStream" - IO CInt - - -iOStreamIsClosed :: - (MonadIO m, IOStreamK a) => - a -- _obj - -> m Bool -- result -iOStreamIsClosed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_io_stream_is_closed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data IOStreamIsClosedMethodInfo -instance (signature ~ (m Bool), MonadIO m, IOStreamK a) => MethodInfo IOStreamIsClosedMethodInfo a signature where - overloadedMethod _ = iOStreamIsClosed - --- method IOStream::set_pending --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_io_stream_set_pending" g_io_stream_set_pending :: - Ptr IOStream -> -- _obj : TInterface "Gio" "IOStream" - Ptr (Ptr GError) -> -- error - IO CInt - - -iOStreamSetPending :: - (MonadIO m, IOStreamK a) => - a -- _obj - -> m () -- result -iOStreamSetPending _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ g_io_stream_set_pending _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data IOStreamSetPendingMethodInfo -instance (signature ~ (m ()), MonadIO m, IOStreamK a) => MethodInfo IOStreamSetPendingMethodInfo a signature where - overloadedMethod _ = iOStreamSetPending - --- method IOStream::splice_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream2", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "IOStreamSpliceFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_io_stream_splice_async" g_io_stream_splice_async :: - Ptr IOStream -> -- _obj : TInterface "Gio" "IOStream" - Ptr IOStream -> -- stream2 : TInterface "Gio" "IOStream" - CUInt -> -- flags : TInterface "Gio" "IOStreamSpliceFlags" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -iOStreamSpliceAsync :: - (MonadIO m, IOStreamK a, IOStreamK b, CancellableK c) => - a -- _obj - -> b -- stream2 - -> [IOStreamSpliceFlags] -- flags - -> Int32 -- ioPriority - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -iOStreamSpliceAsync _obj stream2 flags ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let stream2' = unsafeManagedPtrCastPtr stream2 - let flags' = gflagsToWord flags - 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_io_stream_splice_async _obj' stream2' flags' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr stream2 - whenJust cancellable touchManagedPtr - return () - -data IOStreamSpliceAsyncMethodInfo -instance (signature ~ (b -> [IOStreamSpliceFlags] -> Int32 -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, IOStreamK a, IOStreamK b, CancellableK c) => MethodInfo IOStreamSpliceAsyncMethodInfo a signature where - overloadedMethod _ = iOStreamSpliceAsync - --- method IOStream::splice_finish --- method type : MemberFunction --- Args : [Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_io_stream_splice_finish" g_io_stream_splice_finish :: - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -iOStreamSpliceFinish :: - (MonadIO m, AsyncResultK a) => - a -- result_ - -> m () -- result -iOStreamSpliceFinish result_ = liftIO $ do - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_io_stream_splice_finish result_' - touchManagedPtr result_ - return () - ) (do - return () - ) - - diff --git a/GI/Gio/Objects/IOStream.hs-boot b/GI/Gio/Objects/IOStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/IOStream.hs-boot +++ /dev/null @@ -1,26 +0,0 @@ -module GI.Gio.Objects.IOStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IOStream = IOStream (ForeignPtr IOStream) -instance GObject IOStream where -class GObject o => IOStreamK o -instance (GObject o, IsDescendantOf IOStream o) => IOStreamK o -data IOStreamClosedPropertyInfo -data IOStreamInputStreamPropertyInfo -data IOStreamOutputStreamPropertyInfo -data IOStreamClearPendingMethodInfo -data IOStreamCloseMethodInfo -data IOStreamCloseAsyncMethodInfo -data IOStreamCloseFinishMethodInfo -data IOStreamGetInputStreamMethodInfo -data IOStreamGetOutputStreamMethodInfo -data IOStreamHasPendingMethodInfo -data IOStreamIsClosedMethodInfo -data IOStreamSetPendingMethodInfo -data IOStreamSpliceAsyncMethodInfo diff --git a/GI/Gio/Objects/InetAddress.hs b/GI/Gio/Objects/InetAddress.hs deleted file mode 100644 --- a/GI/Gio/Objects/InetAddress.hs +++ /dev/null @@ -1,1050 +0,0 @@ - - -{- | -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.Objects.InetAddress - ( - --- * Exported types - InetAddress(..) , - InetAddressK , - toInetAddress , - noInetAddress , - - - -- * Methods --- ** inetAddressEqual - InetAddressEqualMethodInfo , - inetAddressEqual , - - --- ** inetAddressGetFamily - InetAddressGetFamilyMethodInfo , - inetAddressGetFamily , - - --- ** inetAddressGetIsAny - InetAddressGetIsAnyMethodInfo , - inetAddressGetIsAny , - - --- ** inetAddressGetIsLinkLocal - InetAddressGetIsLinkLocalMethodInfo , - inetAddressGetIsLinkLocal , - - --- ** inetAddressGetIsLoopback - InetAddressGetIsLoopbackMethodInfo , - inetAddressGetIsLoopback , - - --- ** inetAddressGetIsMcGlobal - InetAddressGetIsMcGlobalMethodInfo , - inetAddressGetIsMcGlobal , - - --- ** inetAddressGetIsMcLinkLocal - InetAddressGetIsMcLinkLocalMethodInfo , - inetAddressGetIsMcLinkLocal , - - --- ** inetAddressGetIsMcNodeLocal - InetAddressGetIsMcNodeLocalMethodInfo , - inetAddressGetIsMcNodeLocal , - - --- ** inetAddressGetIsMcOrgLocal - InetAddressGetIsMcOrgLocalMethodInfo , - inetAddressGetIsMcOrgLocal , - - --- ** inetAddressGetIsMcSiteLocal - InetAddressGetIsMcSiteLocalMethodInfo , - inetAddressGetIsMcSiteLocal , - - --- ** inetAddressGetIsMulticast - InetAddressGetIsMulticastMethodInfo , - inetAddressGetIsMulticast , - - --- ** inetAddressGetIsSiteLocal - InetAddressGetIsSiteLocalMethodInfo , - inetAddressGetIsSiteLocal , - - --- ** inetAddressGetNativeSize - InetAddressGetNativeSizeMethodInfo , - inetAddressGetNativeSize , - - --- ** inetAddressNewAny - inetAddressNewAny , - - --- ** inetAddressNewFromBytes - inetAddressNewFromBytes , - - --- ** inetAddressNewFromString - inetAddressNewFromString , - - --- ** inetAddressNewLoopback - inetAddressNewLoopback , - - --- ** inetAddressToString - InetAddressToStringMethodInfo , - inetAddressToString , - - - - - -- * Properties --- ** Bytes - InetAddressBytesPropertyInfo , - constructInetAddressBytes , - getInetAddressBytes , - inetAddressBytes , - - --- ** Family - InetAddressFamilyPropertyInfo , - constructInetAddressFamily , - getInetAddressFamily , - inetAddressFamily , - - --- ** IsAny - InetAddressIsAnyPropertyInfo , - getInetAddressIsAny , - inetAddressIsAny , - - --- ** IsLinkLocal - InetAddressIsLinkLocalPropertyInfo , - getInetAddressIsLinkLocal , - inetAddressIsLinkLocal , - - --- ** IsLoopback - InetAddressIsLoopbackPropertyInfo , - getInetAddressIsLoopback , - inetAddressIsLoopback , - - --- ** IsMcGlobal - InetAddressIsMcGlobalPropertyInfo , - getInetAddressIsMcGlobal , - inetAddressIsMcGlobal , - - --- ** IsMcLinkLocal - InetAddressIsMcLinkLocalPropertyInfo , - getInetAddressIsMcLinkLocal , - inetAddressIsMcLinkLocal , - - --- ** IsMcNodeLocal - InetAddressIsMcNodeLocalPropertyInfo , - getInetAddressIsMcNodeLocal , - inetAddressIsMcNodeLocal , - - --- ** IsMcOrgLocal - InetAddressIsMcOrgLocalPropertyInfo , - getInetAddressIsMcOrgLocal , - inetAddressIsMcOrgLocal , - - --- ** IsMcSiteLocal - InetAddressIsMcSiteLocalPropertyInfo , - getInetAddressIsMcSiteLocal , - inetAddressIsMcSiteLocal , - - --- ** IsMulticast - InetAddressIsMulticastPropertyInfo , - getInetAddressIsMulticast , - inetAddressIsMulticast , - - --- ** IsSiteLocal - InetAddressIsSiteLocalPropertyInfo , - getInetAddressIsSiteLocal , - inetAddressIsSiteLocal , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype InetAddress = InetAddress (ForeignPtr InetAddress) -foreign import ccall "g_inet_address_get_type" - c_g_inet_address_get_type :: IO GType - -type instance ParentTypes InetAddress = InetAddressParentTypes -type InetAddressParentTypes = '[GObject.Object] - -instance GObject InetAddress where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_inet_address_get_type - - -class GObject o => InetAddressK o -instance (GObject o, IsDescendantOf InetAddress o) => InetAddressK o - -toInetAddress :: InetAddressK o => o -> IO InetAddress -toInetAddress = unsafeCastTo InetAddress - -noInetAddress :: Maybe InetAddress -noInetAddress = Nothing - -type family ResolveInetAddressMethod (t :: Symbol) (o :: *) :: * where - ResolveInetAddressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveInetAddressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveInetAddressMethod "equal" o = InetAddressEqualMethodInfo - ResolveInetAddressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveInetAddressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveInetAddressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveInetAddressMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveInetAddressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveInetAddressMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveInetAddressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveInetAddressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveInetAddressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveInetAddressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveInetAddressMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveInetAddressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveInetAddressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveInetAddressMethod "toString" o = InetAddressToStringMethodInfo - ResolveInetAddressMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveInetAddressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveInetAddressMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveInetAddressMethod "getFamily" o = InetAddressGetFamilyMethodInfo - ResolveInetAddressMethod "getIsAny" o = InetAddressGetIsAnyMethodInfo - ResolveInetAddressMethod "getIsLinkLocal" o = InetAddressGetIsLinkLocalMethodInfo - ResolveInetAddressMethod "getIsLoopback" o = InetAddressGetIsLoopbackMethodInfo - ResolveInetAddressMethod "getIsMcGlobal" o = InetAddressGetIsMcGlobalMethodInfo - ResolveInetAddressMethod "getIsMcLinkLocal" o = InetAddressGetIsMcLinkLocalMethodInfo - ResolveInetAddressMethod "getIsMcNodeLocal" o = InetAddressGetIsMcNodeLocalMethodInfo - ResolveInetAddressMethod "getIsMcOrgLocal" o = InetAddressGetIsMcOrgLocalMethodInfo - ResolveInetAddressMethod "getIsMcSiteLocal" o = InetAddressGetIsMcSiteLocalMethodInfo - ResolveInetAddressMethod "getIsMulticast" o = InetAddressGetIsMulticastMethodInfo - ResolveInetAddressMethod "getIsSiteLocal" o = InetAddressGetIsSiteLocalMethodInfo - ResolveInetAddressMethod "getNativeSize" o = InetAddressGetNativeSizeMethodInfo - ResolveInetAddressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveInetAddressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveInetAddressMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveInetAddressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveInetAddressMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveInetAddressMethod t InetAddress, MethodInfo info InetAddress p) => IsLabelProxy t (InetAddress -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveInetAddressMethod t InetAddress, MethodInfo info InetAddress p) => IsLabel t (InetAddress -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "bytes" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getInetAddressBytes :: (MonadIO m, InetAddressK o) => o -> m (Ptr ()) -getInetAddressBytes obj = liftIO $ getObjectPropertyPtr obj "bytes" - -constructInetAddressBytes :: Ptr () -> IO ([Char], GValue) -constructInetAddressBytes val = constructObjectPropertyPtr "bytes" val - -data InetAddressBytesPropertyInfo -instance AttrInfo InetAddressBytesPropertyInfo where - type AttrAllowedOps InetAddressBytesPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint InetAddressBytesPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint InetAddressBytesPropertyInfo = InetAddressK - type AttrGetType InetAddressBytesPropertyInfo = (Ptr ()) - type AttrLabel InetAddressBytesPropertyInfo = "bytes" - attrGet _ = getInetAddressBytes - attrSet _ = undefined - attrConstruct _ = constructInetAddressBytes - attrClear _ = undefined - --- VVV Prop "family" - -- Type: TInterface "Gio" "SocketFamily" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getInetAddressFamily :: (MonadIO m, InetAddressK o) => o -> m SocketFamily -getInetAddressFamily obj = liftIO $ getObjectPropertyEnum obj "family" - -constructInetAddressFamily :: SocketFamily -> IO ([Char], GValue) -constructInetAddressFamily val = constructObjectPropertyEnum "family" val - -data InetAddressFamilyPropertyInfo -instance AttrInfo InetAddressFamilyPropertyInfo where - type AttrAllowedOps InetAddressFamilyPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint InetAddressFamilyPropertyInfo = (~) SocketFamily - type AttrBaseTypeConstraint InetAddressFamilyPropertyInfo = InetAddressK - type AttrGetType InetAddressFamilyPropertyInfo = SocketFamily - type AttrLabel InetAddressFamilyPropertyInfo = "family" - attrGet _ = getInetAddressFamily - attrSet _ = undefined - attrConstruct _ = constructInetAddressFamily - attrClear _ = undefined - --- VVV Prop "is-any" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getInetAddressIsAny :: (MonadIO m, InetAddressK o) => o -> m Bool -getInetAddressIsAny obj = liftIO $ getObjectPropertyBool obj "is-any" - -data InetAddressIsAnyPropertyInfo -instance AttrInfo InetAddressIsAnyPropertyInfo where - type AttrAllowedOps InetAddressIsAnyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint InetAddressIsAnyPropertyInfo = (~) () - type AttrBaseTypeConstraint InetAddressIsAnyPropertyInfo = InetAddressK - type AttrGetType InetAddressIsAnyPropertyInfo = Bool - type AttrLabel InetAddressIsAnyPropertyInfo = "is-any" - attrGet _ = getInetAddressIsAny - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-link-local" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getInetAddressIsLinkLocal :: (MonadIO m, InetAddressK o) => o -> m Bool -getInetAddressIsLinkLocal obj = liftIO $ getObjectPropertyBool obj "is-link-local" - -data InetAddressIsLinkLocalPropertyInfo -instance AttrInfo InetAddressIsLinkLocalPropertyInfo where - type AttrAllowedOps InetAddressIsLinkLocalPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint InetAddressIsLinkLocalPropertyInfo = (~) () - type AttrBaseTypeConstraint InetAddressIsLinkLocalPropertyInfo = InetAddressK - type AttrGetType InetAddressIsLinkLocalPropertyInfo = Bool - type AttrLabel InetAddressIsLinkLocalPropertyInfo = "is-link-local" - attrGet _ = getInetAddressIsLinkLocal - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-loopback" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getInetAddressIsLoopback :: (MonadIO m, InetAddressK o) => o -> m Bool -getInetAddressIsLoopback obj = liftIO $ getObjectPropertyBool obj "is-loopback" - -data InetAddressIsLoopbackPropertyInfo -instance AttrInfo InetAddressIsLoopbackPropertyInfo where - type AttrAllowedOps InetAddressIsLoopbackPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint InetAddressIsLoopbackPropertyInfo = (~) () - type AttrBaseTypeConstraint InetAddressIsLoopbackPropertyInfo = InetAddressK - type AttrGetType InetAddressIsLoopbackPropertyInfo = Bool - type AttrLabel InetAddressIsLoopbackPropertyInfo = "is-loopback" - attrGet _ = getInetAddressIsLoopback - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-mc-global" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getInetAddressIsMcGlobal :: (MonadIO m, InetAddressK o) => o -> m Bool -getInetAddressIsMcGlobal obj = liftIO $ getObjectPropertyBool obj "is-mc-global" - -data InetAddressIsMcGlobalPropertyInfo -instance AttrInfo InetAddressIsMcGlobalPropertyInfo where - type AttrAllowedOps InetAddressIsMcGlobalPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint InetAddressIsMcGlobalPropertyInfo = (~) () - type AttrBaseTypeConstraint InetAddressIsMcGlobalPropertyInfo = InetAddressK - type AttrGetType InetAddressIsMcGlobalPropertyInfo = Bool - type AttrLabel InetAddressIsMcGlobalPropertyInfo = "is-mc-global" - attrGet _ = getInetAddressIsMcGlobal - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-mc-link-local" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getInetAddressIsMcLinkLocal :: (MonadIO m, InetAddressK o) => o -> m Bool -getInetAddressIsMcLinkLocal obj = liftIO $ getObjectPropertyBool obj "is-mc-link-local" - -data InetAddressIsMcLinkLocalPropertyInfo -instance AttrInfo InetAddressIsMcLinkLocalPropertyInfo where - type AttrAllowedOps InetAddressIsMcLinkLocalPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint InetAddressIsMcLinkLocalPropertyInfo = (~) () - type AttrBaseTypeConstraint InetAddressIsMcLinkLocalPropertyInfo = InetAddressK - type AttrGetType InetAddressIsMcLinkLocalPropertyInfo = Bool - type AttrLabel InetAddressIsMcLinkLocalPropertyInfo = "is-mc-link-local" - attrGet _ = getInetAddressIsMcLinkLocal - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-mc-node-local" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getInetAddressIsMcNodeLocal :: (MonadIO m, InetAddressK o) => o -> m Bool -getInetAddressIsMcNodeLocal obj = liftIO $ getObjectPropertyBool obj "is-mc-node-local" - -data InetAddressIsMcNodeLocalPropertyInfo -instance AttrInfo InetAddressIsMcNodeLocalPropertyInfo where - type AttrAllowedOps InetAddressIsMcNodeLocalPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint InetAddressIsMcNodeLocalPropertyInfo = (~) () - type AttrBaseTypeConstraint InetAddressIsMcNodeLocalPropertyInfo = InetAddressK - type AttrGetType InetAddressIsMcNodeLocalPropertyInfo = Bool - type AttrLabel InetAddressIsMcNodeLocalPropertyInfo = "is-mc-node-local" - attrGet _ = getInetAddressIsMcNodeLocal - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-mc-org-local" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getInetAddressIsMcOrgLocal :: (MonadIO m, InetAddressK o) => o -> m Bool -getInetAddressIsMcOrgLocal obj = liftIO $ getObjectPropertyBool obj "is-mc-org-local" - -data InetAddressIsMcOrgLocalPropertyInfo -instance AttrInfo InetAddressIsMcOrgLocalPropertyInfo where - type AttrAllowedOps InetAddressIsMcOrgLocalPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint InetAddressIsMcOrgLocalPropertyInfo = (~) () - type AttrBaseTypeConstraint InetAddressIsMcOrgLocalPropertyInfo = InetAddressK - type AttrGetType InetAddressIsMcOrgLocalPropertyInfo = Bool - type AttrLabel InetAddressIsMcOrgLocalPropertyInfo = "is-mc-org-local" - attrGet _ = getInetAddressIsMcOrgLocal - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-mc-site-local" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getInetAddressIsMcSiteLocal :: (MonadIO m, InetAddressK o) => o -> m Bool -getInetAddressIsMcSiteLocal obj = liftIO $ getObjectPropertyBool obj "is-mc-site-local" - -data InetAddressIsMcSiteLocalPropertyInfo -instance AttrInfo InetAddressIsMcSiteLocalPropertyInfo where - type AttrAllowedOps InetAddressIsMcSiteLocalPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint InetAddressIsMcSiteLocalPropertyInfo = (~) () - type AttrBaseTypeConstraint InetAddressIsMcSiteLocalPropertyInfo = InetAddressK - type AttrGetType InetAddressIsMcSiteLocalPropertyInfo = Bool - type AttrLabel InetAddressIsMcSiteLocalPropertyInfo = "is-mc-site-local" - attrGet _ = getInetAddressIsMcSiteLocal - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-multicast" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getInetAddressIsMulticast :: (MonadIO m, InetAddressK o) => o -> m Bool -getInetAddressIsMulticast obj = liftIO $ getObjectPropertyBool obj "is-multicast" - -data InetAddressIsMulticastPropertyInfo -instance AttrInfo InetAddressIsMulticastPropertyInfo where - type AttrAllowedOps InetAddressIsMulticastPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint InetAddressIsMulticastPropertyInfo = (~) () - type AttrBaseTypeConstraint InetAddressIsMulticastPropertyInfo = InetAddressK - type AttrGetType InetAddressIsMulticastPropertyInfo = Bool - type AttrLabel InetAddressIsMulticastPropertyInfo = "is-multicast" - attrGet _ = getInetAddressIsMulticast - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-site-local" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getInetAddressIsSiteLocal :: (MonadIO m, InetAddressK o) => o -> m Bool -getInetAddressIsSiteLocal obj = liftIO $ getObjectPropertyBool obj "is-site-local" - -data InetAddressIsSiteLocalPropertyInfo -instance AttrInfo InetAddressIsSiteLocalPropertyInfo where - type AttrAllowedOps InetAddressIsSiteLocalPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint InetAddressIsSiteLocalPropertyInfo = (~) () - type AttrBaseTypeConstraint InetAddressIsSiteLocalPropertyInfo = InetAddressK - type AttrGetType InetAddressIsSiteLocalPropertyInfo = Bool - type AttrLabel InetAddressIsSiteLocalPropertyInfo = "is-site-local" - attrGet _ = getInetAddressIsSiteLocal - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList InetAddress = InetAddressAttributeList -type InetAddressAttributeList = ('[ '("bytes", InetAddressBytesPropertyInfo), '("family", InetAddressFamilyPropertyInfo), '("isAny", InetAddressIsAnyPropertyInfo), '("isLinkLocal", InetAddressIsLinkLocalPropertyInfo), '("isLoopback", InetAddressIsLoopbackPropertyInfo), '("isMcGlobal", InetAddressIsMcGlobalPropertyInfo), '("isMcLinkLocal", InetAddressIsMcLinkLocalPropertyInfo), '("isMcNodeLocal", InetAddressIsMcNodeLocalPropertyInfo), '("isMcOrgLocal", InetAddressIsMcOrgLocalPropertyInfo), '("isMcSiteLocal", InetAddressIsMcSiteLocalPropertyInfo), '("isMulticast", InetAddressIsMulticastPropertyInfo), '("isSiteLocal", InetAddressIsSiteLocalPropertyInfo)] :: [(Symbol, *)]) - -inetAddressBytes :: AttrLabelProxy "bytes" -inetAddressBytes = AttrLabelProxy - -inetAddressFamily :: AttrLabelProxy "family" -inetAddressFamily = AttrLabelProxy - -inetAddressIsAny :: AttrLabelProxy "isAny" -inetAddressIsAny = AttrLabelProxy - -inetAddressIsLinkLocal :: AttrLabelProxy "isLinkLocal" -inetAddressIsLinkLocal = AttrLabelProxy - -inetAddressIsLoopback :: AttrLabelProxy "isLoopback" -inetAddressIsLoopback = AttrLabelProxy - -inetAddressIsMcGlobal :: AttrLabelProxy "isMcGlobal" -inetAddressIsMcGlobal = AttrLabelProxy - -inetAddressIsMcLinkLocal :: AttrLabelProxy "isMcLinkLocal" -inetAddressIsMcLinkLocal = AttrLabelProxy - -inetAddressIsMcNodeLocal :: AttrLabelProxy "isMcNodeLocal" -inetAddressIsMcNodeLocal = AttrLabelProxy - -inetAddressIsMcOrgLocal :: AttrLabelProxy "isMcOrgLocal" -inetAddressIsMcOrgLocal = AttrLabelProxy - -inetAddressIsMcSiteLocal :: AttrLabelProxy "isMcSiteLocal" -inetAddressIsMcSiteLocal = AttrLabelProxy - -inetAddressIsMulticast :: AttrLabelProxy "isMulticast" -inetAddressIsMulticast = AttrLabelProxy - -inetAddressIsSiteLocal :: AttrLabelProxy "isSiteLocal" -inetAddressIsSiteLocal = AttrLabelProxy - -type instance SignalList InetAddress = InetAddressSignalList -type InetAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method InetAddress::new_any --- method type : Constructor --- Args : [Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InetAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_new_any" g_inet_address_new_any :: - CUInt -> -- family : TInterface "Gio" "SocketFamily" - IO (Ptr InetAddress) - - -inetAddressNewAny :: - (MonadIO m) => - SocketFamily -- family - -> m InetAddress -- result -inetAddressNewAny family = liftIO $ do - let family' = (fromIntegral . fromEnum) family - result <- g_inet_address_new_any family' - checkUnexpectedReturnNULL "g_inet_address_new_any" result - result' <- (wrapObject InetAddress) result - return result' - --- method InetAddress::new_from_bytes --- method type : Constructor --- Args : [Arg {argCName = "bytes", argType = TCArray False (-1) (-1) (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InetAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_new_from_bytes" g_inet_address_new_from_bytes :: - Ptr Word8 -> -- bytes : TCArray False (-1) (-1) (TBasicType TUInt8) - CUInt -> -- family : TInterface "Gio" "SocketFamily" - IO (Ptr InetAddress) - - -inetAddressNewFromBytes :: - (MonadIO m) => - Ptr Word8 -- bytes - -> SocketFamily -- family - -> m InetAddress -- result -inetAddressNewFromBytes bytes family = liftIO $ do - let family' = (fromIntegral . fromEnum) family - result <- g_inet_address_new_from_bytes bytes family' - checkUnexpectedReturnNULL "g_inet_address_new_from_bytes" result - result' <- (wrapObject InetAddress) result - return result' - --- method InetAddress::new_from_string --- method type : Constructor --- Args : [Arg {argCName = "string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InetAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_new_from_string" g_inet_address_new_from_string :: - CString -> -- string : TBasicType TUTF8 - IO (Ptr InetAddress) - - -inetAddressNewFromString :: - (MonadIO m) => - T.Text -- string - -> m InetAddress -- result -inetAddressNewFromString string = liftIO $ do - string' <- textToCString string - result <- g_inet_address_new_from_string string' - checkUnexpectedReturnNULL "g_inet_address_new_from_string" result - result' <- (wrapObject InetAddress) result - freeMem string' - return result' - --- method InetAddress::new_loopback --- method type : Constructor --- Args : [Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InetAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_new_loopback" g_inet_address_new_loopback :: - CUInt -> -- family : TInterface "Gio" "SocketFamily" - IO (Ptr InetAddress) - - -inetAddressNewLoopback :: - (MonadIO m) => - SocketFamily -- family - -> m InetAddress -- result -inetAddressNewLoopback family = liftIO $ do - let family' = (fromIntegral . fromEnum) family - result <- g_inet_address_new_loopback family' - checkUnexpectedReturnNULL "g_inet_address_new_loopback" result - result' <- (wrapObject InetAddress) result - return result' - --- method InetAddress::equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "other_address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_equal" g_inet_address_equal :: - Ptr InetAddress -> -- _obj : TInterface "Gio" "InetAddress" - Ptr InetAddress -> -- other_address : TInterface "Gio" "InetAddress" - IO CInt - - -inetAddressEqual :: - (MonadIO m, InetAddressK a, InetAddressK b) => - a -- _obj - -> b -- otherAddress - -> m Bool -- result -inetAddressEqual _obj otherAddress = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let otherAddress' = unsafeManagedPtrCastPtr otherAddress - result <- g_inet_address_equal _obj' otherAddress' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr otherAddress - return result' - -data InetAddressEqualMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, InetAddressK a, InetAddressK b) => MethodInfo InetAddressEqualMethodInfo a signature where - overloadedMethod _ = inetAddressEqual - --- method InetAddress::get_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketFamily") --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_get_family" g_inet_address_get_family :: - Ptr InetAddress -> -- _obj : TInterface "Gio" "InetAddress" - IO CUInt - - -inetAddressGetFamily :: - (MonadIO m, InetAddressK a) => - a -- _obj - -> m SocketFamily -- result -inetAddressGetFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_get_family _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data InetAddressGetFamilyMethodInfo -instance (signature ~ (m SocketFamily), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetFamilyMethodInfo a signature where - overloadedMethod _ = inetAddressGetFamily - --- method InetAddress::get_is_any --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_get_is_any" g_inet_address_get_is_any :: - Ptr InetAddress -> -- _obj : TInterface "Gio" "InetAddress" - IO CInt - - -inetAddressGetIsAny :: - (MonadIO m, InetAddressK a) => - a -- _obj - -> m Bool -- result -inetAddressGetIsAny _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_get_is_any _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data InetAddressGetIsAnyMethodInfo -instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsAnyMethodInfo a signature where - overloadedMethod _ = inetAddressGetIsAny - --- method InetAddress::get_is_link_local --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_get_is_link_local" g_inet_address_get_is_link_local :: - Ptr InetAddress -> -- _obj : TInterface "Gio" "InetAddress" - IO CInt - - -inetAddressGetIsLinkLocal :: - (MonadIO m, InetAddressK a) => - a -- _obj - -> m Bool -- result -inetAddressGetIsLinkLocal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_get_is_link_local _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data InetAddressGetIsLinkLocalMethodInfo -instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsLinkLocalMethodInfo a signature where - overloadedMethod _ = inetAddressGetIsLinkLocal - --- method InetAddress::get_is_loopback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_get_is_loopback" g_inet_address_get_is_loopback :: - Ptr InetAddress -> -- _obj : TInterface "Gio" "InetAddress" - IO CInt - - -inetAddressGetIsLoopback :: - (MonadIO m, InetAddressK a) => - a -- _obj - -> m Bool -- result -inetAddressGetIsLoopback _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_get_is_loopback _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data InetAddressGetIsLoopbackMethodInfo -instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsLoopbackMethodInfo a signature where - overloadedMethod _ = inetAddressGetIsLoopback - --- method InetAddress::get_is_mc_global --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_get_is_mc_global" g_inet_address_get_is_mc_global :: - Ptr InetAddress -> -- _obj : TInterface "Gio" "InetAddress" - IO CInt - - -inetAddressGetIsMcGlobal :: - (MonadIO m, InetAddressK a) => - a -- _obj - -> m Bool -- result -inetAddressGetIsMcGlobal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_get_is_mc_global _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data InetAddressGetIsMcGlobalMethodInfo -instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsMcGlobalMethodInfo a signature where - overloadedMethod _ = inetAddressGetIsMcGlobal - --- method InetAddress::get_is_mc_link_local --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_get_is_mc_link_local" g_inet_address_get_is_mc_link_local :: - Ptr InetAddress -> -- _obj : TInterface "Gio" "InetAddress" - IO CInt - - -inetAddressGetIsMcLinkLocal :: - (MonadIO m, InetAddressK a) => - a -- _obj - -> m Bool -- result -inetAddressGetIsMcLinkLocal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_get_is_mc_link_local _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data InetAddressGetIsMcLinkLocalMethodInfo -instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsMcLinkLocalMethodInfo a signature where - overloadedMethod _ = inetAddressGetIsMcLinkLocal - --- method InetAddress::get_is_mc_node_local --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_get_is_mc_node_local" g_inet_address_get_is_mc_node_local :: - Ptr InetAddress -> -- _obj : TInterface "Gio" "InetAddress" - IO CInt - - -inetAddressGetIsMcNodeLocal :: - (MonadIO m, InetAddressK a) => - a -- _obj - -> m Bool -- result -inetAddressGetIsMcNodeLocal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_get_is_mc_node_local _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data InetAddressGetIsMcNodeLocalMethodInfo -instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsMcNodeLocalMethodInfo a signature where - overloadedMethod _ = inetAddressGetIsMcNodeLocal - --- method InetAddress::get_is_mc_org_local --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_get_is_mc_org_local" g_inet_address_get_is_mc_org_local :: - Ptr InetAddress -> -- _obj : TInterface "Gio" "InetAddress" - IO CInt - - -inetAddressGetIsMcOrgLocal :: - (MonadIO m, InetAddressK a) => - a -- _obj - -> m Bool -- result -inetAddressGetIsMcOrgLocal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_get_is_mc_org_local _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data InetAddressGetIsMcOrgLocalMethodInfo -instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsMcOrgLocalMethodInfo a signature where - overloadedMethod _ = inetAddressGetIsMcOrgLocal - --- method InetAddress::get_is_mc_site_local --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_get_is_mc_site_local" g_inet_address_get_is_mc_site_local :: - Ptr InetAddress -> -- _obj : TInterface "Gio" "InetAddress" - IO CInt - - -inetAddressGetIsMcSiteLocal :: - (MonadIO m, InetAddressK a) => - a -- _obj - -> m Bool -- result -inetAddressGetIsMcSiteLocal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_get_is_mc_site_local _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data InetAddressGetIsMcSiteLocalMethodInfo -instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsMcSiteLocalMethodInfo a signature where - overloadedMethod _ = inetAddressGetIsMcSiteLocal - --- method InetAddress::get_is_multicast --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_get_is_multicast" g_inet_address_get_is_multicast :: - Ptr InetAddress -> -- _obj : TInterface "Gio" "InetAddress" - IO CInt - - -inetAddressGetIsMulticast :: - (MonadIO m, InetAddressK a) => - a -- _obj - -> m Bool -- result -inetAddressGetIsMulticast _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_get_is_multicast _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data InetAddressGetIsMulticastMethodInfo -instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsMulticastMethodInfo a signature where - overloadedMethod _ = inetAddressGetIsMulticast - --- method InetAddress::get_is_site_local --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_get_is_site_local" g_inet_address_get_is_site_local :: - Ptr InetAddress -> -- _obj : TInterface "Gio" "InetAddress" - IO CInt - - -inetAddressGetIsSiteLocal :: - (MonadIO m, InetAddressK a) => - a -- _obj - -> m Bool -- result -inetAddressGetIsSiteLocal _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_get_is_site_local _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data InetAddressGetIsSiteLocalMethodInfo -instance (signature ~ (m Bool), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetIsSiteLocalMethodInfo a signature where - overloadedMethod _ = inetAddressGetIsSiteLocal - --- method InetAddress::get_native_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_get_native_size" g_inet_address_get_native_size :: - Ptr InetAddress -> -- _obj : TInterface "Gio" "InetAddress" - IO Word64 - - -inetAddressGetNativeSize :: - (MonadIO m, InetAddressK a) => - a -- _obj - -> m Word64 -- result -inetAddressGetNativeSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_get_native_size _obj' - touchManagedPtr _obj - return result - -data InetAddressGetNativeSizeMethodInfo -instance (signature ~ (m Word64), MonadIO m, InetAddressK a) => MethodInfo InetAddressGetNativeSizeMethodInfo a signature where - overloadedMethod _ = inetAddressGetNativeSize - --- method InetAddress::to_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_to_string" g_inet_address_to_string :: - Ptr InetAddress -> -- _obj : TInterface "Gio" "InetAddress" - IO CString - - -inetAddressToString :: - (MonadIO m, InetAddressK a) => - a -- _obj - -> m T.Text -- result -inetAddressToString _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_to_string _obj' - checkUnexpectedReturnNULL "g_inet_address_to_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data InetAddressToStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m, InetAddressK a) => MethodInfo InetAddressToStringMethodInfo a signature where - overloadedMethod _ = inetAddressToString - - diff --git a/GI/Gio/Objects/InetAddress.hs-boot b/GI/Gio/Objects/InetAddress.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/InetAddress.hs-boot +++ /dev/null @@ -1,39 +0,0 @@ -module GI.Gio.Objects.InetAddress where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype InetAddress = InetAddress (ForeignPtr InetAddress) -instance GObject InetAddress where -class GObject o => InetAddressK o -instance (GObject o, IsDescendantOf InetAddress o) => InetAddressK o -data InetAddressBytesPropertyInfo -data InetAddressFamilyPropertyInfo -data InetAddressIsAnyPropertyInfo -data InetAddressIsLinkLocalPropertyInfo -data InetAddressIsLoopbackPropertyInfo -data InetAddressIsMcGlobalPropertyInfo -data InetAddressIsMcLinkLocalPropertyInfo -data InetAddressIsMcNodeLocalPropertyInfo -data InetAddressIsMcOrgLocalPropertyInfo -data InetAddressIsMcSiteLocalPropertyInfo -data InetAddressIsMulticastPropertyInfo -data InetAddressIsSiteLocalPropertyInfo -data InetAddressEqualMethodInfo -data InetAddressGetFamilyMethodInfo -data InetAddressGetIsAnyMethodInfo -data InetAddressGetIsLinkLocalMethodInfo -data InetAddressGetIsLoopbackMethodInfo -data InetAddressGetIsMcGlobalMethodInfo -data InetAddressGetIsMcLinkLocalMethodInfo -data InetAddressGetIsMcNodeLocalMethodInfo -data InetAddressGetIsMcOrgLocalMethodInfo -data InetAddressGetIsMcSiteLocalMethodInfo -data InetAddressGetIsMulticastMethodInfo -data InetAddressGetIsSiteLocalMethodInfo -data InetAddressGetNativeSizeMethodInfo -data InetAddressToStringMethodInfo diff --git a/GI/Gio/Objects/InetAddressMask.hs b/GI/Gio/Objects/InetAddressMask.hs deleted file mode 100644 --- a/GI/Gio/Objects/InetAddressMask.hs +++ /dev/null @@ -1,490 +0,0 @@ - - -{- | -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.Objects.InetAddressMask - ( - --- * Exported types - InetAddressMask(..) , - InetAddressMaskK , - toInetAddressMask , - noInetAddressMask , - - - -- * Methods --- ** inetAddressMaskEqual - InetAddressMaskEqualMethodInfo , - inetAddressMaskEqual , - - --- ** inetAddressMaskGetAddress - InetAddressMaskGetAddressMethodInfo , - inetAddressMaskGetAddress , - - --- ** inetAddressMaskGetFamily - InetAddressMaskGetFamilyMethodInfo , - inetAddressMaskGetFamily , - - --- ** inetAddressMaskGetLength - InetAddressMaskGetLengthMethodInfo , - inetAddressMaskGetLength , - - --- ** inetAddressMaskMatches - InetAddressMaskMatchesMethodInfo , - inetAddressMaskMatches , - - --- ** inetAddressMaskNew - inetAddressMaskNew , - - --- ** inetAddressMaskNewFromString - inetAddressMaskNewFromString , - - --- ** inetAddressMaskToString - InetAddressMaskToStringMethodInfo , - inetAddressMaskToString , - - - - - -- * Properties --- ** Address - InetAddressMaskAddressPropertyInfo , - clearInetAddressMaskAddress , - constructInetAddressMaskAddress , - getInetAddressMaskAddress , - inetAddressMaskAddress , - setInetAddressMaskAddress , - - --- ** Family - InetAddressMaskFamilyPropertyInfo , - getInetAddressMaskFamily , - inetAddressMaskFamily , - - --- ** Length - InetAddressMaskLengthPropertyInfo , - constructInetAddressMaskLength , - getInetAddressMaskLength , - inetAddressMaskLength , - setInetAddressMaskLength , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype InetAddressMask = InetAddressMask (ForeignPtr InetAddressMask) -foreign import ccall "g_inet_address_mask_get_type" - c_g_inet_address_mask_get_type :: IO GType - -type instance ParentTypes InetAddressMask = InetAddressMaskParentTypes -type InetAddressMaskParentTypes = '[GObject.Object, Initable] - -instance GObject InetAddressMask where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_inet_address_mask_get_type - - -class GObject o => InetAddressMaskK o -instance (GObject o, IsDescendantOf InetAddressMask o) => InetAddressMaskK o - -toInetAddressMask :: InetAddressMaskK o => o -> IO InetAddressMask -toInetAddressMask = unsafeCastTo InetAddressMask - -noInetAddressMask :: Maybe InetAddressMask -noInetAddressMask = Nothing - -type family ResolveInetAddressMaskMethod (t :: Symbol) (o :: *) :: * where - ResolveInetAddressMaskMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveInetAddressMaskMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveInetAddressMaskMethod "equal" o = InetAddressMaskEqualMethodInfo - ResolveInetAddressMaskMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveInetAddressMaskMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveInetAddressMaskMethod "init" o = InitableInitMethodInfo - ResolveInetAddressMaskMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveInetAddressMaskMethod "matches" o = InetAddressMaskMatchesMethodInfo - ResolveInetAddressMaskMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveInetAddressMaskMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveInetAddressMaskMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveInetAddressMaskMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveInetAddressMaskMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveInetAddressMaskMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveInetAddressMaskMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveInetAddressMaskMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveInetAddressMaskMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveInetAddressMaskMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveInetAddressMaskMethod "toString" o = InetAddressMaskToStringMethodInfo - ResolveInetAddressMaskMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveInetAddressMaskMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveInetAddressMaskMethod "getAddress" o = InetAddressMaskGetAddressMethodInfo - ResolveInetAddressMaskMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveInetAddressMaskMethod "getFamily" o = InetAddressMaskGetFamilyMethodInfo - ResolveInetAddressMaskMethod "getLength" o = InetAddressMaskGetLengthMethodInfo - ResolveInetAddressMaskMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveInetAddressMaskMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveInetAddressMaskMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveInetAddressMaskMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveInetAddressMaskMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveInetAddressMaskMethod t InetAddressMask, MethodInfo info InetAddressMask p) => IsLabelProxy t (InetAddressMask -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveInetAddressMaskMethod t InetAddressMask, MethodInfo info InetAddressMask p) => IsLabel t (InetAddressMask -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "address" - -- Type: TInterface "Gio" "InetAddress" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getInetAddressMaskAddress :: (MonadIO m, InetAddressMaskK o) => o -> m InetAddress -getInetAddressMaskAddress obj = liftIO $ checkUnexpectedNothing "getInetAddressMaskAddress" $ getObjectPropertyObject obj "address" InetAddress - -setInetAddressMaskAddress :: (MonadIO m, InetAddressMaskK o, InetAddressK a) => o -> a -> m () -setInetAddressMaskAddress obj val = liftIO $ setObjectPropertyObject obj "address" (Just val) - -constructInetAddressMaskAddress :: (InetAddressK a) => a -> IO ([Char], GValue) -constructInetAddressMaskAddress val = constructObjectPropertyObject "address" (Just val) - -clearInetAddressMaskAddress :: (MonadIO m, InetAddressMaskK o) => o -> m () -clearInetAddressMaskAddress obj = liftIO $ setObjectPropertyObject obj "address" (Nothing :: Maybe InetAddress) - -data InetAddressMaskAddressPropertyInfo -instance AttrInfo InetAddressMaskAddressPropertyInfo where - type AttrAllowedOps InetAddressMaskAddressPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint InetAddressMaskAddressPropertyInfo = InetAddressK - type AttrBaseTypeConstraint InetAddressMaskAddressPropertyInfo = InetAddressMaskK - type AttrGetType InetAddressMaskAddressPropertyInfo = InetAddress - type AttrLabel InetAddressMaskAddressPropertyInfo = "address" - attrGet _ = getInetAddressMaskAddress - attrSet _ = setInetAddressMaskAddress - attrConstruct _ = constructInetAddressMaskAddress - attrClear _ = clearInetAddressMaskAddress - --- VVV Prop "family" - -- Type: TInterface "Gio" "SocketFamily" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getInetAddressMaskFamily :: (MonadIO m, InetAddressMaskK o) => o -> m SocketFamily -getInetAddressMaskFamily obj = liftIO $ getObjectPropertyEnum obj "family" - -data InetAddressMaskFamilyPropertyInfo -instance AttrInfo InetAddressMaskFamilyPropertyInfo where - type AttrAllowedOps InetAddressMaskFamilyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint InetAddressMaskFamilyPropertyInfo = (~) () - type AttrBaseTypeConstraint InetAddressMaskFamilyPropertyInfo = InetAddressMaskK - type AttrGetType InetAddressMaskFamilyPropertyInfo = SocketFamily - type AttrLabel InetAddressMaskFamilyPropertyInfo = "family" - attrGet _ = getInetAddressMaskFamily - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "length" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getInetAddressMaskLength :: (MonadIO m, InetAddressMaskK o) => o -> m Word32 -getInetAddressMaskLength obj = liftIO $ getObjectPropertyUInt32 obj "length" - -setInetAddressMaskLength :: (MonadIO m, InetAddressMaskK o) => o -> Word32 -> m () -setInetAddressMaskLength obj val = liftIO $ setObjectPropertyUInt32 obj "length" val - -constructInetAddressMaskLength :: Word32 -> IO ([Char], GValue) -constructInetAddressMaskLength val = constructObjectPropertyUInt32 "length" val - -data InetAddressMaskLengthPropertyInfo -instance AttrInfo InetAddressMaskLengthPropertyInfo where - type AttrAllowedOps InetAddressMaskLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint InetAddressMaskLengthPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint InetAddressMaskLengthPropertyInfo = InetAddressMaskK - type AttrGetType InetAddressMaskLengthPropertyInfo = Word32 - type AttrLabel InetAddressMaskLengthPropertyInfo = "length" - attrGet _ = getInetAddressMaskLength - attrSet _ = setInetAddressMaskLength - attrConstruct _ = constructInetAddressMaskLength - attrClear _ = undefined - -type instance AttributeList InetAddressMask = InetAddressMaskAttributeList -type InetAddressMaskAttributeList = ('[ '("address", InetAddressMaskAddressPropertyInfo), '("family", InetAddressMaskFamilyPropertyInfo), '("length", InetAddressMaskLengthPropertyInfo)] :: [(Symbol, *)]) - -inetAddressMaskAddress :: AttrLabelProxy "address" -inetAddressMaskAddress = AttrLabelProxy - -inetAddressMaskFamily :: AttrLabelProxy "family" -inetAddressMaskFamily = AttrLabelProxy - -inetAddressMaskLength :: AttrLabelProxy "length" -inetAddressMaskLength = AttrLabelProxy - -type instance SignalList InetAddressMask = InetAddressMaskSignalList -type InetAddressMaskSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method InetAddressMask::new --- method type : Constructor --- Args : [Arg {argCName = "addr", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InetAddressMask") --- throws : True --- Skip return : False - -foreign import ccall "g_inet_address_mask_new" g_inet_address_mask_new :: - Ptr InetAddress -> -- addr : TInterface "Gio" "InetAddress" - Word32 -> -- length : TBasicType TUInt - Ptr (Ptr GError) -> -- error - IO (Ptr InetAddressMask) - - -inetAddressMaskNew :: - (MonadIO m, InetAddressK a) => - a -- addr - -> Word32 -- length_ - -> m InetAddressMask -- result -inetAddressMaskNew addr length_ = liftIO $ do - let addr' = unsafeManagedPtrCastPtr addr - onException (do - result <- propagateGError $ g_inet_address_mask_new addr' length_ - checkUnexpectedReturnNULL "g_inet_address_mask_new" result - result' <- (wrapObject InetAddressMask) result - touchManagedPtr addr - return result' - ) (do - return () - ) - --- method InetAddressMask::new_from_string --- method type : Constructor --- Args : [Arg {argCName = "mask_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InetAddressMask") --- throws : True --- Skip return : False - -foreign import ccall "g_inet_address_mask_new_from_string" g_inet_address_mask_new_from_string :: - CString -> -- mask_string : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr InetAddressMask) - - -inetAddressMaskNewFromString :: - (MonadIO m) => - T.Text -- maskString - -> m InetAddressMask -- result -inetAddressMaskNewFromString maskString = liftIO $ do - maskString' <- textToCString maskString - onException (do - result <- propagateGError $ g_inet_address_mask_new_from_string maskString' - checkUnexpectedReturnNULL "g_inet_address_mask_new_from_string" result - result' <- (wrapObject InetAddressMask) result - freeMem maskString' - return result' - ) (do - freeMem maskString' - ) - --- method InetAddressMask::equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mask2", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_mask_equal" g_inet_address_mask_equal :: - Ptr InetAddressMask -> -- _obj : TInterface "Gio" "InetAddressMask" - Ptr InetAddressMask -> -- mask2 : TInterface "Gio" "InetAddressMask" - IO CInt - - -inetAddressMaskEqual :: - (MonadIO m, InetAddressMaskK a, InetAddressMaskK b) => - a -- _obj - -> b -- mask2 - -> m Bool -- result -inetAddressMaskEqual _obj mask2 = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mask2' = unsafeManagedPtrCastPtr mask2 - result <- g_inet_address_mask_equal _obj' mask2' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr mask2 - return result' - -data InetAddressMaskEqualMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, InetAddressMaskK a, InetAddressMaskK b) => MethodInfo InetAddressMaskEqualMethodInfo a signature where - overloadedMethod _ = inetAddressMaskEqual - --- method InetAddressMask::get_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InetAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_mask_get_address" g_inet_address_mask_get_address :: - Ptr InetAddressMask -> -- _obj : TInterface "Gio" "InetAddressMask" - IO (Ptr InetAddress) - - -inetAddressMaskGetAddress :: - (MonadIO m, InetAddressMaskK a) => - a -- _obj - -> m InetAddress -- result -inetAddressMaskGetAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_mask_get_address _obj' - checkUnexpectedReturnNULL "g_inet_address_mask_get_address" result - result' <- (newObject InetAddress) result - touchManagedPtr _obj - return result' - -data InetAddressMaskGetAddressMethodInfo -instance (signature ~ (m InetAddress), MonadIO m, InetAddressMaskK a) => MethodInfo InetAddressMaskGetAddressMethodInfo a signature where - overloadedMethod _ = inetAddressMaskGetAddress - --- method InetAddressMask::get_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketFamily") --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_mask_get_family" g_inet_address_mask_get_family :: - Ptr InetAddressMask -> -- _obj : TInterface "Gio" "InetAddressMask" - IO CUInt - - -inetAddressMaskGetFamily :: - (MonadIO m, InetAddressMaskK a) => - a -- _obj - -> m SocketFamily -- result -inetAddressMaskGetFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_mask_get_family _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data InetAddressMaskGetFamilyMethodInfo -instance (signature ~ (m SocketFamily), MonadIO m, InetAddressMaskK a) => MethodInfo InetAddressMaskGetFamilyMethodInfo a signature where - overloadedMethod _ = inetAddressMaskGetFamily - --- method InetAddressMask::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_mask_get_length" g_inet_address_mask_get_length :: - Ptr InetAddressMask -> -- _obj : TInterface "Gio" "InetAddressMask" - IO Word32 - - -inetAddressMaskGetLength :: - (MonadIO m, InetAddressMaskK a) => - a -- _obj - -> m Word32 -- result -inetAddressMaskGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_mask_get_length _obj' - touchManagedPtr _obj - return result - -data InetAddressMaskGetLengthMethodInfo -instance (signature ~ (m Word32), MonadIO m, InetAddressMaskK a) => MethodInfo InetAddressMaskGetLengthMethodInfo a signature where - overloadedMethod _ = inetAddressMaskGetLength - --- method InetAddressMask::matches --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_mask_matches" g_inet_address_mask_matches :: - Ptr InetAddressMask -> -- _obj : TInterface "Gio" "InetAddressMask" - Ptr InetAddress -> -- address : TInterface "Gio" "InetAddress" - IO CInt - - -inetAddressMaskMatches :: - (MonadIO m, InetAddressMaskK a, InetAddressK b) => - a -- _obj - -> b -- address - -> m Bool -- result -inetAddressMaskMatches _obj address = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let address' = unsafeManagedPtrCastPtr address - result <- g_inet_address_mask_matches _obj' address' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr address - return result' - -data InetAddressMaskMatchesMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, InetAddressMaskK a, InetAddressK b) => MethodInfo InetAddressMaskMatchesMethodInfo a signature where - overloadedMethod _ = inetAddressMaskMatches - --- method InetAddressMask::to_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetAddressMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_address_mask_to_string" g_inet_address_mask_to_string :: - Ptr InetAddressMask -> -- _obj : TInterface "Gio" "InetAddressMask" - IO CString - - -inetAddressMaskToString :: - (MonadIO m, InetAddressMaskK a) => - a -- _obj - -> m T.Text -- result -inetAddressMaskToString _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_address_mask_to_string _obj' - checkUnexpectedReturnNULL "g_inet_address_mask_to_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data InetAddressMaskToStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m, InetAddressMaskK a) => MethodInfo InetAddressMaskToStringMethodInfo a signature where - overloadedMethod _ = inetAddressMaskToString - - diff --git a/GI/Gio/Objects/InetAddressMask.hs-boot b/GI/Gio/Objects/InetAddressMask.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/InetAddressMask.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.Gio.Objects.InetAddressMask where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype InetAddressMask = InetAddressMask (ForeignPtr InetAddressMask) -instance GObject InetAddressMask where -class GObject o => InetAddressMaskK o -instance (GObject o, IsDescendantOf InetAddressMask o) => InetAddressMaskK o -data InetAddressMaskAddressPropertyInfo -data InetAddressMaskFamilyPropertyInfo -data InetAddressMaskLengthPropertyInfo -data InetAddressMaskEqualMethodInfo -data InetAddressMaskGetAddressMethodInfo -data InetAddressMaskGetFamilyMethodInfo -data InetAddressMaskGetLengthMethodInfo -data InetAddressMaskMatchesMethodInfo -data InetAddressMaskToStringMethodInfo diff --git a/GI/Gio/Objects/InetSocketAddress.hs b/GI/Gio/Objects/InetSocketAddress.hs deleted file mode 100644 --- a/GI/Gio/Objects/InetSocketAddress.hs +++ /dev/null @@ -1,431 +0,0 @@ - - -{- | -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.Objects.InetSocketAddress - ( - --- * Exported types - InetSocketAddress(..) , - InetSocketAddressK , - toInetSocketAddress , - noInetSocketAddress , - - - -- * Methods --- ** inetSocketAddressGetAddress - InetSocketAddressGetAddressMethodInfo , - inetSocketAddressGetAddress , - - --- ** inetSocketAddressGetFlowinfo - InetSocketAddressGetFlowinfoMethodInfo , - inetSocketAddressGetFlowinfo , - - --- ** inetSocketAddressGetPort - InetSocketAddressGetPortMethodInfo , - inetSocketAddressGetPort , - - --- ** inetSocketAddressGetScopeId - InetSocketAddressGetScopeIdMethodInfo , - inetSocketAddressGetScopeId , - - --- ** inetSocketAddressNew - inetSocketAddressNew , - - --- ** inetSocketAddressNewFromString - inetSocketAddressNewFromString , - - - - - -- * Properties --- ** Address - InetSocketAddressAddressPropertyInfo , - constructInetSocketAddressAddress , - getInetSocketAddressAddress , - inetSocketAddressAddress , - - --- ** Flowinfo - InetSocketAddressFlowinfoPropertyInfo , - constructInetSocketAddressFlowinfo , - getInetSocketAddressFlowinfo , - inetSocketAddressFlowinfo , - - --- ** Port - InetSocketAddressPortPropertyInfo , - constructInetSocketAddressPort , - getInetSocketAddressPort , - inetSocketAddressPort , - - --- ** ScopeId - InetSocketAddressScopeIdPropertyInfo , - constructInetSocketAddressScopeId , - getInetSocketAddressScopeId , - inetSocketAddressScopeId , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype InetSocketAddress = InetSocketAddress (ForeignPtr InetSocketAddress) -foreign import ccall "g_inet_socket_address_get_type" - c_g_inet_socket_address_get_type :: IO GType - -type instance ParentTypes InetSocketAddress = InetSocketAddressParentTypes -type InetSocketAddressParentTypes = '[SocketAddress, GObject.Object, SocketConnectable] - -instance GObject InetSocketAddress where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_inet_socket_address_get_type - - -class GObject o => InetSocketAddressK o -instance (GObject o, IsDescendantOf InetSocketAddress o) => InetSocketAddressK o - -toInetSocketAddress :: InetSocketAddressK o => o -> IO InetSocketAddress -toInetSocketAddress = unsafeCastTo InetSocketAddress - -noInetSocketAddress :: Maybe InetSocketAddress -noInetSocketAddress = Nothing - -type family ResolveInetSocketAddressMethod (t :: Symbol) (o :: *) :: * where - ResolveInetSocketAddressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveInetSocketAddressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveInetSocketAddressMethod "enumerate" o = SocketConnectableEnumerateMethodInfo - ResolveInetSocketAddressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveInetSocketAddressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveInetSocketAddressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveInetSocketAddressMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveInetSocketAddressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveInetSocketAddressMethod "proxyEnumerate" o = SocketConnectableProxyEnumerateMethodInfo - ResolveInetSocketAddressMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveInetSocketAddressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveInetSocketAddressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveInetSocketAddressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveInetSocketAddressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveInetSocketAddressMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveInetSocketAddressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveInetSocketAddressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveInetSocketAddressMethod "toNative" o = SocketAddressToNativeMethodInfo - ResolveInetSocketAddressMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveInetSocketAddressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveInetSocketAddressMethod "getAddress" o = InetSocketAddressGetAddressMethodInfo - ResolveInetSocketAddressMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveInetSocketAddressMethod "getFamily" o = SocketAddressGetFamilyMethodInfo - ResolveInetSocketAddressMethod "getFlowinfo" o = InetSocketAddressGetFlowinfoMethodInfo - ResolveInetSocketAddressMethod "getNativeSize" o = SocketAddressGetNativeSizeMethodInfo - ResolveInetSocketAddressMethod "getPort" o = InetSocketAddressGetPortMethodInfo - ResolveInetSocketAddressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveInetSocketAddressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveInetSocketAddressMethod "getScopeId" o = InetSocketAddressGetScopeIdMethodInfo - ResolveInetSocketAddressMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveInetSocketAddressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveInetSocketAddressMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveInetSocketAddressMethod t InetSocketAddress, MethodInfo info InetSocketAddress p) => IsLabelProxy t (InetSocketAddress -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveInetSocketAddressMethod t InetSocketAddress, MethodInfo info InetSocketAddress p) => IsLabel t (InetSocketAddress -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "address" - -- Type: TInterface "Gio" "InetAddress" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getInetSocketAddressAddress :: (MonadIO m, InetSocketAddressK o) => o -> m InetAddress -getInetSocketAddressAddress obj = liftIO $ checkUnexpectedNothing "getInetSocketAddressAddress" $ getObjectPropertyObject obj "address" InetAddress - -constructInetSocketAddressAddress :: (InetAddressK a) => a -> IO ([Char], GValue) -constructInetSocketAddressAddress val = constructObjectPropertyObject "address" (Just val) - -data InetSocketAddressAddressPropertyInfo -instance AttrInfo InetSocketAddressAddressPropertyInfo where - type AttrAllowedOps InetSocketAddressAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint InetSocketAddressAddressPropertyInfo = InetAddressK - type AttrBaseTypeConstraint InetSocketAddressAddressPropertyInfo = InetSocketAddressK - type AttrGetType InetSocketAddressAddressPropertyInfo = InetAddress - type AttrLabel InetSocketAddressAddressPropertyInfo = "address" - attrGet _ = getInetSocketAddressAddress - attrSet _ = undefined - attrConstruct _ = constructInetSocketAddressAddress - attrClear _ = undefined - --- VVV Prop "flowinfo" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getInetSocketAddressFlowinfo :: (MonadIO m, InetSocketAddressK o) => o -> m Word32 -getInetSocketAddressFlowinfo obj = liftIO $ getObjectPropertyUInt32 obj "flowinfo" - -constructInetSocketAddressFlowinfo :: Word32 -> IO ([Char], GValue) -constructInetSocketAddressFlowinfo val = constructObjectPropertyUInt32 "flowinfo" val - -data InetSocketAddressFlowinfoPropertyInfo -instance AttrInfo InetSocketAddressFlowinfoPropertyInfo where - type AttrAllowedOps InetSocketAddressFlowinfoPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint InetSocketAddressFlowinfoPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint InetSocketAddressFlowinfoPropertyInfo = InetSocketAddressK - type AttrGetType InetSocketAddressFlowinfoPropertyInfo = Word32 - type AttrLabel InetSocketAddressFlowinfoPropertyInfo = "flowinfo" - attrGet _ = getInetSocketAddressFlowinfo - attrSet _ = undefined - attrConstruct _ = constructInetSocketAddressFlowinfo - attrClear _ = undefined - --- VVV Prop "port" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getInetSocketAddressPort :: (MonadIO m, InetSocketAddressK o) => o -> m Word32 -getInetSocketAddressPort obj = liftIO $ getObjectPropertyUInt32 obj "port" - -constructInetSocketAddressPort :: Word32 -> IO ([Char], GValue) -constructInetSocketAddressPort val = constructObjectPropertyUInt32 "port" val - -data InetSocketAddressPortPropertyInfo -instance AttrInfo InetSocketAddressPortPropertyInfo where - type AttrAllowedOps InetSocketAddressPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint InetSocketAddressPortPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint InetSocketAddressPortPropertyInfo = InetSocketAddressK - type AttrGetType InetSocketAddressPortPropertyInfo = Word32 - type AttrLabel InetSocketAddressPortPropertyInfo = "port" - attrGet _ = getInetSocketAddressPort - attrSet _ = undefined - attrConstruct _ = constructInetSocketAddressPort - attrClear _ = undefined - --- VVV Prop "scope-id" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getInetSocketAddressScopeId :: (MonadIO m, InetSocketAddressK o) => o -> m Word32 -getInetSocketAddressScopeId obj = liftIO $ getObjectPropertyUInt32 obj "scope-id" - -constructInetSocketAddressScopeId :: Word32 -> IO ([Char], GValue) -constructInetSocketAddressScopeId val = constructObjectPropertyUInt32 "scope-id" val - -data InetSocketAddressScopeIdPropertyInfo -instance AttrInfo InetSocketAddressScopeIdPropertyInfo where - type AttrAllowedOps InetSocketAddressScopeIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint InetSocketAddressScopeIdPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint InetSocketAddressScopeIdPropertyInfo = InetSocketAddressK - type AttrGetType InetSocketAddressScopeIdPropertyInfo = Word32 - type AttrLabel InetSocketAddressScopeIdPropertyInfo = "scope-id" - attrGet _ = getInetSocketAddressScopeId - attrSet _ = undefined - attrConstruct _ = constructInetSocketAddressScopeId - attrClear _ = undefined - -type instance AttributeList InetSocketAddress = InetSocketAddressAttributeList -type InetSocketAddressAttributeList = ('[ '("address", InetSocketAddressAddressPropertyInfo), '("family", SocketAddressFamilyPropertyInfo), '("flowinfo", InetSocketAddressFlowinfoPropertyInfo), '("port", InetSocketAddressPortPropertyInfo), '("scopeId", InetSocketAddressScopeIdPropertyInfo)] :: [(Symbol, *)]) - -inetSocketAddressAddress :: AttrLabelProxy "address" -inetSocketAddressAddress = AttrLabelProxy - -inetSocketAddressFlowinfo :: AttrLabelProxy "flowinfo" -inetSocketAddressFlowinfo = AttrLabelProxy - -inetSocketAddressPort :: AttrLabelProxy "port" -inetSocketAddressPort = AttrLabelProxy - -inetSocketAddressScopeId :: AttrLabelProxy "scopeId" -inetSocketAddressScopeId = AttrLabelProxy - -type instance SignalList InetSocketAddress = InetSocketAddressSignalList -type InetSocketAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method InetSocketAddress::new --- method type : Constructor --- Args : [Arg {argCName = "address", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InetSocketAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_inet_socket_address_new" g_inet_socket_address_new :: - Ptr InetAddress -> -- address : TInterface "Gio" "InetAddress" - Word16 -> -- port : TBasicType TUInt16 - IO (Ptr InetSocketAddress) - - -inetSocketAddressNew :: - (MonadIO m, InetAddressK a) => - a -- address - -> Word16 -- port - -> m InetSocketAddress -- result -inetSocketAddressNew address port = liftIO $ do - let address' = unsafeManagedPtrCastPtr address - result <- g_inet_socket_address_new address' port - checkUnexpectedReturnNULL "g_inet_socket_address_new" result - result' <- (wrapObject InetSocketAddress) result - touchManagedPtr address - return result' - --- method InetSocketAddress::new_from_string --- method type : Constructor --- Args : [Arg {argCName = "address", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InetSocketAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_inet_socket_address_new_from_string" g_inet_socket_address_new_from_string :: - CString -> -- address : TBasicType TUTF8 - Word32 -> -- port : TBasicType TUInt - IO (Ptr InetSocketAddress) - - -inetSocketAddressNewFromString :: - (MonadIO m) => - T.Text -- address - -> Word32 -- port - -> m InetSocketAddress -- result -inetSocketAddressNewFromString address port = liftIO $ do - address' <- textToCString address - result <- g_inet_socket_address_new_from_string address' port - checkUnexpectedReturnNULL "g_inet_socket_address_new_from_string" result - result' <- (wrapObject InetSocketAddress) result - freeMem address' - return result' - --- method InetSocketAddress::get_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InetAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_inet_socket_address_get_address" g_inet_socket_address_get_address :: - Ptr InetSocketAddress -> -- _obj : TInterface "Gio" "InetSocketAddress" - IO (Ptr InetAddress) - - -inetSocketAddressGetAddress :: - (MonadIO m, InetSocketAddressK a) => - a -- _obj - -> m InetAddress -- result -inetSocketAddressGetAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_socket_address_get_address _obj' - checkUnexpectedReturnNULL "g_inet_socket_address_get_address" result - result' <- (newObject InetAddress) result - touchManagedPtr _obj - return result' - -data InetSocketAddressGetAddressMethodInfo -instance (signature ~ (m InetAddress), MonadIO m, InetSocketAddressK a) => MethodInfo InetSocketAddressGetAddressMethodInfo a signature where - overloadedMethod _ = inetSocketAddressGetAddress - --- method InetSocketAddress::get_flowinfo --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_socket_address_get_flowinfo" g_inet_socket_address_get_flowinfo :: - Ptr InetSocketAddress -> -- _obj : TInterface "Gio" "InetSocketAddress" - IO Word32 - - -inetSocketAddressGetFlowinfo :: - (MonadIO m, InetSocketAddressK a) => - a -- _obj - -> m Word32 -- result -inetSocketAddressGetFlowinfo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_socket_address_get_flowinfo _obj' - touchManagedPtr _obj - return result - -data InetSocketAddressGetFlowinfoMethodInfo -instance (signature ~ (m Word32), MonadIO m, InetSocketAddressK a) => MethodInfo InetSocketAddressGetFlowinfoMethodInfo a signature where - overloadedMethod _ = inetSocketAddressGetFlowinfo - --- method InetSocketAddress::get_port --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt16) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_socket_address_get_port" g_inet_socket_address_get_port :: - Ptr InetSocketAddress -> -- _obj : TInterface "Gio" "InetSocketAddress" - IO Word16 - - -inetSocketAddressGetPort :: - (MonadIO m, InetSocketAddressK a) => - a -- _obj - -> m Word16 -- result -inetSocketAddressGetPort _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_socket_address_get_port _obj' - touchManagedPtr _obj - return result - -data InetSocketAddressGetPortMethodInfo -instance (signature ~ (m Word16), MonadIO m, InetSocketAddressK a) => MethodInfo InetSocketAddressGetPortMethodInfo a signature where - overloadedMethod _ = inetSocketAddressGetPort - --- method InetSocketAddress::get_scope_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InetSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt32) --- throws : False --- Skip return : False - -foreign import ccall "g_inet_socket_address_get_scope_id" g_inet_socket_address_get_scope_id :: - Ptr InetSocketAddress -> -- _obj : TInterface "Gio" "InetSocketAddress" - IO Word32 - - -inetSocketAddressGetScopeId :: - (MonadIO m, InetSocketAddressK a) => - a -- _obj - -> m Word32 -- result -inetSocketAddressGetScopeId _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_inet_socket_address_get_scope_id _obj' - touchManagedPtr _obj - return result - -data InetSocketAddressGetScopeIdMethodInfo -instance (signature ~ (m Word32), MonadIO m, InetSocketAddressK a) => MethodInfo InetSocketAddressGetScopeIdMethodInfo a signature where - overloadedMethod _ = inetSocketAddressGetScopeId - - diff --git a/GI/Gio/Objects/InetSocketAddress.hs-boot b/GI/Gio/Objects/InetSocketAddress.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/InetSocketAddress.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gio.Objects.InetSocketAddress where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype InetSocketAddress = InetSocketAddress (ForeignPtr InetSocketAddress) -instance GObject InetSocketAddress where -class GObject o => InetSocketAddressK o -instance (GObject o, IsDescendantOf InetSocketAddress o) => InetSocketAddressK o -data InetSocketAddressAddressPropertyInfo -data InetSocketAddressFlowinfoPropertyInfo -data InetSocketAddressPortPropertyInfo -data InetSocketAddressScopeIdPropertyInfo -data InetSocketAddressGetAddressMethodInfo -data InetSocketAddressGetFlowinfoMethodInfo -data InetSocketAddressGetPortMethodInfo -data InetSocketAddressGetScopeIdMethodInfo diff --git a/GI/Gio/Objects/InputStream.hs b/GI/Gio/Objects/InputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/InputStream.hs +++ /dev/null @@ -1,990 +0,0 @@ - - -{- | -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.Objects.InputStream - ( - --- * Exported types - InputStream(..) , - InputStreamK , - toInputStream , - noInputStream , - - - -- * Methods --- ** inputStreamClearPending - InputStreamClearPendingMethodInfo , - inputStreamClearPending , - - --- ** inputStreamClose - InputStreamCloseMethodInfo , - inputStreamClose , - - --- ** inputStreamCloseAsync - InputStreamCloseAsyncMethodInfo , - inputStreamCloseAsync , - - --- ** inputStreamCloseFinish - InputStreamCloseFinishMethodInfo , - inputStreamCloseFinish , - - --- ** inputStreamHasPending - InputStreamHasPendingMethodInfo , - inputStreamHasPending , - - --- ** inputStreamIsClosed - InputStreamIsClosedMethodInfo , - inputStreamIsClosed , - - --- ** inputStreamRead - InputStreamReadMethodInfo , - inputStreamRead , - - --- ** inputStreamReadAll - InputStreamReadAllMethodInfo , - inputStreamReadAll , - - --- ** inputStreamReadAllAsync - InputStreamReadAllAsyncMethodInfo , - inputStreamReadAllAsync , - - --- ** inputStreamReadAllFinish - InputStreamReadAllFinishMethodInfo , - inputStreamReadAllFinish , - - --- ** inputStreamReadAsync - InputStreamReadAsyncMethodInfo , - inputStreamReadAsync , - - --- ** inputStreamReadBytes - InputStreamReadBytesMethodInfo , - inputStreamReadBytes , - - --- ** inputStreamReadBytesAsync - InputStreamReadBytesAsyncMethodInfo , - inputStreamReadBytesAsync , - - --- ** inputStreamReadBytesFinish - InputStreamReadBytesFinishMethodInfo , - inputStreamReadBytesFinish , - - --- ** inputStreamReadFinish - InputStreamReadFinishMethodInfo , - inputStreamReadFinish , - - --- ** inputStreamSetPending - InputStreamSetPendingMethodInfo , - inputStreamSetPending , - - --- ** inputStreamSkip - InputStreamSkipMethodInfo , - inputStreamSkip , - - --- ** inputStreamSkipAsync - InputStreamSkipAsyncMethodInfo , - inputStreamSkipAsync , - - --- ** inputStreamSkipFinish - InputStreamSkipFinishMethodInfo , - inputStreamSkipFinish , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype InputStream = InputStream (ForeignPtr InputStream) -foreign import ccall "g_input_stream_get_type" - c_g_input_stream_get_type :: IO GType - -type instance ParentTypes InputStream = InputStreamParentTypes -type InputStreamParentTypes = '[GObject.Object] - -instance GObject InputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_input_stream_get_type - - -class GObject o => InputStreamK o -instance (GObject o, IsDescendantOf InputStream o) => InputStreamK o - -toInputStream :: InputStreamK o => o -> IO InputStream -toInputStream = unsafeCastTo InputStream - -noInputStream :: Maybe InputStream -noInputStream = Nothing - -type family ResolveInputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo - ResolveInputStreamMethod "close" o = InputStreamCloseMethodInfo - ResolveInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo - ResolveInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo - ResolveInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo - ResolveInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo - ResolveInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveInputStreamMethod "read" o = InputStreamReadMethodInfo - ResolveInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo - ResolveInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo - ResolveInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo - ResolveInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo - ResolveInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo - ResolveInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo - ResolveInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo - ResolveInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo - ResolveInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveInputStreamMethod "skip" o = InputStreamSkipMethodInfo - ResolveInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo - ResolveInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo - ResolveInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo - ResolveInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveInputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveInputStreamMethod t InputStream, MethodInfo info InputStream p) => IsLabelProxy t (InputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveInputStreamMethod t InputStream, MethodInfo info InputStream p) => IsLabel t (InputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList InputStream = InputStreamAttributeList -type InputStreamAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList InputStream = InputStreamSignalList -type InputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method InputStream::clear_pending --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_input_stream_clear_pending" g_input_stream_clear_pending :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - IO () - - -inputStreamClearPending :: - (MonadIO m, InputStreamK a) => - a -- _obj - -> m () -- result -inputStreamClearPending _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_input_stream_clear_pending _obj' - touchManagedPtr _obj - return () - -data InputStreamClearPendingMethodInfo -instance (signature ~ (m ()), MonadIO m, InputStreamK a) => MethodInfo InputStreamClearPendingMethodInfo a signature where - overloadedMethod _ = inputStreamClearPending - --- method InputStream::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_input_stream_close" g_input_stream_close :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -inputStreamClose :: - (MonadIO m, InputStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -inputStreamClose _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_input_stream_close _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data InputStreamCloseMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamCloseMethodInfo a signature where - overloadedMethod _ = inputStreamClose - --- method InputStream::close_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_input_stream_close_async" g_input_stream_close_async :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -inputStreamCloseAsync :: - (MonadIO m, InputStreamK a, CancellableK b) => - a -- _obj - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -inputStreamCloseAsync _obj ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_input_stream_close_async _obj' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data InputStreamCloseAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamCloseAsyncMethodInfo a signature where - overloadedMethod _ = inputStreamCloseAsync - --- method InputStream::close_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_input_stream_close_finish" g_input_stream_close_finish :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -inputStreamCloseFinish :: - (MonadIO m, InputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -inputStreamCloseFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_input_stream_close_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data InputStreamCloseFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, InputStreamK a, AsyncResultK b) => MethodInfo InputStreamCloseFinishMethodInfo a signature where - overloadedMethod _ = inputStreamCloseFinish - --- method InputStream::has_pending --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_input_stream_has_pending" g_input_stream_has_pending :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - IO CInt - - -inputStreamHasPending :: - (MonadIO m, InputStreamK a) => - a -- _obj - -> m Bool -- result -inputStreamHasPending _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_input_stream_has_pending _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data InputStreamHasPendingMethodInfo -instance (signature ~ (m Bool), MonadIO m, InputStreamK a) => MethodInfo InputStreamHasPendingMethodInfo a signature where - overloadedMethod _ = inputStreamHasPending - --- method InputStream::is_closed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_input_stream_is_closed" g_input_stream_is_closed :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - IO CInt - - -inputStreamIsClosed :: - (MonadIO m, InputStreamK a) => - a -- _obj - -> m Bool -- result -inputStreamIsClosed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_input_stream_is_closed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data InputStreamIsClosedMethodInfo -instance (signature ~ (m Bool), MonadIO m, InputStreamK a) => MethodInfo InputStreamIsClosedMethodInfo a signature where - overloadedMethod _ = inputStreamIsClosed - --- method InputStream::read --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", 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 = "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 : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_input_stream_read" g_input_stream_read :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- count : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -inputStreamRead :: - (MonadIO m, InputStreamK a, CancellableK b) => - a -- _obj - -> ByteString -- buffer - -> Maybe (b) -- cancellable - -> m Int64 -- result -inputStreamRead _obj buffer cancellable = liftIO $ do - let count = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_input_stream_read _obj' buffer' count maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - return result - ) (do - freeMem buffer' - ) - -data InputStreamReadMethodInfo -instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamReadMethodInfo a signature where - overloadedMethod _ = inputStreamRead - --- method InputStream::read_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", 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 = "bytes_read", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_input_stream_read_all" g_input_stream_read_all :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- count : TBasicType TUInt64 - Ptr Word64 -> -- bytes_read : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -inputStreamReadAll :: - (MonadIO m, InputStreamK a, CancellableK b) => - a -- _obj - -> ByteString -- buffer - -> Maybe (b) -- cancellable - -> m (Word64) -- result -inputStreamReadAll _obj buffer cancellable = liftIO $ do - let count = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - bytesRead <- allocMem :: IO (Ptr Word64) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_input_stream_read_all _obj' buffer' count bytesRead maybeCancellable - bytesRead' <- peek bytesRead - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - freeMem bytesRead - return bytesRead' - ) (do - freeMem buffer' - freeMem bytesRead - ) - -data InputStreamReadAllMethodInfo -instance (signature ~ (ByteString -> Maybe (b) -> m (Word64)), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamReadAllMethodInfo a signature where - overloadedMethod _ = inputStreamReadAll - --- method InputStream::read_all_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", 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 = "io_priority", argType = TBasicType TInt, 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 = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_input_stream_read_all_async" g_input_stream_read_all_async :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- count : TBasicType TUInt64 - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -inputStreamReadAllAsync :: - (MonadIO m, InputStreamK a, CancellableK b) => - a -- _obj - -> ByteString -- buffer - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -inputStreamReadAllAsync _obj buffer ioPriority cancellable callback = liftIO $ do - let count = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - 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_input_stream_read_all_async _obj' buffer' count ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - return () - -data InputStreamReadAllAsyncMethodInfo -instance (signature ~ (ByteString -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamReadAllAsyncMethodInfo a signature where - overloadedMethod _ = inputStreamReadAllAsync - --- method InputStream::read_all_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes_read", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_input_stream_read_all_finish" g_input_stream_read_all_finish :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr Word64 -> -- bytes_read : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CInt - - -inputStreamReadAllFinish :: - (MonadIO m, InputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m (Word64) -- result -inputStreamReadAllFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - bytesRead <- allocMem :: IO (Ptr Word64) - onException (do - _ <- propagateGError $ g_input_stream_read_all_finish _obj' result_' bytesRead - bytesRead' <- peek bytesRead - touchManagedPtr _obj - touchManagedPtr result_ - freeMem bytesRead - return bytesRead' - ) (do - freeMem bytesRead - ) - -data InputStreamReadAllFinishMethodInfo -instance (signature ~ (b -> m (Word64)), MonadIO m, InputStreamK a, AsyncResultK b) => MethodInfo InputStreamReadAllFinishMethodInfo a signature where - overloadedMethod _ = inputStreamReadAllFinish - --- method InputStream::read_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", 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 = "io_priority", argType = TBasicType TInt, 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 = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_input_stream_read_async" g_input_stream_read_async :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- count : TBasicType TUInt64 - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -inputStreamReadAsync :: - (MonadIO m, InputStreamK a, CancellableK b) => - a -- _obj - -> ByteString -- buffer - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -inputStreamReadAsync _obj buffer ioPriority cancellable callback = liftIO $ do - let count = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - 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_input_stream_read_async _obj' buffer' count ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - return () - -data InputStreamReadAsyncMethodInfo -instance (signature ~ (ByteString -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamReadAsyncMethodInfo a signature where - overloadedMethod _ = inputStreamReadAsync - --- method InputStream::read_bytes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", 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 = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Bytes") --- throws : True --- Skip return : False - -foreign import ccall "g_input_stream_read_bytes" g_input_stream_read_bytes :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Word64 -> -- count : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr GLib.Bytes) - - -inputStreamReadBytes :: - (MonadIO m, InputStreamK a, CancellableK b) => - a -- _obj - -> Word64 -- count - -> Maybe (b) -- cancellable - -> m GLib.Bytes -- result -inputStreamReadBytes _obj count cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_input_stream_read_bytes _obj' count maybeCancellable - checkUnexpectedReturnNULL "g_input_stream_read_bytes" result - result' <- (wrapBoxed GLib.Bytes) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data InputStreamReadBytesMethodInfo -instance (signature ~ (Word64 -> Maybe (b) -> m GLib.Bytes), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamReadBytesMethodInfo a signature where - overloadedMethod _ = inputStreamReadBytes - --- method InputStream::read_bytes_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", 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 = "io_priority", argType = TBasicType TInt, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_input_stream_read_bytes_async" g_input_stream_read_bytes_async :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Word64 -> -- count : TBasicType TUInt64 - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -inputStreamReadBytesAsync :: - (MonadIO m, InputStreamK a, CancellableK b) => - a -- _obj - -> Word64 -- count - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -inputStreamReadBytesAsync _obj count ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_input_stream_read_bytes_async _obj' count ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data InputStreamReadBytesAsyncMethodInfo -instance (signature ~ (Word64 -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamReadBytesAsyncMethodInfo a signature where - overloadedMethod _ = inputStreamReadBytesAsync - --- method InputStream::read_bytes_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Bytes") --- throws : True --- Skip return : False - -foreign import ccall "g_input_stream_read_bytes_finish" g_input_stream_read_bytes_finish :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr GLib.Bytes) - - -inputStreamReadBytesFinish :: - (MonadIO m, InputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m GLib.Bytes -- result -inputStreamReadBytesFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_input_stream_read_bytes_finish _obj' result_' - checkUnexpectedReturnNULL "g_input_stream_read_bytes_finish" result - result' <- (wrapBoxed GLib.Bytes) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data InputStreamReadBytesFinishMethodInfo -instance (signature ~ (b -> m GLib.Bytes), MonadIO m, InputStreamK a, AsyncResultK b) => MethodInfo InputStreamReadBytesFinishMethodInfo a signature where - overloadedMethod _ = inputStreamReadBytesFinish - --- method InputStream::read_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_input_stream_read_finish" g_input_stream_read_finish :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO Int64 - - -inputStreamReadFinish :: - (MonadIO m, InputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m Int64 -- result -inputStreamReadFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_input_stream_read_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return result - ) (do - return () - ) - -data InputStreamReadFinishMethodInfo -instance (signature ~ (b -> m Int64), MonadIO m, InputStreamK a, AsyncResultK b) => MethodInfo InputStreamReadFinishMethodInfo a signature where - overloadedMethod _ = inputStreamReadFinish - --- method InputStream::set_pending --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_input_stream_set_pending" g_input_stream_set_pending :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Ptr (Ptr GError) -> -- error - IO CInt - - -inputStreamSetPending :: - (MonadIO m, InputStreamK a) => - a -- _obj - -> m () -- result -inputStreamSetPending _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ g_input_stream_set_pending _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data InputStreamSetPendingMethodInfo -instance (signature ~ (m ()), MonadIO m, InputStreamK a) => MethodInfo InputStreamSetPendingMethodInfo a signature where - overloadedMethod _ = inputStreamSetPending - --- method InputStream::skip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", 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 = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_input_stream_skip" g_input_stream_skip :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Word64 -> -- count : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -inputStreamSkip :: - (MonadIO m, InputStreamK a, CancellableK b) => - a -- _obj - -> Word64 -- count - -> Maybe (b) -- cancellable - -> m Int64 -- result -inputStreamSkip _obj count cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_input_stream_skip _obj' count maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result - ) (do - return () - ) - -data InputStreamSkipMethodInfo -instance (signature ~ (Word64 -> Maybe (b) -> m Int64), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamSkipMethodInfo a signature where - overloadedMethod _ = inputStreamSkip - --- method InputStream::skip_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", 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 = "io_priority", argType = TBasicType TInt, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_input_stream_skip_async" g_input_stream_skip_async :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Word64 -> -- count : TBasicType TUInt64 - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -inputStreamSkipAsync :: - (MonadIO m, InputStreamK a, CancellableK b) => - a -- _obj - -> Word64 -- count - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -inputStreamSkipAsync _obj count ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_input_stream_skip_async _obj' count ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data InputStreamSkipAsyncMethodInfo -instance (signature ~ (Word64 -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, InputStreamK a, CancellableK b) => MethodInfo InputStreamSkipAsyncMethodInfo a signature where - overloadedMethod _ = inputStreamSkipAsync - --- method InputStream::skip_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_input_stream_skip_finish" g_input_stream_skip_finish :: - Ptr InputStream -> -- _obj : TInterface "Gio" "InputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO Int64 - - -inputStreamSkipFinish :: - (MonadIO m, InputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m Int64 -- result -inputStreamSkipFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_input_stream_skip_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return result - ) (do - return () - ) - -data InputStreamSkipFinishMethodInfo -instance (signature ~ (b -> m Int64), MonadIO m, InputStreamK a, AsyncResultK b) => MethodInfo InputStreamSkipFinishMethodInfo a signature where - overloadedMethod _ = inputStreamSkipFinish - - diff --git a/GI/Gio/Objects/InputStream.hs-boot b/GI/Gio/Objects/InputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/InputStream.hs-boot +++ /dev/null @@ -1,32 +0,0 @@ -module GI.Gio.Objects.InputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype InputStream = InputStream (ForeignPtr InputStream) -instance GObject InputStream where -class GObject o => InputStreamK o -instance (GObject o, IsDescendantOf InputStream o) => InputStreamK o -data InputStreamClearPendingMethodInfo -data InputStreamCloseMethodInfo -data InputStreamCloseAsyncMethodInfo -data InputStreamCloseFinishMethodInfo -data InputStreamHasPendingMethodInfo -data InputStreamIsClosedMethodInfo -data InputStreamReadMethodInfo -data InputStreamReadAllMethodInfo -data InputStreamReadAllAsyncMethodInfo -data InputStreamReadAllFinishMethodInfo -data InputStreamReadAsyncMethodInfo -data InputStreamReadBytesMethodInfo -data InputStreamReadBytesAsyncMethodInfo -data InputStreamReadBytesFinishMethodInfo -data InputStreamReadFinishMethodInfo -data InputStreamSetPendingMethodInfo -data InputStreamSkipMethodInfo -data InputStreamSkipAsyncMethodInfo -data InputStreamSkipFinishMethodInfo diff --git a/GI/Gio/Objects/ListStore.hs b/GI/Gio/Objects/ListStore.hs deleted file mode 100644 --- a/GI/Gio/Objects/ListStore.hs +++ /dev/null @@ -1,435 +0,0 @@ - - -{- | -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.Objects.ListStore - ( - --- * Exported types - ListStore(..) , - ListStoreK , - toListStore , - noListStore , - - - -- * Methods --- ** listStoreAppend - ListStoreAppendMethodInfo , - listStoreAppend , - - --- ** listStoreInsert - ListStoreInsertMethodInfo , - listStoreInsert , - - --- ** listStoreInsertSorted - ListStoreInsertSortedMethodInfo , - listStoreInsertSorted , - - --- ** listStoreNew - listStoreNew , - - --- ** listStoreRemove - ListStoreRemoveMethodInfo , - listStoreRemove , - - --- ** listStoreRemoveAll - ListStoreRemoveAllMethodInfo , - listStoreRemoveAll , - - --- ** listStoreSort - ListStoreSortMethodInfo , - listStoreSort , - - --- ** listStoreSplice - ListStoreSpliceMethodInfo , - listStoreSplice , - - - - - -- * Properties --- ** ItemType - ListStoreItemTypePropertyInfo , - constructListStoreItemType , - getListStoreItemType , - listStoreItemType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ListStore = ListStore (ForeignPtr ListStore) -foreign import ccall "g_list_store_get_type" - c_g_list_store_get_type :: IO GType - -type instance ParentTypes ListStore = ListStoreParentTypes -type ListStoreParentTypes = '[GObject.Object, ListModel] - -instance GObject ListStore where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_list_store_get_type - - -class GObject o => ListStoreK o -instance (GObject o, IsDescendantOf ListStore o) => ListStoreK o - -toListStore :: ListStoreK o => o -> IO ListStore -toListStore = unsafeCastTo ListStore - -noListStore :: Maybe ListStore -noListStore = Nothing - -type family ResolveListStoreMethod (t :: Symbol) (o :: *) :: * where - ResolveListStoreMethod "append" o = ListStoreAppendMethodInfo - ResolveListStoreMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveListStoreMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveListStoreMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveListStoreMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveListStoreMethod "insert" o = ListStoreInsertMethodInfo - ResolveListStoreMethod "insertSorted" o = ListStoreInsertSortedMethodInfo - ResolveListStoreMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveListStoreMethod "itemsChanged" o = ListModelItemsChangedMethodInfo - ResolveListStoreMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveListStoreMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveListStoreMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveListStoreMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveListStoreMethod "remove" o = ListStoreRemoveMethodInfo - ResolveListStoreMethod "removeAll" o = ListStoreRemoveAllMethodInfo - ResolveListStoreMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveListStoreMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveListStoreMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveListStoreMethod "sort" o = ListStoreSortMethodInfo - ResolveListStoreMethod "splice" o = ListStoreSpliceMethodInfo - ResolveListStoreMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveListStoreMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveListStoreMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveListStoreMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveListStoreMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveListStoreMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveListStoreMethod "getItem" o = ListModelGetItemMethodInfo - ResolveListStoreMethod "getItemType" o = ListModelGetItemTypeMethodInfo - ResolveListStoreMethod "getNItems" o = ListModelGetNItemsMethodInfo - ResolveListStoreMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveListStoreMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveListStoreMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveListStoreMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveListStoreMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveListStoreMethod t ListStore, MethodInfo info ListStore p) => IsLabelProxy t (ListStore -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveListStoreMethod t ListStore, MethodInfo info ListStore p) => IsLabel t (ListStore -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "item-type" - -- Type: TBasicType TGType - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getListStoreItemType :: (MonadIO m, ListStoreK o) => o -> m GType -getListStoreItemType obj = liftIO $ getObjectPropertyGType obj "item-type" - -constructListStoreItemType :: GType -> IO ([Char], GValue) -constructListStoreItemType val = constructObjectPropertyGType "item-type" val - -data ListStoreItemTypePropertyInfo -instance AttrInfo ListStoreItemTypePropertyInfo where - type AttrAllowedOps ListStoreItemTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ListStoreItemTypePropertyInfo = (~) GType - type AttrBaseTypeConstraint ListStoreItemTypePropertyInfo = ListStoreK - type AttrGetType ListStoreItemTypePropertyInfo = GType - type AttrLabel ListStoreItemTypePropertyInfo = "item-type" - attrGet _ = getListStoreItemType - attrSet _ = undefined - attrConstruct _ = constructListStoreItemType - attrClear _ = undefined - -type instance AttributeList ListStore = ListStoreAttributeList -type ListStoreAttributeList = ('[ '("itemType", ListStoreItemTypePropertyInfo)] :: [(Symbol, *)]) - -listStoreItemType :: AttrLabelProxy "itemType" -listStoreItemType = AttrLabelProxy - -type instance SignalList ListStore = ListStoreSignalList -type ListStoreSignalList = ('[ '("itemsChanged", ListModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ListStore::new --- method type : Constructor --- Args : [Arg {argCName = "item_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "ListStore") --- throws : False --- Skip return : False - -foreign import ccall "g_list_store_new" g_list_store_new :: - CGType -> -- item_type : TBasicType TGType - IO (Ptr ListStore) - - -listStoreNew :: - (MonadIO m) => - GType -- itemType - -> m ListStore -- result -listStoreNew itemType = liftIO $ do - let itemType' = gtypeToCGType itemType - result <- g_list_store_new itemType' - checkUnexpectedReturnNULL "g_list_store_new" result - result' <- (wrapObject ListStore) result - return result' - --- method ListStore::append --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_list_store_append" g_list_store_append :: - Ptr ListStore -> -- _obj : TInterface "Gio" "ListStore" - Ptr GObject.Object -> -- item : TInterface "GObject" "Object" - IO () - - -listStoreAppend :: - (MonadIO m, ListStoreK a, GObject.ObjectK b) => - a -- _obj - -> b -- item - -> m () -- result -listStoreAppend _obj item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - g_list_store_append _obj' item' - touchManagedPtr _obj - touchManagedPtr item - return () - -data ListStoreAppendMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ListStoreK a, GObject.ObjectK b) => MethodInfo ListStoreAppendMethodInfo a signature where - overloadedMethod _ = listStoreAppend - --- method ListStore::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_list_store_insert" g_list_store_insert :: - Ptr ListStore -> -- _obj : TInterface "Gio" "ListStore" - Word32 -> -- position : TBasicType TUInt - Ptr GObject.Object -> -- item : TInterface "GObject" "Object" - IO () - - -listStoreInsert :: - (MonadIO m, ListStoreK a, GObject.ObjectK b) => - a -- _obj - -> Word32 -- position - -> b -- item - -> m () -- result -listStoreInsert _obj position item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - g_list_store_insert _obj' position item' - touchManagedPtr _obj - touchManagedPtr item - return () - -data ListStoreInsertMethodInfo -instance (signature ~ (Word32 -> b -> m ()), MonadIO m, ListStoreK a, GObject.ObjectK b) => MethodInfo ListStoreInsertMethodInfo a signature where - overloadedMethod _ = listStoreInsert - --- method ListStore::insert_sorted --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "compare_func", argType = TInterface "GLib" "CompareDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_list_store_insert_sorted" g_list_store_insert_sorted :: - Ptr ListStore -> -- _obj : TInterface "Gio" "ListStore" - Ptr GObject.Object -> -- item : TInterface "GObject" "Object" - FunPtr GLib.CompareDataFuncC -> -- compare_func : TInterface "GLib" "CompareDataFunc" - Ptr () -> -- user_data : TBasicType TPtr - IO Word32 - - -listStoreInsertSorted :: - (MonadIO m, ListStoreK a, GObject.ObjectK b) => - a -- _obj - -> b -- item - -> GLib.CompareDataFunc -- compareFunc - -> m Word32 -- result -listStoreInsertSorted _obj item compareFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - compareFunc' <- GLib.mkCompareDataFunc (GLib.compareDataFuncWrapper Nothing compareFunc) - let userData = nullPtr - result <- g_list_store_insert_sorted _obj' item' compareFunc' userData - safeFreeFunPtr $ castFunPtrToPtr compareFunc' - touchManagedPtr _obj - touchManagedPtr item - return result - -data ListStoreInsertSortedMethodInfo -instance (signature ~ (b -> GLib.CompareDataFunc -> m Word32), MonadIO m, ListStoreK a, GObject.ObjectK b) => MethodInfo ListStoreInsertSortedMethodInfo a signature where - overloadedMethod _ = listStoreInsertSorted - --- method ListStore::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_list_store_remove" g_list_store_remove :: - Ptr ListStore -> -- _obj : TInterface "Gio" "ListStore" - Word32 -> -- position : TBasicType TUInt - IO () - - -listStoreRemove :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> Word32 -- position - -> m () -- result -listStoreRemove _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_list_store_remove _obj' position - touchManagedPtr _obj - return () - -data ListStoreRemoveMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreRemoveMethodInfo a signature where - overloadedMethod _ = listStoreRemove - --- method ListStore::remove_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_list_store_remove_all" g_list_store_remove_all :: - Ptr ListStore -> -- _obj : TInterface "Gio" "ListStore" - IO () - - -listStoreRemoveAll :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> m () -- result -listStoreRemoveAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_list_store_remove_all _obj' - touchManagedPtr _obj - return () - -data ListStoreRemoveAllMethodInfo -instance (signature ~ (m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreRemoveAllMethodInfo a signature where - overloadedMethod _ = listStoreRemoveAll - --- method ListStore::sort --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "compare_func", argType = TInterface "GLib" "CompareDataFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_list_store_sort" g_list_store_sort :: - Ptr ListStore -> -- _obj : TInterface "Gio" "ListStore" - FunPtr GLib.CompareDataFuncC -> -- compare_func : TInterface "GLib" "CompareDataFunc" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -listStoreSort :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> GLib.CompareDataFunc -- compareFunc - -> m () -- result -listStoreSort _obj compareFunc = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - compareFunc' <- GLib.mkCompareDataFunc (GLib.compareDataFuncWrapper Nothing compareFunc) - let userData = nullPtr - g_list_store_sort _obj' compareFunc' userData - safeFreeFunPtr $ castFunPtrToPtr compareFunc' - touchManagedPtr _obj - return () - -data ListStoreSortMethodInfo -instance (signature ~ (GLib.CompareDataFunc -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreSortMethodInfo a signature where - overloadedMethod _ = listStoreSort - --- method ListStore::splice --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ListStore", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_removals", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "additions", argType = TCArray False (-1) 4 (TInterface "GObject" "Object"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_additions", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_additions", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_list_store_splice" g_list_store_splice :: - Ptr ListStore -> -- _obj : TInterface "Gio" "ListStore" - Word32 -> -- position : TBasicType TUInt - Word32 -> -- n_removals : TBasicType TUInt - Ptr (Ptr GObject.Object) -> -- additions : TCArray False (-1) 4 (TInterface "GObject" "Object") - Word32 -> -- n_additions : TBasicType TUInt - IO () - - -listStoreSplice :: - (MonadIO m, ListStoreK a) => - a -- _obj - -> Word32 -- position - -> Word32 -- nRemovals - -> [GObject.Object] -- additions - -> m () -- result -listStoreSplice _obj position nRemovals additions = liftIO $ do - let nAdditions = fromIntegral $ length additions - let _obj' = unsafeManagedPtrCastPtr _obj - let additions' = map unsafeManagedPtrCastPtr additions - additions'' <- packPtrArray additions' - g_list_store_splice _obj' position nRemovals additions'' nAdditions - touchManagedPtr _obj - mapM_ touchManagedPtr additions - freeMem additions'' - return () - -data ListStoreSpliceMethodInfo -instance (signature ~ (Word32 -> Word32 -> [GObject.Object] -> m ()), MonadIO m, ListStoreK a) => MethodInfo ListStoreSpliceMethodInfo a signature where - overloadedMethod _ = listStoreSplice - - diff --git a/GI/Gio/Objects/ListStore.hs-boot b/GI/Gio/Objects/ListStore.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/ListStore.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gio.Objects.ListStore where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ListStore = ListStore (ForeignPtr ListStore) -instance GObject ListStore where -class GObject o => ListStoreK o -instance (GObject o, IsDescendantOf ListStore o) => ListStoreK o -data ListStoreItemTypePropertyInfo -data ListStoreAppendMethodInfo -data ListStoreInsertMethodInfo -data ListStoreInsertSortedMethodInfo -data ListStoreRemoveMethodInfo -data ListStoreRemoveAllMethodInfo -data ListStoreSortMethodInfo -data ListStoreSpliceMethodInfo diff --git a/GI/Gio/Objects/MemoryInputStream.hs b/GI/Gio/Objects/MemoryInputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/MemoryInputStream.hs +++ /dev/null @@ -1,301 +0,0 @@ - - -{- | -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.Objects.MemoryInputStream - ( - --- * Exported types - MemoryInputStream(..) , - MemoryInputStreamK , - toMemoryInputStream , - noMemoryInputStream , - - - -- * Methods --- ** memoryInputStreamAddBytes - MemoryInputStreamAddBytesMethodInfo , - memoryInputStreamAddBytes , - - --- ** memoryInputStreamAddData - MemoryInputStreamAddDataMethodInfo , - memoryInputStreamAddData , - - --- ** memoryInputStreamNew - memoryInputStreamNew , - - --- ** memoryInputStreamNewFromBytes - memoryInputStreamNewFromBytes , - - --- ** memoryInputStreamNewFromData - memoryInputStreamNewFromData , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype MemoryInputStream = MemoryInputStream (ForeignPtr MemoryInputStream) -foreign import ccall "g_memory_input_stream_get_type" - c_g_memory_input_stream_get_type :: IO GType - -type instance ParentTypes MemoryInputStream = MemoryInputStreamParentTypes -type MemoryInputStreamParentTypes = '[InputStream, GObject.Object, PollableInputStream, Seekable] - -instance GObject MemoryInputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_memory_input_stream_get_type - - -class GObject o => MemoryInputStreamK o -instance (GObject o, IsDescendantOf MemoryInputStream o) => MemoryInputStreamK o - -toMemoryInputStream :: MemoryInputStreamK o => o -> IO MemoryInputStream -toMemoryInputStream = unsafeCastTo MemoryInputStream - -noMemoryInputStream :: Maybe MemoryInputStream -noMemoryInputStream = Nothing - -type family ResolveMemoryInputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveMemoryInputStreamMethod "addBytes" o = MemoryInputStreamAddBytesMethodInfo - ResolveMemoryInputStreamMethod "addData" o = MemoryInputStreamAddDataMethodInfo - ResolveMemoryInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMemoryInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMemoryInputStreamMethod "canPoll" o = PollableInputStreamCanPollMethodInfo - ResolveMemoryInputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo - ResolveMemoryInputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo - ResolveMemoryInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo - ResolveMemoryInputStreamMethod "close" o = InputStreamCloseMethodInfo - ResolveMemoryInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo - ResolveMemoryInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo - ResolveMemoryInputStreamMethod "createSource" o = PollableInputStreamCreateSourceMethodInfo - ResolveMemoryInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMemoryInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMemoryInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo - ResolveMemoryInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo - ResolveMemoryInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMemoryInputStreamMethod "isReadable" o = PollableInputStreamIsReadableMethodInfo - ResolveMemoryInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMemoryInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMemoryInputStreamMethod "read" o = InputStreamReadMethodInfo - ResolveMemoryInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo - ResolveMemoryInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo - ResolveMemoryInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo - ResolveMemoryInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo - ResolveMemoryInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo - ResolveMemoryInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo - ResolveMemoryInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo - ResolveMemoryInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo - ResolveMemoryInputStreamMethod "readNonblocking" o = PollableInputStreamReadNonblockingMethodInfo - ResolveMemoryInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMemoryInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMemoryInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMemoryInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMemoryInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMemoryInputStreamMethod "seek" o = SeekableSeekMethodInfo - ResolveMemoryInputStreamMethod "skip" o = InputStreamSkipMethodInfo - ResolveMemoryInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo - ResolveMemoryInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo - ResolveMemoryInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMemoryInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMemoryInputStreamMethod "tell" o = SeekableTellMethodInfo - ResolveMemoryInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMemoryInputStreamMethod "truncate" o = SeekableTruncateMethodInfo - ResolveMemoryInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMemoryInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMemoryInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMemoryInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMemoryInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMemoryInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMemoryInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo - ResolveMemoryInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMemoryInputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMemoryInputStreamMethod t MemoryInputStream, MethodInfo info MemoryInputStream p) => IsLabelProxy t (MemoryInputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMemoryInputStreamMethod t MemoryInputStream, MethodInfo info MemoryInputStream p) => IsLabel t (MemoryInputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList MemoryInputStream = MemoryInputStreamAttributeList -type MemoryInputStreamAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList MemoryInputStream = MemoryInputStreamSignalList -type MemoryInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method MemoryInputStream::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MemoryInputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_memory_input_stream_new" g_memory_input_stream_new :: - IO (Ptr MemoryInputStream) - - -memoryInputStreamNew :: - (MonadIO m) => - m MemoryInputStream -- result -memoryInputStreamNew = liftIO $ do - result <- g_memory_input_stream_new - checkUnexpectedReturnNULL "g_memory_input_stream_new" result - result' <- (wrapObject MemoryInputStream) result - return result' - --- method MemoryInputStream::new_from_bytes --- method type : Constructor --- Args : [Arg {argCName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MemoryInputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_memory_input_stream_new_from_bytes" g_memory_input_stream_new_from_bytes :: - Ptr GLib.Bytes -> -- bytes : TInterface "GLib" "Bytes" - IO (Ptr MemoryInputStream) - - -memoryInputStreamNewFromBytes :: - (MonadIO m) => - GLib.Bytes -- bytes - -> m MemoryInputStream -- result -memoryInputStreamNewFromBytes bytes = liftIO $ do - let bytes' = unsafeManagedPtrGetPtr bytes - result <- g_memory_input_stream_new_from_bytes bytes' - checkUnexpectedReturnNULL "g_memory_input_stream_new_from_bytes" result - result' <- (wrapObject MemoryInputStream) result - touchManagedPtr bytes - return result' - --- method MemoryInputStream::new_from_data --- method type : Constructor --- Args : [Arg {argCName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TInterface "Gio" "MemoryInputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_memory_input_stream_new_from_data" g_memory_input_stream_new_from_data :: - Ptr Word8 -> -- data : TCArray False (-1) 1 (TBasicType TUInt8) - Int64 -> -- len : TBasicType TInt64 - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO (Ptr MemoryInputStream) - - -memoryInputStreamNewFromData :: - (MonadIO m) => - ByteString -- data_ - -> Maybe (GLib.DestroyNotify) -- destroy - -> m MemoryInputStream -- result -memoryInputStreamNewFromData data_ destroy = liftIO $ do - let len = fromIntegral $ B.length data_ - data_' <- packByteString data_ - ptrdestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) - maybeDestroy <- case destroy of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jDestroy -> do - jDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrdestroy) jDestroy) - poke ptrdestroy jDestroy' - return jDestroy' - result <- g_memory_input_stream_new_from_data data_' len maybeDestroy - checkUnexpectedReturnNULL "g_memory_input_stream_new_from_data" result - result' <- (wrapObject MemoryInputStream) result - return result' - --- method MemoryInputStream::add_bytes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_memory_input_stream_add_bytes" g_memory_input_stream_add_bytes :: - Ptr MemoryInputStream -> -- _obj : TInterface "Gio" "MemoryInputStream" - Ptr GLib.Bytes -> -- bytes : TInterface "GLib" "Bytes" - IO () - - -memoryInputStreamAddBytes :: - (MonadIO m, MemoryInputStreamK a) => - a -- _obj - -> GLib.Bytes -- bytes - -> m () -- result -memoryInputStreamAddBytes _obj bytes = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let bytes' = unsafeManagedPtrGetPtr bytes - g_memory_input_stream_add_bytes _obj' bytes' - touchManagedPtr _obj - touchManagedPtr bytes - return () - -data MemoryInputStreamAddBytesMethodInfo -instance (signature ~ (GLib.Bytes -> m ()), MonadIO m, MemoryInputStreamK a) => MethodInfo MemoryInputStreamAddBytesMethodInfo a signature where - overloadedMethod _ = memoryInputStreamAddBytes - --- method MemoryInputStream::add_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "len", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_memory_input_stream_add_data" g_memory_input_stream_add_data :: - Ptr MemoryInputStream -> -- _obj : TInterface "Gio" "MemoryInputStream" - Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) - Int64 -> -- len : TBasicType TInt64 - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -memoryInputStreamAddData :: - (MonadIO m, MemoryInputStreamK a) => - a -- _obj - -> ByteString -- data_ - -> Maybe (GLib.DestroyNotify) -- destroy - -> m () -- result -memoryInputStreamAddData _obj data_ destroy = liftIO $ do - let len = fromIntegral $ B.length data_ - let _obj' = unsafeManagedPtrCastPtr _obj - data_' <- packByteString data_ - ptrdestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) - maybeDestroy <- case destroy of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jDestroy -> do - jDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrdestroy) jDestroy) - poke ptrdestroy jDestroy' - return jDestroy' - g_memory_input_stream_add_data _obj' data_' len maybeDestroy - touchManagedPtr _obj - return () - -data MemoryInputStreamAddDataMethodInfo -instance (signature ~ (ByteString -> Maybe (GLib.DestroyNotify) -> m ()), MonadIO m, MemoryInputStreamK a) => MethodInfo MemoryInputStreamAddDataMethodInfo a signature where - overloadedMethod _ = memoryInputStreamAddData - - diff --git a/GI/Gio/Objects/MemoryInputStream.hs-boot b/GI/Gio/Objects/MemoryInputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/MemoryInputStream.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gio.Objects.MemoryInputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MemoryInputStream = MemoryInputStream (ForeignPtr MemoryInputStream) -instance GObject MemoryInputStream where -class GObject o => MemoryInputStreamK o -instance (GObject o, IsDescendantOf MemoryInputStream o) => MemoryInputStreamK o -data MemoryInputStreamAddBytesMethodInfo -data MemoryInputStreamAddDataMethodInfo diff --git a/GI/Gio/Objects/MemoryOutputStream.hs b/GI/Gio/Objects/MemoryOutputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/MemoryOutputStream.hs +++ /dev/null @@ -1,414 +0,0 @@ - - -{- | -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.Objects.MemoryOutputStream - ( - --- * Exported types - MemoryOutputStream(..) , - MemoryOutputStreamK , - toMemoryOutputStream , - noMemoryOutputStream , - - - -- * Methods --- ** memoryOutputStreamGetData - MemoryOutputStreamGetDataMethodInfo , - memoryOutputStreamGetData , - - --- ** memoryOutputStreamGetDataSize - MemoryOutputStreamGetDataSizeMethodInfo , - memoryOutputStreamGetDataSize , - - --- ** memoryOutputStreamGetSize - MemoryOutputStreamGetSizeMethodInfo , - memoryOutputStreamGetSize , - - --- ** memoryOutputStreamNewResizable - memoryOutputStreamNewResizable , - - --- ** memoryOutputStreamStealAsBytes - MemoryOutputStreamStealAsBytesMethodInfo, - memoryOutputStreamStealAsBytes , - - --- ** memoryOutputStreamStealData - MemoryOutputStreamStealDataMethodInfo , - memoryOutputStreamStealData , - - - - - -- * Properties --- ** Data - MemoryOutputStreamDataPropertyInfo , - constructMemoryOutputStreamData , - getMemoryOutputStreamData , - memoryOutputStreamData , - - --- ** DataSize - MemoryOutputStreamDataSizePropertyInfo , - getMemoryOutputStreamDataSize , - memoryOutputStreamDataSize , - - --- ** Size - MemoryOutputStreamSizePropertyInfo , - constructMemoryOutputStreamSize , - getMemoryOutputStreamSize , - memoryOutputStreamSize , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype MemoryOutputStream = MemoryOutputStream (ForeignPtr MemoryOutputStream) -foreign import ccall "g_memory_output_stream_get_type" - c_g_memory_output_stream_get_type :: IO GType - -type instance ParentTypes MemoryOutputStream = MemoryOutputStreamParentTypes -type MemoryOutputStreamParentTypes = '[OutputStream, GObject.Object, PollableOutputStream, Seekable] - -instance GObject MemoryOutputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_memory_output_stream_get_type - - -class GObject o => MemoryOutputStreamK o -instance (GObject o, IsDescendantOf MemoryOutputStream o) => MemoryOutputStreamK o - -toMemoryOutputStream :: MemoryOutputStreamK o => o -> IO MemoryOutputStream -toMemoryOutputStream = unsafeCastTo MemoryOutputStream - -noMemoryOutputStream :: Maybe MemoryOutputStream -noMemoryOutputStream = Nothing - -type family ResolveMemoryOutputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveMemoryOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMemoryOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMemoryOutputStreamMethod "canPoll" o = PollableOutputStreamCanPollMethodInfo - ResolveMemoryOutputStreamMethod "canSeek" o = SeekableCanSeekMethodInfo - ResolveMemoryOutputStreamMethod "canTruncate" o = SeekableCanTruncateMethodInfo - ResolveMemoryOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo - ResolveMemoryOutputStreamMethod "close" o = OutputStreamCloseMethodInfo - ResolveMemoryOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo - ResolveMemoryOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo - ResolveMemoryOutputStreamMethod "createSource" o = PollableOutputStreamCreateSourceMethodInfo - ResolveMemoryOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo - ResolveMemoryOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo - ResolveMemoryOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo - ResolveMemoryOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMemoryOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMemoryOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo - ResolveMemoryOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo - ResolveMemoryOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo - ResolveMemoryOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMemoryOutputStreamMethod "isWritable" o = PollableOutputStreamIsWritableMethodInfo - ResolveMemoryOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMemoryOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMemoryOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMemoryOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMemoryOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMemoryOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMemoryOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMemoryOutputStreamMethod "seek" o = SeekableSeekMethodInfo - ResolveMemoryOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo - ResolveMemoryOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo - ResolveMemoryOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo - ResolveMemoryOutputStreamMethod "stealAsBytes" o = MemoryOutputStreamStealAsBytesMethodInfo - ResolveMemoryOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMemoryOutputStreamMethod "tell" o = SeekableTellMethodInfo - ResolveMemoryOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMemoryOutputStreamMethod "truncate" o = SeekableTruncateMethodInfo - ResolveMemoryOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMemoryOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMemoryOutputStreamMethod "write" o = OutputStreamWriteMethodInfo - ResolveMemoryOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo - ResolveMemoryOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo - ResolveMemoryOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo - ResolveMemoryOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo - ResolveMemoryOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo - ResolveMemoryOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo - ResolveMemoryOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo - ResolveMemoryOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo - ResolveMemoryOutputStreamMethod "writeNonblocking" o = PollableOutputStreamWriteNonblockingMethodInfo - ResolveMemoryOutputStreamMethod "getDataSize" o = MemoryOutputStreamGetDataSizeMethodInfo - ResolveMemoryOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMemoryOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMemoryOutputStreamMethod "getSize" o = MemoryOutputStreamGetSizeMethodInfo - ResolveMemoryOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMemoryOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo - ResolveMemoryOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMemoryOutputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMemoryOutputStreamMethod t MemoryOutputStream, MethodInfo info MemoryOutputStream p) => IsLabelProxy t (MemoryOutputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMemoryOutputStreamMethod t MemoryOutputStream, MethodInfo info MemoryOutputStream p) => IsLabel t (MemoryOutputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "data" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getMemoryOutputStreamData :: (MonadIO m, MemoryOutputStreamK o) => o -> m (Ptr ()) -getMemoryOutputStreamData obj = liftIO $ getObjectPropertyPtr obj "data" - -constructMemoryOutputStreamData :: Ptr () -> IO ([Char], GValue) -constructMemoryOutputStreamData val = constructObjectPropertyPtr "data" val - -data MemoryOutputStreamDataPropertyInfo -instance AttrInfo MemoryOutputStreamDataPropertyInfo where - type AttrAllowedOps MemoryOutputStreamDataPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MemoryOutputStreamDataPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint MemoryOutputStreamDataPropertyInfo = MemoryOutputStreamK - type AttrGetType MemoryOutputStreamDataPropertyInfo = (Ptr ()) - type AttrLabel MemoryOutputStreamDataPropertyInfo = "data" - attrGet _ = getMemoryOutputStreamData - attrSet _ = undefined - attrConstruct _ = constructMemoryOutputStreamData - attrClear _ = undefined - --- VVV Prop "data-size" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getMemoryOutputStreamDataSize :: (MonadIO m, MemoryOutputStreamK o) => o -> m CULong -getMemoryOutputStreamDataSize obj = liftIO $ getObjectPropertyULong obj "data-size" - -data MemoryOutputStreamDataSizePropertyInfo -instance AttrInfo MemoryOutputStreamDataSizePropertyInfo where - type AttrAllowedOps MemoryOutputStreamDataSizePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint MemoryOutputStreamDataSizePropertyInfo = (~) () - type AttrBaseTypeConstraint MemoryOutputStreamDataSizePropertyInfo = MemoryOutputStreamK - type AttrGetType MemoryOutputStreamDataSizePropertyInfo = CULong - type AttrLabel MemoryOutputStreamDataSizePropertyInfo = "data-size" - attrGet _ = getMemoryOutputStreamDataSize - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "size" - -- Type: TBasicType TULong - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getMemoryOutputStreamSize :: (MonadIO m, MemoryOutputStreamK o) => o -> m CULong -getMemoryOutputStreamSize obj = liftIO $ getObjectPropertyULong obj "size" - -constructMemoryOutputStreamSize :: CULong -> IO ([Char], GValue) -constructMemoryOutputStreamSize val = constructObjectPropertyULong "size" val - -data MemoryOutputStreamSizePropertyInfo -instance AttrInfo MemoryOutputStreamSizePropertyInfo where - type AttrAllowedOps MemoryOutputStreamSizePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MemoryOutputStreamSizePropertyInfo = (~) CULong - type AttrBaseTypeConstraint MemoryOutputStreamSizePropertyInfo = MemoryOutputStreamK - type AttrGetType MemoryOutputStreamSizePropertyInfo = CULong - type AttrLabel MemoryOutputStreamSizePropertyInfo = "size" - attrGet _ = getMemoryOutputStreamSize - attrSet _ = undefined - attrConstruct _ = constructMemoryOutputStreamSize - attrClear _ = undefined - -type instance AttributeList MemoryOutputStream = MemoryOutputStreamAttributeList -type MemoryOutputStreamAttributeList = ('[ '("data", MemoryOutputStreamDataPropertyInfo), '("dataSize", MemoryOutputStreamDataSizePropertyInfo), '("size", MemoryOutputStreamSizePropertyInfo)] :: [(Symbol, *)]) - -memoryOutputStreamData :: AttrLabelProxy "data" -memoryOutputStreamData = AttrLabelProxy - -memoryOutputStreamDataSize :: AttrLabelProxy "dataSize" -memoryOutputStreamDataSize = AttrLabelProxy - -memoryOutputStreamSize :: AttrLabelProxy "size" -memoryOutputStreamSize = AttrLabelProxy - -type instance SignalList MemoryOutputStream = MemoryOutputStreamSignalList -type MemoryOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method MemoryOutputStream::new_resizable --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MemoryOutputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_memory_output_stream_new_resizable" g_memory_output_stream_new_resizable :: - IO (Ptr MemoryOutputStream) - - -memoryOutputStreamNewResizable :: - (MonadIO m) => - m MemoryOutputStream -- result -memoryOutputStreamNewResizable = liftIO $ do - result <- g_memory_output_stream_new_resizable - checkUnexpectedReturnNULL "g_memory_output_stream_new_resizable" result - result' <- (wrapObject MemoryOutputStream) result - return result' - --- method MemoryOutputStream::get_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TPtr) --- throws : False --- Skip return : False - -foreign import ccall "g_memory_output_stream_get_data" g_memory_output_stream_get_data :: - Ptr MemoryOutputStream -> -- _obj : TInterface "Gio" "MemoryOutputStream" - IO (Ptr ()) - - -memoryOutputStreamGetData :: - (MonadIO m, MemoryOutputStreamK a) => - a -- _obj - -> m (Ptr ()) -- result -memoryOutputStreamGetData _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_memory_output_stream_get_data _obj' - touchManagedPtr _obj - return result - -data MemoryOutputStreamGetDataMethodInfo -instance (signature ~ (m (Ptr ())), MonadIO m, MemoryOutputStreamK a) => MethodInfo MemoryOutputStreamGetDataMethodInfo a signature where - overloadedMethod _ = memoryOutputStreamGetData - --- method MemoryOutputStream::get_data_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_memory_output_stream_get_data_size" g_memory_output_stream_get_data_size :: - Ptr MemoryOutputStream -> -- _obj : TInterface "Gio" "MemoryOutputStream" - IO Word64 - - -memoryOutputStreamGetDataSize :: - (MonadIO m, MemoryOutputStreamK a) => - a -- _obj - -> m Word64 -- result -memoryOutputStreamGetDataSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_memory_output_stream_get_data_size _obj' - touchManagedPtr _obj - return result - -data MemoryOutputStreamGetDataSizeMethodInfo -instance (signature ~ (m Word64), MonadIO m, MemoryOutputStreamK a) => MethodInfo MemoryOutputStreamGetDataSizeMethodInfo a signature where - overloadedMethod _ = memoryOutputStreamGetDataSize - --- method MemoryOutputStream::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_memory_output_stream_get_size" g_memory_output_stream_get_size :: - Ptr MemoryOutputStream -> -- _obj : TInterface "Gio" "MemoryOutputStream" - IO Word64 - - -memoryOutputStreamGetSize :: - (MonadIO m, MemoryOutputStreamK a) => - a -- _obj - -> m Word64 -- result -memoryOutputStreamGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_memory_output_stream_get_size _obj' - touchManagedPtr _obj - return result - -data MemoryOutputStreamGetSizeMethodInfo -instance (signature ~ (m Word64), MonadIO m, MemoryOutputStreamK a) => MethodInfo MemoryOutputStreamGetSizeMethodInfo a signature where - overloadedMethod _ = memoryOutputStreamGetSize - --- method MemoryOutputStream::steal_as_bytes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "Bytes") --- throws : False --- Skip return : False - -foreign import ccall "g_memory_output_stream_steal_as_bytes" g_memory_output_stream_steal_as_bytes :: - Ptr MemoryOutputStream -> -- _obj : TInterface "Gio" "MemoryOutputStream" - IO (Ptr GLib.Bytes) - - -memoryOutputStreamStealAsBytes :: - (MonadIO m, MemoryOutputStreamK a) => - a -- _obj - -> m GLib.Bytes -- result -memoryOutputStreamStealAsBytes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_memory_output_stream_steal_as_bytes _obj' - checkUnexpectedReturnNULL "g_memory_output_stream_steal_as_bytes" result - result' <- (wrapBoxed GLib.Bytes) result - touchManagedPtr _obj - return result' - -data MemoryOutputStreamStealAsBytesMethodInfo -instance (signature ~ (m GLib.Bytes), MonadIO m, MemoryOutputStreamK a) => MethodInfo MemoryOutputStreamStealAsBytesMethodInfo a signature where - overloadedMethod _ = memoryOutputStreamStealAsBytes - --- method MemoryOutputStream::steal_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MemoryOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TPtr) --- throws : False --- Skip return : False - -foreign import ccall "g_memory_output_stream_steal_data" g_memory_output_stream_steal_data :: - Ptr MemoryOutputStream -> -- _obj : TInterface "Gio" "MemoryOutputStream" - IO (Ptr ()) - - -memoryOutputStreamStealData :: - (MonadIO m, MemoryOutputStreamK a) => - a -- _obj - -> m (Ptr ()) -- result -memoryOutputStreamStealData _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_memory_output_stream_steal_data _obj' - touchManagedPtr _obj - return result - -data MemoryOutputStreamStealDataMethodInfo -instance (signature ~ (m (Ptr ())), MonadIO m, MemoryOutputStreamK a) => MethodInfo MemoryOutputStreamStealDataMethodInfo a signature where - overloadedMethod _ = memoryOutputStreamStealData - - diff --git a/GI/Gio/Objects/MemoryOutputStream.hs-boot b/GI/Gio/Objects/MemoryOutputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/MemoryOutputStream.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gio.Objects.MemoryOutputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MemoryOutputStream = MemoryOutputStream (ForeignPtr MemoryOutputStream) -instance GObject MemoryOutputStream where -class GObject o => MemoryOutputStreamK o -instance (GObject o, IsDescendantOf MemoryOutputStream o) => MemoryOutputStreamK o -data MemoryOutputStreamDataPropertyInfo -data MemoryOutputStreamDataSizePropertyInfo -data MemoryOutputStreamSizePropertyInfo -data MemoryOutputStreamGetDataMethodInfo -data MemoryOutputStreamGetDataSizeMethodInfo -data MemoryOutputStreamGetSizeMethodInfo -data MemoryOutputStreamStealAsBytesMethodInfo -data MemoryOutputStreamStealDataMethodInfo diff --git a/GI/Gio/Objects/Menu.hs b/GI/Gio/Objects/Menu.hs deleted file mode 100644 --- a/GI/Gio/Objects/Menu.hs +++ /dev/null @@ -1,764 +0,0 @@ - - -{- | -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.Objects.Menu - ( - --- * Exported types - Menu(..) , - MenuK , - toMenu , - noMenu , - - - -- * Methods --- ** menuAppend - MenuAppendMethodInfo , - menuAppend , - - --- ** menuAppendItem - MenuAppendItemMethodInfo , - menuAppendItem , - - --- ** menuAppendSection - MenuAppendSectionMethodInfo , - menuAppendSection , - - --- ** menuAppendSubmenu - MenuAppendSubmenuMethodInfo , - menuAppendSubmenu , - - --- ** menuFreeze - MenuFreezeMethodInfo , - menuFreeze , - - --- ** menuInsert - MenuInsertMethodInfo , - menuInsert , - - --- ** menuInsertItem - MenuInsertItemMethodInfo , - menuInsertItem , - - --- ** menuInsertSection - MenuInsertSectionMethodInfo , - menuInsertSection , - - --- ** menuInsertSubmenu - MenuInsertSubmenuMethodInfo , - menuInsertSubmenu , - - --- ** menuNew - menuNew , - - --- ** menuPrepend - MenuPrependMethodInfo , - menuPrepend , - - --- ** menuPrependItem - MenuPrependItemMethodInfo , - menuPrependItem , - - --- ** menuPrependSection - MenuPrependSectionMethodInfo , - menuPrependSection , - - --- ** menuPrependSubmenu - MenuPrependSubmenuMethodInfo , - menuPrependSubmenu , - - --- ** menuRemove - MenuRemoveMethodInfo , - menuRemove , - - --- ** menuRemoveAll - MenuRemoveAllMethodInfo , - menuRemoveAll , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype Menu = Menu (ForeignPtr Menu) -foreign import ccall "g_menu_get_type" - c_g_menu_get_type :: IO GType - -type instance ParentTypes Menu = MenuParentTypes -type MenuParentTypes = '[MenuModel, GObject.Object] - -instance GObject Menu where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_menu_get_type - - -class GObject o => MenuK o -instance (GObject o, IsDescendantOf Menu o) => MenuK o - -toMenu :: MenuK o => o -> IO Menu -toMenu = unsafeCastTo Menu - -noMenu :: Maybe Menu -noMenu = Nothing - -type family ResolveMenuMethod (t :: Symbol) (o :: *) :: * where - ResolveMenuMethod "append" o = MenuAppendMethodInfo - ResolveMenuMethod "appendItem" o = MenuAppendItemMethodInfo - ResolveMenuMethod "appendSection" o = MenuAppendSectionMethodInfo - ResolveMenuMethod "appendSubmenu" o = MenuAppendSubmenuMethodInfo - ResolveMenuMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMenuMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMenuMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMenuMethod "freeze" o = MenuFreezeMethodInfo - ResolveMenuMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMenuMethod "insert" o = MenuInsertMethodInfo - ResolveMenuMethod "insertItem" o = MenuInsertItemMethodInfo - ResolveMenuMethod "insertSection" o = MenuInsertSectionMethodInfo - ResolveMenuMethod "insertSubmenu" o = MenuInsertSubmenuMethodInfo - ResolveMenuMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMenuMethod "isMutable" o = MenuModelIsMutableMethodInfo - ResolveMenuMethod "itemsChanged" o = MenuModelItemsChangedMethodInfo - ResolveMenuMethod "iterateItemAttributes" o = MenuModelIterateItemAttributesMethodInfo - ResolveMenuMethod "iterateItemLinks" o = MenuModelIterateItemLinksMethodInfo - ResolveMenuMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMenuMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMenuMethod "prepend" o = MenuPrependMethodInfo - ResolveMenuMethod "prependItem" o = MenuPrependItemMethodInfo - ResolveMenuMethod "prependSection" o = MenuPrependSectionMethodInfo - ResolveMenuMethod "prependSubmenu" o = MenuPrependSubmenuMethodInfo - ResolveMenuMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMenuMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMenuMethod "remove" o = MenuRemoveMethodInfo - ResolveMenuMethod "removeAll" o = MenuRemoveAllMethodInfo - ResolveMenuMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMenuMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMenuMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMenuMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMenuMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMenuMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMenuMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMenuMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMenuMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMenuMethod "getItemAttributeValue" o = MenuModelGetItemAttributeValueMethodInfo - ResolveMenuMethod "getItemLink" o = MenuModelGetItemLinkMethodInfo - ResolveMenuMethod "getNItems" o = MenuModelGetNItemsMethodInfo - ResolveMenuMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMenuMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMenuMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMenuMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMenuMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMenuMethod t Menu, MethodInfo info Menu p) => IsLabelProxy t (Menu -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMenuMethod t Menu, MethodInfo info Menu p) => IsLabel t (Menu -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Menu = MenuAttributeList -type MenuAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Menu = MenuSignalList -type MenuSignalList = ('[ '("itemsChanged", MenuModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Menu::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Menu") --- throws : False --- Skip return : False - -foreign import ccall "g_menu_new" g_menu_new :: - IO (Ptr Menu) - - -menuNew :: - (MonadIO m) => - m Menu -- result -menuNew = liftIO $ do - result <- g_menu_new - checkUnexpectedReturnNULL "g_menu_new" result - result' <- (wrapObject Menu) result - return result' - --- method Menu::append --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_append" g_menu_append :: - Ptr Menu -> -- _obj : TInterface "Gio" "Menu" - CString -> -- label : TBasicType TUTF8 - CString -> -- detailed_action : TBasicType TUTF8 - IO () - - -menuAppend :: - (MonadIO m, MenuK a) => - a -- _obj - -> Maybe (T.Text) -- label - -> Maybe (T.Text) -- detailedAction - -> m () -- result -menuAppend _obj label detailedAction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - maybeDetailedAction <- case detailedAction of - Nothing -> return nullPtr - Just jDetailedAction -> do - jDetailedAction' <- textToCString jDetailedAction - return jDetailedAction' - g_menu_append _obj' maybeLabel maybeDetailedAction - touchManagedPtr _obj - freeMem maybeLabel - freeMem maybeDetailedAction - return () - -data MenuAppendMethodInfo -instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, MenuK a) => MethodInfo MenuAppendMethodInfo a signature where - overloadedMethod _ = menuAppend - --- method Menu::append_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_append_item" g_menu_append_item :: - Ptr Menu -> -- _obj : TInterface "Gio" "Menu" - Ptr MenuItem -> -- item : TInterface "Gio" "MenuItem" - IO () - - -menuAppendItem :: - (MonadIO m, MenuK a, MenuItemK b) => - a -- _obj - -> b -- item - -> m () -- result -menuAppendItem _obj item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - g_menu_append_item _obj' item' - touchManagedPtr _obj - touchManagedPtr item - return () - -data MenuAppendItemMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, MenuK a, MenuItemK b) => MethodInfo MenuAppendItemMethodInfo a signature where - overloadedMethod _ = menuAppendItem - --- method Menu::append_section --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_append_section" g_menu_append_section :: - Ptr Menu -> -- _obj : TInterface "Gio" "Menu" - CString -> -- label : TBasicType TUTF8 - Ptr MenuModel -> -- section : TInterface "Gio" "MenuModel" - IO () - - -menuAppendSection :: - (MonadIO m, MenuK a, MenuModelK b) => - a -- _obj - -> Maybe (T.Text) -- label - -> b -- section - -> m () -- result -menuAppendSection _obj label section = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - let section' = unsafeManagedPtrCastPtr section - g_menu_append_section _obj' maybeLabel section' - touchManagedPtr _obj - touchManagedPtr section - freeMem maybeLabel - return () - -data MenuAppendSectionMethodInfo -instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, MenuK a, MenuModelK b) => MethodInfo MenuAppendSectionMethodInfo a signature where - overloadedMethod _ = menuAppendSection - --- method Menu::append_submenu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_append_submenu" g_menu_append_submenu :: - Ptr Menu -> -- _obj : TInterface "Gio" "Menu" - CString -> -- label : TBasicType TUTF8 - Ptr MenuModel -> -- submenu : TInterface "Gio" "MenuModel" - IO () - - -menuAppendSubmenu :: - (MonadIO m, MenuK a, MenuModelK b) => - a -- _obj - -> Maybe (T.Text) -- label - -> b -- submenu - -> m () -- result -menuAppendSubmenu _obj label submenu = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - let submenu' = unsafeManagedPtrCastPtr submenu - g_menu_append_submenu _obj' maybeLabel submenu' - touchManagedPtr _obj - touchManagedPtr submenu - freeMem maybeLabel - return () - -data MenuAppendSubmenuMethodInfo -instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, MenuK a, MenuModelK b) => MethodInfo MenuAppendSubmenuMethodInfo a signature where - overloadedMethod _ = menuAppendSubmenu - --- method Menu::freeze --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_freeze" g_menu_freeze :: - Ptr Menu -> -- _obj : TInterface "Gio" "Menu" - IO () - - -menuFreeze :: - (MonadIO m, MenuK a) => - a -- _obj - -> m () -- result -menuFreeze _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_menu_freeze _obj' - touchManagedPtr _obj - return () - -data MenuFreezeMethodInfo -instance (signature ~ (m ()), MonadIO m, MenuK a) => MethodInfo MenuFreezeMethodInfo a signature where - overloadedMethod _ = menuFreeze - --- method Menu::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_insert" g_menu_insert :: - Ptr Menu -> -- _obj : TInterface "Gio" "Menu" - Int32 -> -- position : TBasicType TInt - CString -> -- label : TBasicType TUTF8 - CString -> -- detailed_action : TBasicType TUTF8 - IO () - - -menuInsert :: - (MonadIO m, MenuK a) => - a -- _obj - -> Int32 -- position - -> Maybe (T.Text) -- label - -> Maybe (T.Text) -- detailedAction - -> m () -- result -menuInsert _obj position label detailedAction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - maybeDetailedAction <- case detailedAction of - Nothing -> return nullPtr - Just jDetailedAction -> do - jDetailedAction' <- textToCString jDetailedAction - return jDetailedAction' - g_menu_insert _obj' position maybeLabel maybeDetailedAction - touchManagedPtr _obj - freeMem maybeLabel - freeMem maybeDetailedAction - return () - -data MenuInsertMethodInfo -instance (signature ~ (Int32 -> Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, MenuK a) => MethodInfo MenuInsertMethodInfo a signature where - overloadedMethod _ = menuInsert - --- method Menu::insert_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_insert_item" g_menu_insert_item :: - Ptr Menu -> -- _obj : TInterface "Gio" "Menu" - Int32 -> -- position : TBasicType TInt - Ptr MenuItem -> -- item : TInterface "Gio" "MenuItem" - IO () - - -menuInsertItem :: - (MonadIO m, MenuK a, MenuItemK b) => - a -- _obj - -> Int32 -- position - -> b -- item - -> m () -- result -menuInsertItem _obj position item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - g_menu_insert_item _obj' position item' - touchManagedPtr _obj - touchManagedPtr item - return () - -data MenuInsertItemMethodInfo -instance (signature ~ (Int32 -> b -> m ()), MonadIO m, MenuK a, MenuItemK b) => MethodInfo MenuInsertItemMethodInfo a signature where - overloadedMethod _ = menuInsertItem - --- method Menu::insert_section --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_insert_section" g_menu_insert_section :: - Ptr Menu -> -- _obj : TInterface "Gio" "Menu" - Int32 -> -- position : TBasicType TInt - CString -> -- label : TBasicType TUTF8 - Ptr MenuModel -> -- section : TInterface "Gio" "MenuModel" - IO () - - -menuInsertSection :: - (MonadIO m, MenuK a, MenuModelK b) => - a -- _obj - -> Int32 -- position - -> Maybe (T.Text) -- label - -> b -- section - -> m () -- result -menuInsertSection _obj position label section = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - let section' = unsafeManagedPtrCastPtr section - g_menu_insert_section _obj' position maybeLabel section' - touchManagedPtr _obj - touchManagedPtr section - freeMem maybeLabel - return () - -data MenuInsertSectionMethodInfo -instance (signature ~ (Int32 -> Maybe (T.Text) -> b -> m ()), MonadIO m, MenuK a, MenuModelK b) => MethodInfo MenuInsertSectionMethodInfo a signature where - overloadedMethod _ = menuInsertSection - --- method Menu::insert_submenu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_insert_submenu" g_menu_insert_submenu :: - Ptr Menu -> -- _obj : TInterface "Gio" "Menu" - Int32 -> -- position : TBasicType TInt - CString -> -- label : TBasicType TUTF8 - Ptr MenuModel -> -- submenu : TInterface "Gio" "MenuModel" - IO () - - -menuInsertSubmenu :: - (MonadIO m, MenuK a, MenuModelK b) => - a -- _obj - -> Int32 -- position - -> Maybe (T.Text) -- label - -> b -- submenu - -> m () -- result -menuInsertSubmenu _obj position label submenu = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - let submenu' = unsafeManagedPtrCastPtr submenu - g_menu_insert_submenu _obj' position maybeLabel submenu' - touchManagedPtr _obj - touchManagedPtr submenu - freeMem maybeLabel - return () - -data MenuInsertSubmenuMethodInfo -instance (signature ~ (Int32 -> Maybe (T.Text) -> b -> m ()), MonadIO m, MenuK a, MenuModelK b) => MethodInfo MenuInsertSubmenuMethodInfo a signature where - overloadedMethod _ = menuInsertSubmenu - --- method Menu::prepend --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_prepend" g_menu_prepend :: - Ptr Menu -> -- _obj : TInterface "Gio" "Menu" - CString -> -- label : TBasicType TUTF8 - CString -> -- detailed_action : TBasicType TUTF8 - IO () - - -menuPrepend :: - (MonadIO m, MenuK a) => - a -- _obj - -> Maybe (T.Text) -- label - -> Maybe (T.Text) -- detailedAction - -> m () -- result -menuPrepend _obj label detailedAction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - maybeDetailedAction <- case detailedAction of - Nothing -> return nullPtr - Just jDetailedAction -> do - jDetailedAction' <- textToCString jDetailedAction - return jDetailedAction' - g_menu_prepend _obj' maybeLabel maybeDetailedAction - touchManagedPtr _obj - freeMem maybeLabel - freeMem maybeDetailedAction - return () - -data MenuPrependMethodInfo -instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m ()), MonadIO m, MenuK a) => MethodInfo MenuPrependMethodInfo a signature where - overloadedMethod _ = menuPrepend - --- method Menu::prepend_item --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_prepend_item" g_menu_prepend_item :: - Ptr Menu -> -- _obj : TInterface "Gio" "Menu" - Ptr MenuItem -> -- item : TInterface "Gio" "MenuItem" - IO () - - -menuPrependItem :: - (MonadIO m, MenuK a, MenuItemK b) => - a -- _obj - -> b -- item - -> m () -- result -menuPrependItem _obj item = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let item' = unsafeManagedPtrCastPtr item - g_menu_prepend_item _obj' item' - touchManagedPtr _obj - touchManagedPtr item - return () - -data MenuPrependItemMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, MenuK a, MenuItemK b) => MethodInfo MenuPrependItemMethodInfo a signature where - overloadedMethod _ = menuPrependItem - --- method Menu::prepend_section --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_prepend_section" g_menu_prepend_section :: - Ptr Menu -> -- _obj : TInterface "Gio" "Menu" - CString -> -- label : TBasicType TUTF8 - Ptr MenuModel -> -- section : TInterface "Gio" "MenuModel" - IO () - - -menuPrependSection :: - (MonadIO m, MenuK a, MenuModelK b) => - a -- _obj - -> Maybe (T.Text) -- label - -> b -- section - -> m () -- result -menuPrependSection _obj label section = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - let section' = unsafeManagedPtrCastPtr section - g_menu_prepend_section _obj' maybeLabel section' - touchManagedPtr _obj - touchManagedPtr section - freeMem maybeLabel - return () - -data MenuPrependSectionMethodInfo -instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, MenuK a, MenuModelK b) => MethodInfo MenuPrependSectionMethodInfo a signature where - overloadedMethod _ = menuPrependSection - --- method Menu::prepend_submenu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_prepend_submenu" g_menu_prepend_submenu :: - Ptr Menu -> -- _obj : TInterface "Gio" "Menu" - CString -> -- label : TBasicType TUTF8 - Ptr MenuModel -> -- submenu : TInterface "Gio" "MenuModel" - IO () - - -menuPrependSubmenu :: - (MonadIO m, MenuK a, MenuModelK b) => - a -- _obj - -> Maybe (T.Text) -- label - -> b -- submenu - -> m () -- result -menuPrependSubmenu _obj label submenu = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - let submenu' = unsafeManagedPtrCastPtr submenu - g_menu_prepend_submenu _obj' maybeLabel submenu' - touchManagedPtr _obj - touchManagedPtr submenu - freeMem maybeLabel - return () - -data MenuPrependSubmenuMethodInfo -instance (signature ~ (Maybe (T.Text) -> b -> m ()), MonadIO m, MenuK a, MenuModelK b) => MethodInfo MenuPrependSubmenuMethodInfo a signature where - overloadedMethod _ = menuPrependSubmenu - --- method Menu::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_remove" g_menu_remove :: - Ptr Menu -> -- _obj : TInterface "Gio" "Menu" - Int32 -> -- position : TBasicType TInt - IO () - - -menuRemove :: - (MonadIO m, MenuK a) => - a -- _obj - -> Int32 -- position - -> m () -- result -menuRemove _obj position = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_menu_remove _obj' position - touchManagedPtr _obj - return () - -data MenuRemoveMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, MenuK a) => MethodInfo MenuRemoveMethodInfo a signature where - overloadedMethod _ = menuRemove - --- method Menu::remove_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Menu", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_remove_all" g_menu_remove_all :: - Ptr Menu -> -- _obj : TInterface "Gio" "Menu" - IO () - - -menuRemoveAll :: - (MonadIO m, MenuK a) => - a -- _obj - -> m () -- result -menuRemoveAll _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_menu_remove_all _obj' - touchManagedPtr _obj - return () - -data MenuRemoveAllMethodInfo -instance (signature ~ (m ()), MonadIO m, MenuK a) => MethodInfo MenuRemoveAllMethodInfo a signature where - overloadedMethod _ = menuRemoveAll - - diff --git a/GI/Gio/Objects/Menu.hs-boot b/GI/Gio/Objects/Menu.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/Menu.hs-boot +++ /dev/null @@ -1,28 +0,0 @@ -module GI.Gio.Objects.Menu where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Menu = Menu (ForeignPtr Menu) -instance GObject Menu where -class GObject o => MenuK o -instance (GObject o, IsDescendantOf Menu o) => MenuK o -data MenuAppendMethodInfo -data MenuAppendItemMethodInfo -data MenuAppendSectionMethodInfo -data MenuAppendSubmenuMethodInfo -data MenuFreezeMethodInfo -data MenuInsertMethodInfo -data MenuInsertItemMethodInfo -data MenuInsertSectionMethodInfo -data MenuInsertSubmenuMethodInfo -data MenuPrependMethodInfo -data MenuPrependItemMethodInfo -data MenuPrependSectionMethodInfo -data MenuPrependSubmenuMethodInfo -data MenuRemoveMethodInfo -data MenuRemoveAllMethodInfo diff --git a/GI/Gio/Objects/MenuAttributeIter.hs b/GI/Gio/Objects/MenuAttributeIter.hs deleted file mode 100644 --- a/GI/Gio/Objects/MenuAttributeIter.hs +++ /dev/null @@ -1,243 +0,0 @@ - - -{- | -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.Objects.MenuAttributeIter - ( - --- * Exported types - MenuAttributeIter(..) , - MenuAttributeIterK , - toMenuAttributeIter , - noMenuAttributeIter , - - - -- * Methods --- ** menuAttributeIterGetName - MenuAttributeIterGetNameMethodInfo , - menuAttributeIterGetName , - - --- ** menuAttributeIterGetNext - MenuAttributeIterGetNextMethodInfo , - menuAttributeIterGetNext , - - --- ** menuAttributeIterGetValue - MenuAttributeIterGetValueMethodInfo , - menuAttributeIterGetValue , - - --- ** menuAttributeIterNext - MenuAttributeIterNextMethodInfo , - menuAttributeIterNext , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype MenuAttributeIter = MenuAttributeIter (ForeignPtr MenuAttributeIter) -foreign import ccall "g_menu_attribute_iter_get_type" - c_g_menu_attribute_iter_get_type :: IO GType - -type instance ParentTypes MenuAttributeIter = MenuAttributeIterParentTypes -type MenuAttributeIterParentTypes = '[GObject.Object] - -instance GObject MenuAttributeIter where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_menu_attribute_iter_get_type - - -class GObject o => MenuAttributeIterK o -instance (GObject o, IsDescendantOf MenuAttributeIter o) => MenuAttributeIterK o - -toMenuAttributeIter :: MenuAttributeIterK o => o -> IO MenuAttributeIter -toMenuAttributeIter = unsafeCastTo MenuAttributeIter - -noMenuAttributeIter :: Maybe MenuAttributeIter -noMenuAttributeIter = Nothing - -type family ResolveMenuAttributeIterMethod (t :: Symbol) (o :: *) :: * where - ResolveMenuAttributeIterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMenuAttributeIterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMenuAttributeIterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMenuAttributeIterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMenuAttributeIterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMenuAttributeIterMethod "next" o = MenuAttributeIterNextMethodInfo - ResolveMenuAttributeIterMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMenuAttributeIterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMenuAttributeIterMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMenuAttributeIterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMenuAttributeIterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMenuAttributeIterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMenuAttributeIterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMenuAttributeIterMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMenuAttributeIterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMenuAttributeIterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMenuAttributeIterMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMenuAttributeIterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMenuAttributeIterMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMenuAttributeIterMethod "getName" o = MenuAttributeIterGetNameMethodInfo - ResolveMenuAttributeIterMethod "getNext" o = MenuAttributeIterGetNextMethodInfo - ResolveMenuAttributeIterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMenuAttributeIterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMenuAttributeIterMethod "getValue" o = MenuAttributeIterGetValueMethodInfo - ResolveMenuAttributeIterMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMenuAttributeIterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMenuAttributeIterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMenuAttributeIterMethod t MenuAttributeIter, MethodInfo info MenuAttributeIter p) => IsLabelProxy t (MenuAttributeIter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMenuAttributeIterMethod t MenuAttributeIter, MethodInfo info MenuAttributeIter p) => IsLabel t (MenuAttributeIter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList MenuAttributeIter = MenuAttributeIterAttributeList -type MenuAttributeIterAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList MenuAttributeIter = MenuAttributeIterSignalList -type MenuAttributeIterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method MenuAttributeIter::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_menu_attribute_iter_get_name" g_menu_attribute_iter_get_name :: - Ptr MenuAttributeIter -> -- _obj : TInterface "Gio" "MenuAttributeIter" - IO CString - - -menuAttributeIterGetName :: - (MonadIO m, MenuAttributeIterK a) => - a -- _obj - -> m T.Text -- result -menuAttributeIterGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_menu_attribute_iter_get_name _obj' - checkUnexpectedReturnNULL "g_menu_attribute_iter_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data MenuAttributeIterGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, MenuAttributeIterK a) => MethodInfo MenuAttributeIterGetNameMethodInfo a signature where - overloadedMethod _ = menuAttributeIterGetName - --- method MenuAttributeIter::get_next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_menu_attribute_iter_get_next" g_menu_attribute_iter_get_next :: - Ptr MenuAttributeIter -> -- _obj : TInterface "Gio" "MenuAttributeIter" - Ptr CString -> -- out_name : TBasicType TUTF8 - Ptr (Ptr GVariant) -> -- value : TVariant - IO CInt - - -menuAttributeIterGetNext :: - (MonadIO m, MenuAttributeIterK a) => - a -- _obj - -> m (Bool,T.Text,GVariant) -- result -menuAttributeIterGetNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - outName <- allocMem :: IO (Ptr CString) - value <- allocMem :: IO (Ptr (Ptr GVariant)) - result <- g_menu_attribute_iter_get_next _obj' outName value - let result' = (/= 0) result - outName' <- peek outName - outName'' <- cstringToText outName' - value' <- peek value - value'' <- wrapGVariantPtr value' - touchManagedPtr _obj - freeMem outName - freeMem value - return (result', outName'', value'') - -data MenuAttributeIterGetNextMethodInfo -instance (signature ~ (m (Bool,T.Text,GVariant)), MonadIO m, MenuAttributeIterK a) => MethodInfo MenuAttributeIterGetNextMethodInfo a signature where - overloadedMethod _ = menuAttributeIterGetNext - --- method MenuAttributeIter::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_menu_attribute_iter_get_value" g_menu_attribute_iter_get_value :: - Ptr MenuAttributeIter -> -- _obj : TInterface "Gio" "MenuAttributeIter" - IO (Ptr GVariant) - - -menuAttributeIterGetValue :: - (MonadIO m, MenuAttributeIterK a) => - a -- _obj - -> m GVariant -- result -menuAttributeIterGetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_menu_attribute_iter_get_value _obj' - checkUnexpectedReturnNULL "g_menu_attribute_iter_get_value" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - return result' - -data MenuAttributeIterGetValueMethodInfo -instance (signature ~ (m GVariant), MonadIO m, MenuAttributeIterK a) => MethodInfo MenuAttributeIterGetValueMethodInfo a signature where - overloadedMethod _ = menuAttributeIterGetValue - --- method MenuAttributeIter::next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuAttributeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_menu_attribute_iter_next" g_menu_attribute_iter_next :: - Ptr MenuAttributeIter -> -- _obj : TInterface "Gio" "MenuAttributeIter" - IO CInt - - -menuAttributeIterNext :: - (MonadIO m, MenuAttributeIterK a) => - a -- _obj - -> m Bool -- result -menuAttributeIterNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_menu_attribute_iter_next _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MenuAttributeIterNextMethodInfo -instance (signature ~ (m Bool), MonadIO m, MenuAttributeIterK a) => MethodInfo MenuAttributeIterNextMethodInfo a signature where - overloadedMethod _ = menuAttributeIterNext - - diff --git a/GI/Gio/Objects/MenuAttributeIter.hs-boot b/GI/Gio/Objects/MenuAttributeIter.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/MenuAttributeIter.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Objects.MenuAttributeIter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MenuAttributeIter = MenuAttributeIter (ForeignPtr MenuAttributeIter) -instance GObject MenuAttributeIter where -class GObject o => MenuAttributeIterK o -instance (GObject o, IsDescendantOf MenuAttributeIter o) => MenuAttributeIterK o -data MenuAttributeIterGetNameMethodInfo -data MenuAttributeIterGetNextMethodInfo -data MenuAttributeIterGetValueMethodInfo -data MenuAttributeIterNextMethodInfo diff --git a/GI/Gio/Objects/MenuItem.hs b/GI/Gio/Objects/MenuItem.hs deleted file mode 100644 --- a/GI/Gio/Objects/MenuItem.hs +++ /dev/null @@ -1,662 +0,0 @@ - - -{- | -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.Objects.MenuItem - ( - --- * Exported types - MenuItem(..) , - MenuItemK , - toMenuItem , - noMenuItem , - - - -- * Methods --- ** menuItemGetAttributeValue - MenuItemGetAttributeValueMethodInfo , - menuItemGetAttributeValue , - - --- ** menuItemGetLink - MenuItemGetLinkMethodInfo , - menuItemGetLink , - - --- ** menuItemNew - menuItemNew , - - --- ** menuItemNewFromModel - menuItemNewFromModel , - - --- ** menuItemNewSection - menuItemNewSection , - - --- ** menuItemNewSubmenu - menuItemNewSubmenu , - - --- ** menuItemSetActionAndTargetValue - MenuItemSetActionAndTargetValueMethodInfo, - menuItemSetActionAndTargetValue , - - --- ** menuItemSetAttributeValue - MenuItemSetAttributeValueMethodInfo , - menuItemSetAttributeValue , - - --- ** menuItemSetDetailedAction - MenuItemSetDetailedActionMethodInfo , - menuItemSetDetailedAction , - - --- ** menuItemSetIcon - MenuItemSetIconMethodInfo , - menuItemSetIcon , - - --- ** menuItemSetLabel - MenuItemSetLabelMethodInfo , - menuItemSetLabel , - - --- ** menuItemSetLink - MenuItemSetLinkMethodInfo , - menuItemSetLink , - - --- ** menuItemSetSection - MenuItemSetSectionMethodInfo , - menuItemSetSection , - - --- ** menuItemSetSubmenu - MenuItemSetSubmenuMethodInfo , - menuItemSetSubmenu , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype MenuItem = MenuItem (ForeignPtr MenuItem) -foreign import ccall "g_menu_item_get_type" - c_g_menu_item_get_type :: IO GType - -type instance ParentTypes MenuItem = MenuItemParentTypes -type MenuItemParentTypes = '[GObject.Object] - -instance GObject MenuItem where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_menu_item_get_type - - -class GObject o => MenuItemK o -instance (GObject o, IsDescendantOf MenuItem o) => MenuItemK o - -toMenuItem :: MenuItemK o => o -> IO MenuItem -toMenuItem = unsafeCastTo MenuItem - -noMenuItem :: Maybe MenuItem -noMenuItem = Nothing - -type family ResolveMenuItemMethod (t :: Symbol) (o :: *) :: * where - ResolveMenuItemMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMenuItemMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMenuItemMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMenuItemMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMenuItemMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMenuItemMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMenuItemMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMenuItemMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMenuItemMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMenuItemMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMenuItemMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMenuItemMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMenuItemMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMenuItemMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMenuItemMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMenuItemMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMenuItemMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMenuItemMethod "getAttributeValue" o = MenuItemGetAttributeValueMethodInfo - ResolveMenuItemMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMenuItemMethod "getLink" o = MenuItemGetLinkMethodInfo - ResolveMenuItemMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMenuItemMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMenuItemMethod "setActionAndTargetValue" o = MenuItemSetActionAndTargetValueMethodInfo - ResolveMenuItemMethod "setAttributeValue" o = MenuItemSetAttributeValueMethodInfo - ResolveMenuItemMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMenuItemMethod "setDetailedAction" o = MenuItemSetDetailedActionMethodInfo - ResolveMenuItemMethod "setIcon" o = MenuItemSetIconMethodInfo - ResolveMenuItemMethod "setLabel" o = MenuItemSetLabelMethodInfo - ResolveMenuItemMethod "setLink" o = MenuItemSetLinkMethodInfo - ResolveMenuItemMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMenuItemMethod "setSection" o = MenuItemSetSectionMethodInfo - ResolveMenuItemMethod "setSubmenu" o = MenuItemSetSubmenuMethodInfo - ResolveMenuItemMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMenuItemMethod t MenuItem, MethodInfo info MenuItem p) => IsLabelProxy t (MenuItem -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMenuItemMethod t MenuItem, MethodInfo info MenuItem p) => IsLabel t (MenuItem -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList MenuItem = MenuItemAttributeList -type MenuItemAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList MenuItem = MenuItemSignalList -type MenuItemSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method MenuItem::new --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MenuItem") --- throws : False --- Skip return : False - -foreign import ccall "g_menu_item_new" g_menu_item_new :: - CString -> -- label : TBasicType TUTF8 - CString -> -- detailed_action : TBasicType TUTF8 - IO (Ptr MenuItem) - - -menuItemNew :: - (MonadIO m) => - Maybe (T.Text) -- label - -> Maybe (T.Text) -- detailedAction - -> m MenuItem -- result -menuItemNew label detailedAction = liftIO $ do - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - maybeDetailedAction <- case detailedAction of - Nothing -> return nullPtr - Just jDetailedAction -> do - jDetailedAction' <- textToCString jDetailedAction - return jDetailedAction' - result <- g_menu_item_new maybeLabel maybeDetailedAction - checkUnexpectedReturnNULL "g_menu_item_new" result - result' <- (wrapObject MenuItem) result - freeMem maybeLabel - freeMem maybeDetailedAction - return result' - --- method MenuItem::new_from_model --- method type : Constructor --- Args : [Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MenuItem") --- throws : False --- Skip return : False - -foreign import ccall "g_menu_item_new_from_model" g_menu_item_new_from_model :: - Ptr MenuModel -> -- model : TInterface "Gio" "MenuModel" - Int32 -> -- item_index : TBasicType TInt - IO (Ptr MenuItem) - - -menuItemNewFromModel :: - (MonadIO m, MenuModelK a) => - a -- model - -> Int32 -- itemIndex - -> m MenuItem -- result -menuItemNewFromModel model itemIndex = liftIO $ do - let model' = unsafeManagedPtrCastPtr model - result <- g_menu_item_new_from_model model' itemIndex - checkUnexpectedReturnNULL "g_menu_item_new_from_model" result - result' <- (wrapObject MenuItem) result - touchManagedPtr model - return result' - --- method MenuItem::new_section --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MenuItem") --- throws : False --- Skip return : False - -foreign import ccall "g_menu_item_new_section" g_menu_item_new_section :: - CString -> -- label : TBasicType TUTF8 - Ptr MenuModel -> -- section : TInterface "Gio" "MenuModel" - IO (Ptr MenuItem) - - -menuItemNewSection :: - (MonadIO m, MenuModelK a) => - Maybe (T.Text) -- label - -> a -- section - -> m MenuItem -- result -menuItemNewSection label section = liftIO $ do - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - let section' = unsafeManagedPtrCastPtr section - result <- g_menu_item_new_section maybeLabel section' - checkUnexpectedReturnNULL "g_menu_item_new_section" result - result' <- (wrapObject MenuItem) result - touchManagedPtr section - freeMem maybeLabel - return result' - --- method MenuItem::new_submenu --- method type : Constructor --- Args : [Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MenuItem") --- throws : False --- Skip return : False - -foreign import ccall "g_menu_item_new_submenu" g_menu_item_new_submenu :: - CString -> -- label : TBasicType TUTF8 - Ptr MenuModel -> -- submenu : TInterface "Gio" "MenuModel" - IO (Ptr MenuItem) - - -menuItemNewSubmenu :: - (MonadIO m, MenuModelK a) => - Maybe (T.Text) -- label - -> a -- submenu - -> m MenuItem -- result -menuItemNewSubmenu label submenu = liftIO $ do - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - let submenu' = unsafeManagedPtrCastPtr submenu - result <- g_menu_item_new_submenu maybeLabel submenu' - checkUnexpectedReturnNULL "g_menu_item_new_submenu" result - result' <- (wrapObject MenuItem) result - touchManagedPtr submenu - freeMem maybeLabel - return result' - --- method MenuItem::get_attribute_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expected_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_menu_item_get_attribute_value" g_menu_item_get_attribute_value :: - Ptr MenuItem -> -- _obj : TInterface "Gio" "MenuItem" - CString -> -- attribute : TBasicType TUTF8 - Ptr GLib.VariantType -> -- expected_type : TInterface "GLib" "VariantType" - IO (Ptr GVariant) - - -menuItemGetAttributeValue :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> T.Text -- attribute - -> Maybe (GLib.VariantType) -- expectedType - -> m GVariant -- result -menuItemGetAttributeValue _obj attribute expectedType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - maybeExpectedType <- case expectedType of - Nothing -> return nullPtr - Just jExpectedType -> do - let jExpectedType' = unsafeManagedPtrGetPtr jExpectedType - return jExpectedType' - result <- g_menu_item_get_attribute_value _obj' attribute' maybeExpectedType - checkUnexpectedReturnNULL "g_menu_item_get_attribute_value" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - whenJust expectedType touchManagedPtr - freeMem attribute' - return result' - -data MenuItemGetAttributeValueMethodInfo -instance (signature ~ (T.Text -> Maybe (GLib.VariantType) -> m GVariant), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetAttributeValueMethodInfo a signature where - overloadedMethod _ = menuItemGetAttributeValue - --- method MenuItem::get_link --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "link", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MenuModel") --- throws : False --- Skip return : False - -foreign import ccall "g_menu_item_get_link" g_menu_item_get_link :: - Ptr MenuItem -> -- _obj : TInterface "Gio" "MenuItem" - CString -> -- link : TBasicType TUTF8 - IO (Ptr MenuModel) - - -menuItemGetLink :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> T.Text -- link - -> m MenuModel -- result -menuItemGetLink _obj link = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - link' <- textToCString link - result <- g_menu_item_get_link _obj' link' - checkUnexpectedReturnNULL "g_menu_item_get_link" result - result' <- (wrapObject MenuModel) result - touchManagedPtr _obj - freeMem link' - return result' - -data MenuItemGetLinkMethodInfo -instance (signature ~ (T.Text -> m MenuModel), MonadIO m, MenuItemK a) => MethodInfo MenuItemGetLinkMethodInfo a signature where - overloadedMethod _ = menuItemGetLink - --- method MenuItem::set_action_and_target_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_item_set_action_and_target_value" g_menu_item_set_action_and_target_value :: - Ptr MenuItem -> -- _obj : TInterface "Gio" "MenuItem" - CString -> -- action : TBasicType TUTF8 - Ptr GVariant -> -- target_value : TVariant - IO () - - -menuItemSetActionAndTargetValue :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> Maybe (T.Text) -- action - -> Maybe (GVariant) -- targetValue - -> m () -- result -menuItemSetActionAndTargetValue _obj action targetValue = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAction <- case action of - Nothing -> return nullPtr - Just jAction -> do - jAction' <- textToCString jAction - return jAction' - maybeTargetValue <- case targetValue of - Nothing -> return nullPtr - Just jTargetValue -> do - let jTargetValue' = unsafeManagedPtrGetPtr jTargetValue - return jTargetValue' - g_menu_item_set_action_and_target_value _obj' maybeAction maybeTargetValue - touchManagedPtr _obj - freeMem maybeAction - return () - -data MenuItemSetActionAndTargetValueMethodInfo -instance (signature ~ (Maybe (T.Text) -> Maybe (GVariant) -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetActionAndTargetValueMethodInfo a signature where - overloadedMethod _ = menuItemSetActionAndTargetValue - --- method MenuItem::set_attribute_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_item_set_attribute_value" g_menu_item_set_attribute_value :: - Ptr MenuItem -> -- _obj : TInterface "Gio" "MenuItem" - CString -> -- attribute : TBasicType TUTF8 - Ptr GVariant -> -- value : TVariant - IO () - - -menuItemSetAttributeValue :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> T.Text -- attribute - -> Maybe (GVariant) -- value - -> m () -- result -menuItemSetAttributeValue _obj attribute value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - maybeValue <- case value of - Nothing -> return nullPtr - Just jValue -> do - let jValue' = unsafeManagedPtrGetPtr jValue - return jValue' - g_menu_item_set_attribute_value _obj' attribute' maybeValue - touchManagedPtr _obj - freeMem attribute' - return () - -data MenuItemSetAttributeValueMethodInfo -instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetAttributeValueMethodInfo a signature where - overloadedMethod _ = menuItemSetAttributeValue - --- method MenuItem::set_detailed_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_item_set_detailed_action" g_menu_item_set_detailed_action :: - Ptr MenuItem -> -- _obj : TInterface "Gio" "MenuItem" - CString -> -- detailed_action : TBasicType TUTF8 - IO () - - -menuItemSetDetailedAction :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> T.Text -- detailedAction - -> m () -- result -menuItemSetDetailedAction _obj detailedAction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - detailedAction' <- textToCString detailedAction - g_menu_item_set_detailed_action _obj' detailedAction' - touchManagedPtr _obj - freeMem detailedAction' - return () - -data MenuItemSetDetailedActionMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetDetailedActionMethodInfo a signature where - overloadedMethod _ = menuItemSetDetailedAction - --- method MenuItem::set_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_item_set_icon" g_menu_item_set_icon :: - Ptr MenuItem -> -- _obj : TInterface "Gio" "MenuItem" - Ptr Icon -> -- icon : TInterface "Gio" "Icon" - IO () - - -menuItemSetIcon :: - (MonadIO m, MenuItemK a, IconK b) => - a -- _obj - -> b -- icon - -> m () -- result -menuItemSetIcon _obj icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon' = unsafeManagedPtrCastPtr icon - g_menu_item_set_icon _obj' icon' - touchManagedPtr _obj - touchManagedPtr icon - return () - -data MenuItemSetIconMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, MenuItemK a, IconK b) => MethodInfo MenuItemSetIconMethodInfo a signature where - overloadedMethod _ = menuItemSetIcon - --- method MenuItem::set_label --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_item_set_label" g_menu_item_set_label :: - Ptr MenuItem -> -- _obj : TInterface "Gio" "MenuItem" - CString -> -- label : TBasicType TUTF8 - IO () - - -menuItemSetLabel :: - (MonadIO m, MenuItemK a) => - a -- _obj - -> Maybe (T.Text) -- label - -> m () -- result -menuItemSetLabel _obj label = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeLabel <- case label of - Nothing -> return nullPtr - Just jLabel -> do - jLabel' <- textToCString jLabel - return jLabel' - g_menu_item_set_label _obj' maybeLabel - touchManagedPtr _obj - freeMem maybeLabel - return () - -data MenuItemSetLabelMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, MenuItemK a) => MethodInfo MenuItemSetLabelMethodInfo a signature where - overloadedMethod _ = menuItemSetLabel - --- method MenuItem::set_link --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "link", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "model", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_item_set_link" g_menu_item_set_link :: - Ptr MenuItem -> -- _obj : TInterface "Gio" "MenuItem" - CString -> -- link : TBasicType TUTF8 - Ptr MenuModel -> -- model : TInterface "Gio" "MenuModel" - IO () - - -menuItemSetLink :: - (MonadIO m, MenuItemK a, MenuModelK b) => - a -- _obj - -> T.Text -- link - -> Maybe (b) -- model - -> m () -- result -menuItemSetLink _obj link model = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - link' <- textToCString link - maybeModel <- case model of - Nothing -> return nullPtr - Just jModel -> do - let jModel' = unsafeManagedPtrCastPtr jModel - return jModel' - g_menu_item_set_link _obj' link' maybeModel - touchManagedPtr _obj - whenJust model touchManagedPtr - freeMem link' - return () - -data MenuItemSetLinkMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> m ()), MonadIO m, MenuItemK a, MenuModelK b) => MethodInfo MenuItemSetLinkMethodInfo a signature where - overloadedMethod _ = menuItemSetLink - --- method MenuItem::set_section --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "section", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_item_set_section" g_menu_item_set_section :: - Ptr MenuItem -> -- _obj : TInterface "Gio" "MenuItem" - Ptr MenuModel -> -- section : TInterface "Gio" "MenuModel" - IO () - - -menuItemSetSection :: - (MonadIO m, MenuItemK a, MenuModelK b) => - a -- _obj - -> Maybe (b) -- section - -> m () -- result -menuItemSetSection _obj section = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeSection <- case section of - Nothing -> return nullPtr - Just jSection -> do - let jSection' = unsafeManagedPtrCastPtr jSection - return jSection' - g_menu_item_set_section _obj' maybeSection - touchManagedPtr _obj - whenJust section touchManagedPtr - return () - -data MenuItemSetSectionMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuItemK a, MenuModelK b) => MethodInfo MenuItemSetSectionMethodInfo a signature where - overloadedMethod _ = menuItemSetSection - --- method MenuItem::set_submenu --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuItem", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "submenu", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_item_set_submenu" g_menu_item_set_submenu :: - Ptr MenuItem -> -- _obj : TInterface "Gio" "MenuItem" - Ptr MenuModel -> -- submenu : TInterface "Gio" "MenuModel" - IO () - - -menuItemSetSubmenu :: - (MonadIO m, MenuItemK a, MenuModelK b) => - a -- _obj - -> Maybe (b) -- submenu - -> m () -- result -menuItemSetSubmenu _obj submenu = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeSubmenu <- case submenu of - Nothing -> return nullPtr - Just jSubmenu -> do - let jSubmenu' = unsafeManagedPtrCastPtr jSubmenu - return jSubmenu' - g_menu_item_set_submenu _obj' maybeSubmenu - touchManagedPtr _obj - whenJust submenu touchManagedPtr - return () - -data MenuItemSetSubmenuMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, MenuItemK a, MenuModelK b) => MethodInfo MenuItemSetSubmenuMethodInfo a signature where - overloadedMethod _ = menuItemSetSubmenu - - diff --git a/GI/Gio/Objects/MenuItem.hs-boot b/GI/Gio/Objects/MenuItem.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/MenuItem.hs-boot +++ /dev/null @@ -1,23 +0,0 @@ -module GI.Gio.Objects.MenuItem where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MenuItem = MenuItem (ForeignPtr MenuItem) -instance GObject MenuItem where -class GObject o => MenuItemK o -instance (GObject o, IsDescendantOf MenuItem o) => MenuItemK o -data MenuItemGetAttributeValueMethodInfo -data MenuItemGetLinkMethodInfo -data MenuItemSetActionAndTargetValueMethodInfo -data MenuItemSetAttributeValueMethodInfo -data MenuItemSetDetailedActionMethodInfo -data MenuItemSetIconMethodInfo -data MenuItemSetLabelMethodInfo -data MenuItemSetLinkMethodInfo -data MenuItemSetSectionMethodInfo -data MenuItemSetSubmenuMethodInfo diff --git a/GI/Gio/Objects/MenuLinkIter.hs b/GI/Gio/Objects/MenuLinkIter.hs deleted file mode 100644 --- a/GI/Gio/Objects/MenuLinkIter.hs +++ /dev/null @@ -1,243 +0,0 @@ - - -{- | -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.Objects.MenuLinkIter - ( - --- * Exported types - MenuLinkIter(..) , - MenuLinkIterK , - toMenuLinkIter , - noMenuLinkIter , - - - -- * Methods --- ** menuLinkIterGetName - MenuLinkIterGetNameMethodInfo , - menuLinkIterGetName , - - --- ** menuLinkIterGetNext - MenuLinkIterGetNextMethodInfo , - menuLinkIterGetNext , - - --- ** menuLinkIterGetValue - MenuLinkIterGetValueMethodInfo , - menuLinkIterGetValue , - - --- ** menuLinkIterNext - MenuLinkIterNextMethodInfo , - menuLinkIterNext , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype MenuLinkIter = MenuLinkIter (ForeignPtr MenuLinkIter) -foreign import ccall "g_menu_link_iter_get_type" - c_g_menu_link_iter_get_type :: IO GType - -type instance ParentTypes MenuLinkIter = MenuLinkIterParentTypes -type MenuLinkIterParentTypes = '[GObject.Object] - -instance GObject MenuLinkIter where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_menu_link_iter_get_type - - -class GObject o => MenuLinkIterK o -instance (GObject o, IsDescendantOf MenuLinkIter o) => MenuLinkIterK o - -toMenuLinkIter :: MenuLinkIterK o => o -> IO MenuLinkIter -toMenuLinkIter = unsafeCastTo MenuLinkIter - -noMenuLinkIter :: Maybe MenuLinkIter -noMenuLinkIter = Nothing - -type family ResolveMenuLinkIterMethod (t :: Symbol) (o :: *) :: * where - ResolveMenuLinkIterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMenuLinkIterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMenuLinkIterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMenuLinkIterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMenuLinkIterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMenuLinkIterMethod "next" o = MenuLinkIterNextMethodInfo - ResolveMenuLinkIterMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMenuLinkIterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMenuLinkIterMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMenuLinkIterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMenuLinkIterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMenuLinkIterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMenuLinkIterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMenuLinkIterMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMenuLinkIterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMenuLinkIterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMenuLinkIterMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMenuLinkIterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMenuLinkIterMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMenuLinkIterMethod "getName" o = MenuLinkIterGetNameMethodInfo - ResolveMenuLinkIterMethod "getNext" o = MenuLinkIterGetNextMethodInfo - ResolveMenuLinkIterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMenuLinkIterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMenuLinkIterMethod "getValue" o = MenuLinkIterGetValueMethodInfo - ResolveMenuLinkIterMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMenuLinkIterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMenuLinkIterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMenuLinkIterMethod t MenuLinkIter, MethodInfo info MenuLinkIter p) => IsLabelProxy t (MenuLinkIter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMenuLinkIterMethod t MenuLinkIter, MethodInfo info MenuLinkIter p) => IsLabel t (MenuLinkIter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList MenuLinkIter = MenuLinkIterAttributeList -type MenuLinkIterAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList MenuLinkIter = MenuLinkIterSignalList -type MenuLinkIterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method MenuLinkIter::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_menu_link_iter_get_name" g_menu_link_iter_get_name :: - Ptr MenuLinkIter -> -- _obj : TInterface "Gio" "MenuLinkIter" - IO CString - - -menuLinkIterGetName :: - (MonadIO m, MenuLinkIterK a) => - a -- _obj - -> m T.Text -- result -menuLinkIterGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_menu_link_iter_get_name _obj' - checkUnexpectedReturnNULL "g_menu_link_iter_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data MenuLinkIterGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, MenuLinkIterK a) => MethodInfo MenuLinkIterGetNameMethodInfo a signature where - overloadedMethod _ = menuLinkIterGetName - --- method MenuLinkIter::get_next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "out_link", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "Gio" "MenuModel", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_menu_link_iter_get_next" g_menu_link_iter_get_next :: - Ptr MenuLinkIter -> -- _obj : TInterface "Gio" "MenuLinkIter" - Ptr CString -> -- out_link : TBasicType TUTF8 - Ptr (Ptr MenuModel) -> -- value : TInterface "Gio" "MenuModel" - IO CInt - - -menuLinkIterGetNext :: - (MonadIO m, MenuLinkIterK a) => - a -- _obj - -> m (Bool,T.Text,MenuModel) -- result -menuLinkIterGetNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - outLink <- allocMem :: IO (Ptr CString) - value <- allocMem :: IO (Ptr (Ptr MenuModel)) - result <- g_menu_link_iter_get_next _obj' outLink value - let result' = (/= 0) result - outLink' <- peek outLink - outLink'' <- cstringToText outLink' - value' <- peek value - value'' <- (wrapObject MenuModel) value' - touchManagedPtr _obj - freeMem outLink - freeMem value - return (result', outLink'', value'') - -data MenuLinkIterGetNextMethodInfo -instance (signature ~ (m (Bool,T.Text,MenuModel)), MonadIO m, MenuLinkIterK a) => MethodInfo MenuLinkIterGetNextMethodInfo a signature where - overloadedMethod _ = menuLinkIterGetNext - --- method MenuLinkIter::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MenuModel") --- throws : False --- Skip return : False - -foreign import ccall "g_menu_link_iter_get_value" g_menu_link_iter_get_value :: - Ptr MenuLinkIter -> -- _obj : TInterface "Gio" "MenuLinkIter" - IO (Ptr MenuModel) - - -menuLinkIterGetValue :: - (MonadIO m, MenuLinkIterK a) => - a -- _obj - -> m MenuModel -- result -menuLinkIterGetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_menu_link_iter_get_value _obj' - checkUnexpectedReturnNULL "g_menu_link_iter_get_value" result - result' <- (wrapObject MenuModel) result - touchManagedPtr _obj - return result' - -data MenuLinkIterGetValueMethodInfo -instance (signature ~ (m MenuModel), MonadIO m, MenuLinkIterK a) => MethodInfo MenuLinkIterGetValueMethodInfo a signature where - overloadedMethod _ = menuLinkIterGetValue - --- method MenuLinkIter::next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuLinkIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_menu_link_iter_next" g_menu_link_iter_next :: - Ptr MenuLinkIter -> -- _obj : TInterface "Gio" "MenuLinkIter" - IO CInt - - -menuLinkIterNext :: - (MonadIO m, MenuLinkIterK a) => - a -- _obj - -> m Bool -- result -menuLinkIterNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_menu_link_iter_next _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MenuLinkIterNextMethodInfo -instance (signature ~ (m Bool), MonadIO m, MenuLinkIterK a) => MethodInfo MenuLinkIterNextMethodInfo a signature where - overloadedMethod _ = menuLinkIterNext - - diff --git a/GI/Gio/Objects/MenuLinkIter.hs-boot b/GI/Gio/Objects/MenuLinkIter.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/MenuLinkIter.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Objects.MenuLinkIter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MenuLinkIter = MenuLinkIter (ForeignPtr MenuLinkIter) -instance GObject MenuLinkIter where -class GObject o => MenuLinkIterK o -instance (GObject o, IsDescendantOf MenuLinkIter o) => MenuLinkIterK o -data MenuLinkIterGetNameMethodInfo -data MenuLinkIterGetNextMethodInfo -data MenuLinkIterGetValueMethodInfo -data MenuLinkIterNextMethodInfo diff --git a/GI/Gio/Objects/MenuModel.hs b/GI/Gio/Objects/MenuModel.hs deleted file mode 100644 --- a/GI/Gio/Objects/MenuModel.hs +++ /dev/null @@ -1,433 +0,0 @@ - - -{- | -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.Objects.MenuModel - ( - --- * Exported types - MenuModel(..) , - MenuModelK , - toMenuModel , - noMenuModel , - - - -- * Methods --- ** menuModelGetItemAttributeValue - MenuModelGetItemAttributeValueMethodInfo, - menuModelGetItemAttributeValue , - - --- ** menuModelGetItemLink - MenuModelGetItemLinkMethodInfo , - menuModelGetItemLink , - - --- ** menuModelGetNItems - MenuModelGetNItemsMethodInfo , - menuModelGetNItems , - - --- ** menuModelIsMutable - MenuModelIsMutableMethodInfo , - menuModelIsMutable , - - --- ** menuModelItemsChanged - MenuModelItemsChangedMethodInfo , - menuModelItemsChanged , - - --- ** menuModelIterateItemAttributes - MenuModelIterateItemAttributesMethodInfo, - menuModelIterateItemAttributes , - - --- ** menuModelIterateItemLinks - MenuModelIterateItemLinksMethodInfo , - menuModelIterateItemLinks , - - - - - -- * Signals --- ** ItemsChanged - MenuModelItemsChangedCallback , - MenuModelItemsChangedCallbackC , - MenuModelItemsChangedSignalInfo , - afterMenuModelItemsChanged , - menuModelItemsChangedCallbackWrapper , - menuModelItemsChangedClosure , - mkMenuModelItemsChangedCallback , - noMenuModelItemsChangedCallback , - onMenuModelItemsChanged , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype MenuModel = MenuModel (ForeignPtr MenuModel) -foreign import ccall "g_menu_model_get_type" - c_g_menu_model_get_type :: IO GType - -type instance ParentTypes MenuModel = MenuModelParentTypes -type MenuModelParentTypes = '[GObject.Object] - -instance GObject MenuModel where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_menu_model_get_type - - -class GObject o => MenuModelK o -instance (GObject o, IsDescendantOf MenuModel o) => MenuModelK o - -toMenuModel :: MenuModelK o => o -> IO MenuModel -toMenuModel = unsafeCastTo MenuModel - -noMenuModel :: Maybe MenuModel -noMenuModel = Nothing - -type family ResolveMenuModelMethod (t :: Symbol) (o :: *) :: * where - ResolveMenuModelMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMenuModelMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMenuModelMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMenuModelMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMenuModelMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMenuModelMethod "isMutable" o = MenuModelIsMutableMethodInfo - ResolveMenuModelMethod "itemsChanged" o = MenuModelItemsChangedMethodInfo - ResolveMenuModelMethod "iterateItemAttributes" o = MenuModelIterateItemAttributesMethodInfo - ResolveMenuModelMethod "iterateItemLinks" o = MenuModelIterateItemLinksMethodInfo - ResolveMenuModelMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMenuModelMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMenuModelMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMenuModelMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMenuModelMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMenuModelMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMenuModelMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMenuModelMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMenuModelMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMenuModelMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMenuModelMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMenuModelMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMenuModelMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMenuModelMethod "getItemAttributeValue" o = MenuModelGetItemAttributeValueMethodInfo - ResolveMenuModelMethod "getItemLink" o = MenuModelGetItemLinkMethodInfo - ResolveMenuModelMethod "getNItems" o = MenuModelGetNItemsMethodInfo - ResolveMenuModelMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMenuModelMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMenuModelMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMenuModelMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMenuModelMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMenuModelMethod t MenuModel, MethodInfo info MenuModel p) => IsLabelProxy t (MenuModel -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMenuModelMethod t MenuModel, MethodInfo info MenuModel p) => IsLabel t (MenuModel -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal MenuModel::items-changed -type MenuModelItemsChangedCallback = - Int32 -> - Int32 -> - Int32 -> - IO () - -noMenuModelItemsChangedCallback :: Maybe MenuModelItemsChangedCallback -noMenuModelItemsChangedCallback = Nothing - -type MenuModelItemsChangedCallbackC = - Ptr () -> -- object - Int32 -> - Int32 -> - Int32 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMenuModelItemsChangedCallback :: MenuModelItemsChangedCallbackC -> IO (FunPtr MenuModelItemsChangedCallbackC) - -menuModelItemsChangedClosure :: MenuModelItemsChangedCallback -> IO Closure -menuModelItemsChangedClosure cb = newCClosure =<< mkMenuModelItemsChangedCallback wrapped - where wrapped = menuModelItemsChangedCallbackWrapper cb - -menuModelItemsChangedCallbackWrapper :: - MenuModelItemsChangedCallback -> - Ptr () -> - Int32 -> - Int32 -> - Int32 -> - Ptr () -> - IO () -menuModelItemsChangedCallbackWrapper _cb _ position removed added _ = do - _cb position removed added - -onMenuModelItemsChanged :: (GObject a, MonadIO m) => a -> MenuModelItemsChangedCallback -> m SignalHandlerId -onMenuModelItemsChanged obj cb = liftIO $ connectMenuModelItemsChanged obj cb SignalConnectBefore -afterMenuModelItemsChanged :: (GObject a, MonadIO m) => a -> MenuModelItemsChangedCallback -> m SignalHandlerId -afterMenuModelItemsChanged obj cb = connectMenuModelItemsChanged obj cb SignalConnectAfter - -connectMenuModelItemsChanged :: (GObject a, MonadIO m) => - a -> MenuModelItemsChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectMenuModelItemsChanged obj cb after = liftIO $ do - cb' <- mkMenuModelItemsChangedCallback (menuModelItemsChangedCallbackWrapper cb) - connectSignalFunPtr obj "items-changed" cb' after - -type instance AttributeList MenuModel = MenuModelAttributeList -type MenuModelAttributeList = ('[ ] :: [(Symbol, *)]) - -data MenuModelItemsChangedSignalInfo -instance SignalInfo MenuModelItemsChangedSignalInfo where - type HaskellCallbackType MenuModelItemsChangedSignalInfo = MenuModelItemsChangedCallback - connectSignal _ = connectMenuModelItemsChanged - -type instance SignalList MenuModel = MenuModelSignalList -type MenuModelSignalList = ('[ '("itemsChanged", MenuModelItemsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method MenuModel::get_item_attribute_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expected_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_menu_model_get_item_attribute_value" g_menu_model_get_item_attribute_value :: - Ptr MenuModel -> -- _obj : TInterface "Gio" "MenuModel" - Int32 -> -- item_index : TBasicType TInt - CString -> -- attribute : TBasicType TUTF8 - Ptr GLib.VariantType -> -- expected_type : TInterface "GLib" "VariantType" - IO (Ptr GVariant) - - -menuModelGetItemAttributeValue :: - (MonadIO m, MenuModelK a) => - a -- _obj - -> Int32 -- itemIndex - -> T.Text -- attribute - -> Maybe (GLib.VariantType) -- expectedType - -> m GVariant -- result -menuModelGetItemAttributeValue _obj itemIndex attribute expectedType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - attribute' <- textToCString attribute - maybeExpectedType <- case expectedType of - Nothing -> return nullPtr - Just jExpectedType -> do - let jExpectedType' = unsafeManagedPtrGetPtr jExpectedType - return jExpectedType' - result <- g_menu_model_get_item_attribute_value _obj' itemIndex attribute' maybeExpectedType - checkUnexpectedReturnNULL "g_menu_model_get_item_attribute_value" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - whenJust expectedType touchManagedPtr - freeMem attribute' - return result' - -data MenuModelGetItemAttributeValueMethodInfo -instance (signature ~ (Int32 -> T.Text -> Maybe (GLib.VariantType) -> m GVariant), MonadIO m, MenuModelK a) => MethodInfo MenuModelGetItemAttributeValueMethodInfo a signature where - overloadedMethod _ = menuModelGetItemAttributeValue - --- method MenuModel::get_item_link --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "link", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MenuModel") --- throws : False --- Skip return : False - -foreign import ccall "g_menu_model_get_item_link" g_menu_model_get_item_link :: - Ptr MenuModel -> -- _obj : TInterface "Gio" "MenuModel" - Int32 -> -- item_index : TBasicType TInt - CString -> -- link : TBasicType TUTF8 - IO (Ptr MenuModel) - - -menuModelGetItemLink :: - (MonadIO m, MenuModelK a) => - a -- _obj - -> Int32 -- itemIndex - -> T.Text -- link - -> m MenuModel -- result -menuModelGetItemLink _obj itemIndex link = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - link' <- textToCString link - result <- g_menu_model_get_item_link _obj' itemIndex link' - checkUnexpectedReturnNULL "g_menu_model_get_item_link" result - result' <- (wrapObject MenuModel) result - touchManagedPtr _obj - freeMem link' - return result' - -data MenuModelGetItemLinkMethodInfo -instance (signature ~ (Int32 -> T.Text -> m MenuModel), MonadIO m, MenuModelK a) => MethodInfo MenuModelGetItemLinkMethodInfo a signature where - overloadedMethod _ = menuModelGetItemLink - --- method MenuModel::get_n_items --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_menu_model_get_n_items" g_menu_model_get_n_items :: - Ptr MenuModel -> -- _obj : TInterface "Gio" "MenuModel" - IO Int32 - - -menuModelGetNItems :: - (MonadIO m, MenuModelK a) => - a -- _obj - -> m Int32 -- result -menuModelGetNItems _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_menu_model_get_n_items _obj' - touchManagedPtr _obj - return result - -data MenuModelGetNItemsMethodInfo -instance (signature ~ (m Int32), MonadIO m, MenuModelK a) => MethodInfo MenuModelGetNItemsMethodInfo a signature where - overloadedMethod _ = menuModelGetNItems - --- method MenuModel::is_mutable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_menu_model_is_mutable" g_menu_model_is_mutable :: - Ptr MenuModel -> -- _obj : TInterface "Gio" "MenuModel" - IO CInt - - -menuModelIsMutable :: - (MonadIO m, MenuModelK a) => - a -- _obj - -> m Bool -- result -menuModelIsMutable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_menu_model_is_mutable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MenuModelIsMutableMethodInfo -instance (signature ~ (m Bool), MonadIO m, MenuModelK a) => MethodInfo MenuModelIsMutableMethodInfo a signature where - overloadedMethod _ = menuModelIsMutable - --- method MenuModel::items_changed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "position", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "removed", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "added", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_menu_model_items_changed" g_menu_model_items_changed :: - Ptr MenuModel -> -- _obj : TInterface "Gio" "MenuModel" - Int32 -> -- position : TBasicType TInt - Int32 -> -- removed : TBasicType TInt - Int32 -> -- added : TBasicType TInt - IO () - - -menuModelItemsChanged :: - (MonadIO m, MenuModelK a) => - a -- _obj - -> Int32 -- position - -> Int32 -- removed - -> Int32 -- added - -> m () -- result -menuModelItemsChanged _obj position removed added = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_menu_model_items_changed _obj' position removed added - touchManagedPtr _obj - return () - -data MenuModelItemsChangedMethodInfo -instance (signature ~ (Int32 -> Int32 -> Int32 -> m ()), MonadIO m, MenuModelK a) => MethodInfo MenuModelItemsChangedMethodInfo a signature where - overloadedMethod _ = menuModelItemsChanged - --- method MenuModel::iterate_item_attributes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MenuAttributeIter") --- throws : False --- Skip return : False - -foreign import ccall "g_menu_model_iterate_item_attributes" g_menu_model_iterate_item_attributes :: - Ptr MenuModel -> -- _obj : TInterface "Gio" "MenuModel" - Int32 -> -- item_index : TBasicType TInt - IO (Ptr MenuAttributeIter) - - -menuModelIterateItemAttributes :: - (MonadIO m, MenuModelK a) => - a -- _obj - -> Int32 -- itemIndex - -> m MenuAttributeIter -- result -menuModelIterateItemAttributes _obj itemIndex = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_menu_model_iterate_item_attributes _obj' itemIndex - checkUnexpectedReturnNULL "g_menu_model_iterate_item_attributes" result - result' <- (wrapObject MenuAttributeIter) result - touchManagedPtr _obj - return result' - -data MenuModelIterateItemAttributesMethodInfo -instance (signature ~ (Int32 -> m MenuAttributeIter), MonadIO m, MenuModelK a) => MethodInfo MenuModelIterateItemAttributesMethodInfo a signature where - overloadedMethod _ = menuModelIterateItemAttributes - --- method MenuModel::iterate_item_links --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MenuModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "item_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MenuLinkIter") --- throws : False --- Skip return : False - -foreign import ccall "g_menu_model_iterate_item_links" g_menu_model_iterate_item_links :: - Ptr MenuModel -> -- _obj : TInterface "Gio" "MenuModel" - Int32 -> -- item_index : TBasicType TInt - IO (Ptr MenuLinkIter) - - -menuModelIterateItemLinks :: - (MonadIO m, MenuModelK a) => - a -- _obj - -> Int32 -- itemIndex - -> m MenuLinkIter -- result -menuModelIterateItemLinks _obj itemIndex = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_menu_model_iterate_item_links _obj' itemIndex - checkUnexpectedReturnNULL "g_menu_model_iterate_item_links" result - result' <- (wrapObject MenuLinkIter) result - touchManagedPtr _obj - return result' - -data MenuModelIterateItemLinksMethodInfo -instance (signature ~ (Int32 -> m MenuLinkIter), MonadIO m, MenuModelK a) => MethodInfo MenuModelIterateItemLinksMethodInfo a signature where - overloadedMethod _ = menuModelIterateItemLinks - - diff --git a/GI/Gio/Objects/MenuModel.hs-boot b/GI/Gio/Objects/MenuModel.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/MenuModel.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gio.Objects.MenuModel where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MenuModel = MenuModel (ForeignPtr MenuModel) -instance GObject MenuModel where -class GObject o => MenuModelK o -instance (GObject o, IsDescendantOf MenuModel o) => MenuModelK o -data MenuModelItemsChangedSignalInfo -data MenuModelGetItemAttributeValueMethodInfo -data MenuModelGetItemLinkMethodInfo -data MenuModelGetNItemsMethodInfo -data MenuModelIsMutableMethodInfo -data MenuModelItemsChangedMethodInfo -data MenuModelIterateItemAttributesMethodInfo -data MenuModelIterateItemLinksMethodInfo diff --git a/GI/Gio/Objects/MountOperation.hs b/GI/Gio/Objects/MountOperation.hs deleted file mode 100644 --- a/GI/Gio/Objects/MountOperation.hs +++ /dev/null @@ -1,1188 +0,0 @@ - - -{- | -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.Objects.MountOperation - ( - --- * Exported types - MountOperation(..) , - MountOperationK , - toMountOperation , - noMountOperation , - - - -- * Methods --- ** mountOperationGetAnonymous - MountOperationGetAnonymousMethodInfo , - mountOperationGetAnonymous , - - --- ** mountOperationGetChoice - MountOperationGetChoiceMethodInfo , - mountOperationGetChoice , - - --- ** mountOperationGetDomain - MountOperationGetDomainMethodInfo , - mountOperationGetDomain , - - --- ** mountOperationGetPassword - MountOperationGetPasswordMethodInfo , - mountOperationGetPassword , - - --- ** mountOperationGetPasswordSave - MountOperationGetPasswordSaveMethodInfo , - mountOperationGetPasswordSave , - - --- ** mountOperationGetUsername - MountOperationGetUsernameMethodInfo , - mountOperationGetUsername , - - --- ** mountOperationNew - mountOperationNew , - - --- ** mountOperationReply - MountOperationReplyMethodInfo , - mountOperationReply , - - --- ** mountOperationSetAnonymous - MountOperationSetAnonymousMethodInfo , - mountOperationSetAnonymous , - - --- ** mountOperationSetChoice - MountOperationSetChoiceMethodInfo , - mountOperationSetChoice , - - --- ** mountOperationSetDomain - MountOperationSetDomainMethodInfo , - mountOperationSetDomain , - - --- ** mountOperationSetPassword - MountOperationSetPasswordMethodInfo , - mountOperationSetPassword , - - --- ** mountOperationSetPasswordSave - MountOperationSetPasswordSaveMethodInfo , - mountOperationSetPasswordSave , - - --- ** mountOperationSetUsername - MountOperationSetUsernameMethodInfo , - mountOperationSetUsername , - - - - - -- * Properties --- ** Anonymous - MountOperationAnonymousPropertyInfo , - constructMountOperationAnonymous , - getMountOperationAnonymous , - mountOperationAnonymous , - setMountOperationAnonymous , - - --- ** Choice - MountOperationChoicePropertyInfo , - constructMountOperationChoice , - getMountOperationChoice , - mountOperationChoice , - setMountOperationChoice , - - --- ** Domain - MountOperationDomainPropertyInfo , - constructMountOperationDomain , - getMountOperationDomain , - mountOperationDomain , - setMountOperationDomain , - - --- ** Password - MountOperationPasswordPropertyInfo , - constructMountOperationPassword , - getMountOperationPassword , - mountOperationPassword , - setMountOperationPassword , - - --- ** PasswordSave - MountOperationPasswordSavePropertyInfo , - constructMountOperationPasswordSave , - getMountOperationPasswordSave , - mountOperationPasswordSave , - setMountOperationPasswordSave , - - --- ** Username - MountOperationUsernamePropertyInfo , - constructMountOperationUsername , - getMountOperationUsername , - mountOperationUsername , - setMountOperationUsername , - - - - - -- * Signals --- ** Aborted - MountOperationAbortedCallback , - MountOperationAbortedCallbackC , - MountOperationAbortedSignalInfo , - afterMountOperationAborted , - mkMountOperationAbortedCallback , - mountOperationAbortedCallbackWrapper , - mountOperationAbortedClosure , - noMountOperationAbortedCallback , - onMountOperationAborted , - - --- ** AskPassword - MountOperationAskPasswordCallback , - MountOperationAskPasswordCallbackC , - MountOperationAskPasswordSignalInfo , - afterMountOperationAskPassword , - mkMountOperationAskPasswordCallback , - mountOperationAskPasswordCallbackWrapper, - mountOperationAskPasswordClosure , - noMountOperationAskPasswordCallback , - onMountOperationAskPassword , - - --- ** AskQuestion - MountOperationAskQuestionCallback , - MountOperationAskQuestionCallbackC , - MountOperationAskQuestionSignalInfo , - afterMountOperationAskQuestion , - mkMountOperationAskQuestionCallback , - mountOperationAskQuestionCallbackWrapper, - mountOperationAskQuestionClosure , - noMountOperationAskQuestionCallback , - onMountOperationAskQuestion , - - --- ** Reply - MountOperationReplyCallback , - MountOperationReplyCallbackC , - MountOperationReplySignalInfo , - afterMountOperationReply , - mkMountOperationReplyCallback , - mountOperationReplyCallbackWrapper , - mountOperationReplyClosure , - noMountOperationReplyCallback , - onMountOperationReply , - - --- ** ShowProcesses - MountOperationShowProcessesCallback , - MountOperationShowProcessesCallbackC , - MountOperationShowProcessesSignalInfo , - afterMountOperationShowProcesses , - mkMountOperationShowProcessesCallback , - mountOperationShowProcessesCallbackWrapper, - mountOperationShowProcessesClosure , - noMountOperationShowProcessesCallback , - onMountOperationShowProcesses , - - --- ** ShowUnmountProgress - MountOperationShowUnmountProgressCallback, - MountOperationShowUnmountProgressCallbackC, - MountOperationShowUnmountProgressSignalInfo, - afterMountOperationShowUnmountProgress , - mkMountOperationShowUnmountProgressCallback, - mountOperationShowUnmountProgressCallbackWrapper, - mountOperationShowUnmountProgressClosure, - noMountOperationShowUnmountProgressCallback, - onMountOperationShowUnmountProgress , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype MountOperation = MountOperation (ForeignPtr MountOperation) -foreign import ccall "g_mount_operation_get_type" - c_g_mount_operation_get_type :: IO GType - -type instance ParentTypes MountOperation = MountOperationParentTypes -type MountOperationParentTypes = '[GObject.Object] - -instance GObject MountOperation where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_mount_operation_get_type - - -class GObject o => MountOperationK o -instance (GObject o, IsDescendantOf MountOperation o) => MountOperationK o - -toMountOperation :: MountOperationK o => o -> IO MountOperation -toMountOperation = unsafeCastTo MountOperation - -noMountOperation :: Maybe MountOperation -noMountOperation = Nothing - -type family ResolveMountOperationMethod (t :: Symbol) (o :: *) :: * where - ResolveMountOperationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMountOperationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMountOperationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMountOperationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMountOperationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMountOperationMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMountOperationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMountOperationMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMountOperationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMountOperationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMountOperationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMountOperationMethod "reply" o = MountOperationReplyMethodInfo - ResolveMountOperationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMountOperationMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMountOperationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMountOperationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMountOperationMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMountOperationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMountOperationMethod "getAnonymous" o = MountOperationGetAnonymousMethodInfo - ResolveMountOperationMethod "getChoice" o = MountOperationGetChoiceMethodInfo - ResolveMountOperationMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMountOperationMethod "getDomain" o = MountOperationGetDomainMethodInfo - ResolveMountOperationMethod "getPassword" o = MountOperationGetPasswordMethodInfo - ResolveMountOperationMethod "getPasswordSave" o = MountOperationGetPasswordSaveMethodInfo - ResolveMountOperationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMountOperationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMountOperationMethod "getUsername" o = MountOperationGetUsernameMethodInfo - ResolveMountOperationMethod "setAnonymous" o = MountOperationSetAnonymousMethodInfo - ResolveMountOperationMethod "setChoice" o = MountOperationSetChoiceMethodInfo - ResolveMountOperationMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMountOperationMethod "setDomain" o = MountOperationSetDomainMethodInfo - ResolveMountOperationMethod "setPassword" o = MountOperationSetPasswordMethodInfo - ResolveMountOperationMethod "setPasswordSave" o = MountOperationSetPasswordSaveMethodInfo - ResolveMountOperationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMountOperationMethod "setUsername" o = MountOperationSetUsernameMethodInfo - ResolveMountOperationMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMountOperationMethod t MountOperation, MethodInfo info MountOperation p) => IsLabelProxy t (MountOperation -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMountOperationMethod t MountOperation, MethodInfo info MountOperation p) => IsLabel t (MountOperation -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal MountOperation::aborted -type MountOperationAbortedCallback = - IO () - -noMountOperationAbortedCallback :: Maybe MountOperationAbortedCallback -noMountOperationAbortedCallback = Nothing - -type MountOperationAbortedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMountOperationAbortedCallback :: MountOperationAbortedCallbackC -> IO (FunPtr MountOperationAbortedCallbackC) - -mountOperationAbortedClosure :: MountOperationAbortedCallback -> IO Closure -mountOperationAbortedClosure cb = newCClosure =<< mkMountOperationAbortedCallback wrapped - where wrapped = mountOperationAbortedCallbackWrapper cb - -mountOperationAbortedCallbackWrapper :: - MountOperationAbortedCallback -> - Ptr () -> - Ptr () -> - IO () -mountOperationAbortedCallbackWrapper _cb _ _ = do - _cb - -onMountOperationAborted :: (GObject a, MonadIO m) => a -> MountOperationAbortedCallback -> m SignalHandlerId -onMountOperationAborted obj cb = liftIO $ connectMountOperationAborted obj cb SignalConnectBefore -afterMountOperationAborted :: (GObject a, MonadIO m) => a -> MountOperationAbortedCallback -> m SignalHandlerId -afterMountOperationAborted obj cb = connectMountOperationAborted obj cb SignalConnectAfter - -connectMountOperationAborted :: (GObject a, MonadIO m) => - a -> MountOperationAbortedCallback -> SignalConnectMode -> m SignalHandlerId -connectMountOperationAborted obj cb after = liftIO $ do - cb' <- mkMountOperationAbortedCallback (mountOperationAbortedCallbackWrapper cb) - connectSignalFunPtr obj "aborted" cb' after - --- signal MountOperation::ask-password -type MountOperationAskPasswordCallback = - T.Text -> - T.Text -> - T.Text -> - [AskPasswordFlags] -> - IO () - -noMountOperationAskPasswordCallback :: Maybe MountOperationAskPasswordCallback -noMountOperationAskPasswordCallback = Nothing - -type MountOperationAskPasswordCallbackC = - Ptr () -> -- object - CString -> - CString -> - CString -> - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMountOperationAskPasswordCallback :: MountOperationAskPasswordCallbackC -> IO (FunPtr MountOperationAskPasswordCallbackC) - -mountOperationAskPasswordClosure :: MountOperationAskPasswordCallback -> IO Closure -mountOperationAskPasswordClosure cb = newCClosure =<< mkMountOperationAskPasswordCallback wrapped - where wrapped = mountOperationAskPasswordCallbackWrapper cb - -mountOperationAskPasswordCallbackWrapper :: - MountOperationAskPasswordCallback -> - Ptr () -> - CString -> - CString -> - CString -> - CUInt -> - Ptr () -> - IO () -mountOperationAskPasswordCallbackWrapper _cb _ message defaultUser defaultDomain flags _ = do - message' <- cstringToText message - defaultUser' <- cstringToText defaultUser - defaultDomain' <- cstringToText defaultDomain - let flags' = wordToGFlags flags - _cb message' defaultUser' defaultDomain' flags' - -onMountOperationAskPassword :: (GObject a, MonadIO m) => a -> MountOperationAskPasswordCallback -> m SignalHandlerId -onMountOperationAskPassword obj cb = liftIO $ connectMountOperationAskPassword obj cb SignalConnectBefore -afterMountOperationAskPassword :: (GObject a, MonadIO m) => a -> MountOperationAskPasswordCallback -> m SignalHandlerId -afterMountOperationAskPassword obj cb = connectMountOperationAskPassword obj cb SignalConnectAfter - -connectMountOperationAskPassword :: (GObject a, MonadIO m) => - a -> MountOperationAskPasswordCallback -> SignalConnectMode -> m SignalHandlerId -connectMountOperationAskPassword obj cb after = liftIO $ do - cb' <- mkMountOperationAskPasswordCallback (mountOperationAskPasswordCallbackWrapper cb) - connectSignalFunPtr obj "ask-password" cb' after - --- signal MountOperation::ask-question -type MountOperationAskQuestionCallback = - T.Text -> - [T.Text] -> - IO () - -noMountOperationAskQuestionCallback :: Maybe MountOperationAskQuestionCallback -noMountOperationAskQuestionCallback = Nothing - -type MountOperationAskQuestionCallbackC = - Ptr () -> -- object - CString -> - Ptr CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMountOperationAskQuestionCallback :: MountOperationAskQuestionCallbackC -> IO (FunPtr MountOperationAskQuestionCallbackC) - -mountOperationAskQuestionClosure :: MountOperationAskQuestionCallback -> IO Closure -mountOperationAskQuestionClosure cb = newCClosure =<< mkMountOperationAskQuestionCallback wrapped - where wrapped = mountOperationAskQuestionCallbackWrapper cb - -mountOperationAskQuestionCallbackWrapper :: - MountOperationAskQuestionCallback -> - Ptr () -> - CString -> - Ptr CString -> - Ptr () -> - IO () -mountOperationAskQuestionCallbackWrapper _cb _ message choices _ = do - message' <- cstringToText message - choices' <- unpackZeroTerminatedUTF8CArray choices - _cb message' choices' - -onMountOperationAskQuestion :: (GObject a, MonadIO m) => a -> MountOperationAskQuestionCallback -> m SignalHandlerId -onMountOperationAskQuestion obj cb = liftIO $ connectMountOperationAskQuestion obj cb SignalConnectBefore -afterMountOperationAskQuestion :: (GObject a, MonadIO m) => a -> MountOperationAskQuestionCallback -> m SignalHandlerId -afterMountOperationAskQuestion obj cb = connectMountOperationAskQuestion obj cb SignalConnectAfter - -connectMountOperationAskQuestion :: (GObject a, MonadIO m) => - a -> MountOperationAskQuestionCallback -> SignalConnectMode -> m SignalHandlerId -connectMountOperationAskQuestion obj cb after = liftIO $ do - cb' <- mkMountOperationAskQuestionCallback (mountOperationAskQuestionCallbackWrapper cb) - connectSignalFunPtr obj "ask-question" cb' after - --- signal MountOperation::reply -type MountOperationReplyCallback = - MountOperationResult -> - IO () - -noMountOperationReplyCallback :: Maybe MountOperationReplyCallback -noMountOperationReplyCallback = Nothing - -type MountOperationReplyCallbackC = - Ptr () -> -- object - CUInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMountOperationReplyCallback :: MountOperationReplyCallbackC -> IO (FunPtr MountOperationReplyCallbackC) - -mountOperationReplyClosure :: MountOperationReplyCallback -> IO Closure -mountOperationReplyClosure cb = newCClosure =<< mkMountOperationReplyCallback wrapped - where wrapped = mountOperationReplyCallbackWrapper cb - -mountOperationReplyCallbackWrapper :: - MountOperationReplyCallback -> - Ptr () -> - CUInt -> - Ptr () -> - IO () -mountOperationReplyCallbackWrapper _cb _ result_ _ = do - let result_' = (toEnum . fromIntegral) result_ - _cb result_' - -onMountOperationReply :: (GObject a, MonadIO m) => a -> MountOperationReplyCallback -> m SignalHandlerId -onMountOperationReply obj cb = liftIO $ connectMountOperationReply obj cb SignalConnectBefore -afterMountOperationReply :: (GObject a, MonadIO m) => a -> MountOperationReplyCallback -> m SignalHandlerId -afterMountOperationReply obj cb = connectMountOperationReply obj cb SignalConnectAfter - -connectMountOperationReply :: (GObject a, MonadIO m) => - a -> MountOperationReplyCallback -> SignalConnectMode -> m SignalHandlerId -connectMountOperationReply obj cb after = liftIO $ do - cb' <- mkMountOperationReplyCallback (mountOperationReplyCallbackWrapper cb) - connectSignalFunPtr obj "reply" cb' after - --- signal MountOperation::show-processes -type MountOperationShowProcessesCallback = - T.Text -> - [Int32] -> - [T.Text] -> - IO () - -noMountOperationShowProcessesCallback :: Maybe MountOperationShowProcessesCallback -noMountOperationShowProcessesCallback = Nothing - -type MountOperationShowProcessesCallbackC = - Ptr () -> -- object - CString -> - Ptr (GArray Int32) -> - Ptr CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMountOperationShowProcessesCallback :: MountOperationShowProcessesCallbackC -> IO (FunPtr MountOperationShowProcessesCallbackC) - -mountOperationShowProcessesClosure :: MountOperationShowProcessesCallback -> IO Closure -mountOperationShowProcessesClosure cb = newCClosure =<< mkMountOperationShowProcessesCallback wrapped - where wrapped = mountOperationShowProcessesCallbackWrapper cb - -mountOperationShowProcessesCallbackWrapper :: - MountOperationShowProcessesCallback -> - Ptr () -> - CString -> - Ptr (GArray Int32) -> - Ptr CString -> - Ptr () -> - IO () -mountOperationShowProcessesCallbackWrapper _cb _ message processes choices _ = do - message' <- cstringToText message - processes' <- unpackGArray processes - choices' <- unpackZeroTerminatedUTF8CArray choices - _cb message' processes' choices' - -onMountOperationShowProcesses :: (GObject a, MonadIO m) => a -> MountOperationShowProcessesCallback -> m SignalHandlerId -onMountOperationShowProcesses obj cb = liftIO $ connectMountOperationShowProcesses obj cb SignalConnectBefore -afterMountOperationShowProcesses :: (GObject a, MonadIO m) => a -> MountOperationShowProcessesCallback -> m SignalHandlerId -afterMountOperationShowProcesses obj cb = connectMountOperationShowProcesses obj cb SignalConnectAfter - -connectMountOperationShowProcesses :: (GObject a, MonadIO m) => - a -> MountOperationShowProcessesCallback -> SignalConnectMode -> m SignalHandlerId -connectMountOperationShowProcesses obj cb after = liftIO $ do - cb' <- mkMountOperationShowProcessesCallback (mountOperationShowProcessesCallbackWrapper cb) - connectSignalFunPtr obj "show-processes" cb' after - --- signal MountOperation::show-unmount-progress -type MountOperationShowUnmountProgressCallback = - T.Text -> - Int64 -> - Int64 -> - IO () - -noMountOperationShowUnmountProgressCallback :: Maybe MountOperationShowUnmountProgressCallback -noMountOperationShowUnmountProgressCallback = Nothing - -type MountOperationShowUnmountProgressCallbackC = - Ptr () -> -- object - CString -> - Int64 -> - Int64 -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMountOperationShowUnmountProgressCallback :: MountOperationShowUnmountProgressCallbackC -> IO (FunPtr MountOperationShowUnmountProgressCallbackC) - -mountOperationShowUnmountProgressClosure :: MountOperationShowUnmountProgressCallback -> IO Closure -mountOperationShowUnmountProgressClosure cb = newCClosure =<< mkMountOperationShowUnmountProgressCallback wrapped - where wrapped = mountOperationShowUnmountProgressCallbackWrapper cb - -mountOperationShowUnmountProgressCallbackWrapper :: - MountOperationShowUnmountProgressCallback -> - Ptr () -> - CString -> - Int64 -> - Int64 -> - Ptr () -> - IO () -mountOperationShowUnmountProgressCallbackWrapper _cb _ message timeLeft bytesLeft _ = do - message' <- cstringToText message - _cb message' timeLeft bytesLeft - -onMountOperationShowUnmountProgress :: (GObject a, MonadIO m) => a -> MountOperationShowUnmountProgressCallback -> m SignalHandlerId -onMountOperationShowUnmountProgress obj cb = liftIO $ connectMountOperationShowUnmountProgress obj cb SignalConnectBefore -afterMountOperationShowUnmountProgress :: (GObject a, MonadIO m) => a -> MountOperationShowUnmountProgressCallback -> m SignalHandlerId -afterMountOperationShowUnmountProgress obj cb = connectMountOperationShowUnmountProgress obj cb SignalConnectAfter - -connectMountOperationShowUnmountProgress :: (GObject a, MonadIO m) => - a -> MountOperationShowUnmountProgressCallback -> SignalConnectMode -> m SignalHandlerId -connectMountOperationShowUnmountProgress obj cb after = liftIO $ do - cb' <- mkMountOperationShowUnmountProgressCallback (mountOperationShowUnmountProgressCallbackWrapper cb) - connectSignalFunPtr obj "show-unmount-progress" cb' after - --- VVV Prop "anonymous" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMountOperationAnonymous :: (MonadIO m, MountOperationK o) => o -> m Bool -getMountOperationAnonymous obj = liftIO $ getObjectPropertyBool obj "anonymous" - -setMountOperationAnonymous :: (MonadIO m, MountOperationK o) => o -> Bool -> m () -setMountOperationAnonymous obj val = liftIO $ setObjectPropertyBool obj "anonymous" val - -constructMountOperationAnonymous :: Bool -> IO ([Char], GValue) -constructMountOperationAnonymous val = constructObjectPropertyBool "anonymous" val - -data MountOperationAnonymousPropertyInfo -instance AttrInfo MountOperationAnonymousPropertyInfo where - type AttrAllowedOps MountOperationAnonymousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MountOperationAnonymousPropertyInfo = (~) Bool - type AttrBaseTypeConstraint MountOperationAnonymousPropertyInfo = MountOperationK - type AttrGetType MountOperationAnonymousPropertyInfo = Bool - type AttrLabel MountOperationAnonymousPropertyInfo = "anonymous" - attrGet _ = getMountOperationAnonymous - attrSet _ = setMountOperationAnonymous - attrConstruct _ = constructMountOperationAnonymous - attrClear _ = undefined - --- VVV Prop "choice" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMountOperationChoice :: (MonadIO m, MountOperationK o) => o -> m Int32 -getMountOperationChoice obj = liftIO $ getObjectPropertyInt32 obj "choice" - -setMountOperationChoice :: (MonadIO m, MountOperationK o) => o -> Int32 -> m () -setMountOperationChoice obj val = liftIO $ setObjectPropertyInt32 obj "choice" val - -constructMountOperationChoice :: Int32 -> IO ([Char], GValue) -constructMountOperationChoice val = constructObjectPropertyInt32 "choice" val - -data MountOperationChoicePropertyInfo -instance AttrInfo MountOperationChoicePropertyInfo where - type AttrAllowedOps MountOperationChoicePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MountOperationChoicePropertyInfo = (~) Int32 - type AttrBaseTypeConstraint MountOperationChoicePropertyInfo = MountOperationK - type AttrGetType MountOperationChoicePropertyInfo = Int32 - type AttrLabel MountOperationChoicePropertyInfo = "choice" - attrGet _ = getMountOperationChoice - attrSet _ = setMountOperationChoice - attrConstruct _ = constructMountOperationChoice - attrClear _ = undefined - --- VVV Prop "domain" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMountOperationDomain :: (MonadIO m, MountOperationK o) => o -> m T.Text -getMountOperationDomain obj = liftIO $ checkUnexpectedNothing "getMountOperationDomain" $ getObjectPropertyString obj "domain" - -setMountOperationDomain :: (MonadIO m, MountOperationK o) => o -> T.Text -> m () -setMountOperationDomain obj val = liftIO $ setObjectPropertyString obj "domain" (Just val) - -constructMountOperationDomain :: T.Text -> IO ([Char], GValue) -constructMountOperationDomain val = constructObjectPropertyString "domain" (Just val) - -data MountOperationDomainPropertyInfo -instance AttrInfo MountOperationDomainPropertyInfo where - type AttrAllowedOps MountOperationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MountOperationDomainPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MountOperationDomainPropertyInfo = MountOperationK - type AttrGetType MountOperationDomainPropertyInfo = T.Text - type AttrLabel MountOperationDomainPropertyInfo = "domain" - attrGet _ = getMountOperationDomain - attrSet _ = setMountOperationDomain - attrConstruct _ = constructMountOperationDomain - attrClear _ = undefined - --- VVV Prop "password" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMountOperationPassword :: (MonadIO m, MountOperationK o) => o -> m T.Text -getMountOperationPassword obj = liftIO $ checkUnexpectedNothing "getMountOperationPassword" $ getObjectPropertyString obj "password" - -setMountOperationPassword :: (MonadIO m, MountOperationK o) => o -> T.Text -> m () -setMountOperationPassword obj val = liftIO $ setObjectPropertyString obj "password" (Just val) - -constructMountOperationPassword :: T.Text -> IO ([Char], GValue) -constructMountOperationPassword val = constructObjectPropertyString "password" (Just val) - -data MountOperationPasswordPropertyInfo -instance AttrInfo MountOperationPasswordPropertyInfo where - type AttrAllowedOps MountOperationPasswordPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MountOperationPasswordPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MountOperationPasswordPropertyInfo = MountOperationK - type AttrGetType MountOperationPasswordPropertyInfo = T.Text - type AttrLabel MountOperationPasswordPropertyInfo = "password" - attrGet _ = getMountOperationPassword - attrSet _ = setMountOperationPassword - attrConstruct _ = constructMountOperationPassword - attrClear _ = undefined - --- VVV Prop "password-save" - -- Type: TInterface "Gio" "PasswordSave" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMountOperationPasswordSave :: (MonadIO m, MountOperationK o) => o -> m PasswordSave -getMountOperationPasswordSave obj = liftIO $ getObjectPropertyEnum obj "password-save" - -setMountOperationPasswordSave :: (MonadIO m, MountOperationK o) => o -> PasswordSave -> m () -setMountOperationPasswordSave obj val = liftIO $ setObjectPropertyEnum obj "password-save" val - -constructMountOperationPasswordSave :: PasswordSave -> IO ([Char], GValue) -constructMountOperationPasswordSave val = constructObjectPropertyEnum "password-save" val - -data MountOperationPasswordSavePropertyInfo -instance AttrInfo MountOperationPasswordSavePropertyInfo where - type AttrAllowedOps MountOperationPasswordSavePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MountOperationPasswordSavePropertyInfo = (~) PasswordSave - type AttrBaseTypeConstraint MountOperationPasswordSavePropertyInfo = MountOperationK - type AttrGetType MountOperationPasswordSavePropertyInfo = PasswordSave - type AttrLabel MountOperationPasswordSavePropertyInfo = "password-save" - attrGet _ = getMountOperationPasswordSave - attrSet _ = setMountOperationPasswordSave - attrConstruct _ = constructMountOperationPasswordSave - attrClear _ = undefined - --- VVV Prop "username" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMountOperationUsername :: (MonadIO m, MountOperationK o) => o -> m T.Text -getMountOperationUsername obj = liftIO $ checkUnexpectedNothing "getMountOperationUsername" $ getObjectPropertyString obj "username" - -setMountOperationUsername :: (MonadIO m, MountOperationK o) => o -> T.Text -> m () -setMountOperationUsername obj val = liftIO $ setObjectPropertyString obj "username" (Just val) - -constructMountOperationUsername :: T.Text -> IO ([Char], GValue) -constructMountOperationUsername val = constructObjectPropertyString "username" (Just val) - -data MountOperationUsernamePropertyInfo -instance AttrInfo MountOperationUsernamePropertyInfo where - type AttrAllowedOps MountOperationUsernamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MountOperationUsernamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MountOperationUsernamePropertyInfo = MountOperationK - type AttrGetType MountOperationUsernamePropertyInfo = T.Text - type AttrLabel MountOperationUsernamePropertyInfo = "username" - attrGet _ = getMountOperationUsername - attrSet _ = setMountOperationUsername - attrConstruct _ = constructMountOperationUsername - attrClear _ = undefined - -type instance AttributeList MountOperation = MountOperationAttributeList -type MountOperationAttributeList = ('[ '("anonymous", MountOperationAnonymousPropertyInfo), '("choice", MountOperationChoicePropertyInfo), '("domain", MountOperationDomainPropertyInfo), '("password", MountOperationPasswordPropertyInfo), '("passwordSave", MountOperationPasswordSavePropertyInfo), '("username", MountOperationUsernamePropertyInfo)] :: [(Symbol, *)]) - -mountOperationAnonymous :: AttrLabelProxy "anonymous" -mountOperationAnonymous = AttrLabelProxy - -mountOperationChoice :: AttrLabelProxy "choice" -mountOperationChoice = AttrLabelProxy - -mountOperationDomain :: AttrLabelProxy "domain" -mountOperationDomain = AttrLabelProxy - -mountOperationPassword :: AttrLabelProxy "password" -mountOperationPassword = AttrLabelProxy - -mountOperationPasswordSave :: AttrLabelProxy "passwordSave" -mountOperationPasswordSave = AttrLabelProxy - -mountOperationUsername :: AttrLabelProxy "username" -mountOperationUsername = AttrLabelProxy - -data MountOperationAbortedSignalInfo -instance SignalInfo MountOperationAbortedSignalInfo where - type HaskellCallbackType MountOperationAbortedSignalInfo = MountOperationAbortedCallback - connectSignal _ = connectMountOperationAborted - -data MountOperationAskPasswordSignalInfo -instance SignalInfo MountOperationAskPasswordSignalInfo where - type HaskellCallbackType MountOperationAskPasswordSignalInfo = MountOperationAskPasswordCallback - connectSignal _ = connectMountOperationAskPassword - -data MountOperationAskQuestionSignalInfo -instance SignalInfo MountOperationAskQuestionSignalInfo where - type HaskellCallbackType MountOperationAskQuestionSignalInfo = MountOperationAskQuestionCallback - connectSignal _ = connectMountOperationAskQuestion - -data MountOperationReplySignalInfo -instance SignalInfo MountOperationReplySignalInfo where - type HaskellCallbackType MountOperationReplySignalInfo = MountOperationReplyCallback - connectSignal _ = connectMountOperationReply - -data MountOperationShowProcessesSignalInfo -instance SignalInfo MountOperationShowProcessesSignalInfo where - type HaskellCallbackType MountOperationShowProcessesSignalInfo = MountOperationShowProcessesCallback - connectSignal _ = connectMountOperationShowProcesses - -data MountOperationShowUnmountProgressSignalInfo -instance SignalInfo MountOperationShowUnmountProgressSignalInfo where - type HaskellCallbackType MountOperationShowUnmountProgressSignalInfo = MountOperationShowUnmountProgressCallback - connectSignal _ = connectMountOperationShowUnmountProgress - -type instance SignalList MountOperation = MountOperationSignalList -type MountOperationSignalList = ('[ '("aborted", MountOperationAbortedSignalInfo), '("askPassword", MountOperationAskPasswordSignalInfo), '("askQuestion", MountOperationAskQuestionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("reply", MountOperationReplySignalInfo), '("showProcesses", MountOperationShowProcessesSignalInfo), '("showUnmountProgress", MountOperationShowUnmountProgressSignalInfo)] :: [(Symbol, *)]) - --- method MountOperation::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "MountOperation") --- throws : False --- Skip return : False - -foreign import ccall "g_mount_operation_new" g_mount_operation_new :: - IO (Ptr MountOperation) - - -mountOperationNew :: - (MonadIO m) => - m MountOperation -- result -mountOperationNew = liftIO $ do - result <- g_mount_operation_new - checkUnexpectedReturnNULL "g_mount_operation_new" result - result' <- (wrapObject MountOperation) result - return result' - --- method MountOperation::get_anonymous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_mount_operation_get_anonymous" g_mount_operation_get_anonymous :: - Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" - IO CInt - - -mountOperationGetAnonymous :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> m Bool -- result -mountOperationGetAnonymous _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_operation_get_anonymous _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MountOperationGetAnonymousMethodInfo -instance (signature ~ (m Bool), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetAnonymousMethodInfo a signature where - overloadedMethod _ = mountOperationGetAnonymous - --- method MountOperation::get_choice --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_mount_operation_get_choice" g_mount_operation_get_choice :: - Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" - IO Int32 - - -mountOperationGetChoice :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> m Int32 -- result -mountOperationGetChoice _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_operation_get_choice _obj' - touchManagedPtr _obj - return result - -data MountOperationGetChoiceMethodInfo -instance (signature ~ (m Int32), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetChoiceMethodInfo a signature where - overloadedMethod _ = mountOperationGetChoice - --- method MountOperation::get_domain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_mount_operation_get_domain" g_mount_operation_get_domain :: - Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" - IO CString - - -mountOperationGetDomain :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> m T.Text -- result -mountOperationGetDomain _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_operation_get_domain _obj' - checkUnexpectedReturnNULL "g_mount_operation_get_domain" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data MountOperationGetDomainMethodInfo -instance (signature ~ (m T.Text), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetDomainMethodInfo a signature where - overloadedMethod _ = mountOperationGetDomain - --- method MountOperation::get_password --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_mount_operation_get_password" g_mount_operation_get_password :: - Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" - IO CString - - -mountOperationGetPassword :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> m T.Text -- result -mountOperationGetPassword _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_operation_get_password _obj' - checkUnexpectedReturnNULL "g_mount_operation_get_password" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data MountOperationGetPasswordMethodInfo -instance (signature ~ (m T.Text), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetPasswordMethodInfo a signature where - overloadedMethod _ = mountOperationGetPassword - --- method MountOperation::get_password_save --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "PasswordSave") --- throws : False --- Skip return : False - -foreign import ccall "g_mount_operation_get_password_save" g_mount_operation_get_password_save :: - Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" - IO CUInt - - -mountOperationGetPasswordSave :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> m PasswordSave -- result -mountOperationGetPasswordSave _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_operation_get_password_save _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data MountOperationGetPasswordSaveMethodInfo -instance (signature ~ (m PasswordSave), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetPasswordSaveMethodInfo a signature where - overloadedMethod _ = mountOperationGetPasswordSave - --- method MountOperation::get_username --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_mount_operation_get_username" g_mount_operation_get_username :: - Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" - IO CString - - -mountOperationGetUsername :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> m T.Text -- result -mountOperationGetUsername _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_mount_operation_get_username _obj' - checkUnexpectedReturnNULL "g_mount_operation_get_username" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data MountOperationGetUsernameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, MountOperationK a) => MethodInfo MountOperationGetUsernameMethodInfo a signature where - overloadedMethod _ = mountOperationGetUsername - --- method MountOperation::reply --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "MountOperationResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_mount_operation_reply" g_mount_operation_reply :: - Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" - CUInt -> -- result : TInterface "Gio" "MountOperationResult" - IO () - - -mountOperationReply :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> MountOperationResult -- result_ - -> m () -- result -mountOperationReply _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = (fromIntegral . fromEnum) result_ - g_mount_operation_reply _obj' result_' - touchManagedPtr _obj - return () - -data MountOperationReplyMethodInfo -instance (signature ~ (MountOperationResult -> m ()), MonadIO m, MountOperationK a) => MethodInfo MountOperationReplyMethodInfo a signature where - overloadedMethod _ = mountOperationReply - --- method MountOperation::set_anonymous --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "anonymous", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_mount_operation_set_anonymous" g_mount_operation_set_anonymous :: - Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" - CInt -> -- anonymous : TBasicType TBoolean - IO () - - -mountOperationSetAnonymous :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> Bool -- anonymous - -> m () -- result -mountOperationSetAnonymous _obj anonymous = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let anonymous' = (fromIntegral . fromEnum) anonymous - g_mount_operation_set_anonymous _obj' anonymous' - touchManagedPtr _obj - return () - -data MountOperationSetAnonymousMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, MountOperationK a) => MethodInfo MountOperationSetAnonymousMethodInfo a signature where - overloadedMethod _ = mountOperationSetAnonymous - --- method MountOperation::set_choice --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "choice", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_mount_operation_set_choice" g_mount_operation_set_choice :: - Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" - Int32 -> -- choice : TBasicType TInt - IO () - - -mountOperationSetChoice :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> Int32 -- choice - -> m () -- result -mountOperationSetChoice _obj choice = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_mount_operation_set_choice _obj' choice - touchManagedPtr _obj - return () - -data MountOperationSetChoiceMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, MountOperationK a) => MethodInfo MountOperationSetChoiceMethodInfo a signature where - overloadedMethod _ = mountOperationSetChoice - --- method MountOperation::set_domain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_mount_operation_set_domain" g_mount_operation_set_domain :: - Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" - CString -> -- domain : TBasicType TUTF8 - IO () - - -mountOperationSetDomain :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> T.Text -- domain - -> m () -- result -mountOperationSetDomain _obj domain = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - domain' <- textToCString domain - g_mount_operation_set_domain _obj' domain' - touchManagedPtr _obj - freeMem domain' - return () - -data MountOperationSetDomainMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, MountOperationK a) => MethodInfo MountOperationSetDomainMethodInfo a signature where - overloadedMethod _ = mountOperationSetDomain - --- method MountOperation::set_password --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_mount_operation_set_password" g_mount_operation_set_password :: - Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" - CString -> -- password : TBasicType TUTF8 - IO () - - -mountOperationSetPassword :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> T.Text -- password - -> m () -- result -mountOperationSetPassword _obj password = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - password' <- textToCString password - g_mount_operation_set_password _obj' password' - touchManagedPtr _obj - freeMem password' - return () - -data MountOperationSetPasswordMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, MountOperationK a) => MethodInfo MountOperationSetPasswordMethodInfo a signature where - overloadedMethod _ = mountOperationSetPassword - --- method MountOperation::set_password_save --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "save", argType = TInterface "Gio" "PasswordSave", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_mount_operation_set_password_save" g_mount_operation_set_password_save :: - Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" - CUInt -> -- save : TInterface "Gio" "PasswordSave" - IO () - - -mountOperationSetPasswordSave :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> PasswordSave -- save - -> m () -- result -mountOperationSetPasswordSave _obj save = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let save' = (fromIntegral . fromEnum) save - g_mount_operation_set_password_save _obj' save' - touchManagedPtr _obj - return () - -data MountOperationSetPasswordSaveMethodInfo -instance (signature ~ (PasswordSave -> m ()), MonadIO m, MountOperationK a) => MethodInfo MountOperationSetPasswordSaveMethodInfo a signature where - overloadedMethod _ = mountOperationSetPasswordSave - --- method MountOperation::set_username --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "MountOperation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_mount_operation_set_username" g_mount_operation_set_username :: - Ptr MountOperation -> -- _obj : TInterface "Gio" "MountOperation" - CString -> -- username : TBasicType TUTF8 - IO () - - -mountOperationSetUsername :: - (MonadIO m, MountOperationK a) => - a -- _obj - -> T.Text -- username - -> m () -- result -mountOperationSetUsername _obj username = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - username' <- textToCString username - g_mount_operation_set_username _obj' username' - touchManagedPtr _obj - freeMem username' - return () - -data MountOperationSetUsernameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, MountOperationK a) => MethodInfo MountOperationSetUsernameMethodInfo a signature where - overloadedMethod _ = mountOperationSetUsername - - diff --git a/GI/Gio/Objects/MountOperation.hs-boot b/GI/Gio/Objects/MountOperation.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/MountOperation.hs-boot +++ /dev/null @@ -1,38 +0,0 @@ -module GI.Gio.Objects.MountOperation where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MountOperation = MountOperation (ForeignPtr MountOperation) -instance GObject MountOperation where -class GObject o => MountOperationK o -instance (GObject o, IsDescendantOf MountOperation o) => MountOperationK o -data MountOperationAnonymousPropertyInfo -data MountOperationChoicePropertyInfo -data MountOperationDomainPropertyInfo -data MountOperationPasswordPropertyInfo -data MountOperationPasswordSavePropertyInfo -data MountOperationUsernamePropertyInfo -data MountOperationAbortedSignalInfo -data MountOperationAskPasswordSignalInfo -data MountOperationAskQuestionSignalInfo -data MountOperationReplySignalInfo -data MountOperationShowProcessesSignalInfo -data MountOperationShowUnmountProgressSignalInfo -data MountOperationGetAnonymousMethodInfo -data MountOperationGetChoiceMethodInfo -data MountOperationGetDomainMethodInfo -data MountOperationGetPasswordMethodInfo -data MountOperationGetPasswordSaveMethodInfo -data MountOperationGetUsernameMethodInfo -data MountOperationReplyMethodInfo -data MountOperationSetAnonymousMethodInfo -data MountOperationSetChoiceMethodInfo -data MountOperationSetDomainMethodInfo -data MountOperationSetPasswordMethodInfo -data MountOperationSetPasswordSaveMethodInfo -data MountOperationSetUsernameMethodInfo diff --git a/GI/Gio/Objects/NativeVolumeMonitor.hs b/GI/Gio/Objects/NativeVolumeMonitor.hs deleted file mode 100644 --- a/GI/Gio/Objects/NativeVolumeMonitor.hs +++ /dev/null @@ -1,97 +0,0 @@ - - -{- | -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.Objects.NativeVolumeMonitor - ( - --- * Exported types - NativeVolumeMonitor(..) , - NativeVolumeMonitorK , - toNativeVolumeMonitor , - noNativeVolumeMonitor , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype NativeVolumeMonitor = NativeVolumeMonitor (ForeignPtr NativeVolumeMonitor) -foreign import ccall "g_native_volume_monitor_get_type" - c_g_native_volume_monitor_get_type :: IO GType - -type instance ParentTypes NativeVolumeMonitor = NativeVolumeMonitorParentTypes -type NativeVolumeMonitorParentTypes = '[VolumeMonitor, GObject.Object] - -instance GObject NativeVolumeMonitor where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_native_volume_monitor_get_type - - -class GObject o => NativeVolumeMonitorK o -instance (GObject o, IsDescendantOf NativeVolumeMonitor o) => NativeVolumeMonitorK o - -toNativeVolumeMonitor :: NativeVolumeMonitorK o => o -> IO NativeVolumeMonitor -toNativeVolumeMonitor = unsafeCastTo NativeVolumeMonitor - -noNativeVolumeMonitor :: Maybe NativeVolumeMonitor -noNativeVolumeMonitor = Nothing - -type family ResolveNativeVolumeMonitorMethod (t :: Symbol) (o :: *) :: * where - ResolveNativeVolumeMonitorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveNativeVolumeMonitorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveNativeVolumeMonitorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveNativeVolumeMonitorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveNativeVolumeMonitorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveNativeVolumeMonitorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveNativeVolumeMonitorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveNativeVolumeMonitorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveNativeVolumeMonitorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveNativeVolumeMonitorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveNativeVolumeMonitorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveNativeVolumeMonitorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveNativeVolumeMonitorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveNativeVolumeMonitorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveNativeVolumeMonitorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveNativeVolumeMonitorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveNativeVolumeMonitorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveNativeVolumeMonitorMethod "getConnectedDrives" o = VolumeMonitorGetConnectedDrivesMethodInfo - ResolveNativeVolumeMonitorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveNativeVolumeMonitorMethod "getMountForUuid" o = VolumeMonitorGetMountForUuidMethodInfo - ResolveNativeVolumeMonitorMethod "getMounts" o = VolumeMonitorGetMountsMethodInfo - ResolveNativeVolumeMonitorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveNativeVolumeMonitorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveNativeVolumeMonitorMethod "getVolumeForUuid" o = VolumeMonitorGetVolumeForUuidMethodInfo - ResolveNativeVolumeMonitorMethod "getVolumes" o = VolumeMonitorGetVolumesMethodInfo - ResolveNativeVolumeMonitorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveNativeVolumeMonitorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveNativeVolumeMonitorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveNativeVolumeMonitorMethod t NativeVolumeMonitor, MethodInfo info NativeVolumeMonitor p) => IsLabelProxy t (NativeVolumeMonitor -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveNativeVolumeMonitorMethod t NativeVolumeMonitor, MethodInfo info NativeVolumeMonitor p) => IsLabel t (NativeVolumeMonitor -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList NativeVolumeMonitor = NativeVolumeMonitorAttributeList -type NativeVolumeMonitorAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList NativeVolumeMonitor = NativeVolumeMonitorSignalList -type NativeVolumeMonitorSignalList = ('[ '("driveChanged", VolumeMonitorDriveChangedSignalInfo), '("driveConnected", VolumeMonitorDriveConnectedSignalInfo), '("driveDisconnected", VolumeMonitorDriveDisconnectedSignalInfo), '("driveEjectButton", VolumeMonitorDriveEjectButtonSignalInfo), '("driveStopButton", VolumeMonitorDriveStopButtonSignalInfo), '("mountAdded", VolumeMonitorMountAddedSignalInfo), '("mountChanged", VolumeMonitorMountChangedSignalInfo), '("mountPreUnmount", VolumeMonitorMountPreUnmountSignalInfo), '("mountRemoved", VolumeMonitorMountRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("volumeAdded", VolumeMonitorVolumeAddedSignalInfo), '("volumeChanged", VolumeMonitorVolumeChangedSignalInfo), '("volumeRemoved", VolumeMonitorVolumeRemovedSignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gio/Objects/NativeVolumeMonitor.hs-boot b/GI/Gio/Objects/NativeVolumeMonitor.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/NativeVolumeMonitor.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gio.Objects.NativeVolumeMonitor where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype NativeVolumeMonitor = NativeVolumeMonitor (ForeignPtr NativeVolumeMonitor) -instance GObject NativeVolumeMonitor where -class GObject o => NativeVolumeMonitorK o -instance (GObject o, IsDescendantOf NativeVolumeMonitor o) => NativeVolumeMonitorK o diff --git a/GI/Gio/Objects/NetworkAddress.hs b/GI/Gio/Objects/NetworkAddress.hs deleted file mode 100644 --- a/GI/Gio/Objects/NetworkAddress.hs +++ /dev/null @@ -1,432 +0,0 @@ - - -{- | -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.Objects.NetworkAddress - ( - --- * Exported types - NetworkAddress(..) , - NetworkAddressK , - toNetworkAddress , - noNetworkAddress , - - - -- * Methods --- ** networkAddressGetHostname - NetworkAddressGetHostnameMethodInfo , - networkAddressGetHostname , - - --- ** networkAddressGetPort - NetworkAddressGetPortMethodInfo , - networkAddressGetPort , - - --- ** networkAddressGetScheme - NetworkAddressGetSchemeMethodInfo , - networkAddressGetScheme , - - --- ** networkAddressNew - networkAddressNew , - - --- ** networkAddressNewLoopback - networkAddressNewLoopback , - - --- ** networkAddressParse - networkAddressParse , - - --- ** networkAddressParseUri - networkAddressParseUri , - - - - - -- * Properties --- ** Hostname - NetworkAddressHostnamePropertyInfo , - constructNetworkAddressHostname , - getNetworkAddressHostname , - networkAddressHostname , - - --- ** Port - NetworkAddressPortPropertyInfo , - constructNetworkAddressPort , - getNetworkAddressPort , - networkAddressPort , - - --- ** Scheme - NetworkAddressSchemePropertyInfo , - constructNetworkAddressScheme , - getNetworkAddressScheme , - networkAddressScheme , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype NetworkAddress = NetworkAddress (ForeignPtr NetworkAddress) -foreign import ccall "g_network_address_get_type" - c_g_network_address_get_type :: IO GType - -type instance ParentTypes NetworkAddress = NetworkAddressParentTypes -type NetworkAddressParentTypes = '[GObject.Object, SocketConnectable] - -instance GObject NetworkAddress where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_network_address_get_type - - -class GObject o => NetworkAddressK o -instance (GObject o, IsDescendantOf NetworkAddress o) => NetworkAddressK o - -toNetworkAddress :: NetworkAddressK o => o -> IO NetworkAddress -toNetworkAddress = unsafeCastTo NetworkAddress - -noNetworkAddress :: Maybe NetworkAddress -noNetworkAddress = Nothing - -type family ResolveNetworkAddressMethod (t :: Symbol) (o :: *) :: * where - ResolveNetworkAddressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveNetworkAddressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveNetworkAddressMethod "enumerate" o = SocketConnectableEnumerateMethodInfo - ResolveNetworkAddressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveNetworkAddressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveNetworkAddressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveNetworkAddressMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveNetworkAddressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveNetworkAddressMethod "proxyEnumerate" o = SocketConnectableProxyEnumerateMethodInfo - ResolveNetworkAddressMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveNetworkAddressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveNetworkAddressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveNetworkAddressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveNetworkAddressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveNetworkAddressMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveNetworkAddressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveNetworkAddressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveNetworkAddressMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveNetworkAddressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveNetworkAddressMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveNetworkAddressMethod "getHostname" o = NetworkAddressGetHostnameMethodInfo - ResolveNetworkAddressMethod "getPort" o = NetworkAddressGetPortMethodInfo - ResolveNetworkAddressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveNetworkAddressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveNetworkAddressMethod "getScheme" o = NetworkAddressGetSchemeMethodInfo - ResolveNetworkAddressMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveNetworkAddressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveNetworkAddressMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveNetworkAddressMethod t NetworkAddress, MethodInfo info NetworkAddress p) => IsLabelProxy t (NetworkAddress -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveNetworkAddressMethod t NetworkAddress, MethodInfo info NetworkAddress p) => IsLabel t (NetworkAddress -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "hostname" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getNetworkAddressHostname :: (MonadIO m, NetworkAddressK o) => o -> m T.Text -getNetworkAddressHostname obj = liftIO $ checkUnexpectedNothing "getNetworkAddressHostname" $ getObjectPropertyString obj "hostname" - -constructNetworkAddressHostname :: T.Text -> IO ([Char], GValue) -constructNetworkAddressHostname val = constructObjectPropertyString "hostname" (Just val) - -data NetworkAddressHostnamePropertyInfo -instance AttrInfo NetworkAddressHostnamePropertyInfo where - type AttrAllowedOps NetworkAddressHostnamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NetworkAddressHostnamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint NetworkAddressHostnamePropertyInfo = NetworkAddressK - type AttrGetType NetworkAddressHostnamePropertyInfo = T.Text - type AttrLabel NetworkAddressHostnamePropertyInfo = "hostname" - attrGet _ = getNetworkAddressHostname - attrSet _ = undefined - attrConstruct _ = constructNetworkAddressHostname - attrClear _ = undefined - --- VVV Prop "port" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getNetworkAddressPort :: (MonadIO m, NetworkAddressK o) => o -> m Word32 -getNetworkAddressPort obj = liftIO $ getObjectPropertyUInt32 obj "port" - -constructNetworkAddressPort :: Word32 -> IO ([Char], GValue) -constructNetworkAddressPort val = constructObjectPropertyUInt32 "port" val - -data NetworkAddressPortPropertyInfo -instance AttrInfo NetworkAddressPortPropertyInfo where - type AttrAllowedOps NetworkAddressPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NetworkAddressPortPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint NetworkAddressPortPropertyInfo = NetworkAddressK - type AttrGetType NetworkAddressPortPropertyInfo = Word32 - type AttrLabel NetworkAddressPortPropertyInfo = "port" - attrGet _ = getNetworkAddressPort - attrSet _ = undefined - attrConstruct _ = constructNetworkAddressPort - attrClear _ = undefined - --- VVV Prop "scheme" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getNetworkAddressScheme :: (MonadIO m, NetworkAddressK o) => o -> m T.Text -getNetworkAddressScheme obj = liftIO $ checkUnexpectedNothing "getNetworkAddressScheme" $ getObjectPropertyString obj "scheme" - -constructNetworkAddressScheme :: T.Text -> IO ([Char], GValue) -constructNetworkAddressScheme val = constructObjectPropertyString "scheme" (Just val) - -data NetworkAddressSchemePropertyInfo -instance AttrInfo NetworkAddressSchemePropertyInfo where - type AttrAllowedOps NetworkAddressSchemePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NetworkAddressSchemePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint NetworkAddressSchemePropertyInfo = NetworkAddressK - type AttrGetType NetworkAddressSchemePropertyInfo = T.Text - type AttrLabel NetworkAddressSchemePropertyInfo = "scheme" - attrGet _ = getNetworkAddressScheme - attrSet _ = undefined - attrConstruct _ = constructNetworkAddressScheme - attrClear _ = undefined - -type instance AttributeList NetworkAddress = NetworkAddressAttributeList -type NetworkAddressAttributeList = ('[ '("hostname", NetworkAddressHostnamePropertyInfo), '("port", NetworkAddressPortPropertyInfo), '("scheme", NetworkAddressSchemePropertyInfo)] :: [(Symbol, *)]) - -networkAddressHostname :: AttrLabelProxy "hostname" -networkAddressHostname = AttrLabelProxy - -networkAddressPort :: AttrLabelProxy "port" -networkAddressPort = AttrLabelProxy - -networkAddressScheme :: AttrLabelProxy "scheme" -networkAddressScheme = AttrLabelProxy - -type instance SignalList NetworkAddress = NetworkAddressSignalList -type NetworkAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method NetworkAddress::new --- method type : Constructor --- Args : [Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "NetworkAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_network_address_new" g_network_address_new :: - CString -> -- hostname : TBasicType TUTF8 - Word16 -> -- port : TBasicType TUInt16 - IO (Ptr NetworkAddress) - - -networkAddressNew :: - (MonadIO m) => - T.Text -- hostname - -> Word16 -- port - -> m NetworkAddress -- result -networkAddressNew hostname port = liftIO $ do - hostname' <- textToCString hostname - result <- g_network_address_new hostname' port - checkUnexpectedReturnNULL "g_network_address_new" result - result' <- (wrapObject NetworkAddress) result - freeMem hostname' - return result' - --- method NetworkAddress::new_loopback --- method type : Constructor --- Args : [Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "NetworkAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_network_address_new_loopback" g_network_address_new_loopback :: - Word16 -> -- port : TBasicType TUInt16 - IO (Ptr NetworkAddress) - - -networkAddressNewLoopback :: - (MonadIO m) => - Word16 -- port - -> m NetworkAddress -- result -networkAddressNewLoopback port = liftIO $ do - result <- g_network_address_new_loopback port - checkUnexpectedReturnNULL "g_network_address_new_loopback" result - result' <- (wrapObject NetworkAddress) result - return result' - --- method NetworkAddress::get_hostname --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_network_address_get_hostname" g_network_address_get_hostname :: - Ptr NetworkAddress -> -- _obj : TInterface "Gio" "NetworkAddress" - IO CString - - -networkAddressGetHostname :: - (MonadIO m, NetworkAddressK a) => - a -- _obj - -> m T.Text -- result -networkAddressGetHostname _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_network_address_get_hostname _obj' - checkUnexpectedReturnNULL "g_network_address_get_hostname" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data NetworkAddressGetHostnameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, NetworkAddressK a) => MethodInfo NetworkAddressGetHostnameMethodInfo a signature where - overloadedMethod _ = networkAddressGetHostname - --- method NetworkAddress::get_port --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt16) --- throws : False --- Skip return : False - -foreign import ccall "g_network_address_get_port" g_network_address_get_port :: - Ptr NetworkAddress -> -- _obj : TInterface "Gio" "NetworkAddress" - IO Word16 - - -networkAddressGetPort :: - (MonadIO m, NetworkAddressK a) => - a -- _obj - -> m Word16 -- result -networkAddressGetPort _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_network_address_get_port _obj' - touchManagedPtr _obj - return result - -data NetworkAddressGetPortMethodInfo -instance (signature ~ (m Word16), MonadIO m, NetworkAddressK a) => MethodInfo NetworkAddressGetPortMethodInfo a signature where - overloadedMethod _ = networkAddressGetPort - --- method NetworkAddress::get_scheme --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_network_address_get_scheme" g_network_address_get_scheme :: - Ptr NetworkAddress -> -- _obj : TInterface "Gio" "NetworkAddress" - IO CString - - -networkAddressGetScheme :: - (MonadIO m, NetworkAddressK a) => - a -- _obj - -> m T.Text -- result -networkAddressGetScheme _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_network_address_get_scheme _obj' - checkUnexpectedReturnNULL "g_network_address_get_scheme" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data NetworkAddressGetSchemeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, NetworkAddressK a) => MethodInfo NetworkAddressGetSchemeMethodInfo a signature where - overloadedMethod _ = networkAddressGetScheme - --- method NetworkAddress::parse --- method type : MemberFunction --- Args : [Arg {argCName = "host_and_port", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "NetworkAddress") --- throws : True --- Skip return : False - -foreign import ccall "g_network_address_parse" g_network_address_parse :: - CString -> -- host_and_port : TBasicType TUTF8 - Word16 -> -- default_port : TBasicType TUInt16 - Ptr (Ptr GError) -> -- error - IO (Ptr NetworkAddress) - - -networkAddressParse :: - (MonadIO m) => - T.Text -- hostAndPort - -> Word16 -- defaultPort - -> m NetworkAddress -- result -networkAddressParse hostAndPort defaultPort = liftIO $ do - hostAndPort' <- textToCString hostAndPort - onException (do - result <- propagateGError $ g_network_address_parse hostAndPort' defaultPort - checkUnexpectedReturnNULL "g_network_address_parse" result - result' <- (wrapObject NetworkAddress) result - freeMem hostAndPort' - return result' - ) (do - freeMem hostAndPort' - ) - --- method NetworkAddress::parse_uri --- method type : MemberFunction --- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "NetworkAddress") --- throws : True --- Skip return : False - -foreign import ccall "g_network_address_parse_uri" g_network_address_parse_uri :: - CString -> -- uri : TBasicType TUTF8 - Word16 -> -- default_port : TBasicType TUInt16 - Ptr (Ptr GError) -> -- error - IO (Ptr NetworkAddress) - - -networkAddressParseUri :: - (MonadIO m) => - T.Text -- uri - -> Word16 -- defaultPort - -> m NetworkAddress -- result -networkAddressParseUri uri defaultPort = liftIO $ do - uri' <- textToCString uri - onException (do - result <- propagateGError $ g_network_address_parse_uri uri' defaultPort - checkUnexpectedReturnNULL "g_network_address_parse_uri" result - result' <- (wrapObject NetworkAddress) result - freeMem uri' - return result' - ) (do - freeMem uri' - ) - - diff --git a/GI/Gio/Objects/NetworkAddress.hs-boot b/GI/Gio/Objects/NetworkAddress.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/NetworkAddress.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gio.Objects.NetworkAddress where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype NetworkAddress = NetworkAddress (ForeignPtr NetworkAddress) -instance GObject NetworkAddress where -class GObject o => NetworkAddressK o -instance (GObject o, IsDescendantOf NetworkAddress o) => NetworkAddressK o -data NetworkAddressHostnamePropertyInfo -data NetworkAddressPortPropertyInfo -data NetworkAddressSchemePropertyInfo -data NetworkAddressGetHostnameMethodInfo -data NetworkAddressGetPortMethodInfo -data NetworkAddressGetSchemeMethodInfo diff --git a/GI/Gio/Objects/NetworkService.hs b/GI/Gio/Objects/NetworkService.hs deleted file mode 100644 --- a/GI/Gio/Objects/NetworkService.hs +++ /dev/null @@ -1,450 +0,0 @@ - - -{- | -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.Objects.NetworkService - ( - --- * Exported types - NetworkService(..) , - NetworkServiceK , - toNetworkService , - noNetworkService , - - - -- * Methods --- ** networkServiceGetDomain - NetworkServiceGetDomainMethodInfo , - networkServiceGetDomain , - - --- ** networkServiceGetProtocol - NetworkServiceGetProtocolMethodInfo , - networkServiceGetProtocol , - - --- ** networkServiceGetScheme - NetworkServiceGetSchemeMethodInfo , - networkServiceGetScheme , - - --- ** networkServiceGetService - NetworkServiceGetServiceMethodInfo , - networkServiceGetService , - - --- ** networkServiceNew - networkServiceNew , - - --- ** networkServiceSetScheme - NetworkServiceSetSchemeMethodInfo , - networkServiceSetScheme , - - - - - -- * Properties --- ** Domain - NetworkServiceDomainPropertyInfo , - constructNetworkServiceDomain , - getNetworkServiceDomain , - networkServiceDomain , - - --- ** Protocol - NetworkServiceProtocolPropertyInfo , - constructNetworkServiceProtocol , - getNetworkServiceProtocol , - networkServiceProtocol , - - --- ** Scheme - NetworkServiceSchemePropertyInfo , - constructNetworkServiceScheme , - getNetworkServiceScheme , - networkServiceScheme , - setNetworkServiceScheme , - - --- ** Service - NetworkServiceServicePropertyInfo , - constructNetworkServiceService , - getNetworkServiceService , - networkServiceService , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype NetworkService = NetworkService (ForeignPtr NetworkService) -foreign import ccall "g_network_service_get_type" - c_g_network_service_get_type :: IO GType - -type instance ParentTypes NetworkService = NetworkServiceParentTypes -type NetworkServiceParentTypes = '[GObject.Object, SocketConnectable] - -instance GObject NetworkService where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_network_service_get_type - - -class GObject o => NetworkServiceK o -instance (GObject o, IsDescendantOf NetworkService o) => NetworkServiceK o - -toNetworkService :: NetworkServiceK o => o -> IO NetworkService -toNetworkService = unsafeCastTo NetworkService - -noNetworkService :: Maybe NetworkService -noNetworkService = Nothing - -type family ResolveNetworkServiceMethod (t :: Symbol) (o :: *) :: * where - ResolveNetworkServiceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveNetworkServiceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveNetworkServiceMethod "enumerate" o = SocketConnectableEnumerateMethodInfo - ResolveNetworkServiceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveNetworkServiceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveNetworkServiceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveNetworkServiceMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveNetworkServiceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveNetworkServiceMethod "proxyEnumerate" o = SocketConnectableProxyEnumerateMethodInfo - ResolveNetworkServiceMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveNetworkServiceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveNetworkServiceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveNetworkServiceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveNetworkServiceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveNetworkServiceMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveNetworkServiceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveNetworkServiceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveNetworkServiceMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveNetworkServiceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveNetworkServiceMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveNetworkServiceMethod "getDomain" o = NetworkServiceGetDomainMethodInfo - ResolveNetworkServiceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveNetworkServiceMethod "getProtocol" o = NetworkServiceGetProtocolMethodInfo - ResolveNetworkServiceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveNetworkServiceMethod "getScheme" o = NetworkServiceGetSchemeMethodInfo - ResolveNetworkServiceMethod "getService" o = NetworkServiceGetServiceMethodInfo - ResolveNetworkServiceMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveNetworkServiceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveNetworkServiceMethod "setScheme" o = NetworkServiceSetSchemeMethodInfo - ResolveNetworkServiceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveNetworkServiceMethod t NetworkService, MethodInfo info NetworkService p) => IsLabelProxy t (NetworkService -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveNetworkServiceMethod t NetworkService, MethodInfo info NetworkService p) => IsLabel t (NetworkService -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "domain" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getNetworkServiceDomain :: (MonadIO m, NetworkServiceK o) => o -> m T.Text -getNetworkServiceDomain obj = liftIO $ checkUnexpectedNothing "getNetworkServiceDomain" $ getObjectPropertyString obj "domain" - -constructNetworkServiceDomain :: T.Text -> IO ([Char], GValue) -constructNetworkServiceDomain val = constructObjectPropertyString "domain" (Just val) - -data NetworkServiceDomainPropertyInfo -instance AttrInfo NetworkServiceDomainPropertyInfo where - type AttrAllowedOps NetworkServiceDomainPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NetworkServiceDomainPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint NetworkServiceDomainPropertyInfo = NetworkServiceK - type AttrGetType NetworkServiceDomainPropertyInfo = T.Text - type AttrLabel NetworkServiceDomainPropertyInfo = "domain" - attrGet _ = getNetworkServiceDomain - attrSet _ = undefined - attrConstruct _ = constructNetworkServiceDomain - attrClear _ = undefined - --- VVV Prop "protocol" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getNetworkServiceProtocol :: (MonadIO m, NetworkServiceK o) => o -> m T.Text -getNetworkServiceProtocol obj = liftIO $ checkUnexpectedNothing "getNetworkServiceProtocol" $ getObjectPropertyString obj "protocol" - -constructNetworkServiceProtocol :: T.Text -> IO ([Char], GValue) -constructNetworkServiceProtocol val = constructObjectPropertyString "protocol" (Just val) - -data NetworkServiceProtocolPropertyInfo -instance AttrInfo NetworkServiceProtocolPropertyInfo where - type AttrAllowedOps NetworkServiceProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NetworkServiceProtocolPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint NetworkServiceProtocolPropertyInfo = NetworkServiceK - type AttrGetType NetworkServiceProtocolPropertyInfo = T.Text - type AttrLabel NetworkServiceProtocolPropertyInfo = "protocol" - attrGet _ = getNetworkServiceProtocol - attrSet _ = undefined - attrConstruct _ = constructNetworkServiceProtocol - attrClear _ = undefined - --- VVV Prop "scheme" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getNetworkServiceScheme :: (MonadIO m, NetworkServiceK o) => o -> m T.Text -getNetworkServiceScheme obj = liftIO $ checkUnexpectedNothing "getNetworkServiceScheme" $ getObjectPropertyString obj "scheme" - -setNetworkServiceScheme :: (MonadIO m, NetworkServiceK o) => o -> T.Text -> m () -setNetworkServiceScheme obj val = liftIO $ setObjectPropertyString obj "scheme" (Just val) - -constructNetworkServiceScheme :: T.Text -> IO ([Char], GValue) -constructNetworkServiceScheme val = constructObjectPropertyString "scheme" (Just val) - -data NetworkServiceSchemePropertyInfo -instance AttrInfo NetworkServiceSchemePropertyInfo where - type AttrAllowedOps NetworkServiceSchemePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint NetworkServiceSchemePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint NetworkServiceSchemePropertyInfo = NetworkServiceK - type AttrGetType NetworkServiceSchemePropertyInfo = T.Text - type AttrLabel NetworkServiceSchemePropertyInfo = "scheme" - attrGet _ = getNetworkServiceScheme - attrSet _ = setNetworkServiceScheme - attrConstruct _ = constructNetworkServiceScheme - attrClear _ = undefined - --- VVV Prop "service" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getNetworkServiceService :: (MonadIO m, NetworkServiceK o) => o -> m T.Text -getNetworkServiceService obj = liftIO $ checkUnexpectedNothing "getNetworkServiceService" $ getObjectPropertyString obj "service" - -constructNetworkServiceService :: T.Text -> IO ([Char], GValue) -constructNetworkServiceService val = constructObjectPropertyString "service" (Just val) - -data NetworkServiceServicePropertyInfo -instance AttrInfo NetworkServiceServicePropertyInfo where - type AttrAllowedOps NetworkServiceServicePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint NetworkServiceServicePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint NetworkServiceServicePropertyInfo = NetworkServiceK - type AttrGetType NetworkServiceServicePropertyInfo = T.Text - type AttrLabel NetworkServiceServicePropertyInfo = "service" - attrGet _ = getNetworkServiceService - attrSet _ = undefined - attrConstruct _ = constructNetworkServiceService - attrClear _ = undefined - -type instance AttributeList NetworkService = NetworkServiceAttributeList -type NetworkServiceAttributeList = ('[ '("domain", NetworkServiceDomainPropertyInfo), '("protocol", NetworkServiceProtocolPropertyInfo), '("scheme", NetworkServiceSchemePropertyInfo), '("service", NetworkServiceServicePropertyInfo)] :: [(Symbol, *)]) - -networkServiceDomain :: AttrLabelProxy "domain" -networkServiceDomain = AttrLabelProxy - -networkServiceProtocol :: AttrLabelProxy "protocol" -networkServiceProtocol = AttrLabelProxy - -networkServiceScheme :: AttrLabelProxy "scheme" -networkServiceScheme = AttrLabelProxy - -networkServiceService :: AttrLabelProxy "service" -networkServiceService = AttrLabelProxy - -type instance SignalList NetworkService = NetworkServiceSignalList -type NetworkServiceSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method NetworkService::new --- method type : Constructor --- Args : [Arg {argCName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "NetworkService") --- throws : False --- Skip return : False - -foreign import ccall "g_network_service_new" g_network_service_new :: - CString -> -- service : TBasicType TUTF8 - CString -> -- protocol : TBasicType TUTF8 - CString -> -- domain : TBasicType TUTF8 - IO (Ptr NetworkService) - - -networkServiceNew :: - (MonadIO m) => - T.Text -- service - -> T.Text -- protocol - -> T.Text -- domain - -> m NetworkService -- result -networkServiceNew service protocol domain = liftIO $ do - service' <- textToCString service - protocol' <- textToCString protocol - domain' <- textToCString domain - result <- g_network_service_new service' protocol' domain' - checkUnexpectedReturnNULL "g_network_service_new" result - result' <- (wrapObject NetworkService) result - freeMem service' - freeMem protocol' - freeMem domain' - return result' - --- method NetworkService::get_domain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_network_service_get_domain" g_network_service_get_domain :: - Ptr NetworkService -> -- _obj : TInterface "Gio" "NetworkService" - IO CString - - -networkServiceGetDomain :: - (MonadIO m, NetworkServiceK a) => - a -- _obj - -> m T.Text -- result -networkServiceGetDomain _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_network_service_get_domain _obj' - checkUnexpectedReturnNULL "g_network_service_get_domain" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data NetworkServiceGetDomainMethodInfo -instance (signature ~ (m T.Text), MonadIO m, NetworkServiceK a) => MethodInfo NetworkServiceGetDomainMethodInfo a signature where - overloadedMethod _ = networkServiceGetDomain - --- method NetworkService::get_protocol --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_network_service_get_protocol" g_network_service_get_protocol :: - Ptr NetworkService -> -- _obj : TInterface "Gio" "NetworkService" - IO CString - - -networkServiceGetProtocol :: - (MonadIO m, NetworkServiceK a) => - a -- _obj - -> m T.Text -- result -networkServiceGetProtocol _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_network_service_get_protocol _obj' - checkUnexpectedReturnNULL "g_network_service_get_protocol" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data NetworkServiceGetProtocolMethodInfo -instance (signature ~ (m T.Text), MonadIO m, NetworkServiceK a) => MethodInfo NetworkServiceGetProtocolMethodInfo a signature where - overloadedMethod _ = networkServiceGetProtocol - --- method NetworkService::get_scheme --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_network_service_get_scheme" g_network_service_get_scheme :: - Ptr NetworkService -> -- _obj : TInterface "Gio" "NetworkService" - IO CString - - -networkServiceGetScheme :: - (MonadIO m, NetworkServiceK a) => - a -- _obj - -> m T.Text -- result -networkServiceGetScheme _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_network_service_get_scheme _obj' - checkUnexpectedReturnNULL "g_network_service_get_scheme" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data NetworkServiceGetSchemeMethodInfo -instance (signature ~ (m T.Text), MonadIO m, NetworkServiceK a) => MethodInfo NetworkServiceGetSchemeMethodInfo a signature where - overloadedMethod _ = networkServiceGetScheme - --- method NetworkService::get_service --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_network_service_get_service" g_network_service_get_service :: - Ptr NetworkService -> -- _obj : TInterface "Gio" "NetworkService" - IO CString - - -networkServiceGetService :: - (MonadIO m, NetworkServiceK a) => - a -- _obj - -> m T.Text -- result -networkServiceGetService _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_network_service_get_service _obj' - checkUnexpectedReturnNULL "g_network_service_get_service" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data NetworkServiceGetServiceMethodInfo -instance (signature ~ (m T.Text), MonadIO m, NetworkServiceK a) => MethodInfo NetworkServiceGetServiceMethodInfo a signature where - overloadedMethod _ = networkServiceGetService - --- method NetworkService::set_scheme --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "NetworkService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_network_service_set_scheme" g_network_service_set_scheme :: - Ptr NetworkService -> -- _obj : TInterface "Gio" "NetworkService" - CString -> -- scheme : TBasicType TUTF8 - IO () - - -networkServiceSetScheme :: - (MonadIO m, NetworkServiceK a) => - a -- _obj - -> T.Text -- scheme - -> m () -- result -networkServiceSetScheme _obj scheme = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - scheme' <- textToCString scheme - g_network_service_set_scheme _obj' scheme' - touchManagedPtr _obj - freeMem scheme' - return () - -data NetworkServiceSetSchemeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, NetworkServiceK a) => MethodInfo NetworkServiceSetSchemeMethodInfo a signature where - overloadedMethod _ = networkServiceSetScheme - - diff --git a/GI/Gio/Objects/NetworkService.hs-boot b/GI/Gio/Objects/NetworkService.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/NetworkService.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.Gio.Objects.NetworkService where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype NetworkService = NetworkService (ForeignPtr NetworkService) -instance GObject NetworkService where -class GObject o => NetworkServiceK o -instance (GObject o, IsDescendantOf NetworkService o) => NetworkServiceK o -data NetworkServiceDomainPropertyInfo -data NetworkServiceProtocolPropertyInfo -data NetworkServiceSchemePropertyInfo -data NetworkServiceServicePropertyInfo -data NetworkServiceGetDomainMethodInfo -data NetworkServiceGetProtocolMethodInfo -data NetworkServiceGetSchemeMethodInfo -data NetworkServiceGetServiceMethodInfo -data NetworkServiceSetSchemeMethodInfo diff --git a/GI/Gio/Objects/Notification.hs b/GI/Gio/Objects/Notification.hs deleted file mode 100644 --- a/GI/Gio/Objects/Notification.hs +++ /dev/null @@ -1,481 +0,0 @@ - - -{- | -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.Objects.Notification - ( - --- * Exported types - Notification(..) , - NotificationK , - toNotification , - noNotification , - - - -- * Methods --- ** notificationAddButton - NotificationAddButtonMethodInfo , - notificationAddButton , - - --- ** notificationAddButtonWithTarget - NotificationAddButtonWithTargetMethodInfo, - notificationAddButtonWithTarget , - - --- ** notificationNew - notificationNew , - - --- ** notificationSetBody - NotificationSetBodyMethodInfo , - notificationSetBody , - - --- ** notificationSetDefaultAction - NotificationSetDefaultActionMethodInfo , - notificationSetDefaultAction , - - --- ** notificationSetDefaultActionAndTarget - NotificationSetDefaultActionAndTargetMethodInfo, - notificationSetDefaultActionAndTarget , - - --- ** notificationSetIcon - NotificationSetIconMethodInfo , - notificationSetIcon , - - --- ** notificationSetPriority - NotificationSetPriorityMethodInfo , - notificationSetPriority , - - --- ** notificationSetTitle - NotificationSetTitleMethodInfo , - notificationSetTitle , - - --- ** notificationSetUrgent - NotificationSetUrgentMethodInfo , - notificationSetUrgent , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype Notification = Notification (ForeignPtr Notification) -foreign import ccall "g_notification_get_type" - c_g_notification_get_type :: IO GType - -type instance ParentTypes Notification = NotificationParentTypes -type NotificationParentTypes = '[GObject.Object] - -instance GObject Notification where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_notification_get_type - - -class GObject o => NotificationK o -instance (GObject o, IsDescendantOf Notification o) => NotificationK o - -toNotification :: NotificationK o => o -> IO Notification -toNotification = unsafeCastTo Notification - -noNotification :: Maybe Notification -noNotification = Nothing - -type family ResolveNotificationMethod (t :: Symbol) (o :: *) :: * where - ResolveNotificationMethod "addButton" o = NotificationAddButtonMethodInfo - ResolveNotificationMethod "addButtonWithTarget" o = NotificationAddButtonWithTargetMethodInfo - ResolveNotificationMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveNotificationMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveNotificationMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveNotificationMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveNotificationMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveNotificationMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveNotificationMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveNotificationMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveNotificationMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveNotificationMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveNotificationMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveNotificationMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveNotificationMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveNotificationMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveNotificationMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveNotificationMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveNotificationMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveNotificationMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveNotificationMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveNotificationMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveNotificationMethod "setBody" o = NotificationSetBodyMethodInfo - ResolveNotificationMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveNotificationMethod "setDefaultAction" o = NotificationSetDefaultActionMethodInfo - ResolveNotificationMethod "setDefaultActionAndTarget" o = NotificationSetDefaultActionAndTargetMethodInfo - ResolveNotificationMethod "setIcon" o = NotificationSetIconMethodInfo - ResolveNotificationMethod "setPriority" o = NotificationSetPriorityMethodInfo - ResolveNotificationMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveNotificationMethod "setTitle" o = NotificationSetTitleMethodInfo - ResolveNotificationMethod "setUrgent" o = NotificationSetUrgentMethodInfo - ResolveNotificationMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveNotificationMethod t Notification, MethodInfo info Notification p) => IsLabelProxy t (Notification -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveNotificationMethod t Notification, MethodInfo info Notification p) => IsLabel t (Notification -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Notification = NotificationAttributeList -type NotificationAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Notification = NotificationSignalList -type NotificationSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Notification::new --- method type : Constructor --- Args : [Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Notification") --- throws : False --- Skip return : False - -foreign import ccall "g_notification_new" g_notification_new :: - CString -> -- title : TBasicType TUTF8 - IO (Ptr Notification) - - -notificationNew :: - (MonadIO m) => - T.Text -- title - -> m Notification -- result -notificationNew title = liftIO $ do - title' <- textToCString title - result <- g_notification_new title' - checkUnexpectedReturnNULL "g_notification_new" result - result' <- (wrapObject Notification) result - freeMem title' - return result' - --- method Notification::add_button --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_notification_add_button" g_notification_add_button :: - Ptr Notification -> -- _obj : TInterface "Gio" "Notification" - CString -> -- label : TBasicType TUTF8 - CString -> -- detailed_action : TBasicType TUTF8 - IO () - - -notificationAddButton :: - (MonadIO m, NotificationK a) => - a -- _obj - -> T.Text -- label - -> T.Text -- detailedAction - -> m () -- result -notificationAddButton _obj label detailedAction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - label' <- textToCString label - detailedAction' <- textToCString detailedAction - g_notification_add_button _obj' label' detailedAction' - touchManagedPtr _obj - freeMem label' - freeMem detailedAction' - return () - -data NotificationAddButtonMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationAddButtonMethodInfo a signature where - overloadedMethod _ = notificationAddButton - --- method Notification::add_button_with_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "label", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_notification_add_button_with_target_value" g_notification_add_button_with_target_value :: - Ptr Notification -> -- _obj : TInterface "Gio" "Notification" - CString -> -- label : TBasicType TUTF8 - CString -> -- action : TBasicType TUTF8 - Ptr GVariant -> -- target : TVariant - IO () - - -notificationAddButtonWithTarget :: - (MonadIO m, NotificationK a) => - a -- _obj - -> T.Text -- label - -> T.Text -- action - -> Maybe (GVariant) -- target - -> m () -- result -notificationAddButtonWithTarget _obj label action target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - label' <- textToCString label - action' <- textToCString action - maybeTarget <- case target of - Nothing -> return nullPtr - Just jTarget -> do - let jTarget' = unsafeManagedPtrGetPtr jTarget - return jTarget' - g_notification_add_button_with_target_value _obj' label' action' maybeTarget - touchManagedPtr _obj - freeMem label' - freeMem action' - return () - -data NotificationAddButtonWithTargetMethodInfo -instance (signature ~ (T.Text -> T.Text -> Maybe (GVariant) -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationAddButtonWithTargetMethodInfo a signature where - overloadedMethod _ = notificationAddButtonWithTarget - --- method Notification::set_body --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_notification_set_body" g_notification_set_body :: - Ptr Notification -> -- _obj : TInterface "Gio" "Notification" - CString -> -- body : TBasicType TUTF8 - IO () - - -notificationSetBody :: - (MonadIO m, NotificationK a) => - a -- _obj - -> Maybe (T.Text) -- body - -> m () -- result -notificationSetBody _obj body = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeBody <- case body of - Nothing -> return nullPtr - Just jBody -> do - jBody' <- textToCString jBody - return jBody' - g_notification_set_body _obj' maybeBody - touchManagedPtr _obj - freeMem maybeBody - return () - -data NotificationSetBodyMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetBodyMethodInfo a signature where - overloadedMethod _ = notificationSetBody - --- method Notification::set_default_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "detailed_action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_notification_set_default_action" g_notification_set_default_action :: - Ptr Notification -> -- _obj : TInterface "Gio" "Notification" - CString -> -- detailed_action : TBasicType TUTF8 - IO () - - -notificationSetDefaultAction :: - (MonadIO m, NotificationK a) => - a -- _obj - -> T.Text -- detailedAction - -> m () -- result -notificationSetDefaultAction _obj detailedAction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - detailedAction' <- textToCString detailedAction - g_notification_set_default_action _obj' detailedAction' - touchManagedPtr _obj - freeMem detailedAction' - return () - -data NotificationSetDefaultActionMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetDefaultActionMethodInfo a signature where - overloadedMethod _ = notificationSetDefaultAction - --- method Notification::set_default_action_and_target --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_notification_set_default_action_and_target_value" g_notification_set_default_action_and_target_value :: - Ptr Notification -> -- _obj : TInterface "Gio" "Notification" - CString -> -- action : TBasicType TUTF8 - Ptr GVariant -> -- target : TVariant - IO () - - -notificationSetDefaultActionAndTarget :: - (MonadIO m, NotificationK a) => - a -- _obj - -> T.Text -- action - -> Maybe (GVariant) -- target - -> m () -- result -notificationSetDefaultActionAndTarget _obj action target = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - action' <- textToCString action - maybeTarget <- case target of - Nothing -> return nullPtr - Just jTarget -> do - let jTarget' = unsafeManagedPtrGetPtr jTarget - return jTarget' - g_notification_set_default_action_and_target_value _obj' action' maybeTarget - touchManagedPtr _obj - freeMem action' - return () - -data NotificationSetDefaultActionAndTargetMethodInfo -instance (signature ~ (T.Text -> Maybe (GVariant) -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetDefaultActionAndTargetMethodInfo a signature where - overloadedMethod _ = notificationSetDefaultActionAndTarget - --- method Notification::set_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_notification_set_icon" g_notification_set_icon :: - Ptr Notification -> -- _obj : TInterface "Gio" "Notification" - Ptr Icon -> -- icon : TInterface "Gio" "Icon" - IO () - - -notificationSetIcon :: - (MonadIO m, NotificationK a, IconK b) => - a -- _obj - -> b -- icon - -> m () -- result -notificationSetIcon _obj icon = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let icon' = unsafeManagedPtrCastPtr icon - g_notification_set_icon _obj' icon' - touchManagedPtr _obj - touchManagedPtr icon - return () - -data NotificationSetIconMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, NotificationK a, IconK b) => MethodInfo NotificationSetIconMethodInfo a signature where - overloadedMethod _ = notificationSetIcon - --- method Notification::set_priority --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TInterface "Gio" "NotificationPriority", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_notification_set_priority" g_notification_set_priority :: - Ptr Notification -> -- _obj : TInterface "Gio" "Notification" - CUInt -> -- priority : TInterface "Gio" "NotificationPriority" - IO () - - -notificationSetPriority :: - (MonadIO m, NotificationK a) => - a -- _obj - -> NotificationPriority -- priority - -> m () -- result -notificationSetPriority _obj priority = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let priority' = (fromIntegral . fromEnum) priority - g_notification_set_priority _obj' priority' - touchManagedPtr _obj - return () - -data NotificationSetPriorityMethodInfo -instance (signature ~ (NotificationPriority -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetPriorityMethodInfo a signature where - overloadedMethod _ = notificationSetPriority - --- method Notification::set_title --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_notification_set_title" g_notification_set_title :: - Ptr Notification -> -- _obj : TInterface "Gio" "Notification" - CString -> -- title : TBasicType TUTF8 - IO () - - -notificationSetTitle :: - (MonadIO m, NotificationK a) => - a -- _obj - -> T.Text -- title - -> m () -- result -notificationSetTitle _obj title = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - title' <- textToCString title - g_notification_set_title _obj' title' - touchManagedPtr _obj - freeMem title' - return () - -data NotificationSetTitleMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetTitleMethodInfo a signature where - overloadedMethod _ = notificationSetTitle - --- method Notification::set_urgent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Notification", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_notification_set_urgent" g_notification_set_urgent :: - Ptr Notification -> -- _obj : TInterface "Gio" "Notification" - CInt -> -- urgent : TBasicType TBoolean - IO () - - -notificationSetUrgent :: - (MonadIO m, NotificationK a) => - a -- _obj - -> Bool -- urgent - -> m () -- result -notificationSetUrgent _obj urgent = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let urgent' = (fromIntegral . fromEnum) urgent - g_notification_set_urgent _obj' urgent' - touchManagedPtr _obj - return () - -data NotificationSetUrgentMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, NotificationK a) => MethodInfo NotificationSetUrgentMethodInfo a signature where - overloadedMethod _ = notificationSetUrgent - - diff --git a/GI/Gio/Objects/Notification.hs-boot b/GI/Gio/Objects/Notification.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/Notification.hs-boot +++ /dev/null @@ -1,22 +0,0 @@ -module GI.Gio.Objects.Notification where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Notification = Notification (ForeignPtr Notification) -instance GObject Notification where -class GObject o => NotificationK o -instance (GObject o, IsDescendantOf Notification o) => NotificationK o -data NotificationAddButtonMethodInfo -data NotificationAddButtonWithTargetMethodInfo -data NotificationSetBodyMethodInfo -data NotificationSetDefaultActionMethodInfo -data NotificationSetDefaultActionAndTargetMethodInfo -data NotificationSetIconMethodInfo -data NotificationSetPriorityMethodInfo -data NotificationSetTitleMethodInfo -data NotificationSetUrgentMethodInfo diff --git a/GI/Gio/Objects/OutputStream.hs b/GI/Gio/Objects/OutputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/OutputStream.hs +++ /dev/null @@ -1,1176 +0,0 @@ - - -{- | -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.Objects.OutputStream - ( - --- * Exported types - OutputStream(..) , - OutputStreamK , - toOutputStream , - noOutputStream , - - - -- * Methods --- ** outputStreamClearPending - OutputStreamClearPendingMethodInfo , - outputStreamClearPending , - - --- ** outputStreamClose - OutputStreamCloseMethodInfo , - outputStreamClose , - - --- ** outputStreamCloseAsync - OutputStreamCloseAsyncMethodInfo , - outputStreamCloseAsync , - - --- ** outputStreamCloseFinish - OutputStreamCloseFinishMethodInfo , - outputStreamCloseFinish , - - --- ** outputStreamFlush - OutputStreamFlushMethodInfo , - outputStreamFlush , - - --- ** outputStreamFlushAsync - OutputStreamFlushAsyncMethodInfo , - outputStreamFlushAsync , - - --- ** outputStreamFlushFinish - OutputStreamFlushFinishMethodInfo , - outputStreamFlushFinish , - - --- ** outputStreamHasPending - OutputStreamHasPendingMethodInfo , - outputStreamHasPending , - - --- ** outputStreamIsClosed - OutputStreamIsClosedMethodInfo , - outputStreamIsClosed , - - --- ** outputStreamIsClosing - OutputStreamIsClosingMethodInfo , - outputStreamIsClosing , - - --- ** outputStreamSetPending - OutputStreamSetPendingMethodInfo , - outputStreamSetPending , - - --- ** outputStreamSplice - OutputStreamSpliceMethodInfo , - outputStreamSplice , - - --- ** outputStreamSpliceAsync - OutputStreamSpliceAsyncMethodInfo , - outputStreamSpliceAsync , - - --- ** outputStreamSpliceFinish - OutputStreamSpliceFinishMethodInfo , - outputStreamSpliceFinish , - - --- ** outputStreamWrite - OutputStreamWriteMethodInfo , - outputStreamWrite , - - --- ** outputStreamWriteAll - OutputStreamWriteAllMethodInfo , - outputStreamWriteAll , - - --- ** outputStreamWriteAllAsync - OutputStreamWriteAllAsyncMethodInfo , - outputStreamWriteAllAsync , - - --- ** outputStreamWriteAllFinish - OutputStreamWriteAllFinishMethodInfo , - outputStreamWriteAllFinish , - - --- ** outputStreamWriteAsync - OutputStreamWriteAsyncMethodInfo , - outputStreamWriteAsync , - - --- ** outputStreamWriteBytes - OutputStreamWriteBytesMethodInfo , - outputStreamWriteBytes , - - --- ** outputStreamWriteBytesAsync - OutputStreamWriteBytesAsyncMethodInfo , - outputStreamWriteBytesAsync , - - --- ** outputStreamWriteBytesFinish - OutputStreamWriteBytesFinishMethodInfo , - outputStreamWriteBytesFinish , - - --- ** outputStreamWriteFinish - OutputStreamWriteFinishMethodInfo , - outputStreamWriteFinish , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype OutputStream = OutputStream (ForeignPtr OutputStream) -foreign import ccall "g_output_stream_get_type" - c_g_output_stream_get_type :: IO GType - -type instance ParentTypes OutputStream = OutputStreamParentTypes -type OutputStreamParentTypes = '[GObject.Object] - -instance GObject OutputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_output_stream_get_type - - -class GObject o => OutputStreamK o -instance (GObject o, IsDescendantOf OutputStream o) => OutputStreamK o - -toOutputStream :: OutputStreamK o => o -> IO OutputStream -toOutputStream = unsafeCastTo OutputStream - -noOutputStream :: Maybe OutputStream -noOutputStream = Nothing - -type family ResolveOutputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo - ResolveOutputStreamMethod "close" o = OutputStreamCloseMethodInfo - ResolveOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo - ResolveOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo - ResolveOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo - ResolveOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo - ResolveOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo - ResolveOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo - ResolveOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo - ResolveOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo - ResolveOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo - ResolveOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo - ResolveOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo - ResolveOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveOutputStreamMethod "write" o = OutputStreamWriteMethodInfo - ResolveOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo - ResolveOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo - ResolveOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo - ResolveOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo - ResolveOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo - ResolveOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo - ResolveOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo - ResolveOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo - ResolveOutputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo - ResolveOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveOutputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveOutputStreamMethod t OutputStream, MethodInfo info OutputStream p) => IsLabelProxy t (OutputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveOutputStreamMethod t OutputStream, MethodInfo info OutputStream p) => IsLabel t (OutputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList OutputStream = OutputStreamAttributeList -type OutputStreamAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList OutputStream = OutputStreamSignalList -type OutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method OutputStream::clear_pending --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_output_stream_clear_pending" g_output_stream_clear_pending :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - IO () - - -outputStreamClearPending :: - (MonadIO m, OutputStreamK a) => - a -- _obj - -> m () -- result -outputStreamClearPending _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_output_stream_clear_pending _obj' - touchManagedPtr _obj - return () - -data OutputStreamClearPendingMethodInfo -instance (signature ~ (m ()), MonadIO m, OutputStreamK a) => MethodInfo OutputStreamClearPendingMethodInfo a signature where - overloadedMethod _ = outputStreamClearPending - --- method OutputStream::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_output_stream_close" g_output_stream_close :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -outputStreamClose :: - (MonadIO m, OutputStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -outputStreamClose _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_output_stream_close _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data OutputStreamCloseMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamCloseMethodInfo a signature where - overloadedMethod _ = outputStreamClose - --- method OutputStream::close_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_output_stream_close_async" g_output_stream_close_async :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -outputStreamCloseAsync :: - (MonadIO m, OutputStreamK a, CancellableK b) => - a -- _obj - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -outputStreamCloseAsync _obj ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_output_stream_close_async _obj' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data OutputStreamCloseAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamCloseAsyncMethodInfo a signature where - overloadedMethod _ = outputStreamCloseAsync - --- method OutputStream::close_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_output_stream_close_finish" g_output_stream_close_finish :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -outputStreamCloseFinish :: - (MonadIO m, OutputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -outputStreamCloseFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_output_stream_close_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data OutputStreamCloseFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, OutputStreamK a, AsyncResultK b) => MethodInfo OutputStreamCloseFinishMethodInfo a signature where - overloadedMethod _ = outputStreamCloseFinish - --- method OutputStream::flush --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_output_stream_flush" g_output_stream_flush :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -outputStreamFlush :: - (MonadIO m, OutputStreamK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -outputStreamFlush _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_output_stream_flush _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data OutputStreamFlushMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamFlushMethodInfo a signature where - overloadedMethod _ = outputStreamFlush - --- method OutputStream::flush_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_output_stream_flush_async" g_output_stream_flush_async :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -outputStreamFlushAsync :: - (MonadIO m, OutputStreamK a, CancellableK b) => - a -- _obj - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -outputStreamFlushAsync _obj ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_output_stream_flush_async _obj' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data OutputStreamFlushAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamFlushAsyncMethodInfo a signature where - overloadedMethod _ = outputStreamFlushAsync - --- method OutputStream::flush_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_output_stream_flush_finish" g_output_stream_flush_finish :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -outputStreamFlushFinish :: - (MonadIO m, OutputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -outputStreamFlushFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_output_stream_flush_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data OutputStreamFlushFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, OutputStreamK a, AsyncResultK b) => MethodInfo OutputStreamFlushFinishMethodInfo a signature where - overloadedMethod _ = outputStreamFlushFinish - --- method OutputStream::has_pending --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_output_stream_has_pending" g_output_stream_has_pending :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - IO CInt - - -outputStreamHasPending :: - (MonadIO m, OutputStreamK a) => - a -- _obj - -> m Bool -- result -outputStreamHasPending _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_output_stream_has_pending _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data OutputStreamHasPendingMethodInfo -instance (signature ~ (m Bool), MonadIO m, OutputStreamK a) => MethodInfo OutputStreamHasPendingMethodInfo a signature where - overloadedMethod _ = outputStreamHasPending - --- method OutputStream::is_closed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_output_stream_is_closed" g_output_stream_is_closed :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - IO CInt - - -outputStreamIsClosed :: - (MonadIO m, OutputStreamK a) => - a -- _obj - -> m Bool -- result -outputStreamIsClosed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_output_stream_is_closed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data OutputStreamIsClosedMethodInfo -instance (signature ~ (m Bool), MonadIO m, OutputStreamK a) => MethodInfo OutputStreamIsClosedMethodInfo a signature where - overloadedMethod _ = outputStreamIsClosed - --- method OutputStream::is_closing --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_output_stream_is_closing" g_output_stream_is_closing :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - IO CInt - - -outputStreamIsClosing :: - (MonadIO m, OutputStreamK a) => - a -- _obj - -> m Bool -- result -outputStreamIsClosing _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_output_stream_is_closing _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data OutputStreamIsClosingMethodInfo -instance (signature ~ (m Bool), MonadIO m, OutputStreamK a) => MethodInfo OutputStreamIsClosingMethodInfo a signature where - overloadedMethod _ = outputStreamIsClosing - --- method OutputStream::set_pending --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_output_stream_set_pending" g_output_stream_set_pending :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr (Ptr GError) -> -- error - IO CInt - - -outputStreamSetPending :: - (MonadIO m, OutputStreamK a) => - a -- _obj - -> m () -- result -outputStreamSetPending _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ g_output_stream_set_pending _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data OutputStreamSetPendingMethodInfo -instance (signature ~ (m ()), MonadIO m, OutputStreamK a) => MethodInfo OutputStreamSetPendingMethodInfo a signature where - overloadedMethod _ = outputStreamSetPending - --- method OutputStream::splice --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "OutputStreamSpliceFlags", 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 : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_output_stream_splice" g_output_stream_splice :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr InputStream -> -- source : TInterface "Gio" "InputStream" - CUInt -> -- flags : TInterface "Gio" "OutputStreamSpliceFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -outputStreamSplice :: - (MonadIO m, OutputStreamK a, InputStreamK b, CancellableK c) => - a -- _obj - -> b -- source - -> [OutputStreamSpliceFlags] -- flags - -> Maybe (c) -- cancellable - -> m Int64 -- result -outputStreamSplice _obj source flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let source' = unsafeManagedPtrCastPtr source - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_output_stream_splice _obj' source' flags' maybeCancellable - touchManagedPtr _obj - touchManagedPtr source - whenJust cancellable touchManagedPtr - return result - ) (do - return () - ) - -data OutputStreamSpliceMethodInfo -instance (signature ~ (b -> [OutputStreamSpliceFlags] -> Maybe (c) -> m Int64), MonadIO m, OutputStreamK a, InputStreamK b, CancellableK c) => MethodInfo OutputStreamSpliceMethodInfo a signature where - overloadedMethod _ = outputStreamSplice - --- method OutputStream::splice_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "OutputStreamSpliceFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_output_stream_splice_async" g_output_stream_splice_async :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr InputStream -> -- source : TInterface "Gio" "InputStream" - CUInt -> -- flags : TInterface "Gio" "OutputStreamSpliceFlags" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -outputStreamSpliceAsync :: - (MonadIO m, OutputStreamK a, InputStreamK b, CancellableK c) => - a -- _obj - -> b -- source - -> [OutputStreamSpliceFlags] -- flags - -> Int32 -- ioPriority - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -outputStreamSpliceAsync _obj source flags ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let source' = unsafeManagedPtrCastPtr source - let flags' = gflagsToWord flags - 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_output_stream_splice_async _obj' source' flags' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr source - whenJust cancellable touchManagedPtr - return () - -data OutputStreamSpliceAsyncMethodInfo -instance (signature ~ (b -> [OutputStreamSpliceFlags] -> Int32 -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, OutputStreamK a, InputStreamK b, CancellableK c) => MethodInfo OutputStreamSpliceAsyncMethodInfo a signature where - overloadedMethod _ = outputStreamSpliceAsync - --- method OutputStream::splice_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_output_stream_splice_finish" g_output_stream_splice_finish :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO Int64 - - -outputStreamSpliceFinish :: - (MonadIO m, OutputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m Int64 -- result -outputStreamSpliceFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_output_stream_splice_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return result - ) (do - return () - ) - -data OutputStreamSpliceFinishMethodInfo -instance (signature ~ (b -> m Int64), MonadIO m, OutputStreamK a, AsyncResultK b) => MethodInfo OutputStreamSpliceFinishMethodInfo a signature where - overloadedMethod _ = outputStreamSpliceFinish - --- method OutputStream::write --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", 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 = "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 : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_output_stream_write" g_output_stream_write :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- count : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -outputStreamWrite :: - (MonadIO m, OutputStreamK a, CancellableK b) => - a -- _obj - -> ByteString -- buffer - -> Maybe (b) -- cancellable - -> m Int64 -- result -outputStreamWrite _obj buffer cancellable = liftIO $ do - let count = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_output_stream_write _obj' buffer' count maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - return result - ) (do - freeMem buffer' - ) - -data OutputStreamWriteMethodInfo -instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamWriteMethodInfo a signature where - overloadedMethod _ = outputStreamWrite - --- method OutputStream::write_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", 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 = "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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_output_stream_write_all" g_output_stream_write_all :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- count : TBasicType TUInt64 - Ptr Word64 -> -- bytes_written : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -outputStreamWriteAll :: - (MonadIO m, OutputStreamK a, CancellableK b) => - a -- _obj - -> ByteString -- buffer - -> Maybe (b) -- cancellable - -> m (Word64) -- result -outputStreamWriteAll _obj buffer cancellable = liftIO $ do - let count = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - 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_output_stream_write_all _obj' buffer' count bytesWritten maybeCancellable - bytesWritten' <- peek bytesWritten - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - freeMem bytesWritten - return bytesWritten' - ) (do - freeMem buffer' - freeMem bytesWritten - ) - -data OutputStreamWriteAllMethodInfo -instance (signature ~ (ByteString -> Maybe (b) -> m (Word64)), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamWriteAllMethodInfo a signature where - overloadedMethod _ = outputStreamWriteAll - --- method OutputStream::write_all_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", 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 = "io_priority", argType = TBasicType TInt, 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 = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_output_stream_write_all_async" g_output_stream_write_all_async :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- count : TBasicType TUInt64 - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -outputStreamWriteAllAsync :: - (MonadIO m, OutputStreamK a, CancellableK b) => - a -- _obj - -> ByteString -- buffer - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -outputStreamWriteAllAsync _obj buffer ioPriority cancellable callback = liftIO $ do - let count = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - 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_output_stream_write_all_async _obj' buffer' count ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - return () - -data OutputStreamWriteAllAsyncMethodInfo -instance (signature ~ (ByteString -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamWriteAllAsyncMethodInfo a signature where - overloadedMethod _ = outputStreamWriteAllAsync - --- method OutputStream::write_all_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", 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}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_output_stream_write_all_finish" g_output_stream_write_all_finish :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr Word64 -> -- bytes_written : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CInt - - -outputStreamWriteAllFinish :: - (MonadIO m, OutputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m (Word64) -- result -outputStreamWriteAllFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - bytesWritten <- allocMem :: IO (Ptr Word64) - onException (do - _ <- propagateGError $ g_output_stream_write_all_finish _obj' result_' bytesWritten - bytesWritten' <- peek bytesWritten - touchManagedPtr _obj - touchManagedPtr result_ - freeMem bytesWritten - return bytesWritten' - ) (do - freeMem bytesWritten - ) - -data OutputStreamWriteAllFinishMethodInfo -instance (signature ~ (b -> m (Word64)), MonadIO m, OutputStreamK a, AsyncResultK b) => MethodInfo OutputStreamWriteAllFinishMethodInfo a signature where - overloadedMethod _ = outputStreamWriteAllFinish - --- method OutputStream::write_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", 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 = "io_priority", argType = TBasicType TInt, 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 = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_output_stream_write_async" g_output_stream_write_async :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- count : TBasicType TUInt64 - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -outputStreamWriteAsync :: - (MonadIO m, OutputStreamK a, CancellableK b) => - a -- _obj - -> ByteString -- buffer - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -outputStreamWriteAsync _obj buffer ioPriority cancellable callback = liftIO $ do - let count = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - 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_output_stream_write_async _obj' buffer' count ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - return () - -data OutputStreamWriteAsyncMethodInfo -instance (signature ~ (ByteString -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamWriteAsyncMethodInfo a signature where - overloadedMethod _ = outputStreamWriteAsync - --- method OutputStream::write_bytes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes", argType = TInterface "GLib" "Bytes", 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 : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_output_stream_write_bytes" g_output_stream_write_bytes :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr GLib.Bytes -> -- bytes : TInterface "GLib" "Bytes" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -outputStreamWriteBytes :: - (MonadIO m, OutputStreamK a, CancellableK b) => - a -- _obj - -> GLib.Bytes -- bytes - -> Maybe (b) -- cancellable - -> m Int64 -- result -outputStreamWriteBytes _obj bytes cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let bytes' = unsafeManagedPtrGetPtr bytes - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_output_stream_write_bytes _obj' bytes' maybeCancellable - touchManagedPtr _obj - touchManagedPtr bytes - whenJust cancellable touchManagedPtr - return result - ) (do - return () - ) - -data OutputStreamWriteBytesMethodInfo -instance (signature ~ (GLib.Bytes -> Maybe (b) -> m Int64), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamWriteBytesMethodInfo a signature where - overloadedMethod _ = outputStreamWriteBytes - --- method OutputStream::write_bytes_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bytes", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_output_stream_write_bytes_async" g_output_stream_write_bytes_async :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr GLib.Bytes -> -- bytes : TInterface "GLib" "Bytes" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -outputStreamWriteBytesAsync :: - (MonadIO m, OutputStreamK a, CancellableK b) => - a -- _obj - -> GLib.Bytes -- bytes - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -outputStreamWriteBytesAsync _obj bytes ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let bytes' = unsafeManagedPtrGetPtr bytes - 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_output_stream_write_bytes_async _obj' bytes' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr bytes - whenJust cancellable touchManagedPtr - return () - -data OutputStreamWriteBytesAsyncMethodInfo -instance (signature ~ (GLib.Bytes -> Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, OutputStreamK a, CancellableK b) => MethodInfo OutputStreamWriteBytesAsyncMethodInfo a signature where - overloadedMethod _ = outputStreamWriteBytesAsync - --- method OutputStream::write_bytes_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_output_stream_write_bytes_finish" g_output_stream_write_bytes_finish :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO Int64 - - -outputStreamWriteBytesFinish :: - (MonadIO m, OutputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m Int64 -- result -outputStreamWriteBytesFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_output_stream_write_bytes_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return result - ) (do - return () - ) - -data OutputStreamWriteBytesFinishMethodInfo -instance (signature ~ (b -> m Int64), MonadIO m, OutputStreamK a, AsyncResultK b) => MethodInfo OutputStreamWriteBytesFinishMethodInfo a signature where - overloadedMethod _ = outputStreamWriteBytesFinish - --- method OutputStream::write_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_output_stream_write_finish" g_output_stream_write_finish :: - Ptr OutputStream -> -- _obj : TInterface "Gio" "OutputStream" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO Int64 - - -outputStreamWriteFinish :: - (MonadIO m, OutputStreamK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m Int64 -- result -outputStreamWriteFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_output_stream_write_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return result - ) (do - return () - ) - -data OutputStreamWriteFinishMethodInfo -instance (signature ~ (b -> m Int64), MonadIO m, OutputStreamK a, AsyncResultK b) => MethodInfo OutputStreamWriteFinishMethodInfo a signature where - overloadedMethod _ = outputStreamWriteFinish - - diff --git a/GI/Gio/Objects/OutputStream.hs-boot b/GI/Gio/Objects/OutputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/OutputStream.hs-boot +++ /dev/null @@ -1,36 +0,0 @@ -module GI.Gio.Objects.OutputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype OutputStream = OutputStream (ForeignPtr OutputStream) -instance GObject OutputStream where -class GObject o => OutputStreamK o -instance (GObject o, IsDescendantOf OutputStream o) => OutputStreamK o -data OutputStreamClearPendingMethodInfo -data OutputStreamCloseMethodInfo -data OutputStreamCloseAsyncMethodInfo -data OutputStreamCloseFinishMethodInfo -data OutputStreamFlushMethodInfo -data OutputStreamFlushAsyncMethodInfo -data OutputStreamFlushFinishMethodInfo -data OutputStreamHasPendingMethodInfo -data OutputStreamIsClosedMethodInfo -data OutputStreamIsClosingMethodInfo -data OutputStreamSetPendingMethodInfo -data OutputStreamSpliceMethodInfo -data OutputStreamSpliceAsyncMethodInfo -data OutputStreamSpliceFinishMethodInfo -data OutputStreamWriteMethodInfo -data OutputStreamWriteAllMethodInfo -data OutputStreamWriteAllAsyncMethodInfo -data OutputStreamWriteAllFinishMethodInfo -data OutputStreamWriteAsyncMethodInfo -data OutputStreamWriteBytesMethodInfo -data OutputStreamWriteBytesAsyncMethodInfo -data OutputStreamWriteBytesFinishMethodInfo -data OutputStreamWriteFinishMethodInfo diff --git a/GI/Gio/Objects/Permission.hs b/GI/Gio/Objects/Permission.hs deleted file mode 100644 --- a/GI/Gio/Objects/Permission.hs +++ /dev/null @@ -1,609 +0,0 @@ - - -{- | -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.Objects.Permission - ( - --- * Exported types - Permission(..) , - PermissionK , - toPermission , - noPermission , - - - -- * Methods --- ** permissionAcquire - PermissionAcquireMethodInfo , - permissionAcquire , - - --- ** permissionAcquireAsync - PermissionAcquireAsyncMethodInfo , - permissionAcquireAsync , - - --- ** permissionAcquireFinish - PermissionAcquireFinishMethodInfo , - permissionAcquireFinish , - - --- ** permissionGetAllowed - PermissionGetAllowedMethodInfo , - permissionGetAllowed , - - --- ** permissionGetCanAcquire - PermissionGetCanAcquireMethodInfo , - permissionGetCanAcquire , - - --- ** permissionGetCanRelease - PermissionGetCanReleaseMethodInfo , - permissionGetCanRelease , - - --- ** permissionImplUpdate - PermissionImplUpdateMethodInfo , - permissionImplUpdate , - - --- ** permissionRelease - PermissionReleaseMethodInfo , - permissionRelease , - - --- ** permissionReleaseAsync - PermissionReleaseAsyncMethodInfo , - permissionReleaseAsync , - - --- ** permissionReleaseFinish - PermissionReleaseFinishMethodInfo , - permissionReleaseFinish , - - - - - -- * Properties --- ** Allowed - PermissionAllowedPropertyInfo , - getPermissionAllowed , - permissionAllowed , - - --- ** CanAcquire - PermissionCanAcquirePropertyInfo , - getPermissionCanAcquire , - permissionCanAcquire , - - --- ** CanRelease - PermissionCanReleasePropertyInfo , - getPermissionCanRelease , - permissionCanRelease , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype Permission = Permission (ForeignPtr Permission) -foreign import ccall "g_permission_get_type" - c_g_permission_get_type :: IO GType - -type instance ParentTypes Permission = PermissionParentTypes -type PermissionParentTypes = '[GObject.Object] - -instance GObject Permission where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_permission_get_type - - -class GObject o => PermissionK o -instance (GObject o, IsDescendantOf Permission o) => PermissionK o - -toPermission :: PermissionK o => o -> IO Permission -toPermission = unsafeCastTo Permission - -noPermission :: Maybe Permission -noPermission = Nothing - -type family ResolvePermissionMethod (t :: Symbol) (o :: *) :: * where - ResolvePermissionMethod "acquire" o = PermissionAcquireMethodInfo - ResolvePermissionMethod "acquireAsync" o = PermissionAcquireAsyncMethodInfo - ResolvePermissionMethod "acquireFinish" o = PermissionAcquireFinishMethodInfo - ResolvePermissionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePermissionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePermissionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePermissionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePermissionMethod "implUpdate" o = PermissionImplUpdateMethodInfo - ResolvePermissionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePermissionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePermissionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePermissionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePermissionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePermissionMethod "release" o = PermissionReleaseMethodInfo - ResolvePermissionMethod "releaseAsync" o = PermissionReleaseAsyncMethodInfo - ResolvePermissionMethod "releaseFinish" o = PermissionReleaseFinishMethodInfo - ResolvePermissionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePermissionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePermissionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePermissionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePermissionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePermissionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePermissionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePermissionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePermissionMethod "getAllowed" o = PermissionGetAllowedMethodInfo - ResolvePermissionMethod "getCanAcquire" o = PermissionGetCanAcquireMethodInfo - ResolvePermissionMethod "getCanRelease" o = PermissionGetCanReleaseMethodInfo - ResolvePermissionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePermissionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePermissionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePermissionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePermissionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePermissionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePermissionMethod t Permission, MethodInfo info Permission p) => IsLabelProxy t (Permission -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePermissionMethod t Permission, MethodInfo info Permission p) => IsLabel t (Permission -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "allowed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getPermissionAllowed :: (MonadIO m, PermissionK o) => o -> m Bool -getPermissionAllowed obj = liftIO $ getObjectPropertyBool obj "allowed" - -data PermissionAllowedPropertyInfo -instance AttrInfo PermissionAllowedPropertyInfo where - type AttrAllowedOps PermissionAllowedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint PermissionAllowedPropertyInfo = (~) () - type AttrBaseTypeConstraint PermissionAllowedPropertyInfo = PermissionK - type AttrGetType PermissionAllowedPropertyInfo = Bool - type AttrLabel PermissionAllowedPropertyInfo = "allowed" - attrGet _ = getPermissionAllowed - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "can-acquire" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getPermissionCanAcquire :: (MonadIO m, PermissionK o) => o -> m Bool -getPermissionCanAcquire obj = liftIO $ getObjectPropertyBool obj "can-acquire" - -data PermissionCanAcquirePropertyInfo -instance AttrInfo PermissionCanAcquirePropertyInfo where - type AttrAllowedOps PermissionCanAcquirePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint PermissionCanAcquirePropertyInfo = (~) () - type AttrBaseTypeConstraint PermissionCanAcquirePropertyInfo = PermissionK - type AttrGetType PermissionCanAcquirePropertyInfo = Bool - type AttrLabel PermissionCanAcquirePropertyInfo = "can-acquire" - attrGet _ = getPermissionCanAcquire - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "can-release" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getPermissionCanRelease :: (MonadIO m, PermissionK o) => o -> m Bool -getPermissionCanRelease obj = liftIO $ getObjectPropertyBool obj "can-release" - -data PermissionCanReleasePropertyInfo -instance AttrInfo PermissionCanReleasePropertyInfo where - type AttrAllowedOps PermissionCanReleasePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint PermissionCanReleasePropertyInfo = (~) () - type AttrBaseTypeConstraint PermissionCanReleasePropertyInfo = PermissionK - type AttrGetType PermissionCanReleasePropertyInfo = Bool - type AttrLabel PermissionCanReleasePropertyInfo = "can-release" - attrGet _ = getPermissionCanRelease - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList Permission = PermissionAttributeList -type PermissionAttributeList = ('[ '("allowed", PermissionAllowedPropertyInfo), '("canAcquire", PermissionCanAcquirePropertyInfo), '("canRelease", PermissionCanReleasePropertyInfo)] :: [(Symbol, *)]) - -permissionAllowed :: AttrLabelProxy "allowed" -permissionAllowed = AttrLabelProxy - -permissionCanAcquire :: AttrLabelProxy "canAcquire" -permissionCanAcquire = AttrLabelProxy - -permissionCanRelease :: AttrLabelProxy "canRelease" -permissionCanRelease = AttrLabelProxy - -type instance SignalList Permission = PermissionSignalList -type PermissionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Permission::acquire --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_permission_acquire" g_permission_acquire :: - Ptr Permission -> -- _obj : TInterface "Gio" "Permission" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -permissionAcquire :: - (MonadIO m, PermissionK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -permissionAcquire _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_permission_acquire _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data PermissionAcquireMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, PermissionK a, CancellableK b) => MethodInfo PermissionAcquireMethodInfo a signature where - overloadedMethod _ = permissionAcquire - --- method Permission::acquire_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_permission_acquire_async" g_permission_acquire_async :: - Ptr Permission -> -- _obj : TInterface "Gio" "Permission" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -permissionAcquireAsync :: - (MonadIO m, PermissionK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -permissionAcquireAsync _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_permission_acquire_async _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data PermissionAcquireAsyncMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, PermissionK a, CancellableK b) => MethodInfo PermissionAcquireAsyncMethodInfo a signature where - overloadedMethod _ = permissionAcquireAsync - --- method Permission::acquire_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_permission_acquire_finish" g_permission_acquire_finish :: - Ptr Permission -> -- _obj : TInterface "Gio" "Permission" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -permissionAcquireFinish :: - (MonadIO m, PermissionK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -permissionAcquireFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_permission_acquire_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data PermissionAcquireFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, PermissionK a, AsyncResultK b) => MethodInfo PermissionAcquireFinishMethodInfo a signature where - overloadedMethod _ = permissionAcquireFinish - --- method Permission::get_allowed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_permission_get_allowed" g_permission_get_allowed :: - Ptr Permission -> -- _obj : TInterface "Gio" "Permission" - IO CInt - - -permissionGetAllowed :: - (MonadIO m, PermissionK a) => - a -- _obj - -> m Bool -- result -permissionGetAllowed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_permission_get_allowed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PermissionGetAllowedMethodInfo -instance (signature ~ (m Bool), MonadIO m, PermissionK a) => MethodInfo PermissionGetAllowedMethodInfo a signature where - overloadedMethod _ = permissionGetAllowed - --- method Permission::get_can_acquire --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_permission_get_can_acquire" g_permission_get_can_acquire :: - Ptr Permission -> -- _obj : TInterface "Gio" "Permission" - IO CInt - - -permissionGetCanAcquire :: - (MonadIO m, PermissionK a) => - a -- _obj - -> m Bool -- result -permissionGetCanAcquire _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_permission_get_can_acquire _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PermissionGetCanAcquireMethodInfo -instance (signature ~ (m Bool), MonadIO m, PermissionK a) => MethodInfo PermissionGetCanAcquireMethodInfo a signature where - overloadedMethod _ = permissionGetCanAcquire - --- method Permission::get_can_release --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_permission_get_can_release" g_permission_get_can_release :: - Ptr Permission -> -- _obj : TInterface "Gio" "Permission" - IO CInt - - -permissionGetCanRelease :: - (MonadIO m, PermissionK a) => - a -- _obj - -> m Bool -- result -permissionGetCanRelease _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_permission_get_can_release _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data PermissionGetCanReleaseMethodInfo -instance (signature ~ (m Bool), MonadIO m, PermissionK a) => MethodInfo PermissionGetCanReleaseMethodInfo a signature where - overloadedMethod _ = permissionGetCanRelease - --- method Permission::impl_update --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_acquire", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "can_release", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_permission_impl_update" g_permission_impl_update :: - Ptr Permission -> -- _obj : TInterface "Gio" "Permission" - CInt -> -- allowed : TBasicType TBoolean - CInt -> -- can_acquire : TBasicType TBoolean - CInt -> -- can_release : TBasicType TBoolean - IO () - - -permissionImplUpdate :: - (MonadIO m, PermissionK a) => - a -- _obj - -> Bool -- allowed - -> Bool -- canAcquire - -> Bool -- canRelease - -> m () -- result -permissionImplUpdate _obj allowed canAcquire canRelease = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let allowed' = (fromIntegral . fromEnum) allowed - let canAcquire' = (fromIntegral . fromEnum) canAcquire - let canRelease' = (fromIntegral . fromEnum) canRelease - g_permission_impl_update _obj' allowed' canAcquire' canRelease' - touchManagedPtr _obj - return () - -data PermissionImplUpdateMethodInfo -instance (signature ~ (Bool -> Bool -> Bool -> m ()), MonadIO m, PermissionK a) => MethodInfo PermissionImplUpdateMethodInfo a signature where - overloadedMethod _ = permissionImplUpdate - --- method Permission::release --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_permission_release" g_permission_release :: - Ptr Permission -> -- _obj : TInterface "Gio" "Permission" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -permissionRelease :: - (MonadIO m, PermissionK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -permissionRelease _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_permission_release _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data PermissionReleaseMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, PermissionK a, CancellableK b) => MethodInfo PermissionReleaseMethodInfo a signature where - overloadedMethod _ = permissionRelease - --- method Permission::release_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_permission_release_async" g_permission_release_async :: - Ptr Permission -> -- _obj : TInterface "Gio" "Permission" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -permissionReleaseAsync :: - (MonadIO m, PermissionK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -permissionReleaseAsync _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_permission_release_async _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data PermissionReleaseAsyncMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, PermissionK a, CancellableK b) => MethodInfo PermissionReleaseAsyncMethodInfo a signature where - overloadedMethod _ = permissionReleaseAsync - --- method Permission::release_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Permission", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_permission_release_finish" g_permission_release_finish :: - Ptr Permission -> -- _obj : TInterface "Gio" "Permission" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -permissionReleaseFinish :: - (MonadIO m, PermissionK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -permissionReleaseFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_permission_release_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data PermissionReleaseFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, PermissionK a, AsyncResultK b) => MethodInfo PermissionReleaseFinishMethodInfo a signature where - overloadedMethod _ = permissionReleaseFinish - - diff --git a/GI/Gio/Objects/Permission.hs-boot b/GI/Gio/Objects/Permission.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/Permission.hs-boot +++ /dev/null @@ -1,26 +0,0 @@ -module GI.Gio.Objects.Permission where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Permission = Permission (ForeignPtr Permission) -instance GObject Permission where -class GObject o => PermissionK o -instance (GObject o, IsDescendantOf Permission o) => PermissionK o -data PermissionAllowedPropertyInfo -data PermissionCanAcquirePropertyInfo -data PermissionCanReleasePropertyInfo -data PermissionAcquireMethodInfo -data PermissionAcquireAsyncMethodInfo -data PermissionAcquireFinishMethodInfo -data PermissionGetAllowedMethodInfo -data PermissionGetCanAcquireMethodInfo -data PermissionGetCanReleaseMethodInfo -data PermissionImplUpdateMethodInfo -data PermissionReleaseMethodInfo -data PermissionReleaseAsyncMethodInfo -data PermissionReleaseFinishMethodInfo diff --git a/GI/Gio/Objects/PropertyAction.hs b/GI/Gio/Objects/PropertyAction.hs deleted file mode 100644 --- a/GI/Gio/Objects/PropertyAction.hs +++ /dev/null @@ -1,387 +0,0 @@ - - -{- | -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.Objects.PropertyAction - ( - --- * Exported types - PropertyAction(..) , - PropertyActionK , - toPropertyAction , - noPropertyAction , - - - -- * Methods --- ** propertyActionNew - propertyActionNew , - - - - - -- * Properties --- ** Enabled - PropertyActionEnabledPropertyInfo , - getPropertyActionEnabled , - propertyActionEnabled , - - --- ** InvertBoolean - PropertyActionInvertBooleanPropertyInfo , - constructPropertyActionInvertBoolean , - getPropertyActionInvertBoolean , - propertyActionInvertBoolean , - - --- ** Name - PropertyActionNamePropertyInfo , - constructPropertyActionName , - getPropertyActionName , - propertyActionName , - - --- ** Object - PropertyActionObjectPropertyInfo , - constructPropertyActionObject , - propertyActionObject , - - --- ** ParameterType - PropertyActionParameterTypePropertyInfo , - getPropertyActionParameterType , - propertyActionParameterType , - - --- ** PropertyName - PropertyActionPropertyNamePropertyInfo , - constructPropertyActionPropertyName , - propertyActionPropertyName , - - --- ** State - PropertyActionStatePropertyInfo , - getPropertyActionState , - propertyActionState , - - --- ** StateType - PropertyActionStateTypePropertyInfo , - getPropertyActionStateType , - propertyActionStateType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype PropertyAction = PropertyAction (ForeignPtr PropertyAction) -foreign import ccall "g_property_action_get_type" - c_g_property_action_get_type :: IO GType - -type instance ParentTypes PropertyAction = PropertyActionParentTypes -type PropertyActionParentTypes = '[GObject.Object, Action] - -instance GObject PropertyAction where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_property_action_get_type - - -class GObject o => PropertyActionK o -instance (GObject o, IsDescendantOf PropertyAction o) => PropertyActionK o - -toPropertyAction :: PropertyActionK o => o -> IO PropertyAction -toPropertyAction = unsafeCastTo PropertyAction - -noPropertyAction :: Maybe PropertyAction -noPropertyAction = Nothing - -type family ResolvePropertyActionMethod (t :: Symbol) (o :: *) :: * where - ResolvePropertyActionMethod "activate" o = ActionActivateMethodInfo - ResolvePropertyActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePropertyActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePropertyActionMethod "changeState" o = ActionChangeStateMethodInfo - ResolvePropertyActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePropertyActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePropertyActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePropertyActionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePropertyActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePropertyActionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePropertyActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePropertyActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePropertyActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePropertyActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePropertyActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePropertyActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePropertyActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePropertyActionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePropertyActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePropertyActionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePropertyActionMethod "getEnabled" o = ActionGetEnabledMethodInfo - ResolvePropertyActionMethod "getName" o = ActionGetNameMethodInfo - ResolvePropertyActionMethod "getParameterType" o = ActionGetParameterTypeMethodInfo - ResolvePropertyActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePropertyActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePropertyActionMethod "getState" o = ActionGetStateMethodInfo - ResolvePropertyActionMethod "getStateHint" o = ActionGetStateHintMethodInfo - ResolvePropertyActionMethod "getStateType" o = ActionGetStateTypeMethodInfo - ResolvePropertyActionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePropertyActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePropertyActionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePropertyActionMethod t PropertyAction, MethodInfo info PropertyAction p) => IsLabelProxy t (PropertyAction -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePropertyActionMethod t PropertyAction, MethodInfo info PropertyAction p) => IsLabel t (PropertyAction -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - ---- XXX Duplicated object with different types: - --- Name {namespace = "Gio", name = "PropertyAction"} -> Property {propName = "name", propType = TBasicType TUTF8, propFlags = [PropertyReadable,PropertyWritable,PropertyConstructOnly], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "name", propType = TBasicType TUTF8, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} --- VVV Prop "enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getPropertyActionEnabled :: (MonadIO m, PropertyActionK o) => o -> m Bool -getPropertyActionEnabled obj = liftIO $ getObjectPropertyBool obj "enabled" - -data PropertyActionEnabledPropertyInfo -instance AttrInfo PropertyActionEnabledPropertyInfo where - type AttrAllowedOps PropertyActionEnabledPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint PropertyActionEnabledPropertyInfo = (~) () - type AttrBaseTypeConstraint PropertyActionEnabledPropertyInfo = PropertyActionK - type AttrGetType PropertyActionEnabledPropertyInfo = Bool - type AttrLabel PropertyActionEnabledPropertyInfo = "enabled" - attrGet _ = getPropertyActionEnabled - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "invert-boolean" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getPropertyActionInvertBoolean :: (MonadIO m, PropertyActionK o) => o -> m Bool -getPropertyActionInvertBoolean obj = liftIO $ getObjectPropertyBool obj "invert-boolean" - -constructPropertyActionInvertBoolean :: Bool -> IO ([Char], GValue) -constructPropertyActionInvertBoolean val = constructObjectPropertyBool "invert-boolean" val - -data PropertyActionInvertBooleanPropertyInfo -instance AttrInfo PropertyActionInvertBooleanPropertyInfo where - type AttrAllowedOps PropertyActionInvertBooleanPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint PropertyActionInvertBooleanPropertyInfo = (~) Bool - type AttrBaseTypeConstraint PropertyActionInvertBooleanPropertyInfo = PropertyActionK - type AttrGetType PropertyActionInvertBooleanPropertyInfo = Bool - type AttrLabel PropertyActionInvertBooleanPropertyInfo = "invert-boolean" - attrGet _ = getPropertyActionInvertBoolean - attrSet _ = undefined - attrConstruct _ = constructPropertyActionInvertBoolean - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getPropertyActionName :: (MonadIO m, PropertyActionK o) => o -> m (Maybe T.Text) -getPropertyActionName obj = liftIO $ getObjectPropertyString obj "name" - -constructPropertyActionName :: T.Text -> IO ([Char], GValue) -constructPropertyActionName val = constructObjectPropertyString "name" (Just val) - -data PropertyActionNamePropertyInfo -instance AttrInfo PropertyActionNamePropertyInfo where - type AttrAllowedOps PropertyActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PropertyActionNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint PropertyActionNamePropertyInfo = PropertyActionK - type AttrGetType PropertyActionNamePropertyInfo = (Maybe T.Text) - type AttrLabel PropertyActionNamePropertyInfo = "name" - attrGet _ = getPropertyActionName - attrSet _ = undefined - attrConstruct _ = constructPropertyActionName - attrClear _ = undefined - --- VVV Prop "object" - -- Type: TInterface "GObject" "Object" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructPropertyActionObject :: (GObject.ObjectK a) => a -> IO ([Char], GValue) -constructPropertyActionObject val = constructObjectPropertyObject "object" (Just val) - -data PropertyActionObjectPropertyInfo -instance AttrInfo PropertyActionObjectPropertyInfo where - type AttrAllowedOps PropertyActionObjectPropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint PropertyActionObjectPropertyInfo = GObject.ObjectK - type AttrBaseTypeConstraint PropertyActionObjectPropertyInfo = PropertyActionK - type AttrGetType PropertyActionObjectPropertyInfo = () - type AttrLabel PropertyActionObjectPropertyInfo = "object" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructPropertyActionObject - attrClear _ = undefined - --- VVV Prop "parameter-type" - -- Type: TInterface "GLib" "VariantType" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getPropertyActionParameterType :: (MonadIO m, PropertyActionK o) => o -> m (Maybe GLib.VariantType) -getPropertyActionParameterType obj = liftIO $ getObjectPropertyBoxed obj "parameter-type" GLib.VariantType - -data PropertyActionParameterTypePropertyInfo -instance AttrInfo PropertyActionParameterTypePropertyInfo where - type AttrAllowedOps PropertyActionParameterTypePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PropertyActionParameterTypePropertyInfo = (~) () - type AttrBaseTypeConstraint PropertyActionParameterTypePropertyInfo = PropertyActionK - type AttrGetType PropertyActionParameterTypePropertyInfo = (Maybe GLib.VariantType) - type AttrLabel PropertyActionParameterTypePropertyInfo = "parameter-type" - attrGet _ = getPropertyActionParameterType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "property-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructPropertyActionPropertyName :: T.Text -> IO ([Char], GValue) -constructPropertyActionPropertyName val = constructObjectPropertyString "property-name" (Just val) - -data PropertyActionPropertyNamePropertyInfo -instance AttrInfo PropertyActionPropertyNamePropertyInfo where - type AttrAllowedOps PropertyActionPropertyNamePropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint PropertyActionPropertyNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint PropertyActionPropertyNamePropertyInfo = PropertyActionK - type AttrGetType PropertyActionPropertyNamePropertyInfo = () - type AttrLabel PropertyActionPropertyNamePropertyInfo = "property-name" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructPropertyActionPropertyName - attrClear _ = undefined - --- VVV Prop "state" - -- Type: TVariant - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getPropertyActionState :: (MonadIO m, PropertyActionK o) => o -> m (Maybe GVariant) -getPropertyActionState obj = liftIO $ getObjectPropertyVariant obj "state" - -data PropertyActionStatePropertyInfo -instance AttrInfo PropertyActionStatePropertyInfo where - type AttrAllowedOps PropertyActionStatePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PropertyActionStatePropertyInfo = (~) () - type AttrBaseTypeConstraint PropertyActionStatePropertyInfo = PropertyActionK - type AttrGetType PropertyActionStatePropertyInfo = (Maybe GVariant) - type AttrLabel PropertyActionStatePropertyInfo = "state" - attrGet _ = getPropertyActionState - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "state-type" - -- Type: TInterface "GLib" "VariantType" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getPropertyActionStateType :: (MonadIO m, PropertyActionK o) => o -> m (Maybe GLib.VariantType) -getPropertyActionStateType obj = liftIO $ getObjectPropertyBoxed obj "state-type" GLib.VariantType - -data PropertyActionStateTypePropertyInfo -instance AttrInfo PropertyActionStateTypePropertyInfo where - type AttrAllowedOps PropertyActionStateTypePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint PropertyActionStateTypePropertyInfo = (~) () - type AttrBaseTypeConstraint PropertyActionStateTypePropertyInfo = PropertyActionK - type AttrGetType PropertyActionStateTypePropertyInfo = (Maybe GLib.VariantType) - type AttrLabel PropertyActionStateTypePropertyInfo = "state-type" - attrGet _ = getPropertyActionStateType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList PropertyAction = PropertyActionAttributeList -type PropertyActionAttributeList = ('[ '("enabled", PropertyActionEnabledPropertyInfo), '("invertBoolean", PropertyActionInvertBooleanPropertyInfo), '("object", PropertyActionObjectPropertyInfo), '("parameterType", PropertyActionParameterTypePropertyInfo), '("propertyName", PropertyActionPropertyNamePropertyInfo), '("state", PropertyActionStatePropertyInfo), '("stateType", PropertyActionStateTypePropertyInfo)] :: [(Symbol, *)]) - -propertyActionEnabled :: AttrLabelProxy "enabled" -propertyActionEnabled = AttrLabelProxy - -propertyActionInvertBoolean :: AttrLabelProxy "invertBoolean" -propertyActionInvertBoolean = AttrLabelProxy - -propertyActionName :: AttrLabelProxy "name" -propertyActionName = AttrLabelProxy - -propertyActionObject :: AttrLabelProxy "object" -propertyActionObject = AttrLabelProxy - -propertyActionParameterType :: AttrLabelProxy "parameterType" -propertyActionParameterType = AttrLabelProxy - -propertyActionPropertyName :: AttrLabelProxy "propertyName" -propertyActionPropertyName = AttrLabelProxy - -propertyActionState :: AttrLabelProxy "state" -propertyActionState = AttrLabelProxy - -propertyActionStateType :: AttrLabelProxy "stateType" -propertyActionStateType = AttrLabelProxy - -type instance SignalList PropertyAction = PropertyActionSignalList -type PropertyActionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method PropertyAction::new --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "PropertyAction") --- throws : False --- Skip return : False - -foreign import ccall "g_property_action_new" g_property_action_new :: - CString -> -- name : TBasicType TUTF8 - Ptr GObject.Object -> -- object : TInterface "GObject" "Object" - CString -> -- property_name : TBasicType TUTF8 - IO (Ptr PropertyAction) - - -propertyActionNew :: - (MonadIO m, GObject.ObjectK a) => - T.Text -- name - -> a -- object - -> T.Text -- propertyName - -> m PropertyAction -- result -propertyActionNew name object propertyName = liftIO $ do - name' <- textToCString name - let object' = unsafeManagedPtrCastPtr object - propertyName' <- textToCString propertyName - result <- g_property_action_new name' object' propertyName' - checkUnexpectedReturnNULL "g_property_action_new" result - result' <- (wrapObject PropertyAction) result - touchManagedPtr object - freeMem name' - freeMem propertyName' - return result' - - diff --git a/GI/Gio/Objects/PropertyAction.hs-boot b/GI/Gio/Objects/PropertyAction.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/PropertyAction.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gio.Objects.PropertyAction where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype PropertyAction = PropertyAction (ForeignPtr PropertyAction) -instance GObject PropertyAction where -class GObject o => PropertyActionK o -instance (GObject o, IsDescendantOf PropertyAction o) => PropertyActionK o -data PropertyActionEnabledPropertyInfo -data PropertyActionInvertBooleanPropertyInfo -data PropertyActionNamePropertyInfo -data PropertyActionObjectPropertyInfo -data PropertyActionParameterTypePropertyInfo -data PropertyActionPropertyNamePropertyInfo -data PropertyActionStatePropertyInfo -data PropertyActionStateTypePropertyInfo diff --git a/GI/Gio/Objects/ProxyAddress.hs b/GI/Gio/Objects/ProxyAddress.hs deleted file mode 100644 --- a/GI/Gio/Objects/ProxyAddress.hs +++ /dev/null @@ -1,638 +0,0 @@ - - -{- | -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.Objects.ProxyAddress - ( - --- * Exported types - ProxyAddress(..) , - ProxyAddressK , - toProxyAddress , - noProxyAddress , - - - -- * Methods --- ** proxyAddressGetDestinationHostname - ProxyAddressGetDestinationHostnameMethodInfo, - proxyAddressGetDestinationHostname , - - --- ** proxyAddressGetDestinationPort - ProxyAddressGetDestinationPortMethodInfo, - proxyAddressGetDestinationPort , - - --- ** proxyAddressGetDestinationProtocol - ProxyAddressGetDestinationProtocolMethodInfo, - proxyAddressGetDestinationProtocol , - - --- ** proxyAddressGetPassword - ProxyAddressGetPasswordMethodInfo , - proxyAddressGetPassword , - - --- ** proxyAddressGetProtocol - ProxyAddressGetProtocolMethodInfo , - proxyAddressGetProtocol , - - --- ** proxyAddressGetUri - ProxyAddressGetUriMethodInfo , - proxyAddressGetUri , - - --- ** proxyAddressGetUsername - ProxyAddressGetUsernameMethodInfo , - proxyAddressGetUsername , - - --- ** proxyAddressNew - proxyAddressNew , - - - - - -- * Properties --- ** DestinationHostname - ProxyAddressDestinationHostnamePropertyInfo, - constructProxyAddressDestinationHostname, - getProxyAddressDestinationHostname , - proxyAddressDestinationHostname , - - --- ** DestinationPort - ProxyAddressDestinationPortPropertyInfo , - constructProxyAddressDestinationPort , - getProxyAddressDestinationPort , - proxyAddressDestinationPort , - - --- ** DestinationProtocol - ProxyAddressDestinationProtocolPropertyInfo, - constructProxyAddressDestinationProtocol, - getProxyAddressDestinationProtocol , - proxyAddressDestinationProtocol , - - --- ** Password - ProxyAddressPasswordPropertyInfo , - constructProxyAddressPassword , - getProxyAddressPassword , - proxyAddressPassword , - - --- ** Protocol - ProxyAddressProtocolPropertyInfo , - constructProxyAddressProtocol , - getProxyAddressProtocol , - proxyAddressProtocol , - - --- ** Uri - ProxyAddressUriPropertyInfo , - constructProxyAddressUri , - getProxyAddressUri , - proxyAddressUri , - - --- ** Username - ProxyAddressUsernamePropertyInfo , - constructProxyAddressUsername , - getProxyAddressUsername , - proxyAddressUsername , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype ProxyAddress = ProxyAddress (ForeignPtr ProxyAddress) -foreign import ccall "g_proxy_address_get_type" - c_g_proxy_address_get_type :: IO GType - -type instance ParentTypes ProxyAddress = ProxyAddressParentTypes -type ProxyAddressParentTypes = '[InetSocketAddress, SocketAddress, GObject.Object, SocketConnectable] - -instance GObject ProxyAddress where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_proxy_address_get_type - - -class GObject o => ProxyAddressK o -instance (GObject o, IsDescendantOf ProxyAddress o) => ProxyAddressK o - -toProxyAddress :: ProxyAddressK o => o -> IO ProxyAddress -toProxyAddress = unsafeCastTo ProxyAddress - -noProxyAddress :: Maybe ProxyAddress -noProxyAddress = Nothing - -type family ResolveProxyAddressMethod (t :: Symbol) (o :: *) :: * where - ResolveProxyAddressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveProxyAddressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveProxyAddressMethod "enumerate" o = SocketConnectableEnumerateMethodInfo - ResolveProxyAddressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveProxyAddressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveProxyAddressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveProxyAddressMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveProxyAddressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveProxyAddressMethod "proxyEnumerate" o = SocketConnectableProxyEnumerateMethodInfo - ResolveProxyAddressMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveProxyAddressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveProxyAddressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveProxyAddressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveProxyAddressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveProxyAddressMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveProxyAddressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveProxyAddressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveProxyAddressMethod "toNative" o = SocketAddressToNativeMethodInfo - ResolveProxyAddressMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveProxyAddressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveProxyAddressMethod "getAddress" o = InetSocketAddressGetAddressMethodInfo - ResolveProxyAddressMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveProxyAddressMethod "getDestinationHostname" o = ProxyAddressGetDestinationHostnameMethodInfo - ResolveProxyAddressMethod "getDestinationPort" o = ProxyAddressGetDestinationPortMethodInfo - ResolveProxyAddressMethod "getDestinationProtocol" o = ProxyAddressGetDestinationProtocolMethodInfo - ResolveProxyAddressMethod "getFamily" o = SocketAddressGetFamilyMethodInfo - ResolveProxyAddressMethod "getFlowinfo" o = InetSocketAddressGetFlowinfoMethodInfo - ResolveProxyAddressMethod "getNativeSize" o = SocketAddressGetNativeSizeMethodInfo - ResolveProxyAddressMethod "getPassword" o = ProxyAddressGetPasswordMethodInfo - ResolveProxyAddressMethod "getPort" o = InetSocketAddressGetPortMethodInfo - ResolveProxyAddressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveProxyAddressMethod "getProtocol" o = ProxyAddressGetProtocolMethodInfo - ResolveProxyAddressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveProxyAddressMethod "getScopeId" o = InetSocketAddressGetScopeIdMethodInfo - ResolveProxyAddressMethod "getUri" o = ProxyAddressGetUriMethodInfo - ResolveProxyAddressMethod "getUsername" o = ProxyAddressGetUsernameMethodInfo - ResolveProxyAddressMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveProxyAddressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveProxyAddressMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveProxyAddressMethod t ProxyAddress, MethodInfo info ProxyAddress p) => IsLabelProxy t (ProxyAddress -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveProxyAddressMethod t ProxyAddress, MethodInfo info ProxyAddress p) => IsLabel t (ProxyAddress -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "destination-hostname" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getProxyAddressDestinationHostname :: (MonadIO m, ProxyAddressK o) => o -> m T.Text -getProxyAddressDestinationHostname obj = liftIO $ checkUnexpectedNothing "getProxyAddressDestinationHostname" $ getObjectPropertyString obj "destination-hostname" - -constructProxyAddressDestinationHostname :: T.Text -> IO ([Char], GValue) -constructProxyAddressDestinationHostname val = constructObjectPropertyString "destination-hostname" (Just val) - -data ProxyAddressDestinationHostnamePropertyInfo -instance AttrInfo ProxyAddressDestinationHostnamePropertyInfo where - type AttrAllowedOps ProxyAddressDestinationHostnamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ProxyAddressDestinationHostnamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ProxyAddressDestinationHostnamePropertyInfo = ProxyAddressK - type AttrGetType ProxyAddressDestinationHostnamePropertyInfo = T.Text - type AttrLabel ProxyAddressDestinationHostnamePropertyInfo = "destination-hostname" - attrGet _ = getProxyAddressDestinationHostname - attrSet _ = undefined - attrConstruct _ = constructProxyAddressDestinationHostname - attrClear _ = undefined - --- VVV Prop "destination-port" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getProxyAddressDestinationPort :: (MonadIO m, ProxyAddressK o) => o -> m Word32 -getProxyAddressDestinationPort obj = liftIO $ getObjectPropertyUInt32 obj "destination-port" - -constructProxyAddressDestinationPort :: Word32 -> IO ([Char], GValue) -constructProxyAddressDestinationPort val = constructObjectPropertyUInt32 "destination-port" val - -data ProxyAddressDestinationPortPropertyInfo -instance AttrInfo ProxyAddressDestinationPortPropertyInfo where - type AttrAllowedOps ProxyAddressDestinationPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ProxyAddressDestinationPortPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint ProxyAddressDestinationPortPropertyInfo = ProxyAddressK - type AttrGetType ProxyAddressDestinationPortPropertyInfo = Word32 - type AttrLabel ProxyAddressDestinationPortPropertyInfo = "destination-port" - attrGet _ = getProxyAddressDestinationPort - attrSet _ = undefined - attrConstruct _ = constructProxyAddressDestinationPort - attrClear _ = undefined - --- VVV Prop "destination-protocol" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getProxyAddressDestinationProtocol :: (MonadIO m, ProxyAddressK o) => o -> m T.Text -getProxyAddressDestinationProtocol obj = liftIO $ checkUnexpectedNothing "getProxyAddressDestinationProtocol" $ getObjectPropertyString obj "destination-protocol" - -constructProxyAddressDestinationProtocol :: T.Text -> IO ([Char], GValue) -constructProxyAddressDestinationProtocol val = constructObjectPropertyString "destination-protocol" (Just val) - -data ProxyAddressDestinationProtocolPropertyInfo -instance AttrInfo ProxyAddressDestinationProtocolPropertyInfo where - type AttrAllowedOps ProxyAddressDestinationProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ProxyAddressDestinationProtocolPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ProxyAddressDestinationProtocolPropertyInfo = ProxyAddressK - type AttrGetType ProxyAddressDestinationProtocolPropertyInfo = T.Text - type AttrLabel ProxyAddressDestinationProtocolPropertyInfo = "destination-protocol" - attrGet _ = getProxyAddressDestinationProtocol - attrSet _ = undefined - attrConstruct _ = constructProxyAddressDestinationProtocol - attrClear _ = undefined - --- VVV Prop "password" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getProxyAddressPassword :: (MonadIO m, ProxyAddressK o) => o -> m T.Text -getProxyAddressPassword obj = liftIO $ checkUnexpectedNothing "getProxyAddressPassword" $ getObjectPropertyString obj "password" - -constructProxyAddressPassword :: T.Text -> IO ([Char], GValue) -constructProxyAddressPassword val = constructObjectPropertyString "password" (Just val) - -data ProxyAddressPasswordPropertyInfo -instance AttrInfo ProxyAddressPasswordPropertyInfo where - type AttrAllowedOps ProxyAddressPasswordPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ProxyAddressPasswordPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ProxyAddressPasswordPropertyInfo = ProxyAddressK - type AttrGetType ProxyAddressPasswordPropertyInfo = T.Text - type AttrLabel ProxyAddressPasswordPropertyInfo = "password" - attrGet _ = getProxyAddressPassword - attrSet _ = undefined - attrConstruct _ = constructProxyAddressPassword - attrClear _ = undefined - --- VVV Prop "protocol" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getProxyAddressProtocol :: (MonadIO m, ProxyAddressK o) => o -> m T.Text -getProxyAddressProtocol obj = liftIO $ checkUnexpectedNothing "getProxyAddressProtocol" $ getObjectPropertyString obj "protocol" - -constructProxyAddressProtocol :: T.Text -> IO ([Char], GValue) -constructProxyAddressProtocol val = constructObjectPropertyString "protocol" (Just val) - -data ProxyAddressProtocolPropertyInfo -instance AttrInfo ProxyAddressProtocolPropertyInfo where - type AttrAllowedOps ProxyAddressProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ProxyAddressProtocolPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ProxyAddressProtocolPropertyInfo = ProxyAddressK - type AttrGetType ProxyAddressProtocolPropertyInfo = T.Text - type AttrLabel ProxyAddressProtocolPropertyInfo = "protocol" - attrGet _ = getProxyAddressProtocol - attrSet _ = undefined - attrConstruct _ = constructProxyAddressProtocol - attrClear _ = undefined - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getProxyAddressUri :: (MonadIO m, ProxyAddressK o) => o -> m T.Text -getProxyAddressUri obj = liftIO $ checkUnexpectedNothing "getProxyAddressUri" $ getObjectPropertyString obj "uri" - -constructProxyAddressUri :: T.Text -> IO ([Char], GValue) -constructProxyAddressUri val = constructObjectPropertyString "uri" (Just val) - -data ProxyAddressUriPropertyInfo -instance AttrInfo ProxyAddressUriPropertyInfo where - type AttrAllowedOps ProxyAddressUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ProxyAddressUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ProxyAddressUriPropertyInfo = ProxyAddressK - type AttrGetType ProxyAddressUriPropertyInfo = T.Text - type AttrLabel ProxyAddressUriPropertyInfo = "uri" - attrGet _ = getProxyAddressUri - attrSet _ = undefined - attrConstruct _ = constructProxyAddressUri - attrClear _ = undefined - --- VVV Prop "username" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getProxyAddressUsername :: (MonadIO m, ProxyAddressK o) => o -> m T.Text -getProxyAddressUsername obj = liftIO $ checkUnexpectedNothing "getProxyAddressUsername" $ getObjectPropertyString obj "username" - -constructProxyAddressUsername :: T.Text -> IO ([Char], GValue) -constructProxyAddressUsername val = constructObjectPropertyString "username" (Just val) - -data ProxyAddressUsernamePropertyInfo -instance AttrInfo ProxyAddressUsernamePropertyInfo where - type AttrAllowedOps ProxyAddressUsernamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ProxyAddressUsernamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ProxyAddressUsernamePropertyInfo = ProxyAddressK - type AttrGetType ProxyAddressUsernamePropertyInfo = T.Text - type AttrLabel ProxyAddressUsernamePropertyInfo = "username" - attrGet _ = getProxyAddressUsername - attrSet _ = undefined - attrConstruct _ = constructProxyAddressUsername - attrClear _ = undefined - -type instance AttributeList ProxyAddress = ProxyAddressAttributeList -type ProxyAddressAttributeList = ('[ '("address", InetSocketAddressAddressPropertyInfo), '("destinationHostname", ProxyAddressDestinationHostnamePropertyInfo), '("destinationPort", ProxyAddressDestinationPortPropertyInfo), '("destinationProtocol", ProxyAddressDestinationProtocolPropertyInfo), '("family", SocketAddressFamilyPropertyInfo), '("flowinfo", InetSocketAddressFlowinfoPropertyInfo), '("password", ProxyAddressPasswordPropertyInfo), '("port", InetSocketAddressPortPropertyInfo), '("protocol", ProxyAddressProtocolPropertyInfo), '("scopeId", InetSocketAddressScopeIdPropertyInfo), '("uri", ProxyAddressUriPropertyInfo), '("username", ProxyAddressUsernamePropertyInfo)] :: [(Symbol, *)]) - -proxyAddressDestinationHostname :: AttrLabelProxy "destinationHostname" -proxyAddressDestinationHostname = AttrLabelProxy - -proxyAddressDestinationPort :: AttrLabelProxy "destinationPort" -proxyAddressDestinationPort = AttrLabelProxy - -proxyAddressDestinationProtocol :: AttrLabelProxy "destinationProtocol" -proxyAddressDestinationProtocol = AttrLabelProxy - -proxyAddressPassword :: AttrLabelProxy "password" -proxyAddressPassword = AttrLabelProxy - -proxyAddressProtocol :: AttrLabelProxy "protocol" -proxyAddressProtocol = AttrLabelProxy - -proxyAddressUri :: AttrLabelProxy "uri" -proxyAddressUri = AttrLabelProxy - -proxyAddressUsername :: AttrLabelProxy "username" -proxyAddressUsername = AttrLabelProxy - -type instance SignalList ProxyAddress = ProxyAddressSignalList -type ProxyAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ProxyAddress::new --- method type : Constructor --- Args : [Arg {argCName = "inetaddr", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "ProxyAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_proxy_address_new" g_proxy_address_new :: - Ptr InetAddress -> -- inetaddr : TInterface "Gio" "InetAddress" - Word16 -> -- port : TBasicType TUInt16 - CString -> -- protocol : TBasicType TUTF8 - CString -> -- dest_hostname : TBasicType TUTF8 - Word16 -> -- dest_port : TBasicType TUInt16 - CString -> -- username : TBasicType TUTF8 - CString -> -- password : TBasicType TUTF8 - IO (Ptr ProxyAddress) - - -proxyAddressNew :: - (MonadIO m, InetAddressK a) => - a -- inetaddr - -> Word16 -- port - -> T.Text -- protocol - -> T.Text -- destHostname - -> Word16 -- destPort - -> Maybe (T.Text) -- username - -> Maybe (T.Text) -- password - -> m ProxyAddress -- result -proxyAddressNew inetaddr port protocol destHostname destPort username password = liftIO $ do - let inetaddr' = unsafeManagedPtrCastPtr inetaddr - protocol' <- textToCString protocol - destHostname' <- textToCString destHostname - maybeUsername <- case username of - Nothing -> return nullPtr - Just jUsername -> do - jUsername' <- textToCString jUsername - return jUsername' - maybePassword <- case password of - Nothing -> return nullPtr - Just jPassword -> do - jPassword' <- textToCString jPassword - return jPassword' - result <- g_proxy_address_new inetaddr' port protocol' destHostname' destPort maybeUsername maybePassword - checkUnexpectedReturnNULL "g_proxy_address_new" result - result' <- (wrapObject ProxyAddress) result - touchManagedPtr inetaddr - freeMem protocol' - freeMem destHostname' - freeMem maybeUsername - freeMem maybePassword - return result' - --- method ProxyAddress::get_destination_hostname --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_proxy_address_get_destination_hostname" g_proxy_address_get_destination_hostname :: - Ptr ProxyAddress -> -- _obj : TInterface "Gio" "ProxyAddress" - IO CString - - -proxyAddressGetDestinationHostname :: - (MonadIO m, ProxyAddressK a) => - a -- _obj - -> m T.Text -- result -proxyAddressGetDestinationHostname _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_proxy_address_get_destination_hostname _obj' - checkUnexpectedReturnNULL "g_proxy_address_get_destination_hostname" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ProxyAddressGetDestinationHostnameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ProxyAddressK a) => MethodInfo ProxyAddressGetDestinationHostnameMethodInfo a signature where - overloadedMethod _ = proxyAddressGetDestinationHostname - --- method ProxyAddress::get_destination_port --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt16) --- throws : False --- Skip return : False - -foreign import ccall "g_proxy_address_get_destination_port" g_proxy_address_get_destination_port :: - Ptr ProxyAddress -> -- _obj : TInterface "Gio" "ProxyAddress" - IO Word16 - - -proxyAddressGetDestinationPort :: - (MonadIO m, ProxyAddressK a) => - a -- _obj - -> m Word16 -- result -proxyAddressGetDestinationPort _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_proxy_address_get_destination_port _obj' - touchManagedPtr _obj - return result - -data ProxyAddressGetDestinationPortMethodInfo -instance (signature ~ (m Word16), MonadIO m, ProxyAddressK a) => MethodInfo ProxyAddressGetDestinationPortMethodInfo a signature where - overloadedMethod _ = proxyAddressGetDestinationPort - --- method ProxyAddress::get_destination_protocol --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_proxy_address_get_destination_protocol" g_proxy_address_get_destination_protocol :: - Ptr ProxyAddress -> -- _obj : TInterface "Gio" "ProxyAddress" - IO CString - - -proxyAddressGetDestinationProtocol :: - (MonadIO m, ProxyAddressK a) => - a -- _obj - -> m T.Text -- result -proxyAddressGetDestinationProtocol _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_proxy_address_get_destination_protocol _obj' - checkUnexpectedReturnNULL "g_proxy_address_get_destination_protocol" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ProxyAddressGetDestinationProtocolMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ProxyAddressK a) => MethodInfo ProxyAddressGetDestinationProtocolMethodInfo a signature where - overloadedMethod _ = proxyAddressGetDestinationProtocol - --- method ProxyAddress::get_password --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_proxy_address_get_password" g_proxy_address_get_password :: - Ptr ProxyAddress -> -- _obj : TInterface "Gio" "ProxyAddress" - IO CString - - -proxyAddressGetPassword :: - (MonadIO m, ProxyAddressK a) => - a -- _obj - -> m T.Text -- result -proxyAddressGetPassword _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_proxy_address_get_password _obj' - checkUnexpectedReturnNULL "g_proxy_address_get_password" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ProxyAddressGetPasswordMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ProxyAddressK a) => MethodInfo ProxyAddressGetPasswordMethodInfo a signature where - overloadedMethod _ = proxyAddressGetPassword - --- method ProxyAddress::get_protocol --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_proxy_address_get_protocol" g_proxy_address_get_protocol :: - Ptr ProxyAddress -> -- _obj : TInterface "Gio" "ProxyAddress" - IO CString - - -proxyAddressGetProtocol :: - (MonadIO m, ProxyAddressK a) => - a -- _obj - -> m T.Text -- result -proxyAddressGetProtocol _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_proxy_address_get_protocol _obj' - checkUnexpectedReturnNULL "g_proxy_address_get_protocol" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ProxyAddressGetProtocolMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ProxyAddressK a) => MethodInfo ProxyAddressGetProtocolMethodInfo a signature where - overloadedMethod _ = proxyAddressGetProtocol - --- method ProxyAddress::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_proxy_address_get_uri" g_proxy_address_get_uri :: - Ptr ProxyAddress -> -- _obj : TInterface "Gio" "ProxyAddress" - IO CString - - -proxyAddressGetUri :: - (MonadIO m, ProxyAddressK a) => - a -- _obj - -> m T.Text -- result -proxyAddressGetUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_proxy_address_get_uri _obj' - checkUnexpectedReturnNULL "g_proxy_address_get_uri" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ProxyAddressGetUriMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ProxyAddressK a) => MethodInfo ProxyAddressGetUriMethodInfo a signature where - overloadedMethod _ = proxyAddressGetUri - --- method ProxyAddress::get_username --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ProxyAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_proxy_address_get_username" g_proxy_address_get_username :: - Ptr ProxyAddress -> -- _obj : TInterface "Gio" "ProxyAddress" - IO CString - - -proxyAddressGetUsername :: - (MonadIO m, ProxyAddressK a) => - a -- _obj - -> m T.Text -- result -proxyAddressGetUsername _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_proxy_address_get_username _obj' - checkUnexpectedReturnNULL "g_proxy_address_get_username" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data ProxyAddressGetUsernameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, ProxyAddressK a) => MethodInfo ProxyAddressGetUsernameMethodInfo a signature where - overloadedMethod _ = proxyAddressGetUsername - - diff --git a/GI/Gio/Objects/ProxyAddress.hs-boot b/GI/Gio/Objects/ProxyAddress.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/ProxyAddress.hs-boot +++ /dev/null @@ -1,27 +0,0 @@ -module GI.Gio.Objects.ProxyAddress where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ProxyAddress = ProxyAddress (ForeignPtr ProxyAddress) -instance GObject ProxyAddress where -class GObject o => ProxyAddressK o -instance (GObject o, IsDescendantOf ProxyAddress o) => ProxyAddressK o -data ProxyAddressDestinationHostnamePropertyInfo -data ProxyAddressDestinationPortPropertyInfo -data ProxyAddressDestinationProtocolPropertyInfo -data ProxyAddressPasswordPropertyInfo -data ProxyAddressProtocolPropertyInfo -data ProxyAddressUriPropertyInfo -data ProxyAddressUsernamePropertyInfo -data ProxyAddressGetDestinationHostnameMethodInfo -data ProxyAddressGetDestinationPortMethodInfo -data ProxyAddressGetDestinationProtocolMethodInfo -data ProxyAddressGetPasswordMethodInfo -data ProxyAddressGetProtocolMethodInfo -data ProxyAddressGetUriMethodInfo -data ProxyAddressGetUsernameMethodInfo diff --git a/GI/Gio/Objects/ProxyAddressEnumerator.hs b/GI/Gio/Objects/ProxyAddressEnumerator.hs deleted file mode 100644 --- a/GI/Gio/Objects/ProxyAddressEnumerator.hs +++ /dev/null @@ -1,238 +0,0 @@ - - -{- | -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.Objects.ProxyAddressEnumerator - ( - --- * Exported types - ProxyAddressEnumerator(..) , - ProxyAddressEnumeratorK , - toProxyAddressEnumerator , - noProxyAddressEnumerator , - - - -- * Properties --- ** Connectable - ProxyAddressEnumeratorConnectablePropertyInfo, - constructProxyAddressEnumeratorConnectable, - getProxyAddressEnumeratorConnectable , - proxyAddressEnumeratorConnectable , - - --- ** DefaultPort - ProxyAddressEnumeratorDefaultPortPropertyInfo, - constructProxyAddressEnumeratorDefaultPort, - getProxyAddressEnumeratorDefaultPort , - proxyAddressEnumeratorDefaultPort , - - --- ** ProxyResolver - ProxyAddressEnumeratorProxyResolverPropertyInfo, - clearProxyAddressEnumeratorProxyResolver, - constructProxyAddressEnumeratorProxyResolver, - getProxyAddressEnumeratorProxyResolver , - proxyAddressEnumeratorProxyResolver , - setProxyAddressEnumeratorProxyResolver , - - --- ** Uri - ProxyAddressEnumeratorUriPropertyInfo , - constructProxyAddressEnumeratorUri , - getProxyAddressEnumeratorUri , - proxyAddressEnumeratorUri , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype ProxyAddressEnumerator = ProxyAddressEnumerator (ForeignPtr ProxyAddressEnumerator) -foreign import ccall "g_proxy_address_enumerator_get_type" - c_g_proxy_address_enumerator_get_type :: IO GType - -type instance ParentTypes ProxyAddressEnumerator = ProxyAddressEnumeratorParentTypes -type ProxyAddressEnumeratorParentTypes = '[SocketAddressEnumerator, GObject.Object] - -instance GObject ProxyAddressEnumerator where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_proxy_address_enumerator_get_type - - -class GObject o => ProxyAddressEnumeratorK o -instance (GObject o, IsDescendantOf ProxyAddressEnumerator o) => ProxyAddressEnumeratorK o - -toProxyAddressEnumerator :: ProxyAddressEnumeratorK o => o -> IO ProxyAddressEnumerator -toProxyAddressEnumerator = unsafeCastTo ProxyAddressEnumerator - -noProxyAddressEnumerator :: Maybe ProxyAddressEnumerator -noProxyAddressEnumerator = Nothing - -type family ResolveProxyAddressEnumeratorMethod (t :: Symbol) (o :: *) :: * where - ResolveProxyAddressEnumeratorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveProxyAddressEnumeratorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveProxyAddressEnumeratorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveProxyAddressEnumeratorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveProxyAddressEnumeratorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveProxyAddressEnumeratorMethod "next" o = SocketAddressEnumeratorNextMethodInfo - ResolveProxyAddressEnumeratorMethod "nextAsync" o = SocketAddressEnumeratorNextAsyncMethodInfo - ResolveProxyAddressEnumeratorMethod "nextFinish" o = SocketAddressEnumeratorNextFinishMethodInfo - ResolveProxyAddressEnumeratorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveProxyAddressEnumeratorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveProxyAddressEnumeratorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveProxyAddressEnumeratorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveProxyAddressEnumeratorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveProxyAddressEnumeratorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveProxyAddressEnumeratorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveProxyAddressEnumeratorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveProxyAddressEnumeratorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveProxyAddressEnumeratorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveProxyAddressEnumeratorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveProxyAddressEnumeratorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveProxyAddressEnumeratorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveProxyAddressEnumeratorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveProxyAddressEnumeratorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveProxyAddressEnumeratorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveProxyAddressEnumeratorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveProxyAddressEnumeratorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveProxyAddressEnumeratorMethod t ProxyAddressEnumerator, MethodInfo info ProxyAddressEnumerator p) => IsLabelProxy t (ProxyAddressEnumerator -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveProxyAddressEnumeratorMethod t ProxyAddressEnumerator, MethodInfo info ProxyAddressEnumerator p) => IsLabel t (ProxyAddressEnumerator -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "connectable" - -- Type: TInterface "Gio" "SocketConnectable" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getProxyAddressEnumeratorConnectable :: (MonadIO m, ProxyAddressEnumeratorK o) => o -> m (Maybe SocketConnectable) -getProxyAddressEnumeratorConnectable obj = liftIO $ getObjectPropertyObject obj "connectable" SocketConnectable - -constructProxyAddressEnumeratorConnectable :: (SocketConnectableK a) => a -> IO ([Char], GValue) -constructProxyAddressEnumeratorConnectable val = constructObjectPropertyObject "connectable" (Just val) - -data ProxyAddressEnumeratorConnectablePropertyInfo -instance AttrInfo ProxyAddressEnumeratorConnectablePropertyInfo where - type AttrAllowedOps ProxyAddressEnumeratorConnectablePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ProxyAddressEnumeratorConnectablePropertyInfo = SocketConnectableK - type AttrBaseTypeConstraint ProxyAddressEnumeratorConnectablePropertyInfo = ProxyAddressEnumeratorK - type AttrGetType ProxyAddressEnumeratorConnectablePropertyInfo = (Maybe SocketConnectable) - type AttrLabel ProxyAddressEnumeratorConnectablePropertyInfo = "connectable" - attrGet _ = getProxyAddressEnumeratorConnectable - attrSet _ = undefined - attrConstruct _ = constructProxyAddressEnumeratorConnectable - attrClear _ = undefined - --- VVV Prop "default-port" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getProxyAddressEnumeratorDefaultPort :: (MonadIO m, ProxyAddressEnumeratorK o) => o -> m Word32 -getProxyAddressEnumeratorDefaultPort obj = liftIO $ getObjectPropertyUInt32 obj "default-port" - -constructProxyAddressEnumeratorDefaultPort :: Word32 -> IO ([Char], GValue) -constructProxyAddressEnumeratorDefaultPort val = constructObjectPropertyUInt32 "default-port" val - -data ProxyAddressEnumeratorDefaultPortPropertyInfo -instance AttrInfo ProxyAddressEnumeratorDefaultPortPropertyInfo where - type AttrAllowedOps ProxyAddressEnumeratorDefaultPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ProxyAddressEnumeratorDefaultPortPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint ProxyAddressEnumeratorDefaultPortPropertyInfo = ProxyAddressEnumeratorK - type AttrGetType ProxyAddressEnumeratorDefaultPortPropertyInfo = Word32 - type AttrLabel ProxyAddressEnumeratorDefaultPortPropertyInfo = "default-port" - attrGet _ = getProxyAddressEnumeratorDefaultPort - attrSet _ = undefined - attrConstruct _ = constructProxyAddressEnumeratorDefaultPort - attrClear _ = undefined - --- VVV Prop "proxy-resolver" - -- Type: TInterface "Gio" "ProxyResolver" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getProxyAddressEnumeratorProxyResolver :: (MonadIO m, ProxyAddressEnumeratorK o) => o -> m (Maybe ProxyResolver) -getProxyAddressEnumeratorProxyResolver obj = liftIO $ getObjectPropertyObject obj "proxy-resolver" ProxyResolver - -setProxyAddressEnumeratorProxyResolver :: (MonadIO m, ProxyAddressEnumeratorK o, ProxyResolverK a) => o -> a -> m () -setProxyAddressEnumeratorProxyResolver obj val = liftIO $ setObjectPropertyObject obj "proxy-resolver" (Just val) - -constructProxyAddressEnumeratorProxyResolver :: (ProxyResolverK a) => a -> IO ([Char], GValue) -constructProxyAddressEnumeratorProxyResolver val = constructObjectPropertyObject "proxy-resolver" (Just val) - -clearProxyAddressEnumeratorProxyResolver :: (MonadIO m, ProxyAddressEnumeratorK o) => o -> m () -clearProxyAddressEnumeratorProxyResolver obj = liftIO $ setObjectPropertyObject obj "proxy-resolver" (Nothing :: Maybe ProxyResolver) - -data ProxyAddressEnumeratorProxyResolverPropertyInfo -instance AttrInfo ProxyAddressEnumeratorProxyResolverPropertyInfo where - type AttrAllowedOps ProxyAddressEnumeratorProxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ProxyAddressEnumeratorProxyResolverPropertyInfo = ProxyResolverK - type AttrBaseTypeConstraint ProxyAddressEnumeratorProxyResolverPropertyInfo = ProxyAddressEnumeratorK - type AttrGetType ProxyAddressEnumeratorProxyResolverPropertyInfo = (Maybe ProxyResolver) - type AttrLabel ProxyAddressEnumeratorProxyResolverPropertyInfo = "proxy-resolver" - attrGet _ = getProxyAddressEnumeratorProxyResolver - attrSet _ = setProxyAddressEnumeratorProxyResolver - attrConstruct _ = constructProxyAddressEnumeratorProxyResolver - attrClear _ = clearProxyAddressEnumeratorProxyResolver - --- VVV Prop "uri" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getProxyAddressEnumeratorUri :: (MonadIO m, ProxyAddressEnumeratorK o) => o -> m (Maybe T.Text) -getProxyAddressEnumeratorUri obj = liftIO $ getObjectPropertyString obj "uri" - -constructProxyAddressEnumeratorUri :: T.Text -> IO ([Char], GValue) -constructProxyAddressEnumeratorUri val = constructObjectPropertyString "uri" (Just val) - -data ProxyAddressEnumeratorUriPropertyInfo -instance AttrInfo ProxyAddressEnumeratorUriPropertyInfo where - type AttrAllowedOps ProxyAddressEnumeratorUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ProxyAddressEnumeratorUriPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ProxyAddressEnumeratorUriPropertyInfo = ProxyAddressEnumeratorK - type AttrGetType ProxyAddressEnumeratorUriPropertyInfo = (Maybe T.Text) - type AttrLabel ProxyAddressEnumeratorUriPropertyInfo = "uri" - attrGet _ = getProxyAddressEnumeratorUri - attrSet _ = undefined - attrConstruct _ = constructProxyAddressEnumeratorUri - attrClear _ = undefined - -type instance AttributeList ProxyAddressEnumerator = ProxyAddressEnumeratorAttributeList -type ProxyAddressEnumeratorAttributeList = ('[ '("connectable", ProxyAddressEnumeratorConnectablePropertyInfo), '("defaultPort", ProxyAddressEnumeratorDefaultPortPropertyInfo), '("proxyResolver", ProxyAddressEnumeratorProxyResolverPropertyInfo), '("uri", ProxyAddressEnumeratorUriPropertyInfo)] :: [(Symbol, *)]) - -proxyAddressEnumeratorConnectable :: AttrLabelProxy "connectable" -proxyAddressEnumeratorConnectable = AttrLabelProxy - -proxyAddressEnumeratorDefaultPort :: AttrLabelProxy "defaultPort" -proxyAddressEnumeratorDefaultPort = AttrLabelProxy - -proxyAddressEnumeratorProxyResolver :: AttrLabelProxy "proxyResolver" -proxyAddressEnumeratorProxyResolver = AttrLabelProxy - -proxyAddressEnumeratorUri :: AttrLabelProxy "uri" -proxyAddressEnumeratorUri = AttrLabelProxy - -type instance SignalList ProxyAddressEnumerator = ProxyAddressEnumeratorSignalList -type ProxyAddressEnumeratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Gio/Objects/ProxyAddressEnumerator.hs-boot b/GI/Gio/Objects/ProxyAddressEnumerator.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/ProxyAddressEnumerator.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Objects.ProxyAddressEnumerator where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ProxyAddressEnumerator = ProxyAddressEnumerator (ForeignPtr ProxyAddressEnumerator) -instance GObject ProxyAddressEnumerator where -class GObject o => ProxyAddressEnumeratorK o -instance (GObject o, IsDescendantOf ProxyAddressEnumerator o) => ProxyAddressEnumeratorK o -data ProxyAddressEnumeratorConnectablePropertyInfo -data ProxyAddressEnumeratorDefaultPortPropertyInfo -data ProxyAddressEnumeratorProxyResolverPropertyInfo -data ProxyAddressEnumeratorUriPropertyInfo diff --git a/GI/Gio/Objects/Resolver.hs b/GI/Gio/Objects/Resolver.hs deleted file mode 100644 --- a/GI/Gio/Objects/Resolver.hs +++ /dev/null @@ -1,851 +0,0 @@ - - -{- | -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.Objects.Resolver - ( - --- * Exported types - Resolver(..) , - ResolverK , - toResolver , - noResolver , - - - -- * Methods --- ** resolverGetDefault - resolverGetDefault , - - --- ** resolverLookupByAddress - ResolverLookupByAddressMethodInfo , - resolverLookupByAddress , - - --- ** resolverLookupByAddressAsync - ResolverLookupByAddressAsyncMethodInfo , - resolverLookupByAddressAsync , - - --- ** resolverLookupByAddressFinish - ResolverLookupByAddressFinishMethodInfo , - resolverLookupByAddressFinish , - - --- ** resolverLookupByName - ResolverLookupByNameMethodInfo , - resolverLookupByName , - - --- ** resolverLookupByNameAsync - ResolverLookupByNameAsyncMethodInfo , - resolverLookupByNameAsync , - - --- ** resolverLookupByNameFinish - ResolverLookupByNameFinishMethodInfo , - resolverLookupByNameFinish , - - --- ** resolverLookupRecords - ResolverLookupRecordsMethodInfo , - resolverLookupRecords , - - --- ** resolverLookupRecordsAsync - ResolverLookupRecordsAsyncMethodInfo , - resolverLookupRecordsAsync , - - --- ** resolverLookupRecordsFinish - ResolverLookupRecordsFinishMethodInfo , - resolverLookupRecordsFinish , - - --- ** resolverLookupService - ResolverLookupServiceMethodInfo , - resolverLookupService , - - --- ** resolverLookupServiceAsync - ResolverLookupServiceAsyncMethodInfo , - resolverLookupServiceAsync , - - --- ** resolverLookupServiceFinish - ResolverLookupServiceFinishMethodInfo , - resolverLookupServiceFinish , - - --- ** resolverSetDefault - ResolverSetDefaultMethodInfo , - resolverSetDefault , - - - - - -- * Signals --- ** Reload - ResolverReloadCallback , - ResolverReloadCallbackC , - ResolverReloadSignalInfo , - afterResolverReload , - mkResolverReloadCallback , - noResolverReloadCallback , - onResolverReload , - resolverReloadCallbackWrapper , - resolverReloadClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype Resolver = Resolver (ForeignPtr Resolver) -foreign import ccall "g_resolver_get_type" - c_g_resolver_get_type :: IO GType - -type instance ParentTypes Resolver = ResolverParentTypes -type ResolverParentTypes = '[GObject.Object] - -instance GObject Resolver where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_resolver_get_type - - -class GObject o => ResolverK o -instance (GObject o, IsDescendantOf Resolver o) => ResolverK o - -toResolver :: ResolverK o => o -> IO Resolver -toResolver = unsafeCastTo Resolver - -noResolver :: Maybe Resolver -noResolver = Nothing - -type family ResolveResolverMethod (t :: Symbol) (o :: *) :: * where - ResolveResolverMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveResolverMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveResolverMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveResolverMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveResolverMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveResolverMethod "lookupByAddress" o = ResolverLookupByAddressMethodInfo - ResolveResolverMethod "lookupByAddressAsync" o = ResolverLookupByAddressAsyncMethodInfo - ResolveResolverMethod "lookupByAddressFinish" o = ResolverLookupByAddressFinishMethodInfo - ResolveResolverMethod "lookupByName" o = ResolverLookupByNameMethodInfo - ResolveResolverMethod "lookupByNameAsync" o = ResolverLookupByNameAsyncMethodInfo - ResolveResolverMethod "lookupByNameFinish" o = ResolverLookupByNameFinishMethodInfo - ResolveResolverMethod "lookupRecords" o = ResolverLookupRecordsMethodInfo - ResolveResolverMethod "lookupRecordsAsync" o = ResolverLookupRecordsAsyncMethodInfo - ResolveResolverMethod "lookupRecordsFinish" o = ResolverLookupRecordsFinishMethodInfo - ResolveResolverMethod "lookupService" o = ResolverLookupServiceMethodInfo - ResolveResolverMethod "lookupServiceAsync" o = ResolverLookupServiceAsyncMethodInfo - ResolveResolverMethod "lookupServiceFinish" o = ResolverLookupServiceFinishMethodInfo - ResolveResolverMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveResolverMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveResolverMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveResolverMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveResolverMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveResolverMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveResolverMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveResolverMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveResolverMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveResolverMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveResolverMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveResolverMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveResolverMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveResolverMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveResolverMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveResolverMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveResolverMethod "setDefault" o = ResolverSetDefaultMethodInfo - ResolveResolverMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveResolverMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveResolverMethod t Resolver, MethodInfo info Resolver p) => IsLabelProxy t (Resolver -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveResolverMethod t Resolver, MethodInfo info Resolver p) => IsLabel t (Resolver -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Resolver::reload -type ResolverReloadCallback = - IO () - -noResolverReloadCallback :: Maybe ResolverReloadCallback -noResolverReloadCallback = Nothing - -type ResolverReloadCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkResolverReloadCallback :: ResolverReloadCallbackC -> IO (FunPtr ResolverReloadCallbackC) - -resolverReloadClosure :: ResolverReloadCallback -> IO Closure -resolverReloadClosure cb = newCClosure =<< mkResolverReloadCallback wrapped - where wrapped = resolverReloadCallbackWrapper cb - -resolverReloadCallbackWrapper :: - ResolverReloadCallback -> - Ptr () -> - Ptr () -> - IO () -resolverReloadCallbackWrapper _cb _ _ = do - _cb - -onResolverReload :: (GObject a, MonadIO m) => a -> ResolverReloadCallback -> m SignalHandlerId -onResolverReload obj cb = liftIO $ connectResolverReload obj cb SignalConnectBefore -afterResolverReload :: (GObject a, MonadIO m) => a -> ResolverReloadCallback -> m SignalHandlerId -afterResolverReload obj cb = connectResolverReload obj cb SignalConnectAfter - -connectResolverReload :: (GObject a, MonadIO m) => - a -> ResolverReloadCallback -> SignalConnectMode -> m SignalHandlerId -connectResolverReload obj cb after = liftIO $ do - cb' <- mkResolverReloadCallback (resolverReloadCallbackWrapper cb) - connectSignalFunPtr obj "reload" cb' after - -type instance AttributeList Resolver = ResolverAttributeList -type ResolverAttributeList = ('[ ] :: [(Symbol, *)]) - -data ResolverReloadSignalInfo -instance SignalInfo ResolverReloadSignalInfo where - type HaskellCallbackType ResolverReloadSignalInfo = ResolverReloadCallback - connectSignal _ = connectResolverReload - -type instance SignalList Resolver = ResolverSignalList -type ResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("reload", ResolverReloadSignalInfo)] :: [(Symbol, *)]) - --- method Resolver::lookup_by_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "InetAddress", 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 : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_resolver_lookup_by_address" g_resolver_lookup_by_address :: - Ptr Resolver -> -- _obj : TInterface "Gio" "Resolver" - Ptr InetAddress -> -- address : TInterface "Gio" "InetAddress" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CString - - -resolverLookupByAddress :: - (MonadIO m, ResolverK a, InetAddressK b, CancellableK c) => - a -- _obj - -> b -- address - -> Maybe (c) -- cancellable - -> m T.Text -- result -resolverLookupByAddress _obj address cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let address' = unsafeManagedPtrCastPtr address - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_resolver_lookup_by_address _obj' address' maybeCancellable - checkUnexpectedReturnNULL "g_resolver_lookup_by_address" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr address - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data ResolverLookupByAddressMethodInfo -instance (signature ~ (b -> Maybe (c) -> m T.Text), MonadIO m, ResolverK a, InetAddressK b, CancellableK c) => MethodInfo ResolverLookupByAddressMethodInfo a signature where - overloadedMethod _ = resolverLookupByAddress - --- method Resolver::lookup_by_address_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "InetAddress", 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_resolver_lookup_by_address_async" g_resolver_lookup_by_address_async :: - Ptr Resolver -> -- _obj : TInterface "Gio" "Resolver" - Ptr InetAddress -> -- address : TInterface "Gio" "InetAddress" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -resolverLookupByAddressAsync :: - (MonadIO m, ResolverK a, InetAddressK b, CancellableK c) => - a -- _obj - -> b -- address - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -resolverLookupByAddressAsync _obj address cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let address' = unsafeManagedPtrCastPtr 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_resolver_lookup_by_address_async _obj' address' maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr address - whenJust cancellable touchManagedPtr - return () - -data ResolverLookupByAddressAsyncMethodInfo -instance (signature ~ (b -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, ResolverK a, InetAddressK b, CancellableK c) => MethodInfo ResolverLookupByAddressAsyncMethodInfo a signature where - overloadedMethod _ = resolverLookupByAddressAsync - --- method Resolver::lookup_by_address_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : True --- Skip return : False - -foreign import ccall "g_resolver_lookup_by_address_finish" g_resolver_lookup_by_address_finish :: - Ptr Resolver -> -- _obj : TInterface "Gio" "Resolver" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CString - - -resolverLookupByAddressFinish :: - (MonadIO m, ResolverK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m T.Text -- result -resolverLookupByAddressFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_resolver_lookup_by_address_finish _obj' result_' - checkUnexpectedReturnNULL "g_resolver_lookup_by_address_finish" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data ResolverLookupByAddressFinishMethodInfo -instance (signature ~ (b -> m T.Text), MonadIO m, ResolverK a, AsyncResultK b) => MethodInfo ResolverLookupByAddressFinishMethodInfo a signature where - overloadedMethod _ = resolverLookupByAddressFinish - --- method Resolver::lookup_by_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", 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 : Just (TGList (TInterface "Gio" "InetAddress")) --- throws : True --- Skip return : False - -foreign import ccall "g_resolver_lookup_by_name" g_resolver_lookup_by_name :: - Ptr Resolver -> -- _obj : TInterface "Gio" "Resolver" - CString -> -- hostname : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr (GList (Ptr InetAddress))) - - -resolverLookupByName :: - (MonadIO m, ResolverK a, CancellableK b) => - a -- _obj - -> T.Text -- hostname - -> Maybe (b) -- cancellable - -> m [InetAddress] -- result -resolverLookupByName _obj hostname cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - hostname' <- textToCString hostname - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_resolver_lookup_by_name _obj' hostname' maybeCancellable - result' <- unpackGList result - result'' <- mapM (wrapObject InetAddress) result' - g_list_free result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem hostname' - return result'' - ) (do - freeMem hostname' - ) - -data ResolverLookupByNameMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> m [InetAddress]), MonadIO m, ResolverK a, CancellableK b) => MethodInfo ResolverLookupByNameMethodInfo a signature where - overloadedMethod _ = resolverLookupByName - --- method Resolver::lookup_by_name_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_resolver_lookup_by_name_async" g_resolver_lookup_by_name_async :: - Ptr Resolver -> -- _obj : TInterface "Gio" "Resolver" - CString -> -- hostname : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -resolverLookupByNameAsync :: - (MonadIO m, ResolverK a, CancellableK b) => - a -- _obj - -> T.Text -- hostname - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -resolverLookupByNameAsync _obj hostname cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - hostname' <- textToCString hostname - 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_resolver_lookup_by_name_async _obj' hostname' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem hostname' - return () - -data ResolverLookupByNameAsyncMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, ResolverK a, CancellableK b) => MethodInfo ResolverLookupByNameAsyncMethodInfo a signature where - overloadedMethod _ = resolverLookupByNameAsync - --- method Resolver::lookup_by_name_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "InetAddress")) --- throws : True --- Skip return : False - -foreign import ccall "g_resolver_lookup_by_name_finish" g_resolver_lookup_by_name_finish :: - Ptr Resolver -> -- _obj : TInterface "Gio" "Resolver" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr (GList (Ptr InetAddress))) - - -resolverLookupByNameFinish :: - (MonadIO m, ResolverK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m [InetAddress] -- result -resolverLookupByNameFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_resolver_lookup_by_name_finish _obj' result_' - result' <- unpackGList result - result'' <- mapM (wrapObject InetAddress) result' - g_list_free result - touchManagedPtr _obj - touchManagedPtr result_ - return result'' - ) (do - return () - ) - -data ResolverLookupByNameFinishMethodInfo -instance (signature ~ (b -> m [InetAddress]), MonadIO m, ResolverK a, AsyncResultK b) => MethodInfo ResolverLookupByNameFinishMethodInfo a signature where - overloadedMethod _ = resolverLookupByNameFinish - --- method Resolver::lookup_records --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rrname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "record_type", argType = TInterface "Gio" "ResolverRecordType", 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 : Just (TGList TVariant) --- throws : True --- Skip return : False - -foreign import ccall "g_resolver_lookup_records" g_resolver_lookup_records :: - Ptr Resolver -> -- _obj : TInterface "Gio" "Resolver" - CString -> -- rrname : TBasicType TUTF8 - CUInt -> -- record_type : TInterface "Gio" "ResolverRecordType" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr (GList (Ptr GVariant))) - - -resolverLookupRecords :: - (MonadIO m, ResolverK a, CancellableK b) => - a -- _obj - -> T.Text -- rrname - -> ResolverRecordType -- recordType - -> Maybe (b) -- cancellable - -> m [GVariant] -- result -resolverLookupRecords _obj rrname recordType cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rrname' <- textToCString rrname - let recordType' = (fromIntegral . fromEnum) recordType - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_resolver_lookup_records _obj' rrname' recordType' maybeCancellable - result' <- unpackGList result - result'' <- mapM wrapGVariantPtr result' - g_list_free result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem rrname' - return result'' - ) (do - freeMem rrname' - ) - -data ResolverLookupRecordsMethodInfo -instance (signature ~ (T.Text -> ResolverRecordType -> Maybe (b) -> m [GVariant]), MonadIO m, ResolverK a, CancellableK b) => MethodInfo ResolverLookupRecordsMethodInfo a signature where - overloadedMethod _ = resolverLookupRecords - --- method Resolver::lookup_records_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rrname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "record_type", argType = TInterface "Gio" "ResolverRecordType", 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_resolver_lookup_records_async" g_resolver_lookup_records_async :: - Ptr Resolver -> -- _obj : TInterface "Gio" "Resolver" - CString -> -- rrname : TBasicType TUTF8 - CUInt -> -- record_type : TInterface "Gio" "ResolverRecordType" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -resolverLookupRecordsAsync :: - (MonadIO m, ResolverK a, CancellableK b) => - a -- _obj - -> T.Text -- rrname - -> ResolverRecordType -- recordType - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -resolverLookupRecordsAsync _obj rrname recordType cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - rrname' <- textToCString rrname - let recordType' = (fromIntegral . fromEnum) recordType - 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_resolver_lookup_records_async _obj' rrname' recordType' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem rrname' - return () - -data ResolverLookupRecordsAsyncMethodInfo -instance (signature ~ (T.Text -> ResolverRecordType -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, ResolverK a, CancellableK b) => MethodInfo ResolverLookupRecordsAsyncMethodInfo a signature where - overloadedMethod _ = resolverLookupRecordsAsync - --- method Resolver::lookup_records_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList TVariant) --- throws : True --- Skip return : False - -foreign import ccall "g_resolver_lookup_records_finish" g_resolver_lookup_records_finish :: - Ptr Resolver -> -- _obj : TInterface "Gio" "Resolver" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr (GList (Ptr GVariant))) - - -resolverLookupRecordsFinish :: - (MonadIO m, ResolverK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m [GVariant] -- result -resolverLookupRecordsFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_resolver_lookup_records_finish _obj' result_' - result' <- unpackGList result - result'' <- mapM wrapGVariantPtr result' - g_list_free result - touchManagedPtr _obj - touchManagedPtr result_ - return result'' - ) (do - return () - ) - -data ResolverLookupRecordsFinishMethodInfo -instance (signature ~ (b -> m [GVariant]), MonadIO m, ResolverK a, AsyncResultK b) => MethodInfo ResolverLookupRecordsFinishMethodInfo a signature where - overloadedMethod _ = resolverLookupRecordsFinish - --- method Resolver::lookup_service --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", 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 : Just (TGList (TInterface "Gio" "SrvTarget")) --- throws : True --- Skip return : False - -foreign import ccall "g_resolver_lookup_service" g_resolver_lookup_service :: - Ptr Resolver -> -- _obj : TInterface "Gio" "Resolver" - CString -> -- service : TBasicType TUTF8 - CString -> -- protocol : TBasicType TUTF8 - CString -> -- domain : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr (GList (Ptr SrvTarget))) - - -resolverLookupService :: - (MonadIO m, ResolverK a, CancellableK b) => - a -- _obj - -> T.Text -- service - -> T.Text -- protocol - -> T.Text -- domain - -> Maybe (b) -- cancellable - -> m [SrvTarget] -- result -resolverLookupService _obj service protocol domain cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - service' <- textToCString service - protocol' <- textToCString protocol - domain' <- textToCString domain - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_resolver_lookup_service _obj' service' protocol' domain' maybeCancellable - result' <- unpackGList result - result'' <- mapM (wrapBoxed SrvTarget) result' - g_list_free result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem service' - freeMem protocol' - freeMem domain' - return result'' - ) (do - freeMem service' - freeMem protocol' - freeMem domain' - ) - -data ResolverLookupServiceMethodInfo -instance (signature ~ (T.Text -> T.Text -> T.Text -> Maybe (b) -> m [SrvTarget]), MonadIO m, ResolverK a, CancellableK b) => MethodInfo ResolverLookupServiceMethodInfo a signature where - overloadedMethod _ = resolverLookupService - --- method Resolver::lookup_service_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "service", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", 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 = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_resolver_lookup_service_async" g_resolver_lookup_service_async :: - Ptr Resolver -> -- _obj : TInterface "Gio" "Resolver" - CString -> -- service : TBasicType TUTF8 - CString -> -- protocol : TBasicType TUTF8 - CString -> -- domain : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -resolverLookupServiceAsync :: - (MonadIO m, ResolverK a, CancellableK b) => - a -- _obj - -> T.Text -- service - -> T.Text -- protocol - -> T.Text -- domain - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -resolverLookupServiceAsync _obj service protocol domain cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - service' <- textToCString service - protocol' <- textToCString protocol - domain' <- textToCString domain - 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_resolver_lookup_service_async _obj' service' protocol' domain' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem service' - freeMem protocol' - freeMem domain' - return () - -data ResolverLookupServiceAsyncMethodInfo -instance (signature ~ (T.Text -> T.Text -> T.Text -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, ResolverK a, CancellableK b) => MethodInfo ResolverLookupServiceAsyncMethodInfo a signature where - overloadedMethod _ = resolverLookupServiceAsync - --- method Resolver::lookup_service_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "SrvTarget")) --- throws : True --- Skip return : False - -foreign import ccall "g_resolver_lookup_service_finish" g_resolver_lookup_service_finish :: - Ptr Resolver -> -- _obj : TInterface "Gio" "Resolver" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr (GList (Ptr SrvTarget))) - - -resolverLookupServiceFinish :: - (MonadIO m, ResolverK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m [SrvTarget] -- result -resolverLookupServiceFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_resolver_lookup_service_finish _obj' result_' - result' <- unpackGList result - result'' <- mapM (wrapBoxed SrvTarget) result' - g_list_free result - touchManagedPtr _obj - touchManagedPtr result_ - return result'' - ) (do - return () - ) - -data ResolverLookupServiceFinishMethodInfo -instance (signature ~ (b -> m [SrvTarget]), MonadIO m, ResolverK a, AsyncResultK b) => MethodInfo ResolverLookupServiceFinishMethodInfo a signature where - overloadedMethod _ = resolverLookupServiceFinish - --- method Resolver::set_default --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_resolver_set_default" g_resolver_set_default :: - Ptr Resolver -> -- _obj : TInterface "Gio" "Resolver" - IO () - - -resolverSetDefault :: - (MonadIO m, ResolverK a) => - a -- _obj - -> m () -- result -resolverSetDefault _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_resolver_set_default _obj' - touchManagedPtr _obj - return () - -data ResolverSetDefaultMethodInfo -instance (signature ~ (m ()), MonadIO m, ResolverK a) => MethodInfo ResolverSetDefaultMethodInfo a signature where - overloadedMethod _ = resolverSetDefault - --- method Resolver::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Resolver") --- throws : False --- Skip return : False - -foreign import ccall "g_resolver_get_default" g_resolver_get_default :: - IO (Ptr Resolver) - - -resolverGetDefault :: - (MonadIO m) => - m Resolver -- result -resolverGetDefault = liftIO $ do - result <- g_resolver_get_default - checkUnexpectedReturnNULL "g_resolver_get_default" result - result' <- (wrapObject Resolver) result - return result' - - diff --git a/GI/Gio/Objects/Resolver.hs-boot b/GI/Gio/Objects/Resolver.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/Resolver.hs-boot +++ /dev/null @@ -1,27 +0,0 @@ -module GI.Gio.Objects.Resolver where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Resolver = Resolver (ForeignPtr Resolver) -instance GObject Resolver where -class GObject o => ResolverK o -instance (GObject o, IsDescendantOf Resolver o) => ResolverK o -data ResolverReloadSignalInfo -data ResolverLookupByAddressMethodInfo -data ResolverLookupByAddressAsyncMethodInfo -data ResolverLookupByAddressFinishMethodInfo -data ResolverLookupByNameMethodInfo -data ResolverLookupByNameAsyncMethodInfo -data ResolverLookupByNameFinishMethodInfo -data ResolverLookupRecordsMethodInfo -data ResolverLookupRecordsAsyncMethodInfo -data ResolverLookupRecordsFinishMethodInfo -data ResolverLookupServiceMethodInfo -data ResolverLookupServiceAsyncMethodInfo -data ResolverLookupServiceFinishMethodInfo -data ResolverSetDefaultMethodInfo diff --git a/GI/Gio/Objects/Settings.hs b/GI/Gio/Objects/Settings.hs deleted file mode 100644 --- a/GI/Gio/Objects/Settings.hs +++ /dev/null @@ -1,2191 +0,0 @@ - - -{- | -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.Objects.Settings - ( - --- * Exported types - Settings(..) , - SettingsK , - toSettings , - noSettings , - - - -- * Methods --- ** settingsApply - SettingsApplyMethodInfo , - settingsApply , - - --- ** settingsBind - SettingsBindMethodInfo , - settingsBind , - - --- ** settingsBindWritable - SettingsBindWritableMethodInfo , - settingsBindWritable , - - --- ** settingsCreateAction - SettingsCreateActionMethodInfo , - settingsCreateAction , - - --- ** settingsDelay - SettingsDelayMethodInfo , - settingsDelay , - - --- ** settingsGetBoolean - SettingsGetBooleanMethodInfo , - settingsGetBoolean , - - --- ** settingsGetChild - SettingsGetChildMethodInfo , - settingsGetChild , - - --- ** settingsGetDefaultValue - SettingsGetDefaultValueMethodInfo , - settingsGetDefaultValue , - - --- ** settingsGetDouble - SettingsGetDoubleMethodInfo , - settingsGetDouble , - - --- ** settingsGetEnum - SettingsGetEnumMethodInfo , - settingsGetEnum , - - --- ** settingsGetFlags - SettingsGetFlagsMethodInfo , - settingsGetFlags , - - --- ** settingsGetHasUnapplied - SettingsGetHasUnappliedMethodInfo , - settingsGetHasUnapplied , - - --- ** settingsGetInt - SettingsGetIntMethodInfo , - settingsGetInt , - - --- ** settingsGetMapped - SettingsGetMappedMethodInfo , - settingsGetMapped , - - --- ** settingsGetRange - SettingsGetRangeMethodInfo , - settingsGetRange , - - --- ** settingsGetString - SettingsGetStringMethodInfo , - settingsGetString , - - --- ** settingsGetStrv - SettingsGetStrvMethodInfo , - settingsGetStrv , - - --- ** settingsGetUint - SettingsGetUintMethodInfo , - settingsGetUint , - - --- ** settingsGetUserValue - SettingsGetUserValueMethodInfo , - settingsGetUserValue , - - --- ** settingsGetValue - SettingsGetValueMethodInfo , - settingsGetValue , - - --- ** settingsIsWritable - SettingsIsWritableMethodInfo , - settingsIsWritable , - - --- ** settingsListChildren - SettingsListChildrenMethodInfo , - settingsListChildren , - - --- ** settingsListKeys - SettingsListKeysMethodInfo , - settingsListKeys , - - --- ** settingsListRelocatableSchemas - settingsListRelocatableSchemas , - - --- ** settingsListSchemas - settingsListSchemas , - - --- ** settingsNew - settingsNew , - - --- ** settingsNewFull - settingsNewFull , - - --- ** settingsNewWithBackend - settingsNewWithBackend , - - --- ** settingsNewWithBackendAndPath - settingsNewWithBackendAndPath , - - --- ** settingsNewWithPath - settingsNewWithPath , - - --- ** settingsRangeCheck - SettingsRangeCheckMethodInfo , - settingsRangeCheck , - - --- ** settingsReset - SettingsResetMethodInfo , - settingsReset , - - --- ** settingsRevert - SettingsRevertMethodInfo , - settingsRevert , - - --- ** settingsSetBoolean - SettingsSetBooleanMethodInfo , - settingsSetBoolean , - - --- ** settingsSetDouble - SettingsSetDoubleMethodInfo , - settingsSetDouble , - - --- ** settingsSetEnum - SettingsSetEnumMethodInfo , - settingsSetEnum , - - --- ** settingsSetFlags - SettingsSetFlagsMethodInfo , - settingsSetFlags , - - --- ** settingsSetInt - SettingsSetIntMethodInfo , - settingsSetInt , - - --- ** settingsSetString - SettingsSetStringMethodInfo , - settingsSetString , - - --- ** settingsSetStrv - SettingsSetStrvMethodInfo , - settingsSetStrv , - - --- ** settingsSetUint - SettingsSetUintMethodInfo , - settingsSetUint , - - --- ** settingsSetValue - SettingsSetValueMethodInfo , - settingsSetValue , - - --- ** settingsSync - settingsSync , - - --- ** settingsUnbind - settingsUnbind , - - - - - -- * Properties --- ** DelayApply - SettingsDelayApplyPropertyInfo , - getSettingsDelayApply , - settingsDelayApply , - - --- ** HasUnapplied - SettingsHasUnappliedPropertyInfo , - getSettingsHasUnapplied , - settingsHasUnapplied , - - --- ** Path - SettingsPathPropertyInfo , - constructSettingsPath , - getSettingsPath , - settingsPath , - - --- ** Schema - SettingsSchemaPropertyInfo , - constructSettingsSchema , - getSettingsSchema , - settingsSchema , - - --- ** SchemaId - SettingsSchemaIdPropertyInfo , - constructSettingsSchemaId , - getSettingsSchemaId , - settingsSchemaId , - - --- ** SettingsSchema - SettingsSettingsSchemaPropertyInfo , - constructSettingsSettingsSchema , - getSettingsSettingsSchema , - settingsSettingsSchema , - - - - - -- * Signals --- ** ChangeEvent - SettingsChangeEventCallback , - SettingsChangeEventCallbackC , - SettingsChangeEventSignalInfo , - afterSettingsChangeEvent , - mkSettingsChangeEventCallback , - noSettingsChangeEventCallback , - onSettingsChangeEvent , - settingsChangeEventCallbackWrapper , - settingsChangeEventClosure , - - --- ** Changed - SettingsChangedCallback , - SettingsChangedCallbackC , - SettingsChangedSignalInfo , - afterSettingsChanged , - mkSettingsChangedCallback , - noSettingsChangedCallback , - onSettingsChanged , - settingsChangedCallbackWrapper , - settingsChangedClosure , - - --- ** WritableChangeEvent - SettingsWritableChangeEventCallback , - SettingsWritableChangeEventCallbackC , - SettingsWritableChangeEventSignalInfo , - afterSettingsWritableChangeEvent , - mkSettingsWritableChangeEventCallback , - noSettingsWritableChangeEventCallback , - onSettingsWritableChangeEvent , - settingsWritableChangeEventCallbackWrapper, - settingsWritableChangeEventClosure , - - --- ** WritableChanged - SettingsWritableChangedCallback , - SettingsWritableChangedCallbackC , - SettingsWritableChangedSignalInfo , - afterSettingsWritableChanged , - mkSettingsWritableChangedCallback , - noSettingsWritableChangedCallback , - onSettingsWritableChanged , - settingsWritableChangedCallbackWrapper , - settingsWritableChangedClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype Settings = Settings (ForeignPtr Settings) -foreign import ccall "g_settings_get_type" - c_g_settings_get_type :: IO GType - -type instance ParentTypes Settings = SettingsParentTypes -type SettingsParentTypes = '[GObject.Object] - -instance GObject Settings where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_settings_get_type - - -class GObject o => SettingsK o -instance (GObject o, IsDescendantOf Settings o) => SettingsK o - -toSettings :: SettingsK o => o -> IO Settings -toSettings = unsafeCastTo Settings - -noSettings :: Maybe Settings -noSettings = Nothing - -type family ResolveSettingsMethod (t :: Symbol) (o :: *) :: * where - ResolveSettingsMethod "apply" o = SettingsApplyMethodInfo - ResolveSettingsMethod "bind" o = SettingsBindMethodInfo - ResolveSettingsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSettingsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSettingsMethod "bindWritable" o = SettingsBindWritableMethodInfo - ResolveSettingsMethod "createAction" o = SettingsCreateActionMethodInfo - ResolveSettingsMethod "delay" o = SettingsDelayMethodInfo - ResolveSettingsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSettingsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSettingsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSettingsMethod "isWritable" o = SettingsIsWritableMethodInfo - ResolveSettingsMethod "listChildren" o = SettingsListChildrenMethodInfo - ResolveSettingsMethod "listKeys" o = SettingsListKeysMethodInfo - ResolveSettingsMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSettingsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSettingsMethod "rangeCheck" o = SettingsRangeCheckMethodInfo - ResolveSettingsMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSettingsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSettingsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSettingsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSettingsMethod "reset" o = SettingsResetMethodInfo - ResolveSettingsMethod "revert" o = SettingsRevertMethodInfo - ResolveSettingsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSettingsMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSettingsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSettingsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSettingsMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSettingsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSettingsMethod "getBoolean" o = SettingsGetBooleanMethodInfo - ResolveSettingsMethod "getChild" o = SettingsGetChildMethodInfo - ResolveSettingsMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSettingsMethod "getDefaultValue" o = SettingsGetDefaultValueMethodInfo - ResolveSettingsMethod "getDouble" o = SettingsGetDoubleMethodInfo - ResolveSettingsMethod "getEnum" o = SettingsGetEnumMethodInfo - ResolveSettingsMethod "getFlags" o = SettingsGetFlagsMethodInfo - ResolveSettingsMethod "getHasUnapplied" o = SettingsGetHasUnappliedMethodInfo - ResolveSettingsMethod "getInt" o = SettingsGetIntMethodInfo - ResolveSettingsMethod "getMapped" o = SettingsGetMappedMethodInfo - ResolveSettingsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSettingsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSettingsMethod "getRange" o = SettingsGetRangeMethodInfo - ResolveSettingsMethod "getString" o = SettingsGetStringMethodInfo - ResolveSettingsMethod "getStrv" o = SettingsGetStrvMethodInfo - ResolveSettingsMethod "getUint" o = SettingsGetUintMethodInfo - ResolveSettingsMethod "getUserValue" o = SettingsGetUserValueMethodInfo - ResolveSettingsMethod "getValue" o = SettingsGetValueMethodInfo - ResolveSettingsMethod "setBoolean" o = SettingsSetBooleanMethodInfo - ResolveSettingsMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSettingsMethod "setDouble" o = SettingsSetDoubleMethodInfo - ResolveSettingsMethod "setEnum" o = SettingsSetEnumMethodInfo - ResolveSettingsMethod "setFlags" o = SettingsSetFlagsMethodInfo - ResolveSettingsMethod "setInt" o = SettingsSetIntMethodInfo - ResolveSettingsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSettingsMethod "setString" o = SettingsSetStringMethodInfo - ResolveSettingsMethod "setStrv" o = SettingsSetStrvMethodInfo - ResolveSettingsMethod "setUint" o = SettingsSetUintMethodInfo - ResolveSettingsMethod "setValue" o = SettingsSetValueMethodInfo - ResolveSettingsMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabelProxy t (Settings -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSettingsMethod t Settings, MethodInfo info Settings p) => IsLabel t (Settings -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal Settings::change-event -type SettingsChangeEventCallback = - Maybe [Word32] -> - IO Bool - -noSettingsChangeEventCallback :: Maybe SettingsChangeEventCallback -noSettingsChangeEventCallback = Nothing - -type SettingsChangeEventCallbackC = - Ptr () -> -- object - Ptr Word32 -> - Int32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkSettingsChangeEventCallback :: SettingsChangeEventCallbackC -> IO (FunPtr SettingsChangeEventCallbackC) - -settingsChangeEventClosure :: SettingsChangeEventCallback -> IO Closure -settingsChangeEventClosure cb = newCClosure =<< mkSettingsChangeEventCallback wrapped - where wrapped = settingsChangeEventCallbackWrapper cb - -settingsChangeEventCallbackWrapper :: - SettingsChangeEventCallback -> - Ptr () -> - Ptr Word32 -> - Int32 -> - Ptr () -> - IO CInt -settingsChangeEventCallbackWrapper _cb _ keys nKeys _ = do - maybeKeys <- - if keys == nullPtr - then return Nothing - else do - keys' <- (unpackStorableArrayWithLength nKeys) keys - return $ Just keys' - result <- _cb maybeKeys - let result' = (fromIntegral . fromEnum) result - return result' - -onSettingsChangeEvent :: (GObject a, MonadIO m) => a -> SettingsChangeEventCallback -> m SignalHandlerId -onSettingsChangeEvent obj cb = liftIO $ connectSettingsChangeEvent obj cb SignalConnectBefore -afterSettingsChangeEvent :: (GObject a, MonadIO m) => a -> SettingsChangeEventCallback -> m SignalHandlerId -afterSettingsChangeEvent obj cb = connectSettingsChangeEvent obj cb SignalConnectAfter - -connectSettingsChangeEvent :: (GObject a, MonadIO m) => - a -> SettingsChangeEventCallback -> SignalConnectMode -> m SignalHandlerId -connectSettingsChangeEvent obj cb after = liftIO $ do - cb' <- mkSettingsChangeEventCallback (settingsChangeEventCallbackWrapper cb) - connectSignalFunPtr obj "change-event" cb' after - --- signal Settings::changed -type SettingsChangedCallback = - T.Text -> - IO () - -noSettingsChangedCallback :: Maybe SettingsChangedCallback -noSettingsChangedCallback = Nothing - -type SettingsChangedCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSettingsChangedCallback :: SettingsChangedCallbackC -> IO (FunPtr SettingsChangedCallbackC) - -settingsChangedClosure :: SettingsChangedCallback -> IO Closure -settingsChangedClosure cb = newCClosure =<< mkSettingsChangedCallback wrapped - where wrapped = settingsChangedCallbackWrapper cb - -settingsChangedCallbackWrapper :: - SettingsChangedCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -settingsChangedCallbackWrapper _cb _ key _ = do - key' <- cstringToText key - _cb key' - -onSettingsChanged :: (GObject a, MonadIO m) => a -> SettingsChangedCallback -> m SignalHandlerId -onSettingsChanged obj cb = liftIO $ connectSettingsChanged obj cb SignalConnectBefore -afterSettingsChanged :: (GObject a, MonadIO m) => a -> SettingsChangedCallback -> m SignalHandlerId -afterSettingsChanged obj cb = connectSettingsChanged obj cb SignalConnectAfter - -connectSettingsChanged :: (GObject a, MonadIO m) => - a -> SettingsChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectSettingsChanged obj cb after = liftIO $ do - cb' <- mkSettingsChangedCallback (settingsChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- signal Settings::writable-change-event -type SettingsWritableChangeEventCallback = - Word32 -> - IO Bool - -noSettingsWritableChangeEventCallback :: Maybe SettingsWritableChangeEventCallback -noSettingsWritableChangeEventCallback = Nothing - -type SettingsWritableChangeEventCallbackC = - Ptr () -> -- object - Word32 -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkSettingsWritableChangeEventCallback :: SettingsWritableChangeEventCallbackC -> IO (FunPtr SettingsWritableChangeEventCallbackC) - -settingsWritableChangeEventClosure :: SettingsWritableChangeEventCallback -> IO Closure -settingsWritableChangeEventClosure cb = newCClosure =<< mkSettingsWritableChangeEventCallback wrapped - where wrapped = settingsWritableChangeEventCallbackWrapper cb - -settingsWritableChangeEventCallbackWrapper :: - SettingsWritableChangeEventCallback -> - Ptr () -> - Word32 -> - Ptr () -> - IO CInt -settingsWritableChangeEventCallbackWrapper _cb _ key _ = do - result <- _cb key - let result' = (fromIntegral . fromEnum) result - return result' - -onSettingsWritableChangeEvent :: (GObject a, MonadIO m) => a -> SettingsWritableChangeEventCallback -> m SignalHandlerId -onSettingsWritableChangeEvent obj cb = liftIO $ connectSettingsWritableChangeEvent obj cb SignalConnectBefore -afterSettingsWritableChangeEvent :: (GObject a, MonadIO m) => a -> SettingsWritableChangeEventCallback -> m SignalHandlerId -afterSettingsWritableChangeEvent obj cb = connectSettingsWritableChangeEvent obj cb SignalConnectAfter - -connectSettingsWritableChangeEvent :: (GObject a, MonadIO m) => - a -> SettingsWritableChangeEventCallback -> SignalConnectMode -> m SignalHandlerId -connectSettingsWritableChangeEvent obj cb after = liftIO $ do - cb' <- mkSettingsWritableChangeEventCallback (settingsWritableChangeEventCallbackWrapper cb) - connectSignalFunPtr obj "writable-change-event" cb' after - --- signal Settings::writable-changed -type SettingsWritableChangedCallback = - T.Text -> - IO () - -noSettingsWritableChangedCallback :: Maybe SettingsWritableChangedCallback -noSettingsWritableChangedCallback = Nothing - -type SettingsWritableChangedCallbackC = - Ptr () -> -- object - CString -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSettingsWritableChangedCallback :: SettingsWritableChangedCallbackC -> IO (FunPtr SettingsWritableChangedCallbackC) - -settingsWritableChangedClosure :: SettingsWritableChangedCallback -> IO Closure -settingsWritableChangedClosure cb = newCClosure =<< mkSettingsWritableChangedCallback wrapped - where wrapped = settingsWritableChangedCallbackWrapper cb - -settingsWritableChangedCallbackWrapper :: - SettingsWritableChangedCallback -> - Ptr () -> - CString -> - Ptr () -> - IO () -settingsWritableChangedCallbackWrapper _cb _ key _ = do - key' <- cstringToText key - _cb key' - -onSettingsWritableChanged :: (GObject a, MonadIO m) => a -> SettingsWritableChangedCallback -> m SignalHandlerId -onSettingsWritableChanged obj cb = liftIO $ connectSettingsWritableChanged obj cb SignalConnectBefore -afterSettingsWritableChanged :: (GObject a, MonadIO m) => a -> SettingsWritableChangedCallback -> m SignalHandlerId -afterSettingsWritableChanged obj cb = connectSettingsWritableChanged obj cb SignalConnectAfter - -connectSettingsWritableChanged :: (GObject a, MonadIO m) => - a -> SettingsWritableChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectSettingsWritableChanged obj cb after = liftIO $ do - cb' <- mkSettingsWritableChangedCallback (settingsWritableChangedCallbackWrapper cb) - connectSignalFunPtr obj "writable-changed" cb' after - --- VVV Prop "delay-apply" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getSettingsDelayApply :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsDelayApply obj = liftIO $ getObjectPropertyBool obj "delay-apply" - -data SettingsDelayApplyPropertyInfo -instance AttrInfo SettingsDelayApplyPropertyInfo where - type AttrAllowedOps SettingsDelayApplyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint SettingsDelayApplyPropertyInfo = (~) () - type AttrBaseTypeConstraint SettingsDelayApplyPropertyInfo = SettingsK - type AttrGetType SettingsDelayApplyPropertyInfo = Bool - type AttrLabel SettingsDelayApplyPropertyInfo = "delay-apply" - attrGet _ = getSettingsDelayApply - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "has-unapplied" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getSettingsHasUnapplied :: (MonadIO m, SettingsK o) => o -> m Bool -getSettingsHasUnapplied obj = liftIO $ getObjectPropertyBool obj "has-unapplied" - -data SettingsHasUnappliedPropertyInfo -instance AttrInfo SettingsHasUnappliedPropertyInfo where - type AttrAllowedOps SettingsHasUnappliedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint SettingsHasUnappliedPropertyInfo = (~) () - type AttrBaseTypeConstraint SettingsHasUnappliedPropertyInfo = SettingsK - type AttrGetType SettingsHasUnappliedPropertyInfo = Bool - type AttrLabel SettingsHasUnappliedPropertyInfo = "has-unapplied" - attrGet _ = getSettingsHasUnapplied - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getSettingsPath :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsPath obj = liftIO $ getObjectPropertyString obj "path" - -constructSettingsPath :: T.Text -> IO ([Char], GValue) -constructSettingsPath val = constructObjectPropertyString "path" (Just val) - -data SettingsPathPropertyInfo -instance AttrInfo SettingsPathPropertyInfo where - type AttrAllowedOps SettingsPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsPathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsPathPropertyInfo = SettingsK - type AttrGetType SettingsPathPropertyInfo = (Maybe T.Text) - type AttrLabel SettingsPathPropertyInfo = "path" - attrGet _ = getSettingsPath - attrSet _ = undefined - attrConstruct _ = constructSettingsPath - attrClear _ = undefined - --- VVV Prop "schema" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getSettingsSchema :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsSchema obj = liftIO $ getObjectPropertyString obj "schema" - -constructSettingsSchema :: T.Text -> IO ([Char], GValue) -constructSettingsSchema val = constructObjectPropertyString "schema" (Just val) - -data SettingsSchemaPropertyInfo -instance AttrInfo SettingsSchemaPropertyInfo where - type AttrAllowedOps SettingsSchemaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsSchemaPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsSchemaPropertyInfo = SettingsK - type AttrGetType SettingsSchemaPropertyInfo = (Maybe T.Text) - type AttrLabel SettingsSchemaPropertyInfo = "schema" - attrGet _ = getSettingsSchema - attrSet _ = undefined - attrConstruct _ = constructSettingsSchema - attrClear _ = undefined - --- VVV Prop "schema-id" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getSettingsSchemaId :: (MonadIO m, SettingsK o) => o -> m (Maybe T.Text) -getSettingsSchemaId obj = liftIO $ getObjectPropertyString obj "schema-id" - -constructSettingsSchemaId :: T.Text -> IO ([Char], GValue) -constructSettingsSchemaId val = constructObjectPropertyString "schema-id" (Just val) - -data SettingsSchemaIdPropertyInfo -instance AttrInfo SettingsSchemaIdPropertyInfo where - type AttrAllowedOps SettingsSchemaIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsSchemaIdPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SettingsSchemaIdPropertyInfo = SettingsK - type AttrGetType SettingsSchemaIdPropertyInfo = (Maybe T.Text) - type AttrLabel SettingsSchemaIdPropertyInfo = "schema-id" - attrGet _ = getSettingsSchemaId - attrSet _ = undefined - attrConstruct _ = constructSettingsSchemaId - attrClear _ = undefined - --- VVV Prop "settings-schema" - -- Type: TInterface "Gio" "SettingsSchema" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getSettingsSettingsSchema :: (MonadIO m, SettingsK o) => o -> m (Maybe SettingsSchema) -getSettingsSettingsSchema obj = liftIO $ getObjectPropertyBoxed obj "settings-schema" SettingsSchema - -constructSettingsSettingsSchema :: SettingsSchema -> IO ([Char], GValue) -constructSettingsSettingsSchema val = constructObjectPropertyBoxed "settings-schema" (Just val) - -data SettingsSettingsSchemaPropertyInfo -instance AttrInfo SettingsSettingsSchemaPropertyInfo where - type AttrAllowedOps SettingsSettingsSchemaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SettingsSettingsSchemaPropertyInfo = (~) SettingsSchema - type AttrBaseTypeConstraint SettingsSettingsSchemaPropertyInfo = SettingsK - type AttrGetType SettingsSettingsSchemaPropertyInfo = (Maybe SettingsSchema) - type AttrLabel SettingsSettingsSchemaPropertyInfo = "settings-schema" - attrGet _ = getSettingsSettingsSchema - attrSet _ = undefined - attrConstruct _ = constructSettingsSettingsSchema - attrClear _ = undefined - -type instance AttributeList Settings = SettingsAttributeList -type SettingsAttributeList = ('[ '("delayApply", SettingsDelayApplyPropertyInfo), '("hasUnapplied", SettingsHasUnappliedPropertyInfo), '("path", SettingsPathPropertyInfo), '("schema", SettingsSchemaPropertyInfo), '("schemaId", SettingsSchemaIdPropertyInfo), '("settingsSchema", SettingsSettingsSchemaPropertyInfo)] :: [(Symbol, *)]) - -settingsDelayApply :: AttrLabelProxy "delayApply" -settingsDelayApply = AttrLabelProxy - -settingsHasUnapplied :: AttrLabelProxy "hasUnapplied" -settingsHasUnapplied = AttrLabelProxy - -settingsPath :: AttrLabelProxy "path" -settingsPath = AttrLabelProxy - -settingsSchema :: AttrLabelProxy "schema" -settingsSchema = AttrLabelProxy - -settingsSchemaId :: AttrLabelProxy "schemaId" -settingsSchemaId = AttrLabelProxy - -settingsSettingsSchema :: AttrLabelProxy "settingsSchema" -settingsSettingsSchema = AttrLabelProxy - -data SettingsChangeEventSignalInfo -instance SignalInfo SettingsChangeEventSignalInfo where - type HaskellCallbackType SettingsChangeEventSignalInfo = SettingsChangeEventCallback - connectSignal _ = connectSettingsChangeEvent - -data SettingsChangedSignalInfo -instance SignalInfo SettingsChangedSignalInfo where - type HaskellCallbackType SettingsChangedSignalInfo = SettingsChangedCallback - connectSignal _ = connectSettingsChanged - -data SettingsWritableChangeEventSignalInfo -instance SignalInfo SettingsWritableChangeEventSignalInfo where - type HaskellCallbackType SettingsWritableChangeEventSignalInfo = SettingsWritableChangeEventCallback - connectSignal _ = connectSettingsWritableChangeEvent - -data SettingsWritableChangedSignalInfo -instance SignalInfo SettingsWritableChangedSignalInfo where - type HaskellCallbackType SettingsWritableChangedSignalInfo = SettingsWritableChangedCallback - connectSignal _ = connectSettingsWritableChanged - -type instance SignalList Settings = SettingsSignalList -type SettingsSignalList = ('[ '("changeEvent", SettingsChangeEventSignalInfo), '("changed", SettingsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("writableChangeEvent", SettingsWritableChangeEventSignalInfo), '("writableChanged", SettingsWritableChangedSignalInfo)] :: [(Symbol, *)]) - --- method Settings::new --- method type : Constructor --- Args : [Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Settings") --- throws : False --- Skip return : False - -foreign import ccall "g_settings_new" g_settings_new :: - CString -> -- schema_id : TBasicType TUTF8 - IO (Ptr Settings) - - -settingsNew :: - (MonadIO m) => - T.Text -- schemaId - -> m Settings -- result -settingsNew schemaId = liftIO $ do - schemaId' <- textToCString schemaId - result <- g_settings_new schemaId' - checkUnexpectedReturnNULL "g_settings_new" result - result' <- (wrapObject Settings) result - freeMem schemaId' - return result' - --- method Settings::new_full --- method type : Constructor --- Args : [Arg {argCName = "schema", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Settings") --- throws : False --- Skip return : False - -foreign import ccall "g_settings_new_full" g_settings_new_full :: - Ptr SettingsSchema -> -- schema : TInterface "Gio" "SettingsSchema" - Ptr SettingsBackend -> -- backend : TInterface "Gio" "SettingsBackend" - CString -> -- path : TBasicType TUTF8 - IO (Ptr Settings) - - -settingsNewFull :: - (MonadIO m) => - SettingsSchema -- schema - -> Maybe (SettingsBackend) -- backend - -> Maybe (T.Text) -- path - -> m Settings -- result -settingsNewFull schema backend path = liftIO $ do - let schema' = unsafeManagedPtrGetPtr schema - maybeBackend <- case backend of - Nothing -> return nullPtr - Just jBackend -> do - let jBackend' = unsafeManagedPtrGetPtr jBackend - return jBackend' - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - jPath' <- textToCString jPath - return jPath' - result <- g_settings_new_full schema' maybeBackend maybePath - checkUnexpectedReturnNULL "g_settings_new_full" result - result' <- (wrapObject Settings) result - touchManagedPtr schema - whenJust backend touchManagedPtr - freeMem maybePath - return result' - --- method Settings::new_with_backend --- method type : Constructor --- Args : [Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Settings") --- throws : False --- Skip return : False - -foreign import ccall "g_settings_new_with_backend" g_settings_new_with_backend :: - CString -> -- schema_id : TBasicType TUTF8 - Ptr SettingsBackend -> -- backend : TInterface "Gio" "SettingsBackend" - IO (Ptr Settings) - - -settingsNewWithBackend :: - (MonadIO m) => - T.Text -- schemaId - -> SettingsBackend -- backend - -> m Settings -- result -settingsNewWithBackend schemaId backend = liftIO $ do - schemaId' <- textToCString schemaId - let backend' = unsafeManagedPtrGetPtr backend - result <- g_settings_new_with_backend schemaId' backend' - checkUnexpectedReturnNULL "g_settings_new_with_backend" result - result' <- (wrapObject Settings) result - touchManagedPtr backend - freeMem schemaId' - return result' - --- method Settings::new_with_backend_and_path --- method type : Constructor --- Args : [Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "backend", argType = TInterface "Gio" "SettingsBackend", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Settings") --- throws : False --- Skip return : False - -foreign import ccall "g_settings_new_with_backend_and_path" g_settings_new_with_backend_and_path :: - CString -> -- schema_id : TBasicType TUTF8 - Ptr SettingsBackend -> -- backend : TInterface "Gio" "SettingsBackend" - CString -> -- path : TBasicType TUTF8 - IO (Ptr Settings) - - -settingsNewWithBackendAndPath :: - (MonadIO m) => - T.Text -- schemaId - -> SettingsBackend -- backend - -> T.Text -- path - -> m Settings -- result -settingsNewWithBackendAndPath schemaId backend path = liftIO $ do - schemaId' <- textToCString schemaId - let backend' = unsafeManagedPtrGetPtr backend - path' <- textToCString path - result <- g_settings_new_with_backend_and_path schemaId' backend' path' - checkUnexpectedReturnNULL "g_settings_new_with_backend_and_path" result - result' <- (wrapObject Settings) result - touchManagedPtr backend - freeMem schemaId' - freeMem path' - return result' - --- method Settings::new_with_path --- method type : Constructor --- Args : [Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Settings") --- throws : False --- Skip return : False - -foreign import ccall "g_settings_new_with_path" g_settings_new_with_path :: - CString -> -- schema_id : TBasicType TUTF8 - CString -> -- path : TBasicType TUTF8 - IO (Ptr Settings) - - -settingsNewWithPath :: - (MonadIO m) => - T.Text -- schemaId - -> T.Text -- path - -> m Settings -- result -settingsNewWithPath schemaId path = liftIO $ do - schemaId' <- textToCString schemaId - path' <- textToCString path - result <- g_settings_new_with_path schemaId' path' - checkUnexpectedReturnNULL "g_settings_new_with_path" result - result' <- (wrapObject Settings) result - freeMem schemaId' - freeMem path' - return result' - --- method Settings::apply --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_settings_apply" g_settings_apply :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - IO () - - -settingsApply :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m () -- result -settingsApply _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_settings_apply _obj' - touchManagedPtr _obj - return () - -data SettingsApplyMethodInfo -instance (signature ~ (m ()), MonadIO m, SettingsK a) => MethodInfo SettingsApplyMethodInfo a signature where - overloadedMethod _ = settingsApply - --- method Settings::bind --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "SettingsBindFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_settings_bind" g_settings_bind :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - Ptr GObject.Object -> -- object : TInterface "GObject" "Object" - CString -> -- property : TBasicType TUTF8 - CUInt -> -- flags : TInterface "Gio" "SettingsBindFlags" - IO () - - -settingsBind :: - (MonadIO m, SettingsK a, GObject.ObjectK b) => - a -- _obj - -> T.Text -- key - -> b -- object - -> T.Text -- property - -> [SettingsBindFlags] -- flags - -> m () -- result -settingsBind _obj key object property flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let object' = unsafeManagedPtrCastPtr object - property' <- textToCString property - let flags' = gflagsToWord flags - g_settings_bind _obj' key' object' property' flags' - touchManagedPtr _obj - touchManagedPtr object - freeMem key' - freeMem property' - return () - -data SettingsBindMethodInfo -instance (signature ~ (T.Text -> b -> T.Text -> [SettingsBindFlags] -> m ()), MonadIO m, SettingsK a, GObject.ObjectK b) => MethodInfo SettingsBindMethodInfo a signature where - overloadedMethod _ = settingsBind - --- method Settings::bind_writable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "inverted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_settings_bind_writable" g_settings_bind_writable :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - Ptr GObject.Object -> -- object : TInterface "GObject" "Object" - CString -> -- property : TBasicType TUTF8 - CInt -> -- inverted : TBasicType TBoolean - IO () - - -settingsBindWritable :: - (MonadIO m, SettingsK a, GObject.ObjectK b) => - a -- _obj - -> T.Text -- key - -> b -- object - -> T.Text -- property - -> Bool -- inverted - -> m () -- result -settingsBindWritable _obj key object property inverted = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let object' = unsafeManagedPtrCastPtr object - property' <- textToCString property - let inverted' = (fromIntegral . fromEnum) inverted - g_settings_bind_writable _obj' key' object' property' inverted' - touchManagedPtr _obj - touchManagedPtr object - freeMem key' - freeMem property' - return () - -data SettingsBindWritableMethodInfo -instance (signature ~ (T.Text -> b -> T.Text -> Bool -> m ()), MonadIO m, SettingsK a, GObject.ObjectK b) => MethodInfo SettingsBindWritableMethodInfo a signature where - overloadedMethod _ = settingsBindWritable - --- method Settings::create_action --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Action") --- throws : False --- Skip return : False - -foreign import ccall "g_settings_create_action" g_settings_create_action :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - IO (Ptr Action) - - -settingsCreateAction :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> m Action -- result -settingsCreateAction _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_create_action _obj' key' - checkUnexpectedReturnNULL "g_settings_create_action" result - result' <- (wrapObject Action) result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsCreateActionMethodInfo -instance (signature ~ (T.Text -> m Action), MonadIO m, SettingsK a) => MethodInfo SettingsCreateActionMethodInfo a signature where - overloadedMethod _ = settingsCreateAction - --- method Settings::delay --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_settings_delay" g_settings_delay :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - IO () - - -settingsDelay :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m () -- result -settingsDelay _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_settings_delay _obj' - touchManagedPtr _obj - return () - -data SettingsDelayMethodInfo -instance (signature ~ (m ()), MonadIO m, SettingsK a) => MethodInfo SettingsDelayMethodInfo a signature where - overloadedMethod _ = settingsDelay - --- method Settings::get_boolean --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_get_boolean" g_settings_get_boolean :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - IO CInt - - -settingsGetBoolean :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> m Bool -- result -settingsGetBoolean _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_get_boolean _obj' key' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsGetBooleanMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetBooleanMethodInfo a signature where - overloadedMethod _ = settingsGetBoolean - --- method Settings::get_child --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", 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}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Settings") --- throws : False --- Skip return : False - -foreign import ccall "g_settings_get_child" g_settings_get_child :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- name : TBasicType TUTF8 - IO (Ptr Settings) - - -settingsGetChild :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- name - -> m Settings -- result -settingsGetChild _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - result <- g_settings_get_child _obj' name' - checkUnexpectedReturnNULL "g_settings_get_child" result - result' <- (wrapObject Settings) result - touchManagedPtr _obj - freeMem name' - return result' - -data SettingsGetChildMethodInfo -instance (signature ~ (T.Text -> m Settings), MonadIO m, SettingsK a) => MethodInfo SettingsGetChildMethodInfo a signature where - overloadedMethod _ = settingsGetChild - --- method Settings::get_default_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_settings_get_default_value" g_settings_get_default_value :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - IO (Ptr GVariant) - - -settingsGetDefaultValue :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> m GVariant -- result -settingsGetDefaultValue _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_get_default_value _obj' key' - checkUnexpectedReturnNULL "g_settings_get_default_value" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsGetDefaultValueMethodInfo -instance (signature ~ (T.Text -> m GVariant), MonadIO m, SettingsK a) => MethodInfo SettingsGetDefaultValueMethodInfo a signature where - overloadedMethod _ = settingsGetDefaultValue - --- method Settings::get_double --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TDouble) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_get_double" g_settings_get_double :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - IO CDouble - - -settingsGetDouble :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> m Double -- result -settingsGetDouble _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_get_double _obj' key' - let result' = realToFrac result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsGetDoubleMethodInfo -instance (signature ~ (T.Text -> m Double), MonadIO m, SettingsK a) => MethodInfo SettingsGetDoubleMethodInfo a signature where - overloadedMethod _ = settingsGetDouble - --- method Settings::get_enum --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_get_enum" g_settings_get_enum :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - IO Int32 - - -settingsGetEnum :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> m Int32 -- result -settingsGetEnum _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_get_enum _obj' key' - touchManagedPtr _obj - freeMem key' - return result - -data SettingsGetEnumMethodInfo -instance (signature ~ (T.Text -> m Int32), MonadIO m, SettingsK a) => MethodInfo SettingsGetEnumMethodInfo a signature where - overloadedMethod _ = settingsGetEnum - --- method Settings::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_get_flags" g_settings_get_flags :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - IO Word32 - - -settingsGetFlags :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> m Word32 -- result -settingsGetFlags _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_get_flags _obj' key' - touchManagedPtr _obj - freeMem key' - return result - -data SettingsGetFlagsMethodInfo -instance (signature ~ (T.Text -> m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetFlagsMethodInfo a signature where - overloadedMethod _ = settingsGetFlags - --- method Settings::get_has_unapplied --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_get_has_unapplied" g_settings_get_has_unapplied :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - IO CInt - - -settingsGetHasUnapplied :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m Bool -- result -settingsGetHasUnapplied _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_settings_get_has_unapplied _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsGetHasUnappliedMethodInfo -instance (signature ~ (m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsGetHasUnappliedMethodInfo a signature where - overloadedMethod _ = settingsGetHasUnapplied - --- method Settings::get_int --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_get_int" g_settings_get_int :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - IO Int32 - - -settingsGetInt :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> m Int32 -- result -settingsGetInt _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_get_int _obj' key' - touchManagedPtr _obj - freeMem key' - return result - -data SettingsGetIntMethodInfo -instance (signature ~ (T.Text -> m Int32), MonadIO m, SettingsK a) => MethodInfo SettingsGetIntMethodInfo a signature where - overloadedMethod _ = settingsGetInt - --- method Settings::get_mapped --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mapping", argType = TInterface "Gio" "SettingsGetMapping", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TPtr) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_get_mapped" g_settings_get_mapped :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - FunPtr SettingsGetMappingC -> -- mapping : TInterface "Gio" "SettingsGetMapping" - Ptr () -> -- user_data : TBasicType TPtr - IO (Ptr ()) - - -settingsGetMapped :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> SettingsGetMapping -- mapping - -> m (Ptr ()) -- result -settingsGetMapped _obj key mapping = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - mapping' <- mkSettingsGetMapping (settingsGetMappingWrapper Nothing mapping) - let userData = nullPtr - result <- g_settings_get_mapped _obj' key' mapping' userData - safeFreeFunPtr $ castFunPtrToPtr mapping' - touchManagedPtr _obj - freeMem key' - return result - -data SettingsGetMappedMethodInfo -instance (signature ~ (T.Text -> SettingsGetMapping -> m (Ptr ())), MonadIO m, SettingsK a) => MethodInfo SettingsGetMappedMethodInfo a signature where - overloadedMethod _ = settingsGetMapped - --- method Settings::get_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_settings_get_range" g_settings_get_range :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - IO (Ptr GVariant) - -{-# DEPRECATED settingsGetRange ["(Since version 2.40)","Use g_settings_schema_key_get_range() instead."]#-} -settingsGetRange :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> m GVariant -- result -settingsGetRange _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_get_range _obj' key' - checkUnexpectedReturnNULL "g_settings_get_range" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsGetRangeMethodInfo -instance (signature ~ (T.Text -> m GVariant), MonadIO m, SettingsK a) => MethodInfo SettingsGetRangeMethodInfo a signature where - overloadedMethod _ = settingsGetRange - --- method Settings::get_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_get_string" g_settings_get_string :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - IO CString - - -settingsGetString :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> m T.Text -- result -settingsGetString _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_get_string _obj' key' - checkUnexpectedReturnNULL "g_settings_get_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsGetStringMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, SettingsK a) => MethodInfo SettingsGetStringMethodInfo a signature where - overloadedMethod _ = settingsGetString - --- method Settings::get_strv --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_get_strv" g_settings_get_strv :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - IO (Ptr CString) - - -settingsGetStrv :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> m [T.Text] -- result -settingsGetStrv _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_get_strv _obj' key' - checkUnexpectedReturnNULL "g_settings_get_strv" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsGetStrvMethodInfo -instance (signature ~ (T.Text -> m [T.Text]), MonadIO m, SettingsK a) => MethodInfo SettingsGetStrvMethodInfo a signature where - overloadedMethod _ = settingsGetStrv - --- method Settings::get_uint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_get_uint" g_settings_get_uint :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - IO Word32 - - -settingsGetUint :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> m Word32 -- result -settingsGetUint _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_get_uint _obj' key' - touchManagedPtr _obj - freeMem key' - return result - -data SettingsGetUintMethodInfo -instance (signature ~ (T.Text -> m Word32), MonadIO m, SettingsK a) => MethodInfo SettingsGetUintMethodInfo a signature where - overloadedMethod _ = settingsGetUint - --- method Settings::get_user_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_settings_get_user_value" g_settings_get_user_value :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - IO (Ptr GVariant) - - -settingsGetUserValue :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> m GVariant -- result -settingsGetUserValue _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_get_user_value _obj' key' - checkUnexpectedReturnNULL "g_settings_get_user_value" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsGetUserValueMethodInfo -instance (signature ~ (T.Text -> m GVariant), MonadIO m, SettingsK a) => MethodInfo SettingsGetUserValueMethodInfo a signature where - overloadedMethod _ = settingsGetUserValue - --- method Settings::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_settings_get_value" g_settings_get_value :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - IO (Ptr GVariant) - - -settingsGetValue :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> m GVariant -- result -settingsGetValue _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_get_value _obj' key' - checkUnexpectedReturnNULL "g_settings_get_value" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsGetValueMethodInfo -instance (signature ~ (T.Text -> m GVariant), MonadIO m, SettingsK a) => MethodInfo SettingsGetValueMethodInfo a signature where - overloadedMethod _ = settingsGetValue - --- method Settings::is_writable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", 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}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_is_writable" g_settings_is_writable :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- name : TBasicType TUTF8 - IO CInt - - -settingsIsWritable :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- name - -> m Bool -- result -settingsIsWritable _obj name = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - name' <- textToCString name - result <- g_settings_is_writable _obj' name' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem name' - return result' - -data SettingsIsWritableMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsIsWritableMethodInfo a signature where - overloadedMethod _ = settingsIsWritable - --- method Settings::list_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_list_children" g_settings_list_children :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - IO (Ptr CString) - - -settingsListChildren :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m [T.Text] -- result -settingsListChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_settings_list_children _obj' - checkUnexpectedReturnNULL "g_settings_list_children" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - return result' - -data SettingsListChildrenMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, SettingsK a) => MethodInfo SettingsListChildrenMethodInfo a signature where - overloadedMethod _ = settingsListChildren - --- method Settings::list_keys --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_list_keys" g_settings_list_keys :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - IO (Ptr CString) - - -settingsListKeys :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m [T.Text] -- result -settingsListKeys _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_settings_list_keys _obj' - checkUnexpectedReturnNULL "g_settings_list_keys" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - return result' - -data SettingsListKeysMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, SettingsK a) => MethodInfo SettingsListKeysMethodInfo a signature where - overloadedMethod _ = settingsListKeys - --- method Settings::range_check --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_range_check" g_settings_range_check :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - Ptr GVariant -> -- value : TVariant - IO CInt - -{-# DEPRECATED settingsRangeCheck ["(Since version 2.40)","Use g_settings_schema_key_range_check() instead."]#-} -settingsRangeCheck :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> GVariant -- value - -> m Bool -- result -settingsRangeCheck _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let value' = unsafeManagedPtrGetPtr value - result <- g_settings_range_check _obj' key' value' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsRangeCheckMethodInfo -instance (signature ~ (T.Text -> GVariant -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsRangeCheckMethodInfo a signature where - overloadedMethod _ = settingsRangeCheck - --- method Settings::reset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_settings_reset" g_settings_reset :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - IO () - - -settingsReset :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> m () -- result -settingsReset _obj key = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - g_settings_reset _obj' key' - touchManagedPtr _obj - freeMem key' - return () - -data SettingsResetMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SettingsK a) => MethodInfo SettingsResetMethodInfo a signature where - overloadedMethod _ = settingsReset - --- method Settings::revert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_settings_revert" g_settings_revert :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - IO () - - -settingsRevert :: - (MonadIO m, SettingsK a) => - a -- _obj - -> m () -- result -settingsRevert _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_settings_revert _obj' - touchManagedPtr _obj - return () - -data SettingsRevertMethodInfo -instance (signature ~ (m ()), MonadIO m, SettingsK a) => MethodInfo SettingsRevertMethodInfo a signature where - overloadedMethod _ = settingsRevert - --- method Settings::set_boolean --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_set_boolean" g_settings_set_boolean :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - CInt -> -- value : TBasicType TBoolean - IO CInt - - -settingsSetBoolean :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> Bool -- value - -> m Bool -- result -settingsSetBoolean _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let value' = (fromIntegral . fromEnum) value - result <- g_settings_set_boolean _obj' key' value' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsSetBooleanMethodInfo -instance (signature ~ (T.Text -> Bool -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetBooleanMethodInfo a signature where - overloadedMethod _ = settingsSetBoolean - --- method Settings::set_double --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_set_double" g_settings_set_double :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - CDouble -> -- value : TBasicType TDouble - IO CInt - - -settingsSetDouble :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> Double -- value - -> m Bool -- result -settingsSetDouble _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let value' = realToFrac value - result <- g_settings_set_double _obj' key' value' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsSetDoubleMethodInfo -instance (signature ~ (T.Text -> Double -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetDoubleMethodInfo a signature where - overloadedMethod _ = settingsSetDouble - --- method Settings::set_enum --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_set_enum" g_settings_set_enum :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - Int32 -> -- value : TBasicType TInt - IO CInt - - -settingsSetEnum :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> Int32 -- value - -> m Bool -- result -settingsSetEnum _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_set_enum _obj' key' value - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsSetEnumMethodInfo -instance (signature ~ (T.Text -> Int32 -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetEnumMethodInfo a signature where - overloadedMethod _ = settingsSetEnum - --- method Settings::set_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_set_flags" g_settings_set_flags :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - Word32 -> -- value : TBasicType TUInt - IO CInt - - -settingsSetFlags :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> Word32 -- value - -> m Bool -- result -settingsSetFlags _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_set_flags _obj' key' value - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsSetFlagsMethodInfo -instance (signature ~ (T.Text -> Word32 -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetFlagsMethodInfo a signature where - overloadedMethod _ = settingsSetFlags - --- method Settings::set_int --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_set_int" g_settings_set_int :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - Int32 -> -- value : TBasicType TInt - IO CInt - - -settingsSetInt :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> Int32 -- value - -> m Bool -- result -settingsSetInt _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_set_int _obj' key' value - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsSetIntMethodInfo -instance (signature ~ (T.Text -> Int32 -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetIntMethodInfo a signature where - overloadedMethod _ = settingsSetInt - --- method Settings::set_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_set_string" g_settings_set_string :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - CString -> -- value : TBasicType TUTF8 - IO CInt - - -settingsSetString :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> T.Text -- value - -> m Bool -- result -settingsSetString _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - value' <- textToCString value - result <- g_settings_set_string _obj' key' value' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - freeMem value' - return result' - -data SettingsSetStringMethodInfo -instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetStringMethodInfo a signature where - overloadedMethod _ = settingsSetString - --- method Settings::set_strv --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_set_strv" g_settings_set_strv :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - Ptr CString -> -- value : TCArray True (-1) (-1) (TBasicType TUTF8) - IO CInt - - -settingsSetStrv :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> Maybe ([T.Text]) -- value - -> m Bool -- result -settingsSetStrv _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - maybeValue <- case value of - Nothing -> return nullPtr - Just jValue -> do - jValue' <- packZeroTerminatedUTF8CArray jValue - return jValue' - result <- g_settings_set_strv _obj' key' maybeValue - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - mapZeroTerminatedCArray freeMem maybeValue - freeMem maybeValue - return result' - -data SettingsSetStrvMethodInfo -instance (signature ~ (T.Text -> Maybe ([T.Text]) -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetStrvMethodInfo a signature where - overloadedMethod _ = settingsSetStrv - --- method Settings::set_uint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_set_uint" g_settings_set_uint :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - Word32 -> -- value : TBasicType TUInt - IO CInt - - -settingsSetUint :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> Word32 -- value - -> m Bool -- result -settingsSetUint _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - result <- g_settings_set_uint _obj' key' value - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsSetUintMethodInfo -instance (signature ~ (T.Text -> Word32 -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetUintMethodInfo a signature where - overloadedMethod _ = settingsSetUint - --- method Settings::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Settings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_set_value" g_settings_set_value :: - Ptr Settings -> -- _obj : TInterface "Gio" "Settings" - CString -> -- key : TBasicType TUTF8 - Ptr GVariant -> -- value : TVariant - IO CInt - - -settingsSetValue :: - (MonadIO m, SettingsK a) => - a -- _obj - -> T.Text -- key - -> GVariant -- value - -> m Bool -- result -settingsSetValue _obj key value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - key' <- textToCString key - let value' = unsafeManagedPtrGetPtr value - result <- g_settings_set_value _obj' key' value' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem key' - return result' - -data SettingsSetValueMethodInfo -instance (signature ~ (T.Text -> GVariant -> m Bool), MonadIO m, SettingsK a) => MethodInfo SettingsSetValueMethodInfo a signature where - overloadedMethod _ = settingsSetValue - --- method Settings::list_relocatable_schemas --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_list_relocatable_schemas" g_settings_list_relocatable_schemas :: - IO (Ptr CString) - -{-# DEPRECATED settingsListRelocatableSchemas ["(Since version 2.40)","Use g_settings_schema_source_list_schemas() instead"]#-} -settingsListRelocatableSchemas :: - (MonadIO m) => - m [T.Text] -- result -settingsListRelocatableSchemas = liftIO $ do - result <- g_settings_list_relocatable_schemas - checkUnexpectedReturnNULL "g_settings_list_relocatable_schemas" result - result' <- unpackZeroTerminatedUTF8CArray result - return result' - --- method Settings::list_schemas --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_list_schemas" g_settings_list_schemas :: - IO (Ptr CString) - -{-# DEPRECATED settingsListSchemas ["(Since version 2.40)","Use g_settings_schema_source_list_schemas() instead.","If you used g_settings_list_schemas() to check for the presence of","a particular schema, use g_settings_schema_source_lookup() instead","of your whole loop."]#-} -settingsListSchemas :: - (MonadIO m) => - m [T.Text] -- result -settingsListSchemas = liftIO $ do - result <- g_settings_list_schemas - checkUnexpectedReturnNULL "g_settings_list_schemas" result - result' <- unpackZeroTerminatedUTF8CArray result - return result' - --- method Settings::sync --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_settings_sync" g_settings_sync :: - IO () - - -settingsSync :: - (MonadIO m) => - m () -- result -settingsSync = liftIO $ do - g_settings_sync - return () - --- method Settings::unbind --- method type : MemberFunction --- Args : [Arg {argCName = "object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_settings_unbind" g_settings_unbind :: - Ptr GObject.Object -> -- object : TInterface "GObject" "Object" - CString -> -- property : TBasicType TUTF8 - IO () - - -settingsUnbind :: - (MonadIO m, GObject.ObjectK a) => - a -- object - -> T.Text -- property - -> m () -- result -settingsUnbind object property = liftIO $ do - let object' = unsafeManagedPtrCastPtr object - property' <- textToCString property - g_settings_unbind object' property' - touchManagedPtr object - freeMem property' - return () - - diff --git a/GI/Gio/Objects/Settings.hs-boot b/GI/Gio/Objects/Settings.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/Settings.hs-boot +++ /dev/null @@ -1,58 +0,0 @@ -module GI.Gio.Objects.Settings where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Settings = Settings (ForeignPtr Settings) -instance GObject Settings where -class GObject o => SettingsK o -instance (GObject o, IsDescendantOf Settings o) => SettingsK o -data SettingsDelayApplyPropertyInfo -data SettingsHasUnappliedPropertyInfo -data SettingsPathPropertyInfo -data SettingsSchemaPropertyInfo -data SettingsSchemaIdPropertyInfo -data SettingsSettingsSchemaPropertyInfo -data SettingsChangeEventSignalInfo -data SettingsChangedSignalInfo -data SettingsWritableChangeEventSignalInfo -data SettingsWritableChangedSignalInfo -data SettingsApplyMethodInfo -data SettingsBindMethodInfo -data SettingsBindWritableMethodInfo -data SettingsCreateActionMethodInfo -data SettingsDelayMethodInfo -data SettingsGetBooleanMethodInfo -data SettingsGetChildMethodInfo -data SettingsGetDefaultValueMethodInfo -data SettingsGetDoubleMethodInfo -data SettingsGetEnumMethodInfo -data SettingsGetFlagsMethodInfo -data SettingsGetHasUnappliedMethodInfo -data SettingsGetIntMethodInfo -data SettingsGetMappedMethodInfo -data SettingsGetRangeMethodInfo -data SettingsGetStringMethodInfo -data SettingsGetStrvMethodInfo -data SettingsGetUintMethodInfo -data SettingsGetUserValueMethodInfo -data SettingsGetValueMethodInfo -data SettingsIsWritableMethodInfo -data SettingsListChildrenMethodInfo -data SettingsListKeysMethodInfo -data SettingsRangeCheckMethodInfo -data SettingsResetMethodInfo -data SettingsRevertMethodInfo -data SettingsSetBooleanMethodInfo -data SettingsSetDoubleMethodInfo -data SettingsSetEnumMethodInfo -data SettingsSetFlagsMethodInfo -data SettingsSetIntMethodInfo -data SettingsSetStringMethodInfo -data SettingsSetStrvMethodInfo -data SettingsSetUintMethodInfo -data SettingsSetValueMethodInfo diff --git a/GI/Gio/Objects/SimpleAction.hs b/GI/Gio/Objects/SimpleAction.hs deleted file mode 100644 --- a/GI/Gio/Objects/SimpleAction.hs +++ /dev/null @@ -1,608 +0,0 @@ - - -{- | -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.Objects.SimpleAction - ( - --- * Exported types - SimpleAction(..) , - SimpleActionK , - toSimpleAction , - noSimpleAction , - - - -- * Methods --- ** simpleActionNew - simpleActionNew , - - --- ** simpleActionNewStateful - simpleActionNewStateful , - - --- ** simpleActionSetEnabled - SimpleActionSetEnabledMethodInfo , - simpleActionSetEnabled , - - --- ** simpleActionSetState - SimpleActionSetStateMethodInfo , - simpleActionSetState , - - --- ** simpleActionSetStateHint - SimpleActionSetStateHintMethodInfo , - simpleActionSetStateHint , - - - - - -- * Properties --- ** Enabled - SimpleActionEnabledPropertyInfo , - constructSimpleActionEnabled , - getSimpleActionEnabled , - setSimpleActionEnabled , - simpleActionEnabled , - - --- ** Name - SimpleActionNamePropertyInfo , - constructSimpleActionName , - getSimpleActionName , - simpleActionName , - - --- ** ParameterType - SimpleActionParameterTypePropertyInfo , - constructSimpleActionParameterType , - getSimpleActionParameterType , - simpleActionParameterType , - - --- ** State - SimpleActionStatePropertyInfo , - constructSimpleActionState , - getSimpleActionState , - setSimpleActionState , - simpleActionState , - - --- ** StateType - SimpleActionStateTypePropertyInfo , - getSimpleActionStateType , - simpleActionStateType , - - - - - -- * Signals --- ** Activate - SimpleActionActivateCallback , - SimpleActionActivateCallbackC , - SimpleActionActivateSignalInfo , - afterSimpleActionActivate , - mkSimpleActionActivateCallback , - noSimpleActionActivateCallback , - onSimpleActionActivate , - simpleActionActivateCallbackWrapper , - simpleActionActivateClosure , - - --- ** ChangeState - SimpleActionChangeStateCallback , - SimpleActionChangeStateCallbackC , - SimpleActionChangeStateSignalInfo , - afterSimpleActionChangeState , - mkSimpleActionChangeStateCallback , - noSimpleActionChangeStateCallback , - onSimpleActionChangeState , - simpleActionChangeStateCallbackWrapper , - simpleActionChangeStateClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype SimpleAction = SimpleAction (ForeignPtr SimpleAction) -foreign import ccall "g_simple_action_get_type" - c_g_simple_action_get_type :: IO GType - -type instance ParentTypes SimpleAction = SimpleActionParentTypes -type SimpleActionParentTypes = '[GObject.Object, Action] - -instance GObject SimpleAction where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_simple_action_get_type - - -class GObject o => SimpleActionK o -instance (GObject o, IsDescendantOf SimpleAction o) => SimpleActionK o - -toSimpleAction :: SimpleActionK o => o -> IO SimpleAction -toSimpleAction = unsafeCastTo SimpleAction - -noSimpleAction :: Maybe SimpleAction -noSimpleAction = Nothing - -type family ResolveSimpleActionMethod (t :: Symbol) (o :: *) :: * where - ResolveSimpleActionMethod "activate" o = ActionActivateMethodInfo - ResolveSimpleActionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSimpleActionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSimpleActionMethod "changeState" o = ActionChangeStateMethodInfo - ResolveSimpleActionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSimpleActionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSimpleActionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSimpleActionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSimpleActionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSimpleActionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSimpleActionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSimpleActionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSimpleActionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSimpleActionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSimpleActionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSimpleActionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSimpleActionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSimpleActionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSimpleActionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSimpleActionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSimpleActionMethod "getEnabled" o = ActionGetEnabledMethodInfo - ResolveSimpleActionMethod "getName" o = ActionGetNameMethodInfo - ResolveSimpleActionMethod "getParameterType" o = ActionGetParameterTypeMethodInfo - ResolveSimpleActionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSimpleActionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSimpleActionMethod "getState" o = ActionGetStateMethodInfo - ResolveSimpleActionMethod "getStateHint" o = ActionGetStateHintMethodInfo - ResolveSimpleActionMethod "getStateType" o = ActionGetStateTypeMethodInfo - ResolveSimpleActionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSimpleActionMethod "setEnabled" o = SimpleActionSetEnabledMethodInfo - ResolveSimpleActionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSimpleActionMethod "setState" o = SimpleActionSetStateMethodInfo - ResolveSimpleActionMethod "setStateHint" o = SimpleActionSetStateHintMethodInfo - ResolveSimpleActionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSimpleActionMethod t SimpleAction, MethodInfo info SimpleAction p) => IsLabelProxy t (SimpleAction -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSimpleActionMethod t SimpleAction, MethodInfo info SimpleAction p) => IsLabel t (SimpleAction -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal SimpleAction::activate -type SimpleActionActivateCallback = - Maybe GVariant -> - IO () - -noSimpleActionActivateCallback :: Maybe SimpleActionActivateCallback -noSimpleActionActivateCallback = Nothing - -type SimpleActionActivateCallbackC = - Ptr () -> -- object - Ptr GVariant -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSimpleActionActivateCallback :: SimpleActionActivateCallbackC -> IO (FunPtr SimpleActionActivateCallbackC) - -simpleActionActivateClosure :: SimpleActionActivateCallback -> IO Closure -simpleActionActivateClosure cb = newCClosure =<< mkSimpleActionActivateCallback wrapped - where wrapped = simpleActionActivateCallbackWrapper cb - -simpleActionActivateCallbackWrapper :: - SimpleActionActivateCallback -> - Ptr () -> - Ptr GVariant -> - Ptr () -> - IO () -simpleActionActivateCallbackWrapper _cb _ parameter _ = do - maybeParameter <- - if parameter == nullPtr - then return Nothing - else do - parameter' <- newGVariantFromPtr parameter - return $ Just parameter' - _cb maybeParameter - -onSimpleActionActivate :: (GObject a, MonadIO m) => a -> SimpleActionActivateCallback -> m SignalHandlerId -onSimpleActionActivate obj cb = liftIO $ connectSimpleActionActivate obj cb SignalConnectBefore -afterSimpleActionActivate :: (GObject a, MonadIO m) => a -> SimpleActionActivateCallback -> m SignalHandlerId -afterSimpleActionActivate obj cb = connectSimpleActionActivate obj cb SignalConnectAfter - -connectSimpleActionActivate :: (GObject a, MonadIO m) => - a -> SimpleActionActivateCallback -> SignalConnectMode -> m SignalHandlerId -connectSimpleActionActivate obj cb after = liftIO $ do - cb' <- mkSimpleActionActivateCallback (simpleActionActivateCallbackWrapper cb) - connectSignalFunPtr obj "activate" cb' after - --- signal SimpleAction::change-state -type SimpleActionChangeStateCallback = - Maybe GVariant -> - IO () - -noSimpleActionChangeStateCallback :: Maybe SimpleActionChangeStateCallback -noSimpleActionChangeStateCallback = Nothing - -type SimpleActionChangeStateCallbackC = - Ptr () -> -- object - Ptr GVariant -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSimpleActionChangeStateCallback :: SimpleActionChangeStateCallbackC -> IO (FunPtr SimpleActionChangeStateCallbackC) - -simpleActionChangeStateClosure :: SimpleActionChangeStateCallback -> IO Closure -simpleActionChangeStateClosure cb = newCClosure =<< mkSimpleActionChangeStateCallback wrapped - where wrapped = simpleActionChangeStateCallbackWrapper cb - -simpleActionChangeStateCallbackWrapper :: - SimpleActionChangeStateCallback -> - Ptr () -> - Ptr GVariant -> - Ptr () -> - IO () -simpleActionChangeStateCallbackWrapper _cb _ value _ = do - maybeValue <- - if value == nullPtr - then return Nothing - else do - value' <- newGVariantFromPtr value - return $ Just value' - _cb maybeValue - -onSimpleActionChangeState :: (GObject a, MonadIO m) => a -> SimpleActionChangeStateCallback -> m SignalHandlerId -onSimpleActionChangeState obj cb = liftIO $ connectSimpleActionChangeState obj cb SignalConnectBefore -afterSimpleActionChangeState :: (GObject a, MonadIO m) => a -> SimpleActionChangeStateCallback -> m SignalHandlerId -afterSimpleActionChangeState obj cb = connectSimpleActionChangeState obj cb SignalConnectAfter - -connectSimpleActionChangeState :: (GObject a, MonadIO m) => - a -> SimpleActionChangeStateCallback -> SignalConnectMode -> m SignalHandlerId -connectSimpleActionChangeState obj cb after = liftIO $ do - cb' <- mkSimpleActionChangeStateCallback (simpleActionChangeStateCallbackWrapper cb) - connectSignalFunPtr obj "change-state" cb' after - ---- XXX Duplicated object with different types: - --- Name {namespace = "Gio", name = "SimpleAction"} -> Property {propName = "enabled", propType = TBasicType TBoolean, propFlags = [PropertyReadable,PropertyWritable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "enabled", propType = TBasicType TBoolean, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} ---- XXX Duplicated object with different types: - --- Name {namespace = "Gio", name = "SimpleAction"} -> Property {propName = "name", propType = TBasicType TUTF8, propFlags = [PropertyReadable,PropertyWritable,PropertyConstructOnly], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "name", propType = TBasicType TUTF8, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} ---- XXX Duplicated object with different types: - --- Name {namespace = "Gio", name = "SimpleAction"} -> Property {propName = "parameter-type", propType = TInterface "GLib" "VariantType", propFlags = [PropertyReadable,PropertyWritable,PropertyConstructOnly], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "parameter-type", propType = TInterface "GLib" "VariantType", propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} ---- XXX Duplicated object with different types: - --- Name {namespace = "Gio", name = "SimpleAction"} -> Property {propName = "state", propType = TVariant, propFlags = [PropertyReadable,PropertyWritable,PropertyConstruct], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gio", name = "Action"} -> Property {propName = "state", propType = TVariant, propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} --- VVV Prop "enabled" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getSimpleActionEnabled :: (MonadIO m, SimpleActionK o) => o -> m Bool -getSimpleActionEnabled obj = liftIO $ getObjectPropertyBool obj "enabled" - -setSimpleActionEnabled :: (MonadIO m, SimpleActionK o) => o -> Bool -> m () -setSimpleActionEnabled obj val = liftIO $ setObjectPropertyBool obj "enabled" val - -constructSimpleActionEnabled :: Bool -> IO ([Char], GValue) -constructSimpleActionEnabled val = constructObjectPropertyBool "enabled" val - -data SimpleActionEnabledPropertyInfo -instance AttrInfo SimpleActionEnabledPropertyInfo where - type AttrAllowedOps SimpleActionEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SimpleActionEnabledPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SimpleActionEnabledPropertyInfo = SimpleActionK - type AttrGetType SimpleActionEnabledPropertyInfo = Bool - type AttrLabel SimpleActionEnabledPropertyInfo = "enabled" - attrGet _ = getSimpleActionEnabled - attrSet _ = setSimpleActionEnabled - attrConstruct _ = constructSimpleActionEnabled - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getSimpleActionName :: (MonadIO m, SimpleActionK o) => o -> m (Maybe T.Text) -getSimpleActionName obj = liftIO $ getObjectPropertyString obj "name" - -constructSimpleActionName :: T.Text -> IO ([Char], GValue) -constructSimpleActionName val = constructObjectPropertyString "name" (Just val) - -data SimpleActionNamePropertyInfo -instance AttrInfo SimpleActionNamePropertyInfo where - type AttrAllowedOps SimpleActionNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SimpleActionNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SimpleActionNamePropertyInfo = SimpleActionK - type AttrGetType SimpleActionNamePropertyInfo = (Maybe T.Text) - type AttrLabel SimpleActionNamePropertyInfo = "name" - attrGet _ = getSimpleActionName - attrSet _ = undefined - attrConstruct _ = constructSimpleActionName - attrClear _ = undefined - --- VVV Prop "parameter-type" - -- Type: TInterface "GLib" "VariantType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getSimpleActionParameterType :: (MonadIO m, SimpleActionK o) => o -> m (Maybe GLib.VariantType) -getSimpleActionParameterType obj = liftIO $ getObjectPropertyBoxed obj "parameter-type" GLib.VariantType - -constructSimpleActionParameterType :: GLib.VariantType -> IO ([Char], GValue) -constructSimpleActionParameterType val = constructObjectPropertyBoxed "parameter-type" (Just val) - -data SimpleActionParameterTypePropertyInfo -instance AttrInfo SimpleActionParameterTypePropertyInfo where - type AttrAllowedOps SimpleActionParameterTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SimpleActionParameterTypePropertyInfo = (~) GLib.VariantType - type AttrBaseTypeConstraint SimpleActionParameterTypePropertyInfo = SimpleActionK - type AttrGetType SimpleActionParameterTypePropertyInfo = (Maybe GLib.VariantType) - type AttrLabel SimpleActionParameterTypePropertyInfo = "parameter-type" - attrGet _ = getSimpleActionParameterType - attrSet _ = undefined - attrConstruct _ = constructSimpleActionParameterType - attrClear _ = undefined - --- VVV Prop "state" - -- Type: TVariant - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Just False) - -getSimpleActionState :: (MonadIO m, SimpleActionK o) => o -> m (Maybe GVariant) -getSimpleActionState obj = liftIO $ getObjectPropertyVariant obj "state" - -setSimpleActionState :: (MonadIO m, SimpleActionK o) => o -> GVariant -> m () -setSimpleActionState obj val = liftIO $ setObjectPropertyVariant obj "state" (Just val) - -constructSimpleActionState :: GVariant -> IO ([Char], GValue) -constructSimpleActionState val = constructObjectPropertyVariant "state" (Just val) - -data SimpleActionStatePropertyInfo -instance AttrInfo SimpleActionStatePropertyInfo where - type AttrAllowedOps SimpleActionStatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SimpleActionStatePropertyInfo = (~) GVariant - type AttrBaseTypeConstraint SimpleActionStatePropertyInfo = SimpleActionK - type AttrGetType SimpleActionStatePropertyInfo = (Maybe GVariant) - type AttrLabel SimpleActionStatePropertyInfo = "state" - attrGet _ = getSimpleActionState - attrSet _ = setSimpleActionState - attrConstruct _ = constructSimpleActionState - attrClear _ = undefined - --- VVV Prop "state-type" - -- Type: TInterface "GLib" "VariantType" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getSimpleActionStateType :: (MonadIO m, SimpleActionK o) => o -> m (Maybe GLib.VariantType) -getSimpleActionStateType obj = liftIO $ getObjectPropertyBoxed obj "state-type" GLib.VariantType - -data SimpleActionStateTypePropertyInfo -instance AttrInfo SimpleActionStateTypePropertyInfo where - type AttrAllowedOps SimpleActionStateTypePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SimpleActionStateTypePropertyInfo = (~) () - type AttrBaseTypeConstraint SimpleActionStateTypePropertyInfo = SimpleActionK - type AttrGetType SimpleActionStateTypePropertyInfo = (Maybe GLib.VariantType) - type AttrLabel SimpleActionStateTypePropertyInfo = "state-type" - attrGet _ = getSimpleActionStateType - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList SimpleAction = SimpleActionAttributeList -type SimpleActionAttributeList = ('[ '("stateType", SimpleActionStateTypePropertyInfo)] :: [(Symbol, *)]) - -simpleActionEnabled :: AttrLabelProxy "enabled" -simpleActionEnabled = AttrLabelProxy - -simpleActionName :: AttrLabelProxy "name" -simpleActionName = AttrLabelProxy - -simpleActionParameterType :: AttrLabelProxy "parameterType" -simpleActionParameterType = AttrLabelProxy - -simpleActionState :: AttrLabelProxy "state" -simpleActionState = AttrLabelProxy - -simpleActionStateType :: AttrLabelProxy "stateType" -simpleActionStateType = AttrLabelProxy - -data SimpleActionActivateSignalInfo -instance SignalInfo SimpleActionActivateSignalInfo where - type HaskellCallbackType SimpleActionActivateSignalInfo = SimpleActionActivateCallback - connectSignal _ = connectSimpleActionActivate - -data SimpleActionChangeStateSignalInfo -instance SignalInfo SimpleActionChangeStateSignalInfo where - type HaskellCallbackType SimpleActionChangeStateSignalInfo = SimpleActionChangeStateCallback - connectSignal _ = connectSimpleActionChangeState - -type instance SignalList SimpleAction = SimpleActionSignalList -type SimpleActionSignalList = ('[ '("activate", SimpleActionActivateSignalInfo), '("changeState", SimpleActionChangeStateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SimpleAction::new --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SimpleAction") --- throws : False --- Skip return : False - -foreign import ccall "g_simple_action_new" g_simple_action_new :: - CString -> -- name : TBasicType TUTF8 - Ptr GLib.VariantType -> -- parameter_type : TInterface "GLib" "VariantType" - IO (Ptr SimpleAction) - - -simpleActionNew :: - (MonadIO m) => - T.Text -- name - -> Maybe (GLib.VariantType) -- parameterType - -> m SimpleAction -- result -simpleActionNew name parameterType = liftIO $ do - name' <- textToCString name - maybeParameterType <- case parameterType of - Nothing -> return nullPtr - Just jParameterType -> do - let jParameterType' = unsafeManagedPtrGetPtr jParameterType - return jParameterType' - result <- g_simple_action_new name' maybeParameterType - checkUnexpectedReturnNULL "g_simple_action_new" result - result' <- (wrapObject SimpleAction) result - whenJust parameterType touchManagedPtr - freeMem name' - return result' - --- method SimpleAction::new_stateful --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parameter_type", argType = TInterface "GLib" "VariantType", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SimpleAction") --- throws : False --- Skip return : False - -foreign import ccall "g_simple_action_new_stateful" g_simple_action_new_stateful :: - CString -> -- name : TBasicType TUTF8 - Ptr GLib.VariantType -> -- parameter_type : TInterface "GLib" "VariantType" - Ptr GVariant -> -- state : TVariant - IO (Ptr SimpleAction) - - -simpleActionNewStateful :: - (MonadIO m) => - T.Text -- name - -> Maybe (GLib.VariantType) -- parameterType - -> GVariant -- state - -> m SimpleAction -- result -simpleActionNewStateful name parameterType state = liftIO $ do - name' <- textToCString name - maybeParameterType <- case parameterType of - Nothing -> return nullPtr - Just jParameterType -> do - let jParameterType' = unsafeManagedPtrGetPtr jParameterType - return jParameterType' - let state' = unsafeManagedPtrGetPtr state - result <- g_simple_action_new_stateful name' maybeParameterType state' - checkUnexpectedReturnNULL "g_simple_action_new_stateful" result - result' <- (wrapObject SimpleAction) result - whenJust parameterType touchManagedPtr - freeMem name' - return result' - --- method SimpleAction::set_enabled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_action_set_enabled" g_simple_action_set_enabled :: - Ptr SimpleAction -> -- _obj : TInterface "Gio" "SimpleAction" - CInt -> -- enabled : TBasicType TBoolean - IO () - - -simpleActionSetEnabled :: - (MonadIO m, SimpleActionK a) => - a -- _obj - -> Bool -- enabled - -> m () -- result -simpleActionSetEnabled _obj enabled = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enabled' = (fromIntegral . fromEnum) enabled - g_simple_action_set_enabled _obj' enabled' - touchManagedPtr _obj - return () - -data SimpleActionSetEnabledMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SimpleActionK a) => MethodInfo SimpleActionSetEnabledMethodInfo a signature where - overloadedMethod _ = simpleActionSetEnabled - --- method SimpleAction::set_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_action_set_state" g_simple_action_set_state :: - Ptr SimpleAction -> -- _obj : TInterface "Gio" "SimpleAction" - Ptr GVariant -> -- value : TVariant - IO () - - -simpleActionSetState :: - (MonadIO m, SimpleActionK a) => - a -- _obj - -> GVariant -- value - -> m () -- result -simpleActionSetState _obj value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let value' = unsafeManagedPtrGetPtr value - g_simple_action_set_state _obj' value' - touchManagedPtr _obj - return () - -data SimpleActionSetStateMethodInfo -instance (signature ~ (GVariant -> m ()), MonadIO m, SimpleActionK a) => MethodInfo SimpleActionSetStateMethodInfo a signature where - overloadedMethod _ = simpleActionSetState - --- method SimpleAction::set_state_hint --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state_hint", argType = TVariant, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_action_set_state_hint" g_simple_action_set_state_hint :: - Ptr SimpleAction -> -- _obj : TInterface "Gio" "SimpleAction" - Ptr GVariant -> -- state_hint : TVariant - IO () - - -simpleActionSetStateHint :: - (MonadIO m, SimpleActionK a) => - a -- _obj - -> Maybe (GVariant) -- stateHint - -> m () -- result -simpleActionSetStateHint _obj stateHint = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeStateHint <- case stateHint of - Nothing -> return nullPtr - Just jStateHint -> do - let jStateHint' = unsafeManagedPtrGetPtr jStateHint - return jStateHint' - g_simple_action_set_state_hint _obj' maybeStateHint - touchManagedPtr _obj - return () - -data SimpleActionSetStateHintMethodInfo -instance (signature ~ (Maybe (GVariant) -> m ()), MonadIO m, SimpleActionK a) => MethodInfo SimpleActionSetStateHintMethodInfo a signature where - overloadedMethod _ = simpleActionSetStateHint - - diff --git a/GI/Gio/Objects/SimpleAction.hs-boot b/GI/Gio/Objects/SimpleAction.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/SimpleAction.hs-boot +++ /dev/null @@ -1,23 +0,0 @@ -module GI.Gio.Objects.SimpleAction where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SimpleAction = SimpleAction (ForeignPtr SimpleAction) -instance GObject SimpleAction where -class GObject o => SimpleActionK o -instance (GObject o, IsDescendantOf SimpleAction o) => SimpleActionK o -data SimpleActionEnabledPropertyInfo -data SimpleActionNamePropertyInfo -data SimpleActionParameterTypePropertyInfo -data SimpleActionStatePropertyInfo -data SimpleActionStateTypePropertyInfo -data SimpleActionActivateSignalInfo -data SimpleActionChangeStateSignalInfo -data SimpleActionSetEnabledMethodInfo -data SimpleActionSetStateMethodInfo -data SimpleActionSetStateHintMethodInfo diff --git a/GI/Gio/Objects/SimpleActionGroup.hs b/GI/Gio/Objects/SimpleActionGroup.hs deleted file mode 100644 --- a/GI/Gio/Objects/SimpleActionGroup.hs +++ /dev/null @@ -1,294 +0,0 @@ - - -{- | -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.Objects.SimpleActionGroup - ( - --- * Exported types - SimpleActionGroup(..) , - SimpleActionGroupK , - toSimpleActionGroup , - noSimpleActionGroup , - - - -- * Methods --- ** simpleActionGroupAddEntries - SimpleActionGroupAddEntriesMethodInfo , - simpleActionGroupAddEntries , - - --- ** simpleActionGroupInsert - SimpleActionGroupInsertMethodInfo , - simpleActionGroupInsert , - - --- ** simpleActionGroupLookup - SimpleActionGroupLookupMethodInfo , - simpleActionGroupLookup , - - --- ** simpleActionGroupNew - simpleActionGroupNew , - - --- ** simpleActionGroupRemove - SimpleActionGroupRemoveMethodInfo , - simpleActionGroupRemove , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype SimpleActionGroup = SimpleActionGroup (ForeignPtr SimpleActionGroup) -foreign import ccall "g_simple_action_group_get_type" - c_g_simple_action_group_get_type :: IO GType - -type instance ParentTypes SimpleActionGroup = SimpleActionGroupParentTypes -type SimpleActionGroupParentTypes = '[GObject.Object, ActionGroup, ActionMap] - -instance GObject SimpleActionGroup where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_simple_action_group_get_type - - -class GObject o => SimpleActionGroupK o -instance (GObject o, IsDescendantOf SimpleActionGroup o) => SimpleActionGroupK o - -toSimpleActionGroup :: SimpleActionGroupK o => o -> IO SimpleActionGroup -toSimpleActionGroup = unsafeCastTo SimpleActionGroup - -noSimpleActionGroup :: Maybe SimpleActionGroup -noSimpleActionGroup = Nothing - -type family ResolveSimpleActionGroupMethod (t :: Symbol) (o :: *) :: * where - ResolveSimpleActionGroupMethod "actionAdded" o = ActionGroupActionAddedMethodInfo - ResolveSimpleActionGroupMethod "actionEnabledChanged" o = ActionGroupActionEnabledChangedMethodInfo - ResolveSimpleActionGroupMethod "actionRemoved" o = ActionGroupActionRemovedMethodInfo - ResolveSimpleActionGroupMethod "actionStateChanged" o = ActionGroupActionStateChangedMethodInfo - ResolveSimpleActionGroupMethod "activateAction" o = ActionGroupActivateActionMethodInfo - ResolveSimpleActionGroupMethod "addAction" o = ActionMapAddActionMethodInfo - ResolveSimpleActionGroupMethod "addActionEntries" o = ActionMapAddActionEntriesMethodInfo - ResolveSimpleActionGroupMethod "addEntries" o = SimpleActionGroupAddEntriesMethodInfo - ResolveSimpleActionGroupMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSimpleActionGroupMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSimpleActionGroupMethod "changeActionState" o = ActionGroupChangeActionStateMethodInfo - ResolveSimpleActionGroupMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSimpleActionGroupMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSimpleActionGroupMethod "hasAction" o = ActionGroupHasActionMethodInfo - ResolveSimpleActionGroupMethod "insert" o = SimpleActionGroupInsertMethodInfo - ResolveSimpleActionGroupMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSimpleActionGroupMethod "listActions" o = ActionGroupListActionsMethodInfo - ResolveSimpleActionGroupMethod "lookup" o = SimpleActionGroupLookupMethodInfo - ResolveSimpleActionGroupMethod "lookupAction" o = ActionMapLookupActionMethodInfo - ResolveSimpleActionGroupMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSimpleActionGroupMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSimpleActionGroupMethod "queryAction" o = ActionGroupQueryActionMethodInfo - ResolveSimpleActionGroupMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSimpleActionGroupMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSimpleActionGroupMethod "remove" o = SimpleActionGroupRemoveMethodInfo - ResolveSimpleActionGroupMethod "removeAction" o = ActionMapRemoveActionMethodInfo - ResolveSimpleActionGroupMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSimpleActionGroupMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSimpleActionGroupMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSimpleActionGroupMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSimpleActionGroupMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSimpleActionGroupMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSimpleActionGroupMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSimpleActionGroupMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSimpleActionGroupMethod "getActionEnabled" o = ActionGroupGetActionEnabledMethodInfo - ResolveSimpleActionGroupMethod "getActionParameterType" o = ActionGroupGetActionParameterTypeMethodInfo - ResolveSimpleActionGroupMethod "getActionState" o = ActionGroupGetActionStateMethodInfo - ResolveSimpleActionGroupMethod "getActionStateHint" o = ActionGroupGetActionStateHintMethodInfo - ResolveSimpleActionGroupMethod "getActionStateType" o = ActionGroupGetActionStateTypeMethodInfo - ResolveSimpleActionGroupMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSimpleActionGroupMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSimpleActionGroupMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSimpleActionGroupMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSimpleActionGroupMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSimpleActionGroupMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSimpleActionGroupMethod t SimpleActionGroup, MethodInfo info SimpleActionGroup p) => IsLabelProxy t (SimpleActionGroup -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSimpleActionGroupMethod t SimpleActionGroup, MethodInfo info SimpleActionGroup p) => IsLabel t (SimpleActionGroup -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList SimpleActionGroup = SimpleActionGroupAttributeList -type SimpleActionGroupAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList SimpleActionGroup = SimpleActionGroupSignalList -type SimpleActionGroupSignalList = ('[ '("actionAdded", ActionGroupActionAddedSignalInfo), '("actionEnabledChanged", ActionGroupActionEnabledChangedSignalInfo), '("actionRemoved", ActionGroupActionRemovedSignalInfo), '("actionStateChanged", ActionGroupActionStateChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SimpleActionGroup::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SimpleActionGroup") --- throws : False --- Skip return : False - -foreign import ccall "g_simple_action_group_new" g_simple_action_group_new :: - IO (Ptr SimpleActionGroup) - - -simpleActionGroupNew :: - (MonadIO m) => - m SimpleActionGroup -- result -simpleActionGroupNew = liftIO $ do - result <- g_simple_action_group_new - checkUnexpectedReturnNULL "g_simple_action_group_new" result - result' <- (wrapObject SimpleActionGroup) result - return result' - --- method SimpleActionGroup::add_entries --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "entries", argType = TCArray False (-1) 2 (TInterface "Gio" "ActionEntry"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_action_group_add_entries" g_simple_action_group_add_entries :: - Ptr SimpleActionGroup -> -- _obj : TInterface "Gio" "SimpleActionGroup" - Ptr ActionEntry -> -- entries : TCArray False (-1) 2 (TInterface "Gio" "ActionEntry") - Int32 -> -- n_entries : TBasicType TInt - Ptr () -> -- user_data : TBasicType TPtr - IO () - -{-# DEPRECATED simpleActionGroupAddEntries ["(Since version 2.38)","Use g_action_map_add_action_entries()"]#-} -simpleActionGroupAddEntries :: - (MonadIO m, SimpleActionGroupK a) => - a -- _obj - -> [ActionEntry] -- entries - -> Ptr () -- userData - -> m () -- result -simpleActionGroupAddEntries _obj entries userData = liftIO $ do - let nEntries = fromIntegral $ length entries - let _obj' = unsafeManagedPtrCastPtr _obj - let entries' = map unsafeManagedPtrGetPtr entries - entries'' <- packBlockArray 64 entries' - g_simple_action_group_add_entries _obj' entries'' nEntries userData - touchManagedPtr _obj - mapM_ touchManagedPtr entries - freeMem entries'' - return () - -data SimpleActionGroupAddEntriesMethodInfo -instance (signature ~ ([ActionEntry] -> Ptr () -> m ()), MonadIO m, SimpleActionGroupK a) => MethodInfo SimpleActionGroupAddEntriesMethodInfo a signature where - overloadedMethod _ = simpleActionGroupAddEntries - --- method SimpleActionGroup::insert --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gio" "Action", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_action_group_insert" g_simple_action_group_insert :: - Ptr SimpleActionGroup -> -- _obj : TInterface "Gio" "SimpleActionGroup" - Ptr Action -> -- action : TInterface "Gio" "Action" - IO () - -{-# DEPRECATED simpleActionGroupInsert ["(Since version 2.38)","Use g_action_map_add_action()"]#-} -simpleActionGroupInsert :: - (MonadIO m, SimpleActionGroupK a, ActionK b) => - a -- _obj - -> b -- action - -> m () -- result -simpleActionGroupInsert _obj action = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let action' = unsafeManagedPtrCastPtr action - g_simple_action_group_insert _obj' action' - touchManagedPtr _obj - touchManagedPtr action - return () - -data SimpleActionGroupInsertMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, SimpleActionGroupK a, ActionK b) => MethodInfo SimpleActionGroupInsertMethodInfo a signature where - overloadedMethod _ = simpleActionGroupInsert - --- method SimpleActionGroup::lookup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Action") --- throws : False --- Skip return : False - -foreign import ccall "g_simple_action_group_lookup" g_simple_action_group_lookup :: - Ptr SimpleActionGroup -> -- _obj : TInterface "Gio" "SimpleActionGroup" - CString -> -- action_name : TBasicType TUTF8 - IO (Ptr Action) - -{-# DEPRECATED simpleActionGroupLookup ["(Since version 2.38)","Use g_action_map_lookup_action()"]#-} -simpleActionGroupLookup :: - (MonadIO m, SimpleActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> m Action -- result -simpleActionGroupLookup _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - result <- g_simple_action_group_lookup _obj' actionName' - checkUnexpectedReturnNULL "g_simple_action_group_lookup" result - result' <- (newObject Action) result - touchManagedPtr _obj - freeMem actionName' - return result' - -data SimpleActionGroupLookupMethodInfo -instance (signature ~ (T.Text -> m Action), MonadIO m, SimpleActionGroupK a) => MethodInfo SimpleActionGroupLookupMethodInfo a signature where - overloadedMethod _ = simpleActionGroupLookup - --- method SimpleActionGroup::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleActionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_action_group_remove" g_simple_action_group_remove :: - Ptr SimpleActionGroup -> -- _obj : TInterface "Gio" "SimpleActionGroup" - CString -> -- action_name : TBasicType TUTF8 - IO () - -{-# DEPRECATED simpleActionGroupRemove ["(Since version 2.38)","Use g_action_map_remove_action()"]#-} -simpleActionGroupRemove :: - (MonadIO m, SimpleActionGroupK a) => - a -- _obj - -> T.Text -- actionName - -> m () -- result -simpleActionGroupRemove _obj actionName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - actionName' <- textToCString actionName - g_simple_action_group_remove _obj' actionName' - touchManagedPtr _obj - freeMem actionName' - return () - -data SimpleActionGroupRemoveMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SimpleActionGroupK a) => MethodInfo SimpleActionGroupRemoveMethodInfo a signature where - overloadedMethod _ = simpleActionGroupRemove - - diff --git a/GI/Gio/Objects/SimpleActionGroup.hs-boot b/GI/Gio/Objects/SimpleActionGroup.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/SimpleActionGroup.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Objects.SimpleActionGroup where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SimpleActionGroup = SimpleActionGroup (ForeignPtr SimpleActionGroup) -instance GObject SimpleActionGroup where -class GObject o => SimpleActionGroupK o -instance (GObject o, IsDescendantOf SimpleActionGroup o) => SimpleActionGroupK o -data SimpleActionGroupAddEntriesMethodInfo -data SimpleActionGroupInsertMethodInfo -data SimpleActionGroupLookupMethodInfo -data SimpleActionGroupRemoveMethodInfo diff --git a/GI/Gio/Objects/SimpleAsyncResult.hs b/GI/Gio/Objects/SimpleAsyncResult.hs deleted file mode 100644 --- a/GI/Gio/Objects/SimpleAsyncResult.hs +++ /dev/null @@ -1,587 +0,0 @@ - - -{- | -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.Objects.SimpleAsyncResult - ( - --- * Exported types - SimpleAsyncResult(..) , - SimpleAsyncResultK , - toSimpleAsyncResult , - noSimpleAsyncResult , - - - -- * Methods --- ** simpleAsyncResultComplete - SimpleAsyncResultCompleteMethodInfo , - simpleAsyncResultComplete , - - --- ** simpleAsyncResultCompleteInIdle - SimpleAsyncResultCompleteInIdleMethodInfo, - simpleAsyncResultCompleteInIdle , - - --- ** simpleAsyncResultGetOpResGboolean - SimpleAsyncResultGetOpResGbooleanMethodInfo, - simpleAsyncResultGetOpResGboolean , - - --- ** simpleAsyncResultGetOpResGssize - SimpleAsyncResultGetOpResGssizeMethodInfo, - simpleAsyncResultGetOpResGssize , - - --- ** simpleAsyncResultIsValid - simpleAsyncResultIsValid , - - --- ** simpleAsyncResultNew - simpleAsyncResultNew , - - --- ** simpleAsyncResultNewFromError - simpleAsyncResultNewFromError , - - --- ** simpleAsyncResultPropagateError - SimpleAsyncResultPropagateErrorMethodInfo, - simpleAsyncResultPropagateError , - - --- ** simpleAsyncResultSetCheckCancellable - SimpleAsyncResultSetCheckCancellableMethodInfo, - simpleAsyncResultSetCheckCancellable , - - --- ** simpleAsyncResultSetFromError - SimpleAsyncResultSetFromErrorMethodInfo , - simpleAsyncResultSetFromError , - - --- ** simpleAsyncResultSetHandleCancellation - SimpleAsyncResultSetHandleCancellationMethodInfo, - simpleAsyncResultSetHandleCancellation , - - --- ** simpleAsyncResultSetOpResGboolean - SimpleAsyncResultSetOpResGbooleanMethodInfo, - simpleAsyncResultSetOpResGboolean , - - --- ** simpleAsyncResultSetOpResGssize - SimpleAsyncResultSetOpResGssizeMethodInfo, - simpleAsyncResultSetOpResGssize , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype SimpleAsyncResult = SimpleAsyncResult (ForeignPtr SimpleAsyncResult) -foreign import ccall "g_simple_async_result_get_type" - c_g_simple_async_result_get_type :: IO GType - -type instance ParentTypes SimpleAsyncResult = SimpleAsyncResultParentTypes -type SimpleAsyncResultParentTypes = '[GObject.Object, AsyncResult] - -instance GObject SimpleAsyncResult where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_simple_async_result_get_type - - -class GObject o => SimpleAsyncResultK o -instance (GObject o, IsDescendantOf SimpleAsyncResult o) => SimpleAsyncResultK o - -toSimpleAsyncResult :: SimpleAsyncResultK o => o -> IO SimpleAsyncResult -toSimpleAsyncResult = unsafeCastTo SimpleAsyncResult - -noSimpleAsyncResult :: Maybe SimpleAsyncResult -noSimpleAsyncResult = Nothing - -type family ResolveSimpleAsyncResultMethod (t :: Symbol) (o :: *) :: * where - ResolveSimpleAsyncResultMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSimpleAsyncResultMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSimpleAsyncResultMethod "complete" o = SimpleAsyncResultCompleteMethodInfo - ResolveSimpleAsyncResultMethod "completeInIdle" o = SimpleAsyncResultCompleteInIdleMethodInfo - ResolveSimpleAsyncResultMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSimpleAsyncResultMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSimpleAsyncResultMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSimpleAsyncResultMethod "isTagged" o = AsyncResultIsTaggedMethodInfo - ResolveSimpleAsyncResultMethod "legacyPropagateError" o = AsyncResultLegacyPropagateErrorMethodInfo - ResolveSimpleAsyncResultMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSimpleAsyncResultMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSimpleAsyncResultMethod "propagateError" o = SimpleAsyncResultPropagateErrorMethodInfo - ResolveSimpleAsyncResultMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSimpleAsyncResultMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSimpleAsyncResultMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSimpleAsyncResultMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSimpleAsyncResultMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSimpleAsyncResultMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSimpleAsyncResultMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSimpleAsyncResultMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSimpleAsyncResultMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSimpleAsyncResultMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSimpleAsyncResultMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSimpleAsyncResultMethod "getOpResGboolean" o = SimpleAsyncResultGetOpResGbooleanMethodInfo - ResolveSimpleAsyncResultMethod "getOpResGssize" o = SimpleAsyncResultGetOpResGssizeMethodInfo - ResolveSimpleAsyncResultMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSimpleAsyncResultMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSimpleAsyncResultMethod "getSourceObject" o = AsyncResultGetSourceObjectMethodInfo - ResolveSimpleAsyncResultMethod "getUserData" o = AsyncResultGetUserDataMethodInfo - ResolveSimpleAsyncResultMethod "setCheckCancellable" o = SimpleAsyncResultSetCheckCancellableMethodInfo - ResolveSimpleAsyncResultMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSimpleAsyncResultMethod "setFromError" o = SimpleAsyncResultSetFromErrorMethodInfo - ResolveSimpleAsyncResultMethod "setHandleCancellation" o = SimpleAsyncResultSetHandleCancellationMethodInfo - ResolveSimpleAsyncResultMethod "setOpResGboolean" o = SimpleAsyncResultSetOpResGbooleanMethodInfo - ResolveSimpleAsyncResultMethod "setOpResGssize" o = SimpleAsyncResultSetOpResGssizeMethodInfo - ResolveSimpleAsyncResultMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSimpleAsyncResultMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSimpleAsyncResultMethod t SimpleAsyncResult, MethodInfo info SimpleAsyncResult p) => IsLabelProxy t (SimpleAsyncResult -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSimpleAsyncResultMethod t SimpleAsyncResult, MethodInfo info SimpleAsyncResult p) => IsLabel t (SimpleAsyncResult -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList SimpleAsyncResult = SimpleAsyncResultAttributeList -type SimpleAsyncResultAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList SimpleAsyncResult = SimpleAsyncResultSignalList -type SimpleAsyncResultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SimpleAsyncResult::new --- method type : Constructor --- Args : [Arg {argCName = "source_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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SimpleAsyncResult") --- throws : False --- Skip return : False - -foreign import ccall "g_simple_async_result_new" g_simple_async_result_new :: - Ptr GObject.Object -> -- source_object : TInterface "GObject" "Object" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - Ptr () -> -- source_tag : TBasicType TPtr - IO (Ptr SimpleAsyncResult) - -{-# DEPRECATED simpleAsyncResultNew ["(Since version 2.46)","Use g_task_new() instead."]#-} -simpleAsyncResultNew :: - (MonadIO m, GObject.ObjectK a) => - Maybe (a) -- sourceObject - -> Maybe (AsyncReadyCallback) -- callback - -> Ptr () -- sourceTag - -> m SimpleAsyncResult -- result -simpleAsyncResultNew sourceObject callback sourceTag = liftIO $ do - maybeSourceObject <- case sourceObject of - Nothing -> return nullPtr - Just jSourceObject -> do - let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject - return jSourceObject' - 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 - result <- g_simple_async_result_new maybeSourceObject maybeCallback userData sourceTag - checkUnexpectedReturnNULL "g_simple_async_result_new" result - result' <- (wrapObject SimpleAsyncResult) result - whenJust sourceObject touchManagedPtr - return result' - --- method SimpleAsyncResult::new_from_error --- method type : Constructor --- Args : [Arg {argCName = "source_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 TPtr, 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 : Just (TInterface "Gio" "SimpleAsyncResult") --- throws : False --- Skip return : False - -foreign import ccall "g_simple_async_result_new_from_error" g_simple_async_result_new_from_error :: - Ptr GObject.Object -> -- source_object : TInterface "GObject" "Object" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - Ptr GError -> -- error : TError - IO (Ptr SimpleAsyncResult) - -{-# DEPRECATED simpleAsyncResultNewFromError ["(Since version 2.46)","Use g_task_new() and g_task_return_error() instead."]#-} -simpleAsyncResultNewFromError :: - (MonadIO m, GObject.ObjectK a) => - Maybe (a) -- sourceObject - -> Maybe (AsyncReadyCallback) -- callback - -> GError -- error_ - -> m SimpleAsyncResult -- result -simpleAsyncResultNewFromError sourceObject callback error_ = liftIO $ do - maybeSourceObject <- case sourceObject of - Nothing -> return nullPtr - Just jSourceObject -> do - let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject - return jSourceObject' - 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 - result <- g_simple_async_result_new_from_error maybeSourceObject maybeCallback userData error_' - checkUnexpectedReturnNULL "g_simple_async_result_new_from_error" result - result' <- (wrapObject SimpleAsyncResult) result - whenJust sourceObject touchManagedPtr - touchManagedPtr error_ - return result' - --- method SimpleAsyncResult::complete --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_async_result_complete" g_simple_async_result_complete :: - Ptr SimpleAsyncResult -> -- _obj : TInterface "Gio" "SimpleAsyncResult" - IO () - -{-# DEPRECATED simpleAsyncResultComplete ["(Since version 2.46)","Use #GTask instead."]#-} -simpleAsyncResultComplete :: - (MonadIO m, SimpleAsyncResultK a) => - a -- _obj - -> m () -- result -simpleAsyncResultComplete _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_simple_async_result_complete _obj' - touchManagedPtr _obj - return () - -data SimpleAsyncResultCompleteMethodInfo -instance (signature ~ (m ()), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultCompleteMethodInfo a signature where - overloadedMethod _ = simpleAsyncResultComplete - --- method SimpleAsyncResult::complete_in_idle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_async_result_complete_in_idle" g_simple_async_result_complete_in_idle :: - Ptr SimpleAsyncResult -> -- _obj : TInterface "Gio" "SimpleAsyncResult" - IO () - -{-# DEPRECATED simpleAsyncResultCompleteInIdle ["(Since version 2.46)","Use #GTask instead."]#-} -simpleAsyncResultCompleteInIdle :: - (MonadIO m, SimpleAsyncResultK a) => - a -- _obj - -> m () -- result -simpleAsyncResultCompleteInIdle _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_simple_async_result_complete_in_idle _obj' - touchManagedPtr _obj - return () - -data SimpleAsyncResultCompleteInIdleMethodInfo -instance (signature ~ (m ()), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultCompleteInIdleMethodInfo a signature where - overloadedMethod _ = simpleAsyncResultCompleteInIdle - --- method SimpleAsyncResult::get_op_res_gboolean --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_simple_async_result_get_op_res_gboolean" g_simple_async_result_get_op_res_gboolean :: - Ptr SimpleAsyncResult -> -- _obj : TInterface "Gio" "SimpleAsyncResult" - IO CInt - -{-# DEPRECATED simpleAsyncResultGetOpResGboolean ["(Since version 2.46)","Use #GTask and g_task_propagate_boolean() instead."]#-} -simpleAsyncResultGetOpResGboolean :: - (MonadIO m, SimpleAsyncResultK a) => - a -- _obj - -> m Bool -- result -simpleAsyncResultGetOpResGboolean _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_simple_async_result_get_op_res_gboolean _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SimpleAsyncResultGetOpResGbooleanMethodInfo -instance (signature ~ (m Bool), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultGetOpResGbooleanMethodInfo a signature where - overloadedMethod _ = simpleAsyncResultGetOpResGboolean - --- method SimpleAsyncResult::get_op_res_gssize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_simple_async_result_get_op_res_gssize" g_simple_async_result_get_op_res_gssize :: - Ptr SimpleAsyncResult -> -- _obj : TInterface "Gio" "SimpleAsyncResult" - IO Int64 - -{-# DEPRECATED simpleAsyncResultGetOpResGssize ["(Since version 2.46)","Use #GTask and g_task_propagate_int() instead."]#-} -simpleAsyncResultGetOpResGssize :: - (MonadIO m, SimpleAsyncResultK a) => - a -- _obj - -> m Int64 -- result -simpleAsyncResultGetOpResGssize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_simple_async_result_get_op_res_gssize _obj' - touchManagedPtr _obj - return result - -data SimpleAsyncResultGetOpResGssizeMethodInfo -instance (signature ~ (m Int64), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultGetOpResGssizeMethodInfo a signature where - overloadedMethod _ = simpleAsyncResultGetOpResGssize - --- method SimpleAsyncResult::propagate_error --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_simple_async_result_propagate_error" g_simple_async_result_propagate_error :: - Ptr SimpleAsyncResult -> -- _obj : TInterface "Gio" "SimpleAsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - -{-# DEPRECATED simpleAsyncResultPropagateError ["(Since version 2.46)","Use #GTask instead."]#-} -simpleAsyncResultPropagateError :: - (MonadIO m, SimpleAsyncResultK a) => - a -- _obj - -> m () -- result -simpleAsyncResultPropagateError _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ g_simple_async_result_propagate_error _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data SimpleAsyncResultPropagateErrorMethodInfo -instance (signature ~ (m ()), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultPropagateErrorMethodInfo a signature where - overloadedMethod _ = simpleAsyncResultPropagateError - --- method SimpleAsyncResult::set_check_cancellable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_async_result_set_check_cancellable" g_simple_async_result_set_check_cancellable :: - Ptr SimpleAsyncResult -> -- _obj : TInterface "Gio" "SimpleAsyncResult" - Ptr Cancellable -> -- check_cancellable : TInterface "Gio" "Cancellable" - IO () - -{-# DEPRECATED simpleAsyncResultSetCheckCancellable ["(Since version 2.46)","Use #GTask instead."]#-} -simpleAsyncResultSetCheckCancellable :: - (MonadIO m, SimpleAsyncResultK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- checkCancellable - -> m () -- result -simpleAsyncResultSetCheckCancellable _obj checkCancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCheckCancellable <- case checkCancellable of - Nothing -> return nullPtr - Just jCheckCancellable -> do - let jCheckCancellable' = unsafeManagedPtrCastPtr jCheckCancellable - return jCheckCancellable' - g_simple_async_result_set_check_cancellable _obj' maybeCheckCancellable - touchManagedPtr _obj - whenJust checkCancellable touchManagedPtr - return () - -data SimpleAsyncResultSetCheckCancellableMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, SimpleAsyncResultK a, CancellableK b) => MethodInfo SimpleAsyncResultSetCheckCancellableMethodInfo a signature where - overloadedMethod _ = simpleAsyncResultSetCheckCancellable - --- method SimpleAsyncResult::set_from_error --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", 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 : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_async_result_set_from_error" g_simple_async_result_set_from_error :: - Ptr SimpleAsyncResult -> -- _obj : TInterface "Gio" "SimpleAsyncResult" - Ptr GError -> -- error : TError - IO () - -{-# DEPRECATED simpleAsyncResultSetFromError ["(Since version 2.46)","Use #GTask and g_task_return_error() instead."]#-} -simpleAsyncResultSetFromError :: - (MonadIO m, SimpleAsyncResultK a) => - a -- _obj - -> GError -- error_ - -> m () -- result -simpleAsyncResultSetFromError _obj error_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let error_' = unsafeManagedPtrGetPtr error_ - g_simple_async_result_set_from_error _obj' error_' - touchManagedPtr _obj - touchManagedPtr error_ - return () - -data SimpleAsyncResultSetFromErrorMethodInfo -instance (signature ~ (GError -> m ()), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultSetFromErrorMethodInfo a signature where - overloadedMethod _ = simpleAsyncResultSetFromError - --- method SimpleAsyncResult::set_handle_cancellation --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handle_cancellation", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_async_result_set_handle_cancellation" g_simple_async_result_set_handle_cancellation :: - Ptr SimpleAsyncResult -> -- _obj : TInterface "Gio" "SimpleAsyncResult" - CInt -> -- handle_cancellation : TBasicType TBoolean - IO () - -{-# DEPRECATED simpleAsyncResultSetHandleCancellation ["(Since version 2.46)"]#-} -simpleAsyncResultSetHandleCancellation :: - (MonadIO m, SimpleAsyncResultK a) => - a -- _obj - -> Bool -- handleCancellation - -> m () -- result -simpleAsyncResultSetHandleCancellation _obj handleCancellation = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let handleCancellation' = (fromIntegral . fromEnum) handleCancellation - g_simple_async_result_set_handle_cancellation _obj' handleCancellation' - touchManagedPtr _obj - return () - -data SimpleAsyncResultSetHandleCancellationMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultSetHandleCancellationMethodInfo a signature where - overloadedMethod _ = simpleAsyncResultSetHandleCancellation - --- method SimpleAsyncResult::set_op_res_gboolean --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "op_res", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_async_result_set_op_res_gboolean" g_simple_async_result_set_op_res_gboolean :: - Ptr SimpleAsyncResult -> -- _obj : TInterface "Gio" "SimpleAsyncResult" - CInt -> -- op_res : TBasicType TBoolean - IO () - -{-# DEPRECATED simpleAsyncResultSetOpResGboolean ["(Since version 2.46)","Use #GTask and g_task_return_boolean() instead."]#-} -simpleAsyncResultSetOpResGboolean :: - (MonadIO m, SimpleAsyncResultK a) => - a -- _obj - -> Bool -- opRes - -> m () -- result -simpleAsyncResultSetOpResGboolean _obj opRes = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let opRes' = (fromIntegral . fromEnum) opRes - g_simple_async_result_set_op_res_gboolean _obj' opRes' - touchManagedPtr _obj - return () - -data SimpleAsyncResultSetOpResGbooleanMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultSetOpResGbooleanMethodInfo a signature where - overloadedMethod _ = simpleAsyncResultSetOpResGboolean - --- method SimpleAsyncResult::set_op_res_gssize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleAsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "op_res", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_async_result_set_op_res_gssize" g_simple_async_result_set_op_res_gssize :: - Ptr SimpleAsyncResult -> -- _obj : TInterface "Gio" "SimpleAsyncResult" - Int64 -> -- op_res : TBasicType TInt64 - IO () - -{-# DEPRECATED simpleAsyncResultSetOpResGssize ["(Since version 2.46)","Use #GTask and g_task_return_int() instead."]#-} -simpleAsyncResultSetOpResGssize :: - (MonadIO m, SimpleAsyncResultK a) => - a -- _obj - -> Int64 -- opRes - -> m () -- result -simpleAsyncResultSetOpResGssize _obj opRes = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_simple_async_result_set_op_res_gssize _obj' opRes - touchManagedPtr _obj - return () - -data SimpleAsyncResultSetOpResGssizeMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, SimpleAsyncResultK a) => MethodInfo SimpleAsyncResultSetOpResGssizeMethodInfo a signature where - overloadedMethod _ = simpleAsyncResultSetOpResGssize - --- method SimpleAsyncResult::is_valid --- method type : MemberFunction --- Args : [Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_simple_async_result_is_valid" g_simple_async_result_is_valid :: - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr GObject.Object -> -- source : TInterface "GObject" "Object" - Ptr () -> -- source_tag : TBasicType TPtr - IO CInt - -{-# DEPRECATED simpleAsyncResultIsValid ["(Since version 2.46)","Use #GTask and g_task_is_valid() instead."]#-} -simpleAsyncResultIsValid :: - (MonadIO m, AsyncResultK a, GObject.ObjectK b) => - a -- result_ - -> Maybe (b) -- source - -> Ptr () -- sourceTag - -> m Bool -- result -simpleAsyncResultIsValid result_ source sourceTag = liftIO $ do - let result_' = unsafeManagedPtrCastPtr result_ - maybeSource <- case source of - Nothing -> return nullPtr - Just jSource -> do - let jSource' = unsafeManagedPtrCastPtr jSource - return jSource' - result <- g_simple_async_result_is_valid result_' maybeSource sourceTag - let result' = (/= 0) result - touchManagedPtr result_ - whenJust source touchManagedPtr - return result' - - diff --git a/GI/Gio/Objects/SimpleAsyncResult.hs-boot b/GI/Gio/Objects/SimpleAsyncResult.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/SimpleAsyncResult.hs-boot +++ /dev/null @@ -1,23 +0,0 @@ -module GI.Gio.Objects.SimpleAsyncResult where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SimpleAsyncResult = SimpleAsyncResult (ForeignPtr SimpleAsyncResult) -instance GObject SimpleAsyncResult where -class GObject o => SimpleAsyncResultK o -instance (GObject o, IsDescendantOf SimpleAsyncResult o) => SimpleAsyncResultK o -data SimpleAsyncResultCompleteMethodInfo -data SimpleAsyncResultCompleteInIdleMethodInfo -data SimpleAsyncResultGetOpResGbooleanMethodInfo -data SimpleAsyncResultGetOpResGssizeMethodInfo -data SimpleAsyncResultPropagateErrorMethodInfo -data SimpleAsyncResultSetCheckCancellableMethodInfo -data SimpleAsyncResultSetFromErrorMethodInfo -data SimpleAsyncResultSetHandleCancellationMethodInfo -data SimpleAsyncResultSetOpResGbooleanMethodInfo -data SimpleAsyncResultSetOpResGssizeMethodInfo diff --git a/GI/Gio/Objects/SimpleIOStream.hs b/GI/Gio/Objects/SimpleIOStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/SimpleIOStream.hs +++ /dev/null @@ -1,213 +0,0 @@ - - -{- | -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.Objects.SimpleIOStream - ( - --- * Exported types - SimpleIOStream(..) , - SimpleIOStreamK , - toSimpleIOStream , - noSimpleIOStream , - - - -- * Methods --- ** simpleIOStreamNew - simpleIOStreamNew , - - - - - -- * Properties --- ** InputStream - SimpleIOStreamInputStreamPropertyInfo , - constructSimpleIOStreamInputStream , - getSimpleIOStreamInputStream , - simpleIOStreamInputStream , - - --- ** OutputStream - SimpleIOStreamOutputStreamPropertyInfo , - constructSimpleIOStreamOutputStream , - getSimpleIOStreamOutputStream , - simpleIOStreamOutputStream , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype SimpleIOStream = SimpleIOStream (ForeignPtr SimpleIOStream) -foreign import ccall "g_simple_io_stream_get_type" - c_g_simple_io_stream_get_type :: IO GType - -type instance ParentTypes SimpleIOStream = SimpleIOStreamParentTypes -type SimpleIOStreamParentTypes = '[IOStream, GObject.Object] - -instance GObject SimpleIOStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_simple_io_stream_get_type - - -class GObject o => SimpleIOStreamK o -instance (GObject o, IsDescendantOf SimpleIOStream o) => SimpleIOStreamK o - -toSimpleIOStream :: SimpleIOStreamK o => o -> IO SimpleIOStream -toSimpleIOStream = unsafeCastTo SimpleIOStream - -noSimpleIOStream :: Maybe SimpleIOStream -noSimpleIOStream = Nothing - -type family ResolveSimpleIOStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveSimpleIOStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSimpleIOStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSimpleIOStreamMethod "clearPending" o = IOStreamClearPendingMethodInfo - ResolveSimpleIOStreamMethod "close" o = IOStreamCloseMethodInfo - ResolveSimpleIOStreamMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo - ResolveSimpleIOStreamMethod "closeFinish" o = IOStreamCloseFinishMethodInfo - ResolveSimpleIOStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSimpleIOStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSimpleIOStreamMethod "hasPending" o = IOStreamHasPendingMethodInfo - ResolveSimpleIOStreamMethod "isClosed" o = IOStreamIsClosedMethodInfo - ResolveSimpleIOStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSimpleIOStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSimpleIOStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSimpleIOStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSimpleIOStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSimpleIOStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSimpleIOStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSimpleIOStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSimpleIOStreamMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo - ResolveSimpleIOStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSimpleIOStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSimpleIOStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSimpleIOStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSimpleIOStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSimpleIOStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSimpleIOStreamMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo - ResolveSimpleIOStreamMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo - ResolveSimpleIOStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSimpleIOStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSimpleIOStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSimpleIOStreamMethod "setPending" o = IOStreamSetPendingMethodInfo - ResolveSimpleIOStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSimpleIOStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSimpleIOStreamMethod t SimpleIOStream, MethodInfo info SimpleIOStream p) => IsLabelProxy t (SimpleIOStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSimpleIOStreamMethod t SimpleIOStream, MethodInfo info SimpleIOStream p) => IsLabel t (SimpleIOStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - ---- XXX Duplicated object with different types: - --- Name {namespace = "Gio", name = "SimpleIOStream"} -> Property {propName = "input-stream", propType = TInterface "Gio" "InputStream", propFlags = [PropertyReadable,PropertyWritable,PropertyConstructOnly], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gio", name = "IOStream"} -> Property {propName = "input-stream", propType = TInterface "Gio" "InputStream", propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} ---- XXX Duplicated object with different types: - --- Name {namespace = "Gio", name = "SimpleIOStream"} -> Property {propName = "output-stream", propType = TInterface "Gio" "OutputStream", propFlags = [PropertyReadable,PropertyWritable,PropertyConstructOnly], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} - --- Name {namespace = "Gio", name = "IOStream"} -> Property {propName = "output-stream", propType = TInterface "Gio" "OutputStream", propFlags = [PropertyReadable], propReadNullable = Nothing, propWriteNullable = Nothing, propTransfer = TransferNothing, propDeprecated = Nothing} --- VVV Prop "input-stream" - -- Type: TInterface "Gio" "InputStream" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getSimpleIOStreamInputStream :: (MonadIO m, SimpleIOStreamK o) => o -> m (Maybe InputStream) -getSimpleIOStreamInputStream obj = liftIO $ getObjectPropertyObject obj "input-stream" InputStream - -constructSimpleIOStreamInputStream :: (InputStreamK a) => a -> IO ([Char], GValue) -constructSimpleIOStreamInputStream val = constructObjectPropertyObject "input-stream" (Just val) - -data SimpleIOStreamInputStreamPropertyInfo -instance AttrInfo SimpleIOStreamInputStreamPropertyInfo where - type AttrAllowedOps SimpleIOStreamInputStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SimpleIOStreamInputStreamPropertyInfo = InputStreamK - type AttrBaseTypeConstraint SimpleIOStreamInputStreamPropertyInfo = SimpleIOStreamK - type AttrGetType SimpleIOStreamInputStreamPropertyInfo = (Maybe InputStream) - type AttrLabel SimpleIOStreamInputStreamPropertyInfo = "input-stream" - attrGet _ = getSimpleIOStreamInputStream - attrSet _ = undefined - attrConstruct _ = constructSimpleIOStreamInputStream - attrClear _ = undefined - --- VVV Prop "output-stream" - -- Type: TInterface "Gio" "OutputStream" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getSimpleIOStreamOutputStream :: (MonadIO m, SimpleIOStreamK o) => o -> m (Maybe OutputStream) -getSimpleIOStreamOutputStream obj = liftIO $ getObjectPropertyObject obj "output-stream" OutputStream - -constructSimpleIOStreamOutputStream :: (OutputStreamK a) => a -> IO ([Char], GValue) -constructSimpleIOStreamOutputStream val = constructObjectPropertyObject "output-stream" (Just val) - -data SimpleIOStreamOutputStreamPropertyInfo -instance AttrInfo SimpleIOStreamOutputStreamPropertyInfo where - type AttrAllowedOps SimpleIOStreamOutputStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SimpleIOStreamOutputStreamPropertyInfo = OutputStreamK - type AttrBaseTypeConstraint SimpleIOStreamOutputStreamPropertyInfo = SimpleIOStreamK - type AttrGetType SimpleIOStreamOutputStreamPropertyInfo = (Maybe OutputStream) - type AttrLabel SimpleIOStreamOutputStreamPropertyInfo = "output-stream" - attrGet _ = getSimpleIOStreamOutputStream - attrSet _ = undefined - attrConstruct _ = constructSimpleIOStreamOutputStream - attrClear _ = undefined - -type instance AttributeList SimpleIOStream = SimpleIOStreamAttributeList -type SimpleIOStreamAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo)] :: [(Symbol, *)]) - -simpleIOStreamInputStream :: AttrLabelProxy "inputStream" -simpleIOStreamInputStream = AttrLabelProxy - -simpleIOStreamOutputStream :: AttrLabelProxy "outputStream" -simpleIOStreamOutputStream = AttrLabelProxy - -type instance SignalList SimpleIOStream = SimpleIOStreamSignalList -type SimpleIOStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SimpleIOStream::new --- method type : Constructor --- Args : [Arg {argCName = "input_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "output_stream", argType = TInterface "Gio" "OutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SimpleIOStream") --- throws : False --- Skip return : False - -foreign import ccall "g_simple_io_stream_new" g_simple_io_stream_new :: - Ptr InputStream -> -- input_stream : TInterface "Gio" "InputStream" - Ptr OutputStream -> -- output_stream : TInterface "Gio" "OutputStream" - IO (Ptr SimpleIOStream) - - -simpleIOStreamNew :: - (MonadIO m, InputStreamK a, OutputStreamK b) => - a -- inputStream - -> b -- outputStream - -> m SimpleIOStream -- result -simpleIOStreamNew inputStream outputStream = liftIO $ do - let inputStream' = unsafeManagedPtrCastPtr inputStream - let outputStream' = unsafeManagedPtrCastPtr outputStream - result <- g_simple_io_stream_new inputStream' outputStream' - checkUnexpectedReturnNULL "g_simple_io_stream_new" result - result' <- (wrapObject SimpleIOStream) result - touchManagedPtr inputStream - touchManagedPtr outputStream - return result' - - diff --git a/GI/Gio/Objects/SimpleIOStream.hs-boot b/GI/Gio/Objects/SimpleIOStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/SimpleIOStream.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gio.Objects.SimpleIOStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SimpleIOStream = SimpleIOStream (ForeignPtr SimpleIOStream) -instance GObject SimpleIOStream where -class GObject o => SimpleIOStreamK o -instance (GObject o, IsDescendantOf SimpleIOStream o) => SimpleIOStreamK o -data SimpleIOStreamInputStreamPropertyInfo -data SimpleIOStreamOutputStreamPropertyInfo diff --git a/GI/Gio/Objects/SimplePermission.hs b/GI/Gio/Objects/SimplePermission.hs deleted file mode 100644 --- a/GI/Gio/Objects/SimplePermission.hs +++ /dev/null @@ -1,133 +0,0 @@ - - -{- | -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.Objects.SimplePermission - ( - --- * Exported types - SimplePermission(..) , - SimplePermissionK , - toSimplePermission , - noSimplePermission , - - - -- * Methods --- ** simplePermissionNew - simplePermissionNew , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype SimplePermission = SimplePermission (ForeignPtr SimplePermission) -foreign import ccall "g_simple_permission_get_type" - c_g_simple_permission_get_type :: IO GType - -type instance ParentTypes SimplePermission = SimplePermissionParentTypes -type SimplePermissionParentTypes = '[Permission, GObject.Object] - -instance GObject SimplePermission where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_simple_permission_get_type - - -class GObject o => SimplePermissionK o -instance (GObject o, IsDescendantOf SimplePermission o) => SimplePermissionK o - -toSimplePermission :: SimplePermissionK o => o -> IO SimplePermission -toSimplePermission = unsafeCastTo SimplePermission - -noSimplePermission :: Maybe SimplePermission -noSimplePermission = Nothing - -type family ResolveSimplePermissionMethod (t :: Symbol) (o :: *) :: * where - ResolveSimplePermissionMethod "acquire" o = PermissionAcquireMethodInfo - ResolveSimplePermissionMethod "acquireAsync" o = PermissionAcquireAsyncMethodInfo - ResolveSimplePermissionMethod "acquireFinish" o = PermissionAcquireFinishMethodInfo - ResolveSimplePermissionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSimplePermissionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSimplePermissionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSimplePermissionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSimplePermissionMethod "implUpdate" o = PermissionImplUpdateMethodInfo - ResolveSimplePermissionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSimplePermissionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSimplePermissionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSimplePermissionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSimplePermissionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSimplePermissionMethod "release" o = PermissionReleaseMethodInfo - ResolveSimplePermissionMethod "releaseAsync" o = PermissionReleaseAsyncMethodInfo - ResolveSimplePermissionMethod "releaseFinish" o = PermissionReleaseFinishMethodInfo - ResolveSimplePermissionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSimplePermissionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSimplePermissionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSimplePermissionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSimplePermissionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSimplePermissionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSimplePermissionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSimplePermissionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSimplePermissionMethod "getAllowed" o = PermissionGetAllowedMethodInfo - ResolveSimplePermissionMethod "getCanAcquire" o = PermissionGetCanAcquireMethodInfo - ResolveSimplePermissionMethod "getCanRelease" o = PermissionGetCanReleaseMethodInfo - ResolveSimplePermissionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSimplePermissionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSimplePermissionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSimplePermissionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSimplePermissionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSimplePermissionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSimplePermissionMethod t SimplePermission, MethodInfo info SimplePermission p) => IsLabelProxy t (SimplePermission -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSimplePermissionMethod t SimplePermission, MethodInfo info SimplePermission p) => IsLabel t (SimplePermission -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList SimplePermission = SimplePermissionAttributeList -type SimplePermissionAttributeList = ('[ '("allowed", PermissionAllowedPropertyInfo), '("canAcquire", PermissionCanAcquirePropertyInfo), '("canRelease", PermissionCanReleasePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SimplePermission = SimplePermissionSignalList -type SimplePermissionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SimplePermission::new --- method type : Constructor --- Args : [Arg {argCName = "allowed", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SimplePermission") --- throws : False --- Skip return : False - -foreign import ccall "g_simple_permission_new" g_simple_permission_new :: - CInt -> -- allowed : TBasicType TBoolean - IO (Ptr SimplePermission) - - -simplePermissionNew :: - (MonadIO m) => - Bool -- allowed - -> m SimplePermission -- result -simplePermissionNew allowed = liftIO $ do - let allowed' = (fromIntegral . fromEnum) allowed - result <- g_simple_permission_new allowed' - checkUnexpectedReturnNULL "g_simple_permission_new" result - result' <- (wrapObject SimplePermission) result - return result' - - diff --git a/GI/Gio/Objects/SimplePermission.hs-boot b/GI/Gio/Objects/SimplePermission.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/SimplePermission.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gio.Objects.SimplePermission where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SimplePermission = SimplePermission (ForeignPtr SimplePermission) -instance GObject SimplePermission where -class GObject o => SimplePermissionK o -instance (GObject o, IsDescendantOf SimplePermission o) => SimplePermissionK o diff --git a/GI/Gio/Objects/SimpleProxyResolver.hs b/GI/Gio/Objects/SimpleProxyResolver.hs deleted file mode 100644 --- a/GI/Gio/Objects/SimpleProxyResolver.hs +++ /dev/null @@ -1,336 +0,0 @@ - - -{- | -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.Objects.SimpleProxyResolver - ( - --- * Exported types - SimpleProxyResolver(..) , - SimpleProxyResolverK , - toSimpleProxyResolver , - noSimpleProxyResolver , - - - -- * Methods --- ** simpleProxyResolverNew - simpleProxyResolverNew , - - --- ** simpleProxyResolverSetDefaultProxy - SimpleProxyResolverSetDefaultProxyMethodInfo, - simpleProxyResolverSetDefaultProxy , - - --- ** simpleProxyResolverSetIgnoreHosts - SimpleProxyResolverSetIgnoreHostsMethodInfo, - simpleProxyResolverSetIgnoreHosts , - - --- ** simpleProxyResolverSetUriProxy - SimpleProxyResolverSetUriProxyMethodInfo, - simpleProxyResolverSetUriProxy , - - - - - -- * Properties --- ** DefaultProxy - SimpleProxyResolverDefaultProxyPropertyInfo, - constructSimpleProxyResolverDefaultProxy, - getSimpleProxyResolverDefaultProxy , - setSimpleProxyResolverDefaultProxy , - simpleProxyResolverDefaultProxy , - - --- ** IgnoreHosts - SimpleProxyResolverIgnoreHostsPropertyInfo, - clearSimpleProxyResolverIgnoreHosts , - constructSimpleProxyResolverIgnoreHosts , - getSimpleProxyResolverIgnoreHosts , - setSimpleProxyResolverIgnoreHosts , - simpleProxyResolverIgnoreHosts , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype SimpleProxyResolver = SimpleProxyResolver (ForeignPtr SimpleProxyResolver) -foreign import ccall "g_simple_proxy_resolver_get_type" - c_g_simple_proxy_resolver_get_type :: IO GType - -type instance ParentTypes SimpleProxyResolver = SimpleProxyResolverParentTypes -type SimpleProxyResolverParentTypes = '[GObject.Object, ProxyResolver] - -instance GObject SimpleProxyResolver where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_simple_proxy_resolver_get_type - - -class GObject o => SimpleProxyResolverK o -instance (GObject o, IsDescendantOf SimpleProxyResolver o) => SimpleProxyResolverK o - -toSimpleProxyResolver :: SimpleProxyResolverK o => o -> IO SimpleProxyResolver -toSimpleProxyResolver = unsafeCastTo SimpleProxyResolver - -noSimpleProxyResolver :: Maybe SimpleProxyResolver -noSimpleProxyResolver = Nothing - -type family ResolveSimpleProxyResolverMethod (t :: Symbol) (o :: *) :: * where - ResolveSimpleProxyResolverMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSimpleProxyResolverMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSimpleProxyResolverMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSimpleProxyResolverMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSimpleProxyResolverMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSimpleProxyResolverMethod "isSupported" o = ProxyResolverIsSupportedMethodInfo - ResolveSimpleProxyResolverMethod "lookup" o = ProxyResolverLookupMethodInfo - ResolveSimpleProxyResolverMethod "lookupAsync" o = ProxyResolverLookupAsyncMethodInfo - ResolveSimpleProxyResolverMethod "lookupFinish" o = ProxyResolverLookupFinishMethodInfo - ResolveSimpleProxyResolverMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSimpleProxyResolverMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSimpleProxyResolverMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSimpleProxyResolverMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSimpleProxyResolverMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSimpleProxyResolverMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSimpleProxyResolverMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSimpleProxyResolverMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSimpleProxyResolverMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSimpleProxyResolverMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSimpleProxyResolverMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSimpleProxyResolverMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSimpleProxyResolverMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSimpleProxyResolverMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSimpleProxyResolverMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSimpleProxyResolverMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSimpleProxyResolverMethod "setDefaultProxy" o = SimpleProxyResolverSetDefaultProxyMethodInfo - ResolveSimpleProxyResolverMethod "setIgnoreHosts" o = SimpleProxyResolverSetIgnoreHostsMethodInfo - ResolveSimpleProxyResolverMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSimpleProxyResolverMethod "setUriProxy" o = SimpleProxyResolverSetUriProxyMethodInfo - ResolveSimpleProxyResolverMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSimpleProxyResolverMethod t SimpleProxyResolver, MethodInfo info SimpleProxyResolver p) => IsLabelProxy t (SimpleProxyResolver -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSimpleProxyResolverMethod t SimpleProxyResolver, MethodInfo info SimpleProxyResolver p) => IsLabel t (SimpleProxyResolver -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "default-proxy" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Just False) - -getSimpleProxyResolverDefaultProxy :: (MonadIO m, SimpleProxyResolverK o) => o -> m (Maybe T.Text) -getSimpleProxyResolverDefaultProxy obj = liftIO $ getObjectPropertyString obj "default-proxy" - -setSimpleProxyResolverDefaultProxy :: (MonadIO m, SimpleProxyResolverK o) => o -> T.Text -> m () -setSimpleProxyResolverDefaultProxy obj val = liftIO $ setObjectPropertyString obj "default-proxy" (Just val) - -constructSimpleProxyResolverDefaultProxy :: T.Text -> IO ([Char], GValue) -constructSimpleProxyResolverDefaultProxy val = constructObjectPropertyString "default-proxy" (Just val) - -data SimpleProxyResolverDefaultProxyPropertyInfo -instance AttrInfo SimpleProxyResolverDefaultProxyPropertyInfo where - type AttrAllowedOps SimpleProxyResolverDefaultProxyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SimpleProxyResolverDefaultProxyPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SimpleProxyResolverDefaultProxyPropertyInfo = SimpleProxyResolverK - type AttrGetType SimpleProxyResolverDefaultProxyPropertyInfo = (Maybe T.Text) - type AttrLabel SimpleProxyResolverDefaultProxyPropertyInfo = "default-proxy" - attrGet _ = getSimpleProxyResolverDefaultProxy - attrSet _ = setSimpleProxyResolverDefaultProxy - attrConstruct _ = constructSimpleProxyResolverDefaultProxy - attrClear _ = undefined - --- VVV Prop "ignore-hosts" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSimpleProxyResolverIgnoreHosts :: (MonadIO m, SimpleProxyResolverK o) => o -> m (Maybe [T.Text]) -getSimpleProxyResolverIgnoreHosts obj = liftIO $ getObjectPropertyStringArray obj "ignore-hosts" - -setSimpleProxyResolverIgnoreHosts :: (MonadIO m, SimpleProxyResolverK o) => o -> [T.Text] -> m () -setSimpleProxyResolverIgnoreHosts obj val = liftIO $ setObjectPropertyStringArray obj "ignore-hosts" (Just val) - -constructSimpleProxyResolverIgnoreHosts :: [T.Text] -> IO ([Char], GValue) -constructSimpleProxyResolverIgnoreHosts val = constructObjectPropertyStringArray "ignore-hosts" (Just val) - -clearSimpleProxyResolverIgnoreHosts :: (MonadIO m, SimpleProxyResolverK o) => o -> m () -clearSimpleProxyResolverIgnoreHosts obj = liftIO $ setObjectPropertyStringArray obj "ignore-hosts" (Nothing :: Maybe [T.Text]) - -data SimpleProxyResolverIgnoreHostsPropertyInfo -instance AttrInfo SimpleProxyResolverIgnoreHostsPropertyInfo where - type AttrAllowedOps SimpleProxyResolverIgnoreHostsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SimpleProxyResolverIgnoreHostsPropertyInfo = (~) [T.Text] - type AttrBaseTypeConstraint SimpleProxyResolverIgnoreHostsPropertyInfo = SimpleProxyResolverK - type AttrGetType SimpleProxyResolverIgnoreHostsPropertyInfo = (Maybe [T.Text]) - type AttrLabel SimpleProxyResolverIgnoreHostsPropertyInfo = "ignore-hosts" - attrGet _ = getSimpleProxyResolverIgnoreHosts - attrSet _ = setSimpleProxyResolverIgnoreHosts - attrConstruct _ = constructSimpleProxyResolverIgnoreHosts - attrClear _ = clearSimpleProxyResolverIgnoreHosts - -type instance AttributeList SimpleProxyResolver = SimpleProxyResolverAttributeList -type SimpleProxyResolverAttributeList = ('[ '("defaultProxy", SimpleProxyResolverDefaultProxyPropertyInfo), '("ignoreHosts", SimpleProxyResolverIgnoreHostsPropertyInfo)] :: [(Symbol, *)]) - -simpleProxyResolverDefaultProxy :: AttrLabelProxy "defaultProxy" -simpleProxyResolverDefaultProxy = AttrLabelProxy - -simpleProxyResolverIgnoreHosts :: AttrLabelProxy "ignoreHosts" -simpleProxyResolverIgnoreHosts = AttrLabelProxy - -type instance SignalList SimpleProxyResolver = SimpleProxyResolverSignalList -type SimpleProxyResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SimpleProxyResolver::set_default_proxy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_proxy", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_proxy_resolver_set_default_proxy" g_simple_proxy_resolver_set_default_proxy :: - Ptr SimpleProxyResolver -> -- _obj : TInterface "Gio" "SimpleProxyResolver" - CString -> -- default_proxy : TBasicType TUTF8 - IO () - - -simpleProxyResolverSetDefaultProxy :: - (MonadIO m, SimpleProxyResolverK a) => - a -- _obj - -> T.Text -- defaultProxy - -> m () -- result -simpleProxyResolverSetDefaultProxy _obj defaultProxy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - defaultProxy' <- textToCString defaultProxy - g_simple_proxy_resolver_set_default_proxy _obj' defaultProxy' - touchManagedPtr _obj - freeMem defaultProxy' - return () - -data SimpleProxyResolverSetDefaultProxyMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SimpleProxyResolverK a) => MethodInfo SimpleProxyResolverSetDefaultProxyMethodInfo a signature where - overloadedMethod _ = simpleProxyResolverSetDefaultProxy - --- method SimpleProxyResolver::set_ignore_hosts --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ignore_hosts", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_proxy_resolver_set_ignore_hosts" g_simple_proxy_resolver_set_ignore_hosts :: - Ptr SimpleProxyResolver -> -- _obj : TInterface "Gio" "SimpleProxyResolver" - CString -> -- ignore_hosts : TBasicType TUTF8 - IO () - - -simpleProxyResolverSetIgnoreHosts :: - (MonadIO m, SimpleProxyResolverK a) => - a -- _obj - -> T.Text -- ignoreHosts - -> m () -- result -simpleProxyResolverSetIgnoreHosts _obj ignoreHosts = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - ignoreHosts' <- textToCString ignoreHosts - g_simple_proxy_resolver_set_ignore_hosts _obj' ignoreHosts' - touchManagedPtr _obj - freeMem ignoreHosts' - return () - -data SimpleProxyResolverSetIgnoreHostsMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SimpleProxyResolverK a) => MethodInfo SimpleProxyResolverSetIgnoreHostsMethodInfo a signature where - overloadedMethod _ = simpleProxyResolverSetIgnoreHosts - --- method SimpleProxyResolver::set_uri_proxy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SimpleProxyResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_simple_proxy_resolver_set_uri_proxy" g_simple_proxy_resolver_set_uri_proxy :: - Ptr SimpleProxyResolver -> -- _obj : TInterface "Gio" "SimpleProxyResolver" - CString -> -- uri_scheme : TBasicType TUTF8 - CString -> -- proxy : TBasicType TUTF8 - IO () - - -simpleProxyResolverSetUriProxy :: - (MonadIO m, SimpleProxyResolverK a) => - a -- _obj - -> T.Text -- uriScheme - -> T.Text -- proxy - -> m () -- result -simpleProxyResolverSetUriProxy _obj uriScheme proxy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uriScheme' <- textToCString uriScheme - proxy' <- textToCString proxy - g_simple_proxy_resolver_set_uri_proxy _obj' uriScheme' proxy' - touchManagedPtr _obj - freeMem uriScheme' - freeMem proxy' - return () - -data SimpleProxyResolverSetUriProxyMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, SimpleProxyResolverK a) => MethodInfo SimpleProxyResolverSetUriProxyMethodInfo a signature where - overloadedMethod _ = simpleProxyResolverSetUriProxy - --- method SimpleProxyResolver::new --- method type : MemberFunction --- Args : [Arg {argCName = "default_proxy", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ignore_hosts", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "ProxyResolver") --- throws : False --- Skip return : False - -foreign import ccall "g_simple_proxy_resolver_new" g_simple_proxy_resolver_new :: - CString -> -- default_proxy : TBasicType TUTF8 - CString -> -- ignore_hosts : TBasicType TUTF8 - IO (Ptr ProxyResolver) - - -simpleProxyResolverNew :: - (MonadIO m) => - Maybe (T.Text) -- defaultProxy - -> Maybe (T.Text) -- ignoreHosts - -> m ProxyResolver -- result -simpleProxyResolverNew defaultProxy ignoreHosts = liftIO $ do - maybeDefaultProxy <- case defaultProxy of - Nothing -> return nullPtr - Just jDefaultProxy -> do - jDefaultProxy' <- textToCString jDefaultProxy - return jDefaultProxy' - maybeIgnoreHosts <- case ignoreHosts of - Nothing -> return nullPtr - Just jIgnoreHosts -> do - jIgnoreHosts' <- textToCString jIgnoreHosts - return jIgnoreHosts' - result <- g_simple_proxy_resolver_new maybeDefaultProxy maybeIgnoreHosts - checkUnexpectedReturnNULL "g_simple_proxy_resolver_new" result - result' <- (wrapObject ProxyResolver) result - freeMem maybeDefaultProxy - freeMem maybeIgnoreHosts - return result' - - diff --git a/GI/Gio/Objects/SimpleProxyResolver.hs-boot b/GI/Gio/Objects/SimpleProxyResolver.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/SimpleProxyResolver.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gio.Objects.SimpleProxyResolver where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SimpleProxyResolver = SimpleProxyResolver (ForeignPtr SimpleProxyResolver) -instance GObject SimpleProxyResolver where -class GObject o => SimpleProxyResolverK o -instance (GObject o, IsDescendantOf SimpleProxyResolver o) => SimpleProxyResolverK o -data SimpleProxyResolverDefaultProxyPropertyInfo -data SimpleProxyResolverIgnoreHostsPropertyInfo -data SimpleProxyResolverSetDefaultProxyMethodInfo -data SimpleProxyResolverSetIgnoreHostsMethodInfo -data SimpleProxyResolverSetUriProxyMethodInfo diff --git a/GI/Gio/Objects/Socket.hs b/GI/Gio/Objects/Socket.hs deleted file mode 100644 --- a/GI/Gio/Objects/Socket.hs +++ /dev/null @@ -1,2812 +0,0 @@ - - -{- | -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.Objects.Socket - ( - --- * Exported types - Socket(..) , - SocketK , - toSocket , - noSocket , - - - -- * Methods --- ** socketAccept - SocketAcceptMethodInfo , - socketAccept , - - --- ** socketBind - SocketBindMethodInfo , - socketBind , - - --- ** socketCheckConnectResult - SocketCheckConnectResultMethodInfo , - socketCheckConnectResult , - - --- ** socketClose - SocketCloseMethodInfo , - socketClose , - - --- ** socketConditionCheck - SocketConditionCheckMethodInfo , - socketConditionCheck , - - --- ** socketConditionTimedWait - SocketConditionTimedWaitMethodInfo , - socketConditionTimedWait , - - --- ** socketConditionWait - SocketConditionWaitMethodInfo , - socketConditionWait , - - --- ** socketConnect - SocketConnectMethodInfo , - socketConnect , - - --- ** socketConnectionFactoryCreateConnection - SocketConnectionFactoryCreateConnectionMethodInfo, - socketConnectionFactoryCreateConnection , - - --- ** socketGetAvailableBytes - SocketGetAvailableBytesMethodInfo , - socketGetAvailableBytes , - - --- ** socketGetBlocking - SocketGetBlockingMethodInfo , - socketGetBlocking , - - --- ** socketGetBroadcast - SocketGetBroadcastMethodInfo , - socketGetBroadcast , - - --- ** socketGetCredentials - SocketGetCredentialsMethodInfo , - socketGetCredentials , - - --- ** socketGetFamily - SocketGetFamilyMethodInfo , - socketGetFamily , - - --- ** socketGetFd - SocketGetFdMethodInfo , - socketGetFd , - - --- ** socketGetKeepalive - SocketGetKeepaliveMethodInfo , - socketGetKeepalive , - - --- ** socketGetListenBacklog - SocketGetListenBacklogMethodInfo , - socketGetListenBacklog , - - --- ** socketGetLocalAddress - SocketGetLocalAddressMethodInfo , - socketGetLocalAddress , - - --- ** socketGetMulticastLoopback - SocketGetMulticastLoopbackMethodInfo , - socketGetMulticastLoopback , - - --- ** socketGetMulticastTtl - SocketGetMulticastTtlMethodInfo , - socketGetMulticastTtl , - - --- ** socketGetOption - SocketGetOptionMethodInfo , - socketGetOption , - - --- ** socketGetProtocol - SocketGetProtocolMethodInfo , - socketGetProtocol , - - --- ** socketGetRemoteAddress - SocketGetRemoteAddressMethodInfo , - socketGetRemoteAddress , - - --- ** socketGetSocketType - SocketGetSocketTypeMethodInfo , - socketGetSocketType , - - --- ** socketGetTimeout - SocketGetTimeoutMethodInfo , - socketGetTimeout , - - --- ** socketGetTtl - SocketGetTtlMethodInfo , - socketGetTtl , - - --- ** socketIsClosed - SocketIsClosedMethodInfo , - socketIsClosed , - - --- ** socketIsConnected - SocketIsConnectedMethodInfo , - socketIsConnected , - - --- ** socketJoinMulticastGroup - SocketJoinMulticastGroupMethodInfo , - socketJoinMulticastGroup , - - --- ** socketLeaveMulticastGroup - SocketLeaveMulticastGroupMethodInfo , - socketLeaveMulticastGroup , - - --- ** socketListen - SocketListenMethodInfo , - socketListen , - - --- ** socketNew - socketNew , - - --- ** socketNewFromFd - socketNewFromFd , - - --- ** socketReceive - SocketReceiveMethodInfo , - socketReceive , - - --- ** socketReceiveFrom - SocketReceiveFromMethodInfo , - socketReceiveFrom , - - --- ** socketReceiveMessage - SocketReceiveMessageMethodInfo , - socketReceiveMessage , - - --- ** socketReceiveWithBlocking - SocketReceiveWithBlockingMethodInfo , - socketReceiveWithBlocking , - - --- ** socketSend - SocketSendMethodInfo , - socketSend , - - --- ** socketSendMessage - SocketSendMessageMethodInfo , - socketSendMessage , - - --- ** socketSendMessages - SocketSendMessagesMethodInfo , - socketSendMessages , - - --- ** socketSendTo - SocketSendToMethodInfo , - socketSendTo , - - --- ** socketSendWithBlocking - SocketSendWithBlockingMethodInfo , - socketSendWithBlocking , - - --- ** socketSetBlocking - SocketSetBlockingMethodInfo , - socketSetBlocking , - - --- ** socketSetBroadcast - SocketSetBroadcastMethodInfo , - socketSetBroadcast , - - --- ** socketSetKeepalive - SocketSetKeepaliveMethodInfo , - socketSetKeepalive , - - --- ** socketSetListenBacklog - SocketSetListenBacklogMethodInfo , - socketSetListenBacklog , - - --- ** socketSetMulticastLoopback - SocketSetMulticastLoopbackMethodInfo , - socketSetMulticastLoopback , - - --- ** socketSetMulticastTtl - SocketSetMulticastTtlMethodInfo , - socketSetMulticastTtl , - - --- ** socketSetOption - SocketSetOptionMethodInfo , - socketSetOption , - - --- ** socketSetTimeout - SocketSetTimeoutMethodInfo , - socketSetTimeout , - - --- ** socketSetTtl - SocketSetTtlMethodInfo , - socketSetTtl , - - --- ** socketShutdown - SocketShutdownMethodInfo , - socketShutdown , - - --- ** socketSpeaksIpv4 - SocketSpeaksIpv4MethodInfo , - socketSpeaksIpv4 , - - - - - -- * Properties --- ** Blocking - SocketBlockingPropertyInfo , - constructSocketBlocking , - getSocketBlocking , - setSocketBlocking , - socketBlocking , - - --- ** Broadcast - SocketBroadcastPropertyInfo , - constructSocketBroadcast , - getSocketBroadcast , - setSocketBroadcast , - socketBroadcast , - - --- ** Family - SocketFamilyPropertyInfo , - constructSocketFamily , - getSocketFamily , - socketFamily , - - --- ** Fd - SocketFdPropertyInfo , - constructSocketFd , - getSocketFd , - socketFd , - - --- ** Keepalive - SocketKeepalivePropertyInfo , - constructSocketKeepalive , - getSocketKeepalive , - setSocketKeepalive , - socketKeepalive , - - --- ** ListenBacklog - SocketListenBacklogPropertyInfo , - constructSocketListenBacklog , - getSocketListenBacklog , - setSocketListenBacklog , - socketListenBacklog , - - --- ** LocalAddress - SocketLocalAddressPropertyInfo , - getSocketLocalAddress , - socketLocalAddress , - - --- ** MulticastLoopback - SocketMulticastLoopbackPropertyInfo , - constructSocketMulticastLoopback , - getSocketMulticastLoopback , - setSocketMulticastLoopback , - socketMulticastLoopback , - - --- ** MulticastTtl - SocketMulticastTtlPropertyInfo , - constructSocketMulticastTtl , - getSocketMulticastTtl , - setSocketMulticastTtl , - socketMulticastTtl , - - --- ** Protocol - SocketProtocolPropertyInfo , - constructSocketProtocol , - getSocketProtocol , - socketProtocol , - - --- ** RemoteAddress - SocketRemoteAddressPropertyInfo , - getSocketRemoteAddress , - socketRemoteAddress , - - --- ** Timeout - SocketTimeoutPropertyInfo , - constructSocketTimeout , - getSocketTimeout , - setSocketTimeout , - socketTimeout , - - --- ** Ttl - SocketTtlPropertyInfo , - constructSocketTtl , - getSocketTtl , - setSocketTtl , - socketTtl , - - --- ** Type - SocketTypePropertyInfo , - constructSocketType , - getSocketType , - socketType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype Socket = Socket (ForeignPtr Socket) -foreign import ccall "g_socket_get_type" - c_g_socket_get_type :: IO GType - -type instance ParentTypes Socket = SocketParentTypes -type SocketParentTypes = '[GObject.Object, Initable] - -instance GObject Socket where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_socket_get_type - - -class GObject o => SocketK o -instance (GObject o, IsDescendantOf Socket o) => SocketK o - -toSocket :: SocketK o => o -> IO Socket -toSocket = unsafeCastTo Socket - -noSocket :: Maybe Socket -noSocket = Nothing - -type family ResolveSocketMethod (t :: Symbol) (o :: *) :: * where - ResolveSocketMethod "accept" o = SocketAcceptMethodInfo - ResolveSocketMethod "bind" o = SocketBindMethodInfo - ResolveSocketMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSocketMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSocketMethod "checkConnectResult" o = SocketCheckConnectResultMethodInfo - ResolveSocketMethod "close" o = SocketCloseMethodInfo - ResolveSocketMethod "conditionCheck" o = SocketConditionCheckMethodInfo - ResolveSocketMethod "conditionTimedWait" o = SocketConditionTimedWaitMethodInfo - ResolveSocketMethod "conditionWait" o = SocketConditionWaitMethodInfo - ResolveSocketMethod "connect" o = SocketConnectMethodInfo - ResolveSocketMethod "connectionFactoryCreateConnection" o = SocketConnectionFactoryCreateConnectionMethodInfo - ResolveSocketMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSocketMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSocketMethod "init" o = InitableInitMethodInfo - ResolveSocketMethod "isClosed" o = SocketIsClosedMethodInfo - ResolveSocketMethod "isConnected" o = SocketIsConnectedMethodInfo - ResolveSocketMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSocketMethod "joinMulticastGroup" o = SocketJoinMulticastGroupMethodInfo - ResolveSocketMethod "leaveMulticastGroup" o = SocketLeaveMulticastGroupMethodInfo - ResolveSocketMethod "listen" o = SocketListenMethodInfo - ResolveSocketMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSocketMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSocketMethod "receive" o = SocketReceiveMethodInfo - ResolveSocketMethod "receiveFrom" o = SocketReceiveFromMethodInfo - ResolveSocketMethod "receiveMessage" o = SocketReceiveMessageMethodInfo - ResolveSocketMethod "receiveWithBlocking" o = SocketReceiveWithBlockingMethodInfo - ResolveSocketMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSocketMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSocketMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSocketMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSocketMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSocketMethod "send" o = SocketSendMethodInfo - ResolveSocketMethod "sendMessage" o = SocketSendMessageMethodInfo - ResolveSocketMethod "sendMessages" o = SocketSendMessagesMethodInfo - ResolveSocketMethod "sendTo" o = SocketSendToMethodInfo - ResolveSocketMethod "sendWithBlocking" o = SocketSendWithBlockingMethodInfo - ResolveSocketMethod "shutdown" o = SocketShutdownMethodInfo - ResolveSocketMethod "speaksIpv4" o = SocketSpeaksIpv4MethodInfo - ResolveSocketMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSocketMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSocketMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSocketMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSocketMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSocketMethod "getAvailableBytes" o = SocketGetAvailableBytesMethodInfo - ResolveSocketMethod "getBlocking" o = SocketGetBlockingMethodInfo - ResolveSocketMethod "getBroadcast" o = SocketGetBroadcastMethodInfo - ResolveSocketMethod "getCredentials" o = SocketGetCredentialsMethodInfo - ResolveSocketMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSocketMethod "getFamily" o = SocketGetFamilyMethodInfo - ResolveSocketMethod "getFd" o = SocketGetFdMethodInfo - ResolveSocketMethod "getKeepalive" o = SocketGetKeepaliveMethodInfo - ResolveSocketMethod "getListenBacklog" o = SocketGetListenBacklogMethodInfo - ResolveSocketMethod "getLocalAddress" o = SocketGetLocalAddressMethodInfo - ResolveSocketMethod "getMulticastLoopback" o = SocketGetMulticastLoopbackMethodInfo - ResolveSocketMethod "getMulticastTtl" o = SocketGetMulticastTtlMethodInfo - ResolveSocketMethod "getOption" o = SocketGetOptionMethodInfo - ResolveSocketMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSocketMethod "getProtocol" o = SocketGetProtocolMethodInfo - ResolveSocketMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSocketMethod "getRemoteAddress" o = SocketGetRemoteAddressMethodInfo - ResolveSocketMethod "getSocketType" o = SocketGetSocketTypeMethodInfo - ResolveSocketMethod "getTimeout" o = SocketGetTimeoutMethodInfo - ResolveSocketMethod "getTtl" o = SocketGetTtlMethodInfo - ResolveSocketMethod "setBlocking" o = SocketSetBlockingMethodInfo - ResolveSocketMethod "setBroadcast" o = SocketSetBroadcastMethodInfo - ResolveSocketMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSocketMethod "setKeepalive" o = SocketSetKeepaliveMethodInfo - ResolveSocketMethod "setListenBacklog" o = SocketSetListenBacklogMethodInfo - ResolveSocketMethod "setMulticastLoopback" o = SocketSetMulticastLoopbackMethodInfo - ResolveSocketMethod "setMulticastTtl" o = SocketSetMulticastTtlMethodInfo - ResolveSocketMethod "setOption" o = SocketSetOptionMethodInfo - ResolveSocketMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSocketMethod "setTimeout" o = SocketSetTimeoutMethodInfo - ResolveSocketMethod "setTtl" o = SocketSetTtlMethodInfo - ResolveSocketMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSocketMethod t Socket, MethodInfo info Socket p) => IsLabelProxy t (Socket -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSocketMethod t Socket, MethodInfo info Socket p) => IsLabel t (Socket -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "blocking" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSocketBlocking :: (MonadIO m, SocketK o) => o -> m Bool -getSocketBlocking obj = liftIO $ getObjectPropertyBool obj "blocking" - -setSocketBlocking :: (MonadIO m, SocketK o) => o -> Bool -> m () -setSocketBlocking obj val = liftIO $ setObjectPropertyBool obj "blocking" val - -constructSocketBlocking :: Bool -> IO ([Char], GValue) -constructSocketBlocking val = constructObjectPropertyBool "blocking" val - -data SocketBlockingPropertyInfo -instance AttrInfo SocketBlockingPropertyInfo where - type AttrAllowedOps SocketBlockingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketBlockingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SocketBlockingPropertyInfo = SocketK - type AttrGetType SocketBlockingPropertyInfo = Bool - type AttrLabel SocketBlockingPropertyInfo = "blocking" - attrGet _ = getSocketBlocking - attrSet _ = setSocketBlocking - attrConstruct _ = constructSocketBlocking - attrClear _ = undefined - --- VVV Prop "broadcast" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSocketBroadcast :: (MonadIO m, SocketK o) => o -> m Bool -getSocketBroadcast obj = liftIO $ getObjectPropertyBool obj "broadcast" - -setSocketBroadcast :: (MonadIO m, SocketK o) => o -> Bool -> m () -setSocketBroadcast obj val = liftIO $ setObjectPropertyBool obj "broadcast" val - -constructSocketBroadcast :: Bool -> IO ([Char], GValue) -constructSocketBroadcast val = constructObjectPropertyBool "broadcast" val - -data SocketBroadcastPropertyInfo -instance AttrInfo SocketBroadcastPropertyInfo where - type AttrAllowedOps SocketBroadcastPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketBroadcastPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SocketBroadcastPropertyInfo = SocketK - type AttrGetType SocketBroadcastPropertyInfo = Bool - type AttrLabel SocketBroadcastPropertyInfo = "broadcast" - attrGet _ = getSocketBroadcast - attrSet _ = setSocketBroadcast - attrConstruct _ = constructSocketBroadcast - attrClear _ = undefined - --- VVV Prop "family" - -- Type: TInterface "Gio" "SocketFamily" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getSocketFamily :: (MonadIO m, SocketK o) => o -> m SocketFamily -getSocketFamily obj = liftIO $ getObjectPropertyEnum obj "family" - -constructSocketFamily :: SocketFamily -> IO ([Char], GValue) -constructSocketFamily val = constructObjectPropertyEnum "family" val - -data SocketFamilyPropertyInfo -instance AttrInfo SocketFamilyPropertyInfo where - type AttrAllowedOps SocketFamilyPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketFamilyPropertyInfo = (~) SocketFamily - type AttrBaseTypeConstraint SocketFamilyPropertyInfo = SocketK - type AttrGetType SocketFamilyPropertyInfo = SocketFamily - type AttrLabel SocketFamilyPropertyInfo = "family" - attrGet _ = getSocketFamily - attrSet _ = undefined - attrConstruct _ = constructSocketFamily - attrClear _ = undefined - --- VVV Prop "fd" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getSocketFd :: (MonadIO m, SocketK o) => o -> m Int32 -getSocketFd obj = liftIO $ getObjectPropertyInt32 obj "fd" - -constructSocketFd :: Int32 -> IO ([Char], GValue) -constructSocketFd val = constructObjectPropertyInt32 "fd" val - -data SocketFdPropertyInfo -instance AttrInfo SocketFdPropertyInfo where - type AttrAllowedOps SocketFdPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketFdPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SocketFdPropertyInfo = SocketK - type AttrGetType SocketFdPropertyInfo = Int32 - type AttrLabel SocketFdPropertyInfo = "fd" - attrGet _ = getSocketFd - attrSet _ = undefined - attrConstruct _ = constructSocketFd - attrClear _ = undefined - --- VVV Prop "keepalive" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSocketKeepalive :: (MonadIO m, SocketK o) => o -> m Bool -getSocketKeepalive obj = liftIO $ getObjectPropertyBool obj "keepalive" - -setSocketKeepalive :: (MonadIO m, SocketK o) => o -> Bool -> m () -setSocketKeepalive obj val = liftIO $ setObjectPropertyBool obj "keepalive" val - -constructSocketKeepalive :: Bool -> IO ([Char], GValue) -constructSocketKeepalive val = constructObjectPropertyBool "keepalive" val - -data SocketKeepalivePropertyInfo -instance AttrInfo SocketKeepalivePropertyInfo where - type AttrAllowedOps SocketKeepalivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketKeepalivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SocketKeepalivePropertyInfo = SocketK - type AttrGetType SocketKeepalivePropertyInfo = Bool - type AttrLabel SocketKeepalivePropertyInfo = "keepalive" - attrGet _ = getSocketKeepalive - attrSet _ = setSocketKeepalive - attrConstruct _ = constructSocketKeepalive - attrClear _ = undefined - --- VVV Prop "listen-backlog" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSocketListenBacklog :: (MonadIO m, SocketK o) => o -> m Int32 -getSocketListenBacklog obj = liftIO $ getObjectPropertyInt32 obj "listen-backlog" - -setSocketListenBacklog :: (MonadIO m, SocketK o) => o -> Int32 -> m () -setSocketListenBacklog obj val = liftIO $ setObjectPropertyInt32 obj "listen-backlog" val - -constructSocketListenBacklog :: Int32 -> IO ([Char], GValue) -constructSocketListenBacklog val = constructObjectPropertyInt32 "listen-backlog" val - -data SocketListenBacklogPropertyInfo -instance AttrInfo SocketListenBacklogPropertyInfo where - type AttrAllowedOps SocketListenBacklogPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketListenBacklogPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SocketListenBacklogPropertyInfo = SocketK - type AttrGetType SocketListenBacklogPropertyInfo = Int32 - type AttrLabel SocketListenBacklogPropertyInfo = "listen-backlog" - attrGet _ = getSocketListenBacklog - attrSet _ = setSocketListenBacklog - attrConstruct _ = constructSocketListenBacklog - attrClear _ = undefined - --- VVV Prop "local-address" - -- Type: TInterface "Gio" "SocketAddress" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getSocketLocalAddress :: (MonadIO m, SocketK o) => o -> m (Maybe SocketAddress) -getSocketLocalAddress obj = liftIO $ getObjectPropertyObject obj "local-address" SocketAddress - -data SocketLocalAddressPropertyInfo -instance AttrInfo SocketLocalAddressPropertyInfo where - type AttrAllowedOps SocketLocalAddressPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SocketLocalAddressPropertyInfo = (~) () - type AttrBaseTypeConstraint SocketLocalAddressPropertyInfo = SocketK - type AttrGetType SocketLocalAddressPropertyInfo = (Maybe SocketAddress) - type AttrLabel SocketLocalAddressPropertyInfo = "local-address" - attrGet _ = getSocketLocalAddress - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "multicast-loopback" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSocketMulticastLoopback :: (MonadIO m, SocketK o) => o -> m Bool -getSocketMulticastLoopback obj = liftIO $ getObjectPropertyBool obj "multicast-loopback" - -setSocketMulticastLoopback :: (MonadIO m, SocketK o) => o -> Bool -> m () -setSocketMulticastLoopback obj val = liftIO $ setObjectPropertyBool obj "multicast-loopback" val - -constructSocketMulticastLoopback :: Bool -> IO ([Char], GValue) -constructSocketMulticastLoopback val = constructObjectPropertyBool "multicast-loopback" val - -data SocketMulticastLoopbackPropertyInfo -instance AttrInfo SocketMulticastLoopbackPropertyInfo where - type AttrAllowedOps SocketMulticastLoopbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketMulticastLoopbackPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SocketMulticastLoopbackPropertyInfo = SocketK - type AttrGetType SocketMulticastLoopbackPropertyInfo = Bool - type AttrLabel SocketMulticastLoopbackPropertyInfo = "multicast-loopback" - attrGet _ = getSocketMulticastLoopback - attrSet _ = setSocketMulticastLoopback - attrConstruct _ = constructSocketMulticastLoopback - attrClear _ = undefined - --- VVV Prop "multicast-ttl" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSocketMulticastTtl :: (MonadIO m, SocketK o) => o -> m Word32 -getSocketMulticastTtl obj = liftIO $ getObjectPropertyUInt32 obj "multicast-ttl" - -setSocketMulticastTtl :: (MonadIO m, SocketK o) => o -> Word32 -> m () -setSocketMulticastTtl obj val = liftIO $ setObjectPropertyUInt32 obj "multicast-ttl" val - -constructSocketMulticastTtl :: Word32 -> IO ([Char], GValue) -constructSocketMulticastTtl val = constructObjectPropertyUInt32 "multicast-ttl" val - -data SocketMulticastTtlPropertyInfo -instance AttrInfo SocketMulticastTtlPropertyInfo where - type AttrAllowedOps SocketMulticastTtlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketMulticastTtlPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SocketMulticastTtlPropertyInfo = SocketK - type AttrGetType SocketMulticastTtlPropertyInfo = Word32 - type AttrLabel SocketMulticastTtlPropertyInfo = "multicast-ttl" - attrGet _ = getSocketMulticastTtl - attrSet _ = setSocketMulticastTtl - attrConstruct _ = constructSocketMulticastTtl - attrClear _ = undefined - --- VVV Prop "protocol" - -- Type: TInterface "Gio" "SocketProtocol" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getSocketProtocol :: (MonadIO m, SocketK o) => o -> m SocketProtocol -getSocketProtocol obj = liftIO $ getObjectPropertyEnum obj "protocol" - -constructSocketProtocol :: SocketProtocol -> IO ([Char], GValue) -constructSocketProtocol val = constructObjectPropertyEnum "protocol" val - -data SocketProtocolPropertyInfo -instance AttrInfo SocketProtocolPropertyInfo where - type AttrAllowedOps SocketProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketProtocolPropertyInfo = (~) SocketProtocol - type AttrBaseTypeConstraint SocketProtocolPropertyInfo = SocketK - type AttrGetType SocketProtocolPropertyInfo = SocketProtocol - type AttrLabel SocketProtocolPropertyInfo = "protocol" - attrGet _ = getSocketProtocol - attrSet _ = undefined - attrConstruct _ = constructSocketProtocol - attrClear _ = undefined - --- VVV Prop "remote-address" - -- Type: TInterface "Gio" "SocketAddress" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getSocketRemoteAddress :: (MonadIO m, SocketK o) => o -> m (Maybe SocketAddress) -getSocketRemoteAddress obj = liftIO $ getObjectPropertyObject obj "remote-address" SocketAddress - -data SocketRemoteAddressPropertyInfo -instance AttrInfo SocketRemoteAddressPropertyInfo where - type AttrAllowedOps SocketRemoteAddressPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SocketRemoteAddressPropertyInfo = (~) () - type AttrBaseTypeConstraint SocketRemoteAddressPropertyInfo = SocketK - type AttrGetType SocketRemoteAddressPropertyInfo = (Maybe SocketAddress) - type AttrLabel SocketRemoteAddressPropertyInfo = "remote-address" - attrGet _ = getSocketRemoteAddress - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "timeout" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSocketTimeout :: (MonadIO m, SocketK o) => o -> m Word32 -getSocketTimeout obj = liftIO $ getObjectPropertyUInt32 obj "timeout" - -setSocketTimeout :: (MonadIO m, SocketK o) => o -> Word32 -> m () -setSocketTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "timeout" val - -constructSocketTimeout :: Word32 -> IO ([Char], GValue) -constructSocketTimeout val = constructObjectPropertyUInt32 "timeout" val - -data SocketTimeoutPropertyInfo -instance AttrInfo SocketTimeoutPropertyInfo where - type AttrAllowedOps SocketTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketTimeoutPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SocketTimeoutPropertyInfo = SocketK - type AttrGetType SocketTimeoutPropertyInfo = Word32 - type AttrLabel SocketTimeoutPropertyInfo = "timeout" - attrGet _ = getSocketTimeout - attrSet _ = setSocketTimeout - attrConstruct _ = constructSocketTimeout - attrClear _ = undefined - --- VVV Prop "ttl" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getSocketTtl :: (MonadIO m, SocketK o) => o -> m Word32 -getSocketTtl obj = liftIO $ getObjectPropertyUInt32 obj "ttl" - -setSocketTtl :: (MonadIO m, SocketK o) => o -> Word32 -> m () -setSocketTtl obj val = liftIO $ setObjectPropertyUInt32 obj "ttl" val - -constructSocketTtl :: Word32 -> IO ([Char], GValue) -constructSocketTtl val = constructObjectPropertyUInt32 "ttl" val - -data SocketTtlPropertyInfo -instance AttrInfo SocketTtlPropertyInfo where - type AttrAllowedOps SocketTtlPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketTtlPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SocketTtlPropertyInfo = SocketK - type AttrGetType SocketTtlPropertyInfo = Word32 - type AttrLabel SocketTtlPropertyInfo = "ttl" - attrGet _ = getSocketTtl - attrSet _ = setSocketTtl - attrConstruct _ = constructSocketTtl - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TInterface "Gio" "SocketType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getSocketType :: (MonadIO m, SocketK o) => o -> m SocketType -getSocketType obj = liftIO $ getObjectPropertyEnum obj "type" - -constructSocketType :: SocketType -> IO ([Char], GValue) -constructSocketType val = constructObjectPropertyEnum "type" val - -data SocketTypePropertyInfo -instance AttrInfo SocketTypePropertyInfo where - type AttrAllowedOps SocketTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketTypePropertyInfo = (~) SocketType - type AttrBaseTypeConstraint SocketTypePropertyInfo = SocketK - type AttrGetType SocketTypePropertyInfo = SocketType - type AttrLabel SocketTypePropertyInfo = "type" - attrGet _ = getSocketType - attrSet _ = undefined - attrConstruct _ = constructSocketType - attrClear _ = undefined - -type instance AttributeList Socket = SocketAttributeList -type SocketAttributeList = ('[ '("blocking", SocketBlockingPropertyInfo), '("broadcast", SocketBroadcastPropertyInfo), '("family", SocketFamilyPropertyInfo), '("fd", SocketFdPropertyInfo), '("keepalive", SocketKeepalivePropertyInfo), '("listenBacklog", SocketListenBacklogPropertyInfo), '("localAddress", SocketLocalAddressPropertyInfo), '("multicastLoopback", SocketMulticastLoopbackPropertyInfo), '("multicastTtl", SocketMulticastTtlPropertyInfo), '("protocol", SocketProtocolPropertyInfo), '("remoteAddress", SocketRemoteAddressPropertyInfo), '("timeout", SocketTimeoutPropertyInfo), '("ttl", SocketTtlPropertyInfo), '("type", SocketTypePropertyInfo)] :: [(Symbol, *)]) - -socketBlocking :: AttrLabelProxy "blocking" -socketBlocking = AttrLabelProxy - -socketBroadcast :: AttrLabelProxy "broadcast" -socketBroadcast = AttrLabelProxy - -socketFamily :: AttrLabelProxy "family" -socketFamily = AttrLabelProxy - -socketFd :: AttrLabelProxy "fd" -socketFd = AttrLabelProxy - -socketKeepalive :: AttrLabelProxy "keepalive" -socketKeepalive = AttrLabelProxy - -socketListenBacklog :: AttrLabelProxy "listenBacklog" -socketListenBacklog = AttrLabelProxy - -socketLocalAddress :: AttrLabelProxy "localAddress" -socketLocalAddress = AttrLabelProxy - -socketMulticastLoopback :: AttrLabelProxy "multicastLoopback" -socketMulticastLoopback = AttrLabelProxy - -socketMulticastTtl :: AttrLabelProxy "multicastTtl" -socketMulticastTtl = AttrLabelProxy - -socketProtocol :: AttrLabelProxy "protocol" -socketProtocol = AttrLabelProxy - -socketRemoteAddress :: AttrLabelProxy "remoteAddress" -socketRemoteAddress = AttrLabelProxy - -socketTimeout :: AttrLabelProxy "timeout" -socketTimeout = AttrLabelProxy - -socketTtl :: AttrLabelProxy "ttl" -socketTtl = AttrLabelProxy - -socketType :: AttrLabelProxy "type" -socketType = AttrLabelProxy - -type instance SignalList Socket = SocketSignalList -type SocketSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Socket::new --- method type : Constructor --- Args : [Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TInterface "Gio" "SocketProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Socket") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_new" g_socket_new :: - CUInt -> -- family : TInterface "Gio" "SocketFamily" - CUInt -> -- type : TInterface "Gio" "SocketType" - CUInt -> -- protocol : TInterface "Gio" "SocketProtocol" - Ptr (Ptr GError) -> -- error - IO (Ptr Socket) - - -socketNew :: - (MonadIO m) => - SocketFamily -- family - -> SocketType -- type_ - -> SocketProtocol -- protocol - -> m Socket -- result -socketNew family type_ protocol = liftIO $ do - let family' = (fromIntegral . fromEnum) family - let type_' = (fromIntegral . fromEnum) type_ - let protocol' = (fromIntegral . fromEnum) protocol - onException (do - result <- propagateGError $ g_socket_new family' type_' protocol' - checkUnexpectedReturnNULL "g_socket_new" result - result' <- (wrapObject Socket) result - return result' - ) (do - return () - ) - --- method Socket::new_from_fd --- method type : Constructor --- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Socket") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_new_from_fd" g_socket_new_from_fd :: - Int32 -> -- fd : TBasicType TInt - Ptr (Ptr GError) -> -- error - IO (Ptr Socket) - - -socketNewFromFd :: - (MonadIO m) => - Int32 -- fd - -> m Socket -- result -socketNewFromFd fd = liftIO $ do - onException (do - result <- propagateGError $ g_socket_new_from_fd fd - checkUnexpectedReturnNULL "g_socket_new_from_fd" result - result' <- (wrapObject Socket) result - return result' - ) (do - return () - ) - --- method Socket::accept --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", 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 : Just (TInterface "Gio" "Socket") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_accept" g_socket_accept :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr Socket) - - -socketAccept :: - (MonadIO m, SocketK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m Socket -- result -socketAccept _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_socket_accept _obj' maybeCancellable - checkUnexpectedReturnNULL "g_socket_accept" result - result' <- (wrapObject Socket) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data SocketAcceptMethodInfo -instance (signature ~ (Maybe (b) -> m Socket), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketAcceptMethodInfo a signature where - overloadedMethod _ = socketAccept - --- method Socket::bind --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allow_reuse", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_bind" g_socket_bind :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr SocketAddress -> -- address : TInterface "Gio" "SocketAddress" - CInt -> -- allow_reuse : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO CInt - - -socketBind :: - (MonadIO m, SocketK a, SocketAddressK b) => - a -- _obj - -> b -- address - -> Bool -- allowReuse - -> m () -- result -socketBind _obj address allowReuse = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let address' = unsafeManagedPtrCastPtr address - let allowReuse' = (fromIntegral . fromEnum) allowReuse - onException (do - _ <- propagateGError $ g_socket_bind _obj' address' allowReuse' - touchManagedPtr _obj - touchManagedPtr address - return () - ) (do - return () - ) - -data SocketBindMethodInfo -instance (signature ~ (b -> Bool -> m ()), MonadIO m, SocketK a, SocketAddressK b) => MethodInfo SocketBindMethodInfo a signature where - overloadedMethod _ = socketBind - --- method Socket::check_connect_result --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_check_connect_result" g_socket_check_connect_result :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr (Ptr GError) -> -- error - IO CInt - - -socketCheckConnectResult :: - (MonadIO m, SocketK a) => - a -- _obj - -> m () -- result -socketCheckConnectResult _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ g_socket_check_connect_result _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data SocketCheckConnectResultMethodInfo -instance (signature ~ (m ()), MonadIO m, SocketK a) => MethodInfo SocketCheckConnectResultMethodInfo a signature where - overloadedMethod _ = socketCheckConnectResult - --- method Socket::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_close" g_socket_close :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr (Ptr GError) -> -- error - IO CInt - - -socketClose :: - (MonadIO m, SocketK a) => - a -- _obj - -> m () -- result -socketClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ g_socket_close _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data SocketCloseMethodInfo -instance (signature ~ (m ()), MonadIO m, SocketK a) => MethodInfo SocketCloseMethodInfo a signature where - overloadedMethod _ = socketClose - --- method Socket::condition_check --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "IOCondition") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_condition_check" g_socket_condition_check :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - CUInt -> -- condition : TInterface "GLib" "IOCondition" - IO CUInt - - -socketConditionCheck :: - (MonadIO m, SocketK a) => - a -- _obj - -> [GLib.IOCondition] -- condition - -> m [GLib.IOCondition] -- result -socketConditionCheck _obj condition = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let condition' = gflagsToWord condition - result <- g_socket_condition_check _obj' condition' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data SocketConditionCheckMethodInfo -instance (signature ~ ([GLib.IOCondition] -> m [GLib.IOCondition]), MonadIO m, SocketK a) => MethodInfo SocketConditionCheckMethodInfo a signature where - overloadedMethod _ = socketConditionCheck - --- method Socket::condition_timed_wait --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface "GLib" "IOCondition", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout", argType = TBasicType TInt64, 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_condition_timed_wait" g_socket_condition_timed_wait :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - CUInt -> -- condition : TInterface "GLib" "IOCondition" - Int64 -> -- timeout : TBasicType TInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -socketConditionTimedWait :: - (MonadIO m, SocketK a, CancellableK b) => - a -- _obj - -> [GLib.IOCondition] -- condition - -> Int64 -- timeout - -> Maybe (b) -- cancellable - -> m () -- result -socketConditionTimedWait _obj condition timeout cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let condition' = gflagsToWord condition - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_socket_condition_timed_wait _obj' condition' timeout maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data SocketConditionTimedWaitMethodInfo -instance (signature ~ ([GLib.IOCondition] -> Int64 -> Maybe (b) -> m ()), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketConditionTimedWaitMethodInfo a signature where - overloadedMethod _ = socketConditionTimedWait - --- method Socket::condition_wait --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "condition", argType = TInterface "GLib" "IOCondition", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_condition_wait" g_socket_condition_wait :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - CUInt -> -- condition : TInterface "GLib" "IOCondition" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -socketConditionWait :: - (MonadIO m, SocketK a, CancellableK b) => - a -- _obj - -> [GLib.IOCondition] -- condition - -> Maybe (b) -- cancellable - -> m () -- result -socketConditionWait _obj condition cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let condition' = gflagsToWord condition - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_socket_condition_wait _obj' condition' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data SocketConditionWaitMethodInfo -instance (signature ~ ([GLib.IOCondition] -> Maybe (b) -> m ()), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketConditionWaitMethodInfo a signature where - overloadedMethod _ = socketConditionWait - --- method Socket::connect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_connect" g_socket_connect :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr SocketAddress -> -- address : TInterface "Gio" "SocketAddress" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -socketConnect :: - (MonadIO m, SocketK a, SocketAddressK b, CancellableK c) => - a -- _obj - -> b -- address - -> Maybe (c) -- cancellable - -> m () -- result -socketConnect _obj address cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let address' = unsafeManagedPtrCastPtr address - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_socket_connect _obj' address' maybeCancellable - touchManagedPtr _obj - touchManagedPtr address - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data SocketConnectMethodInfo -instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, SocketK a, SocketAddressK b, CancellableK c) => MethodInfo SocketConnectMethodInfo a signature where - overloadedMethod _ = socketConnect - --- method Socket::connection_factory_create_connection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketConnection") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_connection_factory_create_connection" g_socket_connection_factory_create_connection :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO (Ptr SocketConnection) - - -socketConnectionFactoryCreateConnection :: - (MonadIO m, SocketK a) => - a -- _obj - -> m SocketConnection -- result -socketConnectionFactoryCreateConnection _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_connection_factory_create_connection _obj' - checkUnexpectedReturnNULL "g_socket_connection_factory_create_connection" result - result' <- (wrapObject SocketConnection) result - touchManagedPtr _obj - return result' - -data SocketConnectionFactoryCreateConnectionMethodInfo -instance (signature ~ (m SocketConnection), MonadIO m, SocketK a) => MethodInfo SocketConnectionFactoryCreateConnectionMethodInfo a signature where - overloadedMethod _ = socketConnectionFactoryCreateConnection - --- method Socket::get_available_bytes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_get_available_bytes" g_socket_get_available_bytes :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO Int64 - - -socketGetAvailableBytes :: - (MonadIO m, SocketK a) => - a -- _obj - -> m Int64 -- result -socketGetAvailableBytes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_get_available_bytes _obj' - touchManagedPtr _obj - return result - -data SocketGetAvailableBytesMethodInfo -instance (signature ~ (m Int64), MonadIO m, SocketK a) => MethodInfo SocketGetAvailableBytesMethodInfo a signature where - overloadedMethod _ = socketGetAvailableBytes - --- method Socket::get_blocking --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_get_blocking" g_socket_get_blocking :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO CInt - - -socketGetBlocking :: - (MonadIO m, SocketK a) => - a -- _obj - -> m Bool -- result -socketGetBlocking _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_get_blocking _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SocketGetBlockingMethodInfo -instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketGetBlockingMethodInfo a signature where - overloadedMethod _ = socketGetBlocking - --- method Socket::get_broadcast --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_get_broadcast" g_socket_get_broadcast :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO CInt - - -socketGetBroadcast :: - (MonadIO m, SocketK a) => - a -- _obj - -> m Bool -- result -socketGetBroadcast _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_get_broadcast _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SocketGetBroadcastMethodInfo -instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketGetBroadcastMethodInfo a signature where - overloadedMethod _ = socketGetBroadcast - --- method Socket::get_credentials --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Credentials") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_get_credentials" g_socket_get_credentials :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr (Ptr GError) -> -- error - IO (Ptr Credentials) - - -socketGetCredentials :: - (MonadIO m, SocketK a) => - a -- _obj - -> m Credentials -- result -socketGetCredentials _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ g_socket_get_credentials _obj' - checkUnexpectedReturnNULL "g_socket_get_credentials" result - result' <- (wrapObject Credentials) result - touchManagedPtr _obj - return result' - ) (do - return () - ) - -data SocketGetCredentialsMethodInfo -instance (signature ~ (m Credentials), MonadIO m, SocketK a) => MethodInfo SocketGetCredentialsMethodInfo a signature where - overloadedMethod _ = socketGetCredentials - --- method Socket::get_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketFamily") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_get_family" g_socket_get_family :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO CUInt - - -socketGetFamily :: - (MonadIO m, SocketK a) => - a -- _obj - -> m SocketFamily -- result -socketGetFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_get_family _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data SocketGetFamilyMethodInfo -instance (signature ~ (m SocketFamily), MonadIO m, SocketK a) => MethodInfo SocketGetFamilyMethodInfo a signature where - overloadedMethod _ = socketGetFamily - --- method Socket::get_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_get_fd" g_socket_get_fd :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO Int32 - - -socketGetFd :: - (MonadIO m, SocketK a) => - a -- _obj - -> m Int32 -- result -socketGetFd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_get_fd _obj' - touchManagedPtr _obj - return result - -data SocketGetFdMethodInfo -instance (signature ~ (m Int32), MonadIO m, SocketK a) => MethodInfo SocketGetFdMethodInfo a signature where - overloadedMethod _ = socketGetFd - --- method Socket::get_keepalive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_get_keepalive" g_socket_get_keepalive :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO CInt - - -socketGetKeepalive :: - (MonadIO m, SocketK a) => - a -- _obj - -> m Bool -- result -socketGetKeepalive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_get_keepalive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SocketGetKeepaliveMethodInfo -instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketGetKeepaliveMethodInfo a signature where - overloadedMethod _ = socketGetKeepalive - --- method Socket::get_listen_backlog --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_get_listen_backlog" g_socket_get_listen_backlog :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO Int32 - - -socketGetListenBacklog :: - (MonadIO m, SocketK a) => - a -- _obj - -> m Int32 -- result -socketGetListenBacklog _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_get_listen_backlog _obj' - touchManagedPtr _obj - return result - -data SocketGetListenBacklogMethodInfo -instance (signature ~ (m Int32), MonadIO m, SocketK a) => MethodInfo SocketGetListenBacklogMethodInfo a signature where - overloadedMethod _ = socketGetListenBacklog - --- method Socket::get_local_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketAddress") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_get_local_address" g_socket_get_local_address :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketAddress) - - -socketGetLocalAddress :: - (MonadIO m, SocketK a) => - a -- _obj - -> m SocketAddress -- result -socketGetLocalAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ g_socket_get_local_address _obj' - checkUnexpectedReturnNULL "g_socket_get_local_address" result - result' <- (wrapObject SocketAddress) result - touchManagedPtr _obj - return result' - ) (do - return () - ) - -data SocketGetLocalAddressMethodInfo -instance (signature ~ (m SocketAddress), MonadIO m, SocketK a) => MethodInfo SocketGetLocalAddressMethodInfo a signature where - overloadedMethod _ = socketGetLocalAddress - --- method Socket::get_multicast_loopback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_get_multicast_loopback" g_socket_get_multicast_loopback :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO CInt - - -socketGetMulticastLoopback :: - (MonadIO m, SocketK a) => - a -- _obj - -> m Bool -- result -socketGetMulticastLoopback _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_get_multicast_loopback _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SocketGetMulticastLoopbackMethodInfo -instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketGetMulticastLoopbackMethodInfo a signature where - overloadedMethod _ = socketGetMulticastLoopback - --- method Socket::get_multicast_ttl --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_get_multicast_ttl" g_socket_get_multicast_ttl :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO Word32 - - -socketGetMulticastTtl :: - (MonadIO m, SocketK a) => - a -- _obj - -> m Word32 -- result -socketGetMulticastTtl _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_get_multicast_ttl _obj' - touchManagedPtr _obj - return result - -data SocketGetMulticastTtlMethodInfo -instance (signature ~ (m Word32), MonadIO m, SocketK a) => MethodInfo SocketGetMulticastTtlMethodInfo a signature where - overloadedMethod _ = socketGetMulticastTtl - --- method Socket::get_option --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "optname", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_get_option" g_socket_get_option :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Int32 -> -- level : TBasicType TInt - Int32 -> -- optname : TBasicType TInt - Ptr Int32 -> -- value : TBasicType TInt - Ptr (Ptr GError) -> -- error - IO CInt - - -socketGetOption :: - (MonadIO m, SocketK a) => - a -- _obj - -> Int32 -- level - -> Int32 -- optname - -> m (Int32) -- result -socketGetOption _obj level optname = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - value <- allocMem :: IO (Ptr Int32) - onException (do - _ <- propagateGError $ g_socket_get_option _obj' level optname value - value' <- peek value - touchManagedPtr _obj - freeMem value - return value' - ) (do - freeMem value - ) - -data SocketGetOptionMethodInfo -instance (signature ~ (Int32 -> Int32 -> m (Int32)), MonadIO m, SocketK a) => MethodInfo SocketGetOptionMethodInfo a signature where - overloadedMethod _ = socketGetOption - --- method Socket::get_protocol --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketProtocol") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_get_protocol" g_socket_get_protocol :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO CUInt - - -socketGetProtocol :: - (MonadIO m, SocketK a) => - a -- _obj - -> m SocketProtocol -- result -socketGetProtocol _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_get_protocol _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data SocketGetProtocolMethodInfo -instance (signature ~ (m SocketProtocol), MonadIO m, SocketK a) => MethodInfo SocketGetProtocolMethodInfo a signature where - overloadedMethod _ = socketGetProtocol - --- method Socket::get_remote_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketAddress") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_get_remote_address" g_socket_get_remote_address :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketAddress) - - -socketGetRemoteAddress :: - (MonadIO m, SocketK a) => - a -- _obj - -> m SocketAddress -- result -socketGetRemoteAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ g_socket_get_remote_address _obj' - checkUnexpectedReturnNULL "g_socket_get_remote_address" result - result' <- (wrapObject SocketAddress) result - touchManagedPtr _obj - return result' - ) (do - return () - ) - -data SocketGetRemoteAddressMethodInfo -instance (signature ~ (m SocketAddress), MonadIO m, SocketK a) => MethodInfo SocketGetRemoteAddressMethodInfo a signature where - overloadedMethod _ = socketGetRemoteAddress - --- method Socket::get_socket_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketType") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_get_socket_type" g_socket_get_socket_type :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO CUInt - - -socketGetSocketType :: - (MonadIO m, SocketK a) => - a -- _obj - -> m SocketType -- result -socketGetSocketType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_get_socket_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data SocketGetSocketTypeMethodInfo -instance (signature ~ (m SocketType), MonadIO m, SocketK a) => MethodInfo SocketGetSocketTypeMethodInfo a signature where - overloadedMethod _ = socketGetSocketType - --- method Socket::get_timeout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_get_timeout" g_socket_get_timeout :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO Word32 - - -socketGetTimeout :: - (MonadIO m, SocketK a) => - a -- _obj - -> m Word32 -- result -socketGetTimeout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_get_timeout _obj' - touchManagedPtr _obj - return result - -data SocketGetTimeoutMethodInfo -instance (signature ~ (m Word32), MonadIO m, SocketK a) => MethodInfo SocketGetTimeoutMethodInfo a signature where - overloadedMethod _ = socketGetTimeout - --- method Socket::get_ttl --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_get_ttl" g_socket_get_ttl :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO Word32 - - -socketGetTtl :: - (MonadIO m, SocketK a) => - a -- _obj - -> m Word32 -- result -socketGetTtl _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_get_ttl _obj' - touchManagedPtr _obj - return result - -data SocketGetTtlMethodInfo -instance (signature ~ (m Word32), MonadIO m, SocketK a) => MethodInfo SocketGetTtlMethodInfo a signature where - overloadedMethod _ = socketGetTtl - --- method Socket::is_closed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_is_closed" g_socket_is_closed :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO CInt - - -socketIsClosed :: - (MonadIO m, SocketK a) => - a -- _obj - -> m Bool -- result -socketIsClosed _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_is_closed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SocketIsClosedMethodInfo -instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketIsClosedMethodInfo a signature where - overloadedMethod _ = socketIsClosed - --- method Socket::is_connected --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_is_connected" g_socket_is_connected :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO CInt - - -socketIsConnected :: - (MonadIO m, SocketK a) => - a -- _obj - -> m Bool -- result -socketIsConnected _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_is_connected _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SocketIsConnectedMethodInfo -instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketIsConnectedMethodInfo a signature where - overloadedMethod _ = socketIsConnected - --- method Socket::join_multicast_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_specific", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_join_multicast_group" g_socket_join_multicast_group :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr InetAddress -> -- group : TInterface "Gio" "InetAddress" - CInt -> -- source_specific : TBasicType TBoolean - CString -> -- iface : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -socketJoinMulticastGroup :: - (MonadIO m, SocketK a, InetAddressK b) => - a -- _obj - -> b -- group - -> Bool -- sourceSpecific - -> Maybe (T.Text) -- iface - -> m () -- result -socketJoinMulticastGroup _obj group sourceSpecific iface = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let group' = unsafeManagedPtrCastPtr group - let sourceSpecific' = (fromIntegral . fromEnum) sourceSpecific - maybeIface <- case iface of - Nothing -> return nullPtr - Just jIface -> do - jIface' <- textToCString jIface - return jIface' - onException (do - _ <- propagateGError $ g_socket_join_multicast_group _obj' group' sourceSpecific' maybeIface - touchManagedPtr _obj - touchManagedPtr group - freeMem maybeIface - return () - ) (do - freeMem maybeIface - ) - -data SocketJoinMulticastGroupMethodInfo -instance (signature ~ (b -> Bool -> Maybe (T.Text) -> m ()), MonadIO m, SocketK a, InetAddressK b) => MethodInfo SocketJoinMulticastGroupMethodInfo a signature where - overloadedMethod _ = socketJoinMulticastGroup - --- method Socket::leave_multicast_group --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TInterface "Gio" "InetAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_specific", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iface", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_leave_multicast_group" g_socket_leave_multicast_group :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr InetAddress -> -- group : TInterface "Gio" "InetAddress" - CInt -> -- source_specific : TBasicType TBoolean - CString -> -- iface : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -socketLeaveMulticastGroup :: - (MonadIO m, SocketK a, InetAddressK b) => - a -- _obj - -> b -- group - -> Bool -- sourceSpecific - -> Maybe (T.Text) -- iface - -> m () -- result -socketLeaveMulticastGroup _obj group sourceSpecific iface = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let group' = unsafeManagedPtrCastPtr group - let sourceSpecific' = (fromIntegral . fromEnum) sourceSpecific - maybeIface <- case iface of - Nothing -> return nullPtr - Just jIface -> do - jIface' <- textToCString jIface - return jIface' - onException (do - _ <- propagateGError $ g_socket_leave_multicast_group _obj' group' sourceSpecific' maybeIface - touchManagedPtr _obj - touchManagedPtr group - freeMem maybeIface - return () - ) (do - freeMem maybeIface - ) - -data SocketLeaveMulticastGroupMethodInfo -instance (signature ~ (b -> Bool -> Maybe (T.Text) -> m ()), MonadIO m, SocketK a, InetAddressK b) => MethodInfo SocketLeaveMulticastGroupMethodInfo a signature where - overloadedMethod _ = socketLeaveMulticastGroup - --- method Socket::listen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_listen" g_socket_listen :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr (Ptr GError) -> -- error - IO CInt - - -socketListen :: - (MonadIO m, SocketK a) => - a -- _obj - -> m () -- result -socketListen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ g_socket_listen _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data SocketListenMethodInfo -instance (signature ~ (m ()), MonadIO m, SocketK a) => MethodInfo SocketListenMethodInfo a signature where - overloadedMethod _ = socketListen - --- method Socket::receive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", 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 = "size", argType = TBasicType TUInt64, 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 = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_receive" g_socket_receive :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- size : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -socketReceive :: - (MonadIO m, SocketK a, CancellableK b) => - a -- _obj - -> ByteString -- buffer - -> Maybe (b) -- cancellable - -> m Int64 -- result -socketReceive _obj buffer cancellable = liftIO $ do - let size = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_socket_receive _obj' buffer' size maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - return result - ) (do - freeMem buffer' - ) - -data SocketReceiveMethodInfo -instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketReceiveMethodInfo a signature where - overloadedMethod _ = socketReceive - --- method Socket::receive_from --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "buffer", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, 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 = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_receive_from" g_socket_receive_from :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr (Ptr SocketAddress) -> -- address : TInterface "Gio" "SocketAddress" - Ptr Word8 -> -- buffer : TCArray False (-1) 3 (TBasicType TUInt8) - Word64 -> -- size : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -socketReceiveFrom :: - (MonadIO m, SocketK a, CancellableK b) => - a -- _obj - -> ByteString -- buffer - -> Maybe (b) -- cancellable - -> m (Int64,SocketAddress) -- result -socketReceiveFrom _obj buffer cancellable = liftIO $ do - let size = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - address <- allocMem :: IO (Ptr (Ptr SocketAddress)) - buffer' <- packByteString buffer - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_socket_receive_from _obj' address buffer' size maybeCancellable - address' <- peek address - address'' <- (wrapObject SocketAddress) address' - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem address - freeMem buffer' - return (result, address'') - ) (do - freeMem address - freeMem buffer' - ) - -data SocketReceiveFromMethodInfo -instance (signature ~ (ByteString -> Maybe (b) -> m (Int64,SocketAddress)), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketReceiveFromMethodInfo a signature where - overloadedMethod _ = socketReceiveFrom - --- method Socket::receive_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "vectors", argType = TCArray False (-1) 3 (TInterface "Gio" "InputVector"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_vectors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "messages", argType = TCArray False (-1) 5 (TInterface "Gio" "SocketControlMessage"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_messages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TInt, 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 = "num_messages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_vectors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_receive_message" g_socket_receive_message :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr (Ptr SocketAddress) -> -- address : TInterface "Gio" "SocketAddress" - Ptr InputVector -> -- vectors : TCArray False (-1) 3 (TInterface "Gio" "InputVector") - Int32 -> -- num_vectors : TBasicType TInt - Ptr (Ptr SocketControlMessage) -> -- messages : TCArray False (-1) 5 (TInterface "Gio" "SocketControlMessage") - Int32 -> -- num_messages : TBasicType TInt - Int32 -> -- flags : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -socketReceiveMessage :: - (MonadIO m, SocketK a, CancellableK b) => - a -- _obj - -> [InputVector] -- vectors - -> Maybe ([SocketControlMessage]) -- messages - -> Int32 -- flags - -> Maybe (b) -- cancellable - -> m (Int64,SocketAddress) -- result -socketReceiveMessage _obj vectors messages flags cancellable = liftIO $ do - let numMessages = case messages of - Nothing -> 0 - Just jMessages -> fromIntegral $ length jMessages - let numVectors = fromIntegral $ length vectors - let _obj' = unsafeManagedPtrCastPtr _obj - address <- allocMem :: IO (Ptr (Ptr SocketAddress)) - let vectors' = map unsafeManagedPtrGetPtr vectors - vectors'' <- packBlockArray 16 vectors' - maybeMessages <- case messages of - Nothing -> return nullPtr - Just jMessages -> do - let jMessages' = map unsafeManagedPtrCastPtr jMessages - jMessages'' <- packPtrArray jMessages' - return jMessages'' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_socket_receive_message _obj' address vectors'' numVectors maybeMessages numMessages flags maybeCancellable - address' <- peek address - address'' <- (wrapObject SocketAddress) address' - touchManagedPtr _obj - mapM_ touchManagedPtr vectors - whenJust messages (mapM_ touchManagedPtr) - whenJust cancellable touchManagedPtr - freeMem address - freeMem vectors'' - freeMem maybeMessages - return (result, address'') - ) (do - freeMem address - freeMem vectors'' - freeMem maybeMessages - ) - -data SocketReceiveMessageMethodInfo -instance (signature ~ ([InputVector] -> Maybe ([SocketControlMessage]) -> Int32 -> Maybe (b) -> m (Int64,SocketAddress)), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketReceiveMessageMethodInfo a signature where - overloadedMethod _ = socketReceiveMessage - --- method Socket::receive_with_blocking --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", 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 = "size", 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 = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_receive_with_blocking" g_socket_receive_with_blocking :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- size : TBasicType TUInt64 - CInt -> -- blocking : TBasicType TBoolean - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -socketReceiveWithBlocking :: - (MonadIO m, SocketK a, CancellableK b) => - a -- _obj - -> ByteString -- buffer - -> Bool -- blocking - -> Maybe (b) -- cancellable - -> m Int64 -- result -socketReceiveWithBlocking _obj buffer blocking cancellable = liftIO $ do - let size = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - 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_socket_receive_with_blocking _obj' buffer' size blocking' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - return result - ) (do - freeMem buffer' - ) - -data SocketReceiveWithBlockingMethodInfo -instance (signature ~ (ByteString -> Bool -> Maybe (b) -> m Int64), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketReceiveWithBlockingMethodInfo a signature where - overloadedMethod _ = socketReceiveWithBlocking - --- method Socket::send --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", 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 = "size", argType = TBasicType TUInt64, 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 = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_send" g_socket_send :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- size : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -socketSend :: - (MonadIO m, SocketK a, CancellableK b) => - a -- _obj - -> ByteString -- buffer - -> Maybe (b) -- cancellable - -> m Int64 -- result -socketSend _obj buffer cancellable = liftIO $ do - let size = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_socket_send _obj' buffer' size maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - return result - ) (do - freeMem buffer' - ) - -data SocketSendMethodInfo -instance (signature ~ (ByteString -> Maybe (b) -> m Int64), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketSendMethodInfo a signature where - overloadedMethod _ = socketSend - --- method Socket::send_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "vectors", argType = TCArray False (-1) 3 (TInterface "Gio" "OutputVector"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_vectors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "messages", argType = TCArray False (-1) 5 (TInterface "Gio" "SocketControlMessage"), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_messages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TInt, 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 = "num_messages", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_vectors", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_send_message" g_socket_send_message :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr SocketAddress -> -- address : TInterface "Gio" "SocketAddress" - Ptr OutputVector -> -- vectors : TCArray False (-1) 3 (TInterface "Gio" "OutputVector") - Int32 -> -- num_vectors : TBasicType TInt - Ptr (Ptr SocketControlMessage) -> -- messages : TCArray False (-1) 5 (TInterface "Gio" "SocketControlMessage") - Int32 -> -- num_messages : TBasicType TInt - Int32 -> -- flags : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -socketSendMessage :: - (MonadIO m, SocketK a, SocketAddressK b, CancellableK c) => - a -- _obj - -> Maybe (b) -- address - -> [OutputVector] -- vectors - -> Maybe ([SocketControlMessage]) -- messages - -> Int32 -- flags - -> Maybe (c) -- cancellable - -> m Int64 -- result -socketSendMessage _obj address vectors messages flags cancellable = liftIO $ do - let numMessages = case messages of - Nothing -> 0 - Just jMessages -> fromIntegral $ length jMessages - let numVectors = fromIntegral $ length vectors - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAddress <- case address of - Nothing -> return nullPtr - Just jAddress -> do - let jAddress' = unsafeManagedPtrCastPtr jAddress - return jAddress' - let vectors' = map unsafeManagedPtrGetPtr vectors - vectors'' <- packBlockArray 16 vectors' - maybeMessages <- case messages of - Nothing -> return nullPtr - Just jMessages -> do - let jMessages' = map unsafeManagedPtrCastPtr jMessages - jMessages'' <- packPtrArray jMessages' - return jMessages'' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_socket_send_message _obj' maybeAddress vectors'' numVectors maybeMessages numMessages flags maybeCancellable - touchManagedPtr _obj - whenJust address touchManagedPtr - mapM_ touchManagedPtr vectors - whenJust messages (mapM_ touchManagedPtr) - whenJust cancellable touchManagedPtr - freeMem vectors'' - freeMem maybeMessages - return result - ) (do - freeMem vectors'' - freeMem maybeMessages - ) - -data SocketSendMessageMethodInfo -instance (signature ~ (Maybe (b) -> [OutputVector] -> Maybe ([SocketControlMessage]) -> Int32 -> Maybe (c) -> m Int64), MonadIO m, SocketK a, SocketAddressK b, CancellableK c) => MethodInfo SocketSendMessageMethodInfo a signature where - overloadedMethod _ = socketSendMessage - --- method Socket::send_messages --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "messages", argType = TCArray False (-1) 2 (TInterface "Gio" "OutputMessage"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "num_messages", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TBasicType TInt, 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 = "num_messages", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TInt) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_send_messages" g_socket_send_messages :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr OutputMessage -> -- messages : TCArray False (-1) 2 (TInterface "Gio" "OutputMessage") - Word32 -> -- num_messages : TBasicType TUInt - Int32 -> -- flags : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int32 - - -socketSendMessages :: - (MonadIO m, SocketK a, CancellableK b) => - a -- _obj - -> [OutputMessage] -- messages - -> Int32 -- flags - -> Maybe (b) -- cancellable - -> m Int32 -- result -socketSendMessages _obj messages flags cancellable = liftIO $ do - let numMessages = fromIntegral $ length messages - let _obj' = unsafeManagedPtrCastPtr _obj - let messages' = map unsafeManagedPtrGetPtr messages - messages'' <- packBlockArray 40 messages' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_socket_send_messages _obj' messages'' numMessages flags maybeCancellable - touchManagedPtr _obj - mapM_ touchManagedPtr messages - whenJust cancellable touchManagedPtr - freeMem messages'' - return result - ) (do - freeMem messages'' - ) - -data SocketSendMessagesMethodInfo -instance (signature ~ ([OutputMessage] -> Int32 -> Maybe (b) -> m Int32), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketSendMessagesMethodInfo a signature where - overloadedMethod _ = socketSendMessages - --- method Socket::send_to --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 3 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, 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 = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_send_to" g_socket_send_to :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr SocketAddress -> -- address : TInterface "Gio" "SocketAddress" - Ptr Word8 -> -- buffer : TCArray False (-1) 3 (TBasicType TUInt8) - Word64 -> -- size : TBasicType TUInt64 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -socketSendTo :: - (MonadIO m, SocketK a, SocketAddressK b, CancellableK c) => - a -- _obj - -> Maybe (b) -- address - -> ByteString -- buffer - -> Maybe (c) -- cancellable - -> m Int64 -- result -socketSendTo _obj address buffer cancellable = liftIO $ do - let size = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAddress <- case address of - Nothing -> return nullPtr - Just jAddress -> do - let jAddress' = unsafeManagedPtrCastPtr jAddress - return jAddress' - buffer' <- packByteString buffer - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_socket_send_to _obj' maybeAddress buffer' size maybeCancellable - touchManagedPtr _obj - whenJust address touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem buffer' - return result - ) (do - freeMem buffer' - ) - -data SocketSendToMethodInfo -instance (signature ~ (Maybe (b) -> ByteString -> Maybe (c) -> m Int64), MonadIO m, SocketK a, SocketAddressK b, CancellableK c) => MethodInfo SocketSendToMethodInfo a signature where - overloadedMethod _ = socketSendTo - --- method Socket::send_with_blocking --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", 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 = "size", 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 = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_send_with_blocking" g_socket_send_with_blocking :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- size : TBasicType TUInt64 - CInt -> -- blocking : TBasicType TBoolean - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int64 - - -socketSendWithBlocking :: - (MonadIO m, SocketK a, CancellableK b) => - a -- _obj - -> ByteString -- buffer - -> Bool -- blocking - -> Maybe (b) -- cancellable - -> m Int64 -- result -socketSendWithBlocking _obj buffer blocking cancellable = liftIO $ do - let size = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - 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_socket_send_with_blocking _obj' buffer' size blocking' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - return result - ) (do - freeMem buffer' - ) - -data SocketSendWithBlockingMethodInfo -instance (signature ~ (ByteString -> Bool -> Maybe (b) -> m Int64), MonadIO m, SocketK a, CancellableK b) => MethodInfo SocketSendWithBlockingMethodInfo a signature where - overloadedMethod _ = socketSendWithBlocking - --- method Socket::set_blocking --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_set_blocking" g_socket_set_blocking :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - CInt -> -- blocking : TBasicType TBoolean - IO () - - -socketSetBlocking :: - (MonadIO m, SocketK a) => - a -- _obj - -> Bool -- blocking - -> m () -- result -socketSetBlocking _obj blocking = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let blocking' = (fromIntegral . fromEnum) blocking - g_socket_set_blocking _obj' blocking' - touchManagedPtr _obj - return () - -data SocketSetBlockingMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetBlockingMethodInfo a signature where - overloadedMethod _ = socketSetBlocking - --- method Socket::set_broadcast --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "broadcast", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_set_broadcast" g_socket_set_broadcast :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - CInt -> -- broadcast : TBasicType TBoolean - IO () - - -socketSetBroadcast :: - (MonadIO m, SocketK a) => - a -- _obj - -> Bool -- broadcast - -> m () -- result -socketSetBroadcast _obj broadcast = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let broadcast' = (fromIntegral . fromEnum) broadcast - g_socket_set_broadcast _obj' broadcast' - touchManagedPtr _obj - return () - -data SocketSetBroadcastMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetBroadcastMethodInfo a signature where - overloadedMethod _ = socketSetBroadcast - --- method Socket::set_keepalive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keepalive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_set_keepalive" g_socket_set_keepalive :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - CInt -> -- keepalive : TBasicType TBoolean - IO () - - -socketSetKeepalive :: - (MonadIO m, SocketK a) => - a -- _obj - -> Bool -- keepalive - -> m () -- result -socketSetKeepalive _obj keepalive = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let keepalive' = (fromIntegral . fromEnum) keepalive - g_socket_set_keepalive _obj' keepalive' - touchManagedPtr _obj - return () - -data SocketSetKeepaliveMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetKeepaliveMethodInfo a signature where - overloadedMethod _ = socketSetKeepalive - --- method Socket::set_listen_backlog --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "backlog", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_set_listen_backlog" g_socket_set_listen_backlog :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Int32 -> -- backlog : TBasicType TInt - IO () - - -socketSetListenBacklog :: - (MonadIO m, SocketK a) => - a -- _obj - -> Int32 -- backlog - -> m () -- result -socketSetListenBacklog _obj backlog = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_socket_set_listen_backlog _obj' backlog - touchManagedPtr _obj - return () - -data SocketSetListenBacklogMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetListenBacklogMethodInfo a signature where - overloadedMethod _ = socketSetListenBacklog - --- method Socket::set_multicast_loopback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "loopback", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_set_multicast_loopback" g_socket_set_multicast_loopback :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - CInt -> -- loopback : TBasicType TBoolean - IO () - - -socketSetMulticastLoopback :: - (MonadIO m, SocketK a) => - a -- _obj - -> Bool -- loopback - -> m () -- result -socketSetMulticastLoopback _obj loopback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let loopback' = (fromIntegral . fromEnum) loopback - g_socket_set_multicast_loopback _obj' loopback' - touchManagedPtr _obj - return () - -data SocketSetMulticastLoopbackMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetMulticastLoopbackMethodInfo a signature where - overloadedMethod _ = socketSetMulticastLoopback - --- method Socket::set_multicast_ttl --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ttl", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_set_multicast_ttl" g_socket_set_multicast_ttl :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Word32 -> -- ttl : TBasicType TUInt - IO () - - -socketSetMulticastTtl :: - (MonadIO m, SocketK a) => - a -- _obj - -> Word32 -- ttl - -> m () -- result -socketSetMulticastTtl _obj ttl = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_socket_set_multicast_ttl _obj' ttl - touchManagedPtr _obj - return () - -data SocketSetMulticastTtlMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetMulticastTtlMethodInfo a signature where - overloadedMethod _ = socketSetMulticastTtl - --- method Socket::set_option --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "optname", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_set_option" g_socket_set_option :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Int32 -> -- level : TBasicType TInt - Int32 -> -- optname : TBasicType TInt - Int32 -> -- value : TBasicType TInt - Ptr (Ptr GError) -> -- error - IO CInt - - -socketSetOption :: - (MonadIO m, SocketK a) => - a -- _obj - -> Int32 -- level - -> Int32 -- optname - -> Int32 -- value - -> m () -- result -socketSetOption _obj level optname value = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ g_socket_set_option _obj' level optname value - touchManagedPtr _obj - return () - ) (do - return () - ) - -data SocketSetOptionMethodInfo -instance (signature ~ (Int32 -> Int32 -> Int32 -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetOptionMethodInfo a signature where - overloadedMethod _ = socketSetOption - --- method Socket::set_timeout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_set_timeout" g_socket_set_timeout :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Word32 -> -- timeout : TBasicType TUInt - IO () - - -socketSetTimeout :: - (MonadIO m, SocketK a) => - a -- _obj - -> Word32 -- timeout - -> m () -- result -socketSetTimeout _obj timeout = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_socket_set_timeout _obj' timeout - touchManagedPtr _obj - return () - -data SocketSetTimeoutMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetTimeoutMethodInfo a signature where - overloadedMethod _ = socketSetTimeout - --- method Socket::set_ttl --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ttl", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_set_ttl" g_socket_set_ttl :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - Word32 -> -- ttl : TBasicType TUInt - IO () - - -socketSetTtl :: - (MonadIO m, SocketK a) => - a -- _obj - -> Word32 -- ttl - -> m () -- result -socketSetTtl _obj ttl = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_socket_set_ttl _obj' ttl - touchManagedPtr _obj - return () - -data SocketSetTtlMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, SocketK a) => MethodInfo SocketSetTtlMethodInfo a signature where - overloadedMethod _ = socketSetTtl - --- method Socket::shutdown --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shutdown_read", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shutdown_write", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_shutdown" g_socket_shutdown :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - CInt -> -- shutdown_read : TBasicType TBoolean - CInt -> -- shutdown_write : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO CInt - - -socketShutdown :: - (MonadIO m, SocketK a) => - a -- _obj - -> Bool -- shutdownRead - -> Bool -- shutdownWrite - -> m () -- result -socketShutdown _obj shutdownRead shutdownWrite = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let shutdownRead' = (fromIntegral . fromEnum) shutdownRead - let shutdownWrite' = (fromIntegral . fromEnum) shutdownWrite - onException (do - _ <- propagateGError $ g_socket_shutdown _obj' shutdownRead' shutdownWrite' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data SocketShutdownMethodInfo -instance (signature ~ (Bool -> Bool -> m ()), MonadIO m, SocketK a) => MethodInfo SocketShutdownMethodInfo a signature where - overloadedMethod _ = socketShutdown - --- method Socket::speaks_ipv4 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_speaks_ipv4" g_socket_speaks_ipv4 :: - Ptr Socket -> -- _obj : TInterface "Gio" "Socket" - IO CInt - - -socketSpeaksIpv4 :: - (MonadIO m, SocketK a) => - a -- _obj - -> m Bool -- result -socketSpeaksIpv4 _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_speaks_ipv4 _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SocketSpeaksIpv4MethodInfo -instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketSpeaksIpv4MethodInfo a signature where - overloadedMethod _ = socketSpeaksIpv4 - - diff --git a/GI/Gio/Objects/Socket.hs-boot b/GI/Gio/Objects/Socket.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/Socket.hs-boot +++ /dev/null @@ -1,78 +0,0 @@ -module GI.Gio.Objects.Socket where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Socket = Socket (ForeignPtr Socket) -instance GObject Socket where -class GObject o => SocketK o -instance (GObject o, IsDescendantOf Socket o) => SocketK o -data SocketBlockingPropertyInfo -data SocketBroadcastPropertyInfo -data SocketFamilyPropertyInfo -data SocketFdPropertyInfo -data SocketKeepalivePropertyInfo -data SocketListenBacklogPropertyInfo -data SocketLocalAddressPropertyInfo -data SocketMulticastLoopbackPropertyInfo -data SocketMulticastTtlPropertyInfo -data SocketProtocolPropertyInfo -data SocketRemoteAddressPropertyInfo -data SocketTimeoutPropertyInfo -data SocketTtlPropertyInfo -data SocketTypePropertyInfo -data SocketAcceptMethodInfo -data SocketBindMethodInfo -data SocketCheckConnectResultMethodInfo -data SocketCloseMethodInfo -data SocketConditionCheckMethodInfo -data SocketConditionTimedWaitMethodInfo -data SocketConditionWaitMethodInfo -data SocketConnectMethodInfo -data SocketConnectionFactoryCreateConnectionMethodInfo -data SocketGetAvailableBytesMethodInfo -data SocketGetBlockingMethodInfo -data SocketGetBroadcastMethodInfo -data SocketGetCredentialsMethodInfo -data SocketGetFamilyMethodInfo -data SocketGetFdMethodInfo -data SocketGetKeepaliveMethodInfo -data SocketGetListenBacklogMethodInfo -data SocketGetLocalAddressMethodInfo -data SocketGetMulticastLoopbackMethodInfo -data SocketGetMulticastTtlMethodInfo -data SocketGetOptionMethodInfo -data SocketGetProtocolMethodInfo -data SocketGetRemoteAddressMethodInfo -data SocketGetSocketTypeMethodInfo -data SocketGetTimeoutMethodInfo -data SocketGetTtlMethodInfo -data SocketIsClosedMethodInfo -data SocketIsConnectedMethodInfo -data SocketJoinMulticastGroupMethodInfo -data SocketLeaveMulticastGroupMethodInfo -data SocketListenMethodInfo -data SocketReceiveMethodInfo -data SocketReceiveFromMethodInfo -data SocketReceiveMessageMethodInfo -data SocketReceiveWithBlockingMethodInfo -data SocketSendMethodInfo -data SocketSendMessageMethodInfo -data SocketSendMessagesMethodInfo -data SocketSendToMethodInfo -data SocketSendWithBlockingMethodInfo -data SocketSetBlockingMethodInfo -data SocketSetBroadcastMethodInfo -data SocketSetKeepaliveMethodInfo -data SocketSetListenBacklogMethodInfo -data SocketSetMulticastLoopbackMethodInfo -data SocketSetMulticastTtlMethodInfo -data SocketSetOptionMethodInfo -data SocketSetTimeoutMethodInfo -data SocketSetTtlMethodInfo -data SocketShutdownMethodInfo -data SocketSpeaksIpv4MethodInfo diff --git a/GI/Gio/Objects/SocketAddress.hs b/GI/Gio/Objects/SocketAddress.hs deleted file mode 100644 --- a/GI/Gio/Objects/SocketAddress.hs +++ /dev/null @@ -1,267 +0,0 @@ - - -{- | -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.Objects.SocketAddress - ( - --- * Exported types - SocketAddress(..) , - SocketAddressK , - toSocketAddress , - noSocketAddress , - - - -- * Methods --- ** socketAddressGetFamily - SocketAddressGetFamilyMethodInfo , - socketAddressGetFamily , - - --- ** socketAddressGetNativeSize - SocketAddressGetNativeSizeMethodInfo , - socketAddressGetNativeSize , - - --- ** socketAddressNewFromNative - socketAddressNewFromNative , - - --- ** socketAddressToNative - SocketAddressToNativeMethodInfo , - socketAddressToNative , - - - - - -- * Properties --- ** Family - SocketAddressFamilyPropertyInfo , - getSocketAddressFamily , - socketAddressFamily , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype SocketAddress = SocketAddress (ForeignPtr SocketAddress) -foreign import ccall "g_socket_address_get_type" - c_g_socket_address_get_type :: IO GType - -type instance ParentTypes SocketAddress = SocketAddressParentTypes -type SocketAddressParentTypes = '[GObject.Object, SocketConnectable] - -instance GObject SocketAddress where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_socket_address_get_type - - -class GObject o => SocketAddressK o -instance (GObject o, IsDescendantOf SocketAddress o) => SocketAddressK o - -toSocketAddress :: SocketAddressK o => o -> IO SocketAddress -toSocketAddress = unsafeCastTo SocketAddress - -noSocketAddress :: Maybe SocketAddress -noSocketAddress = Nothing - -type family ResolveSocketAddressMethod (t :: Symbol) (o :: *) :: * where - ResolveSocketAddressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSocketAddressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSocketAddressMethod "enumerate" o = SocketConnectableEnumerateMethodInfo - ResolveSocketAddressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSocketAddressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSocketAddressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSocketAddressMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSocketAddressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSocketAddressMethod "proxyEnumerate" o = SocketConnectableProxyEnumerateMethodInfo - ResolveSocketAddressMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSocketAddressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSocketAddressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSocketAddressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSocketAddressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSocketAddressMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSocketAddressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSocketAddressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSocketAddressMethod "toNative" o = SocketAddressToNativeMethodInfo - ResolveSocketAddressMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSocketAddressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSocketAddressMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSocketAddressMethod "getFamily" o = SocketAddressGetFamilyMethodInfo - ResolveSocketAddressMethod "getNativeSize" o = SocketAddressGetNativeSizeMethodInfo - ResolveSocketAddressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSocketAddressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSocketAddressMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSocketAddressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSocketAddressMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSocketAddressMethod t SocketAddress, MethodInfo info SocketAddress p) => IsLabelProxy t (SocketAddress -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSocketAddressMethod t SocketAddress, MethodInfo info SocketAddress p) => IsLabel t (SocketAddress -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "family" - -- Type: TInterface "Gio" "SocketFamily" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getSocketAddressFamily :: (MonadIO m, SocketAddressK o) => o -> m SocketFamily -getSocketAddressFamily obj = liftIO $ getObjectPropertyEnum obj "family" - -data SocketAddressFamilyPropertyInfo -instance AttrInfo SocketAddressFamilyPropertyInfo where - type AttrAllowedOps SocketAddressFamilyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint SocketAddressFamilyPropertyInfo = (~) () - type AttrBaseTypeConstraint SocketAddressFamilyPropertyInfo = SocketAddressK - type AttrGetType SocketAddressFamilyPropertyInfo = SocketFamily - type AttrLabel SocketAddressFamilyPropertyInfo = "family" - attrGet _ = getSocketAddressFamily - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList SocketAddress = SocketAddressAttributeList -type SocketAddressAttributeList = ('[ '("family", SocketAddressFamilyPropertyInfo)] :: [(Symbol, *)]) - -socketAddressFamily :: AttrLabelProxy "family" -socketAddressFamily = AttrLabelProxy - -type instance SignalList SocketAddress = SocketAddressSignalList -type SocketAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SocketAddress::new_from_native --- method type : Constructor --- Args : [Arg {argCName = "native", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_address_new_from_native" g_socket_address_new_from_native :: - Ptr () -> -- native : TBasicType TPtr - Word64 -> -- len : TBasicType TUInt64 - IO (Ptr SocketAddress) - - -socketAddressNewFromNative :: - (MonadIO m) => - Ptr () -- native - -> Word64 -- len - -> m SocketAddress -- result -socketAddressNewFromNative native len = liftIO $ do - result <- g_socket_address_new_from_native native len - checkUnexpectedReturnNULL "g_socket_address_new_from_native" result - result' <- (wrapObject SocketAddress) result - return result' - --- method SocketAddress::get_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketFamily") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_address_get_family" g_socket_address_get_family :: - Ptr SocketAddress -> -- _obj : TInterface "Gio" "SocketAddress" - IO CUInt - - -socketAddressGetFamily :: - (MonadIO m, SocketAddressK a) => - a -- _obj - -> m SocketFamily -- result -socketAddressGetFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_address_get_family _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data SocketAddressGetFamilyMethodInfo -instance (signature ~ (m SocketFamily), MonadIO m, SocketAddressK a) => MethodInfo SocketAddressGetFamilyMethodInfo a signature where - overloadedMethod _ = socketAddressGetFamily - --- method SocketAddress::get_native_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_address_get_native_size" g_socket_address_get_native_size :: - Ptr SocketAddress -> -- _obj : TInterface "Gio" "SocketAddress" - IO Int64 - - -socketAddressGetNativeSize :: - (MonadIO m, SocketAddressK a) => - a -- _obj - -> m Int64 -- result -socketAddressGetNativeSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_address_get_native_size _obj' - touchManagedPtr _obj - return result - -data SocketAddressGetNativeSizeMethodInfo -instance (signature ~ (m Int64), MonadIO m, SocketAddressK a) => MethodInfo SocketAddressGetNativeSizeMethodInfo a signature where - overloadedMethod _ = socketAddressGetNativeSize - --- method SocketAddress::to_native --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destlen", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_address_to_native" g_socket_address_to_native :: - Ptr SocketAddress -> -- _obj : TInterface "Gio" "SocketAddress" - Ptr () -> -- dest : TBasicType TPtr - Word64 -> -- destlen : TBasicType TUInt64 - Ptr (Ptr GError) -> -- error - IO CInt - - -socketAddressToNative :: - (MonadIO m, SocketAddressK a) => - a -- _obj - -> Ptr () -- dest - -> Word64 -- destlen - -> m () -- result -socketAddressToNative _obj dest destlen = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ g_socket_address_to_native _obj' dest destlen - touchManagedPtr _obj - return () - ) (do - return () - ) - -data SocketAddressToNativeMethodInfo -instance (signature ~ (Ptr () -> Word64 -> m ()), MonadIO m, SocketAddressK a) => MethodInfo SocketAddressToNativeMethodInfo a signature where - overloadedMethod _ = socketAddressToNative - - diff --git a/GI/Gio/Objects/SocketAddress.hs-boot b/GI/Gio/Objects/SocketAddress.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/SocketAddress.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Objects.SocketAddress where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SocketAddress = SocketAddress (ForeignPtr SocketAddress) -instance GObject SocketAddress where -class GObject o => SocketAddressK o -instance (GObject o, IsDescendantOf SocketAddress o) => SocketAddressK o -data SocketAddressFamilyPropertyInfo -data SocketAddressGetFamilyMethodInfo -data SocketAddressGetNativeSizeMethodInfo -data SocketAddressToNativeMethodInfo diff --git a/GI/Gio/Objects/SocketAddressEnumerator.hs b/GI/Gio/Objects/SocketAddressEnumerator.hs deleted file mode 100644 --- a/GI/Gio/Objects/SocketAddressEnumerator.hs +++ /dev/null @@ -1,239 +0,0 @@ - - -{- | -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.Objects.SocketAddressEnumerator - ( - --- * Exported types - SocketAddressEnumerator(..) , - SocketAddressEnumeratorK , - toSocketAddressEnumerator , - noSocketAddressEnumerator , - - - -- * Methods --- ** socketAddressEnumeratorNext - SocketAddressEnumeratorNextMethodInfo , - socketAddressEnumeratorNext , - - --- ** socketAddressEnumeratorNextAsync - SocketAddressEnumeratorNextAsyncMethodInfo, - socketAddressEnumeratorNextAsync , - - --- ** socketAddressEnumeratorNextFinish - SocketAddressEnumeratorNextFinishMethodInfo, - socketAddressEnumeratorNextFinish , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype SocketAddressEnumerator = SocketAddressEnumerator (ForeignPtr SocketAddressEnumerator) -foreign import ccall "g_socket_address_enumerator_get_type" - c_g_socket_address_enumerator_get_type :: IO GType - -type instance ParentTypes SocketAddressEnumerator = SocketAddressEnumeratorParentTypes -type SocketAddressEnumeratorParentTypes = '[GObject.Object] - -instance GObject SocketAddressEnumerator where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_socket_address_enumerator_get_type - - -class GObject o => SocketAddressEnumeratorK o -instance (GObject o, IsDescendantOf SocketAddressEnumerator o) => SocketAddressEnumeratorK o - -toSocketAddressEnumerator :: SocketAddressEnumeratorK o => o -> IO SocketAddressEnumerator -toSocketAddressEnumerator = unsafeCastTo SocketAddressEnumerator - -noSocketAddressEnumerator :: Maybe SocketAddressEnumerator -noSocketAddressEnumerator = Nothing - -type family ResolveSocketAddressEnumeratorMethod (t :: Symbol) (o :: *) :: * where - ResolveSocketAddressEnumeratorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSocketAddressEnumeratorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSocketAddressEnumeratorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSocketAddressEnumeratorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSocketAddressEnumeratorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSocketAddressEnumeratorMethod "next" o = SocketAddressEnumeratorNextMethodInfo - ResolveSocketAddressEnumeratorMethod "nextAsync" o = SocketAddressEnumeratorNextAsyncMethodInfo - ResolveSocketAddressEnumeratorMethod "nextFinish" o = SocketAddressEnumeratorNextFinishMethodInfo - ResolveSocketAddressEnumeratorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSocketAddressEnumeratorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSocketAddressEnumeratorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSocketAddressEnumeratorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSocketAddressEnumeratorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSocketAddressEnumeratorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSocketAddressEnumeratorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSocketAddressEnumeratorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSocketAddressEnumeratorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSocketAddressEnumeratorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSocketAddressEnumeratorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSocketAddressEnumeratorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSocketAddressEnumeratorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSocketAddressEnumeratorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSocketAddressEnumeratorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSocketAddressEnumeratorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSocketAddressEnumeratorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSocketAddressEnumeratorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSocketAddressEnumeratorMethod t SocketAddressEnumerator, MethodInfo info SocketAddressEnumerator p) => IsLabelProxy t (SocketAddressEnumerator -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSocketAddressEnumeratorMethod t SocketAddressEnumerator, MethodInfo info SocketAddressEnumerator p) => IsLabel t (SocketAddressEnumerator -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList SocketAddressEnumerator = SocketAddressEnumeratorAttributeList -type SocketAddressEnumeratorAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList SocketAddressEnumerator = SocketAddressEnumeratorSignalList -type SocketAddressEnumeratorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SocketAddressEnumerator::next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketAddressEnumerator", 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 : Just (TInterface "Gio" "SocketAddress") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_address_enumerator_next" g_socket_address_enumerator_next :: - Ptr SocketAddressEnumerator -> -- _obj : TInterface "Gio" "SocketAddressEnumerator" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketAddress) - - -socketAddressEnumeratorNext :: - (MonadIO m, SocketAddressEnumeratorK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m SocketAddress -- result -socketAddressEnumeratorNext _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_socket_address_enumerator_next _obj' maybeCancellable - checkUnexpectedReturnNULL "g_socket_address_enumerator_next" result - result' <- (wrapObject SocketAddress) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data SocketAddressEnumeratorNextMethodInfo -instance (signature ~ (Maybe (b) -> m SocketAddress), MonadIO m, SocketAddressEnumeratorK a, CancellableK b) => MethodInfo SocketAddressEnumeratorNextMethodInfo a signature where - overloadedMethod _ = socketAddressEnumeratorNext - --- method SocketAddressEnumerator::next_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketAddressEnumerator", 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_address_enumerator_next_async" g_socket_address_enumerator_next_async :: - Ptr SocketAddressEnumerator -> -- _obj : TInterface "Gio" "SocketAddressEnumerator" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -socketAddressEnumeratorNextAsync :: - (MonadIO m, SocketAddressEnumeratorK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -socketAddressEnumeratorNextAsync _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_socket_address_enumerator_next_async _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data SocketAddressEnumeratorNextAsyncMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketAddressEnumeratorK a, CancellableK b) => MethodInfo SocketAddressEnumeratorNextAsyncMethodInfo a signature where - overloadedMethod _ = socketAddressEnumeratorNextAsync - --- method SocketAddressEnumerator::next_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketAddressEnumerator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketAddress") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_address_enumerator_next_finish" g_socket_address_enumerator_next_finish :: - Ptr SocketAddressEnumerator -> -- _obj : TInterface "Gio" "SocketAddressEnumerator" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketAddress) - - -socketAddressEnumeratorNextFinish :: - (MonadIO m, SocketAddressEnumeratorK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m SocketAddress -- result -socketAddressEnumeratorNextFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_socket_address_enumerator_next_finish _obj' result_' - checkUnexpectedReturnNULL "g_socket_address_enumerator_next_finish" result - result' <- (wrapObject SocketAddress) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data SocketAddressEnumeratorNextFinishMethodInfo -instance (signature ~ (b -> m SocketAddress), MonadIO m, SocketAddressEnumeratorK a, AsyncResultK b) => MethodInfo SocketAddressEnumeratorNextFinishMethodInfo a signature where - overloadedMethod _ = socketAddressEnumeratorNextFinish - - diff --git a/GI/Gio/Objects/SocketAddressEnumerator.hs-boot b/GI/Gio/Objects/SocketAddressEnumerator.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/SocketAddressEnumerator.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gio.Objects.SocketAddressEnumerator where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SocketAddressEnumerator = SocketAddressEnumerator (ForeignPtr SocketAddressEnumerator) -instance GObject SocketAddressEnumerator where -class GObject o => SocketAddressEnumeratorK o -instance (GObject o, IsDescendantOf SocketAddressEnumerator o) => SocketAddressEnumeratorK o -data SocketAddressEnumeratorNextMethodInfo -data SocketAddressEnumeratorNextAsyncMethodInfo -data SocketAddressEnumeratorNextFinishMethodInfo diff --git a/GI/Gio/Objects/SocketClient.hs b/GI/Gio/Objects/SocketClient.hs deleted file mode 100644 --- a/GI/Gio/Objects/SocketClient.hs +++ /dev/null @@ -1,1841 +0,0 @@ - - -{- | -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.Objects.SocketClient - ( - --- * Exported types - SocketClient(..) , - SocketClientK , - toSocketClient , - noSocketClient , - - - -- * Methods --- ** socketClientAddApplicationProxy - SocketClientAddApplicationProxyMethodInfo, - socketClientAddApplicationProxy , - - --- ** socketClientConnect - SocketClientConnectMethodInfo , - socketClientConnect , - - --- ** socketClientConnectAsync - SocketClientConnectAsyncMethodInfo , - socketClientConnectAsync , - - --- ** socketClientConnectFinish - SocketClientConnectFinishMethodInfo , - socketClientConnectFinish , - - --- ** socketClientConnectToHost - SocketClientConnectToHostMethodInfo , - socketClientConnectToHost , - - --- ** socketClientConnectToHostAsync - SocketClientConnectToHostAsyncMethodInfo, - socketClientConnectToHostAsync , - - --- ** socketClientConnectToHostFinish - SocketClientConnectToHostFinishMethodInfo, - socketClientConnectToHostFinish , - - --- ** socketClientConnectToService - SocketClientConnectToServiceMethodInfo , - socketClientConnectToService , - - --- ** socketClientConnectToServiceAsync - SocketClientConnectToServiceAsyncMethodInfo, - socketClientConnectToServiceAsync , - - --- ** socketClientConnectToServiceFinish - SocketClientConnectToServiceFinishMethodInfo, - socketClientConnectToServiceFinish , - - --- ** socketClientConnectToUri - SocketClientConnectToUriMethodInfo , - socketClientConnectToUri , - - --- ** socketClientConnectToUriAsync - SocketClientConnectToUriAsyncMethodInfo , - socketClientConnectToUriAsync , - - --- ** socketClientConnectToUriFinish - SocketClientConnectToUriFinishMethodInfo, - socketClientConnectToUriFinish , - - --- ** socketClientGetEnableProxy - SocketClientGetEnableProxyMethodInfo , - socketClientGetEnableProxy , - - --- ** socketClientGetFamily - SocketClientGetFamilyMethodInfo , - socketClientGetFamily , - - --- ** socketClientGetLocalAddress - SocketClientGetLocalAddressMethodInfo , - socketClientGetLocalAddress , - - --- ** socketClientGetProtocol - SocketClientGetProtocolMethodInfo , - socketClientGetProtocol , - - --- ** socketClientGetProxyResolver - SocketClientGetProxyResolverMethodInfo , - socketClientGetProxyResolver , - - --- ** socketClientGetSocketType - SocketClientGetSocketTypeMethodInfo , - socketClientGetSocketType , - - --- ** socketClientGetTimeout - SocketClientGetTimeoutMethodInfo , - socketClientGetTimeout , - - --- ** socketClientGetTls - SocketClientGetTlsMethodInfo , - socketClientGetTls , - - --- ** socketClientGetTlsValidationFlags - SocketClientGetTlsValidationFlagsMethodInfo, - socketClientGetTlsValidationFlags , - - --- ** socketClientNew - socketClientNew , - - --- ** socketClientSetEnableProxy - SocketClientSetEnableProxyMethodInfo , - socketClientSetEnableProxy , - - --- ** socketClientSetFamily - SocketClientSetFamilyMethodInfo , - socketClientSetFamily , - - --- ** socketClientSetLocalAddress - SocketClientSetLocalAddressMethodInfo , - socketClientSetLocalAddress , - - --- ** socketClientSetProtocol - SocketClientSetProtocolMethodInfo , - socketClientSetProtocol , - - --- ** socketClientSetProxyResolver - SocketClientSetProxyResolverMethodInfo , - socketClientSetProxyResolver , - - --- ** socketClientSetSocketType - SocketClientSetSocketTypeMethodInfo , - socketClientSetSocketType , - - --- ** socketClientSetTimeout - SocketClientSetTimeoutMethodInfo , - socketClientSetTimeout , - - --- ** socketClientSetTls - SocketClientSetTlsMethodInfo , - socketClientSetTls , - - --- ** socketClientSetTlsValidationFlags - SocketClientSetTlsValidationFlagsMethodInfo, - socketClientSetTlsValidationFlags , - - - - - -- * Properties --- ** EnableProxy - SocketClientEnableProxyPropertyInfo , - constructSocketClientEnableProxy , - getSocketClientEnableProxy , - setSocketClientEnableProxy , - socketClientEnableProxy , - - --- ** Family - SocketClientFamilyPropertyInfo , - constructSocketClientFamily , - getSocketClientFamily , - setSocketClientFamily , - socketClientFamily , - - --- ** LocalAddress - SocketClientLocalAddressPropertyInfo , - clearSocketClientLocalAddress , - constructSocketClientLocalAddress , - getSocketClientLocalAddress , - setSocketClientLocalAddress , - socketClientLocalAddress , - - --- ** Protocol - SocketClientProtocolPropertyInfo , - constructSocketClientProtocol , - getSocketClientProtocol , - setSocketClientProtocol , - socketClientProtocol , - - --- ** ProxyResolver - SocketClientProxyResolverPropertyInfo , - clearSocketClientProxyResolver , - constructSocketClientProxyResolver , - getSocketClientProxyResolver , - setSocketClientProxyResolver , - socketClientProxyResolver , - - --- ** Timeout - SocketClientTimeoutPropertyInfo , - constructSocketClientTimeout , - getSocketClientTimeout , - setSocketClientTimeout , - socketClientTimeout , - - --- ** Tls - SocketClientTlsPropertyInfo , - constructSocketClientTls , - getSocketClientTls , - setSocketClientTls , - socketClientTls , - - --- ** TlsValidationFlags - SocketClientTlsValidationFlagsPropertyInfo, - constructSocketClientTlsValidationFlags , - getSocketClientTlsValidationFlags , - setSocketClientTlsValidationFlags , - socketClientTlsValidationFlags , - - --- ** Type - SocketClientTypePropertyInfo , - constructSocketClientType , - getSocketClientType , - setSocketClientType , - socketClientType , - - - - - -- * Signals --- ** Event - SocketClientEventCallback , - SocketClientEventCallbackC , - SocketClientEventSignalInfo , - afterSocketClientEvent , - mkSocketClientEventCallback , - noSocketClientEventCallback , - onSocketClientEvent , - socketClientEventCallbackWrapper , - socketClientEventClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype SocketClient = SocketClient (ForeignPtr SocketClient) -foreign import ccall "g_socket_client_get_type" - c_g_socket_client_get_type :: IO GType - -type instance ParentTypes SocketClient = SocketClientParentTypes -type SocketClientParentTypes = '[GObject.Object] - -instance GObject SocketClient where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_socket_client_get_type - - -class GObject o => SocketClientK o -instance (GObject o, IsDescendantOf SocketClient o) => SocketClientK o - -toSocketClient :: SocketClientK o => o -> IO SocketClient -toSocketClient = unsafeCastTo SocketClient - -noSocketClient :: Maybe SocketClient -noSocketClient = Nothing - -type family ResolveSocketClientMethod (t :: Symbol) (o :: *) :: * where - ResolveSocketClientMethod "addApplicationProxy" o = SocketClientAddApplicationProxyMethodInfo - ResolveSocketClientMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSocketClientMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSocketClientMethod "connect" o = SocketClientConnectMethodInfo - ResolveSocketClientMethod "connectAsync" o = SocketClientConnectAsyncMethodInfo - ResolveSocketClientMethod "connectFinish" o = SocketClientConnectFinishMethodInfo - ResolveSocketClientMethod "connectToHost" o = SocketClientConnectToHostMethodInfo - ResolveSocketClientMethod "connectToHostAsync" o = SocketClientConnectToHostAsyncMethodInfo - ResolveSocketClientMethod "connectToHostFinish" o = SocketClientConnectToHostFinishMethodInfo - ResolveSocketClientMethod "connectToService" o = SocketClientConnectToServiceMethodInfo - ResolveSocketClientMethod "connectToServiceAsync" o = SocketClientConnectToServiceAsyncMethodInfo - ResolveSocketClientMethod "connectToServiceFinish" o = SocketClientConnectToServiceFinishMethodInfo - ResolveSocketClientMethod "connectToUri" o = SocketClientConnectToUriMethodInfo - ResolveSocketClientMethod "connectToUriAsync" o = SocketClientConnectToUriAsyncMethodInfo - ResolveSocketClientMethod "connectToUriFinish" o = SocketClientConnectToUriFinishMethodInfo - ResolveSocketClientMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSocketClientMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSocketClientMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSocketClientMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSocketClientMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSocketClientMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSocketClientMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSocketClientMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSocketClientMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSocketClientMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSocketClientMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSocketClientMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSocketClientMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSocketClientMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSocketClientMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSocketClientMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSocketClientMethod "getEnableProxy" o = SocketClientGetEnableProxyMethodInfo - ResolveSocketClientMethod "getFamily" o = SocketClientGetFamilyMethodInfo - ResolveSocketClientMethod "getLocalAddress" o = SocketClientGetLocalAddressMethodInfo - ResolveSocketClientMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSocketClientMethod "getProtocol" o = SocketClientGetProtocolMethodInfo - ResolveSocketClientMethod "getProxyResolver" o = SocketClientGetProxyResolverMethodInfo - ResolveSocketClientMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSocketClientMethod "getSocketType" o = SocketClientGetSocketTypeMethodInfo - ResolveSocketClientMethod "getTimeout" o = SocketClientGetTimeoutMethodInfo - ResolveSocketClientMethod "getTls" o = SocketClientGetTlsMethodInfo - ResolveSocketClientMethod "getTlsValidationFlags" o = SocketClientGetTlsValidationFlagsMethodInfo - ResolveSocketClientMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSocketClientMethod "setEnableProxy" o = SocketClientSetEnableProxyMethodInfo - ResolveSocketClientMethod "setFamily" o = SocketClientSetFamilyMethodInfo - ResolveSocketClientMethod "setLocalAddress" o = SocketClientSetLocalAddressMethodInfo - ResolveSocketClientMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSocketClientMethod "setProtocol" o = SocketClientSetProtocolMethodInfo - ResolveSocketClientMethod "setProxyResolver" o = SocketClientSetProxyResolverMethodInfo - ResolveSocketClientMethod "setSocketType" o = SocketClientSetSocketTypeMethodInfo - ResolveSocketClientMethod "setTimeout" o = SocketClientSetTimeoutMethodInfo - ResolveSocketClientMethod "setTls" o = SocketClientSetTlsMethodInfo - ResolveSocketClientMethod "setTlsValidationFlags" o = SocketClientSetTlsValidationFlagsMethodInfo - ResolveSocketClientMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSocketClientMethod t SocketClient, MethodInfo info SocketClient p) => IsLabelProxy t (SocketClient -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSocketClientMethod t SocketClient, MethodInfo info SocketClient p) => IsLabel t (SocketClient -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal SocketClient::event -type SocketClientEventCallback = - SocketClientEvent -> - SocketConnectable -> - Maybe IOStream -> - IO () - -noSocketClientEventCallback :: Maybe SocketClientEventCallback -noSocketClientEventCallback = Nothing - -type SocketClientEventCallbackC = - Ptr () -> -- object - CUInt -> - Ptr SocketConnectable -> - Ptr IOStream -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSocketClientEventCallback :: SocketClientEventCallbackC -> IO (FunPtr SocketClientEventCallbackC) - -socketClientEventClosure :: SocketClientEventCallback -> IO Closure -socketClientEventClosure cb = newCClosure =<< mkSocketClientEventCallback wrapped - where wrapped = socketClientEventCallbackWrapper cb - -socketClientEventCallbackWrapper :: - SocketClientEventCallback -> - Ptr () -> - CUInt -> - Ptr SocketConnectable -> - Ptr IOStream -> - Ptr () -> - IO () -socketClientEventCallbackWrapper _cb _ event connectable connection _ = do - let event' = (toEnum . fromIntegral) event - connectable' <- (newObject SocketConnectable) connectable - maybeConnection <- - if connection == nullPtr - then return Nothing - else do - connection' <- (newObject IOStream) connection - return $ Just connection' - _cb event' connectable' maybeConnection - -onSocketClientEvent :: (GObject a, MonadIO m) => a -> SocketClientEventCallback -> m SignalHandlerId -onSocketClientEvent obj cb = liftIO $ connectSocketClientEvent obj cb SignalConnectBefore -afterSocketClientEvent :: (GObject a, MonadIO m) => a -> SocketClientEventCallback -> m SignalHandlerId -afterSocketClientEvent obj cb = connectSocketClientEvent obj cb SignalConnectAfter - -connectSocketClientEvent :: (GObject a, MonadIO m) => - a -> SocketClientEventCallback -> SignalConnectMode -> m SignalHandlerId -connectSocketClientEvent obj cb after = liftIO $ do - cb' <- mkSocketClientEventCallback (socketClientEventCallbackWrapper cb) - connectSignalFunPtr obj "event" cb' after - --- VVV Prop "enable-proxy" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSocketClientEnableProxy :: (MonadIO m, SocketClientK o) => o -> m Bool -getSocketClientEnableProxy obj = liftIO $ getObjectPropertyBool obj "enable-proxy" - -setSocketClientEnableProxy :: (MonadIO m, SocketClientK o) => o -> Bool -> m () -setSocketClientEnableProxy obj val = liftIO $ setObjectPropertyBool obj "enable-proxy" val - -constructSocketClientEnableProxy :: Bool -> IO ([Char], GValue) -constructSocketClientEnableProxy val = constructObjectPropertyBool "enable-proxy" val - -data SocketClientEnableProxyPropertyInfo -instance AttrInfo SocketClientEnableProxyPropertyInfo where - type AttrAllowedOps SocketClientEnableProxyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketClientEnableProxyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SocketClientEnableProxyPropertyInfo = SocketClientK - type AttrGetType SocketClientEnableProxyPropertyInfo = Bool - type AttrLabel SocketClientEnableProxyPropertyInfo = "enable-proxy" - attrGet _ = getSocketClientEnableProxy - attrSet _ = setSocketClientEnableProxy - attrConstruct _ = constructSocketClientEnableProxy - attrClear _ = undefined - --- VVV Prop "family" - -- Type: TInterface "Gio" "SocketFamily" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSocketClientFamily :: (MonadIO m, SocketClientK o) => o -> m SocketFamily -getSocketClientFamily obj = liftIO $ getObjectPropertyEnum obj "family" - -setSocketClientFamily :: (MonadIO m, SocketClientK o) => o -> SocketFamily -> m () -setSocketClientFamily obj val = liftIO $ setObjectPropertyEnum obj "family" val - -constructSocketClientFamily :: SocketFamily -> IO ([Char], GValue) -constructSocketClientFamily val = constructObjectPropertyEnum "family" val - -data SocketClientFamilyPropertyInfo -instance AttrInfo SocketClientFamilyPropertyInfo where - type AttrAllowedOps SocketClientFamilyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketClientFamilyPropertyInfo = (~) SocketFamily - type AttrBaseTypeConstraint SocketClientFamilyPropertyInfo = SocketClientK - type AttrGetType SocketClientFamilyPropertyInfo = SocketFamily - type AttrLabel SocketClientFamilyPropertyInfo = "family" - attrGet _ = getSocketClientFamily - attrSet _ = setSocketClientFamily - attrConstruct _ = constructSocketClientFamily - attrClear _ = undefined - --- VVV Prop "local-address" - -- Type: TInterface "Gio" "SocketAddress" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just True) - -getSocketClientLocalAddress :: (MonadIO m, SocketClientK o) => o -> m SocketAddress -getSocketClientLocalAddress obj = liftIO $ checkUnexpectedNothing "getSocketClientLocalAddress" $ getObjectPropertyObject obj "local-address" SocketAddress - -setSocketClientLocalAddress :: (MonadIO m, SocketClientK o, SocketAddressK a) => o -> a -> m () -setSocketClientLocalAddress obj val = liftIO $ setObjectPropertyObject obj "local-address" (Just val) - -constructSocketClientLocalAddress :: (SocketAddressK a) => a -> IO ([Char], GValue) -constructSocketClientLocalAddress val = constructObjectPropertyObject "local-address" (Just val) - -clearSocketClientLocalAddress :: (MonadIO m, SocketClientK o) => o -> m () -clearSocketClientLocalAddress obj = liftIO $ setObjectPropertyObject obj "local-address" (Nothing :: Maybe SocketAddress) - -data SocketClientLocalAddressPropertyInfo -instance AttrInfo SocketClientLocalAddressPropertyInfo where - type AttrAllowedOps SocketClientLocalAddressPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SocketClientLocalAddressPropertyInfo = SocketAddressK - type AttrBaseTypeConstraint SocketClientLocalAddressPropertyInfo = SocketClientK - type AttrGetType SocketClientLocalAddressPropertyInfo = SocketAddress - type AttrLabel SocketClientLocalAddressPropertyInfo = "local-address" - attrGet _ = getSocketClientLocalAddress - attrSet _ = setSocketClientLocalAddress - attrConstruct _ = constructSocketClientLocalAddress - attrClear _ = clearSocketClientLocalAddress - --- VVV Prop "protocol" - -- Type: TInterface "Gio" "SocketProtocol" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSocketClientProtocol :: (MonadIO m, SocketClientK o) => o -> m SocketProtocol -getSocketClientProtocol obj = liftIO $ getObjectPropertyEnum obj "protocol" - -setSocketClientProtocol :: (MonadIO m, SocketClientK o) => o -> SocketProtocol -> m () -setSocketClientProtocol obj val = liftIO $ setObjectPropertyEnum obj "protocol" val - -constructSocketClientProtocol :: SocketProtocol -> IO ([Char], GValue) -constructSocketClientProtocol val = constructObjectPropertyEnum "protocol" val - -data SocketClientProtocolPropertyInfo -instance AttrInfo SocketClientProtocolPropertyInfo where - type AttrAllowedOps SocketClientProtocolPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketClientProtocolPropertyInfo = (~) SocketProtocol - type AttrBaseTypeConstraint SocketClientProtocolPropertyInfo = SocketClientK - type AttrGetType SocketClientProtocolPropertyInfo = SocketProtocol - type AttrLabel SocketClientProtocolPropertyInfo = "protocol" - attrGet _ = getSocketClientProtocol - attrSet _ = setSocketClientProtocol - attrConstruct _ = constructSocketClientProtocol - attrClear _ = undefined - --- VVV Prop "proxy-resolver" - -- Type: TInterface "Gio" "ProxyResolver" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just True) - -getSocketClientProxyResolver :: (MonadIO m, SocketClientK o) => o -> m ProxyResolver -getSocketClientProxyResolver obj = liftIO $ checkUnexpectedNothing "getSocketClientProxyResolver" $ getObjectPropertyObject obj "proxy-resolver" ProxyResolver - -setSocketClientProxyResolver :: (MonadIO m, SocketClientK o, ProxyResolverK a) => o -> a -> m () -setSocketClientProxyResolver obj val = liftIO $ setObjectPropertyObject obj "proxy-resolver" (Just val) - -constructSocketClientProxyResolver :: (ProxyResolverK a) => a -> IO ([Char], GValue) -constructSocketClientProxyResolver val = constructObjectPropertyObject "proxy-resolver" (Just val) - -clearSocketClientProxyResolver :: (MonadIO m, SocketClientK o) => o -> m () -clearSocketClientProxyResolver obj = liftIO $ setObjectPropertyObject obj "proxy-resolver" (Nothing :: Maybe ProxyResolver) - -data SocketClientProxyResolverPropertyInfo -instance AttrInfo SocketClientProxyResolverPropertyInfo where - type AttrAllowedOps SocketClientProxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SocketClientProxyResolverPropertyInfo = ProxyResolverK - type AttrBaseTypeConstraint SocketClientProxyResolverPropertyInfo = SocketClientK - type AttrGetType SocketClientProxyResolverPropertyInfo = ProxyResolver - type AttrLabel SocketClientProxyResolverPropertyInfo = "proxy-resolver" - attrGet _ = getSocketClientProxyResolver - attrSet _ = setSocketClientProxyResolver - attrConstruct _ = constructSocketClientProxyResolver - attrClear _ = clearSocketClientProxyResolver - --- VVV Prop "timeout" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSocketClientTimeout :: (MonadIO m, SocketClientK o) => o -> m Word32 -getSocketClientTimeout obj = liftIO $ getObjectPropertyUInt32 obj "timeout" - -setSocketClientTimeout :: (MonadIO m, SocketClientK o) => o -> Word32 -> m () -setSocketClientTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "timeout" val - -constructSocketClientTimeout :: Word32 -> IO ([Char], GValue) -constructSocketClientTimeout val = constructObjectPropertyUInt32 "timeout" val - -data SocketClientTimeoutPropertyInfo -instance AttrInfo SocketClientTimeoutPropertyInfo where - type AttrAllowedOps SocketClientTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketClientTimeoutPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SocketClientTimeoutPropertyInfo = SocketClientK - type AttrGetType SocketClientTimeoutPropertyInfo = Word32 - type AttrLabel SocketClientTimeoutPropertyInfo = "timeout" - attrGet _ = getSocketClientTimeout - attrSet _ = setSocketClientTimeout - attrConstruct _ = constructSocketClientTimeout - attrClear _ = undefined - --- VVV Prop "tls" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSocketClientTls :: (MonadIO m, SocketClientK o) => o -> m Bool -getSocketClientTls obj = liftIO $ getObjectPropertyBool obj "tls" - -setSocketClientTls :: (MonadIO m, SocketClientK o) => o -> Bool -> m () -setSocketClientTls obj val = liftIO $ setObjectPropertyBool obj "tls" val - -constructSocketClientTls :: Bool -> IO ([Char], GValue) -constructSocketClientTls val = constructObjectPropertyBool "tls" val - -data SocketClientTlsPropertyInfo -instance AttrInfo SocketClientTlsPropertyInfo where - type AttrAllowedOps SocketClientTlsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketClientTlsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SocketClientTlsPropertyInfo = SocketClientK - type AttrGetType SocketClientTlsPropertyInfo = Bool - type AttrLabel SocketClientTlsPropertyInfo = "tls" - attrGet _ = getSocketClientTls - attrSet _ = setSocketClientTls - attrConstruct _ = constructSocketClientTls - attrClear _ = undefined - --- VVV Prop "tls-validation-flags" - -- Type: TInterface "Gio" "TlsCertificateFlags" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getSocketClientTlsValidationFlags :: (MonadIO m, SocketClientK o) => o -> m [TlsCertificateFlags] -getSocketClientTlsValidationFlags obj = liftIO $ getObjectPropertyFlags obj "tls-validation-flags" - -setSocketClientTlsValidationFlags :: (MonadIO m, SocketClientK o) => o -> [TlsCertificateFlags] -> m () -setSocketClientTlsValidationFlags obj val = liftIO $ setObjectPropertyFlags obj "tls-validation-flags" val - -constructSocketClientTlsValidationFlags :: [TlsCertificateFlags] -> IO ([Char], GValue) -constructSocketClientTlsValidationFlags val = constructObjectPropertyFlags "tls-validation-flags" val - -data SocketClientTlsValidationFlagsPropertyInfo -instance AttrInfo SocketClientTlsValidationFlagsPropertyInfo where - type AttrAllowedOps SocketClientTlsValidationFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketClientTlsValidationFlagsPropertyInfo = (~) [TlsCertificateFlags] - type AttrBaseTypeConstraint SocketClientTlsValidationFlagsPropertyInfo = SocketClientK - type AttrGetType SocketClientTlsValidationFlagsPropertyInfo = [TlsCertificateFlags] - type AttrLabel SocketClientTlsValidationFlagsPropertyInfo = "tls-validation-flags" - attrGet _ = getSocketClientTlsValidationFlags - attrSet _ = setSocketClientTlsValidationFlags - attrConstruct _ = constructSocketClientTlsValidationFlags - attrClear _ = undefined - --- VVV Prop "type" - -- Type: TInterface "Gio" "SocketType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getSocketClientType :: (MonadIO m, SocketClientK o) => o -> m SocketType -getSocketClientType obj = liftIO $ getObjectPropertyEnum obj "type" - -setSocketClientType :: (MonadIO m, SocketClientK o) => o -> SocketType -> m () -setSocketClientType obj val = liftIO $ setObjectPropertyEnum obj "type" val - -constructSocketClientType :: SocketType -> IO ([Char], GValue) -constructSocketClientType val = constructObjectPropertyEnum "type" val - -data SocketClientTypePropertyInfo -instance AttrInfo SocketClientTypePropertyInfo where - type AttrAllowedOps SocketClientTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketClientTypePropertyInfo = (~) SocketType - type AttrBaseTypeConstraint SocketClientTypePropertyInfo = SocketClientK - type AttrGetType SocketClientTypePropertyInfo = SocketType - type AttrLabel SocketClientTypePropertyInfo = "type" - attrGet _ = getSocketClientType - attrSet _ = setSocketClientType - attrConstruct _ = constructSocketClientType - attrClear _ = undefined - -type instance AttributeList SocketClient = SocketClientAttributeList -type SocketClientAttributeList = ('[ '("enableProxy", SocketClientEnableProxyPropertyInfo), '("family", SocketClientFamilyPropertyInfo), '("localAddress", SocketClientLocalAddressPropertyInfo), '("protocol", SocketClientProtocolPropertyInfo), '("proxyResolver", SocketClientProxyResolverPropertyInfo), '("timeout", SocketClientTimeoutPropertyInfo), '("tls", SocketClientTlsPropertyInfo), '("tlsValidationFlags", SocketClientTlsValidationFlagsPropertyInfo), '("type", SocketClientTypePropertyInfo)] :: [(Symbol, *)]) - -socketClientEnableProxy :: AttrLabelProxy "enableProxy" -socketClientEnableProxy = AttrLabelProxy - -socketClientFamily :: AttrLabelProxy "family" -socketClientFamily = AttrLabelProxy - -socketClientLocalAddress :: AttrLabelProxy "localAddress" -socketClientLocalAddress = AttrLabelProxy - -socketClientProtocol :: AttrLabelProxy "protocol" -socketClientProtocol = AttrLabelProxy - -socketClientProxyResolver :: AttrLabelProxy "proxyResolver" -socketClientProxyResolver = AttrLabelProxy - -socketClientTimeout :: AttrLabelProxy "timeout" -socketClientTimeout = AttrLabelProxy - -socketClientTls :: AttrLabelProxy "tls" -socketClientTls = AttrLabelProxy - -socketClientTlsValidationFlags :: AttrLabelProxy "tlsValidationFlags" -socketClientTlsValidationFlags = AttrLabelProxy - -socketClientType :: AttrLabelProxy "type" -socketClientType = AttrLabelProxy - -data SocketClientEventSignalInfo -instance SignalInfo SocketClientEventSignalInfo where - type HaskellCallbackType SocketClientEventSignalInfo = SocketClientEventCallback - connectSignal _ = connectSocketClientEvent - -type instance SignalList SocketClient = SocketClientSignalList -type SocketClientSignalList = ('[ '("event", SocketClientEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SocketClient::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketClient") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_new" g_socket_client_new :: - IO (Ptr SocketClient) - - -socketClientNew :: - (MonadIO m) => - m SocketClient -- result -socketClientNew = liftIO $ do - result <- g_socket_client_new - checkUnexpectedReturnNULL "g_socket_client_new" result - result' <- (wrapObject SocketClient) result - return result' - --- method SocketClient::add_application_proxy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_add_application_proxy" g_socket_client_add_application_proxy :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - CString -> -- protocol : TBasicType TUTF8 - IO () - - -socketClientAddApplicationProxy :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> T.Text -- protocol - -> m () -- result -socketClientAddApplicationProxy _obj protocol = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - protocol' <- textToCString protocol - g_socket_client_add_application_proxy _obj' protocol' - touchManagedPtr _obj - freeMem protocol' - return () - -data SocketClientAddApplicationProxyMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientAddApplicationProxyMethodInfo a signature where - overloadedMethod _ = socketClientAddApplicationProxy - --- method SocketClient::connect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connectable", argType = TInterface "Gio" "SocketConnectable", 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 : Just (TInterface "Gio" "SocketConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_client_connect" g_socket_client_connect :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - Ptr SocketConnectable -> -- connectable : TInterface "Gio" "SocketConnectable" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketConnection) - - -socketClientConnect :: - (MonadIO m, SocketClientK a, SocketConnectableK b, CancellableK c) => - a -- _obj - -> b -- connectable - -> Maybe (c) -- cancellable - -> m SocketConnection -- result -socketClientConnect _obj connectable cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let connectable' = unsafeManagedPtrCastPtr connectable - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_socket_client_connect _obj' connectable' maybeCancellable - checkUnexpectedReturnNULL "g_socket_client_connect" result - result' <- (wrapObject SocketConnection) result - touchManagedPtr _obj - touchManagedPtr connectable - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data SocketClientConnectMethodInfo -instance (signature ~ (b -> Maybe (c) -> m SocketConnection), MonadIO m, SocketClientK a, SocketConnectableK b, CancellableK c) => MethodInfo SocketClientConnectMethodInfo a signature where - overloadedMethod _ = socketClientConnect - --- method SocketClient::connect_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connectable", argType = TInterface "Gio" "SocketConnectable", 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_connect_async" g_socket_client_connect_async :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - Ptr SocketConnectable -> -- connectable : TInterface "Gio" "SocketConnectable" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -socketClientConnectAsync :: - (MonadIO m, SocketClientK a, SocketConnectableK b, CancellableK c) => - a -- _obj - -> b -- connectable - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -socketClientConnectAsync _obj connectable cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let connectable' = unsafeManagedPtrCastPtr connectable - 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_socket_client_connect_async _obj' connectable' maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr connectable - whenJust cancellable touchManagedPtr - return () - -data SocketClientConnectAsyncMethodInfo -instance (signature ~ (b -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketClientK a, SocketConnectableK b, CancellableK c) => MethodInfo SocketClientConnectAsyncMethodInfo a signature where - overloadedMethod _ = socketClientConnectAsync - --- method SocketClient::connect_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_client_connect_finish" g_socket_client_connect_finish :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketConnection) - - -socketClientConnectFinish :: - (MonadIO m, SocketClientK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m SocketConnection -- result -socketClientConnectFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_socket_client_connect_finish _obj' result_' - checkUnexpectedReturnNULL "g_socket_client_connect_finish" result - result' <- (wrapObject SocketConnection) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data SocketClientConnectFinishMethodInfo -instance (signature ~ (b -> m SocketConnection), MonadIO m, SocketClientK a, AsyncResultK b) => MethodInfo SocketClientConnectFinishMethodInfo a signature where - overloadedMethod _ = socketClientConnectFinish - --- method SocketClient::connect_to_host --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host_and_port", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, 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 : Just (TInterface "Gio" "SocketConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_client_connect_to_host" g_socket_client_connect_to_host :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - CString -> -- host_and_port : TBasicType TUTF8 - Word16 -> -- default_port : TBasicType TUInt16 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketConnection) - - -socketClientConnectToHost :: - (MonadIO m, SocketClientK a, CancellableK b) => - a -- _obj - -> T.Text -- hostAndPort - -> Word16 -- defaultPort - -> Maybe (b) -- cancellable - -> m SocketConnection -- result -socketClientConnectToHost _obj hostAndPort defaultPort cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - hostAndPort' <- textToCString hostAndPort - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_socket_client_connect_to_host _obj' hostAndPort' defaultPort maybeCancellable - checkUnexpectedReturnNULL "g_socket_client_connect_to_host" result - result' <- (wrapObject SocketConnection) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem hostAndPort' - return result' - ) (do - freeMem hostAndPort' - ) - -data SocketClientConnectToHostMethodInfo -instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> m SocketConnection), MonadIO m, SocketClientK a, CancellableK b) => MethodInfo SocketClientConnectToHostMethodInfo a signature where - overloadedMethod _ = socketClientConnectToHost - --- method SocketClient::connect_to_host_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host_and_port", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_connect_to_host_async" g_socket_client_connect_to_host_async :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - CString -> -- host_and_port : TBasicType TUTF8 - Word16 -> -- default_port : TBasicType TUInt16 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -socketClientConnectToHostAsync :: - (MonadIO m, SocketClientK a, CancellableK b) => - a -- _obj - -> T.Text -- hostAndPort - -> Word16 -- defaultPort - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -socketClientConnectToHostAsync _obj hostAndPort defaultPort cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - hostAndPort' <- textToCString hostAndPort - 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_socket_client_connect_to_host_async _obj' hostAndPort' defaultPort maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem hostAndPort' - return () - -data SocketClientConnectToHostAsyncMethodInfo -instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketClientK a, CancellableK b) => MethodInfo SocketClientConnectToHostAsyncMethodInfo a signature where - overloadedMethod _ = socketClientConnectToHostAsync - --- method SocketClient::connect_to_host_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_client_connect_to_host_finish" g_socket_client_connect_to_host_finish :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketConnection) - - -socketClientConnectToHostFinish :: - (MonadIO m, SocketClientK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m SocketConnection -- result -socketClientConnectToHostFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_socket_client_connect_to_host_finish _obj' result_' - checkUnexpectedReturnNULL "g_socket_client_connect_to_host_finish" result - result' <- (wrapObject SocketConnection) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data SocketClientConnectToHostFinishMethodInfo -instance (signature ~ (b -> m SocketConnection), MonadIO m, SocketClientK a, AsyncResultK b) => MethodInfo SocketClientConnectToHostFinishMethodInfo a signature where - overloadedMethod _ = socketClientConnectToHostFinish - --- method SocketClient::connect_to_service --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "service", 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 : Just (TInterface "Gio" "SocketConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_client_connect_to_service" g_socket_client_connect_to_service :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - CString -> -- domain : TBasicType TUTF8 - CString -> -- service : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketConnection) - - -socketClientConnectToService :: - (MonadIO m, SocketClientK a, CancellableK b) => - a -- _obj - -> T.Text -- domain - -> T.Text -- service - -> Maybe (b) -- cancellable - -> m SocketConnection -- result -socketClientConnectToService _obj domain service cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - domain' <- textToCString domain - service' <- textToCString service - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_socket_client_connect_to_service _obj' domain' service' maybeCancellable - checkUnexpectedReturnNULL "g_socket_client_connect_to_service" result - result' <- (wrapObject SocketConnection) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem domain' - freeMem service' - return result' - ) (do - freeMem domain' - freeMem service' - ) - -data SocketClientConnectToServiceMethodInfo -instance (signature ~ (T.Text -> T.Text -> Maybe (b) -> m SocketConnection), MonadIO m, SocketClientK a, CancellableK b) => MethodInfo SocketClientConnectToServiceMethodInfo a signature where - overloadedMethod _ = socketClientConnectToService - --- method SocketClient::connect_to_service_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "service", 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_connect_to_service_async" g_socket_client_connect_to_service_async :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - CString -> -- domain : TBasicType TUTF8 - CString -> -- service : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -socketClientConnectToServiceAsync :: - (MonadIO m, SocketClientK a, CancellableK b) => - a -- _obj - -> T.Text -- domain - -> T.Text -- service - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -socketClientConnectToServiceAsync _obj domain service cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - domain' <- textToCString domain - service' <- textToCString service - 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_socket_client_connect_to_service_async _obj' domain' service' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem domain' - freeMem service' - return () - -data SocketClientConnectToServiceAsyncMethodInfo -instance (signature ~ (T.Text -> T.Text -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketClientK a, CancellableK b) => MethodInfo SocketClientConnectToServiceAsyncMethodInfo a signature where - overloadedMethod _ = socketClientConnectToServiceAsync - --- method SocketClient::connect_to_service_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_client_connect_to_service_finish" g_socket_client_connect_to_service_finish :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketConnection) - - -socketClientConnectToServiceFinish :: - (MonadIO m, SocketClientK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m SocketConnection -- result -socketClientConnectToServiceFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_socket_client_connect_to_service_finish _obj' result_' - checkUnexpectedReturnNULL "g_socket_client_connect_to_service_finish" result - result' <- (wrapObject SocketConnection) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data SocketClientConnectToServiceFinishMethodInfo -instance (signature ~ (b -> m SocketConnection), MonadIO m, SocketClientK a, AsyncResultK b) => MethodInfo SocketClientConnectToServiceFinishMethodInfo a signature where - overloadedMethod _ = socketClientConnectToServiceFinish - --- method SocketClient::connect_to_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, 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 : Just (TInterface "Gio" "SocketConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_client_connect_to_uri" g_socket_client_connect_to_uri :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - CString -> -- uri : TBasicType TUTF8 - Word16 -> -- default_port : TBasicType TUInt16 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketConnection) - - -socketClientConnectToUri :: - (MonadIO m, SocketClientK a, CancellableK b) => - a -- _obj - -> T.Text -- uri - -> Word16 -- defaultPort - -> Maybe (b) -- cancellable - -> m SocketConnection -- result -socketClientConnectToUri _obj uri defaultPort cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_socket_client_connect_to_uri _obj' uri' defaultPort maybeCancellable - checkUnexpectedReturnNULL "g_socket_client_connect_to_uri" result - result' <- (wrapObject SocketConnection) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem uri' - return result' - ) (do - freeMem uri' - ) - -data SocketClientConnectToUriMethodInfo -instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> m SocketConnection), MonadIO m, SocketClientK a, CancellableK b) => MethodInfo SocketClientConnectToUriMethodInfo a signature where - overloadedMethod _ = socketClientConnectToUri - --- method SocketClient::connect_to_uri_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "default_port", argType = TBasicType TUInt16, 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_connect_to_uri_async" g_socket_client_connect_to_uri_async :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - CString -> -- uri : TBasicType TUTF8 - Word16 -> -- default_port : TBasicType TUInt16 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -socketClientConnectToUriAsync :: - (MonadIO m, SocketClientK a, CancellableK b) => - a -- _obj - -> T.Text -- uri - -> Word16 -- defaultPort - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -socketClientConnectToUriAsync _obj uri defaultPort cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - 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_socket_client_connect_to_uri_async _obj' uri' defaultPort maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem uri' - return () - -data SocketClientConnectToUriAsyncMethodInfo -instance (signature ~ (T.Text -> Word16 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketClientK a, CancellableK b) => MethodInfo SocketClientConnectToUriAsyncMethodInfo a signature where - overloadedMethod _ = socketClientConnectToUriAsync - --- method SocketClient::connect_to_uri_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_client_connect_to_uri_finish" g_socket_client_connect_to_uri_finish :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketConnection) - - -socketClientConnectToUriFinish :: - (MonadIO m, SocketClientK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m SocketConnection -- result -socketClientConnectToUriFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_socket_client_connect_to_uri_finish _obj' result_' - checkUnexpectedReturnNULL "g_socket_client_connect_to_uri_finish" result - result' <- (wrapObject SocketConnection) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data SocketClientConnectToUriFinishMethodInfo -instance (signature ~ (b -> m SocketConnection), MonadIO m, SocketClientK a, AsyncResultK b) => MethodInfo SocketClientConnectToUriFinishMethodInfo a signature where - overloadedMethod _ = socketClientConnectToUriFinish - --- method SocketClient::get_enable_proxy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_get_enable_proxy" g_socket_client_get_enable_proxy :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - IO CInt - - -socketClientGetEnableProxy :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> m Bool -- result -socketClientGetEnableProxy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_client_get_enable_proxy _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SocketClientGetEnableProxyMethodInfo -instance (signature ~ (m Bool), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetEnableProxyMethodInfo a signature where - overloadedMethod _ = socketClientGetEnableProxy - --- method SocketClient::get_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketFamily") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_get_family" g_socket_client_get_family :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - IO CUInt - - -socketClientGetFamily :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> m SocketFamily -- result -socketClientGetFamily _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_client_get_family _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data SocketClientGetFamilyMethodInfo -instance (signature ~ (m SocketFamily), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetFamilyMethodInfo a signature where - overloadedMethod _ = socketClientGetFamily - --- method SocketClient::get_local_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_get_local_address" g_socket_client_get_local_address :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - IO (Ptr SocketAddress) - - -socketClientGetLocalAddress :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> m SocketAddress -- result -socketClientGetLocalAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_client_get_local_address _obj' - checkUnexpectedReturnNULL "g_socket_client_get_local_address" result - result' <- (newObject SocketAddress) result - touchManagedPtr _obj - return result' - -data SocketClientGetLocalAddressMethodInfo -instance (signature ~ (m SocketAddress), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetLocalAddressMethodInfo a signature where - overloadedMethod _ = socketClientGetLocalAddress - --- method SocketClient::get_protocol --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketProtocol") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_get_protocol" g_socket_client_get_protocol :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - IO CUInt - - -socketClientGetProtocol :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> m SocketProtocol -- result -socketClientGetProtocol _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_client_get_protocol _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data SocketClientGetProtocolMethodInfo -instance (signature ~ (m SocketProtocol), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetProtocolMethodInfo a signature where - overloadedMethod _ = socketClientGetProtocol - --- method SocketClient::get_proxy_resolver --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "ProxyResolver") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_get_proxy_resolver" g_socket_client_get_proxy_resolver :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - IO (Ptr ProxyResolver) - - -socketClientGetProxyResolver :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> m ProxyResolver -- result -socketClientGetProxyResolver _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_client_get_proxy_resolver _obj' - checkUnexpectedReturnNULL "g_socket_client_get_proxy_resolver" result - result' <- (newObject ProxyResolver) result - touchManagedPtr _obj - return result' - -data SocketClientGetProxyResolverMethodInfo -instance (signature ~ (m ProxyResolver), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetProxyResolverMethodInfo a signature where - overloadedMethod _ = socketClientGetProxyResolver - --- method SocketClient::get_socket_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketType") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_get_socket_type" g_socket_client_get_socket_type :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - IO CUInt - - -socketClientGetSocketType :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> m SocketType -- result -socketClientGetSocketType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_client_get_socket_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data SocketClientGetSocketTypeMethodInfo -instance (signature ~ (m SocketType), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetSocketTypeMethodInfo a signature where - overloadedMethod _ = socketClientGetSocketType - --- method SocketClient::get_timeout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_get_timeout" g_socket_client_get_timeout :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - IO Word32 - - -socketClientGetTimeout :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> m Word32 -- result -socketClientGetTimeout _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_client_get_timeout _obj' - touchManagedPtr _obj - return result - -data SocketClientGetTimeoutMethodInfo -instance (signature ~ (m Word32), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetTimeoutMethodInfo a signature where - overloadedMethod _ = socketClientGetTimeout - --- method SocketClient::get_tls --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_get_tls" g_socket_client_get_tls :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - IO CInt - - -socketClientGetTls :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> m Bool -- result -socketClientGetTls _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_client_get_tls _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SocketClientGetTlsMethodInfo -instance (signature ~ (m Bool), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetTlsMethodInfo a signature where - overloadedMethod _ = socketClientGetTls - --- method SocketClient::get_tls_validation_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsCertificateFlags") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_get_tls_validation_flags" g_socket_client_get_tls_validation_flags :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - IO CUInt - - -socketClientGetTlsValidationFlags :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> m [TlsCertificateFlags] -- result -socketClientGetTlsValidationFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_client_get_tls_validation_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data SocketClientGetTlsValidationFlagsMethodInfo -instance (signature ~ (m [TlsCertificateFlags]), MonadIO m, SocketClientK a) => MethodInfo SocketClientGetTlsValidationFlagsMethodInfo a signature where - overloadedMethod _ = socketClientGetTlsValidationFlags - --- method SocketClient::set_enable_proxy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_set_enable_proxy" g_socket_client_set_enable_proxy :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - CInt -> -- enable : TBasicType TBoolean - IO () - - -socketClientSetEnableProxy :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> Bool -- enable - -> m () -- result -socketClientSetEnableProxy _obj enable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let enable' = (fromIntegral . fromEnum) enable - g_socket_client_set_enable_proxy _obj' enable' - touchManagedPtr _obj - return () - -data SocketClientSetEnableProxyMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientSetEnableProxyMethodInfo a signature where - overloadedMethod _ = socketClientSetEnableProxy - --- method SocketClient::set_family --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_set_family" g_socket_client_set_family :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - CUInt -> -- family : TInterface "Gio" "SocketFamily" - IO () - - -socketClientSetFamily :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> SocketFamily -- family - -> m () -- result -socketClientSetFamily _obj family = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let family' = (fromIntegral . fromEnum) family - g_socket_client_set_family _obj' family' - touchManagedPtr _obj - return () - -data SocketClientSetFamilyMethodInfo -instance (signature ~ (SocketFamily -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientSetFamilyMethodInfo a signature where - overloadedMethod _ = socketClientSetFamily - --- method SocketClient::set_local_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_set_local_address" g_socket_client_set_local_address :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - Ptr SocketAddress -> -- address : TInterface "Gio" "SocketAddress" - IO () - - -socketClientSetLocalAddress :: - (MonadIO m, SocketClientK a, SocketAddressK b) => - a -- _obj - -> Maybe (b) -- address - -> m () -- result -socketClientSetLocalAddress _obj address = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAddress <- case address of - Nothing -> return nullPtr - Just jAddress -> do - let jAddress' = unsafeManagedPtrCastPtr jAddress - return jAddress' - g_socket_client_set_local_address _obj' maybeAddress - touchManagedPtr _obj - whenJust address touchManagedPtr - return () - -data SocketClientSetLocalAddressMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, SocketClientK a, SocketAddressK b) => MethodInfo SocketClientSetLocalAddressMethodInfo a signature where - overloadedMethod _ = socketClientSetLocalAddress - --- method SocketClient::set_protocol --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TInterface "Gio" "SocketProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_set_protocol" g_socket_client_set_protocol :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - CUInt -> -- protocol : TInterface "Gio" "SocketProtocol" - IO () - - -socketClientSetProtocol :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> SocketProtocol -- protocol - -> m () -- result -socketClientSetProtocol _obj protocol = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let protocol' = (fromIntegral . fromEnum) protocol - g_socket_client_set_protocol _obj' protocol' - touchManagedPtr _obj - return () - -data SocketClientSetProtocolMethodInfo -instance (signature ~ (SocketProtocol -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientSetProtocolMethodInfo a signature where - overloadedMethod _ = socketClientSetProtocol - --- method SocketClient::set_proxy_resolver --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_resolver", argType = TInterface "Gio" "ProxyResolver", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_set_proxy_resolver" g_socket_client_set_proxy_resolver :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - Ptr ProxyResolver -> -- proxy_resolver : TInterface "Gio" "ProxyResolver" - IO () - - -socketClientSetProxyResolver :: - (MonadIO m, SocketClientK a, ProxyResolverK b) => - a -- _obj - -> Maybe (b) -- proxyResolver - -> m () -- result -socketClientSetProxyResolver _obj proxyResolver = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeProxyResolver <- case proxyResolver of - Nothing -> return nullPtr - Just jProxyResolver -> do - let jProxyResolver' = unsafeManagedPtrCastPtr jProxyResolver - return jProxyResolver' - g_socket_client_set_proxy_resolver _obj' maybeProxyResolver - touchManagedPtr _obj - whenJust proxyResolver touchManagedPtr - return () - -data SocketClientSetProxyResolverMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, SocketClientK a, ProxyResolverK b) => MethodInfo SocketClientSetProxyResolverMethodInfo a signature where - overloadedMethod _ = socketClientSetProxyResolver - --- method SocketClient::set_socket_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_set_socket_type" g_socket_client_set_socket_type :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - CUInt -> -- type : TInterface "Gio" "SocketType" - IO () - - -socketClientSetSocketType :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> SocketType -- type_ - -> m () -- result -socketClientSetSocketType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = (fromIntegral . fromEnum) type_ - g_socket_client_set_socket_type _obj' type_' - touchManagedPtr _obj - return () - -data SocketClientSetSocketTypeMethodInfo -instance (signature ~ (SocketType -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientSetSocketTypeMethodInfo a signature where - overloadedMethod _ = socketClientSetSocketType - --- method SocketClient::set_timeout --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timeout", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_set_timeout" g_socket_client_set_timeout :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - Word32 -> -- timeout : TBasicType TUInt - IO () - - -socketClientSetTimeout :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> Word32 -- timeout - -> m () -- result -socketClientSetTimeout _obj timeout = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_socket_client_set_timeout _obj' timeout - touchManagedPtr _obj - return () - -data SocketClientSetTimeoutMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientSetTimeoutMethodInfo a signature where - overloadedMethod _ = socketClientSetTimeout - --- method SocketClient::set_tls --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tls", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_set_tls" g_socket_client_set_tls :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - CInt -> -- tls : TBasicType TBoolean - IO () - - -socketClientSetTls :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> Bool -- tls - -> m () -- result -socketClientSetTls _obj tls = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let tls' = (fromIntegral . fromEnum) tls - g_socket_client_set_tls _obj' tls' - touchManagedPtr _obj - return () - -data SocketClientSetTlsMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientSetTlsMethodInfo a signature where - overloadedMethod _ = socketClientSetTls - --- method SocketClient::set_tls_validation_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketClient", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_client_set_tls_validation_flags" g_socket_client_set_tls_validation_flags :: - Ptr SocketClient -> -- _obj : TInterface "Gio" "SocketClient" - CUInt -> -- flags : TInterface "Gio" "TlsCertificateFlags" - IO () - - -socketClientSetTlsValidationFlags :: - (MonadIO m, SocketClientK a) => - a -- _obj - -> [TlsCertificateFlags] -- flags - -> m () -- result -socketClientSetTlsValidationFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - g_socket_client_set_tls_validation_flags _obj' flags' - touchManagedPtr _obj - return () - -data SocketClientSetTlsValidationFlagsMethodInfo -instance (signature ~ ([TlsCertificateFlags] -> m ()), MonadIO m, SocketClientK a) => MethodInfo SocketClientSetTlsValidationFlagsMethodInfo a signature where - overloadedMethod _ = socketClientSetTlsValidationFlags - - diff --git a/GI/Gio/Objects/SocketClient.hs-boot b/GI/Gio/Objects/SocketClient.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/SocketClient.hs-boot +++ /dev/null @@ -1,54 +0,0 @@ -module GI.Gio.Objects.SocketClient where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SocketClient = SocketClient (ForeignPtr SocketClient) -instance GObject SocketClient where -class GObject o => SocketClientK o -instance (GObject o, IsDescendantOf SocketClient o) => SocketClientK o -data SocketClientEnableProxyPropertyInfo -data SocketClientFamilyPropertyInfo -data SocketClientLocalAddressPropertyInfo -data SocketClientProtocolPropertyInfo -data SocketClientProxyResolverPropertyInfo -data SocketClientTimeoutPropertyInfo -data SocketClientTlsPropertyInfo -data SocketClientTlsValidationFlagsPropertyInfo -data SocketClientTypePropertyInfo -data SocketClientEventSignalInfo -data SocketClientAddApplicationProxyMethodInfo -data SocketClientConnectMethodInfo -data SocketClientConnectAsyncMethodInfo -data SocketClientConnectFinishMethodInfo -data SocketClientConnectToHostMethodInfo -data SocketClientConnectToHostAsyncMethodInfo -data SocketClientConnectToHostFinishMethodInfo -data SocketClientConnectToServiceMethodInfo -data SocketClientConnectToServiceAsyncMethodInfo -data SocketClientConnectToServiceFinishMethodInfo -data SocketClientConnectToUriMethodInfo -data SocketClientConnectToUriAsyncMethodInfo -data SocketClientConnectToUriFinishMethodInfo -data SocketClientGetEnableProxyMethodInfo -data SocketClientGetFamilyMethodInfo -data SocketClientGetLocalAddressMethodInfo -data SocketClientGetProtocolMethodInfo -data SocketClientGetProxyResolverMethodInfo -data SocketClientGetSocketTypeMethodInfo -data SocketClientGetTimeoutMethodInfo -data SocketClientGetTlsMethodInfo -data SocketClientGetTlsValidationFlagsMethodInfo -data SocketClientSetEnableProxyMethodInfo -data SocketClientSetFamilyMethodInfo -data SocketClientSetLocalAddressMethodInfo -data SocketClientSetProtocolMethodInfo -data SocketClientSetProxyResolverMethodInfo -data SocketClientSetSocketTypeMethodInfo -data SocketClientSetTimeoutMethodInfo -data SocketClientSetTlsMethodInfo -data SocketClientSetTlsValidationFlagsMethodInfo diff --git a/GI/Gio/Objects/SocketConnection.hs b/GI/Gio/Objects/SocketConnection.hs deleted file mode 100644 --- a/GI/Gio/Objects/SocketConnection.hs +++ /dev/null @@ -1,504 +0,0 @@ - - -{- | -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.Objects.SocketConnection - ( - --- * Exported types - SocketConnection(..) , - SocketConnectionK , - toSocketConnection , - noSocketConnection , - - - -- * Methods --- ** socketConnectionConnect - SocketConnectionConnectMethodInfo , - socketConnectionConnect , - - --- ** socketConnectionConnectAsync - SocketConnectionConnectAsyncMethodInfo , - socketConnectionConnectAsync , - - --- ** socketConnectionConnectFinish - SocketConnectionConnectFinishMethodInfo , - socketConnectionConnectFinish , - - --- ** socketConnectionFactoryLookupType - socketConnectionFactoryLookupType , - - --- ** socketConnectionFactoryRegisterType - socketConnectionFactoryRegisterType , - - --- ** socketConnectionGetLocalAddress - SocketConnectionGetLocalAddressMethodInfo, - socketConnectionGetLocalAddress , - - --- ** socketConnectionGetRemoteAddress - SocketConnectionGetRemoteAddressMethodInfo, - socketConnectionGetRemoteAddress , - - --- ** socketConnectionGetSocket - SocketConnectionGetSocketMethodInfo , - socketConnectionGetSocket , - - --- ** socketConnectionIsConnected - SocketConnectionIsConnectedMethodInfo , - socketConnectionIsConnected , - - - - - -- * Properties --- ** Socket - SocketConnectionSocketPropertyInfo , - constructSocketConnectionSocket , - getSocketConnectionSocket , - socketConnectionSocket , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype SocketConnection = SocketConnection (ForeignPtr SocketConnection) -foreign import ccall "g_socket_connection_get_type" - c_g_socket_connection_get_type :: IO GType - -type instance ParentTypes SocketConnection = SocketConnectionParentTypes -type SocketConnectionParentTypes = '[IOStream, GObject.Object] - -instance GObject SocketConnection where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_socket_connection_get_type - - -class GObject o => SocketConnectionK o -instance (GObject o, IsDescendantOf SocketConnection o) => SocketConnectionK o - -toSocketConnection :: SocketConnectionK o => o -> IO SocketConnection -toSocketConnection = unsafeCastTo SocketConnection - -noSocketConnection :: Maybe SocketConnection -noSocketConnection = Nothing - -type family ResolveSocketConnectionMethod (t :: Symbol) (o :: *) :: * where - ResolveSocketConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSocketConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSocketConnectionMethod "clearPending" o = IOStreamClearPendingMethodInfo - ResolveSocketConnectionMethod "close" o = IOStreamCloseMethodInfo - ResolveSocketConnectionMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo - ResolveSocketConnectionMethod "closeFinish" o = IOStreamCloseFinishMethodInfo - ResolveSocketConnectionMethod "connect" o = SocketConnectionConnectMethodInfo - ResolveSocketConnectionMethod "connectAsync" o = SocketConnectionConnectAsyncMethodInfo - ResolveSocketConnectionMethod "connectFinish" o = SocketConnectionConnectFinishMethodInfo - ResolveSocketConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSocketConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSocketConnectionMethod "hasPending" o = IOStreamHasPendingMethodInfo - ResolveSocketConnectionMethod "isClosed" o = IOStreamIsClosedMethodInfo - ResolveSocketConnectionMethod "isConnected" o = SocketConnectionIsConnectedMethodInfo - ResolveSocketConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSocketConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSocketConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSocketConnectionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSocketConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSocketConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSocketConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSocketConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSocketConnectionMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo - ResolveSocketConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSocketConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSocketConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSocketConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSocketConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSocketConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSocketConnectionMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo - ResolveSocketConnectionMethod "getLocalAddress" o = SocketConnectionGetLocalAddressMethodInfo - ResolveSocketConnectionMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo - ResolveSocketConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSocketConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSocketConnectionMethod "getRemoteAddress" o = SocketConnectionGetRemoteAddressMethodInfo - ResolveSocketConnectionMethod "getSocket" o = SocketConnectionGetSocketMethodInfo - ResolveSocketConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSocketConnectionMethod "setPending" o = IOStreamSetPendingMethodInfo - ResolveSocketConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSocketConnectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSocketConnectionMethod t SocketConnection, MethodInfo info SocketConnection p) => IsLabelProxy t (SocketConnection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSocketConnectionMethod t SocketConnection, MethodInfo info SocketConnection p) => IsLabel t (SocketConnection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "socket" - -- Type: TInterface "Gio" "Socket" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getSocketConnectionSocket :: (MonadIO m, SocketConnectionK o) => o -> m Socket -getSocketConnectionSocket obj = liftIO $ checkUnexpectedNothing "getSocketConnectionSocket" $ getObjectPropertyObject obj "socket" Socket - -constructSocketConnectionSocket :: (SocketK a) => a -> IO ([Char], GValue) -constructSocketConnectionSocket val = constructObjectPropertyObject "socket" (Just val) - -data SocketConnectionSocketPropertyInfo -instance AttrInfo SocketConnectionSocketPropertyInfo where - type AttrAllowedOps SocketConnectionSocketPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SocketConnectionSocketPropertyInfo = SocketK - type AttrBaseTypeConstraint SocketConnectionSocketPropertyInfo = SocketConnectionK - type AttrGetType SocketConnectionSocketPropertyInfo = Socket - type AttrLabel SocketConnectionSocketPropertyInfo = "socket" - attrGet _ = getSocketConnectionSocket - attrSet _ = undefined - attrConstruct _ = constructSocketConnectionSocket - attrClear _ = undefined - -type instance AttributeList SocketConnection = SocketConnectionAttributeList -type SocketConnectionAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)]) - -socketConnectionSocket :: AttrLabelProxy "socket" -socketConnectionSocket = AttrLabelProxy - -type instance SignalList SocketConnection = SocketConnectionSignalList -type SocketConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SocketConnection::connect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_connection_connect" g_socket_connection_connect :: - Ptr SocketConnection -> -- _obj : TInterface "Gio" "SocketConnection" - Ptr SocketAddress -> -- address : TInterface "Gio" "SocketAddress" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -socketConnectionConnect :: - (MonadIO m, SocketConnectionK a, SocketAddressK b, CancellableK c) => - a -- _obj - -> b -- address - -> Maybe (c) -- cancellable - -> m () -- result -socketConnectionConnect _obj address cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let address' = unsafeManagedPtrCastPtr address - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_socket_connection_connect _obj' address' maybeCancellable - touchManagedPtr _obj - touchManagedPtr address - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data SocketConnectionConnectMethodInfo -instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, SocketConnectionK a, SocketAddressK b, CancellableK c) => MethodInfo SocketConnectionConnectMethodInfo a signature where - overloadedMethod _ = socketConnectionConnect - --- method SocketConnection::connect_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_connection_connect_async" g_socket_connection_connect_async :: - Ptr SocketConnection -> -- _obj : TInterface "Gio" "SocketConnection" - Ptr SocketAddress -> -- address : TInterface "Gio" "SocketAddress" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -socketConnectionConnectAsync :: - (MonadIO m, SocketConnectionK a, SocketAddressK b, CancellableK c) => - a -- _obj - -> b -- address - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -socketConnectionConnectAsync _obj address cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let address' = unsafeManagedPtrCastPtr 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_socket_connection_connect_async _obj' address' maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr address - whenJust cancellable touchManagedPtr - return () - -data SocketConnectionConnectAsyncMethodInfo -instance (signature ~ (b -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketConnectionK a, SocketAddressK b, CancellableK c) => MethodInfo SocketConnectionConnectAsyncMethodInfo a signature where - overloadedMethod _ = socketConnectionConnectAsync - --- method SocketConnection::connect_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_connection_connect_finish" g_socket_connection_connect_finish :: - Ptr SocketConnection -> -- _obj : TInterface "Gio" "SocketConnection" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -socketConnectionConnectFinish :: - (MonadIO m, SocketConnectionK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -socketConnectionConnectFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_socket_connection_connect_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data SocketConnectionConnectFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, SocketConnectionK a, AsyncResultK b) => MethodInfo SocketConnectionConnectFinishMethodInfo a signature where - overloadedMethod _ = socketConnectionConnectFinish - --- method SocketConnection::get_local_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketAddress") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_connection_get_local_address" g_socket_connection_get_local_address :: - Ptr SocketConnection -> -- _obj : TInterface "Gio" "SocketConnection" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketAddress) - - -socketConnectionGetLocalAddress :: - (MonadIO m, SocketConnectionK a) => - a -- _obj - -> m SocketAddress -- result -socketConnectionGetLocalAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ g_socket_connection_get_local_address _obj' - checkUnexpectedReturnNULL "g_socket_connection_get_local_address" result - result' <- (wrapObject SocketAddress) result - touchManagedPtr _obj - return result' - ) (do - return () - ) - -data SocketConnectionGetLocalAddressMethodInfo -instance (signature ~ (m SocketAddress), MonadIO m, SocketConnectionK a) => MethodInfo SocketConnectionGetLocalAddressMethodInfo a signature where - overloadedMethod _ = socketConnectionGetLocalAddress - --- method SocketConnection::get_remote_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketAddress") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_connection_get_remote_address" g_socket_connection_get_remote_address :: - Ptr SocketConnection -> -- _obj : TInterface "Gio" "SocketConnection" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketAddress) - - -socketConnectionGetRemoteAddress :: - (MonadIO m, SocketConnectionK a) => - a -- _obj - -> m SocketAddress -- result -socketConnectionGetRemoteAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ g_socket_connection_get_remote_address _obj' - checkUnexpectedReturnNULL "g_socket_connection_get_remote_address" result - result' <- (wrapObject SocketAddress) result - touchManagedPtr _obj - return result' - ) (do - return () - ) - -data SocketConnectionGetRemoteAddressMethodInfo -instance (signature ~ (m SocketAddress), MonadIO m, SocketConnectionK a) => MethodInfo SocketConnectionGetRemoteAddressMethodInfo a signature where - overloadedMethod _ = socketConnectionGetRemoteAddress - --- method SocketConnection::get_socket --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Socket") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_connection_get_socket" g_socket_connection_get_socket :: - Ptr SocketConnection -> -- _obj : TInterface "Gio" "SocketConnection" - IO (Ptr Socket) - - -socketConnectionGetSocket :: - (MonadIO m, SocketConnectionK a) => - a -- _obj - -> m Socket -- result -socketConnectionGetSocket _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_connection_get_socket _obj' - checkUnexpectedReturnNULL "g_socket_connection_get_socket" result - result' <- (newObject Socket) result - touchManagedPtr _obj - return result' - -data SocketConnectionGetSocketMethodInfo -instance (signature ~ (m Socket), MonadIO m, SocketConnectionK a) => MethodInfo SocketConnectionGetSocketMethodInfo a signature where - overloadedMethod _ = socketConnectionGetSocket - --- method SocketConnection::is_connected --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_connection_is_connected" g_socket_connection_is_connected :: - Ptr SocketConnection -> -- _obj : TInterface "Gio" "SocketConnection" - IO CInt - - -socketConnectionIsConnected :: - (MonadIO m, SocketConnectionK a) => - a -- _obj - -> m Bool -- result -socketConnectionIsConnected _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_connection_is_connected _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SocketConnectionIsConnectedMethodInfo -instance (signature ~ (m Bool), MonadIO m, SocketConnectionK a) => MethodInfo SocketConnectionIsConnectedMethodInfo a signature where - overloadedMethod _ = socketConnectionIsConnected - --- method SocketConnection::factory_lookup_type --- method type : MemberFunction --- Args : [Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TGType) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_connection_factory_lookup_type" g_socket_connection_factory_lookup_type :: - CUInt -> -- family : TInterface "Gio" "SocketFamily" - CUInt -> -- type : TInterface "Gio" "SocketType" - Int32 -> -- protocol_id : TBasicType TInt - IO CGType - - -socketConnectionFactoryLookupType :: - (MonadIO m) => - SocketFamily -- family - -> SocketType -- type_ - -> Int32 -- protocolId - -> m GType -- result -socketConnectionFactoryLookupType family type_ protocolId = liftIO $ do - let family' = (fromIntegral . fromEnum) family - let type_' = (fromIntegral . fromEnum) type_ - result <- g_socket_connection_factory_lookup_type family' type_' protocolId - let result' = GType result - return result' - --- method SocketConnection::factory_register_type --- method type : MemberFunction --- Args : [Arg {argCName = "g_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "family", argType = TInterface "Gio" "SocketFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_connection_factory_register_type" g_socket_connection_factory_register_type :: - CGType -> -- g_type : TBasicType TGType - CUInt -> -- family : TInterface "Gio" "SocketFamily" - CUInt -> -- type : TInterface "Gio" "SocketType" - Int32 -> -- protocol : TBasicType TInt - IO () - - -socketConnectionFactoryRegisterType :: - (MonadIO m) => - GType -- gType - -> SocketFamily -- family - -> SocketType -- type_ - -> Int32 -- protocol - -> m () -- result -socketConnectionFactoryRegisterType gType family type_ protocol = liftIO $ do - let gType' = gtypeToCGType gType - let family' = (fromIntegral . fromEnum) family - let type_' = (fromIntegral . fromEnum) type_ - g_socket_connection_factory_register_type gType' family' type_' protocol - return () - - diff --git a/GI/Gio/Objects/SocketConnection.hs-boot b/GI/Gio/Objects/SocketConnection.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/SocketConnection.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gio.Objects.SocketConnection where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SocketConnection = SocketConnection (ForeignPtr SocketConnection) -instance GObject SocketConnection where -class GObject o => SocketConnectionK o -instance (GObject o, IsDescendantOf SocketConnection o) => SocketConnectionK o -data SocketConnectionSocketPropertyInfo -data SocketConnectionConnectMethodInfo -data SocketConnectionConnectAsyncMethodInfo -data SocketConnectionConnectFinishMethodInfo -data SocketConnectionGetLocalAddressMethodInfo -data SocketConnectionGetRemoteAddressMethodInfo -data SocketConnectionGetSocketMethodInfo -data SocketConnectionIsConnectedMethodInfo diff --git a/GI/Gio/Objects/SocketControlMessage.hs b/GI/Gio/Objects/SocketControlMessage.hs deleted file mode 100644 --- a/GI/Gio/Objects/SocketControlMessage.hs +++ /dev/null @@ -1,264 +0,0 @@ - - -{- | -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.Objects.SocketControlMessage - ( - --- * Exported types - SocketControlMessage(..) , - SocketControlMessageK , - toSocketControlMessage , - noSocketControlMessage , - - - -- * Methods --- ** socketControlMessageDeserialize - socketControlMessageDeserialize , - - --- ** socketControlMessageGetLevel - SocketControlMessageGetLevelMethodInfo , - socketControlMessageGetLevel , - - --- ** socketControlMessageGetMsgType - SocketControlMessageGetMsgTypeMethodInfo, - socketControlMessageGetMsgType , - - --- ** socketControlMessageGetSize - SocketControlMessageGetSizeMethodInfo , - socketControlMessageGetSize , - - --- ** socketControlMessageSerialize - SocketControlMessageSerializeMethodInfo , - socketControlMessageSerialize , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype SocketControlMessage = SocketControlMessage (ForeignPtr SocketControlMessage) -foreign import ccall "g_socket_control_message_get_type" - c_g_socket_control_message_get_type :: IO GType - -type instance ParentTypes SocketControlMessage = SocketControlMessageParentTypes -type SocketControlMessageParentTypes = '[GObject.Object] - -instance GObject SocketControlMessage where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_socket_control_message_get_type - - -class GObject o => SocketControlMessageK o -instance (GObject o, IsDescendantOf SocketControlMessage o) => SocketControlMessageK o - -toSocketControlMessage :: SocketControlMessageK o => o -> IO SocketControlMessage -toSocketControlMessage = unsafeCastTo SocketControlMessage - -noSocketControlMessage :: Maybe SocketControlMessage -noSocketControlMessage = Nothing - -type family ResolveSocketControlMessageMethod (t :: Symbol) (o :: *) :: * where - ResolveSocketControlMessageMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSocketControlMessageMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSocketControlMessageMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSocketControlMessageMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSocketControlMessageMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSocketControlMessageMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSocketControlMessageMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSocketControlMessageMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSocketControlMessageMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSocketControlMessageMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSocketControlMessageMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSocketControlMessageMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSocketControlMessageMethod "serialize" o = SocketControlMessageSerializeMethodInfo - ResolveSocketControlMessageMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSocketControlMessageMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSocketControlMessageMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSocketControlMessageMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSocketControlMessageMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSocketControlMessageMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSocketControlMessageMethod "getLevel" o = SocketControlMessageGetLevelMethodInfo - ResolveSocketControlMessageMethod "getMsgType" o = SocketControlMessageGetMsgTypeMethodInfo - ResolveSocketControlMessageMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSocketControlMessageMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSocketControlMessageMethod "getSize" o = SocketControlMessageGetSizeMethodInfo - ResolveSocketControlMessageMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSocketControlMessageMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSocketControlMessageMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSocketControlMessageMethod t SocketControlMessage, MethodInfo info SocketControlMessage p) => IsLabelProxy t (SocketControlMessage -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSocketControlMessageMethod t SocketControlMessage, MethodInfo info SocketControlMessage p) => IsLabel t (SocketControlMessage -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList SocketControlMessage = SocketControlMessageAttributeList -type SocketControlMessageAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList SocketControlMessage = SocketControlMessageSignalList -type SocketControlMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SocketControlMessage::get_level --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_control_message_get_level" g_socket_control_message_get_level :: - Ptr SocketControlMessage -> -- _obj : TInterface "Gio" "SocketControlMessage" - IO Int32 - - -socketControlMessageGetLevel :: - (MonadIO m, SocketControlMessageK a) => - a -- _obj - -> m Int32 -- result -socketControlMessageGetLevel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_control_message_get_level _obj' - touchManagedPtr _obj - return result - -data SocketControlMessageGetLevelMethodInfo -instance (signature ~ (m Int32), MonadIO m, SocketControlMessageK a) => MethodInfo SocketControlMessageGetLevelMethodInfo a signature where - overloadedMethod _ = socketControlMessageGetLevel - --- method SocketControlMessage::get_msg_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_control_message_get_msg_type" g_socket_control_message_get_msg_type :: - Ptr SocketControlMessage -> -- _obj : TInterface "Gio" "SocketControlMessage" - IO Int32 - - -socketControlMessageGetMsgType :: - (MonadIO m, SocketControlMessageK a) => - a -- _obj - -> m Int32 -- result -socketControlMessageGetMsgType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_control_message_get_msg_type _obj' - touchManagedPtr _obj - return result - -data SocketControlMessageGetMsgTypeMethodInfo -instance (signature ~ (m Int32), MonadIO m, SocketControlMessageK a) => MethodInfo SocketControlMessageGetMsgTypeMethodInfo a signature where - overloadedMethod _ = socketControlMessageGetMsgType - --- method SocketControlMessage::get_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_control_message_get_size" g_socket_control_message_get_size :: - Ptr SocketControlMessage -> -- _obj : TInterface "Gio" "SocketControlMessage" - IO Word64 - - -socketControlMessageGetSize :: - (MonadIO m, SocketControlMessageK a) => - a -- _obj - -> m Word64 -- result -socketControlMessageGetSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_control_message_get_size _obj' - touchManagedPtr _obj - return result - -data SocketControlMessageGetSizeMethodInfo -instance (signature ~ (m Word64), MonadIO m, SocketControlMessageK a) => MethodInfo SocketControlMessageGetSizeMethodInfo a signature where - overloadedMethod _ = socketControlMessageGetSize - --- method SocketControlMessage::serialize --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketControlMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_control_message_serialize" g_socket_control_message_serialize :: - Ptr SocketControlMessage -> -- _obj : TInterface "Gio" "SocketControlMessage" - Ptr () -> -- data : TBasicType TPtr - IO () - - -socketControlMessageSerialize :: - (MonadIO m, SocketControlMessageK a) => - a -- _obj - -> Ptr () -- data_ - -> m () -- result -socketControlMessageSerialize _obj data_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_socket_control_message_serialize _obj' data_ - touchManagedPtr _obj - return () - -data SocketControlMessageSerializeMethodInfo -instance (signature ~ (Ptr () -> m ()), MonadIO m, SocketControlMessageK a) => MethodInfo SocketControlMessageSerializeMethodInfo a signature where - overloadedMethod _ = socketControlMessageSerialize - --- method SocketControlMessage::deserialize --- method type : MemberFunction --- Args : [Arg {argCName = "level", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TInterface "Gio" "SocketControlMessage") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_control_message_deserialize" g_socket_control_message_deserialize :: - Int32 -> -- level : TBasicType TInt - Int32 -> -- type : TBasicType TInt - Word64 -> -- size : TBasicType TUInt64 - Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) - IO (Ptr SocketControlMessage) - - -socketControlMessageDeserialize :: - (MonadIO m) => - Int32 -- level - -> Int32 -- type_ - -> ByteString -- data_ - -> m SocketControlMessage -- result -socketControlMessageDeserialize level type_ data_ = liftIO $ do - let size = fromIntegral $ B.length data_ - data_' <- packByteString data_ - result <- g_socket_control_message_deserialize level type_ size data_' - checkUnexpectedReturnNULL "g_socket_control_message_deserialize" result - result' <- (wrapObject SocketControlMessage) result - freeMem data_' - return result' - - diff --git a/GI/Gio/Objects/SocketControlMessage.hs-boot b/GI/Gio/Objects/SocketControlMessage.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/SocketControlMessage.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Objects.SocketControlMessage where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SocketControlMessage = SocketControlMessage (ForeignPtr SocketControlMessage) -instance GObject SocketControlMessage where -class GObject o => SocketControlMessageK o -instance (GObject o, IsDescendantOf SocketControlMessage o) => SocketControlMessageK o -data SocketControlMessageGetLevelMethodInfo -data SocketControlMessageGetMsgTypeMethodInfo -data SocketControlMessageGetSizeMethodInfo -data SocketControlMessageSerializeMethodInfo diff --git a/GI/Gio/Objects/SocketListener.hs b/GI/Gio/Objects/SocketListener.hs deleted file mode 100644 --- a/GI/Gio/Objects/SocketListener.hs +++ /dev/null @@ -1,807 +0,0 @@ - - -{- | -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.Objects.SocketListener - ( - --- * Exported types - SocketListener(..) , - SocketListenerK , - toSocketListener , - noSocketListener , - - - -- * Methods --- ** socketListenerAccept - SocketListenerAcceptMethodInfo , - socketListenerAccept , - - --- ** socketListenerAcceptAsync - SocketListenerAcceptAsyncMethodInfo , - socketListenerAcceptAsync , - - --- ** socketListenerAcceptFinish - SocketListenerAcceptFinishMethodInfo , - socketListenerAcceptFinish , - - --- ** socketListenerAcceptSocket - SocketListenerAcceptSocketMethodInfo , - socketListenerAcceptSocket , - - --- ** socketListenerAcceptSocketAsync - SocketListenerAcceptSocketAsyncMethodInfo, - socketListenerAcceptSocketAsync , - - --- ** socketListenerAcceptSocketFinish - SocketListenerAcceptSocketFinishMethodInfo, - socketListenerAcceptSocketFinish , - - --- ** socketListenerAddAddress - SocketListenerAddAddressMethodInfo , - socketListenerAddAddress , - - --- ** socketListenerAddAnyInetPort - SocketListenerAddAnyInetPortMethodInfo , - socketListenerAddAnyInetPort , - - --- ** socketListenerAddInetPort - SocketListenerAddInetPortMethodInfo , - socketListenerAddInetPort , - - --- ** socketListenerAddSocket - SocketListenerAddSocketMethodInfo , - socketListenerAddSocket , - - --- ** socketListenerClose - SocketListenerCloseMethodInfo , - socketListenerClose , - - --- ** socketListenerNew - socketListenerNew , - - --- ** socketListenerSetBacklog - SocketListenerSetBacklogMethodInfo , - socketListenerSetBacklog , - - - - - -- * Properties --- ** ListenBacklog - SocketListenerListenBacklogPropertyInfo , - constructSocketListenerListenBacklog , - getSocketListenerListenBacklog , - setSocketListenerListenBacklog , - socketListenerListenBacklog , - - - - - -- * Signals --- ** Event - SocketListenerEventCallback , - SocketListenerEventCallbackC , - SocketListenerEventSignalInfo , - afterSocketListenerEvent , - mkSocketListenerEventCallback , - noSocketListenerEventCallback , - onSocketListenerEvent , - socketListenerEventCallbackWrapper , - socketListenerEventClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype SocketListener = SocketListener (ForeignPtr SocketListener) -foreign import ccall "g_socket_listener_get_type" - c_g_socket_listener_get_type :: IO GType - -type instance ParentTypes SocketListener = SocketListenerParentTypes -type SocketListenerParentTypes = '[GObject.Object] - -instance GObject SocketListener where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_socket_listener_get_type - - -class GObject o => SocketListenerK o -instance (GObject o, IsDescendantOf SocketListener o) => SocketListenerK o - -toSocketListener :: SocketListenerK o => o -> IO SocketListener -toSocketListener = unsafeCastTo SocketListener - -noSocketListener :: Maybe SocketListener -noSocketListener = Nothing - -type family ResolveSocketListenerMethod (t :: Symbol) (o :: *) :: * where - ResolveSocketListenerMethod "accept" o = SocketListenerAcceptMethodInfo - ResolveSocketListenerMethod "acceptAsync" o = SocketListenerAcceptAsyncMethodInfo - ResolveSocketListenerMethod "acceptFinish" o = SocketListenerAcceptFinishMethodInfo - ResolveSocketListenerMethod "acceptSocket" o = SocketListenerAcceptSocketMethodInfo - ResolveSocketListenerMethod "acceptSocketAsync" o = SocketListenerAcceptSocketAsyncMethodInfo - ResolveSocketListenerMethod "acceptSocketFinish" o = SocketListenerAcceptSocketFinishMethodInfo - ResolveSocketListenerMethod "addAddress" o = SocketListenerAddAddressMethodInfo - ResolveSocketListenerMethod "addAnyInetPort" o = SocketListenerAddAnyInetPortMethodInfo - ResolveSocketListenerMethod "addInetPort" o = SocketListenerAddInetPortMethodInfo - ResolveSocketListenerMethod "addSocket" o = SocketListenerAddSocketMethodInfo - ResolveSocketListenerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSocketListenerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSocketListenerMethod "close" o = SocketListenerCloseMethodInfo - ResolveSocketListenerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSocketListenerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSocketListenerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSocketListenerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSocketListenerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSocketListenerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSocketListenerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSocketListenerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSocketListenerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSocketListenerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSocketListenerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSocketListenerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSocketListenerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSocketListenerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSocketListenerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSocketListenerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSocketListenerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSocketListenerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSocketListenerMethod "setBacklog" o = SocketListenerSetBacklogMethodInfo - ResolveSocketListenerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSocketListenerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSocketListenerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSocketListenerMethod t SocketListener, MethodInfo info SocketListener p) => IsLabelProxy t (SocketListener -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSocketListenerMethod t SocketListener, MethodInfo info SocketListener p) => IsLabel t (SocketListener -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal SocketListener::event -type SocketListenerEventCallback = - SocketListenerEvent -> - Socket -> - IO () - -noSocketListenerEventCallback :: Maybe SocketListenerEventCallback -noSocketListenerEventCallback = Nothing - -type SocketListenerEventCallbackC = - Ptr () -> -- object - CUInt -> - Ptr Socket -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSocketListenerEventCallback :: SocketListenerEventCallbackC -> IO (FunPtr SocketListenerEventCallbackC) - -socketListenerEventClosure :: SocketListenerEventCallback -> IO Closure -socketListenerEventClosure cb = newCClosure =<< mkSocketListenerEventCallback wrapped - where wrapped = socketListenerEventCallbackWrapper cb - -socketListenerEventCallbackWrapper :: - SocketListenerEventCallback -> - Ptr () -> - CUInt -> - Ptr Socket -> - Ptr () -> - IO () -socketListenerEventCallbackWrapper _cb _ event socket _ = do - let event' = (toEnum . fromIntegral) event - socket' <- (newObject Socket) socket - _cb event' socket' - -onSocketListenerEvent :: (GObject a, MonadIO m) => a -> SocketListenerEventCallback -> m SignalHandlerId -onSocketListenerEvent obj cb = liftIO $ connectSocketListenerEvent obj cb SignalConnectBefore -afterSocketListenerEvent :: (GObject a, MonadIO m) => a -> SocketListenerEventCallback -> m SignalHandlerId -afterSocketListenerEvent obj cb = connectSocketListenerEvent obj cb SignalConnectAfter - -connectSocketListenerEvent :: (GObject a, MonadIO m) => - a -> SocketListenerEventCallback -> SignalConnectMode -> m SignalHandlerId -connectSocketListenerEvent obj cb after = liftIO $ do - cb' <- mkSocketListenerEventCallback (socketListenerEventCallbackWrapper cb) - connectSignalFunPtr obj "event" cb' after - --- VVV Prop "listen-backlog" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getSocketListenerListenBacklog :: (MonadIO m, SocketListenerK o) => o -> m Int32 -getSocketListenerListenBacklog obj = liftIO $ getObjectPropertyInt32 obj "listen-backlog" - -setSocketListenerListenBacklog :: (MonadIO m, SocketListenerK o) => o -> Int32 -> m () -setSocketListenerListenBacklog obj val = liftIO $ setObjectPropertyInt32 obj "listen-backlog" val - -constructSocketListenerListenBacklog :: Int32 -> IO ([Char], GValue) -constructSocketListenerListenBacklog val = constructObjectPropertyInt32 "listen-backlog" val - -data SocketListenerListenBacklogPropertyInfo -instance AttrInfo SocketListenerListenBacklogPropertyInfo where - type AttrAllowedOps SocketListenerListenBacklogPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketListenerListenBacklogPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SocketListenerListenBacklogPropertyInfo = SocketListenerK - type AttrGetType SocketListenerListenBacklogPropertyInfo = Int32 - type AttrLabel SocketListenerListenBacklogPropertyInfo = "listen-backlog" - attrGet _ = getSocketListenerListenBacklog - attrSet _ = setSocketListenerListenBacklog - attrConstruct _ = constructSocketListenerListenBacklog - attrClear _ = undefined - -type instance AttributeList SocketListener = SocketListenerAttributeList -type SocketListenerAttributeList = ('[ '("listenBacklog", SocketListenerListenBacklogPropertyInfo)] :: [(Symbol, *)]) - -socketListenerListenBacklog :: AttrLabelProxy "listenBacklog" -socketListenerListenBacklog = AttrLabelProxy - -data SocketListenerEventSignalInfo -instance SignalInfo SocketListenerEventSignalInfo where - type HaskellCallbackType SocketListenerEventSignalInfo = SocketListenerEventCallback - connectSignal _ = connectSocketListenerEvent - -type instance SignalList SocketListener = SocketListenerSignalList -type SocketListenerSignalList = ('[ '("event", SocketListenerEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SocketListener::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketListener") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_listener_new" g_socket_listener_new :: - IO (Ptr SocketListener) - - -socketListenerNew :: - (MonadIO m) => - m SocketListener -- result -socketListenerNew = liftIO $ do - result <- g_socket_listener_new - checkUnexpectedReturnNULL "g_socket_listener_new" result - result' <- (wrapObject SocketListener) result - return result' - --- method SocketListener::accept --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionOut, 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 : Just (TInterface "Gio" "SocketConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_listener_accept" g_socket_listener_accept :: - Ptr SocketListener -> -- _obj : TInterface "Gio" "SocketListener" - Ptr (Ptr GObject.Object) -> -- source_object : TInterface "GObject" "Object" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketConnection) - - -socketListenerAccept :: - (MonadIO m, SocketListenerK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m (SocketConnection,GObject.Object) -- result -socketListenerAccept _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sourceObject <- allocMem :: IO (Ptr (Ptr GObject.Object)) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_socket_listener_accept _obj' sourceObject maybeCancellable - checkUnexpectedReturnNULL "g_socket_listener_accept" result - result' <- (wrapObject SocketConnection) result - sourceObject' <- peek sourceObject - sourceObject'' <- (newObject GObject.Object) sourceObject' - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem sourceObject - return (result', sourceObject'') - ) (do - freeMem sourceObject - ) - -data SocketListenerAcceptMethodInfo -instance (signature ~ (Maybe (b) -> m (SocketConnection,GObject.Object)), MonadIO m, SocketListenerK a, CancellableK b) => MethodInfo SocketListenerAcceptMethodInfo a signature where - overloadedMethod _ = socketListenerAccept - --- method SocketListener::accept_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_listener_accept_async" g_socket_listener_accept_async :: - Ptr SocketListener -> -- _obj : TInterface "Gio" "SocketListener" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -socketListenerAcceptAsync :: - (MonadIO m, SocketListenerK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -socketListenerAcceptAsync _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_socket_listener_accept_async _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data SocketListenerAcceptAsyncMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketListenerK a, CancellableK b) => MethodInfo SocketListenerAcceptAsyncMethodInfo a signature where - overloadedMethod _ = socketListenerAcceptAsync - --- method SocketListener::accept_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketConnection") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_listener_accept_finish" g_socket_listener_accept_finish :: - Ptr SocketListener -> -- _obj : TInterface "Gio" "SocketListener" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GObject.Object) -> -- source_object : TInterface "GObject" "Object" - Ptr (Ptr GError) -> -- error - IO (Ptr SocketConnection) - - -socketListenerAcceptFinish :: - (MonadIO m, SocketListenerK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m (SocketConnection,GObject.Object) -- result -socketListenerAcceptFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - sourceObject <- allocMem :: IO (Ptr (Ptr GObject.Object)) - onException (do - result <- propagateGError $ g_socket_listener_accept_finish _obj' result_' sourceObject - checkUnexpectedReturnNULL "g_socket_listener_accept_finish" result - result' <- (wrapObject SocketConnection) result - sourceObject' <- peek sourceObject - sourceObject'' <- (newObject GObject.Object) sourceObject' - touchManagedPtr _obj - touchManagedPtr result_ - freeMem sourceObject - return (result', sourceObject'') - ) (do - freeMem sourceObject - ) - -data SocketListenerAcceptFinishMethodInfo -instance (signature ~ (b -> m (SocketConnection,GObject.Object)), MonadIO m, SocketListenerK a, AsyncResultK b) => MethodInfo SocketListenerAcceptFinishMethodInfo a signature where - overloadedMethod _ = socketListenerAcceptFinish - --- method SocketListener::accept_socket --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionOut, 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 : Just (TInterface "Gio" "Socket") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_listener_accept_socket" g_socket_listener_accept_socket :: - Ptr SocketListener -> -- _obj : TInterface "Gio" "SocketListener" - Ptr (Ptr GObject.Object) -> -- source_object : TInterface "GObject" "Object" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr Socket) - - -socketListenerAcceptSocket :: - (MonadIO m, SocketListenerK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m (Socket,GObject.Object) -- result -socketListenerAcceptSocket _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sourceObject <- allocMem :: IO (Ptr (Ptr GObject.Object)) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_socket_listener_accept_socket _obj' sourceObject maybeCancellable - checkUnexpectedReturnNULL "g_socket_listener_accept_socket" result - result' <- (wrapObject Socket) result - sourceObject' <- peek sourceObject - sourceObject'' <- (newObject GObject.Object) sourceObject' - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem sourceObject - return (result', sourceObject'') - ) (do - freeMem sourceObject - ) - -data SocketListenerAcceptSocketMethodInfo -instance (signature ~ (Maybe (b) -> m (Socket,GObject.Object)), MonadIO m, SocketListenerK a, CancellableK b) => MethodInfo SocketListenerAcceptSocketMethodInfo a signature where - overloadedMethod _ = socketListenerAcceptSocket - --- method SocketListener::accept_socket_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_listener_accept_socket_async" g_socket_listener_accept_socket_async :: - Ptr SocketListener -> -- _obj : TInterface "Gio" "SocketListener" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -socketListenerAcceptSocketAsync :: - (MonadIO m, SocketListenerK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -socketListenerAcceptSocketAsync _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_socket_listener_accept_socket_async _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data SocketListenerAcceptSocketAsyncMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SocketListenerK a, CancellableK b) => MethodInfo SocketListenerAcceptSocketAsyncMethodInfo a signature where - overloadedMethod _ = socketListenerAcceptSocketAsync - --- method SocketListener::accept_socket_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Socket") --- throws : True --- Skip return : False - -foreign import ccall "g_socket_listener_accept_socket_finish" g_socket_listener_accept_socket_finish :: - Ptr SocketListener -> -- _obj : TInterface "Gio" "SocketListener" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GObject.Object) -> -- source_object : TInterface "GObject" "Object" - Ptr (Ptr GError) -> -- error - IO (Ptr Socket) - - -socketListenerAcceptSocketFinish :: - (MonadIO m, SocketListenerK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m (Socket,GObject.Object) -- result -socketListenerAcceptSocketFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - sourceObject <- allocMem :: IO (Ptr (Ptr GObject.Object)) - onException (do - result <- propagateGError $ g_socket_listener_accept_socket_finish _obj' result_' sourceObject - checkUnexpectedReturnNULL "g_socket_listener_accept_socket_finish" result - result' <- (wrapObject Socket) result - sourceObject' <- peek sourceObject - sourceObject'' <- (newObject GObject.Object) sourceObject' - touchManagedPtr _obj - touchManagedPtr result_ - freeMem sourceObject - return (result', sourceObject'') - ) (do - freeMem sourceObject - ) - -data SocketListenerAcceptSocketFinishMethodInfo -instance (signature ~ (b -> m (Socket,GObject.Object)), MonadIO m, SocketListenerK a, AsyncResultK b) => MethodInfo SocketListenerAcceptSocketFinishMethodInfo a signature where - overloadedMethod _ = socketListenerAcceptSocketFinish - --- method SocketListener::add_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "SocketType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TInterface "Gio" "SocketProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "effective_address", argType = TInterface "Gio" "SocketAddress", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_listener_add_address" g_socket_listener_add_address :: - Ptr SocketListener -> -- _obj : TInterface "Gio" "SocketListener" - Ptr SocketAddress -> -- address : TInterface "Gio" "SocketAddress" - CUInt -> -- type : TInterface "Gio" "SocketType" - CUInt -> -- protocol : TInterface "Gio" "SocketProtocol" - Ptr GObject.Object -> -- source_object : TInterface "GObject" "Object" - Ptr (Ptr SocketAddress) -> -- effective_address : TInterface "Gio" "SocketAddress" - Ptr (Ptr GError) -> -- error - IO CInt - - -socketListenerAddAddress :: - (MonadIO m, SocketListenerK a, SocketAddressK b, GObject.ObjectK c) => - a -- _obj - -> b -- address - -> SocketType -- type_ - -> SocketProtocol -- protocol - -> Maybe (c) -- sourceObject - -> m (SocketAddress) -- result -socketListenerAddAddress _obj address type_ protocol sourceObject = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let address' = unsafeManagedPtrCastPtr address - let type_' = (fromIntegral . fromEnum) type_ - let protocol' = (fromIntegral . fromEnum) protocol - maybeSourceObject <- case sourceObject of - Nothing -> return nullPtr - Just jSourceObject -> do - let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject - return jSourceObject' - effectiveAddress <- allocMem :: IO (Ptr (Ptr SocketAddress)) - onException (do - _ <- propagateGError $ g_socket_listener_add_address _obj' address' type_' protocol' maybeSourceObject effectiveAddress - effectiveAddress' <- peek effectiveAddress - effectiveAddress'' <- (wrapObject SocketAddress) effectiveAddress' - touchManagedPtr _obj - touchManagedPtr address - whenJust sourceObject touchManagedPtr - freeMem effectiveAddress - return effectiveAddress'' - ) (do - freeMem effectiveAddress - ) - -data SocketListenerAddAddressMethodInfo -instance (signature ~ (b -> SocketType -> SocketProtocol -> Maybe (c) -> m (SocketAddress)), MonadIO m, SocketListenerK a, SocketAddressK b, GObject.ObjectK c) => MethodInfo SocketListenerAddAddressMethodInfo a signature where - overloadedMethod _ = socketListenerAddAddress - --- method SocketListener::add_any_inet_port --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt16) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_listener_add_any_inet_port" g_socket_listener_add_any_inet_port :: - Ptr SocketListener -> -- _obj : TInterface "Gio" "SocketListener" - Ptr GObject.Object -> -- source_object : TInterface "GObject" "Object" - Ptr (Ptr GError) -> -- error - IO Word16 - - -socketListenerAddAnyInetPort :: - (MonadIO m, SocketListenerK a, GObject.ObjectK b) => - a -- _obj - -> Maybe (b) -- sourceObject - -> m Word16 -- result -socketListenerAddAnyInetPort _obj sourceObject = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeSourceObject <- case sourceObject of - Nothing -> return nullPtr - Just jSourceObject -> do - let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject - return jSourceObject' - onException (do - result <- propagateGError $ g_socket_listener_add_any_inet_port _obj' maybeSourceObject - touchManagedPtr _obj - whenJust sourceObject touchManagedPtr - return result - ) (do - return () - ) - -data SocketListenerAddAnyInetPortMethodInfo -instance (signature ~ (Maybe (b) -> m Word16), MonadIO m, SocketListenerK a, GObject.ObjectK b) => MethodInfo SocketListenerAddAnyInetPortMethodInfo a signature where - overloadedMethod _ = socketListenerAddAnyInetPort - --- method SocketListener::add_inet_port --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_listener_add_inet_port" g_socket_listener_add_inet_port :: - Ptr SocketListener -> -- _obj : TInterface "Gio" "SocketListener" - Word16 -> -- port : TBasicType TUInt16 - Ptr GObject.Object -> -- source_object : TInterface "GObject" "Object" - Ptr (Ptr GError) -> -- error - IO CInt - - -socketListenerAddInetPort :: - (MonadIO m, SocketListenerK a, GObject.ObjectK b) => - a -- _obj - -> Word16 -- port - -> Maybe (b) -- sourceObject - -> m () -- result -socketListenerAddInetPort _obj port sourceObject = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeSourceObject <- case sourceObject of - Nothing -> return nullPtr - Just jSourceObject -> do - let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject - return jSourceObject' - onException (do - _ <- propagateGError $ g_socket_listener_add_inet_port _obj' port maybeSourceObject - touchManagedPtr _obj - whenJust sourceObject touchManagedPtr - return () - ) (do - return () - ) - -data SocketListenerAddInetPortMethodInfo -instance (signature ~ (Word16 -> Maybe (b) -> m ()), MonadIO m, SocketListenerK a, GObject.ObjectK b) => MethodInfo SocketListenerAddInetPortMethodInfo a signature where - overloadedMethod _ = socketListenerAddInetPort - --- method SocketListener::add_socket --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_socket_listener_add_socket" g_socket_listener_add_socket :: - Ptr SocketListener -> -- _obj : TInterface "Gio" "SocketListener" - Ptr Socket -> -- socket : TInterface "Gio" "Socket" - Ptr GObject.Object -> -- source_object : TInterface "GObject" "Object" - Ptr (Ptr GError) -> -- error - IO CInt - - -socketListenerAddSocket :: - (MonadIO m, SocketListenerK a, SocketK b, GObject.ObjectK c) => - a -- _obj - -> b -- socket - -> Maybe (c) -- sourceObject - -> m () -- result -socketListenerAddSocket _obj socket sourceObject = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let socket' = unsafeManagedPtrCastPtr socket - maybeSourceObject <- case sourceObject of - Nothing -> return nullPtr - Just jSourceObject -> do - let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject - return jSourceObject' - onException (do - _ <- propagateGError $ g_socket_listener_add_socket _obj' socket' maybeSourceObject - touchManagedPtr _obj - touchManagedPtr socket - whenJust sourceObject touchManagedPtr - return () - ) (do - return () - ) - -data SocketListenerAddSocketMethodInfo -instance (signature ~ (b -> Maybe (c) -> m ()), MonadIO m, SocketListenerK a, SocketK b, GObject.ObjectK c) => MethodInfo SocketListenerAddSocketMethodInfo a signature where - overloadedMethod _ = socketListenerAddSocket - --- method SocketListener::close --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_listener_close" g_socket_listener_close :: - Ptr SocketListener -> -- _obj : TInterface "Gio" "SocketListener" - IO () - - -socketListenerClose :: - (MonadIO m, SocketListenerK a) => - a -- _obj - -> m () -- result -socketListenerClose _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_socket_listener_close _obj' - touchManagedPtr _obj - return () - -data SocketListenerCloseMethodInfo -instance (signature ~ (m ()), MonadIO m, SocketListenerK a) => MethodInfo SocketListenerCloseMethodInfo a signature where - overloadedMethod _ = socketListenerClose - --- method SocketListener::set_backlog --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketListener", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "listen_backlog", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_listener_set_backlog" g_socket_listener_set_backlog :: - Ptr SocketListener -> -- _obj : TInterface "Gio" "SocketListener" - Int32 -> -- listen_backlog : TBasicType TInt - IO () - - -socketListenerSetBacklog :: - (MonadIO m, SocketListenerK a) => - a -- _obj - -> Int32 -- listenBacklog - -> m () -- result -socketListenerSetBacklog _obj listenBacklog = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_socket_listener_set_backlog _obj' listenBacklog - touchManagedPtr _obj - return () - -data SocketListenerSetBacklogMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, SocketListenerK a) => MethodInfo SocketListenerSetBacklogMethodInfo a signature where - overloadedMethod _ = socketListenerSetBacklog - - diff --git a/GI/Gio/Objects/SocketListener.hs-boot b/GI/Gio/Objects/SocketListener.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/SocketListener.hs-boot +++ /dev/null @@ -1,27 +0,0 @@ -module GI.Gio.Objects.SocketListener where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SocketListener = SocketListener (ForeignPtr SocketListener) -instance GObject SocketListener where -class GObject o => SocketListenerK o -instance (GObject o, IsDescendantOf SocketListener o) => SocketListenerK o -data SocketListenerListenBacklogPropertyInfo -data SocketListenerEventSignalInfo -data SocketListenerAcceptMethodInfo -data SocketListenerAcceptAsyncMethodInfo -data SocketListenerAcceptFinishMethodInfo -data SocketListenerAcceptSocketMethodInfo -data SocketListenerAcceptSocketAsyncMethodInfo -data SocketListenerAcceptSocketFinishMethodInfo -data SocketListenerAddAddressMethodInfo -data SocketListenerAddAnyInetPortMethodInfo -data SocketListenerAddInetPortMethodInfo -data SocketListenerAddSocketMethodInfo -data SocketListenerCloseMethodInfo -data SocketListenerSetBacklogMethodInfo diff --git a/GI/Gio/Objects/SocketService.hs b/GI/Gio/Objects/SocketService.hs deleted file mode 100644 --- a/GI/Gio/Objects/SocketService.hs +++ /dev/null @@ -1,345 +0,0 @@ - - -{- | -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.Objects.SocketService - ( - --- * Exported types - SocketService(..) , - SocketServiceK , - toSocketService , - noSocketService , - - - -- * Methods --- ** socketServiceIsActive - SocketServiceIsActiveMethodInfo , - socketServiceIsActive , - - --- ** socketServiceNew - socketServiceNew , - - --- ** socketServiceStart - SocketServiceStartMethodInfo , - socketServiceStart , - - --- ** socketServiceStop - SocketServiceStopMethodInfo , - socketServiceStop , - - - - - -- * Properties --- ** Active - SocketServiceActivePropertyInfo , - constructSocketServiceActive , - getSocketServiceActive , - setSocketServiceActive , - socketServiceActive , - - - - - -- * Signals --- ** Incoming - SocketServiceIncomingCallback , - SocketServiceIncomingCallbackC , - SocketServiceIncomingSignalInfo , - afterSocketServiceIncoming , - mkSocketServiceIncomingCallback , - noSocketServiceIncomingCallback , - onSocketServiceIncoming , - socketServiceIncomingCallbackWrapper , - socketServiceIncomingClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype SocketService = SocketService (ForeignPtr SocketService) -foreign import ccall "g_socket_service_get_type" - c_g_socket_service_get_type :: IO GType - -type instance ParentTypes SocketService = SocketServiceParentTypes -type SocketServiceParentTypes = '[SocketListener, GObject.Object] - -instance GObject SocketService where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_socket_service_get_type - - -class GObject o => SocketServiceK o -instance (GObject o, IsDescendantOf SocketService o) => SocketServiceK o - -toSocketService :: SocketServiceK o => o -> IO SocketService -toSocketService = unsafeCastTo SocketService - -noSocketService :: Maybe SocketService -noSocketService = Nothing - -type family ResolveSocketServiceMethod (t :: Symbol) (o :: *) :: * where - ResolveSocketServiceMethod "accept" o = SocketListenerAcceptMethodInfo - ResolveSocketServiceMethod "acceptAsync" o = SocketListenerAcceptAsyncMethodInfo - ResolveSocketServiceMethod "acceptFinish" o = SocketListenerAcceptFinishMethodInfo - ResolveSocketServiceMethod "acceptSocket" o = SocketListenerAcceptSocketMethodInfo - ResolveSocketServiceMethod "acceptSocketAsync" o = SocketListenerAcceptSocketAsyncMethodInfo - ResolveSocketServiceMethod "acceptSocketFinish" o = SocketListenerAcceptSocketFinishMethodInfo - ResolveSocketServiceMethod "addAddress" o = SocketListenerAddAddressMethodInfo - ResolveSocketServiceMethod "addAnyInetPort" o = SocketListenerAddAnyInetPortMethodInfo - ResolveSocketServiceMethod "addInetPort" o = SocketListenerAddInetPortMethodInfo - ResolveSocketServiceMethod "addSocket" o = SocketListenerAddSocketMethodInfo - ResolveSocketServiceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSocketServiceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSocketServiceMethod "close" o = SocketListenerCloseMethodInfo - ResolveSocketServiceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSocketServiceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSocketServiceMethod "isActive" o = SocketServiceIsActiveMethodInfo - ResolveSocketServiceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSocketServiceMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSocketServiceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSocketServiceMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSocketServiceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSocketServiceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSocketServiceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSocketServiceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSocketServiceMethod "start" o = SocketServiceStartMethodInfo - ResolveSocketServiceMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSocketServiceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSocketServiceMethod "stop" o = SocketServiceStopMethodInfo - ResolveSocketServiceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSocketServiceMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSocketServiceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSocketServiceMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSocketServiceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSocketServiceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSocketServiceMethod "setBacklog" o = SocketListenerSetBacklogMethodInfo - ResolveSocketServiceMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSocketServiceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSocketServiceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSocketServiceMethod t SocketService, MethodInfo info SocketService p) => IsLabelProxy t (SocketService -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSocketServiceMethod t SocketService, MethodInfo info SocketService p) => IsLabel t (SocketService -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal SocketService::incoming -type SocketServiceIncomingCallback = - SocketConnection -> - Maybe GObject.Object -> - IO Bool - -noSocketServiceIncomingCallback :: Maybe SocketServiceIncomingCallback -noSocketServiceIncomingCallback = Nothing - -type SocketServiceIncomingCallbackC = - Ptr () -> -- object - Ptr SocketConnection -> - Ptr GObject.Object -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkSocketServiceIncomingCallback :: SocketServiceIncomingCallbackC -> IO (FunPtr SocketServiceIncomingCallbackC) - -socketServiceIncomingClosure :: SocketServiceIncomingCallback -> IO Closure -socketServiceIncomingClosure cb = newCClosure =<< mkSocketServiceIncomingCallback wrapped - where wrapped = socketServiceIncomingCallbackWrapper cb - -socketServiceIncomingCallbackWrapper :: - SocketServiceIncomingCallback -> - Ptr () -> - Ptr SocketConnection -> - Ptr GObject.Object -> - Ptr () -> - IO CInt -socketServiceIncomingCallbackWrapper _cb _ connection sourceObject _ = do - connection' <- (newObject SocketConnection) connection - maybeSourceObject <- - if sourceObject == nullPtr - then return Nothing - else do - sourceObject' <- (newObject GObject.Object) sourceObject - return $ Just sourceObject' - result <- _cb connection' maybeSourceObject - let result' = (fromIntegral . fromEnum) result - return result' - -onSocketServiceIncoming :: (GObject a, MonadIO m) => a -> SocketServiceIncomingCallback -> m SignalHandlerId -onSocketServiceIncoming obj cb = liftIO $ connectSocketServiceIncoming obj cb SignalConnectBefore -afterSocketServiceIncoming :: (GObject a, MonadIO m) => a -> SocketServiceIncomingCallback -> m SignalHandlerId -afterSocketServiceIncoming obj cb = connectSocketServiceIncoming obj cb SignalConnectAfter - -connectSocketServiceIncoming :: (GObject a, MonadIO m) => - a -> SocketServiceIncomingCallback -> SignalConnectMode -> m SignalHandlerId -connectSocketServiceIncoming obj cb after = liftIO $ do - cb' <- mkSocketServiceIncomingCallback (socketServiceIncomingCallbackWrapper cb) - connectSignalFunPtr obj "incoming" cb' after - --- VVV Prop "active" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getSocketServiceActive :: (MonadIO m, SocketServiceK o) => o -> m Bool -getSocketServiceActive obj = liftIO $ getObjectPropertyBool obj "active" - -setSocketServiceActive :: (MonadIO m, SocketServiceK o) => o -> Bool -> m () -setSocketServiceActive obj val = liftIO $ setObjectPropertyBool obj "active" val - -constructSocketServiceActive :: Bool -> IO ([Char], GValue) -constructSocketServiceActive val = constructObjectPropertyBool "active" val - -data SocketServiceActivePropertyInfo -instance AttrInfo SocketServiceActivePropertyInfo where - type AttrAllowedOps SocketServiceActivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketServiceActivePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SocketServiceActivePropertyInfo = SocketServiceK - type AttrGetType SocketServiceActivePropertyInfo = Bool - type AttrLabel SocketServiceActivePropertyInfo = "active" - attrGet _ = getSocketServiceActive - attrSet _ = setSocketServiceActive - attrConstruct _ = constructSocketServiceActive - attrClear _ = undefined - -type instance AttributeList SocketService = SocketServiceAttributeList -type SocketServiceAttributeList = ('[ '("active", SocketServiceActivePropertyInfo), '("listenBacklog", SocketListenerListenBacklogPropertyInfo)] :: [(Symbol, *)]) - -socketServiceActive :: AttrLabelProxy "active" -socketServiceActive = AttrLabelProxy - -data SocketServiceIncomingSignalInfo -instance SignalInfo SocketServiceIncomingSignalInfo where - type HaskellCallbackType SocketServiceIncomingSignalInfo = SocketServiceIncomingCallback - connectSignal _ = connectSocketServiceIncoming - -type instance SignalList SocketService = SocketServiceSignalList -type SocketServiceSignalList = ('[ '("event", SocketListenerEventSignalInfo), '("incoming", SocketServiceIncomingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SocketService::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SocketService") --- throws : False --- Skip return : False - -foreign import ccall "g_socket_service_new" g_socket_service_new :: - IO (Ptr SocketService) - - -socketServiceNew :: - (MonadIO m) => - m SocketService -- result -socketServiceNew = liftIO $ do - result <- g_socket_service_new - checkUnexpectedReturnNULL "g_socket_service_new" result - result' <- (wrapObject SocketService) result - return result' - --- method SocketService::is_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_socket_service_is_active" g_socket_service_is_active :: - Ptr SocketService -> -- _obj : TInterface "Gio" "SocketService" - IO CInt - - -socketServiceIsActive :: - (MonadIO m, SocketServiceK a) => - a -- _obj - -> m Bool -- result -socketServiceIsActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_socket_service_is_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SocketServiceIsActiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, SocketServiceK a) => MethodInfo SocketServiceIsActiveMethodInfo a signature where - overloadedMethod _ = socketServiceIsActive - --- method SocketService::start --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_service_start" g_socket_service_start :: - Ptr SocketService -> -- _obj : TInterface "Gio" "SocketService" - IO () - - -socketServiceStart :: - (MonadIO m, SocketServiceK a) => - a -- _obj - -> m () -- result -socketServiceStart _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_socket_service_start _obj' - touchManagedPtr _obj - return () - -data SocketServiceStartMethodInfo -instance (signature ~ (m ()), MonadIO m, SocketServiceK a) => MethodInfo SocketServiceStartMethodInfo a signature where - overloadedMethod _ = socketServiceStart - --- method SocketService::stop --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SocketService", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_socket_service_stop" g_socket_service_stop :: - Ptr SocketService -> -- _obj : TInterface "Gio" "SocketService" - IO () - - -socketServiceStop :: - (MonadIO m, SocketServiceK a) => - a -- _obj - -> m () -- result -socketServiceStop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_socket_service_stop _obj' - touchManagedPtr _obj - return () - -data SocketServiceStopMethodInfo -instance (signature ~ (m ()), MonadIO m, SocketServiceK a) => MethodInfo SocketServiceStopMethodInfo a signature where - overloadedMethod _ = socketServiceStop - - diff --git a/GI/Gio/Objects/SocketService.hs-boot b/GI/Gio/Objects/SocketService.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/SocketService.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gio.Objects.SocketService where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SocketService = SocketService (ForeignPtr SocketService) -instance GObject SocketService where -class GObject o => SocketServiceK o -instance (GObject o, IsDescendantOf SocketService o) => SocketServiceK o -data SocketServiceActivePropertyInfo -data SocketServiceIncomingSignalInfo -data SocketServiceIsActiveMethodInfo -data SocketServiceStartMethodInfo -data SocketServiceStopMethodInfo diff --git a/GI/Gio/Objects/Subprocess.hs b/GI/Gio/Objects/Subprocess.hs deleted file mode 100644 --- a/GI/Gio/Objects/Subprocess.hs +++ /dev/null @@ -1,1247 +0,0 @@ - - -{- | -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.Objects.Subprocess - ( - --- * Exported types - Subprocess(..) , - SubprocessK , - toSubprocess , - noSubprocess , - - - -- * Methods --- ** subprocessCommunicate - SubprocessCommunicateMethodInfo , - subprocessCommunicate , - - --- ** subprocessCommunicateAsync - SubprocessCommunicateAsyncMethodInfo , - subprocessCommunicateAsync , - - --- ** subprocessCommunicateFinish - SubprocessCommunicateFinishMethodInfo , - subprocessCommunicateFinish , - - --- ** subprocessCommunicateUtf8 - SubprocessCommunicateUtf8MethodInfo , - subprocessCommunicateUtf8 , - - --- ** subprocessCommunicateUtf8Async - SubprocessCommunicateUtf8AsyncMethodInfo, - subprocessCommunicateUtf8Async , - - --- ** subprocessCommunicateUtf8Finish - SubprocessCommunicateUtf8FinishMethodInfo, - subprocessCommunicateUtf8Finish , - - --- ** subprocessForceExit - SubprocessForceExitMethodInfo , - subprocessForceExit , - - --- ** subprocessGetExitStatus - SubprocessGetExitStatusMethodInfo , - subprocessGetExitStatus , - - --- ** subprocessGetIdentifier - SubprocessGetIdentifierMethodInfo , - subprocessGetIdentifier , - - --- ** subprocessGetIfExited - SubprocessGetIfExitedMethodInfo , - subprocessGetIfExited , - - --- ** subprocessGetIfSignaled - SubprocessGetIfSignaledMethodInfo , - subprocessGetIfSignaled , - - --- ** subprocessGetStatus - SubprocessGetStatusMethodInfo , - subprocessGetStatus , - - --- ** subprocessGetStderrPipe - SubprocessGetStderrPipeMethodInfo , - subprocessGetStderrPipe , - - --- ** subprocessGetStdinPipe - SubprocessGetStdinPipeMethodInfo , - subprocessGetStdinPipe , - - --- ** subprocessGetStdoutPipe - SubprocessGetStdoutPipeMethodInfo , - subprocessGetStdoutPipe , - - --- ** subprocessGetSuccessful - SubprocessGetSuccessfulMethodInfo , - subprocessGetSuccessful , - - --- ** subprocessGetTermSig - SubprocessGetTermSigMethodInfo , - subprocessGetTermSig , - - --- ** subprocessNew - subprocessNew , - - --- ** subprocessSendSignal - SubprocessSendSignalMethodInfo , - subprocessSendSignal , - - --- ** subprocessWait - SubprocessWaitMethodInfo , - subprocessWait , - - --- ** subprocessWaitAsync - SubprocessWaitAsyncMethodInfo , - subprocessWaitAsync , - - --- ** subprocessWaitCheck - SubprocessWaitCheckMethodInfo , - subprocessWaitCheck , - - --- ** subprocessWaitCheckAsync - SubprocessWaitCheckAsyncMethodInfo , - subprocessWaitCheckAsync , - - --- ** subprocessWaitCheckFinish - SubprocessWaitCheckFinishMethodInfo , - subprocessWaitCheckFinish , - - --- ** subprocessWaitFinish - SubprocessWaitFinishMethodInfo , - subprocessWaitFinish , - - - - - -- * Properties --- ** Argv - SubprocessArgvPropertyInfo , - constructSubprocessArgv , - subprocessArgv , - - --- ** Flags - SubprocessFlagsPropertyInfo , - constructSubprocessFlags , - subprocessFlags , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype Subprocess = Subprocess (ForeignPtr Subprocess) -foreign import ccall "g_subprocess_get_type" - c_g_subprocess_get_type :: IO GType - -type instance ParentTypes Subprocess = SubprocessParentTypes -type SubprocessParentTypes = '[GObject.Object, Initable] - -instance GObject Subprocess where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_subprocess_get_type - - -class GObject o => SubprocessK o -instance (GObject o, IsDescendantOf Subprocess o) => SubprocessK o - -toSubprocess :: SubprocessK o => o -> IO Subprocess -toSubprocess = unsafeCastTo Subprocess - -noSubprocess :: Maybe Subprocess -noSubprocess = Nothing - -type family ResolveSubprocessMethod (t :: Symbol) (o :: *) :: * where - ResolveSubprocessMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSubprocessMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSubprocessMethod "communicate" o = SubprocessCommunicateMethodInfo - ResolveSubprocessMethod "communicateAsync" o = SubprocessCommunicateAsyncMethodInfo - ResolveSubprocessMethod "communicateFinish" o = SubprocessCommunicateFinishMethodInfo - ResolveSubprocessMethod "communicateUtf8" o = SubprocessCommunicateUtf8MethodInfo - ResolveSubprocessMethod "communicateUtf8Async" o = SubprocessCommunicateUtf8AsyncMethodInfo - ResolveSubprocessMethod "communicateUtf8Finish" o = SubprocessCommunicateUtf8FinishMethodInfo - ResolveSubprocessMethod "forceExit" o = SubprocessForceExitMethodInfo - ResolveSubprocessMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSubprocessMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSubprocessMethod "init" o = InitableInitMethodInfo - ResolveSubprocessMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSubprocessMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSubprocessMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSubprocessMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSubprocessMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSubprocessMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSubprocessMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSubprocessMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSubprocessMethod "sendSignal" o = SubprocessSendSignalMethodInfo - ResolveSubprocessMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSubprocessMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSubprocessMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSubprocessMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSubprocessMethod "wait" o = SubprocessWaitMethodInfo - ResolveSubprocessMethod "waitAsync" o = SubprocessWaitAsyncMethodInfo - ResolveSubprocessMethod "waitCheck" o = SubprocessWaitCheckMethodInfo - ResolveSubprocessMethod "waitCheckAsync" o = SubprocessWaitCheckAsyncMethodInfo - ResolveSubprocessMethod "waitCheckFinish" o = SubprocessWaitCheckFinishMethodInfo - ResolveSubprocessMethod "waitFinish" o = SubprocessWaitFinishMethodInfo - ResolveSubprocessMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSubprocessMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSubprocessMethod "getExitStatus" o = SubprocessGetExitStatusMethodInfo - ResolveSubprocessMethod "getIdentifier" o = SubprocessGetIdentifierMethodInfo - ResolveSubprocessMethod "getIfExited" o = SubprocessGetIfExitedMethodInfo - ResolveSubprocessMethod "getIfSignaled" o = SubprocessGetIfSignaledMethodInfo - ResolveSubprocessMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSubprocessMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSubprocessMethod "getStatus" o = SubprocessGetStatusMethodInfo - ResolveSubprocessMethod "getStderrPipe" o = SubprocessGetStderrPipeMethodInfo - ResolveSubprocessMethod "getStdinPipe" o = SubprocessGetStdinPipeMethodInfo - ResolveSubprocessMethod "getStdoutPipe" o = SubprocessGetStdoutPipeMethodInfo - ResolveSubprocessMethod "getSuccessful" o = SubprocessGetSuccessfulMethodInfo - ResolveSubprocessMethod "getTermSig" o = SubprocessGetTermSigMethodInfo - ResolveSubprocessMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSubprocessMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSubprocessMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSubprocessMethod t Subprocess, MethodInfo info Subprocess p) => IsLabelProxy t (Subprocess -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSubprocessMethod t Subprocess, MethodInfo info Subprocess p) => IsLabel t (Subprocess -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "argv" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructSubprocessArgv :: [T.Text] -> IO ([Char], GValue) -constructSubprocessArgv val = constructObjectPropertyStringArray "argv" (Just val) - -data SubprocessArgvPropertyInfo -instance AttrInfo SubprocessArgvPropertyInfo where - type AttrAllowedOps SubprocessArgvPropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint SubprocessArgvPropertyInfo = (~) [T.Text] - type AttrBaseTypeConstraint SubprocessArgvPropertyInfo = SubprocessK - type AttrGetType SubprocessArgvPropertyInfo = () - type AttrLabel SubprocessArgvPropertyInfo = "argv" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructSubprocessArgv - attrClear _ = undefined - --- VVV Prop "flags" - -- Type: TInterface "Gio" "SubprocessFlags" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructSubprocessFlags :: [SubprocessFlags] -> IO ([Char], GValue) -constructSubprocessFlags val = constructObjectPropertyFlags "flags" val - -data SubprocessFlagsPropertyInfo -instance AttrInfo SubprocessFlagsPropertyInfo where - type AttrAllowedOps SubprocessFlagsPropertyInfo = '[ 'AttrConstruct] - type AttrSetTypeConstraint SubprocessFlagsPropertyInfo = (~) [SubprocessFlags] - type AttrBaseTypeConstraint SubprocessFlagsPropertyInfo = SubprocessK - type AttrGetType SubprocessFlagsPropertyInfo = () - type AttrLabel SubprocessFlagsPropertyInfo = "flags" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructSubprocessFlags - attrClear _ = undefined - -type instance AttributeList Subprocess = SubprocessAttributeList -type SubprocessAttributeList = ('[ '("argv", SubprocessArgvPropertyInfo), '("flags", SubprocessFlagsPropertyInfo)] :: [(Symbol, *)]) - -subprocessArgv :: AttrLabelProxy "argv" -subprocessArgv = AttrLabelProxy - -subprocessFlags :: AttrLabelProxy "flags" -subprocessFlags = AttrLabelProxy - -type instance SignalList Subprocess = SubprocessSignalList -type SubprocessSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Subprocess::new --- method type : Constructor --- Args : [Arg {argCName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "SubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Subprocess") --- throws : True --- Skip return : False - -foreign import ccall "g_subprocess_newv" g_subprocess_newv :: - Ptr CString -> -- argv : TCArray True (-1) (-1) (TBasicType TUTF8) - CUInt -> -- flags : TInterface "Gio" "SubprocessFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr Subprocess) - - -subprocessNew :: - (MonadIO m) => - [T.Text] -- argv - -> [SubprocessFlags] -- flags - -> m Subprocess -- result -subprocessNew argv flags = liftIO $ do - argv' <- packZeroTerminatedUTF8CArray argv - let flags' = gflagsToWord flags - onException (do - result <- propagateGError $ g_subprocess_newv argv' flags' - checkUnexpectedReturnNULL "g_subprocess_newv" result - result' <- (wrapObject Subprocess) result - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - return result' - ) (do - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - ) - --- method Subprocess::communicate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdin_buf", argType = TInterface "GLib" "Bytes", 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},Arg {argCName = "stdout_buf", argType = TInterface "GLib" "Bytes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stderr_buf", argType = TInterface "GLib" "Bytes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_subprocess_communicate" g_subprocess_communicate :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - Ptr GLib.Bytes -> -- stdin_buf : TInterface "GLib" "Bytes" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GLib.Bytes) -> -- stdout_buf : TInterface "GLib" "Bytes" - Ptr (Ptr GLib.Bytes) -> -- stderr_buf : TInterface "GLib" "Bytes" - Ptr (Ptr GError) -> -- error - IO CInt - - -subprocessCommunicate :: - (MonadIO m, SubprocessK a, CancellableK b) => - a -- _obj - -> Maybe (GLib.Bytes) -- stdinBuf - -> Maybe (b) -- cancellable - -> m (GLib.Bytes,GLib.Bytes) -- result -subprocessCommunicate _obj stdinBuf cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeStdinBuf <- case stdinBuf of - Nothing -> return nullPtr - Just jStdinBuf -> do - let jStdinBuf' = unsafeManagedPtrGetPtr jStdinBuf - return jStdinBuf' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - stdoutBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes)) - stderrBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes)) - onException (do - _ <- propagateGError $ g_subprocess_communicate _obj' maybeStdinBuf maybeCancellable stdoutBuf stderrBuf - stdoutBuf' <- peek stdoutBuf - stdoutBuf'' <- (wrapBoxed GLib.Bytes) stdoutBuf' - stderrBuf' <- peek stderrBuf - stderrBuf'' <- (wrapBoxed GLib.Bytes) stderrBuf' - touchManagedPtr _obj - whenJust stdinBuf touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem stdoutBuf - freeMem stderrBuf - return (stdoutBuf'', stderrBuf'') - ) (do - freeMem stdoutBuf - freeMem stderrBuf - ) - -data SubprocessCommunicateMethodInfo -instance (signature ~ (Maybe (GLib.Bytes) -> Maybe (b) -> m (GLib.Bytes,GLib.Bytes)), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessCommunicateMethodInfo a signature where - overloadedMethod _ = subprocessCommunicate - --- method Subprocess::communicate_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdin_buf", argType = TInterface "GLib" "Bytes", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_communicate_async" g_subprocess_communicate_async :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - Ptr GLib.Bytes -> -- stdin_buf : TInterface "GLib" "Bytes" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -subprocessCommunicateAsync :: - (MonadIO m, SubprocessK a, CancellableK b) => - a -- _obj - -> Maybe (GLib.Bytes) -- stdinBuf - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -subprocessCommunicateAsync _obj stdinBuf cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeStdinBuf <- case stdinBuf of - Nothing -> return nullPtr - Just jStdinBuf -> do - let jStdinBuf' = unsafeManagedPtrGetPtr jStdinBuf - return jStdinBuf' - 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_subprocess_communicate_async _obj' maybeStdinBuf maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust stdinBuf touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data SubprocessCommunicateAsyncMethodInfo -instance (signature ~ (Maybe (GLib.Bytes) -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessCommunicateAsyncMethodInfo a signature where - overloadedMethod _ = subprocessCommunicateAsync - --- method Subprocess::communicate_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdout_buf", argType = TInterface "GLib" "Bytes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stderr_buf", argType = TInterface "GLib" "Bytes", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_subprocess_communicate_finish" g_subprocess_communicate_finish :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GLib.Bytes) -> -- stdout_buf : TInterface "GLib" "Bytes" - Ptr (Ptr GLib.Bytes) -> -- stderr_buf : TInterface "GLib" "Bytes" - Ptr (Ptr GError) -> -- error - IO CInt - - -subprocessCommunicateFinish :: - (MonadIO m, SubprocessK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m (GLib.Bytes,GLib.Bytes) -- result -subprocessCommunicateFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - stdoutBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes)) - stderrBuf <- allocMem :: IO (Ptr (Ptr GLib.Bytes)) - onException (do - _ <- propagateGError $ g_subprocess_communicate_finish _obj' result_' stdoutBuf stderrBuf - stdoutBuf' <- peek stdoutBuf - stdoutBuf'' <- (wrapBoxed GLib.Bytes) stdoutBuf' - stderrBuf' <- peek stderrBuf - stderrBuf'' <- (wrapBoxed GLib.Bytes) stderrBuf' - touchManagedPtr _obj - touchManagedPtr result_ - freeMem stdoutBuf - freeMem stderrBuf - return (stdoutBuf'', stderrBuf'') - ) (do - freeMem stdoutBuf - freeMem stderrBuf - ) - -data SubprocessCommunicateFinishMethodInfo -instance (signature ~ (b -> m (GLib.Bytes,GLib.Bytes)), MonadIO m, SubprocessK a, AsyncResultK b) => MethodInfo SubprocessCommunicateFinishMethodInfo a signature where - overloadedMethod _ = subprocessCommunicateFinish - --- method Subprocess::communicate_utf8 --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdin_buf", argType = TBasicType TUTF8, 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},Arg {argCName = "stdout_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stderr_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_subprocess_communicate_utf8" g_subprocess_communicate_utf8 :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - CString -> -- stdin_buf : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr CString -> -- stdout_buf : TBasicType TUTF8 - Ptr CString -> -- stderr_buf : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -subprocessCommunicateUtf8 :: - (MonadIO m, SubprocessK a, CancellableK b) => - a -- _obj - -> Maybe (T.Text) -- stdinBuf - -> Maybe (b) -- cancellable - -> m (T.Text,T.Text) -- result -subprocessCommunicateUtf8 _obj stdinBuf cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeStdinBuf <- case stdinBuf of - Nothing -> return nullPtr - Just jStdinBuf -> do - jStdinBuf' <- textToCString jStdinBuf - return jStdinBuf' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - stdoutBuf <- allocMem :: IO (Ptr CString) - stderrBuf <- allocMem :: IO (Ptr CString) - onException (do - _ <- propagateGError $ g_subprocess_communicate_utf8 _obj' maybeStdinBuf maybeCancellable stdoutBuf stderrBuf - stdoutBuf' <- peek stdoutBuf - stdoutBuf'' <- cstringToText stdoutBuf' - freeMem stdoutBuf' - stderrBuf' <- peek stderrBuf - stderrBuf'' <- cstringToText stderrBuf' - freeMem stderrBuf' - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem maybeStdinBuf - freeMem stdoutBuf - freeMem stderrBuf - return (stdoutBuf'', stderrBuf'') - ) (do - freeMem maybeStdinBuf - freeMem stdoutBuf - freeMem stderrBuf - ) - -data SubprocessCommunicateUtf8MethodInfo -instance (signature ~ (Maybe (T.Text) -> Maybe (b) -> m (T.Text,T.Text)), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessCommunicateUtf8MethodInfo a signature where - overloadedMethod _ = subprocessCommunicateUtf8 - --- method Subprocess::communicate_utf8_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdin_buf", argType = TBasicType TUTF8, 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_communicate_utf8_async" g_subprocess_communicate_utf8_async :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - CString -> -- stdin_buf : TBasicType TUTF8 - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -subprocessCommunicateUtf8Async :: - (MonadIO m, SubprocessK a, CancellableK b) => - a -- _obj - -> Maybe (T.Text) -- stdinBuf - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -subprocessCommunicateUtf8Async _obj stdinBuf cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeStdinBuf <- case stdinBuf of - Nothing -> return nullPtr - Just jStdinBuf -> do - jStdinBuf' <- textToCString jStdinBuf - return jStdinBuf' - 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_subprocess_communicate_utf8_async _obj' maybeStdinBuf maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem maybeStdinBuf - return () - -data SubprocessCommunicateUtf8AsyncMethodInfo -instance (signature ~ (Maybe (T.Text) -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessCommunicateUtf8AsyncMethodInfo a signature where - overloadedMethod _ = subprocessCommunicateUtf8Async - --- method Subprocess::communicate_utf8_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stdout_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "stderr_buf", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_subprocess_communicate_utf8_finish" g_subprocess_communicate_utf8_finish :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr CString -> -- stdout_buf : TBasicType TUTF8 - Ptr CString -> -- stderr_buf : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -subprocessCommunicateUtf8Finish :: - (MonadIO m, SubprocessK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m (T.Text,T.Text) -- result -subprocessCommunicateUtf8Finish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - stdoutBuf <- allocMem :: IO (Ptr CString) - stderrBuf <- allocMem :: IO (Ptr CString) - onException (do - _ <- propagateGError $ g_subprocess_communicate_utf8_finish _obj' result_' stdoutBuf stderrBuf - stdoutBuf' <- peek stdoutBuf - stdoutBuf'' <- cstringToText stdoutBuf' - freeMem stdoutBuf' - stderrBuf' <- peek stderrBuf - stderrBuf'' <- cstringToText stderrBuf' - freeMem stderrBuf' - touchManagedPtr _obj - touchManagedPtr result_ - freeMem stdoutBuf - freeMem stderrBuf - return (stdoutBuf'', stderrBuf'') - ) (do - freeMem stdoutBuf - freeMem stderrBuf - ) - -data SubprocessCommunicateUtf8FinishMethodInfo -instance (signature ~ (b -> m (T.Text,T.Text)), MonadIO m, SubprocessK a, AsyncResultK b) => MethodInfo SubprocessCommunicateUtf8FinishMethodInfo a signature where - overloadedMethod _ = subprocessCommunicateUtf8Finish - --- method Subprocess::force_exit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_force_exit" g_subprocess_force_exit :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - IO () - - -subprocessForceExit :: - (MonadIO m, SubprocessK a) => - a -- _obj - -> m () -- result -subprocessForceExit _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_subprocess_force_exit _obj' - touchManagedPtr _obj - return () - -data SubprocessForceExitMethodInfo -instance (signature ~ (m ()), MonadIO m, SubprocessK a) => MethodInfo SubprocessForceExitMethodInfo a signature where - overloadedMethod _ = subprocessForceExit - --- method Subprocess::get_exit_status --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_get_exit_status" g_subprocess_get_exit_status :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - IO Int32 - - -subprocessGetExitStatus :: - (MonadIO m, SubprocessK a) => - a -- _obj - -> m Int32 -- result -subprocessGetExitStatus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_subprocess_get_exit_status _obj' - touchManagedPtr _obj - return result - -data SubprocessGetExitStatusMethodInfo -instance (signature ~ (m Int32), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetExitStatusMethodInfo a signature where - overloadedMethod _ = subprocessGetExitStatus - --- method Subprocess::get_identifier --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_get_identifier" g_subprocess_get_identifier :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - IO CString - - -subprocessGetIdentifier :: - (MonadIO m, SubprocessK a) => - a -- _obj - -> m T.Text -- result -subprocessGetIdentifier _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_subprocess_get_identifier _obj' - checkUnexpectedReturnNULL "g_subprocess_get_identifier" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SubprocessGetIdentifierMethodInfo -instance (signature ~ (m T.Text), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetIdentifierMethodInfo a signature where - overloadedMethod _ = subprocessGetIdentifier - --- method Subprocess::get_if_exited --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_get_if_exited" g_subprocess_get_if_exited :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - IO CInt - - -subprocessGetIfExited :: - (MonadIO m, SubprocessK a) => - a -- _obj - -> m Bool -- result -subprocessGetIfExited _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_subprocess_get_if_exited _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SubprocessGetIfExitedMethodInfo -instance (signature ~ (m Bool), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetIfExitedMethodInfo a signature where - overloadedMethod _ = subprocessGetIfExited - --- method Subprocess::get_if_signaled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_get_if_signaled" g_subprocess_get_if_signaled :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - IO CInt - - -subprocessGetIfSignaled :: - (MonadIO m, SubprocessK a) => - a -- _obj - -> m Bool -- result -subprocessGetIfSignaled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_subprocess_get_if_signaled _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SubprocessGetIfSignaledMethodInfo -instance (signature ~ (m Bool), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetIfSignaledMethodInfo a signature where - overloadedMethod _ = subprocessGetIfSignaled - --- method Subprocess::get_status --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_get_status" g_subprocess_get_status :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - IO Int32 - - -subprocessGetStatus :: - (MonadIO m, SubprocessK a) => - a -- _obj - -> m Int32 -- result -subprocessGetStatus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_subprocess_get_status _obj' - touchManagedPtr _obj - return result - -data SubprocessGetStatusMethodInfo -instance (signature ~ (m Int32), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetStatusMethodInfo a signature where - overloadedMethod _ = subprocessGetStatus - --- method Subprocess::get_stderr_pipe --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_get_stderr_pipe" g_subprocess_get_stderr_pipe :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - IO (Ptr InputStream) - - -subprocessGetStderrPipe :: - (MonadIO m, SubprocessK a) => - a -- _obj - -> m InputStream -- result -subprocessGetStderrPipe _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_subprocess_get_stderr_pipe _obj' - checkUnexpectedReturnNULL "g_subprocess_get_stderr_pipe" result - result' <- (newObject InputStream) result - touchManagedPtr _obj - return result' - -data SubprocessGetStderrPipeMethodInfo -instance (signature ~ (m InputStream), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetStderrPipeMethodInfo a signature where - overloadedMethod _ = subprocessGetStderrPipe - --- method Subprocess::get_stdin_pipe --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "OutputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_get_stdin_pipe" g_subprocess_get_stdin_pipe :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - IO (Ptr OutputStream) - - -subprocessGetStdinPipe :: - (MonadIO m, SubprocessK a) => - a -- _obj - -> m OutputStream -- result -subprocessGetStdinPipe _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_subprocess_get_stdin_pipe _obj' - checkUnexpectedReturnNULL "g_subprocess_get_stdin_pipe" result - result' <- (newObject OutputStream) result - touchManagedPtr _obj - return result' - -data SubprocessGetStdinPipeMethodInfo -instance (signature ~ (m OutputStream), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetStdinPipeMethodInfo a signature where - overloadedMethod _ = subprocessGetStdinPipe - --- method Subprocess::get_stdout_pipe --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "InputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_get_stdout_pipe" g_subprocess_get_stdout_pipe :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - IO (Ptr InputStream) - - -subprocessGetStdoutPipe :: - (MonadIO m, SubprocessK a) => - a -- _obj - -> m InputStream -- result -subprocessGetStdoutPipe _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_subprocess_get_stdout_pipe _obj' - checkUnexpectedReturnNULL "g_subprocess_get_stdout_pipe" result - result' <- (newObject InputStream) result - touchManagedPtr _obj - return result' - -data SubprocessGetStdoutPipeMethodInfo -instance (signature ~ (m InputStream), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetStdoutPipeMethodInfo a signature where - overloadedMethod _ = subprocessGetStdoutPipe - --- method Subprocess::get_successful --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_get_successful" g_subprocess_get_successful :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - IO CInt - - -subprocessGetSuccessful :: - (MonadIO m, SubprocessK a) => - a -- _obj - -> m Bool -- result -subprocessGetSuccessful _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_subprocess_get_successful _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SubprocessGetSuccessfulMethodInfo -instance (signature ~ (m Bool), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetSuccessfulMethodInfo a signature where - overloadedMethod _ = subprocessGetSuccessful - --- method Subprocess::get_term_sig --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_get_term_sig" g_subprocess_get_term_sig :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - IO Int32 - - -subprocessGetTermSig :: - (MonadIO m, SubprocessK a) => - a -- _obj - -> m Int32 -- result -subprocessGetTermSig _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_subprocess_get_term_sig _obj' - touchManagedPtr _obj - return result - -data SubprocessGetTermSigMethodInfo -instance (signature ~ (m Int32), MonadIO m, SubprocessK a) => MethodInfo SubprocessGetTermSigMethodInfo a signature where - overloadedMethod _ = subprocessGetTermSig - --- method Subprocess::send_signal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signal_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_send_signal" g_subprocess_send_signal :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - Int32 -> -- signal_num : TBasicType TInt - IO () - - -subprocessSendSignal :: - (MonadIO m, SubprocessK a) => - a -- _obj - -> Int32 -- signalNum - -> m () -- result -subprocessSendSignal _obj signalNum = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_subprocess_send_signal _obj' signalNum - touchManagedPtr _obj - return () - -data SubprocessSendSignalMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, SubprocessK a) => MethodInfo SubprocessSendSignalMethodInfo a signature where - overloadedMethod _ = subprocessSendSignal - --- method Subprocess::wait --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_subprocess_wait" g_subprocess_wait :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -subprocessWait :: - (MonadIO m, SubprocessK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -subprocessWait _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_subprocess_wait _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data SubprocessWaitMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessWaitMethodInfo a signature where - overloadedMethod _ = subprocessWait - --- method Subprocess::wait_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_wait_async" g_subprocess_wait_async :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -subprocessWaitAsync :: - (MonadIO m, SubprocessK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -subprocessWaitAsync _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_subprocess_wait_async _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data SubprocessWaitAsyncMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessWaitAsyncMethodInfo a signature where - overloadedMethod _ = subprocessWaitAsync - --- method Subprocess::wait_check --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_subprocess_wait_check" g_subprocess_wait_check :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -subprocessWaitCheck :: - (MonadIO m, SubprocessK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -subprocessWaitCheck _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_subprocess_wait_check _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data SubprocessWaitCheckMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessWaitCheckMethodInfo a signature where - overloadedMethod _ = subprocessWaitCheck - --- method Subprocess::wait_check_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_wait_check_async" g_subprocess_wait_check_async :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -subprocessWaitCheckAsync :: - (MonadIO m, SubprocessK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -subprocessWaitCheckAsync _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_subprocess_wait_check_async _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data SubprocessWaitCheckAsyncMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, SubprocessK a, CancellableK b) => MethodInfo SubprocessWaitCheckAsyncMethodInfo a signature where - overloadedMethod _ = subprocessWaitCheckAsync - --- method Subprocess::wait_check_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_subprocess_wait_check_finish" g_subprocess_wait_check_finish :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -subprocessWaitCheckFinish :: - (MonadIO m, SubprocessK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -subprocessWaitCheckFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_subprocess_wait_check_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data SubprocessWaitCheckFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, SubprocessK a, AsyncResultK b) => MethodInfo SubprocessWaitCheckFinishMethodInfo a signature where - overloadedMethod _ = subprocessWaitCheckFinish - --- method Subprocess::wait_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Subprocess", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_subprocess_wait_finish" g_subprocess_wait_finish :: - Ptr Subprocess -> -- _obj : TInterface "Gio" "Subprocess" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -subprocessWaitFinish :: - (MonadIO m, SubprocessK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -subprocessWaitFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_subprocess_wait_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data SubprocessWaitFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, SubprocessK a, AsyncResultK b) => MethodInfo SubprocessWaitFinishMethodInfo a signature where - overloadedMethod _ = subprocessWaitFinish - - diff --git a/GI/Gio/Objects/Subprocess.hs-boot b/GI/Gio/Objects/Subprocess.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/Subprocess.hs-boot +++ /dev/null @@ -1,39 +0,0 @@ -module GI.Gio.Objects.Subprocess where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Subprocess = Subprocess (ForeignPtr Subprocess) -instance GObject Subprocess where -class GObject o => SubprocessK o -instance (GObject o, IsDescendantOf Subprocess o) => SubprocessK o -data SubprocessArgvPropertyInfo -data SubprocessFlagsPropertyInfo -data SubprocessCommunicateMethodInfo -data SubprocessCommunicateAsyncMethodInfo -data SubprocessCommunicateFinishMethodInfo -data SubprocessCommunicateUtf8MethodInfo -data SubprocessCommunicateUtf8AsyncMethodInfo -data SubprocessCommunicateUtf8FinishMethodInfo -data SubprocessForceExitMethodInfo -data SubprocessGetExitStatusMethodInfo -data SubprocessGetIdentifierMethodInfo -data SubprocessGetIfExitedMethodInfo -data SubprocessGetIfSignaledMethodInfo -data SubprocessGetStatusMethodInfo -data SubprocessGetStderrPipeMethodInfo -data SubprocessGetStdinPipeMethodInfo -data SubprocessGetStdoutPipeMethodInfo -data SubprocessGetSuccessfulMethodInfo -data SubprocessGetTermSigMethodInfo -data SubprocessSendSignalMethodInfo -data SubprocessWaitMethodInfo -data SubprocessWaitAsyncMethodInfo -data SubprocessWaitCheckMethodInfo -data SubprocessWaitCheckAsyncMethodInfo -data SubprocessWaitCheckFinishMethodInfo -data SubprocessWaitFinishMethodInfo diff --git a/GI/Gio/Objects/SubprocessLauncher.hs b/GI/Gio/Objects/SubprocessLauncher.hs deleted file mode 100644 --- a/GI/Gio/Objects/SubprocessLauncher.hs +++ /dev/null @@ -1,725 +0,0 @@ - - -{- | -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.Objects.SubprocessLauncher - ( - --- * Exported types - SubprocessLauncher(..) , - SubprocessLauncherK , - toSubprocessLauncher , - noSubprocessLauncher , - - - -- * Methods --- ** subprocessLauncherGetenv - SubprocessLauncherGetenvMethodInfo , - subprocessLauncherGetenv , - - --- ** subprocessLauncherNew - subprocessLauncherNew , - - --- ** subprocessLauncherSetChildSetup - SubprocessLauncherSetChildSetupMethodInfo, - subprocessLauncherSetChildSetup , - - --- ** subprocessLauncherSetCwd - SubprocessLauncherSetCwdMethodInfo , - subprocessLauncherSetCwd , - - --- ** subprocessLauncherSetEnviron - SubprocessLauncherSetEnvironMethodInfo , - subprocessLauncherSetEnviron , - - --- ** subprocessLauncherSetFlags - SubprocessLauncherSetFlagsMethodInfo , - subprocessLauncherSetFlags , - - --- ** subprocessLauncherSetStderrFilePath - SubprocessLauncherSetStderrFilePathMethodInfo, - subprocessLauncherSetStderrFilePath , - - --- ** subprocessLauncherSetStdinFilePath - SubprocessLauncherSetStdinFilePathMethodInfo, - subprocessLauncherSetStdinFilePath , - - --- ** subprocessLauncherSetStdoutFilePath - SubprocessLauncherSetStdoutFilePathMethodInfo, - subprocessLauncherSetStdoutFilePath , - - --- ** subprocessLauncherSetenv - SubprocessLauncherSetenvMethodInfo , - subprocessLauncherSetenv , - - --- ** subprocessLauncherSpawnv - SubprocessLauncherSpawnvMethodInfo , - subprocessLauncherSpawnv , - - --- ** subprocessLauncherTakeFd - SubprocessLauncherTakeFdMethodInfo , - subprocessLauncherTakeFd , - - --- ** subprocessLauncherTakeStderrFd - SubprocessLauncherTakeStderrFdMethodInfo, - subprocessLauncherTakeStderrFd , - - --- ** subprocessLauncherTakeStdinFd - SubprocessLauncherTakeStdinFdMethodInfo , - subprocessLauncherTakeStdinFd , - - --- ** subprocessLauncherTakeStdoutFd - SubprocessLauncherTakeStdoutFdMethodInfo, - subprocessLauncherTakeStdoutFd , - - --- ** subprocessLauncherUnsetenv - SubprocessLauncherUnsetenvMethodInfo , - subprocessLauncherUnsetenv , - - - - - -- * Properties --- ** Flags - SubprocessLauncherFlagsPropertyInfo , - constructSubprocessLauncherFlags , - subprocessLauncherFlags , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype SubprocessLauncher = SubprocessLauncher (ForeignPtr SubprocessLauncher) -foreign import ccall "g_subprocess_launcher_get_type" - c_g_subprocess_launcher_get_type :: IO GType - -type instance ParentTypes SubprocessLauncher = SubprocessLauncherParentTypes -type SubprocessLauncherParentTypes = '[GObject.Object] - -instance GObject SubprocessLauncher where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_subprocess_launcher_get_type - - -class GObject o => SubprocessLauncherK o -instance (GObject o, IsDescendantOf SubprocessLauncher o) => SubprocessLauncherK o - -toSubprocessLauncher :: SubprocessLauncherK o => o -> IO SubprocessLauncher -toSubprocessLauncher = unsafeCastTo SubprocessLauncher - -noSubprocessLauncher :: Maybe SubprocessLauncher -noSubprocessLauncher = Nothing - -type family ResolveSubprocessLauncherMethod (t :: Symbol) (o :: *) :: * where - ResolveSubprocessLauncherMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSubprocessLauncherMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSubprocessLauncherMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSubprocessLauncherMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSubprocessLauncherMethod "getenv" o = SubprocessLauncherGetenvMethodInfo - ResolveSubprocessLauncherMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSubprocessLauncherMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSubprocessLauncherMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSubprocessLauncherMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSubprocessLauncherMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSubprocessLauncherMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSubprocessLauncherMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSubprocessLauncherMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSubprocessLauncherMethod "setenv" o = SubprocessLauncherSetenvMethodInfo - ResolveSubprocessLauncherMethod "spawnv" o = SubprocessLauncherSpawnvMethodInfo - ResolveSubprocessLauncherMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSubprocessLauncherMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSubprocessLauncherMethod "takeFd" o = SubprocessLauncherTakeFdMethodInfo - ResolveSubprocessLauncherMethod "takeStderrFd" o = SubprocessLauncherTakeStderrFdMethodInfo - ResolveSubprocessLauncherMethod "takeStdinFd" o = SubprocessLauncherTakeStdinFdMethodInfo - ResolveSubprocessLauncherMethod "takeStdoutFd" o = SubprocessLauncherTakeStdoutFdMethodInfo - ResolveSubprocessLauncherMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSubprocessLauncherMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSubprocessLauncherMethod "unsetenv" o = SubprocessLauncherUnsetenvMethodInfo - ResolveSubprocessLauncherMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSubprocessLauncherMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSubprocessLauncherMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSubprocessLauncherMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSubprocessLauncherMethod "setChildSetup" o = SubprocessLauncherSetChildSetupMethodInfo - ResolveSubprocessLauncherMethod "setCwd" o = SubprocessLauncherSetCwdMethodInfo - ResolveSubprocessLauncherMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSubprocessLauncherMethod "setEnviron" o = SubprocessLauncherSetEnvironMethodInfo - ResolveSubprocessLauncherMethod "setFlags" o = SubprocessLauncherSetFlagsMethodInfo - ResolveSubprocessLauncherMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSubprocessLauncherMethod "setStderrFilePath" o = SubprocessLauncherSetStderrFilePathMethodInfo - ResolveSubprocessLauncherMethod "setStdinFilePath" o = SubprocessLauncherSetStdinFilePathMethodInfo - ResolveSubprocessLauncherMethod "setStdoutFilePath" o = SubprocessLauncherSetStdoutFilePathMethodInfo - ResolveSubprocessLauncherMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSubprocessLauncherMethod t SubprocessLauncher, MethodInfo info SubprocessLauncher p) => IsLabelProxy t (SubprocessLauncher -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSubprocessLauncherMethod t SubprocessLauncher, MethodInfo info SubprocessLauncher p) => IsLabel t (SubprocessLauncher -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "flags" - -- Type: TInterface "Gio" "SubprocessFlags" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Just False) - -constructSubprocessLauncherFlags :: [SubprocessFlags] -> IO ([Char], GValue) -constructSubprocessLauncherFlags val = constructObjectPropertyFlags "flags" val - -data SubprocessLauncherFlagsPropertyInfo -instance AttrInfo SubprocessLauncherFlagsPropertyInfo where - type AttrAllowedOps SubprocessLauncherFlagsPropertyInfo = '[ 'AttrConstruct] - type AttrSetTypeConstraint SubprocessLauncherFlagsPropertyInfo = (~) [SubprocessFlags] - type AttrBaseTypeConstraint SubprocessLauncherFlagsPropertyInfo = SubprocessLauncherK - type AttrGetType SubprocessLauncherFlagsPropertyInfo = () - type AttrLabel SubprocessLauncherFlagsPropertyInfo = "flags" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructSubprocessLauncherFlags - attrClear _ = undefined - -type instance AttributeList SubprocessLauncher = SubprocessLauncherAttributeList -type SubprocessLauncherAttributeList = ('[ '("flags", SubprocessLauncherFlagsPropertyInfo)] :: [(Symbol, *)]) - -subprocessLauncherFlags :: AttrLabelProxy "flags" -subprocessLauncherFlags = AttrLabelProxy - -type instance SignalList SubprocessLauncher = SubprocessLauncherSignalList -type SubprocessLauncherSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SubprocessLauncher::new --- method type : Constructor --- Args : [Arg {argCName = "flags", argType = TInterface "Gio" "SubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SubprocessLauncher") --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_launcher_new" g_subprocess_launcher_new :: - CUInt -> -- flags : TInterface "Gio" "SubprocessFlags" - IO (Ptr SubprocessLauncher) - - -subprocessLauncherNew :: - (MonadIO m) => - [SubprocessFlags] -- flags - -> m SubprocessLauncher -- result -subprocessLauncherNew flags = liftIO $ do - let flags' = gflagsToWord flags - result <- g_subprocess_launcher_new flags' - checkUnexpectedReturnNULL "g_subprocess_launcher_new" result - result' <- (wrapObject SubprocessLauncher) result - return result' - --- method SubprocessLauncher::getenv --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_launcher_getenv" g_subprocess_launcher_getenv :: - Ptr SubprocessLauncher -> -- _obj : TInterface "Gio" "SubprocessLauncher" - CString -> -- variable : TBasicType TUTF8 - IO CString - - -subprocessLauncherGetenv :: - (MonadIO m, SubprocessLauncherK a) => - a -- _obj - -> T.Text -- variable - -> m T.Text -- result -subprocessLauncherGetenv _obj variable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - variable' <- textToCString variable - result <- g_subprocess_launcher_getenv _obj' variable' - checkUnexpectedReturnNULL "g_subprocess_launcher_getenv" result - result' <- cstringToText result - touchManagedPtr _obj - freeMem variable' - return result' - -data SubprocessLauncherGetenvMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherGetenvMethodInfo a signature where - overloadedMethod _ = subprocessLauncherGetenv - --- method SubprocessLauncher::set_child_setup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_setup", argType = TInterface "GLib" "SpawnChildSetupFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_launcher_set_child_setup" g_subprocess_launcher_set_child_setup :: - Ptr SubprocessLauncher -> -- _obj : TInterface "Gio" "SubprocessLauncher" - FunPtr GLib.SpawnChildSetupFuncC -> -- child_setup : TInterface "GLib" "SpawnChildSetupFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy_notify : TInterface "GLib" "DestroyNotify" - IO () - - -subprocessLauncherSetChildSetup :: - (MonadIO m, SubprocessLauncherK a) => - a -- _obj - -> GLib.SpawnChildSetupFunc -- childSetup - -> m () -- result -subprocessLauncherSetChildSetup _obj childSetup = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - childSetup' <- GLib.mkSpawnChildSetupFunc (GLib.spawnChildSetupFuncWrapper Nothing childSetup) - let userData = castFunPtrToPtr childSetup' - let destroyNotify = safeFreeFunPtrPtr - g_subprocess_launcher_set_child_setup _obj' childSetup' userData destroyNotify - touchManagedPtr _obj - return () - -data SubprocessLauncherSetChildSetupMethodInfo -instance (signature ~ (GLib.SpawnChildSetupFunc -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetChildSetupMethodInfo a signature where - overloadedMethod _ = subprocessLauncherSetChildSetup - --- method SubprocessLauncher::set_cwd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cwd", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_launcher_set_cwd" g_subprocess_launcher_set_cwd :: - Ptr SubprocessLauncher -> -- _obj : TInterface "Gio" "SubprocessLauncher" - CString -> -- cwd : TBasicType TUTF8 - IO () - - -subprocessLauncherSetCwd :: - (MonadIO m, SubprocessLauncherK a) => - a -- _obj - -> T.Text -- cwd - -> m () -- result -subprocessLauncherSetCwd _obj cwd = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - cwd' <- textToCString cwd - g_subprocess_launcher_set_cwd _obj' cwd' - touchManagedPtr _obj - freeMem cwd' - return () - -data SubprocessLauncherSetCwdMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetCwdMethodInfo a signature where - overloadedMethod _ = subprocessLauncherSetCwd - --- method SubprocessLauncher::set_environ --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "env", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_launcher_set_environ" g_subprocess_launcher_set_environ :: - Ptr SubprocessLauncher -> -- _obj : TInterface "Gio" "SubprocessLauncher" - CString -> -- env : TBasicType TUTF8 - IO () - - -subprocessLauncherSetEnviron :: - (MonadIO m, SubprocessLauncherK a) => - a -- _obj - -> T.Text -- env - -> m () -- result -subprocessLauncherSetEnviron _obj env = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - env' <- textToCString env - g_subprocess_launcher_set_environ _obj' env' - touchManagedPtr _obj - freeMem env' - return () - -data SubprocessLauncherSetEnvironMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetEnvironMethodInfo a signature where - overloadedMethod _ = subprocessLauncherSetEnviron - --- method SubprocessLauncher::set_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "SubprocessFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_launcher_set_flags" g_subprocess_launcher_set_flags :: - Ptr SubprocessLauncher -> -- _obj : TInterface "Gio" "SubprocessLauncher" - CUInt -> -- flags : TInterface "Gio" "SubprocessFlags" - IO () - - -subprocessLauncherSetFlags :: - (MonadIO m, SubprocessLauncherK a) => - a -- _obj - -> [SubprocessFlags] -- flags - -> m () -- result -subprocessLauncherSetFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - g_subprocess_launcher_set_flags _obj' flags' - touchManagedPtr _obj - return () - -data SubprocessLauncherSetFlagsMethodInfo -instance (signature ~ ([SubprocessFlags] -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetFlagsMethodInfo a signature where - overloadedMethod _ = subprocessLauncherSetFlags - --- method SubprocessLauncher::set_stderr_file_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_launcher_set_stderr_file_path" g_subprocess_launcher_set_stderr_file_path :: - Ptr SubprocessLauncher -> -- _obj : TInterface "Gio" "SubprocessLauncher" - CString -> -- path : TBasicType TUTF8 - IO () - - -subprocessLauncherSetStderrFilePath :: - (MonadIO m, SubprocessLauncherK a) => - a -- _obj - -> T.Text -- path - -> m () -- result -subprocessLauncherSetStderrFilePath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - g_subprocess_launcher_set_stderr_file_path _obj' path' - touchManagedPtr _obj - freeMem path' - return () - -data SubprocessLauncherSetStderrFilePathMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetStderrFilePathMethodInfo a signature where - overloadedMethod _ = subprocessLauncherSetStderrFilePath - --- method SubprocessLauncher::set_stdin_file_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_launcher_set_stdin_file_path" g_subprocess_launcher_set_stdin_file_path :: - Ptr SubprocessLauncher -> -- _obj : TInterface "Gio" "SubprocessLauncher" - CString -> -- path : TBasicType TUTF8 - IO () - - -subprocessLauncherSetStdinFilePath :: - (MonadIO m, SubprocessLauncherK a) => - a -- _obj - -> T.Text -- path - -> m () -- result -subprocessLauncherSetStdinFilePath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - g_subprocess_launcher_set_stdin_file_path _obj' path' - touchManagedPtr _obj - freeMem path' - return () - -data SubprocessLauncherSetStdinFilePathMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetStdinFilePathMethodInfo a signature where - overloadedMethod _ = subprocessLauncherSetStdinFilePath - --- method SubprocessLauncher::set_stdout_file_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_launcher_set_stdout_file_path" g_subprocess_launcher_set_stdout_file_path :: - Ptr SubprocessLauncher -> -- _obj : TInterface "Gio" "SubprocessLauncher" - CString -> -- path : TBasicType TUTF8 - IO () - - -subprocessLauncherSetStdoutFilePath :: - (MonadIO m, SubprocessLauncherK a) => - a -- _obj - -> T.Text -- path - -> m () -- result -subprocessLauncherSetStdoutFilePath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - g_subprocess_launcher_set_stdout_file_path _obj' path' - touchManagedPtr _obj - freeMem path' - return () - -data SubprocessLauncherSetStdoutFilePathMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetStdoutFilePathMethodInfo a signature where - overloadedMethod _ = subprocessLauncherSetStdoutFilePath - --- method SubprocessLauncher::setenv --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "overwrite", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_launcher_setenv" g_subprocess_launcher_setenv :: - Ptr SubprocessLauncher -> -- _obj : TInterface "Gio" "SubprocessLauncher" - CString -> -- variable : TBasicType TUTF8 - CString -> -- value : TBasicType TUTF8 - CInt -> -- overwrite : TBasicType TBoolean - IO () - - -subprocessLauncherSetenv :: - (MonadIO m, SubprocessLauncherK a) => - a -- _obj - -> T.Text -- variable - -> T.Text -- value - -> Bool -- overwrite - -> m () -- result -subprocessLauncherSetenv _obj variable value overwrite = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - variable' <- textToCString variable - value' <- textToCString value - let overwrite' = (fromIntegral . fromEnum) overwrite - g_subprocess_launcher_setenv _obj' variable' value' overwrite' - touchManagedPtr _obj - freeMem variable' - freeMem value' - return () - -data SubprocessLauncherSetenvMethodInfo -instance (signature ~ (T.Text -> T.Text -> Bool -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSetenvMethodInfo a signature where - overloadedMethod _ = subprocessLauncherSetenv - --- method SubprocessLauncher::spawnv --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argv", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Subprocess") --- throws : True --- Skip return : False - -foreign import ccall "g_subprocess_launcher_spawnv" g_subprocess_launcher_spawnv :: - Ptr SubprocessLauncher -> -- _obj : TInterface "Gio" "SubprocessLauncher" - Ptr CString -> -- argv : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr (Ptr GError) -> -- error - IO (Ptr Subprocess) - - -subprocessLauncherSpawnv :: - (MonadIO m, SubprocessLauncherK a) => - a -- _obj - -> [T.Text] -- argv - -> m Subprocess -- result -subprocessLauncherSpawnv _obj argv = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - argv' <- packZeroTerminatedUTF8CArray argv - onException (do - result <- propagateGError $ g_subprocess_launcher_spawnv _obj' argv' - checkUnexpectedReturnNULL "g_subprocess_launcher_spawnv" result - result' <- (wrapObject Subprocess) result - touchManagedPtr _obj - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - return result' - ) (do - mapZeroTerminatedCArray freeMem argv' - freeMem argv' - ) - -data SubprocessLauncherSpawnvMethodInfo -instance (signature ~ ([T.Text] -> m Subprocess), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherSpawnvMethodInfo a signature where - overloadedMethod _ = subprocessLauncherSpawnv - --- method SubprocessLauncher::take_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target_fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_launcher_take_fd" g_subprocess_launcher_take_fd :: - Ptr SubprocessLauncher -> -- _obj : TInterface "Gio" "SubprocessLauncher" - Int32 -> -- source_fd : TBasicType TInt - Int32 -> -- target_fd : TBasicType TInt - IO () - - -subprocessLauncherTakeFd :: - (MonadIO m, SubprocessLauncherK a) => - a -- _obj - -> Int32 -- sourceFd - -> Int32 -- targetFd - -> m () -- result -subprocessLauncherTakeFd _obj sourceFd targetFd = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_subprocess_launcher_take_fd _obj' sourceFd targetFd - touchManagedPtr _obj - return () - -data SubprocessLauncherTakeFdMethodInfo -instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherTakeFdMethodInfo a signature where - overloadedMethod _ = subprocessLauncherTakeFd - --- method SubprocessLauncher::take_stderr_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_launcher_take_stderr_fd" g_subprocess_launcher_take_stderr_fd :: - Ptr SubprocessLauncher -> -- _obj : TInterface "Gio" "SubprocessLauncher" - Int32 -> -- fd : TBasicType TInt - IO () - - -subprocessLauncherTakeStderrFd :: - (MonadIO m, SubprocessLauncherK a) => - a -- _obj - -> Int32 -- fd - -> m () -- result -subprocessLauncherTakeStderrFd _obj fd = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_subprocess_launcher_take_stderr_fd _obj' fd - touchManagedPtr _obj - return () - -data SubprocessLauncherTakeStderrFdMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherTakeStderrFdMethodInfo a signature where - overloadedMethod _ = subprocessLauncherTakeStderrFd - --- method SubprocessLauncher::take_stdin_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_launcher_take_stdin_fd" g_subprocess_launcher_take_stdin_fd :: - Ptr SubprocessLauncher -> -- _obj : TInterface "Gio" "SubprocessLauncher" - Int32 -> -- fd : TBasicType TInt - IO () - - -subprocessLauncherTakeStdinFd :: - (MonadIO m, SubprocessLauncherK a) => - a -- _obj - -> Int32 -- fd - -> m () -- result -subprocessLauncherTakeStdinFd _obj fd = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_subprocess_launcher_take_stdin_fd _obj' fd - touchManagedPtr _obj - return () - -data SubprocessLauncherTakeStdinFdMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherTakeStdinFdMethodInfo a signature where - overloadedMethod _ = subprocessLauncherTakeStdinFd - --- method SubprocessLauncher::take_stdout_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_launcher_take_stdout_fd" g_subprocess_launcher_take_stdout_fd :: - Ptr SubprocessLauncher -> -- _obj : TInterface "Gio" "SubprocessLauncher" - Int32 -> -- fd : TBasicType TInt - IO () - - -subprocessLauncherTakeStdoutFd :: - (MonadIO m, SubprocessLauncherK a) => - a -- _obj - -> Int32 -- fd - -> m () -- result -subprocessLauncherTakeStdoutFd _obj fd = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_subprocess_launcher_take_stdout_fd _obj' fd - touchManagedPtr _obj - return () - -data SubprocessLauncherTakeStdoutFdMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherTakeStdoutFdMethodInfo a signature where - overloadedMethod _ = subprocessLauncherTakeStdoutFd - --- method SubprocessLauncher::unsetenv --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SubprocessLauncher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "variable", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_subprocess_launcher_unsetenv" g_subprocess_launcher_unsetenv :: - Ptr SubprocessLauncher -> -- _obj : TInterface "Gio" "SubprocessLauncher" - CString -> -- variable : TBasicType TUTF8 - IO () - - -subprocessLauncherUnsetenv :: - (MonadIO m, SubprocessLauncherK a) => - a -- _obj - -> T.Text -- variable - -> m () -- result -subprocessLauncherUnsetenv _obj variable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - variable' <- textToCString variable - g_subprocess_launcher_unsetenv _obj' variable' - touchManagedPtr _obj - freeMem variable' - return () - -data SubprocessLauncherUnsetenvMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, SubprocessLauncherK a) => MethodInfo SubprocessLauncherUnsetenvMethodInfo a signature where - overloadedMethod _ = subprocessLauncherUnsetenv - - diff --git a/GI/Gio/Objects/SubprocessLauncher.hs-boot b/GI/Gio/Objects/SubprocessLauncher.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/SubprocessLauncher.hs-boot +++ /dev/null @@ -1,29 +0,0 @@ -module GI.Gio.Objects.SubprocessLauncher where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SubprocessLauncher = SubprocessLauncher (ForeignPtr SubprocessLauncher) -instance GObject SubprocessLauncher where -class GObject o => SubprocessLauncherK o -instance (GObject o, IsDescendantOf SubprocessLauncher o) => SubprocessLauncherK o -data SubprocessLauncherFlagsPropertyInfo -data SubprocessLauncherGetenvMethodInfo -data SubprocessLauncherSetChildSetupMethodInfo -data SubprocessLauncherSetCwdMethodInfo -data SubprocessLauncherSetEnvironMethodInfo -data SubprocessLauncherSetFlagsMethodInfo -data SubprocessLauncherSetStderrFilePathMethodInfo -data SubprocessLauncherSetStdinFilePathMethodInfo -data SubprocessLauncherSetStdoutFilePathMethodInfo -data SubprocessLauncherSetenvMethodInfo -data SubprocessLauncherSpawnvMethodInfo -data SubprocessLauncherTakeFdMethodInfo -data SubprocessLauncherTakeStderrFdMethodInfo -data SubprocessLauncherTakeStdinFdMethodInfo -data SubprocessLauncherTakeStdoutFdMethodInfo -data SubprocessLauncherUnsetenvMethodInfo diff --git a/GI/Gio/Objects/Task.hs b/GI/Gio/Objects/Task.hs deleted file mode 100644 --- a/GI/Gio/Objects/Task.hs +++ /dev/null @@ -1,1093 +0,0 @@ - - -{- | -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.Objects.Task - ( - --- * Exported types - Task(..) , - TaskK , - toTask , - noTask , - - - -- * Methods --- ** taskGetCancellable - TaskGetCancellableMethodInfo , - taskGetCancellable , - - --- ** taskGetCheckCancellable - TaskGetCheckCancellableMethodInfo , - taskGetCheckCancellable , - - --- ** taskGetCompleted - TaskGetCompletedMethodInfo , - taskGetCompleted , - - --- ** taskGetContext - TaskGetContextMethodInfo , - taskGetContext , - - --- ** taskGetPriority - TaskGetPriorityMethodInfo , - taskGetPriority , - - --- ** taskGetReturnOnCancel - TaskGetReturnOnCancelMethodInfo , - taskGetReturnOnCancel , - - --- ** taskGetSourceObject - TaskGetSourceObjectMethodInfo , - taskGetSourceObject , - - --- ** taskGetSourceTag - TaskGetSourceTagMethodInfo , - taskGetSourceTag , - - --- ** taskGetTaskData - TaskGetTaskDataMethodInfo , - taskGetTaskData , - - --- ** taskHadError - TaskHadErrorMethodInfo , - taskHadError , - - --- ** taskIsValid - taskIsValid , - - --- ** taskNew - taskNew , - - --- ** taskPropagateBoolean - TaskPropagateBooleanMethodInfo , - taskPropagateBoolean , - - --- ** taskPropagateInt - TaskPropagateIntMethodInfo , - taskPropagateInt , - - --- ** taskPropagatePointer - TaskPropagatePointerMethodInfo , - taskPropagatePointer , - - --- ** taskReportError - taskReportError , - - --- ** taskReturnBoolean - TaskReturnBooleanMethodInfo , - taskReturnBoolean , - - --- ** taskReturnError - TaskReturnErrorMethodInfo , - taskReturnError , - - --- ** taskReturnErrorIfCancelled - TaskReturnErrorIfCancelledMethodInfo , - taskReturnErrorIfCancelled , - - --- ** taskReturnInt - TaskReturnIntMethodInfo , - taskReturnInt , - - --- ** taskReturnPointer - TaskReturnPointerMethodInfo , - taskReturnPointer , - - --- ** taskSetCheckCancellable - TaskSetCheckCancellableMethodInfo , - taskSetCheckCancellable , - - --- ** taskSetPriority - TaskSetPriorityMethodInfo , - taskSetPriority , - - --- ** taskSetReturnOnCancel - TaskSetReturnOnCancelMethodInfo , - taskSetReturnOnCancel , - - --- ** taskSetSourceTag - TaskSetSourceTagMethodInfo , - taskSetSourceTag , - - --- ** taskSetTaskData - TaskSetTaskDataMethodInfo , - taskSetTaskData , - - - - - -- * Properties --- ** Completed - TaskCompletedPropertyInfo , - getTaskCompleted , - taskCompleted , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype Task = Task (ForeignPtr Task) -foreign import ccall "g_task_get_type" - c_g_task_get_type :: IO GType - -type instance ParentTypes Task = TaskParentTypes -type TaskParentTypes = '[GObject.Object, AsyncResult] - -instance GObject Task where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_task_get_type - - -class GObject o => TaskK o -instance (GObject o, IsDescendantOf Task o) => TaskK o - -toTask :: TaskK o => o -> IO Task -toTask = unsafeCastTo Task - -noTask :: Maybe Task -noTask = Nothing - -type family ResolveTaskMethod (t :: Symbol) (o :: *) :: * where - ResolveTaskMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTaskMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTaskMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTaskMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTaskMethod "hadError" o = TaskHadErrorMethodInfo - ResolveTaskMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTaskMethod "isTagged" o = AsyncResultIsTaggedMethodInfo - ResolveTaskMethod "legacyPropagateError" o = AsyncResultLegacyPropagateErrorMethodInfo - ResolveTaskMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTaskMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTaskMethod "propagateBoolean" o = TaskPropagateBooleanMethodInfo - ResolveTaskMethod "propagateInt" o = TaskPropagateIntMethodInfo - ResolveTaskMethod "propagatePointer" o = TaskPropagatePointerMethodInfo - ResolveTaskMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTaskMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTaskMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTaskMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTaskMethod "returnBoolean" o = TaskReturnBooleanMethodInfo - ResolveTaskMethod "returnError" o = TaskReturnErrorMethodInfo - ResolveTaskMethod "returnErrorIfCancelled" o = TaskReturnErrorIfCancelledMethodInfo - ResolveTaskMethod "returnInt" o = TaskReturnIntMethodInfo - ResolveTaskMethod "returnPointer" o = TaskReturnPointerMethodInfo - ResolveTaskMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTaskMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTaskMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTaskMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTaskMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTaskMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTaskMethod "getCancellable" o = TaskGetCancellableMethodInfo - ResolveTaskMethod "getCheckCancellable" o = TaskGetCheckCancellableMethodInfo - ResolveTaskMethod "getCompleted" o = TaskGetCompletedMethodInfo - ResolveTaskMethod "getContext" o = TaskGetContextMethodInfo - ResolveTaskMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTaskMethod "getPriority" o = TaskGetPriorityMethodInfo - ResolveTaskMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTaskMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTaskMethod "getReturnOnCancel" o = TaskGetReturnOnCancelMethodInfo - ResolveTaskMethod "getSourceTag" o = TaskGetSourceTagMethodInfo - ResolveTaskMethod "getTaskData" o = TaskGetTaskDataMethodInfo - ResolveTaskMethod "getUserData" o = AsyncResultGetUserDataMethodInfo - ResolveTaskMethod "setCheckCancellable" o = TaskSetCheckCancellableMethodInfo - ResolveTaskMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTaskMethod "setPriority" o = TaskSetPriorityMethodInfo - ResolveTaskMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTaskMethod "setReturnOnCancel" o = TaskSetReturnOnCancelMethodInfo - ResolveTaskMethod "setSourceTag" o = TaskSetSourceTagMethodInfo - ResolveTaskMethod "setTaskData" o = TaskSetTaskDataMethodInfo - ResolveTaskMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTaskMethod t Task, MethodInfo info Task p) => IsLabelProxy t (Task -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTaskMethod t Task, MethodInfo info Task p) => IsLabel t (Task -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "completed" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getTaskCompleted :: (MonadIO m, TaskK o) => o -> m Bool -getTaskCompleted obj = liftIO $ getObjectPropertyBool obj "completed" - -data TaskCompletedPropertyInfo -instance AttrInfo TaskCompletedPropertyInfo where - type AttrAllowedOps TaskCompletedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint TaskCompletedPropertyInfo = (~) () - type AttrBaseTypeConstraint TaskCompletedPropertyInfo = TaskK - type AttrGetType TaskCompletedPropertyInfo = Bool - type AttrLabel TaskCompletedPropertyInfo = "completed" - attrGet _ = getTaskCompleted - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList Task = TaskAttributeList -type TaskAttributeList = ('[ '("completed", TaskCompletedPropertyInfo)] :: [(Symbol, *)]) - -taskCompleted :: AttrLabelProxy "completed" -taskCompleted = AttrLabelProxy - -type instance SignalList Task = TaskSignalList -type TaskSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Task::new --- method type : Constructor --- Args : [Arg {argCName = "source_object", argType = TInterface "GObject" "Object", 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},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Task") --- throws : False --- Skip return : False - -foreign import ccall "g_task_new" g_task_new :: - Ptr GObject.Object -> -- source_object : TInterface "GObject" "Object" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- callback_data : TBasicType TPtr - IO (Ptr Task) - - -taskNew :: - (MonadIO m, GObject.ObjectK a, CancellableK b) => - Maybe (a) -- sourceObject - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m Task -- result -taskNew sourceObject cancellable callback = liftIO $ do - maybeSourceObject <- case sourceObject of - Nothing -> return nullPtr - Just jSourceObject -> do - let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject - return jSourceObject' - 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 callbackData = nullPtr - result <- g_task_new maybeSourceObject maybeCancellable maybeCallback callbackData - checkUnexpectedReturnNULL "g_task_new" result - result' <- (wrapObject Task) result - whenJust sourceObject touchManagedPtr - whenJust cancellable touchManagedPtr - return result' - --- method Task::get_cancellable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Cancellable") --- throws : False --- Skip return : False - -foreign import ccall "g_task_get_cancellable" g_task_get_cancellable :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - IO (Ptr Cancellable) - - -taskGetCancellable :: - (MonadIO m, TaskK a) => - a -- _obj - -> m Cancellable -- result -taskGetCancellable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_task_get_cancellable _obj' - checkUnexpectedReturnNULL "g_task_get_cancellable" result - result' <- (newObject Cancellable) result - touchManagedPtr _obj - return result' - -data TaskGetCancellableMethodInfo -instance (signature ~ (m Cancellable), MonadIO m, TaskK a) => MethodInfo TaskGetCancellableMethodInfo a signature where - overloadedMethod _ = taskGetCancellable - --- method Task::get_check_cancellable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_task_get_check_cancellable" g_task_get_check_cancellable :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - IO CInt - - -taskGetCheckCancellable :: - (MonadIO m, TaskK a) => - a -- _obj - -> m Bool -- result -taskGetCheckCancellable _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_task_get_check_cancellable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TaskGetCheckCancellableMethodInfo -instance (signature ~ (m Bool), MonadIO m, TaskK a) => MethodInfo TaskGetCheckCancellableMethodInfo a signature where - overloadedMethod _ = taskGetCheckCancellable - --- method Task::get_completed --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_task_get_completed" g_task_get_completed :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - IO CInt - - -taskGetCompleted :: - (MonadIO m, TaskK a) => - a -- _obj - -> m Bool -- result -taskGetCompleted _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_task_get_completed _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TaskGetCompletedMethodInfo -instance (signature ~ (m Bool), MonadIO m, TaskK a) => MethodInfo TaskGetCompletedMethodInfo a signature where - overloadedMethod _ = taskGetCompleted - --- method Task::get_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "MainContext") --- throws : False --- Skip return : False - -foreign import ccall "g_task_get_context" g_task_get_context :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - IO (Ptr GLib.MainContext) - - -taskGetContext :: - (MonadIO m, TaskK a) => - a -- _obj - -> m GLib.MainContext -- result -taskGetContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_task_get_context _obj' - checkUnexpectedReturnNULL "g_task_get_context" result - result' <- (newBoxed GLib.MainContext) result - touchManagedPtr _obj - return result' - -data TaskGetContextMethodInfo -instance (signature ~ (m GLib.MainContext), MonadIO m, TaskK a) => MethodInfo TaskGetContextMethodInfo a signature where - overloadedMethod _ = taskGetContext - --- method Task::get_priority --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_task_get_priority" g_task_get_priority :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - IO Int32 - - -taskGetPriority :: - (MonadIO m, TaskK a) => - a -- _obj - -> m Int32 -- result -taskGetPriority _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_task_get_priority _obj' - touchManagedPtr _obj - return result - -data TaskGetPriorityMethodInfo -instance (signature ~ (m Int32), MonadIO m, TaskK a) => MethodInfo TaskGetPriorityMethodInfo a signature where - overloadedMethod _ = taskGetPriority - --- method Task::get_return_on_cancel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_task_get_return_on_cancel" g_task_get_return_on_cancel :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - IO CInt - - -taskGetReturnOnCancel :: - (MonadIO m, TaskK a) => - a -- _obj - -> m Bool -- result -taskGetReturnOnCancel _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_task_get_return_on_cancel _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TaskGetReturnOnCancelMethodInfo -instance (signature ~ (m Bool), MonadIO m, TaskK a) => MethodInfo TaskGetReturnOnCancelMethodInfo a signature where - overloadedMethod _ = taskGetReturnOnCancel - --- method Task::get_source_object --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GObject" "Object") --- throws : False --- Skip return : False - -foreign import ccall "g_task_get_source_object" g_task_get_source_object :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - IO (Ptr GObject.Object) - - -taskGetSourceObject :: - (MonadIO m, TaskK a) => - a -- _obj - -> m GObject.Object -- result -taskGetSourceObject _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_task_get_source_object _obj' - checkUnexpectedReturnNULL "g_task_get_source_object" result - result' <- (newObject GObject.Object) result - touchManagedPtr _obj - return result' - -data TaskGetSourceObjectMethodInfo -instance (signature ~ (m GObject.Object), MonadIO m, TaskK a) => MethodInfo TaskGetSourceObjectMethodInfo a signature where - overloadedMethod _ = taskGetSourceObject - --- method Task::get_source_tag --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TPtr) --- throws : False --- Skip return : False - -foreign import ccall "g_task_get_source_tag" g_task_get_source_tag :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - IO (Ptr ()) - - -taskGetSourceTag :: - (MonadIO m, TaskK a) => - a -- _obj - -> m (Ptr ()) -- result -taskGetSourceTag _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_task_get_source_tag _obj' - touchManagedPtr _obj - return result - -data TaskGetSourceTagMethodInfo -instance (signature ~ (m (Ptr ())), MonadIO m, TaskK a) => MethodInfo TaskGetSourceTagMethodInfo a signature where - overloadedMethod _ = taskGetSourceTag - --- method Task::get_task_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TPtr) --- throws : False --- Skip return : False - -foreign import ccall "g_task_get_task_data" g_task_get_task_data :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - IO (Ptr ()) - - -taskGetTaskData :: - (MonadIO m, TaskK a) => - a -- _obj - -> m (Ptr ()) -- result -taskGetTaskData _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_task_get_task_data _obj' - touchManagedPtr _obj - return result - -data TaskGetTaskDataMethodInfo -instance (signature ~ (m (Ptr ())), MonadIO m, TaskK a) => MethodInfo TaskGetTaskDataMethodInfo a signature where - overloadedMethod _ = taskGetTaskData - --- method Task::had_error --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_task_had_error" g_task_had_error :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - IO CInt - - -taskHadError :: - (MonadIO m, TaskK a) => - a -- _obj - -> m Bool -- result -taskHadError _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_task_had_error _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TaskHadErrorMethodInfo -instance (signature ~ (m Bool), MonadIO m, TaskK a) => MethodInfo TaskHadErrorMethodInfo a signature where - overloadedMethod _ = taskHadError - --- method Task::propagate_boolean --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_task_propagate_boolean" g_task_propagate_boolean :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - Ptr (Ptr GError) -> -- error - IO CInt - - -taskPropagateBoolean :: - (MonadIO m, TaskK a) => - a -- _obj - -> m () -- result -taskPropagateBoolean _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ g_task_propagate_boolean _obj' - touchManagedPtr _obj - return () - ) (do - return () - ) - -data TaskPropagateBooleanMethodInfo -instance (signature ~ (m ()), MonadIO m, TaskK a) => MethodInfo TaskPropagateBooleanMethodInfo a signature where - overloadedMethod _ = taskPropagateBoolean - --- method Task::propagate_int --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt64) --- throws : True --- Skip return : False - -foreign import ccall "g_task_propagate_int" g_task_propagate_int :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - Ptr (Ptr GError) -> -- error - IO Int64 - - -taskPropagateInt :: - (MonadIO m, TaskK a) => - a -- _obj - -> m Int64 -- result -taskPropagateInt _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ g_task_propagate_int _obj' - touchManagedPtr _obj - return result - ) (do - return () - ) - -data TaskPropagateIntMethodInfo -instance (signature ~ (m Int64), MonadIO m, TaskK a) => MethodInfo TaskPropagateIntMethodInfo a signature where - overloadedMethod _ = taskPropagateInt - --- method Task::propagate_pointer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TPtr) --- throws : True --- Skip return : False - -foreign import ccall "g_task_propagate_pointer" g_task_propagate_pointer :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - Ptr (Ptr GError) -> -- error - IO (Ptr ()) - - -taskPropagatePointer :: - (MonadIO m, TaskK a) => - a -- _obj - -> m (Ptr ()) -- result -taskPropagatePointer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ g_task_propagate_pointer _obj' - touchManagedPtr _obj - return result - ) (do - return () - ) - -data TaskPropagatePointerMethodInfo -instance (signature ~ (m (Ptr ())), MonadIO m, TaskK a) => MethodInfo TaskPropagatePointerMethodInfo a signature where - overloadedMethod _ = taskPropagatePointer - --- method Task::return_boolean --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_task_return_boolean" g_task_return_boolean :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - CInt -> -- result : TBasicType TBoolean - IO () - - -taskReturnBoolean :: - (MonadIO m, TaskK a) => - a -- _obj - -> Bool -- result_ - -> m () -- result -taskReturnBoolean _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = (fromIntegral . fromEnum) result_ - g_task_return_boolean _obj' result_' - touchManagedPtr _obj - return () - -data TaskReturnBooleanMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TaskK a) => MethodInfo TaskReturnBooleanMethodInfo a signature where - overloadedMethod _ = taskReturnBoolean - --- method Task::return_error --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", 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 = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_task_return_error" g_task_return_error :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - Ptr GError -> -- error : TError - IO () - - -taskReturnError :: - (MonadIO m, TaskK a) => - a -- _obj - -> GError -- error_ - -> m () -- result -taskReturnError _obj error_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - error_' <- copyBoxed error_ - g_task_return_error _obj' error_' - touchManagedPtr _obj - touchManagedPtr error_ - return () - -data TaskReturnErrorMethodInfo -instance (signature ~ (GError -> m ()), MonadIO m, TaskK a) => MethodInfo TaskReturnErrorMethodInfo a signature where - overloadedMethod _ = taskReturnError - --- method Task::return_error_if_cancelled --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_task_return_error_if_cancelled" g_task_return_error_if_cancelled :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - IO CInt - - -taskReturnErrorIfCancelled :: - (MonadIO m, TaskK a) => - a -- _obj - -> m Bool -- result -taskReturnErrorIfCancelled _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_task_return_error_if_cancelled _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TaskReturnErrorIfCancelledMethodInfo -instance (signature ~ (m Bool), MonadIO m, TaskK a) => MethodInfo TaskReturnErrorIfCancelledMethodInfo a signature where - overloadedMethod _ = taskReturnErrorIfCancelled - --- method Task::return_int --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_task_return_int" g_task_return_int :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - Int64 -> -- result : TBasicType TInt64 - IO () - - -taskReturnInt :: - (MonadIO m, TaskK a) => - a -- _obj - -> Int64 -- result_ - -> m () -- result -taskReturnInt _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_task_return_int _obj' result_ - touchManagedPtr _obj - return () - -data TaskReturnIntMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m, TaskK a) => MethodInfo TaskReturnIntMethodInfo a signature where - overloadedMethod _ = taskReturnInt - --- method Task::return_pointer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "result_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_task_return_pointer" g_task_return_pointer :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - Ptr () -> -- result : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- result_destroy : TInterface "GLib" "DestroyNotify" - IO () - - -taskReturnPointer :: - (MonadIO m, TaskK a) => - a -- _obj - -> Ptr () -- result_ - -> Maybe (GLib.DestroyNotify) -- resultDestroy - -> m () -- result -taskReturnPointer _obj result_ resultDestroy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - ptrresultDestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) - maybeResultDestroy <- case resultDestroy of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jResultDestroy -> do - jResultDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrresultDestroy) jResultDestroy) - poke ptrresultDestroy jResultDestroy' - return jResultDestroy' - g_task_return_pointer _obj' result_ maybeResultDestroy - touchManagedPtr _obj - return () - -data TaskReturnPointerMethodInfo -instance (signature ~ (Ptr () -> Maybe (GLib.DestroyNotify) -> m ()), MonadIO m, TaskK a) => MethodInfo TaskReturnPointerMethodInfo a signature where - overloadedMethod _ = taskReturnPointer - --- method Task::set_check_cancellable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "check_cancellable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_task_set_check_cancellable" g_task_set_check_cancellable :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - CInt -> -- check_cancellable : TBasicType TBoolean - IO () - - -taskSetCheckCancellable :: - (MonadIO m, TaskK a) => - a -- _obj - -> Bool -- checkCancellable - -> m () -- result -taskSetCheckCancellable _obj checkCancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let checkCancellable' = (fromIntegral . fromEnum) checkCancellable - g_task_set_check_cancellable _obj' checkCancellable' - touchManagedPtr _obj - return () - -data TaskSetCheckCancellableMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TaskK a) => MethodInfo TaskSetCheckCancellableMethodInfo a signature where - overloadedMethod _ = taskSetCheckCancellable - --- method Task::set_priority --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_task_set_priority" g_task_set_priority :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - Int32 -> -- priority : TBasicType TInt - IO () - - -taskSetPriority :: - (MonadIO m, TaskK a) => - a -- _obj - -> Int32 -- priority - -> m () -- result -taskSetPriority _obj priority = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_task_set_priority _obj' priority - touchManagedPtr _obj - return () - -data TaskSetPriorityMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, TaskK a) => MethodInfo TaskSetPriorityMethodInfo a signature where - overloadedMethod _ = taskSetPriority - --- method Task::set_return_on_cancel --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "return_on_cancel", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_task_set_return_on_cancel" g_task_set_return_on_cancel :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - CInt -> -- return_on_cancel : TBasicType TBoolean - IO CInt - - -taskSetReturnOnCancel :: - (MonadIO m, TaskK a) => - a -- _obj - -> Bool -- returnOnCancel - -> m Bool -- result -taskSetReturnOnCancel _obj returnOnCancel = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let returnOnCancel' = (fromIntegral . fromEnum) returnOnCancel - result <- g_task_set_return_on_cancel _obj' returnOnCancel' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TaskSetReturnOnCancelMethodInfo -instance (signature ~ (Bool -> m Bool), MonadIO m, TaskK a) => MethodInfo TaskSetReturnOnCancelMethodInfo a signature where - overloadedMethod _ = taskSetReturnOnCancel - --- method Task::set_source_tag --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_task_set_source_tag" g_task_set_source_tag :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - Ptr () -> -- source_tag : TBasicType TPtr - IO () - - -taskSetSourceTag :: - (MonadIO m, TaskK a) => - a -- _obj - -> Ptr () -- sourceTag - -> m () -- result -taskSetSourceTag _obj sourceTag = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_task_set_source_tag _obj' sourceTag - touchManagedPtr _obj - return () - -data TaskSetSourceTagMethodInfo -instance (signature ~ (Ptr () -> m ()), MonadIO m, TaskK a) => MethodInfo TaskSetSourceTagMethodInfo a signature where - overloadedMethod _ = taskSetSourceTag - --- method Task::set_task_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Task", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "task_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "task_data_destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_task_set_task_data" g_task_set_task_data :: - Ptr Task -> -- _obj : TInterface "Gio" "Task" - Ptr () -> -- task_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- task_data_destroy : TInterface "GLib" "DestroyNotify" - IO () - - -taskSetTaskData :: - (MonadIO m, TaskK a) => - a -- _obj - -> Ptr () -- taskData - -> Maybe (GLib.DestroyNotify) -- taskDataDestroy - -> m () -- result -taskSetTaskData _obj taskData taskDataDestroy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - ptrtaskDataDestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) - maybeTaskDataDestroy <- case taskDataDestroy of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jTaskDataDestroy -> do - jTaskDataDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrtaskDataDestroy) jTaskDataDestroy) - poke ptrtaskDataDestroy jTaskDataDestroy' - return jTaskDataDestroy' - g_task_set_task_data _obj' taskData maybeTaskDataDestroy - touchManagedPtr _obj - return () - -data TaskSetTaskDataMethodInfo -instance (signature ~ (Ptr () -> Maybe (GLib.DestroyNotify) -> m ()), MonadIO m, TaskK a) => MethodInfo TaskSetTaskDataMethodInfo a signature where - overloadedMethod _ = taskSetTaskData - --- method Task::is_valid --- method type : MemberFunction --- Args : [Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_object", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_task_is_valid" g_task_is_valid :: - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr GObject.Object -> -- source_object : TInterface "GObject" "Object" - IO CInt - - -taskIsValid :: - (MonadIO m, AsyncResultK a, GObject.ObjectK b) => - a -- result_ - -> Maybe (b) -- sourceObject - -> m Bool -- result -taskIsValid result_ sourceObject = liftIO $ do - let result_' = unsafeManagedPtrCastPtr result_ - maybeSourceObject <- case sourceObject of - Nothing -> return nullPtr - Just jSourceObject -> do - let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject - return jSourceObject' - result <- g_task_is_valid result_' maybeSourceObject - let result' = (/= 0) result - touchManagedPtr result_ - whenJust sourceObject touchManagedPtr - return result' - --- method Task::report_error --- method type : MemberFunction --- Args : [Arg {argCName = "source_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 = "callback_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_tag", argType = TBasicType TPtr, 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 = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_task_report_error" g_task_report_error :: - Ptr GObject.Object -> -- source_object : TInterface "GObject" "Object" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- callback_data : TBasicType TPtr - Ptr () -> -- source_tag : TBasicType TPtr - Ptr GError -> -- error : TError - IO () - - -taskReportError :: - (MonadIO m, GObject.ObjectK a) => - Maybe (a) -- sourceObject - -> Maybe (AsyncReadyCallback) -- callback - -> Ptr () -- sourceTag - -> GError -- error_ - -> m () -- result -taskReportError sourceObject callback sourceTag error_ = liftIO $ do - maybeSourceObject <- case sourceObject of - Nothing -> return nullPtr - Just jSourceObject -> do - let jSourceObject' = unsafeManagedPtrCastPtr jSourceObject - return jSourceObject' - 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' - error_' <- copyBoxed error_ - let callbackData = nullPtr - g_task_report_error maybeSourceObject maybeCallback callbackData sourceTag error_' - whenJust sourceObject touchManagedPtr - touchManagedPtr error_ - return () - - diff --git a/GI/Gio/Objects/Task.hs-boot b/GI/Gio/Objects/Task.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/Task.hs-boot +++ /dev/null @@ -1,37 +0,0 @@ -module GI.Gio.Objects.Task where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Task = Task (ForeignPtr Task) -instance GObject Task where -class GObject o => TaskK o -instance (GObject o, IsDescendantOf Task o) => TaskK o -data TaskCompletedPropertyInfo -data TaskGetCancellableMethodInfo -data TaskGetCheckCancellableMethodInfo -data TaskGetCompletedMethodInfo -data TaskGetContextMethodInfo -data TaskGetPriorityMethodInfo -data TaskGetReturnOnCancelMethodInfo -data TaskGetSourceObjectMethodInfo -data TaskGetSourceTagMethodInfo -data TaskGetTaskDataMethodInfo -data TaskHadErrorMethodInfo -data TaskPropagateBooleanMethodInfo -data TaskPropagateIntMethodInfo -data TaskPropagatePointerMethodInfo -data TaskReturnBooleanMethodInfo -data TaskReturnErrorMethodInfo -data TaskReturnErrorIfCancelledMethodInfo -data TaskReturnIntMethodInfo -data TaskReturnPointerMethodInfo -data TaskSetCheckCancellableMethodInfo -data TaskSetPriorityMethodInfo -data TaskSetReturnOnCancelMethodInfo -data TaskSetSourceTagMethodInfo -data TaskSetTaskDataMethodInfo diff --git a/GI/Gio/Objects/TcpConnection.hs b/GI/Gio/Objects/TcpConnection.hs deleted file mode 100644 --- a/GI/Gio/Objects/TcpConnection.hs +++ /dev/null @@ -1,222 +0,0 @@ - - -{- | -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.Objects.TcpConnection - ( - --- * Exported types - TcpConnection(..) , - TcpConnectionK , - toTcpConnection , - noTcpConnection , - - - -- * Methods --- ** tcpConnectionGetGracefulDisconnect - TcpConnectionGetGracefulDisconnectMethodInfo, - tcpConnectionGetGracefulDisconnect , - - --- ** tcpConnectionSetGracefulDisconnect - TcpConnectionSetGracefulDisconnectMethodInfo, - tcpConnectionSetGracefulDisconnect , - - - - - -- * Properties --- ** GracefulDisconnect - TcpConnectionGracefulDisconnectPropertyInfo, - constructTcpConnectionGracefulDisconnect, - getTcpConnectionGracefulDisconnect , - setTcpConnectionGracefulDisconnect , - tcpConnectionGracefulDisconnect , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype TcpConnection = TcpConnection (ForeignPtr TcpConnection) -foreign import ccall "g_tcp_connection_get_type" - c_g_tcp_connection_get_type :: IO GType - -type instance ParentTypes TcpConnection = TcpConnectionParentTypes -type TcpConnectionParentTypes = '[SocketConnection, IOStream, GObject.Object] - -instance GObject TcpConnection where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_tcp_connection_get_type - - -class GObject o => TcpConnectionK o -instance (GObject o, IsDescendantOf TcpConnection o) => TcpConnectionK o - -toTcpConnection :: TcpConnectionK o => o -> IO TcpConnection -toTcpConnection = unsafeCastTo TcpConnection - -noTcpConnection :: Maybe TcpConnection -noTcpConnection = Nothing - -type family ResolveTcpConnectionMethod (t :: Symbol) (o :: *) :: * where - ResolveTcpConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTcpConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTcpConnectionMethod "clearPending" o = IOStreamClearPendingMethodInfo - ResolveTcpConnectionMethod "close" o = IOStreamCloseMethodInfo - ResolveTcpConnectionMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo - ResolveTcpConnectionMethod "closeFinish" o = IOStreamCloseFinishMethodInfo - ResolveTcpConnectionMethod "connect" o = SocketConnectionConnectMethodInfo - ResolveTcpConnectionMethod "connectAsync" o = SocketConnectionConnectAsyncMethodInfo - ResolveTcpConnectionMethod "connectFinish" o = SocketConnectionConnectFinishMethodInfo - ResolveTcpConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTcpConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTcpConnectionMethod "hasPending" o = IOStreamHasPendingMethodInfo - ResolveTcpConnectionMethod "isClosed" o = IOStreamIsClosedMethodInfo - ResolveTcpConnectionMethod "isConnected" o = SocketConnectionIsConnectedMethodInfo - ResolveTcpConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTcpConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTcpConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTcpConnectionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTcpConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTcpConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTcpConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTcpConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTcpConnectionMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo - ResolveTcpConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTcpConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTcpConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTcpConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTcpConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTcpConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTcpConnectionMethod "getGracefulDisconnect" o = TcpConnectionGetGracefulDisconnectMethodInfo - ResolveTcpConnectionMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo - ResolveTcpConnectionMethod "getLocalAddress" o = SocketConnectionGetLocalAddressMethodInfo - ResolveTcpConnectionMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo - ResolveTcpConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTcpConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTcpConnectionMethod "getRemoteAddress" o = SocketConnectionGetRemoteAddressMethodInfo - ResolveTcpConnectionMethod "getSocket" o = SocketConnectionGetSocketMethodInfo - ResolveTcpConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTcpConnectionMethod "setGracefulDisconnect" o = TcpConnectionSetGracefulDisconnectMethodInfo - ResolveTcpConnectionMethod "setPending" o = IOStreamSetPendingMethodInfo - ResolveTcpConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTcpConnectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTcpConnectionMethod t TcpConnection, MethodInfo info TcpConnection p) => IsLabelProxy t (TcpConnection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTcpConnectionMethod t TcpConnection, MethodInfo info TcpConnection p) => IsLabel t (TcpConnection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "graceful-disconnect" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTcpConnectionGracefulDisconnect :: (MonadIO m, TcpConnectionK o) => o -> m Bool -getTcpConnectionGracefulDisconnect obj = liftIO $ getObjectPropertyBool obj "graceful-disconnect" - -setTcpConnectionGracefulDisconnect :: (MonadIO m, TcpConnectionK o) => o -> Bool -> m () -setTcpConnectionGracefulDisconnect obj val = liftIO $ setObjectPropertyBool obj "graceful-disconnect" val - -constructTcpConnectionGracefulDisconnect :: Bool -> IO ([Char], GValue) -constructTcpConnectionGracefulDisconnect val = constructObjectPropertyBool "graceful-disconnect" val - -data TcpConnectionGracefulDisconnectPropertyInfo -instance AttrInfo TcpConnectionGracefulDisconnectPropertyInfo where - type AttrAllowedOps TcpConnectionGracefulDisconnectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TcpConnectionGracefulDisconnectPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TcpConnectionGracefulDisconnectPropertyInfo = TcpConnectionK - type AttrGetType TcpConnectionGracefulDisconnectPropertyInfo = Bool - type AttrLabel TcpConnectionGracefulDisconnectPropertyInfo = "graceful-disconnect" - attrGet _ = getTcpConnectionGracefulDisconnect - attrSet _ = setTcpConnectionGracefulDisconnect - attrConstruct _ = constructTcpConnectionGracefulDisconnect - attrClear _ = undefined - -type instance AttributeList TcpConnection = TcpConnectionAttributeList -type TcpConnectionAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("gracefulDisconnect", TcpConnectionGracefulDisconnectPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)]) - -tcpConnectionGracefulDisconnect :: AttrLabelProxy "gracefulDisconnect" -tcpConnectionGracefulDisconnect = AttrLabelProxy - -type instance SignalList TcpConnection = TcpConnectionSignalList -type TcpConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TcpConnection::get_graceful_disconnect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TcpConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_tcp_connection_get_graceful_disconnect" g_tcp_connection_get_graceful_disconnect :: - Ptr TcpConnection -> -- _obj : TInterface "Gio" "TcpConnection" - IO CInt - - -tcpConnectionGetGracefulDisconnect :: - (MonadIO m, TcpConnectionK a) => - a -- _obj - -> m Bool -- result -tcpConnectionGetGracefulDisconnect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tcp_connection_get_graceful_disconnect _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TcpConnectionGetGracefulDisconnectMethodInfo -instance (signature ~ (m Bool), MonadIO m, TcpConnectionK a) => MethodInfo TcpConnectionGetGracefulDisconnectMethodInfo a signature where - overloadedMethod _ = tcpConnectionGetGracefulDisconnect - --- method TcpConnection::set_graceful_disconnect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TcpConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "graceful_disconnect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tcp_connection_set_graceful_disconnect" g_tcp_connection_set_graceful_disconnect :: - Ptr TcpConnection -> -- _obj : TInterface "Gio" "TcpConnection" - CInt -> -- graceful_disconnect : TBasicType TBoolean - IO () - - -tcpConnectionSetGracefulDisconnect :: - (MonadIO m, TcpConnectionK a) => - a -- _obj - -> Bool -- gracefulDisconnect - -> m () -- result -tcpConnectionSetGracefulDisconnect _obj gracefulDisconnect = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let gracefulDisconnect' = (fromIntegral . fromEnum) gracefulDisconnect - g_tcp_connection_set_graceful_disconnect _obj' gracefulDisconnect' - touchManagedPtr _obj - return () - -data TcpConnectionSetGracefulDisconnectMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TcpConnectionK a) => MethodInfo TcpConnectionSetGracefulDisconnectMethodInfo a signature where - overloadedMethod _ = tcpConnectionSetGracefulDisconnect - - diff --git a/GI/Gio/Objects/TcpConnection.hs-boot b/GI/Gio/Objects/TcpConnection.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/TcpConnection.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gio.Objects.TcpConnection where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TcpConnection = TcpConnection (ForeignPtr TcpConnection) -instance GObject TcpConnection where -class GObject o => TcpConnectionK o -instance (GObject o, IsDescendantOf TcpConnection o) => TcpConnectionK o -data TcpConnectionGracefulDisconnectPropertyInfo -data TcpConnectionGetGracefulDisconnectMethodInfo -data TcpConnectionSetGracefulDisconnectMethodInfo diff --git a/GI/Gio/Objects/TcpWrapperConnection.hs b/GI/Gio/Objects/TcpWrapperConnection.hs deleted file mode 100644 --- a/GI/Gio/Objects/TcpWrapperConnection.hs +++ /dev/null @@ -1,218 +0,0 @@ - - -{- | -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.Objects.TcpWrapperConnection - ( - --- * Exported types - TcpWrapperConnection(..) , - TcpWrapperConnectionK , - toTcpWrapperConnection , - noTcpWrapperConnection , - - - -- * Methods --- ** tcpWrapperConnectionGetBaseIoStream - TcpWrapperConnectionGetBaseIoStreamMethodInfo, - tcpWrapperConnectionGetBaseIoStream , - - --- ** tcpWrapperConnectionNew - tcpWrapperConnectionNew , - - - - - -- * Properties --- ** BaseIoStream - TcpWrapperConnectionBaseIoStreamPropertyInfo, - constructTcpWrapperConnectionBaseIoStream, - getTcpWrapperConnectionBaseIoStream , - tcpWrapperConnectionBaseIoStream , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype TcpWrapperConnection = TcpWrapperConnection (ForeignPtr TcpWrapperConnection) -foreign import ccall "g_tcp_wrapper_connection_get_type" - c_g_tcp_wrapper_connection_get_type :: IO GType - -type instance ParentTypes TcpWrapperConnection = TcpWrapperConnectionParentTypes -type TcpWrapperConnectionParentTypes = '[TcpConnection, SocketConnection, IOStream, GObject.Object] - -instance GObject TcpWrapperConnection where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_tcp_wrapper_connection_get_type - - -class GObject o => TcpWrapperConnectionK o -instance (GObject o, IsDescendantOf TcpWrapperConnection o) => TcpWrapperConnectionK o - -toTcpWrapperConnection :: TcpWrapperConnectionK o => o -> IO TcpWrapperConnection -toTcpWrapperConnection = unsafeCastTo TcpWrapperConnection - -noTcpWrapperConnection :: Maybe TcpWrapperConnection -noTcpWrapperConnection = Nothing - -type family ResolveTcpWrapperConnectionMethod (t :: Symbol) (o :: *) :: * where - ResolveTcpWrapperConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTcpWrapperConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTcpWrapperConnectionMethod "clearPending" o = IOStreamClearPendingMethodInfo - ResolveTcpWrapperConnectionMethod "close" o = IOStreamCloseMethodInfo - ResolveTcpWrapperConnectionMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo - ResolveTcpWrapperConnectionMethod "closeFinish" o = IOStreamCloseFinishMethodInfo - ResolveTcpWrapperConnectionMethod "connect" o = SocketConnectionConnectMethodInfo - ResolveTcpWrapperConnectionMethod "connectAsync" o = SocketConnectionConnectAsyncMethodInfo - ResolveTcpWrapperConnectionMethod "connectFinish" o = SocketConnectionConnectFinishMethodInfo - ResolveTcpWrapperConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTcpWrapperConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTcpWrapperConnectionMethod "hasPending" o = IOStreamHasPendingMethodInfo - ResolveTcpWrapperConnectionMethod "isClosed" o = IOStreamIsClosedMethodInfo - ResolveTcpWrapperConnectionMethod "isConnected" o = SocketConnectionIsConnectedMethodInfo - ResolveTcpWrapperConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTcpWrapperConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTcpWrapperConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTcpWrapperConnectionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTcpWrapperConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTcpWrapperConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTcpWrapperConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTcpWrapperConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTcpWrapperConnectionMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo - ResolveTcpWrapperConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTcpWrapperConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTcpWrapperConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTcpWrapperConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTcpWrapperConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTcpWrapperConnectionMethod "getBaseIoStream" o = TcpWrapperConnectionGetBaseIoStreamMethodInfo - ResolveTcpWrapperConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTcpWrapperConnectionMethod "getGracefulDisconnect" o = TcpConnectionGetGracefulDisconnectMethodInfo - ResolveTcpWrapperConnectionMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo - ResolveTcpWrapperConnectionMethod "getLocalAddress" o = SocketConnectionGetLocalAddressMethodInfo - ResolveTcpWrapperConnectionMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo - ResolveTcpWrapperConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTcpWrapperConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTcpWrapperConnectionMethod "getRemoteAddress" o = SocketConnectionGetRemoteAddressMethodInfo - ResolveTcpWrapperConnectionMethod "getSocket" o = SocketConnectionGetSocketMethodInfo - ResolveTcpWrapperConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTcpWrapperConnectionMethod "setGracefulDisconnect" o = TcpConnectionSetGracefulDisconnectMethodInfo - ResolveTcpWrapperConnectionMethod "setPending" o = IOStreamSetPendingMethodInfo - ResolveTcpWrapperConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTcpWrapperConnectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTcpWrapperConnectionMethod t TcpWrapperConnection, MethodInfo info TcpWrapperConnection p) => IsLabelProxy t (TcpWrapperConnection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTcpWrapperConnectionMethod t TcpWrapperConnection, MethodInfo info TcpWrapperConnection p) => IsLabel t (TcpWrapperConnection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "base-io-stream" - -- Type: TInterface "Gio" "IOStream" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getTcpWrapperConnectionBaseIoStream :: (MonadIO m, TcpWrapperConnectionK o) => o -> m IOStream -getTcpWrapperConnectionBaseIoStream obj = liftIO $ checkUnexpectedNothing "getTcpWrapperConnectionBaseIoStream" $ getObjectPropertyObject obj "base-io-stream" IOStream - -constructTcpWrapperConnectionBaseIoStream :: (IOStreamK a) => a -> IO ([Char], GValue) -constructTcpWrapperConnectionBaseIoStream val = constructObjectPropertyObject "base-io-stream" (Just val) - -data TcpWrapperConnectionBaseIoStreamPropertyInfo -instance AttrInfo TcpWrapperConnectionBaseIoStreamPropertyInfo where - type AttrAllowedOps TcpWrapperConnectionBaseIoStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TcpWrapperConnectionBaseIoStreamPropertyInfo = IOStreamK - type AttrBaseTypeConstraint TcpWrapperConnectionBaseIoStreamPropertyInfo = TcpWrapperConnectionK - type AttrGetType TcpWrapperConnectionBaseIoStreamPropertyInfo = IOStream - type AttrLabel TcpWrapperConnectionBaseIoStreamPropertyInfo = "base-io-stream" - attrGet _ = getTcpWrapperConnectionBaseIoStream - attrSet _ = undefined - attrConstruct _ = constructTcpWrapperConnectionBaseIoStream - attrClear _ = undefined - -type instance AttributeList TcpWrapperConnection = TcpWrapperConnectionAttributeList -type TcpWrapperConnectionAttributeList = ('[ '("baseIoStream", TcpWrapperConnectionBaseIoStreamPropertyInfo), '("closed", IOStreamClosedPropertyInfo), '("gracefulDisconnect", TcpConnectionGracefulDisconnectPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)]) - -tcpWrapperConnectionBaseIoStream :: AttrLabelProxy "baseIoStream" -tcpWrapperConnectionBaseIoStream = AttrLabelProxy - -type instance SignalList TcpWrapperConnection = TcpWrapperConnectionSignalList -type TcpWrapperConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TcpWrapperConnection::new --- method type : Constructor --- Args : [Arg {argCName = "base_io_stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TcpWrapperConnection") --- throws : False --- Skip return : False - -foreign import ccall "g_tcp_wrapper_connection_new" g_tcp_wrapper_connection_new :: - Ptr IOStream -> -- base_io_stream : TInterface "Gio" "IOStream" - Ptr Socket -> -- socket : TInterface "Gio" "Socket" - IO (Ptr TcpWrapperConnection) - - -tcpWrapperConnectionNew :: - (MonadIO m, IOStreamK a, SocketK b) => - a -- baseIoStream - -> b -- socket - -> m TcpWrapperConnection -- result -tcpWrapperConnectionNew baseIoStream socket = liftIO $ do - let baseIoStream' = unsafeManagedPtrCastPtr baseIoStream - let socket' = unsafeManagedPtrCastPtr socket - result <- g_tcp_wrapper_connection_new baseIoStream' socket' - checkUnexpectedReturnNULL "g_tcp_wrapper_connection_new" result - result' <- (wrapObject TcpWrapperConnection) result - touchManagedPtr baseIoStream - touchManagedPtr socket - return result' - --- method TcpWrapperConnection::get_base_io_stream --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TcpWrapperConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "IOStream") --- throws : False --- Skip return : False - -foreign import ccall "g_tcp_wrapper_connection_get_base_io_stream" g_tcp_wrapper_connection_get_base_io_stream :: - Ptr TcpWrapperConnection -> -- _obj : TInterface "Gio" "TcpWrapperConnection" - IO (Ptr IOStream) - - -tcpWrapperConnectionGetBaseIoStream :: - (MonadIO m, TcpWrapperConnectionK a) => - a -- _obj - -> m IOStream -- result -tcpWrapperConnectionGetBaseIoStream _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tcp_wrapper_connection_get_base_io_stream _obj' - checkUnexpectedReturnNULL "g_tcp_wrapper_connection_get_base_io_stream" result - result' <- (newObject IOStream) result - touchManagedPtr _obj - return result' - -data TcpWrapperConnectionGetBaseIoStreamMethodInfo -instance (signature ~ (m IOStream), MonadIO m, TcpWrapperConnectionK a) => MethodInfo TcpWrapperConnectionGetBaseIoStreamMethodInfo a signature where - overloadedMethod _ = tcpWrapperConnectionGetBaseIoStream - - diff --git a/GI/Gio/Objects/TcpWrapperConnection.hs-boot b/GI/Gio/Objects/TcpWrapperConnection.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/TcpWrapperConnection.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gio.Objects.TcpWrapperConnection where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TcpWrapperConnection = TcpWrapperConnection (ForeignPtr TcpWrapperConnection) -instance GObject TcpWrapperConnection where -class GObject o => TcpWrapperConnectionK o -instance (GObject o, IsDescendantOf TcpWrapperConnection o) => TcpWrapperConnectionK o -data TcpWrapperConnectionBaseIoStreamPropertyInfo -data TcpWrapperConnectionGetBaseIoStreamMethodInfo diff --git a/GI/Gio/Objects/TestDBus.hs b/GI/Gio/Objects/TestDBus.hs deleted file mode 100644 --- a/GI/Gio/Objects/TestDBus.hs +++ /dev/null @@ -1,387 +0,0 @@ - - -{- | -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.Objects.TestDBus - ( - --- * Exported types - TestDBus(..) , - TestDBusK , - toTestDBus , - noTestDBus , - - - -- * Methods --- ** testDBusAddServiceDir - TestDBusAddServiceDirMethodInfo , - testDBusAddServiceDir , - - --- ** testDBusDown - TestDBusDownMethodInfo , - testDBusDown , - - --- ** testDBusGetBusAddress - TestDBusGetBusAddressMethodInfo , - testDBusGetBusAddress , - - --- ** testDBusGetFlags - TestDBusGetFlagsMethodInfo , - testDBusGetFlags , - - --- ** testDBusNew - testDBusNew , - - --- ** testDBusStop - TestDBusStopMethodInfo , - testDBusStop , - - --- ** testDBusUnset - testDBusUnset , - - --- ** testDBusUp - TestDBusUpMethodInfo , - testDBusUp , - - - - - -- * Properties --- ** Flags - TestDBusFlagsPropertyInfo , - constructTestDBusFlags , - getTestDBusFlags , - testDBusFlags , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype TestDBus = TestDBus (ForeignPtr TestDBus) -foreign import ccall "g_test_dbus_get_type" - c_g_test_dbus_get_type :: IO GType - -type instance ParentTypes TestDBus = TestDBusParentTypes -type TestDBusParentTypes = '[GObject.Object] - -instance GObject TestDBus where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_test_dbus_get_type - - -class GObject o => TestDBusK o -instance (GObject o, IsDescendantOf TestDBus o) => TestDBusK o - -toTestDBus :: TestDBusK o => o -> IO TestDBus -toTestDBus = unsafeCastTo TestDBus - -noTestDBus :: Maybe TestDBus -noTestDBus = Nothing - -type family ResolveTestDBusMethod (t :: Symbol) (o :: *) :: * where - ResolveTestDBusMethod "addServiceDir" o = TestDBusAddServiceDirMethodInfo - ResolveTestDBusMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTestDBusMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTestDBusMethod "down" o = TestDBusDownMethodInfo - ResolveTestDBusMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTestDBusMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTestDBusMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTestDBusMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTestDBusMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTestDBusMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTestDBusMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTestDBusMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTestDBusMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTestDBusMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTestDBusMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTestDBusMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTestDBusMethod "stop" o = TestDBusStopMethodInfo - ResolveTestDBusMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTestDBusMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTestDBusMethod "up" o = TestDBusUpMethodInfo - ResolveTestDBusMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTestDBusMethod "getBusAddress" o = TestDBusGetBusAddressMethodInfo - ResolveTestDBusMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTestDBusMethod "getFlags" o = TestDBusGetFlagsMethodInfo - ResolveTestDBusMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTestDBusMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTestDBusMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTestDBusMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTestDBusMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTestDBusMethod t TestDBus, MethodInfo info TestDBus p) => IsLabelProxy t (TestDBus -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTestDBusMethod t TestDBus, MethodInfo info TestDBus p) => IsLabel t (TestDBus -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "flags" - -- Type: TInterface "Gio" "TestDBusFlags" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getTestDBusFlags :: (MonadIO m, TestDBusK o) => o -> m [TestDBusFlags] -getTestDBusFlags obj = liftIO $ getObjectPropertyFlags obj "flags" - -constructTestDBusFlags :: [TestDBusFlags] -> IO ([Char], GValue) -constructTestDBusFlags val = constructObjectPropertyFlags "flags" val - -data TestDBusFlagsPropertyInfo -instance AttrInfo TestDBusFlagsPropertyInfo where - type AttrAllowedOps TestDBusFlagsPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TestDBusFlagsPropertyInfo = (~) [TestDBusFlags] - type AttrBaseTypeConstraint TestDBusFlagsPropertyInfo = TestDBusK - type AttrGetType TestDBusFlagsPropertyInfo = [TestDBusFlags] - type AttrLabel TestDBusFlagsPropertyInfo = "flags" - attrGet _ = getTestDBusFlags - attrSet _ = undefined - attrConstruct _ = constructTestDBusFlags - attrClear _ = undefined - -type instance AttributeList TestDBus = TestDBusAttributeList -type TestDBusAttributeList = ('[ '("flags", TestDBusFlagsPropertyInfo)] :: [(Symbol, *)]) - -testDBusFlags :: AttrLabelProxy "flags" -testDBusFlags = AttrLabelProxy - -type instance SignalList TestDBus = TestDBusSignalList -type TestDBusSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TestDBus::new --- method type : Constructor --- Args : [Arg {argCName = "flags", argType = TInterface "Gio" "TestDBusFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TestDBus") --- throws : False --- Skip return : False - -foreign import ccall "g_test_dbus_new" g_test_dbus_new :: - CUInt -> -- flags : TInterface "Gio" "TestDBusFlags" - IO (Ptr TestDBus) - - -testDBusNew :: - (MonadIO m) => - [TestDBusFlags] -- flags - -> m TestDBus -- result -testDBusNew flags = liftIO $ do - let flags' = gflagsToWord flags - result <- g_test_dbus_new flags' - checkUnexpectedReturnNULL "g_test_dbus_new" result - result' <- (wrapObject TestDBus) result - return result' - --- method TestDBus::add_service_dir --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_dbus_add_service_dir" g_test_dbus_add_service_dir :: - Ptr TestDBus -> -- _obj : TInterface "Gio" "TestDBus" - CString -> -- path : TBasicType TUTF8 - IO () - - -testDBusAddServiceDir :: - (MonadIO m, TestDBusK a) => - a -- _obj - -> T.Text -- path - -> m () -- result -testDBusAddServiceDir _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - g_test_dbus_add_service_dir _obj' path' - touchManagedPtr _obj - freeMem path' - return () - -data TestDBusAddServiceDirMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, TestDBusK a) => MethodInfo TestDBusAddServiceDirMethodInfo a signature where - overloadedMethod _ = testDBusAddServiceDir - --- method TestDBus::down --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_dbus_down" g_test_dbus_down :: - Ptr TestDBus -> -- _obj : TInterface "Gio" "TestDBus" - IO () - - -testDBusDown :: - (MonadIO m, TestDBusK a) => - a -- _obj - -> m () -- result -testDBusDown _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_test_dbus_down _obj' - touchManagedPtr _obj - return () - -data TestDBusDownMethodInfo -instance (signature ~ (m ()), MonadIO m, TestDBusK a) => MethodInfo TestDBusDownMethodInfo a signature where - overloadedMethod _ = testDBusDown - --- method TestDBus::get_bus_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_test_dbus_get_bus_address" g_test_dbus_get_bus_address :: - Ptr TestDBus -> -- _obj : TInterface "Gio" "TestDBus" - IO CString - - -testDBusGetBusAddress :: - (MonadIO m, TestDBusK a) => - a -- _obj - -> m T.Text -- result -testDBusGetBusAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_test_dbus_get_bus_address _obj' - checkUnexpectedReturnNULL "g_test_dbus_get_bus_address" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data TestDBusGetBusAddressMethodInfo -instance (signature ~ (m T.Text), MonadIO m, TestDBusK a) => MethodInfo TestDBusGetBusAddressMethodInfo a signature where - overloadedMethod _ = testDBusGetBusAddress - --- method TestDBus::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TestDBusFlags") --- throws : False --- Skip return : False - -foreign import ccall "g_test_dbus_get_flags" g_test_dbus_get_flags :: - Ptr TestDBus -> -- _obj : TInterface "Gio" "TestDBus" - IO CUInt - - -testDBusGetFlags :: - (MonadIO m, TestDBusK a) => - a -- _obj - -> m [TestDBusFlags] -- result -testDBusGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_test_dbus_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data TestDBusGetFlagsMethodInfo -instance (signature ~ (m [TestDBusFlags]), MonadIO m, TestDBusK a) => MethodInfo TestDBusGetFlagsMethodInfo a signature where - overloadedMethod _ = testDBusGetFlags - --- method TestDBus::stop --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_dbus_stop" g_test_dbus_stop :: - Ptr TestDBus -> -- _obj : TInterface "Gio" "TestDBus" - IO () - - -testDBusStop :: - (MonadIO m, TestDBusK a) => - a -- _obj - -> m () -- result -testDBusStop _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_test_dbus_stop _obj' - touchManagedPtr _obj - return () - -data TestDBusStopMethodInfo -instance (signature ~ (m ()), MonadIO m, TestDBusK a) => MethodInfo TestDBusStopMethodInfo a signature where - overloadedMethod _ = testDBusStop - --- method TestDBus::up --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TestDBus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_dbus_up" g_test_dbus_up :: - Ptr TestDBus -> -- _obj : TInterface "Gio" "TestDBus" - IO () - - -testDBusUp :: - (MonadIO m, TestDBusK a) => - a -- _obj - -> m () -- result -testDBusUp _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_test_dbus_up _obj' - touchManagedPtr _obj - return () - -data TestDBusUpMethodInfo -instance (signature ~ (m ()), MonadIO m, TestDBusK a) => MethodInfo TestDBusUpMethodInfo a signature where - overloadedMethod _ = testDBusUp - --- method TestDBus::unset --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_test_dbus_unset" g_test_dbus_unset :: - IO () - - -testDBusUnset :: - (MonadIO m) => - m () -- result -testDBusUnset = liftIO $ do - g_test_dbus_unset - return () - - diff --git a/GI/Gio/Objects/TestDBus.hs-boot b/GI/Gio/Objects/TestDBus.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/TestDBus.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.Gio.Objects.TestDBus where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TestDBus = TestDBus (ForeignPtr TestDBus) -instance GObject TestDBus where -class GObject o => TestDBusK o -instance (GObject o, IsDescendantOf TestDBus o) => TestDBusK o -data TestDBusFlagsPropertyInfo -data TestDBusAddServiceDirMethodInfo -data TestDBusDownMethodInfo -data TestDBusGetBusAddressMethodInfo -data TestDBusGetFlagsMethodInfo -data TestDBusStopMethodInfo -data TestDBusUpMethodInfo diff --git a/GI/Gio/Objects/ThemedIcon.hs b/GI/Gio/Objects/ThemedIcon.hs deleted file mode 100644 --- a/GI/Gio/Objects/ThemedIcon.hs +++ /dev/null @@ -1,395 +0,0 @@ - - -{- | -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.Objects.ThemedIcon - ( - --- * Exported types - ThemedIcon(..) , - ThemedIconK , - toThemedIcon , - noThemedIcon , - - - -- * Methods --- ** themedIconAppendName - ThemedIconAppendNameMethodInfo , - themedIconAppendName , - - --- ** themedIconGetNames - ThemedIconGetNamesMethodInfo , - themedIconGetNames , - - --- ** themedIconNew - themedIconNew , - - --- ** themedIconNewFromNames - themedIconNewFromNames , - - --- ** themedIconNewWithDefaultFallbacks - themedIconNewWithDefaultFallbacks , - - --- ** themedIconPrependName - ThemedIconPrependNameMethodInfo , - themedIconPrependName , - - - - - -- * Properties --- ** Name - ThemedIconNamePropertyInfo , - constructThemedIconName , - themedIconName , - - --- ** Names - ThemedIconNamesPropertyInfo , - constructThemedIconNames , - getThemedIconNames , - themedIconNames , - - --- ** UseDefaultFallbacks - ThemedIconUseDefaultFallbacksPropertyInfo, - constructThemedIconUseDefaultFallbacks , - getThemedIconUseDefaultFallbacks , - themedIconUseDefaultFallbacks , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype ThemedIcon = ThemedIcon (ForeignPtr ThemedIcon) -foreign import ccall "g_themed_icon_get_type" - c_g_themed_icon_get_type :: IO GType - -type instance ParentTypes ThemedIcon = ThemedIconParentTypes -type ThemedIconParentTypes = '[GObject.Object, Icon] - -instance GObject ThemedIcon where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_themed_icon_get_type - - -class GObject o => ThemedIconK o -instance (GObject o, IsDescendantOf ThemedIcon o) => ThemedIconK o - -toThemedIcon :: ThemedIconK o => o -> IO ThemedIcon -toThemedIcon = unsafeCastTo ThemedIcon - -noThemedIcon :: Maybe ThemedIcon -noThemedIcon = Nothing - -type family ResolveThemedIconMethod (t :: Symbol) (o :: *) :: * where - ResolveThemedIconMethod "appendName" o = ThemedIconAppendNameMethodInfo - ResolveThemedIconMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveThemedIconMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveThemedIconMethod "equal" o = IconEqualMethodInfo - ResolveThemedIconMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveThemedIconMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveThemedIconMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveThemedIconMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveThemedIconMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveThemedIconMethod "prependName" o = ThemedIconPrependNameMethodInfo - ResolveThemedIconMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveThemedIconMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveThemedIconMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveThemedIconMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveThemedIconMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveThemedIconMethod "serialize" o = IconSerializeMethodInfo - ResolveThemedIconMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveThemedIconMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveThemedIconMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveThemedIconMethod "toString" o = IconToStringMethodInfo - ResolveThemedIconMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveThemedIconMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveThemedIconMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveThemedIconMethod "getNames" o = ThemedIconGetNamesMethodInfo - ResolveThemedIconMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveThemedIconMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveThemedIconMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveThemedIconMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveThemedIconMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveThemedIconMethod t ThemedIcon, MethodInfo info ThemedIcon p) => IsLabelProxy t (ThemedIcon -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveThemedIconMethod t ThemedIcon, MethodInfo info ThemedIcon p) => IsLabel t (ThemedIcon -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructThemedIconName :: T.Text -> IO ([Char], GValue) -constructThemedIconName val = constructObjectPropertyString "name" (Just val) - -data ThemedIconNamePropertyInfo -instance AttrInfo ThemedIconNamePropertyInfo where - type AttrAllowedOps ThemedIconNamePropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint ThemedIconNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ThemedIconNamePropertyInfo = ThemedIconK - type AttrGetType ThemedIconNamePropertyInfo = () - type AttrLabel ThemedIconNamePropertyInfo = "name" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructThemedIconName - attrClear _ = undefined - --- VVV Prop "names" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getThemedIconNames :: (MonadIO m, ThemedIconK o) => o -> m [T.Text] -getThemedIconNames obj = liftIO $ checkUnexpectedNothing "getThemedIconNames" $ getObjectPropertyStringArray obj "names" - -constructThemedIconNames :: [T.Text] -> IO ([Char], GValue) -constructThemedIconNames val = constructObjectPropertyStringArray "names" (Just val) - -data ThemedIconNamesPropertyInfo -instance AttrInfo ThemedIconNamesPropertyInfo where - type AttrAllowedOps ThemedIconNamesPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ThemedIconNamesPropertyInfo = (~) [T.Text] - type AttrBaseTypeConstraint ThemedIconNamesPropertyInfo = ThemedIconK - type AttrGetType ThemedIconNamesPropertyInfo = [T.Text] - type AttrLabel ThemedIconNamesPropertyInfo = "names" - attrGet _ = getThemedIconNames - attrSet _ = undefined - attrConstruct _ = constructThemedIconNames - attrClear _ = undefined - --- VVV Prop "use-default-fallbacks" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getThemedIconUseDefaultFallbacks :: (MonadIO m, ThemedIconK o) => o -> m Bool -getThemedIconUseDefaultFallbacks obj = liftIO $ getObjectPropertyBool obj "use-default-fallbacks" - -constructThemedIconUseDefaultFallbacks :: Bool -> IO ([Char], GValue) -constructThemedIconUseDefaultFallbacks val = constructObjectPropertyBool "use-default-fallbacks" val - -data ThemedIconUseDefaultFallbacksPropertyInfo -instance AttrInfo ThemedIconUseDefaultFallbacksPropertyInfo where - type AttrAllowedOps ThemedIconUseDefaultFallbacksPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ThemedIconUseDefaultFallbacksPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ThemedIconUseDefaultFallbacksPropertyInfo = ThemedIconK - type AttrGetType ThemedIconUseDefaultFallbacksPropertyInfo = Bool - type AttrLabel ThemedIconUseDefaultFallbacksPropertyInfo = "use-default-fallbacks" - attrGet _ = getThemedIconUseDefaultFallbacks - attrSet _ = undefined - attrConstruct _ = constructThemedIconUseDefaultFallbacks - attrClear _ = undefined - -type instance AttributeList ThemedIcon = ThemedIconAttributeList -type ThemedIconAttributeList = ('[ '("name", ThemedIconNamePropertyInfo), '("names", ThemedIconNamesPropertyInfo), '("useDefaultFallbacks", ThemedIconUseDefaultFallbacksPropertyInfo)] :: [(Symbol, *)]) - -themedIconName :: AttrLabelProxy "name" -themedIconName = AttrLabelProxy - -themedIconNames :: AttrLabelProxy "names" -themedIconNames = AttrLabelProxy - -themedIconUseDefaultFallbacks :: AttrLabelProxy "useDefaultFallbacks" -themedIconUseDefaultFallbacks = AttrLabelProxy - -type instance SignalList ThemedIcon = ThemedIconSignalList -type ThemedIconSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ThemedIcon::new --- method type : Constructor --- Args : [Arg {argCName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "ThemedIcon") --- throws : False --- Skip return : False - -foreign import ccall "g_themed_icon_new" g_themed_icon_new :: - CString -> -- iconname : TBasicType TUTF8 - IO (Ptr ThemedIcon) - - -themedIconNew :: - (MonadIO m) => - T.Text -- iconname - -> m ThemedIcon -- result -themedIconNew iconname = liftIO $ do - iconname' <- textToCString iconname - result <- g_themed_icon_new iconname' - checkUnexpectedReturnNULL "g_themed_icon_new" result - result' <- (wrapObject ThemedIcon) result - freeMem iconname' - return result' - --- method ThemedIcon::new_from_names --- method type : Constructor --- Args : [Arg {argCName = "iconnames", argType = TCArray False (-1) 1 (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TInterface "Gio" "ThemedIcon") --- throws : False --- Skip return : False - -foreign import ccall "g_themed_icon_new_from_names" g_themed_icon_new_from_names :: - Ptr CString -> -- iconnames : TCArray False (-1) 1 (TBasicType TUTF8) - Int32 -> -- len : TBasicType TInt - IO (Ptr ThemedIcon) - - -themedIconNewFromNames :: - (MonadIO m) => - [T.Text] -- iconnames - -> m ThemedIcon -- result -themedIconNewFromNames iconnames = liftIO $ do - let len = fromIntegral $ length iconnames - iconnames' <- packUTF8CArray iconnames - result <- g_themed_icon_new_from_names iconnames' len - checkUnexpectedReturnNULL "g_themed_icon_new_from_names" result - result' <- (wrapObject ThemedIcon) result - (mapCArrayWithLength len) freeMem iconnames' - freeMem iconnames' - return result' - --- method ThemedIcon::new_with_default_fallbacks --- method type : Constructor --- Args : [Arg {argCName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "ThemedIcon") --- throws : False --- Skip return : False - -foreign import ccall "g_themed_icon_new_with_default_fallbacks" g_themed_icon_new_with_default_fallbacks :: - CString -> -- iconname : TBasicType TUTF8 - IO (Ptr ThemedIcon) - - -themedIconNewWithDefaultFallbacks :: - (MonadIO m) => - T.Text -- iconname - -> m ThemedIcon -- result -themedIconNewWithDefaultFallbacks iconname = liftIO $ do - iconname' <- textToCString iconname - result <- g_themed_icon_new_with_default_fallbacks iconname' - checkUnexpectedReturnNULL "g_themed_icon_new_with_default_fallbacks" result - result' <- (wrapObject ThemedIcon) result - freeMem iconname' - return result' - --- method ThemedIcon::append_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ThemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_themed_icon_append_name" g_themed_icon_append_name :: - Ptr ThemedIcon -> -- _obj : TInterface "Gio" "ThemedIcon" - CString -> -- iconname : TBasicType TUTF8 - IO () - - -themedIconAppendName :: - (MonadIO m, ThemedIconK a) => - a -- _obj - -> T.Text -- iconname - -> m () -- result -themedIconAppendName _obj iconname = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconname' <- textToCString iconname - g_themed_icon_append_name _obj' iconname' - touchManagedPtr _obj - freeMem iconname' - return () - -data ThemedIconAppendNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ThemedIconK a) => MethodInfo ThemedIconAppendNameMethodInfo a signature where - overloadedMethod _ = themedIconAppendName - --- method ThemedIcon::get_names --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ThemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_themed_icon_get_names" g_themed_icon_get_names :: - Ptr ThemedIcon -> -- _obj : TInterface "Gio" "ThemedIcon" - IO (Ptr CString) - - -themedIconGetNames :: - (MonadIO m, ThemedIconK a) => - a -- _obj - -> m [T.Text] -- result -themedIconGetNames _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_themed_icon_get_names _obj' - checkUnexpectedReturnNULL "g_themed_icon_get_names" result - result' <- unpackZeroTerminatedUTF8CArray result - touchManagedPtr _obj - return result' - -data ThemedIconGetNamesMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, ThemedIconK a) => MethodInfo ThemedIconGetNamesMethodInfo a signature where - overloadedMethod _ = themedIconGetNames - --- method ThemedIcon::prepend_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ThemedIcon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iconname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_themed_icon_prepend_name" g_themed_icon_prepend_name :: - Ptr ThemedIcon -> -- _obj : TInterface "Gio" "ThemedIcon" - CString -> -- iconname : TBasicType TUTF8 - IO () - - -themedIconPrependName :: - (MonadIO m, ThemedIconK a) => - a -- _obj - -> T.Text -- iconname - -> m () -- result -themedIconPrependName _obj iconname = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - iconname' <- textToCString iconname - g_themed_icon_prepend_name _obj' iconname' - touchManagedPtr _obj - freeMem iconname' - return () - -data ThemedIconPrependNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ThemedIconK a) => MethodInfo ThemedIconPrependNameMethodInfo a signature where - overloadedMethod _ = themedIconPrependName - - diff --git a/GI/Gio/Objects/ThemedIcon.hs-boot b/GI/Gio/Objects/ThemedIcon.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/ThemedIcon.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gio.Objects.ThemedIcon where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ThemedIcon = ThemedIcon (ForeignPtr ThemedIcon) -instance GObject ThemedIcon where -class GObject o => ThemedIconK o -instance (GObject o, IsDescendantOf ThemedIcon o) => ThemedIconK o -data ThemedIconNamePropertyInfo -data ThemedIconNamesPropertyInfo -data ThemedIconUseDefaultFallbacksPropertyInfo -data ThemedIconAppendNameMethodInfo -data ThemedIconGetNamesMethodInfo -data ThemedIconPrependNameMethodInfo diff --git a/GI/Gio/Objects/ThreadedSocketService.hs b/GI/Gio/Objects/ThreadedSocketService.hs deleted file mode 100644 --- a/GI/Gio/Objects/ThreadedSocketService.hs +++ /dev/null @@ -1,241 +0,0 @@ - - -{- | -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.Objects.ThreadedSocketService - ( - --- * Exported types - ThreadedSocketService(..) , - ThreadedSocketServiceK , - toThreadedSocketService , - noThreadedSocketService , - - - -- * Methods --- ** threadedSocketServiceNew - threadedSocketServiceNew , - - - - - -- * Properties --- ** MaxThreads - ThreadedSocketServiceMaxThreadsPropertyInfo, - constructThreadedSocketServiceMaxThreads, - getThreadedSocketServiceMaxThreads , - threadedSocketServiceMaxThreads , - - - - - -- * Signals --- ** Run - ThreadedSocketServiceRunCallback , - ThreadedSocketServiceRunCallbackC , - ThreadedSocketServiceRunSignalInfo , - afterThreadedSocketServiceRun , - mkThreadedSocketServiceRunCallback , - noThreadedSocketServiceRunCallback , - onThreadedSocketServiceRun , - threadedSocketServiceRunCallbackWrapper , - threadedSocketServiceRunClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype ThreadedSocketService = ThreadedSocketService (ForeignPtr ThreadedSocketService) -foreign import ccall "g_threaded_socket_service_get_type" - c_g_threaded_socket_service_get_type :: IO GType - -type instance ParentTypes ThreadedSocketService = ThreadedSocketServiceParentTypes -type ThreadedSocketServiceParentTypes = '[SocketService, SocketListener, GObject.Object] - -instance GObject ThreadedSocketService where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_threaded_socket_service_get_type - - -class GObject o => ThreadedSocketServiceK o -instance (GObject o, IsDescendantOf ThreadedSocketService o) => ThreadedSocketServiceK o - -toThreadedSocketService :: ThreadedSocketServiceK o => o -> IO ThreadedSocketService -toThreadedSocketService = unsafeCastTo ThreadedSocketService - -noThreadedSocketService :: Maybe ThreadedSocketService -noThreadedSocketService = Nothing - -type family ResolveThreadedSocketServiceMethod (t :: Symbol) (o :: *) :: * where - ResolveThreadedSocketServiceMethod "accept" o = SocketListenerAcceptMethodInfo - ResolveThreadedSocketServiceMethod "acceptAsync" o = SocketListenerAcceptAsyncMethodInfo - ResolveThreadedSocketServiceMethod "acceptFinish" o = SocketListenerAcceptFinishMethodInfo - ResolveThreadedSocketServiceMethod "acceptSocket" o = SocketListenerAcceptSocketMethodInfo - ResolveThreadedSocketServiceMethod "acceptSocketAsync" o = SocketListenerAcceptSocketAsyncMethodInfo - ResolveThreadedSocketServiceMethod "acceptSocketFinish" o = SocketListenerAcceptSocketFinishMethodInfo - ResolveThreadedSocketServiceMethod "addAddress" o = SocketListenerAddAddressMethodInfo - ResolveThreadedSocketServiceMethod "addAnyInetPort" o = SocketListenerAddAnyInetPortMethodInfo - ResolveThreadedSocketServiceMethod "addInetPort" o = SocketListenerAddInetPortMethodInfo - ResolveThreadedSocketServiceMethod "addSocket" o = SocketListenerAddSocketMethodInfo - ResolveThreadedSocketServiceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveThreadedSocketServiceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveThreadedSocketServiceMethod "close" o = SocketListenerCloseMethodInfo - ResolveThreadedSocketServiceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveThreadedSocketServiceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveThreadedSocketServiceMethod "isActive" o = SocketServiceIsActiveMethodInfo - ResolveThreadedSocketServiceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveThreadedSocketServiceMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveThreadedSocketServiceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveThreadedSocketServiceMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveThreadedSocketServiceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveThreadedSocketServiceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveThreadedSocketServiceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveThreadedSocketServiceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveThreadedSocketServiceMethod "start" o = SocketServiceStartMethodInfo - ResolveThreadedSocketServiceMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveThreadedSocketServiceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveThreadedSocketServiceMethod "stop" o = SocketServiceStopMethodInfo - ResolveThreadedSocketServiceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveThreadedSocketServiceMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveThreadedSocketServiceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveThreadedSocketServiceMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveThreadedSocketServiceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveThreadedSocketServiceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveThreadedSocketServiceMethod "setBacklog" o = SocketListenerSetBacklogMethodInfo - ResolveThreadedSocketServiceMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveThreadedSocketServiceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveThreadedSocketServiceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveThreadedSocketServiceMethod t ThreadedSocketService, MethodInfo info ThreadedSocketService p) => IsLabelProxy t (ThreadedSocketService -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveThreadedSocketServiceMethod t ThreadedSocketService, MethodInfo info ThreadedSocketService p) => IsLabel t (ThreadedSocketService -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal ThreadedSocketService::run -type ThreadedSocketServiceRunCallback = - SocketConnection -> - GObject.Object -> - IO Bool - -noThreadedSocketServiceRunCallback :: Maybe ThreadedSocketServiceRunCallback -noThreadedSocketServiceRunCallback = Nothing - -type ThreadedSocketServiceRunCallbackC = - Ptr () -> -- object - Ptr SocketConnection -> - Ptr GObject.Object -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkThreadedSocketServiceRunCallback :: ThreadedSocketServiceRunCallbackC -> IO (FunPtr ThreadedSocketServiceRunCallbackC) - -threadedSocketServiceRunClosure :: ThreadedSocketServiceRunCallback -> IO Closure -threadedSocketServiceRunClosure cb = newCClosure =<< mkThreadedSocketServiceRunCallback wrapped - where wrapped = threadedSocketServiceRunCallbackWrapper cb - -threadedSocketServiceRunCallbackWrapper :: - ThreadedSocketServiceRunCallback -> - Ptr () -> - Ptr SocketConnection -> - Ptr GObject.Object -> - Ptr () -> - IO CInt -threadedSocketServiceRunCallbackWrapper _cb _ connection sourceObject _ = do - connection' <- (newObject SocketConnection) connection - sourceObject' <- (newObject GObject.Object) sourceObject - result <- _cb connection' sourceObject' - let result' = (fromIntegral . fromEnum) result - return result' - -onThreadedSocketServiceRun :: (GObject a, MonadIO m) => a -> ThreadedSocketServiceRunCallback -> m SignalHandlerId -onThreadedSocketServiceRun obj cb = liftIO $ connectThreadedSocketServiceRun obj cb SignalConnectBefore -afterThreadedSocketServiceRun :: (GObject a, MonadIO m) => a -> ThreadedSocketServiceRunCallback -> m SignalHandlerId -afterThreadedSocketServiceRun obj cb = connectThreadedSocketServiceRun obj cb SignalConnectAfter - -connectThreadedSocketServiceRun :: (GObject a, MonadIO m) => - a -> ThreadedSocketServiceRunCallback -> SignalConnectMode -> m SignalHandlerId -connectThreadedSocketServiceRun obj cb after = liftIO $ do - cb' <- mkThreadedSocketServiceRunCallback (threadedSocketServiceRunCallbackWrapper cb) - connectSignalFunPtr obj "run" cb' after - --- VVV Prop "max-threads" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getThreadedSocketServiceMaxThreads :: (MonadIO m, ThreadedSocketServiceK o) => o -> m Int32 -getThreadedSocketServiceMaxThreads obj = liftIO $ getObjectPropertyInt32 obj "max-threads" - -constructThreadedSocketServiceMaxThreads :: Int32 -> IO ([Char], GValue) -constructThreadedSocketServiceMaxThreads val = constructObjectPropertyInt32 "max-threads" val - -data ThreadedSocketServiceMaxThreadsPropertyInfo -instance AttrInfo ThreadedSocketServiceMaxThreadsPropertyInfo where - type AttrAllowedOps ThreadedSocketServiceMaxThreadsPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ThreadedSocketServiceMaxThreadsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ThreadedSocketServiceMaxThreadsPropertyInfo = ThreadedSocketServiceK - type AttrGetType ThreadedSocketServiceMaxThreadsPropertyInfo = Int32 - type AttrLabel ThreadedSocketServiceMaxThreadsPropertyInfo = "max-threads" - attrGet _ = getThreadedSocketServiceMaxThreads - attrSet _ = undefined - attrConstruct _ = constructThreadedSocketServiceMaxThreads - attrClear _ = undefined - -type instance AttributeList ThreadedSocketService = ThreadedSocketServiceAttributeList -type ThreadedSocketServiceAttributeList = ('[ '("active", SocketServiceActivePropertyInfo), '("listenBacklog", SocketListenerListenBacklogPropertyInfo), '("maxThreads", ThreadedSocketServiceMaxThreadsPropertyInfo)] :: [(Symbol, *)]) - -threadedSocketServiceMaxThreads :: AttrLabelProxy "maxThreads" -threadedSocketServiceMaxThreads = AttrLabelProxy - -data ThreadedSocketServiceRunSignalInfo -instance SignalInfo ThreadedSocketServiceRunSignalInfo where - type HaskellCallbackType ThreadedSocketServiceRunSignalInfo = ThreadedSocketServiceRunCallback - connectSignal _ = connectThreadedSocketServiceRun - -type instance SignalList ThreadedSocketService = ThreadedSocketServiceSignalList -type ThreadedSocketServiceSignalList = ('[ '("event", SocketListenerEventSignalInfo), '("incoming", SocketServiceIncomingSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("run", ThreadedSocketServiceRunSignalInfo)] :: [(Symbol, *)]) - --- method ThreadedSocketService::new --- method type : Constructor --- Args : [Arg {argCName = "max_threads", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "ThreadedSocketService") --- throws : False --- Skip return : False - -foreign import ccall "g_threaded_socket_service_new" g_threaded_socket_service_new :: - Int32 -> -- max_threads : TBasicType TInt - IO (Ptr ThreadedSocketService) - - -threadedSocketServiceNew :: - (MonadIO m) => - Int32 -- maxThreads - -> m ThreadedSocketService -- result -threadedSocketServiceNew maxThreads = liftIO $ do - result <- g_threaded_socket_service_new maxThreads - checkUnexpectedReturnNULL "g_threaded_socket_service_new" result - result' <- (wrapObject ThreadedSocketService) result - return result' - - diff --git a/GI/Gio/Objects/ThreadedSocketService.hs-boot b/GI/Gio/Objects/ThreadedSocketService.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/ThreadedSocketService.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gio.Objects.ThreadedSocketService where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ThreadedSocketService = ThreadedSocketService (ForeignPtr ThreadedSocketService) -instance GObject ThreadedSocketService where -class GObject o => ThreadedSocketServiceK o -instance (GObject o, IsDescendantOf ThreadedSocketService o) => ThreadedSocketServiceK o -data ThreadedSocketServiceMaxThreadsPropertyInfo -data ThreadedSocketServiceRunSignalInfo diff --git a/GI/Gio/Objects/TlsCertificate.hs b/GI/Gio/Objects/TlsCertificate.hs deleted file mode 100644 --- a/GI/Gio/Objects/TlsCertificate.hs +++ /dev/null @@ -1,522 +0,0 @@ - - -{- | -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.Objects.TlsCertificate - ( - --- * Exported types - TlsCertificate(..) , - TlsCertificateK , - toTlsCertificate , - noTlsCertificate , - - - -- * Methods --- ** tlsCertificateGetIssuer - TlsCertificateGetIssuerMethodInfo , - tlsCertificateGetIssuer , - - --- ** tlsCertificateIsSame - TlsCertificateIsSameMethodInfo , - tlsCertificateIsSame , - - --- ** tlsCertificateListNewFromFile - tlsCertificateListNewFromFile , - - --- ** tlsCertificateNewFromFile - tlsCertificateNewFromFile , - - --- ** tlsCertificateNewFromFiles - tlsCertificateNewFromFiles , - - --- ** tlsCertificateNewFromPem - tlsCertificateNewFromPem , - - --- ** tlsCertificateVerify - TlsCertificateVerifyMethodInfo , - tlsCertificateVerify , - - - - - -- * Properties --- ** Certificate - TlsCertificateCertificatePropertyInfo , - constructTlsCertificateCertificate , - getTlsCertificateCertificate , - tlsCertificateCertificate , - - --- ** CertificatePem - TlsCertificateCertificatePemPropertyInfo, - constructTlsCertificateCertificatePem , - getTlsCertificateCertificatePem , - tlsCertificateCertificatePem , - - --- ** Issuer - TlsCertificateIssuerPropertyInfo , - constructTlsCertificateIssuer , - getTlsCertificateIssuer , - tlsCertificateIssuer , - - --- ** PrivateKey - TlsCertificatePrivateKeyPropertyInfo , - constructTlsCertificatePrivateKey , - tlsCertificatePrivateKey , - - --- ** PrivateKeyPem - TlsCertificatePrivateKeyPemPropertyInfo , - constructTlsCertificatePrivateKeyPem , - tlsCertificatePrivateKeyPem , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype TlsCertificate = TlsCertificate (ForeignPtr TlsCertificate) -foreign import ccall "g_tls_certificate_get_type" - c_g_tls_certificate_get_type :: IO GType - -type instance ParentTypes TlsCertificate = TlsCertificateParentTypes -type TlsCertificateParentTypes = '[GObject.Object] - -instance GObject TlsCertificate where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_tls_certificate_get_type - - -class GObject o => TlsCertificateK o -instance (GObject o, IsDescendantOf TlsCertificate o) => TlsCertificateK o - -toTlsCertificate :: TlsCertificateK o => o -> IO TlsCertificate -toTlsCertificate = unsafeCastTo TlsCertificate - -noTlsCertificate :: Maybe TlsCertificate -noTlsCertificate = Nothing - -type family ResolveTlsCertificateMethod (t :: Symbol) (o :: *) :: * where - ResolveTlsCertificateMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTlsCertificateMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTlsCertificateMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTlsCertificateMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTlsCertificateMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTlsCertificateMethod "isSame" o = TlsCertificateIsSameMethodInfo - ResolveTlsCertificateMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTlsCertificateMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTlsCertificateMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTlsCertificateMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTlsCertificateMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTlsCertificateMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTlsCertificateMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTlsCertificateMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTlsCertificateMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTlsCertificateMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTlsCertificateMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTlsCertificateMethod "verify" o = TlsCertificateVerifyMethodInfo - ResolveTlsCertificateMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTlsCertificateMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTlsCertificateMethod "getIssuer" o = TlsCertificateGetIssuerMethodInfo - ResolveTlsCertificateMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTlsCertificateMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTlsCertificateMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTlsCertificateMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTlsCertificateMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTlsCertificateMethod t TlsCertificate, MethodInfo info TlsCertificate p) => IsLabelProxy t (TlsCertificate -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTlsCertificateMethod t TlsCertificate, MethodInfo info TlsCertificate p) => IsLabel t (TlsCertificate -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "certificate" - -- Type: TByteArray - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getTlsCertificateCertificate :: (MonadIO m, TlsCertificateK o) => o -> m (Maybe ByteString) -getTlsCertificateCertificate obj = liftIO $ getObjectPropertyByteArray obj "certificate" - -constructTlsCertificateCertificate :: ByteString -> IO ([Char], GValue) -constructTlsCertificateCertificate val = constructObjectPropertyByteArray "certificate" (Just val) - -data TlsCertificateCertificatePropertyInfo -instance AttrInfo TlsCertificateCertificatePropertyInfo where - type AttrAllowedOps TlsCertificateCertificatePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TlsCertificateCertificatePropertyInfo = (~) ByteString - type AttrBaseTypeConstraint TlsCertificateCertificatePropertyInfo = TlsCertificateK - type AttrGetType TlsCertificateCertificatePropertyInfo = (Maybe ByteString) - type AttrLabel TlsCertificateCertificatePropertyInfo = "certificate" - attrGet _ = getTlsCertificateCertificate - attrSet _ = undefined - attrConstruct _ = constructTlsCertificateCertificate - attrClear _ = undefined - --- VVV Prop "certificate-pem" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getTlsCertificateCertificatePem :: (MonadIO m, TlsCertificateK o) => o -> m (Maybe T.Text) -getTlsCertificateCertificatePem obj = liftIO $ getObjectPropertyString obj "certificate-pem" - -constructTlsCertificateCertificatePem :: T.Text -> IO ([Char], GValue) -constructTlsCertificateCertificatePem val = constructObjectPropertyString "certificate-pem" (Just val) - -data TlsCertificateCertificatePemPropertyInfo -instance AttrInfo TlsCertificateCertificatePemPropertyInfo where - type AttrAllowedOps TlsCertificateCertificatePemPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TlsCertificateCertificatePemPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TlsCertificateCertificatePemPropertyInfo = TlsCertificateK - type AttrGetType TlsCertificateCertificatePemPropertyInfo = (Maybe T.Text) - type AttrLabel TlsCertificateCertificatePemPropertyInfo = "certificate-pem" - attrGet _ = getTlsCertificateCertificatePem - attrSet _ = undefined - attrConstruct _ = constructTlsCertificateCertificatePem - attrClear _ = undefined - --- VVV Prop "issuer" - -- Type: TInterface "Gio" "TlsCertificate" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getTlsCertificateIssuer :: (MonadIO m, TlsCertificateK o) => o -> m TlsCertificate -getTlsCertificateIssuer obj = liftIO $ checkUnexpectedNothing "getTlsCertificateIssuer" $ getObjectPropertyObject obj "issuer" TlsCertificate - -constructTlsCertificateIssuer :: (TlsCertificateK a) => a -> IO ([Char], GValue) -constructTlsCertificateIssuer val = constructObjectPropertyObject "issuer" (Just val) - -data TlsCertificateIssuerPropertyInfo -instance AttrInfo TlsCertificateIssuerPropertyInfo where - type AttrAllowedOps TlsCertificateIssuerPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TlsCertificateIssuerPropertyInfo = TlsCertificateK - type AttrBaseTypeConstraint TlsCertificateIssuerPropertyInfo = TlsCertificateK - type AttrGetType TlsCertificateIssuerPropertyInfo = TlsCertificate - type AttrLabel TlsCertificateIssuerPropertyInfo = "issuer" - attrGet _ = getTlsCertificateIssuer - attrSet _ = undefined - attrConstruct _ = constructTlsCertificateIssuer - attrClear _ = undefined - --- VVV Prop "private-key" - -- Type: TByteArray - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructTlsCertificatePrivateKey :: ByteString -> IO ([Char], GValue) -constructTlsCertificatePrivateKey val = constructObjectPropertyByteArray "private-key" (Just val) - -data TlsCertificatePrivateKeyPropertyInfo -instance AttrInfo TlsCertificatePrivateKeyPropertyInfo where - type AttrAllowedOps TlsCertificatePrivateKeyPropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint TlsCertificatePrivateKeyPropertyInfo = (~) ByteString - type AttrBaseTypeConstraint TlsCertificatePrivateKeyPropertyInfo = TlsCertificateK - type AttrGetType TlsCertificatePrivateKeyPropertyInfo = () - type AttrLabel TlsCertificatePrivateKeyPropertyInfo = "private-key" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructTlsCertificatePrivateKey - attrClear _ = undefined - --- VVV Prop "private-key-pem" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructTlsCertificatePrivateKeyPem :: T.Text -> IO ([Char], GValue) -constructTlsCertificatePrivateKeyPem val = constructObjectPropertyString "private-key-pem" (Just val) - -data TlsCertificatePrivateKeyPemPropertyInfo -instance AttrInfo TlsCertificatePrivateKeyPemPropertyInfo where - type AttrAllowedOps TlsCertificatePrivateKeyPemPropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint TlsCertificatePrivateKeyPemPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TlsCertificatePrivateKeyPemPropertyInfo = TlsCertificateK - type AttrGetType TlsCertificatePrivateKeyPemPropertyInfo = () - type AttrLabel TlsCertificatePrivateKeyPemPropertyInfo = "private-key-pem" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructTlsCertificatePrivateKeyPem - attrClear _ = undefined - -type instance AttributeList TlsCertificate = TlsCertificateAttributeList -type TlsCertificateAttributeList = ('[ '("certificate", TlsCertificateCertificatePropertyInfo), '("certificatePem", TlsCertificateCertificatePemPropertyInfo), '("issuer", TlsCertificateIssuerPropertyInfo), '("privateKey", TlsCertificatePrivateKeyPropertyInfo), '("privateKeyPem", TlsCertificatePrivateKeyPemPropertyInfo)] :: [(Symbol, *)]) - -tlsCertificateCertificate :: AttrLabelProxy "certificate" -tlsCertificateCertificate = AttrLabelProxy - -tlsCertificateCertificatePem :: AttrLabelProxy "certificatePem" -tlsCertificateCertificatePem = AttrLabelProxy - -tlsCertificateIssuer :: AttrLabelProxy "issuer" -tlsCertificateIssuer = AttrLabelProxy - -tlsCertificatePrivateKey :: AttrLabelProxy "privateKey" -tlsCertificatePrivateKey = AttrLabelProxy - -tlsCertificatePrivateKeyPem :: AttrLabelProxy "privateKeyPem" -tlsCertificatePrivateKeyPem = AttrLabelProxy - -type instance SignalList TlsCertificate = TlsCertificateSignalList -type TlsCertificateSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TlsCertificate::new_from_file --- method type : Constructor --- Args : [Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsCertificate") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_certificate_new_from_file" g_tls_certificate_new_from_file :: - CString -> -- file : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr TlsCertificate) - - -tlsCertificateNewFromFile :: - (MonadIO m) => - T.Text -- file - -> m TlsCertificate -- result -tlsCertificateNewFromFile file = liftIO $ do - file' <- textToCString file - onException (do - result <- propagateGError $ g_tls_certificate_new_from_file file' - checkUnexpectedReturnNULL "g_tls_certificate_new_from_file" result - result' <- (wrapObject TlsCertificate) result - freeMem file' - return result' - ) (do - freeMem file' - ) - --- method TlsCertificate::new_from_files --- method type : Constructor --- Args : [Arg {argCName = "cert_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsCertificate") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_certificate_new_from_files" g_tls_certificate_new_from_files :: - CString -> -- cert_file : TBasicType TUTF8 - CString -> -- key_file : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr TlsCertificate) - - -tlsCertificateNewFromFiles :: - (MonadIO m) => - T.Text -- certFile - -> T.Text -- keyFile - -> m TlsCertificate -- result -tlsCertificateNewFromFiles certFile keyFile = liftIO $ do - certFile' <- textToCString certFile - keyFile' <- textToCString keyFile - onException (do - result <- propagateGError $ g_tls_certificate_new_from_files certFile' keyFile' - checkUnexpectedReturnNULL "g_tls_certificate_new_from_files" result - result' <- (wrapObject TlsCertificate) result - freeMem certFile' - freeMem keyFile' - return result' - ) (do - freeMem certFile' - freeMem keyFile' - ) - --- method TlsCertificate::new_from_pem --- method type : Constructor --- Args : [Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsCertificate") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_certificate_new_from_pem" g_tls_certificate_new_from_pem :: - CString -> -- data : TBasicType TUTF8 - Int64 -> -- length : TBasicType TInt64 - Ptr (Ptr GError) -> -- error - IO (Ptr TlsCertificate) - - -tlsCertificateNewFromPem :: - (MonadIO m) => - T.Text -- data_ - -> Int64 -- length_ - -> m TlsCertificate -- result -tlsCertificateNewFromPem data_ length_ = liftIO $ do - data_' <- textToCString data_ - onException (do - result <- propagateGError $ g_tls_certificate_new_from_pem data_' length_ - checkUnexpectedReturnNULL "g_tls_certificate_new_from_pem" result - result' <- (wrapObject TlsCertificate) result - freeMem data_' - return result' - ) (do - freeMem data_' - ) - --- method TlsCertificate::get_issuer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsCertificate") --- throws : False --- Skip return : False - -foreign import ccall "g_tls_certificate_get_issuer" g_tls_certificate_get_issuer :: - Ptr TlsCertificate -> -- _obj : TInterface "Gio" "TlsCertificate" - IO (Ptr TlsCertificate) - - -tlsCertificateGetIssuer :: - (MonadIO m, TlsCertificateK a) => - a -- _obj - -> m TlsCertificate -- result -tlsCertificateGetIssuer _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_certificate_get_issuer _obj' - checkUnexpectedReturnNULL "g_tls_certificate_get_issuer" result - result' <- (newObject TlsCertificate) result - touchManagedPtr _obj - return result' - -data TlsCertificateGetIssuerMethodInfo -instance (signature ~ (m TlsCertificate), MonadIO m, TlsCertificateK a) => MethodInfo TlsCertificateGetIssuerMethodInfo a signature where - overloadedMethod _ = tlsCertificateGetIssuer - --- method TlsCertificate::is_same --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cert_two", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_tls_certificate_is_same" g_tls_certificate_is_same :: - Ptr TlsCertificate -> -- _obj : TInterface "Gio" "TlsCertificate" - Ptr TlsCertificate -> -- cert_two : TInterface "Gio" "TlsCertificate" - IO CInt - - -tlsCertificateIsSame :: - (MonadIO m, TlsCertificateK a, TlsCertificateK b) => - a -- _obj - -> b -- certTwo - -> m Bool -- result -tlsCertificateIsSame _obj certTwo = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let certTwo' = unsafeManagedPtrCastPtr certTwo - result <- g_tls_certificate_is_same _obj' certTwo' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr certTwo - return result' - -data TlsCertificateIsSameMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, TlsCertificateK a, TlsCertificateK b) => MethodInfo TlsCertificateIsSameMethodInfo a signature where - overloadedMethod _ = tlsCertificateIsSame - --- method TlsCertificate::verify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "trusted_ca", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsCertificateFlags") --- throws : False --- Skip return : False - -foreign import ccall "g_tls_certificate_verify" g_tls_certificate_verify :: - Ptr TlsCertificate -> -- _obj : TInterface "Gio" "TlsCertificate" - Ptr SocketConnectable -> -- identity : TInterface "Gio" "SocketConnectable" - Ptr TlsCertificate -> -- trusted_ca : TInterface "Gio" "TlsCertificate" - IO CUInt - - -tlsCertificateVerify :: - (MonadIO m, TlsCertificateK a, SocketConnectableK b, TlsCertificateK c) => - a -- _obj - -> Maybe (b) -- identity - -> Maybe (c) -- trustedCa - -> m [TlsCertificateFlags] -- result -tlsCertificateVerify _obj identity trustedCa = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeIdentity <- case identity of - Nothing -> return nullPtr - Just jIdentity -> do - let jIdentity' = unsafeManagedPtrCastPtr jIdentity - return jIdentity' - maybeTrustedCa <- case trustedCa of - Nothing -> return nullPtr - Just jTrustedCa -> do - let jTrustedCa' = unsafeManagedPtrCastPtr jTrustedCa - return jTrustedCa' - result <- g_tls_certificate_verify _obj' maybeIdentity maybeTrustedCa - let result' = wordToGFlags result - touchManagedPtr _obj - whenJust identity touchManagedPtr - whenJust trustedCa touchManagedPtr - return result' - -data TlsCertificateVerifyMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (c) -> m [TlsCertificateFlags]), MonadIO m, TlsCertificateK a, SocketConnectableK b, TlsCertificateK c) => MethodInfo TlsCertificateVerifyMethodInfo a signature where - overloadedMethod _ = tlsCertificateVerify - --- method TlsCertificate::list_new_from_file --- method type : MemberFunction --- Args : [Arg {argCName = "file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "TlsCertificate")) --- throws : True --- Skip return : False - -foreign import ccall "g_tls_certificate_list_new_from_file" g_tls_certificate_list_new_from_file :: - CString -> -- file : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr (GList (Ptr TlsCertificate))) - - -tlsCertificateListNewFromFile :: - (MonadIO m) => - T.Text -- file - -> m [TlsCertificate] -- result -tlsCertificateListNewFromFile file = liftIO $ do - file' <- textToCString file - onException (do - result <- propagateGError $ g_tls_certificate_list_new_from_file file' - result' <- unpackGList result - result'' <- mapM (wrapObject TlsCertificate) result' - g_list_free result - freeMem file' - return result'' - ) (do - freeMem file' - ) - - diff --git a/GI/Gio/Objects/TlsCertificate.hs-boot b/GI/Gio/Objects/TlsCertificate.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/TlsCertificate.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gio.Objects.TlsCertificate where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TlsCertificate = TlsCertificate (ForeignPtr TlsCertificate) -instance GObject TlsCertificate where -class GObject o => TlsCertificateK o -instance (GObject o, IsDescendantOf TlsCertificate o) => TlsCertificateK o -data TlsCertificateCertificatePropertyInfo -data TlsCertificateCertificatePemPropertyInfo -data TlsCertificateIssuerPropertyInfo -data TlsCertificatePrivateKeyPropertyInfo -data TlsCertificatePrivateKeyPemPropertyInfo -data TlsCertificateGetIssuerMethodInfo -data TlsCertificateIsSameMethodInfo -data TlsCertificateVerifyMethodInfo diff --git a/GI/Gio/Objects/TlsConnection.hs b/GI/Gio/Objects/TlsConnection.hs deleted file mode 100644 --- a/GI/Gio/Objects/TlsConnection.hs +++ /dev/null @@ -1,1175 +0,0 @@ - - -{- | -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.Objects.TlsConnection - ( - --- * Exported types - TlsConnection(..) , - TlsConnectionK , - toTlsConnection , - noTlsConnection , - - - -- * Methods --- ** tlsConnectionEmitAcceptCertificate - TlsConnectionEmitAcceptCertificateMethodInfo, - tlsConnectionEmitAcceptCertificate , - - --- ** tlsConnectionGetCertificate - TlsConnectionGetCertificateMethodInfo , - tlsConnectionGetCertificate , - - --- ** tlsConnectionGetDatabase - TlsConnectionGetDatabaseMethodInfo , - tlsConnectionGetDatabase , - - --- ** tlsConnectionGetInteraction - TlsConnectionGetInteractionMethodInfo , - tlsConnectionGetInteraction , - - --- ** tlsConnectionGetPeerCertificate - TlsConnectionGetPeerCertificateMethodInfo, - tlsConnectionGetPeerCertificate , - - --- ** tlsConnectionGetPeerCertificateErrors - TlsConnectionGetPeerCertificateErrorsMethodInfo, - tlsConnectionGetPeerCertificateErrors , - - --- ** tlsConnectionGetRehandshakeMode - TlsConnectionGetRehandshakeModeMethodInfo, - tlsConnectionGetRehandshakeMode , - - --- ** tlsConnectionGetRequireCloseNotify - TlsConnectionGetRequireCloseNotifyMethodInfo, - tlsConnectionGetRequireCloseNotify , - - --- ** tlsConnectionGetUseSystemCertdb - TlsConnectionGetUseSystemCertdbMethodInfo, - tlsConnectionGetUseSystemCertdb , - - --- ** tlsConnectionHandshake - TlsConnectionHandshakeMethodInfo , - tlsConnectionHandshake , - - --- ** tlsConnectionHandshakeAsync - TlsConnectionHandshakeAsyncMethodInfo , - tlsConnectionHandshakeAsync , - - --- ** tlsConnectionHandshakeFinish - TlsConnectionHandshakeFinishMethodInfo , - tlsConnectionHandshakeFinish , - - --- ** tlsConnectionSetCertificate - TlsConnectionSetCertificateMethodInfo , - tlsConnectionSetCertificate , - - --- ** tlsConnectionSetDatabase - TlsConnectionSetDatabaseMethodInfo , - tlsConnectionSetDatabase , - - --- ** tlsConnectionSetInteraction - TlsConnectionSetInteractionMethodInfo , - tlsConnectionSetInteraction , - - --- ** tlsConnectionSetRehandshakeMode - TlsConnectionSetRehandshakeModeMethodInfo, - tlsConnectionSetRehandshakeMode , - - --- ** tlsConnectionSetRequireCloseNotify - TlsConnectionSetRequireCloseNotifyMethodInfo, - tlsConnectionSetRequireCloseNotify , - - --- ** tlsConnectionSetUseSystemCertdb - TlsConnectionSetUseSystemCertdbMethodInfo, - tlsConnectionSetUseSystemCertdb , - - - - - -- * Properties --- ** BaseIoStream - TlsConnectionBaseIoStreamPropertyInfo , - constructTlsConnectionBaseIoStream , - getTlsConnectionBaseIoStream , - tlsConnectionBaseIoStream , - - --- ** Certificate - TlsConnectionCertificatePropertyInfo , - constructTlsConnectionCertificate , - getTlsConnectionCertificate , - setTlsConnectionCertificate , - tlsConnectionCertificate , - - --- ** Database - TlsConnectionDatabasePropertyInfo , - constructTlsConnectionDatabase , - getTlsConnectionDatabase , - setTlsConnectionDatabase , - tlsConnectionDatabase , - - --- ** Interaction - TlsConnectionInteractionPropertyInfo , - clearTlsConnectionInteraction , - constructTlsConnectionInteraction , - getTlsConnectionInteraction , - setTlsConnectionInteraction , - tlsConnectionInteraction , - - --- ** PeerCertificate - TlsConnectionPeerCertificatePropertyInfo, - getTlsConnectionPeerCertificate , - tlsConnectionPeerCertificate , - - --- ** PeerCertificateErrors - TlsConnectionPeerCertificateErrorsPropertyInfo, - getTlsConnectionPeerCertificateErrors , - tlsConnectionPeerCertificateErrors , - - --- ** RehandshakeMode - TlsConnectionRehandshakeModePropertyInfo, - constructTlsConnectionRehandshakeMode , - getTlsConnectionRehandshakeMode , - setTlsConnectionRehandshakeMode , - tlsConnectionRehandshakeMode , - - --- ** RequireCloseNotify - TlsConnectionRequireCloseNotifyPropertyInfo, - constructTlsConnectionRequireCloseNotify, - getTlsConnectionRequireCloseNotify , - setTlsConnectionRequireCloseNotify , - tlsConnectionRequireCloseNotify , - - --- ** UseSystemCertdb - TlsConnectionUseSystemCertdbPropertyInfo, - constructTlsConnectionUseSystemCertdb , - getTlsConnectionUseSystemCertdb , - setTlsConnectionUseSystemCertdb , - tlsConnectionUseSystemCertdb , - - - - - -- * Signals --- ** AcceptCertificate - TlsConnectionAcceptCertificateCallback , - TlsConnectionAcceptCertificateCallbackC , - TlsConnectionAcceptCertificateSignalInfo, - afterTlsConnectionAcceptCertificate , - mkTlsConnectionAcceptCertificateCallback, - noTlsConnectionAcceptCertificateCallback, - onTlsConnectionAcceptCertificate , - tlsConnectionAcceptCertificateCallbackWrapper, - tlsConnectionAcceptCertificateClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype TlsConnection = TlsConnection (ForeignPtr TlsConnection) -foreign import ccall "g_tls_connection_get_type" - c_g_tls_connection_get_type :: IO GType - -type instance ParentTypes TlsConnection = TlsConnectionParentTypes -type TlsConnectionParentTypes = '[IOStream, GObject.Object] - -instance GObject TlsConnection where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_tls_connection_get_type - - -class GObject o => TlsConnectionK o -instance (GObject o, IsDescendantOf TlsConnection o) => TlsConnectionK o - -toTlsConnection :: TlsConnectionK o => o -> IO TlsConnection -toTlsConnection = unsafeCastTo TlsConnection - -noTlsConnection :: Maybe TlsConnection -noTlsConnection = Nothing - -type family ResolveTlsConnectionMethod (t :: Symbol) (o :: *) :: * where - ResolveTlsConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTlsConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTlsConnectionMethod "clearPending" o = IOStreamClearPendingMethodInfo - ResolveTlsConnectionMethod "close" o = IOStreamCloseMethodInfo - ResolveTlsConnectionMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo - ResolveTlsConnectionMethod "closeFinish" o = IOStreamCloseFinishMethodInfo - ResolveTlsConnectionMethod "emitAcceptCertificate" o = TlsConnectionEmitAcceptCertificateMethodInfo - ResolveTlsConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTlsConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTlsConnectionMethod "handshake" o = TlsConnectionHandshakeMethodInfo - ResolveTlsConnectionMethod "handshakeAsync" o = TlsConnectionHandshakeAsyncMethodInfo - ResolveTlsConnectionMethod "handshakeFinish" o = TlsConnectionHandshakeFinishMethodInfo - ResolveTlsConnectionMethod "hasPending" o = IOStreamHasPendingMethodInfo - ResolveTlsConnectionMethod "isClosed" o = IOStreamIsClosedMethodInfo - ResolveTlsConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTlsConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTlsConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTlsConnectionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTlsConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTlsConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTlsConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTlsConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTlsConnectionMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo - ResolveTlsConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTlsConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTlsConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTlsConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTlsConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTlsConnectionMethod "getCertificate" o = TlsConnectionGetCertificateMethodInfo - ResolveTlsConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTlsConnectionMethod "getDatabase" o = TlsConnectionGetDatabaseMethodInfo - ResolveTlsConnectionMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo - ResolveTlsConnectionMethod "getInteraction" o = TlsConnectionGetInteractionMethodInfo - ResolveTlsConnectionMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo - ResolveTlsConnectionMethod "getPeerCertificate" o = TlsConnectionGetPeerCertificateMethodInfo - ResolveTlsConnectionMethod "getPeerCertificateErrors" o = TlsConnectionGetPeerCertificateErrorsMethodInfo - ResolveTlsConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTlsConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTlsConnectionMethod "getRehandshakeMode" o = TlsConnectionGetRehandshakeModeMethodInfo - ResolveTlsConnectionMethod "getRequireCloseNotify" o = TlsConnectionGetRequireCloseNotifyMethodInfo - ResolveTlsConnectionMethod "getUseSystemCertdb" o = TlsConnectionGetUseSystemCertdbMethodInfo - ResolveTlsConnectionMethod "setCertificate" o = TlsConnectionSetCertificateMethodInfo - ResolveTlsConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTlsConnectionMethod "setDatabase" o = TlsConnectionSetDatabaseMethodInfo - ResolveTlsConnectionMethod "setInteraction" o = TlsConnectionSetInteractionMethodInfo - ResolveTlsConnectionMethod "setPending" o = IOStreamSetPendingMethodInfo - ResolveTlsConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTlsConnectionMethod "setRehandshakeMode" o = TlsConnectionSetRehandshakeModeMethodInfo - ResolveTlsConnectionMethod "setRequireCloseNotify" o = TlsConnectionSetRequireCloseNotifyMethodInfo - ResolveTlsConnectionMethod "setUseSystemCertdb" o = TlsConnectionSetUseSystemCertdbMethodInfo - ResolveTlsConnectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTlsConnectionMethod t TlsConnection, MethodInfo info TlsConnection p) => IsLabelProxy t (TlsConnection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTlsConnectionMethod t TlsConnection, MethodInfo info TlsConnection p) => IsLabel t (TlsConnection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal TlsConnection::accept-certificate -type TlsConnectionAcceptCertificateCallback = - TlsCertificate -> - [TlsCertificateFlags] -> - IO Bool - -noTlsConnectionAcceptCertificateCallback :: Maybe TlsConnectionAcceptCertificateCallback -noTlsConnectionAcceptCertificateCallback = Nothing - -type TlsConnectionAcceptCertificateCallbackC = - Ptr () -> -- object - Ptr TlsCertificate -> - CUInt -> - Ptr () -> -- user_data - IO CInt - -foreign import ccall "wrapper" - mkTlsConnectionAcceptCertificateCallback :: TlsConnectionAcceptCertificateCallbackC -> IO (FunPtr TlsConnectionAcceptCertificateCallbackC) - -tlsConnectionAcceptCertificateClosure :: TlsConnectionAcceptCertificateCallback -> IO Closure -tlsConnectionAcceptCertificateClosure cb = newCClosure =<< mkTlsConnectionAcceptCertificateCallback wrapped - where wrapped = tlsConnectionAcceptCertificateCallbackWrapper cb - -tlsConnectionAcceptCertificateCallbackWrapper :: - TlsConnectionAcceptCertificateCallback -> - Ptr () -> - Ptr TlsCertificate -> - CUInt -> - Ptr () -> - IO CInt -tlsConnectionAcceptCertificateCallbackWrapper _cb _ peerCert errors _ = do - peerCert' <- (newObject TlsCertificate) peerCert - let errors' = wordToGFlags errors - result <- _cb peerCert' errors' - let result' = (fromIntegral . fromEnum) result - return result' - -onTlsConnectionAcceptCertificate :: (GObject a, MonadIO m) => a -> TlsConnectionAcceptCertificateCallback -> m SignalHandlerId -onTlsConnectionAcceptCertificate obj cb = liftIO $ connectTlsConnectionAcceptCertificate obj cb SignalConnectBefore -afterTlsConnectionAcceptCertificate :: (GObject a, MonadIO m) => a -> TlsConnectionAcceptCertificateCallback -> m SignalHandlerId -afterTlsConnectionAcceptCertificate obj cb = connectTlsConnectionAcceptCertificate obj cb SignalConnectAfter - -connectTlsConnectionAcceptCertificate :: (GObject a, MonadIO m) => - a -> TlsConnectionAcceptCertificateCallback -> SignalConnectMode -> m SignalHandlerId -connectTlsConnectionAcceptCertificate obj cb after = liftIO $ do - cb' <- mkTlsConnectionAcceptCertificateCallback (tlsConnectionAcceptCertificateCallbackWrapper cb) - connectSignalFunPtr obj "accept-certificate" cb' after - --- VVV Prop "base-io-stream" - -- Type: TInterface "Gio" "IOStream" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getTlsConnectionBaseIoStream :: (MonadIO m, TlsConnectionK o) => o -> m (Maybe IOStream) -getTlsConnectionBaseIoStream obj = liftIO $ getObjectPropertyObject obj "base-io-stream" IOStream - -constructTlsConnectionBaseIoStream :: (IOStreamK a) => a -> IO ([Char], GValue) -constructTlsConnectionBaseIoStream val = constructObjectPropertyObject "base-io-stream" (Just val) - -data TlsConnectionBaseIoStreamPropertyInfo -instance AttrInfo TlsConnectionBaseIoStreamPropertyInfo where - type AttrAllowedOps TlsConnectionBaseIoStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TlsConnectionBaseIoStreamPropertyInfo = IOStreamK - type AttrBaseTypeConstraint TlsConnectionBaseIoStreamPropertyInfo = TlsConnectionK - type AttrGetType TlsConnectionBaseIoStreamPropertyInfo = (Maybe IOStream) - type AttrLabel TlsConnectionBaseIoStreamPropertyInfo = "base-io-stream" - attrGet _ = getTlsConnectionBaseIoStream - attrSet _ = undefined - attrConstruct _ = constructTlsConnectionBaseIoStream - attrClear _ = undefined - --- VVV Prop "certificate" - -- Type: TInterface "Gio" "TlsCertificate" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTlsConnectionCertificate :: (MonadIO m, TlsConnectionK o) => o -> m TlsCertificate -getTlsConnectionCertificate obj = liftIO $ checkUnexpectedNothing "getTlsConnectionCertificate" $ getObjectPropertyObject obj "certificate" TlsCertificate - -setTlsConnectionCertificate :: (MonadIO m, TlsConnectionK o, TlsCertificateK a) => o -> a -> m () -setTlsConnectionCertificate obj val = liftIO $ setObjectPropertyObject obj "certificate" (Just val) - -constructTlsConnectionCertificate :: (TlsCertificateK a) => a -> IO ([Char], GValue) -constructTlsConnectionCertificate val = constructObjectPropertyObject "certificate" (Just val) - -data TlsConnectionCertificatePropertyInfo -instance AttrInfo TlsConnectionCertificatePropertyInfo where - type AttrAllowedOps TlsConnectionCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TlsConnectionCertificatePropertyInfo = TlsCertificateK - type AttrBaseTypeConstraint TlsConnectionCertificatePropertyInfo = TlsConnectionK - type AttrGetType TlsConnectionCertificatePropertyInfo = TlsCertificate - type AttrLabel TlsConnectionCertificatePropertyInfo = "certificate" - attrGet _ = getTlsConnectionCertificate - attrSet _ = setTlsConnectionCertificate - attrConstruct _ = constructTlsConnectionCertificate - attrClear _ = undefined - --- VVV Prop "database" - -- Type: TInterface "Gio" "TlsDatabase" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTlsConnectionDatabase :: (MonadIO m, TlsConnectionK o) => o -> m TlsDatabase -getTlsConnectionDatabase obj = liftIO $ checkUnexpectedNothing "getTlsConnectionDatabase" $ getObjectPropertyObject obj "database" TlsDatabase - -setTlsConnectionDatabase :: (MonadIO m, TlsConnectionK o, TlsDatabaseK a) => o -> a -> m () -setTlsConnectionDatabase obj val = liftIO $ setObjectPropertyObject obj "database" (Just val) - -constructTlsConnectionDatabase :: (TlsDatabaseK a) => a -> IO ([Char], GValue) -constructTlsConnectionDatabase val = constructObjectPropertyObject "database" (Just val) - -data TlsConnectionDatabasePropertyInfo -instance AttrInfo TlsConnectionDatabasePropertyInfo where - type AttrAllowedOps TlsConnectionDatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TlsConnectionDatabasePropertyInfo = TlsDatabaseK - type AttrBaseTypeConstraint TlsConnectionDatabasePropertyInfo = TlsConnectionK - type AttrGetType TlsConnectionDatabasePropertyInfo = TlsDatabase - type AttrLabel TlsConnectionDatabasePropertyInfo = "database" - attrGet _ = getTlsConnectionDatabase - attrSet _ = setTlsConnectionDatabase - attrConstruct _ = constructTlsConnectionDatabase - attrClear _ = undefined - --- VVV Prop "interaction" - -- Type: TInterface "Gio" "TlsInteraction" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getTlsConnectionInteraction :: (MonadIO m, TlsConnectionK o) => o -> m TlsInteraction -getTlsConnectionInteraction obj = liftIO $ checkUnexpectedNothing "getTlsConnectionInteraction" $ getObjectPropertyObject obj "interaction" TlsInteraction - -setTlsConnectionInteraction :: (MonadIO m, TlsConnectionK o, TlsInteractionK a) => o -> a -> m () -setTlsConnectionInteraction obj val = liftIO $ setObjectPropertyObject obj "interaction" (Just val) - -constructTlsConnectionInteraction :: (TlsInteractionK a) => a -> IO ([Char], GValue) -constructTlsConnectionInteraction val = constructObjectPropertyObject "interaction" (Just val) - -clearTlsConnectionInteraction :: (MonadIO m, TlsConnectionK o) => o -> m () -clearTlsConnectionInteraction obj = liftIO $ setObjectPropertyObject obj "interaction" (Nothing :: Maybe TlsInteraction) - -data TlsConnectionInteractionPropertyInfo -instance AttrInfo TlsConnectionInteractionPropertyInfo where - type AttrAllowedOps TlsConnectionInteractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TlsConnectionInteractionPropertyInfo = TlsInteractionK - type AttrBaseTypeConstraint TlsConnectionInteractionPropertyInfo = TlsConnectionK - type AttrGetType TlsConnectionInteractionPropertyInfo = TlsInteraction - type AttrLabel TlsConnectionInteractionPropertyInfo = "interaction" - attrGet _ = getTlsConnectionInteraction - attrSet _ = setTlsConnectionInteraction - attrConstruct _ = constructTlsConnectionInteraction - attrClear _ = clearTlsConnectionInteraction - --- VVV Prop "peer-certificate" - -- Type: TInterface "Gio" "TlsCertificate" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getTlsConnectionPeerCertificate :: (MonadIO m, TlsConnectionK o) => o -> m TlsCertificate -getTlsConnectionPeerCertificate obj = liftIO $ checkUnexpectedNothing "getTlsConnectionPeerCertificate" $ getObjectPropertyObject obj "peer-certificate" TlsCertificate - -data TlsConnectionPeerCertificatePropertyInfo -instance AttrInfo TlsConnectionPeerCertificatePropertyInfo where - type AttrAllowedOps TlsConnectionPeerCertificatePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint TlsConnectionPeerCertificatePropertyInfo = (~) () - type AttrBaseTypeConstraint TlsConnectionPeerCertificatePropertyInfo = TlsConnectionK - type AttrGetType TlsConnectionPeerCertificatePropertyInfo = TlsCertificate - type AttrLabel TlsConnectionPeerCertificatePropertyInfo = "peer-certificate" - attrGet _ = getTlsConnectionPeerCertificate - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "peer-certificate-errors" - -- Type: TInterface "Gio" "TlsCertificateFlags" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getTlsConnectionPeerCertificateErrors :: (MonadIO m, TlsConnectionK o) => o -> m [TlsCertificateFlags] -getTlsConnectionPeerCertificateErrors obj = liftIO $ getObjectPropertyFlags obj "peer-certificate-errors" - -data TlsConnectionPeerCertificateErrorsPropertyInfo -instance AttrInfo TlsConnectionPeerCertificateErrorsPropertyInfo where - type AttrAllowedOps TlsConnectionPeerCertificateErrorsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint TlsConnectionPeerCertificateErrorsPropertyInfo = (~) () - type AttrBaseTypeConstraint TlsConnectionPeerCertificateErrorsPropertyInfo = TlsConnectionK - type AttrGetType TlsConnectionPeerCertificateErrorsPropertyInfo = [TlsCertificateFlags] - type AttrLabel TlsConnectionPeerCertificateErrorsPropertyInfo = "peer-certificate-errors" - attrGet _ = getTlsConnectionPeerCertificateErrors - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "rehandshake-mode" - -- Type: TInterface "Gio" "TlsRehandshakeMode" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getTlsConnectionRehandshakeMode :: (MonadIO m, TlsConnectionK o) => o -> m TlsRehandshakeMode -getTlsConnectionRehandshakeMode obj = liftIO $ getObjectPropertyEnum obj "rehandshake-mode" - -setTlsConnectionRehandshakeMode :: (MonadIO m, TlsConnectionK o) => o -> TlsRehandshakeMode -> m () -setTlsConnectionRehandshakeMode obj val = liftIO $ setObjectPropertyEnum obj "rehandshake-mode" val - -constructTlsConnectionRehandshakeMode :: TlsRehandshakeMode -> IO ([Char], GValue) -constructTlsConnectionRehandshakeMode val = constructObjectPropertyEnum "rehandshake-mode" val - -data TlsConnectionRehandshakeModePropertyInfo -instance AttrInfo TlsConnectionRehandshakeModePropertyInfo where - type AttrAllowedOps TlsConnectionRehandshakeModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TlsConnectionRehandshakeModePropertyInfo = (~) TlsRehandshakeMode - type AttrBaseTypeConstraint TlsConnectionRehandshakeModePropertyInfo = TlsConnectionK - type AttrGetType TlsConnectionRehandshakeModePropertyInfo = TlsRehandshakeMode - type AttrLabel TlsConnectionRehandshakeModePropertyInfo = "rehandshake-mode" - attrGet _ = getTlsConnectionRehandshakeMode - attrSet _ = setTlsConnectionRehandshakeMode - attrConstruct _ = constructTlsConnectionRehandshakeMode - attrClear _ = undefined - --- VVV Prop "require-close-notify" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getTlsConnectionRequireCloseNotify :: (MonadIO m, TlsConnectionK o) => o -> m Bool -getTlsConnectionRequireCloseNotify obj = liftIO $ getObjectPropertyBool obj "require-close-notify" - -setTlsConnectionRequireCloseNotify :: (MonadIO m, TlsConnectionK o) => o -> Bool -> m () -setTlsConnectionRequireCloseNotify obj val = liftIO $ setObjectPropertyBool obj "require-close-notify" val - -constructTlsConnectionRequireCloseNotify :: Bool -> IO ([Char], GValue) -constructTlsConnectionRequireCloseNotify val = constructObjectPropertyBool "require-close-notify" val - -data TlsConnectionRequireCloseNotifyPropertyInfo -instance AttrInfo TlsConnectionRequireCloseNotifyPropertyInfo where - type AttrAllowedOps TlsConnectionRequireCloseNotifyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TlsConnectionRequireCloseNotifyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TlsConnectionRequireCloseNotifyPropertyInfo = TlsConnectionK - type AttrGetType TlsConnectionRequireCloseNotifyPropertyInfo = Bool - type AttrLabel TlsConnectionRequireCloseNotifyPropertyInfo = "require-close-notify" - attrGet _ = getTlsConnectionRequireCloseNotify - attrSet _ = setTlsConnectionRequireCloseNotify - attrConstruct _ = constructTlsConnectionRequireCloseNotify - attrClear _ = undefined - --- VVV Prop "use-system-certdb" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Just False,Just False) - -getTlsConnectionUseSystemCertdb :: (MonadIO m, TlsConnectionK o) => o -> m Bool -getTlsConnectionUseSystemCertdb obj = liftIO $ getObjectPropertyBool obj "use-system-certdb" - -setTlsConnectionUseSystemCertdb :: (MonadIO m, TlsConnectionK o) => o -> Bool -> m () -setTlsConnectionUseSystemCertdb obj val = liftIO $ setObjectPropertyBool obj "use-system-certdb" val - -constructTlsConnectionUseSystemCertdb :: Bool -> IO ([Char], GValue) -constructTlsConnectionUseSystemCertdb val = constructObjectPropertyBool "use-system-certdb" val - -data TlsConnectionUseSystemCertdbPropertyInfo -instance AttrInfo TlsConnectionUseSystemCertdbPropertyInfo where - type AttrAllowedOps TlsConnectionUseSystemCertdbPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TlsConnectionUseSystemCertdbPropertyInfo = (~) Bool - type AttrBaseTypeConstraint TlsConnectionUseSystemCertdbPropertyInfo = TlsConnectionK - type AttrGetType TlsConnectionUseSystemCertdbPropertyInfo = Bool - type AttrLabel TlsConnectionUseSystemCertdbPropertyInfo = "use-system-certdb" - attrGet _ = getTlsConnectionUseSystemCertdb - attrSet _ = setTlsConnectionUseSystemCertdb - attrConstruct _ = constructTlsConnectionUseSystemCertdb - attrClear _ = undefined - -type instance AttributeList TlsConnection = TlsConnectionAttributeList -type TlsConnectionAttributeList = ('[ '("baseIoStream", TlsConnectionBaseIoStreamPropertyInfo), '("certificate", TlsConnectionCertificatePropertyInfo), '("closed", IOStreamClosedPropertyInfo), '("database", TlsConnectionDatabasePropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("interaction", TlsConnectionInteractionPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("peerCertificate", TlsConnectionPeerCertificatePropertyInfo), '("peerCertificateErrors", TlsConnectionPeerCertificateErrorsPropertyInfo), '("rehandshakeMode", TlsConnectionRehandshakeModePropertyInfo), '("requireCloseNotify", TlsConnectionRequireCloseNotifyPropertyInfo), '("useSystemCertdb", TlsConnectionUseSystemCertdbPropertyInfo)] :: [(Symbol, *)]) - -tlsConnectionBaseIoStream :: AttrLabelProxy "baseIoStream" -tlsConnectionBaseIoStream = AttrLabelProxy - -tlsConnectionCertificate :: AttrLabelProxy "certificate" -tlsConnectionCertificate = AttrLabelProxy - -tlsConnectionDatabase :: AttrLabelProxy "database" -tlsConnectionDatabase = AttrLabelProxy - -tlsConnectionInteraction :: AttrLabelProxy "interaction" -tlsConnectionInteraction = AttrLabelProxy - -tlsConnectionPeerCertificate :: AttrLabelProxy "peerCertificate" -tlsConnectionPeerCertificate = AttrLabelProxy - -tlsConnectionPeerCertificateErrors :: AttrLabelProxy "peerCertificateErrors" -tlsConnectionPeerCertificateErrors = AttrLabelProxy - -tlsConnectionRehandshakeMode :: AttrLabelProxy "rehandshakeMode" -tlsConnectionRehandshakeMode = AttrLabelProxy - -tlsConnectionRequireCloseNotify :: AttrLabelProxy "requireCloseNotify" -tlsConnectionRequireCloseNotify = AttrLabelProxy - -tlsConnectionUseSystemCertdb :: AttrLabelProxy "useSystemCertdb" -tlsConnectionUseSystemCertdb = AttrLabelProxy - -data TlsConnectionAcceptCertificateSignalInfo -instance SignalInfo TlsConnectionAcceptCertificateSignalInfo where - type HaskellCallbackType TlsConnectionAcceptCertificateSignalInfo = TlsConnectionAcceptCertificateCallback - connectSignal _ = connectTlsConnectionAcceptCertificate - -type instance SignalList TlsConnection = TlsConnectionSignalList -type TlsConnectionSignalList = ('[ '("acceptCertificate", TlsConnectionAcceptCertificateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TlsConnection::emit_accept_certificate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "peer_cert", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_emit_accept_certificate" g_tls_connection_emit_accept_certificate :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - Ptr TlsCertificate -> -- peer_cert : TInterface "Gio" "TlsCertificate" - CUInt -> -- errors : TInterface "Gio" "TlsCertificateFlags" - IO CInt - - -tlsConnectionEmitAcceptCertificate :: - (MonadIO m, TlsConnectionK a, TlsCertificateK b) => - a -- _obj - -> b -- peerCert - -> [TlsCertificateFlags] -- errors - -> m Bool -- result -tlsConnectionEmitAcceptCertificate _obj peerCert errors = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let peerCert' = unsafeManagedPtrCastPtr peerCert - let errors' = gflagsToWord errors - result <- g_tls_connection_emit_accept_certificate _obj' peerCert' errors' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr peerCert - return result' - -data TlsConnectionEmitAcceptCertificateMethodInfo -instance (signature ~ (b -> [TlsCertificateFlags] -> m Bool), MonadIO m, TlsConnectionK a, TlsCertificateK b) => MethodInfo TlsConnectionEmitAcceptCertificateMethodInfo a signature where - overloadedMethod _ = tlsConnectionEmitAcceptCertificate - --- method TlsConnection::get_certificate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsCertificate") --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_get_certificate" g_tls_connection_get_certificate :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - IO (Ptr TlsCertificate) - - -tlsConnectionGetCertificate :: - (MonadIO m, TlsConnectionK a) => - a -- _obj - -> m TlsCertificate -- result -tlsConnectionGetCertificate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_connection_get_certificate _obj' - checkUnexpectedReturnNULL "g_tls_connection_get_certificate" result - result' <- (newObject TlsCertificate) result - touchManagedPtr _obj - return result' - -data TlsConnectionGetCertificateMethodInfo -instance (signature ~ (m TlsCertificate), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetCertificateMethodInfo a signature where - overloadedMethod _ = tlsConnectionGetCertificate - --- method TlsConnection::get_database --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsDatabase") --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_get_database" g_tls_connection_get_database :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - IO (Ptr TlsDatabase) - - -tlsConnectionGetDatabase :: - (MonadIO m, TlsConnectionK a) => - a -- _obj - -> m TlsDatabase -- result -tlsConnectionGetDatabase _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_connection_get_database _obj' - checkUnexpectedReturnNULL "g_tls_connection_get_database" result - result' <- (newObject TlsDatabase) result - touchManagedPtr _obj - return result' - -data TlsConnectionGetDatabaseMethodInfo -instance (signature ~ (m TlsDatabase), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetDatabaseMethodInfo a signature where - overloadedMethod _ = tlsConnectionGetDatabase - --- method TlsConnection::get_interaction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsInteraction") --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_get_interaction" g_tls_connection_get_interaction :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - IO (Ptr TlsInteraction) - - -tlsConnectionGetInteraction :: - (MonadIO m, TlsConnectionK a) => - a -- _obj - -> m TlsInteraction -- result -tlsConnectionGetInteraction _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_connection_get_interaction _obj' - checkUnexpectedReturnNULL "g_tls_connection_get_interaction" result - result' <- (newObject TlsInteraction) result - touchManagedPtr _obj - return result' - -data TlsConnectionGetInteractionMethodInfo -instance (signature ~ (m TlsInteraction), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetInteractionMethodInfo a signature where - overloadedMethod _ = tlsConnectionGetInteraction - --- method TlsConnection::get_peer_certificate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsCertificate") --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_get_peer_certificate" g_tls_connection_get_peer_certificate :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - IO (Ptr TlsCertificate) - - -tlsConnectionGetPeerCertificate :: - (MonadIO m, TlsConnectionK a) => - a -- _obj - -> m TlsCertificate -- result -tlsConnectionGetPeerCertificate _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_connection_get_peer_certificate _obj' - checkUnexpectedReturnNULL "g_tls_connection_get_peer_certificate" result - result' <- (newObject TlsCertificate) result - touchManagedPtr _obj - return result' - -data TlsConnectionGetPeerCertificateMethodInfo -instance (signature ~ (m TlsCertificate), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetPeerCertificateMethodInfo a signature where - overloadedMethod _ = tlsConnectionGetPeerCertificate - --- method TlsConnection::get_peer_certificate_errors --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsCertificateFlags") --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_get_peer_certificate_errors" g_tls_connection_get_peer_certificate_errors :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - IO CUInt - - -tlsConnectionGetPeerCertificateErrors :: - (MonadIO m, TlsConnectionK a) => - a -- _obj - -> m [TlsCertificateFlags] -- result -tlsConnectionGetPeerCertificateErrors _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_connection_get_peer_certificate_errors _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data TlsConnectionGetPeerCertificateErrorsMethodInfo -instance (signature ~ (m [TlsCertificateFlags]), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetPeerCertificateErrorsMethodInfo a signature where - overloadedMethod _ = tlsConnectionGetPeerCertificateErrors - --- method TlsConnection::get_rehandshake_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsRehandshakeMode") --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_get_rehandshake_mode" g_tls_connection_get_rehandshake_mode :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - IO CUInt - - -tlsConnectionGetRehandshakeMode :: - (MonadIO m, TlsConnectionK a) => - a -- _obj - -> m TlsRehandshakeMode -- result -tlsConnectionGetRehandshakeMode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_connection_get_rehandshake_mode _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data TlsConnectionGetRehandshakeModeMethodInfo -instance (signature ~ (m TlsRehandshakeMode), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetRehandshakeModeMethodInfo a signature where - overloadedMethod _ = tlsConnectionGetRehandshakeMode - --- method TlsConnection::get_require_close_notify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_get_require_close_notify" g_tls_connection_get_require_close_notify :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - IO CInt - - -tlsConnectionGetRequireCloseNotify :: - (MonadIO m, TlsConnectionK a) => - a -- _obj - -> m Bool -- result -tlsConnectionGetRequireCloseNotify _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_connection_get_require_close_notify _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TlsConnectionGetRequireCloseNotifyMethodInfo -instance (signature ~ (m Bool), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetRequireCloseNotifyMethodInfo a signature where - overloadedMethod _ = tlsConnectionGetRequireCloseNotify - --- method TlsConnection::get_use_system_certdb --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_get_use_system_certdb" g_tls_connection_get_use_system_certdb :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - IO CInt - -{-# DEPRECATED tlsConnectionGetUseSystemCertdb ["(Since version 2.30)","Use g_tls_connection_get_database() instead"]#-} -tlsConnectionGetUseSystemCertdb :: - (MonadIO m, TlsConnectionK a) => - a -- _obj - -> m Bool -- result -tlsConnectionGetUseSystemCertdb _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_connection_get_use_system_certdb _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data TlsConnectionGetUseSystemCertdbMethodInfo -instance (signature ~ (m Bool), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionGetUseSystemCertdbMethodInfo a signature where - overloadedMethod _ = tlsConnectionGetUseSystemCertdb - --- method TlsConnection::handshake --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_tls_connection_handshake" g_tls_connection_handshake :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -tlsConnectionHandshake :: - (MonadIO m, TlsConnectionK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -tlsConnectionHandshake _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_tls_connection_handshake _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data TlsConnectionHandshakeMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TlsConnectionK a, CancellableK b) => MethodInfo TlsConnectionHandshakeMethodInfo a signature where - overloadedMethod _ = tlsConnectionHandshake - --- method TlsConnection::handshake_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_handshake_async" g_tls_connection_handshake_async :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - Int32 -> -- io_priority : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -tlsConnectionHandshakeAsync :: - (MonadIO m, TlsConnectionK a, CancellableK b) => - a -- _obj - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -tlsConnectionHandshakeAsync _obj ioPriority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_tls_connection_handshake_async _obj' ioPriority maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data TlsConnectionHandshakeAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, TlsConnectionK a, CancellableK b) => MethodInfo TlsConnectionHandshakeAsyncMethodInfo a signature where - overloadedMethod _ = tlsConnectionHandshakeAsync - --- method TlsConnection::handshake_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_tls_connection_handshake_finish" g_tls_connection_handshake_finish :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -tlsConnectionHandshakeFinish :: - (MonadIO m, TlsConnectionK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -tlsConnectionHandshakeFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_tls_connection_handshake_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data TlsConnectionHandshakeFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, TlsConnectionK a, AsyncResultK b) => MethodInfo TlsConnectionHandshakeFinishMethodInfo a signature where - overloadedMethod _ = tlsConnectionHandshakeFinish - --- method TlsConnection::set_certificate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_set_certificate" g_tls_connection_set_certificate :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - Ptr TlsCertificate -> -- certificate : TInterface "Gio" "TlsCertificate" - IO () - - -tlsConnectionSetCertificate :: - (MonadIO m, TlsConnectionK a, TlsCertificateK b) => - a -- _obj - -> b -- certificate - -> m () -- result -tlsConnectionSetCertificate _obj certificate = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let certificate' = unsafeManagedPtrCastPtr certificate - g_tls_connection_set_certificate _obj' certificate' - touchManagedPtr _obj - touchManagedPtr certificate - return () - -data TlsConnectionSetCertificateMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, TlsConnectionK a, TlsCertificateK b) => MethodInfo TlsConnectionSetCertificateMethodInfo a signature where - overloadedMethod _ = tlsConnectionSetCertificate - --- method TlsConnection::set_database --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "database", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_set_database" g_tls_connection_set_database :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - Ptr TlsDatabase -> -- database : TInterface "Gio" "TlsDatabase" - IO () - - -tlsConnectionSetDatabase :: - (MonadIO m, TlsConnectionK a, TlsDatabaseK b) => - a -- _obj - -> b -- database - -> m () -- result -tlsConnectionSetDatabase _obj database = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let database' = unsafeManagedPtrCastPtr database - g_tls_connection_set_database _obj' database' - touchManagedPtr _obj - touchManagedPtr database - return () - -data TlsConnectionSetDatabaseMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, TlsConnectionK a, TlsDatabaseK b) => MethodInfo TlsConnectionSetDatabaseMethodInfo a signature where - overloadedMethod _ = tlsConnectionSetDatabase - --- method TlsConnection::set_interaction --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_set_interaction" g_tls_connection_set_interaction :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - Ptr TlsInteraction -> -- interaction : TInterface "Gio" "TlsInteraction" - IO () - - -tlsConnectionSetInteraction :: - (MonadIO m, TlsConnectionK a, TlsInteractionK b) => - a -- _obj - -> Maybe (b) -- interaction - -> m () -- result -tlsConnectionSetInteraction _obj interaction = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeInteraction <- case interaction of - Nothing -> return nullPtr - Just jInteraction -> do - let jInteraction' = unsafeManagedPtrCastPtr jInteraction - return jInteraction' - g_tls_connection_set_interaction _obj' maybeInteraction - touchManagedPtr _obj - whenJust interaction touchManagedPtr - return () - -data TlsConnectionSetInteractionMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TlsConnectionK a, TlsInteractionK b) => MethodInfo TlsConnectionSetInteractionMethodInfo a signature where - overloadedMethod _ = tlsConnectionSetInteraction - --- method TlsConnection::set_rehandshake_mode --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gio" "TlsRehandshakeMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_set_rehandshake_mode" g_tls_connection_set_rehandshake_mode :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - CUInt -> -- mode : TInterface "Gio" "TlsRehandshakeMode" - IO () - - -tlsConnectionSetRehandshakeMode :: - (MonadIO m, TlsConnectionK a) => - a -- _obj - -> TlsRehandshakeMode -- mode - -> m () -- result -tlsConnectionSetRehandshakeMode _obj mode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let mode' = (fromIntegral . fromEnum) mode - g_tls_connection_set_rehandshake_mode _obj' mode' - touchManagedPtr _obj - return () - -data TlsConnectionSetRehandshakeModeMethodInfo -instance (signature ~ (TlsRehandshakeMode -> m ()), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionSetRehandshakeModeMethodInfo a signature where - overloadedMethod _ = tlsConnectionSetRehandshakeMode - --- method TlsConnection::set_require_close_notify --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "require_close_notify", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_set_require_close_notify" g_tls_connection_set_require_close_notify :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - CInt -> -- require_close_notify : TBasicType TBoolean - IO () - - -tlsConnectionSetRequireCloseNotify :: - (MonadIO m, TlsConnectionK a) => - a -- _obj - -> Bool -- requireCloseNotify - -> m () -- result -tlsConnectionSetRequireCloseNotify _obj requireCloseNotify = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let requireCloseNotify' = (fromIntegral . fromEnum) requireCloseNotify - g_tls_connection_set_require_close_notify _obj' requireCloseNotify' - touchManagedPtr _obj - return () - -data TlsConnectionSetRequireCloseNotifyMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionSetRequireCloseNotifyMethodInfo a signature where - overloadedMethod _ = tlsConnectionSetRequireCloseNotify - --- method TlsConnection::set_use_system_certdb --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_system_certdb", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_connection_set_use_system_certdb" g_tls_connection_set_use_system_certdb :: - Ptr TlsConnection -> -- _obj : TInterface "Gio" "TlsConnection" - CInt -> -- use_system_certdb : TBasicType TBoolean - IO () - -{-# DEPRECATED tlsConnectionSetUseSystemCertdb ["(Since version 2.30)","Use g_tls_connection_set_database() instead"]#-} -tlsConnectionSetUseSystemCertdb :: - (MonadIO m, TlsConnectionK a) => - a -- _obj - -> Bool -- useSystemCertdb - -> m () -- result -tlsConnectionSetUseSystemCertdb _obj useSystemCertdb = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let useSystemCertdb' = (fromIntegral . fromEnum) useSystemCertdb - g_tls_connection_set_use_system_certdb _obj' useSystemCertdb' - touchManagedPtr _obj - return () - -data TlsConnectionSetUseSystemCertdbMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, TlsConnectionK a) => MethodInfo TlsConnectionSetUseSystemCertdbMethodInfo a signature where - overloadedMethod _ = tlsConnectionSetUseSystemCertdb - - diff --git a/GI/Gio/Objects/TlsConnection.hs-boot b/GI/Gio/Objects/TlsConnection.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/TlsConnection.hs-boot +++ /dev/null @@ -1,41 +0,0 @@ -module GI.Gio.Objects.TlsConnection where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TlsConnection = TlsConnection (ForeignPtr TlsConnection) -instance GObject TlsConnection where -class GObject o => TlsConnectionK o -instance (GObject o, IsDescendantOf TlsConnection o) => TlsConnectionK o -data TlsConnectionBaseIoStreamPropertyInfo -data TlsConnectionCertificatePropertyInfo -data TlsConnectionDatabasePropertyInfo -data TlsConnectionInteractionPropertyInfo -data TlsConnectionPeerCertificatePropertyInfo -data TlsConnectionPeerCertificateErrorsPropertyInfo -data TlsConnectionRehandshakeModePropertyInfo -data TlsConnectionRequireCloseNotifyPropertyInfo -data TlsConnectionUseSystemCertdbPropertyInfo -data TlsConnectionAcceptCertificateSignalInfo -data TlsConnectionEmitAcceptCertificateMethodInfo -data TlsConnectionGetCertificateMethodInfo -data TlsConnectionGetDatabaseMethodInfo -data TlsConnectionGetInteractionMethodInfo -data TlsConnectionGetPeerCertificateMethodInfo -data TlsConnectionGetPeerCertificateErrorsMethodInfo -data TlsConnectionGetRehandshakeModeMethodInfo -data TlsConnectionGetRequireCloseNotifyMethodInfo -data TlsConnectionGetUseSystemCertdbMethodInfo -data TlsConnectionHandshakeMethodInfo -data TlsConnectionHandshakeAsyncMethodInfo -data TlsConnectionHandshakeFinishMethodInfo -data TlsConnectionSetCertificateMethodInfo -data TlsConnectionSetDatabaseMethodInfo -data TlsConnectionSetInteractionMethodInfo -data TlsConnectionSetRehandshakeModeMethodInfo -data TlsConnectionSetRequireCloseNotifyMethodInfo -data TlsConnectionSetUseSystemCertdbMethodInfo diff --git a/GI/Gio/Objects/TlsDatabase.hs b/GI/Gio/Objects/TlsDatabase.hs deleted file mode 100644 --- a/GI/Gio/Objects/TlsDatabase.hs +++ /dev/null @@ -1,856 +0,0 @@ - - -{- | -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.Objects.TlsDatabase - ( - --- * Exported types - TlsDatabase(..) , - TlsDatabaseK , - toTlsDatabase , - noTlsDatabase , - - - -- * Methods --- ** tlsDatabaseCreateCertificateHandle - TlsDatabaseCreateCertificateHandleMethodInfo, - tlsDatabaseCreateCertificateHandle , - - --- ** tlsDatabaseLookupCertificateForHandle - TlsDatabaseLookupCertificateForHandleMethodInfo, - tlsDatabaseLookupCertificateForHandle , - - --- ** tlsDatabaseLookupCertificateForHandleAsync - TlsDatabaseLookupCertificateForHandleAsyncMethodInfo, - tlsDatabaseLookupCertificateForHandleAsync, - - --- ** tlsDatabaseLookupCertificateForHandleFinish - TlsDatabaseLookupCertificateForHandleFinishMethodInfo, - tlsDatabaseLookupCertificateForHandleFinish, - - --- ** tlsDatabaseLookupCertificateIssuer - TlsDatabaseLookupCertificateIssuerMethodInfo, - tlsDatabaseLookupCertificateIssuer , - - --- ** tlsDatabaseLookupCertificateIssuerAsync - TlsDatabaseLookupCertificateIssuerAsyncMethodInfo, - tlsDatabaseLookupCertificateIssuerAsync , - - --- ** tlsDatabaseLookupCertificateIssuerFinish - TlsDatabaseLookupCertificateIssuerFinishMethodInfo, - tlsDatabaseLookupCertificateIssuerFinish, - - --- ** tlsDatabaseLookupCertificatesIssuedBy - TlsDatabaseLookupCertificatesIssuedByMethodInfo, - tlsDatabaseLookupCertificatesIssuedBy , - - --- ** tlsDatabaseLookupCertificatesIssuedByAsync - TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo, - tlsDatabaseLookupCertificatesIssuedByAsync, - - --- ** tlsDatabaseLookupCertificatesIssuedByFinish - TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo, - tlsDatabaseLookupCertificatesIssuedByFinish, - - --- ** tlsDatabaseVerifyChain - TlsDatabaseVerifyChainMethodInfo , - tlsDatabaseVerifyChain , - - --- ** tlsDatabaseVerifyChainAsync - TlsDatabaseVerifyChainAsyncMethodInfo , - tlsDatabaseVerifyChainAsync , - - --- ** tlsDatabaseVerifyChainFinish - TlsDatabaseVerifyChainFinishMethodInfo , - tlsDatabaseVerifyChainFinish , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype TlsDatabase = TlsDatabase (ForeignPtr TlsDatabase) -foreign import ccall "g_tls_database_get_type" - c_g_tls_database_get_type :: IO GType - -type instance ParentTypes TlsDatabase = TlsDatabaseParentTypes -type TlsDatabaseParentTypes = '[GObject.Object] - -instance GObject TlsDatabase where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_tls_database_get_type - - -class GObject o => TlsDatabaseK o -instance (GObject o, IsDescendantOf TlsDatabase o) => TlsDatabaseK o - -toTlsDatabase :: TlsDatabaseK o => o -> IO TlsDatabase -toTlsDatabase = unsafeCastTo TlsDatabase - -noTlsDatabase :: Maybe TlsDatabase -noTlsDatabase = Nothing - -type family ResolveTlsDatabaseMethod (t :: Symbol) (o :: *) :: * where - ResolveTlsDatabaseMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTlsDatabaseMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTlsDatabaseMethod "createCertificateHandle" o = TlsDatabaseCreateCertificateHandleMethodInfo - ResolveTlsDatabaseMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTlsDatabaseMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTlsDatabaseMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTlsDatabaseMethod "lookupCertificateForHandle" o = TlsDatabaseLookupCertificateForHandleMethodInfo - ResolveTlsDatabaseMethod "lookupCertificateForHandleAsync" o = TlsDatabaseLookupCertificateForHandleAsyncMethodInfo - ResolveTlsDatabaseMethod "lookupCertificateForHandleFinish" o = TlsDatabaseLookupCertificateForHandleFinishMethodInfo - ResolveTlsDatabaseMethod "lookupCertificateIssuer" o = TlsDatabaseLookupCertificateIssuerMethodInfo - ResolveTlsDatabaseMethod "lookupCertificateIssuerAsync" o = TlsDatabaseLookupCertificateIssuerAsyncMethodInfo - ResolveTlsDatabaseMethod "lookupCertificateIssuerFinish" o = TlsDatabaseLookupCertificateIssuerFinishMethodInfo - ResolveTlsDatabaseMethod "lookupCertificatesIssuedBy" o = TlsDatabaseLookupCertificatesIssuedByMethodInfo - ResolveTlsDatabaseMethod "lookupCertificatesIssuedByAsync" o = TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo - ResolveTlsDatabaseMethod "lookupCertificatesIssuedByFinish" o = TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo - ResolveTlsDatabaseMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTlsDatabaseMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTlsDatabaseMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTlsDatabaseMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTlsDatabaseMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTlsDatabaseMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTlsDatabaseMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTlsDatabaseMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTlsDatabaseMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTlsDatabaseMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTlsDatabaseMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTlsDatabaseMethod "verifyChain" o = TlsDatabaseVerifyChainMethodInfo - ResolveTlsDatabaseMethod "verifyChainAsync" o = TlsDatabaseVerifyChainAsyncMethodInfo - ResolveTlsDatabaseMethod "verifyChainFinish" o = TlsDatabaseVerifyChainFinishMethodInfo - ResolveTlsDatabaseMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTlsDatabaseMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTlsDatabaseMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTlsDatabaseMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTlsDatabaseMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTlsDatabaseMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTlsDatabaseMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTlsDatabaseMethod t TlsDatabase, MethodInfo info TlsDatabase p) => IsLabelProxy t (TlsDatabase -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTlsDatabaseMethod t TlsDatabase, MethodInfo info TlsDatabase p) => IsLabel t (TlsDatabase -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList TlsDatabase = TlsDatabaseAttributeList -type TlsDatabaseAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList TlsDatabase = TlsDatabaseSignalList -type TlsDatabaseSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TlsDatabase::create_certificate_handle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_tls_database_create_certificate_handle" g_tls_database_create_certificate_handle :: - Ptr TlsDatabase -> -- _obj : TInterface "Gio" "TlsDatabase" - Ptr TlsCertificate -> -- certificate : TInterface "Gio" "TlsCertificate" - IO CString - - -tlsDatabaseCreateCertificateHandle :: - (MonadIO m, TlsDatabaseK a, TlsCertificateK b) => - a -- _obj - -> b -- certificate - -> m (Maybe T.Text) -- result -tlsDatabaseCreateCertificateHandle _obj certificate = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let certificate' = unsafeManagedPtrCastPtr certificate - result <- g_tls_database_create_certificate_handle _obj' certificate' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - touchManagedPtr certificate - return maybeResult - -data TlsDatabaseCreateCertificateHandleMethodInfo -instance (signature ~ (b -> m (Maybe T.Text)), MonadIO m, TlsDatabaseK a, TlsCertificateK b) => MethodInfo TlsDatabaseCreateCertificateHandleMethodInfo a signature where - overloadedMethod _ = tlsDatabaseCreateCertificateHandle - --- method TlsDatabase::lookup_certificate_for_handle --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", 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 : Just (TInterface "Gio" "TlsCertificate") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_database_lookup_certificate_for_handle" g_tls_database_lookup_certificate_for_handle :: - Ptr TlsDatabase -> -- _obj : TInterface "Gio" "TlsDatabase" - CString -> -- handle : TBasicType TUTF8 - Ptr TlsInteraction -> -- interaction : TInterface "Gio" "TlsInteraction" - CUInt -> -- flags : TInterface "Gio" "TlsDatabaseLookupFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr TlsCertificate) - - -tlsDatabaseLookupCertificateForHandle :: - (MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) => - a -- _obj - -> T.Text -- handle - -> Maybe (b) -- interaction - -> TlsDatabaseLookupFlags -- flags - -> Maybe (c) -- cancellable - -> m TlsCertificate -- result -tlsDatabaseLookupCertificateForHandle _obj handle interaction flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - handle' <- textToCString handle - maybeInteraction <- case interaction of - Nothing -> return nullPtr - Just jInteraction -> do - let jInteraction' = unsafeManagedPtrCastPtr jInteraction - return jInteraction' - let flags' = (fromIntegral . fromEnum) flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_tls_database_lookup_certificate_for_handle _obj' handle' maybeInteraction flags' maybeCancellable - checkUnexpectedReturnNULL "g_tls_database_lookup_certificate_for_handle" result - result' <- (wrapObject TlsCertificate) result - touchManagedPtr _obj - whenJust interaction touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem handle' - return result' - ) (do - freeMem handle' - ) - -data TlsDatabaseLookupCertificateForHandleMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> TlsDatabaseLookupFlags -> Maybe (c) -> m TlsCertificate), MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) => MethodInfo TlsDatabaseLookupCertificateForHandleMethodInfo a signature where - overloadedMethod _ = tlsDatabaseLookupCertificateForHandle - --- method TlsDatabase::lookup_certificate_for_handle_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "handle", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", 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 = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_database_lookup_certificate_for_handle_async" g_tls_database_lookup_certificate_for_handle_async :: - Ptr TlsDatabase -> -- _obj : TInterface "Gio" "TlsDatabase" - CString -> -- handle : TBasicType TUTF8 - Ptr TlsInteraction -> -- interaction : TInterface "Gio" "TlsInteraction" - CUInt -> -- flags : TInterface "Gio" "TlsDatabaseLookupFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -tlsDatabaseLookupCertificateForHandleAsync :: - (MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) => - a -- _obj - -> T.Text -- handle - -> Maybe (b) -- interaction - -> TlsDatabaseLookupFlags -- flags - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -tlsDatabaseLookupCertificateForHandleAsync _obj handle interaction flags cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - handle' <- textToCString handle - maybeInteraction <- case interaction of - Nothing -> return nullPtr - Just jInteraction -> do - let jInteraction' = unsafeManagedPtrCastPtr jInteraction - return jInteraction' - let flags' = (fromIntegral . fromEnum) flags - 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_tls_database_lookup_certificate_for_handle_async _obj' handle' maybeInteraction flags' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust interaction touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem handle' - return () - -data TlsDatabaseLookupCertificateForHandleAsyncMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> TlsDatabaseLookupFlags -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) => MethodInfo TlsDatabaseLookupCertificateForHandleAsyncMethodInfo a signature where - overloadedMethod _ = tlsDatabaseLookupCertificateForHandleAsync - --- method TlsDatabase::lookup_certificate_for_handle_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsCertificate") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_database_lookup_certificate_for_handle_finish" g_tls_database_lookup_certificate_for_handle_finish :: - Ptr TlsDatabase -> -- _obj : TInterface "Gio" "TlsDatabase" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr TlsCertificate) - - -tlsDatabaseLookupCertificateForHandleFinish :: - (MonadIO m, TlsDatabaseK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m TlsCertificate -- result -tlsDatabaseLookupCertificateForHandleFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_tls_database_lookup_certificate_for_handle_finish _obj' result_' - checkUnexpectedReturnNULL "g_tls_database_lookup_certificate_for_handle_finish" result - result' <- (wrapObject TlsCertificate) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data TlsDatabaseLookupCertificateForHandleFinishMethodInfo -instance (signature ~ (b -> m TlsCertificate), MonadIO m, TlsDatabaseK a, AsyncResultK b) => MethodInfo TlsDatabaseLookupCertificateForHandleFinishMethodInfo a signature where - overloadedMethod _ = tlsDatabaseLookupCertificateForHandleFinish - --- method TlsDatabase::lookup_certificate_issuer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", 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 : Just (TInterface "Gio" "TlsCertificate") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_database_lookup_certificate_issuer" g_tls_database_lookup_certificate_issuer :: - Ptr TlsDatabase -> -- _obj : TInterface "Gio" "TlsDatabase" - Ptr TlsCertificate -> -- certificate : TInterface "Gio" "TlsCertificate" - Ptr TlsInteraction -> -- interaction : TInterface "Gio" "TlsInteraction" - CUInt -> -- flags : TInterface "Gio" "TlsDatabaseLookupFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr TlsCertificate) - - -tlsDatabaseLookupCertificateIssuer :: - (MonadIO m, TlsDatabaseK a, TlsCertificateK b, TlsInteractionK c, CancellableK d) => - a -- _obj - -> b -- certificate - -> Maybe (c) -- interaction - -> TlsDatabaseLookupFlags -- flags - -> Maybe (d) -- cancellable - -> m TlsCertificate -- result -tlsDatabaseLookupCertificateIssuer _obj certificate interaction flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let certificate' = unsafeManagedPtrCastPtr certificate - maybeInteraction <- case interaction of - Nothing -> return nullPtr - Just jInteraction -> do - let jInteraction' = unsafeManagedPtrCastPtr jInteraction - return jInteraction' - let flags' = (fromIntegral . fromEnum) flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_tls_database_lookup_certificate_issuer _obj' certificate' maybeInteraction flags' maybeCancellable - checkUnexpectedReturnNULL "g_tls_database_lookup_certificate_issuer" result - result' <- (wrapObject TlsCertificate) result - touchManagedPtr _obj - touchManagedPtr certificate - whenJust interaction touchManagedPtr - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data TlsDatabaseLookupCertificateIssuerMethodInfo -instance (signature ~ (b -> Maybe (c) -> TlsDatabaseLookupFlags -> Maybe (d) -> m TlsCertificate), MonadIO m, TlsDatabaseK a, TlsCertificateK b, TlsInteractionK c, CancellableK d) => MethodInfo TlsDatabaseLookupCertificateIssuerMethodInfo a signature where - overloadedMethod _ = tlsDatabaseLookupCertificateIssuer - --- method TlsDatabase::lookup_certificate_issuer_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", 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 = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_database_lookup_certificate_issuer_async" g_tls_database_lookup_certificate_issuer_async :: - Ptr TlsDatabase -> -- _obj : TInterface "Gio" "TlsDatabase" - Ptr TlsCertificate -> -- certificate : TInterface "Gio" "TlsCertificate" - Ptr TlsInteraction -> -- interaction : TInterface "Gio" "TlsInteraction" - CUInt -> -- flags : TInterface "Gio" "TlsDatabaseLookupFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -tlsDatabaseLookupCertificateIssuerAsync :: - (MonadIO m, TlsDatabaseK a, TlsCertificateK b, TlsInteractionK c, CancellableK d) => - a -- _obj - -> b -- certificate - -> Maybe (c) -- interaction - -> TlsDatabaseLookupFlags -- flags - -> Maybe (d) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -tlsDatabaseLookupCertificateIssuerAsync _obj certificate interaction flags cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let certificate' = unsafeManagedPtrCastPtr certificate - maybeInteraction <- case interaction of - Nothing -> return nullPtr - Just jInteraction -> do - let jInteraction' = unsafeManagedPtrCastPtr jInteraction - return jInteraction' - let flags' = (fromIntegral . fromEnum) flags - 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_tls_database_lookup_certificate_issuer_async _obj' certificate' maybeInteraction flags' maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr certificate - whenJust interaction touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data TlsDatabaseLookupCertificateIssuerAsyncMethodInfo -instance (signature ~ (b -> Maybe (c) -> TlsDatabaseLookupFlags -> Maybe (d) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, TlsDatabaseK a, TlsCertificateK b, TlsInteractionK c, CancellableK d) => MethodInfo TlsDatabaseLookupCertificateIssuerAsyncMethodInfo a signature where - overloadedMethod _ = tlsDatabaseLookupCertificateIssuerAsync - --- method TlsDatabase::lookup_certificate_issuer_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsCertificate") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_database_lookup_certificate_issuer_finish" g_tls_database_lookup_certificate_issuer_finish :: - Ptr TlsDatabase -> -- _obj : TInterface "Gio" "TlsDatabase" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr TlsCertificate) - - -tlsDatabaseLookupCertificateIssuerFinish :: - (MonadIO m, TlsDatabaseK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m TlsCertificate -- result -tlsDatabaseLookupCertificateIssuerFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_tls_database_lookup_certificate_issuer_finish _obj' result_' - checkUnexpectedReturnNULL "g_tls_database_lookup_certificate_issuer_finish" result - result' <- (wrapObject TlsCertificate) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data TlsDatabaseLookupCertificateIssuerFinishMethodInfo -instance (signature ~ (b -> m TlsCertificate), MonadIO m, TlsDatabaseK a, AsyncResultK b) => MethodInfo TlsDatabaseLookupCertificateIssuerFinishMethodInfo a signature where - overloadedMethod _ = tlsDatabaseLookupCertificateIssuerFinish - --- method TlsDatabase::lookup_certificates_issued_by --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "issuer_raw_dn", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", 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 : Just (TGList (TInterface "Gio" "TlsCertificate")) --- throws : True --- Skip return : False - -foreign import ccall "g_tls_database_lookup_certificates_issued_by" g_tls_database_lookup_certificates_issued_by :: - Ptr TlsDatabase -> -- _obj : TInterface "Gio" "TlsDatabase" - Ptr GByteArray -> -- issuer_raw_dn : TByteArray - Ptr TlsInteraction -> -- interaction : TInterface "Gio" "TlsInteraction" - CUInt -> -- flags : TInterface "Gio" "TlsDatabaseLookupFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr (GList (Ptr TlsCertificate))) - - -tlsDatabaseLookupCertificatesIssuedBy :: - (MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) => - a -- _obj - -> ByteString -- issuerRawDn - -> Maybe (b) -- interaction - -> TlsDatabaseLookupFlags -- flags - -> Maybe (c) -- cancellable - -> m [TlsCertificate] -- result -tlsDatabaseLookupCertificatesIssuedBy _obj issuerRawDn interaction flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - issuerRawDn' <- packGByteArray issuerRawDn - maybeInteraction <- case interaction of - Nothing -> return nullPtr - Just jInteraction -> do - let jInteraction' = unsafeManagedPtrCastPtr jInteraction - return jInteraction' - let flags' = (fromIntegral . fromEnum) flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_tls_database_lookup_certificates_issued_by _obj' issuerRawDn' maybeInteraction flags' maybeCancellable - result' <- unpackGList result - result'' <- mapM (wrapObject TlsCertificate) result' - g_list_free result - touchManagedPtr _obj - whenJust interaction touchManagedPtr - whenJust cancellable touchManagedPtr - unrefGByteArray issuerRawDn' - return result'' - ) (do - unrefGByteArray issuerRawDn' - ) - -data TlsDatabaseLookupCertificatesIssuedByMethodInfo -instance (signature ~ (ByteString -> Maybe (b) -> TlsDatabaseLookupFlags -> Maybe (c) -> m [TlsCertificate]), MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) => MethodInfo TlsDatabaseLookupCertificatesIssuedByMethodInfo a signature where - overloadedMethod _ = tlsDatabaseLookupCertificatesIssuedBy - --- method TlsDatabase::lookup_certificates_issued_by_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "issuer_raw_dn", argType = TByteArray, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseLookupFlags", 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 = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_database_lookup_certificates_issued_by_async" g_tls_database_lookup_certificates_issued_by_async :: - Ptr TlsDatabase -> -- _obj : TInterface "Gio" "TlsDatabase" - Ptr GByteArray -> -- issuer_raw_dn : TByteArray - Ptr TlsInteraction -> -- interaction : TInterface "Gio" "TlsInteraction" - CUInt -> -- flags : TInterface "Gio" "TlsDatabaseLookupFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -tlsDatabaseLookupCertificatesIssuedByAsync :: - (MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) => - a -- _obj - -> ByteString -- issuerRawDn - -> Maybe (b) -- interaction - -> TlsDatabaseLookupFlags -- flags - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -tlsDatabaseLookupCertificatesIssuedByAsync _obj issuerRawDn interaction flags cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - issuerRawDn' <- packGByteArray issuerRawDn - maybeInteraction <- case interaction of - Nothing -> return nullPtr - Just jInteraction -> do - let jInteraction' = unsafeManagedPtrCastPtr jInteraction - return jInteraction' - let flags' = (fromIntegral . fromEnum) flags - 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_tls_database_lookup_certificates_issued_by_async _obj' issuerRawDn' maybeInteraction flags' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust interaction touchManagedPtr - whenJust cancellable touchManagedPtr - unrefGByteArray issuerRawDn' - return () - -data TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo -instance (signature ~ (ByteString -> Maybe (b) -> TlsDatabaseLookupFlags -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, TlsDatabaseK a, TlsInteractionK b, CancellableK c) => MethodInfo TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo a signature where - overloadedMethod _ = tlsDatabaseLookupCertificatesIssuedByAsync - --- method TlsDatabase::lookup_certificates_issued_by_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "TlsCertificate")) --- throws : True --- Skip return : False - -foreign import ccall "g_tls_database_lookup_certificates_issued_by_finish" g_tls_database_lookup_certificates_issued_by_finish :: - Ptr TlsDatabase -> -- _obj : TInterface "Gio" "TlsDatabase" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr (GList (Ptr TlsCertificate))) - - -tlsDatabaseLookupCertificatesIssuedByFinish :: - (MonadIO m, TlsDatabaseK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m [TlsCertificate] -- result -tlsDatabaseLookupCertificatesIssuedByFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_tls_database_lookup_certificates_issued_by_finish _obj' result_' - result' <- unpackGList result - result'' <- mapM (wrapObject TlsCertificate) result' - g_list_free result - touchManagedPtr _obj - touchManagedPtr result_ - return result'' - ) (do - return () - ) - -data TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo -instance (signature ~ (b -> m [TlsCertificate]), MonadIO m, TlsDatabaseK a, AsyncResultK b) => MethodInfo TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo a signature where - overloadedMethod _ = tlsDatabaseLookupCertificatesIssuedByFinish - --- method TlsDatabase::verify_chain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chain", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "purpose", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseVerifyFlags", 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 : Just (TInterface "Gio" "TlsCertificateFlags") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_database_verify_chain" g_tls_database_verify_chain :: - Ptr TlsDatabase -> -- _obj : TInterface "Gio" "TlsDatabase" - Ptr TlsCertificate -> -- chain : TInterface "Gio" "TlsCertificate" - CString -> -- purpose : TBasicType TUTF8 - Ptr SocketConnectable -> -- identity : TInterface "Gio" "SocketConnectable" - Ptr TlsInteraction -> -- interaction : TInterface "Gio" "TlsInteraction" - CUInt -> -- flags : TInterface "Gio" "TlsDatabaseVerifyFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CUInt - - -tlsDatabaseVerifyChain :: - (MonadIO m, TlsDatabaseK a, TlsCertificateK b, SocketConnectableK c, TlsInteractionK d, CancellableK e) => - a -- _obj - -> b -- chain - -> T.Text -- purpose - -> Maybe (c) -- identity - -> Maybe (d) -- interaction - -> [TlsDatabaseVerifyFlags] -- flags - -> Maybe (e) -- cancellable - -> m [TlsCertificateFlags] -- result -tlsDatabaseVerifyChain _obj chain purpose identity interaction flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let chain' = unsafeManagedPtrCastPtr chain - purpose' <- textToCString purpose - maybeIdentity <- case identity of - Nothing -> return nullPtr - Just jIdentity -> do - let jIdentity' = unsafeManagedPtrCastPtr jIdentity - return jIdentity' - maybeInteraction <- case interaction of - Nothing -> return nullPtr - Just jInteraction -> do - let jInteraction' = unsafeManagedPtrCastPtr jInteraction - return jInteraction' - let flags' = gflagsToWord flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_tls_database_verify_chain _obj' chain' purpose' maybeIdentity maybeInteraction flags' maybeCancellable - let result' = wordToGFlags result - touchManagedPtr _obj - touchManagedPtr chain - whenJust identity touchManagedPtr - whenJust interaction touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem purpose' - return result' - ) (do - freeMem purpose' - ) - -data TlsDatabaseVerifyChainMethodInfo -instance (signature ~ (b -> T.Text -> Maybe (c) -> Maybe (d) -> [TlsDatabaseVerifyFlags] -> Maybe (e) -> m [TlsCertificateFlags]), MonadIO m, TlsDatabaseK a, TlsCertificateK b, SocketConnectableK c, TlsInteractionK d, CancellableK e) => MethodInfo TlsDatabaseVerifyChainMethodInfo a signature where - overloadedMethod _ = tlsDatabaseVerifyChain - --- method TlsDatabase::verify_chain_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chain", argType = TInterface "Gio" "TlsCertificate", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "purpose", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "identity", argType = TInterface "Gio" "SocketConnectable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interaction", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsDatabaseVerifyFlags", 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 = 8, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_database_verify_chain_async" g_tls_database_verify_chain_async :: - Ptr TlsDatabase -> -- _obj : TInterface "Gio" "TlsDatabase" - Ptr TlsCertificate -> -- chain : TInterface "Gio" "TlsCertificate" - CString -> -- purpose : TBasicType TUTF8 - Ptr SocketConnectable -> -- identity : TInterface "Gio" "SocketConnectable" - Ptr TlsInteraction -> -- interaction : TInterface "Gio" "TlsInteraction" - CUInt -> -- flags : TInterface "Gio" "TlsDatabaseVerifyFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -tlsDatabaseVerifyChainAsync :: - (MonadIO m, TlsDatabaseK a, TlsCertificateK b, SocketConnectableK c, TlsInteractionK d, CancellableK e) => - a -- _obj - -> b -- chain - -> T.Text -- purpose - -> Maybe (c) -- identity - -> Maybe (d) -- interaction - -> [TlsDatabaseVerifyFlags] -- flags - -> Maybe (e) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -tlsDatabaseVerifyChainAsync _obj chain purpose identity interaction flags cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let chain' = unsafeManagedPtrCastPtr chain - purpose' <- textToCString purpose - maybeIdentity <- case identity of - Nothing -> return nullPtr - Just jIdentity -> do - let jIdentity' = unsafeManagedPtrCastPtr jIdentity - return jIdentity' - maybeInteraction <- case interaction of - Nothing -> return nullPtr - Just jInteraction -> do - let jInteraction' = unsafeManagedPtrCastPtr jInteraction - return jInteraction' - let flags' = gflagsToWord flags - 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_tls_database_verify_chain_async _obj' chain' purpose' maybeIdentity maybeInteraction flags' maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr chain - whenJust identity touchManagedPtr - whenJust interaction touchManagedPtr - whenJust cancellable touchManagedPtr - freeMem purpose' - return () - -data TlsDatabaseVerifyChainAsyncMethodInfo -instance (signature ~ (b -> T.Text -> Maybe (c) -> Maybe (d) -> [TlsDatabaseVerifyFlags] -> Maybe (e) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, TlsDatabaseK a, TlsCertificateK b, SocketConnectableK c, TlsInteractionK d, CancellableK e) => MethodInfo TlsDatabaseVerifyChainAsyncMethodInfo a signature where - overloadedMethod _ = tlsDatabaseVerifyChainAsync - --- method TlsDatabase::verify_chain_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsDatabase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsCertificateFlags") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_database_verify_chain_finish" g_tls_database_verify_chain_finish :: - Ptr TlsDatabase -> -- _obj : TInterface "Gio" "TlsDatabase" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CUInt - - -tlsDatabaseVerifyChainFinish :: - (MonadIO m, TlsDatabaseK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m [TlsCertificateFlags] -- result -tlsDatabaseVerifyChainFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_tls_database_verify_chain_finish _obj' result_' - let result' = wordToGFlags result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data TlsDatabaseVerifyChainFinishMethodInfo -instance (signature ~ (b -> m [TlsCertificateFlags]), MonadIO m, TlsDatabaseK a, AsyncResultK b) => MethodInfo TlsDatabaseVerifyChainFinishMethodInfo a signature where - overloadedMethod _ = tlsDatabaseVerifyChainFinish - - diff --git a/GI/Gio/Objects/TlsDatabase.hs-boot b/GI/Gio/Objects/TlsDatabase.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/TlsDatabase.hs-boot +++ /dev/null @@ -1,26 +0,0 @@ -module GI.Gio.Objects.TlsDatabase where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TlsDatabase = TlsDatabase (ForeignPtr TlsDatabase) -instance GObject TlsDatabase where -class GObject o => TlsDatabaseK o -instance (GObject o, IsDescendantOf TlsDatabase o) => TlsDatabaseK o -data TlsDatabaseCreateCertificateHandleMethodInfo -data TlsDatabaseLookupCertificateForHandleMethodInfo -data TlsDatabaseLookupCertificateForHandleAsyncMethodInfo -data TlsDatabaseLookupCertificateForHandleFinishMethodInfo -data TlsDatabaseLookupCertificateIssuerMethodInfo -data TlsDatabaseLookupCertificateIssuerAsyncMethodInfo -data TlsDatabaseLookupCertificateIssuerFinishMethodInfo -data TlsDatabaseLookupCertificatesIssuedByMethodInfo -data TlsDatabaseLookupCertificatesIssuedByAsyncMethodInfo -data TlsDatabaseLookupCertificatesIssuedByFinishMethodInfo -data TlsDatabaseVerifyChainMethodInfo -data TlsDatabaseVerifyChainAsyncMethodInfo -data TlsDatabaseVerifyChainFinishMethodInfo diff --git a/GI/Gio/Objects/TlsInteraction.hs b/GI/Gio/Objects/TlsInteraction.hs deleted file mode 100644 --- a/GI/Gio/Objects/TlsInteraction.hs +++ /dev/null @@ -1,506 +0,0 @@ - - -{- | -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.Objects.TlsInteraction - ( - --- * Exported types - TlsInteraction(..) , - TlsInteractionK , - toTlsInteraction , - noTlsInteraction , - - - -- * Methods --- ** tlsInteractionAskPassword - TlsInteractionAskPasswordMethodInfo , - tlsInteractionAskPassword , - - --- ** tlsInteractionAskPasswordAsync - TlsInteractionAskPasswordAsyncMethodInfo, - tlsInteractionAskPasswordAsync , - - --- ** tlsInteractionAskPasswordFinish - TlsInteractionAskPasswordFinishMethodInfo, - tlsInteractionAskPasswordFinish , - - --- ** tlsInteractionInvokeAskPassword - TlsInteractionInvokeAskPasswordMethodInfo, - tlsInteractionInvokeAskPassword , - - --- ** tlsInteractionInvokeRequestCertificate - TlsInteractionInvokeRequestCertificateMethodInfo, - tlsInteractionInvokeRequestCertificate , - - --- ** tlsInteractionRequestCertificate - TlsInteractionRequestCertificateMethodInfo, - tlsInteractionRequestCertificate , - - --- ** tlsInteractionRequestCertificateAsync - TlsInteractionRequestCertificateAsyncMethodInfo, - tlsInteractionRequestCertificateAsync , - - --- ** tlsInteractionRequestCertificateFinish - TlsInteractionRequestCertificateFinishMethodInfo, - tlsInteractionRequestCertificateFinish , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype TlsInteraction = TlsInteraction (ForeignPtr TlsInteraction) -foreign import ccall "g_tls_interaction_get_type" - c_g_tls_interaction_get_type :: IO GType - -type instance ParentTypes TlsInteraction = TlsInteractionParentTypes -type TlsInteractionParentTypes = '[GObject.Object] - -instance GObject TlsInteraction where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_tls_interaction_get_type - - -class GObject o => TlsInteractionK o -instance (GObject o, IsDescendantOf TlsInteraction o) => TlsInteractionK o - -toTlsInteraction :: TlsInteractionK o => o -> IO TlsInteraction -toTlsInteraction = unsafeCastTo TlsInteraction - -noTlsInteraction :: Maybe TlsInteraction -noTlsInteraction = Nothing - -type family ResolveTlsInteractionMethod (t :: Symbol) (o :: *) :: * where - ResolveTlsInteractionMethod "askPassword" o = TlsInteractionAskPasswordMethodInfo - ResolveTlsInteractionMethod "askPasswordAsync" o = TlsInteractionAskPasswordAsyncMethodInfo - ResolveTlsInteractionMethod "askPasswordFinish" o = TlsInteractionAskPasswordFinishMethodInfo - ResolveTlsInteractionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTlsInteractionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTlsInteractionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTlsInteractionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTlsInteractionMethod "invokeAskPassword" o = TlsInteractionInvokeAskPasswordMethodInfo - ResolveTlsInteractionMethod "invokeRequestCertificate" o = TlsInteractionInvokeRequestCertificateMethodInfo - ResolveTlsInteractionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTlsInteractionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTlsInteractionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTlsInteractionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTlsInteractionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTlsInteractionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTlsInteractionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTlsInteractionMethod "requestCertificate" o = TlsInteractionRequestCertificateMethodInfo - ResolveTlsInteractionMethod "requestCertificateAsync" o = TlsInteractionRequestCertificateAsyncMethodInfo - ResolveTlsInteractionMethod "requestCertificateFinish" o = TlsInteractionRequestCertificateFinishMethodInfo - ResolveTlsInteractionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTlsInteractionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTlsInteractionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTlsInteractionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTlsInteractionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTlsInteractionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTlsInteractionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTlsInteractionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTlsInteractionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTlsInteractionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTlsInteractionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTlsInteractionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTlsInteractionMethod t TlsInteraction, MethodInfo info TlsInteraction p) => IsLabelProxy t (TlsInteraction -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTlsInteractionMethod t TlsInteraction, MethodInfo info TlsInteraction p) => IsLabel t (TlsInteraction -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList TlsInteraction = TlsInteractionAttributeList -type TlsInteractionAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList TlsInteraction = TlsInteractionSignalList -type TlsInteractionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TlsInteraction::ask_password --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TInterface "Gio" "TlsPassword", 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 : Just (TInterface "Gio" "TlsInteractionResult") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_interaction_ask_password" g_tls_interaction_ask_password :: - Ptr TlsInteraction -> -- _obj : TInterface "Gio" "TlsInteraction" - Ptr TlsPassword -> -- password : TInterface "Gio" "TlsPassword" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CUInt - - -tlsInteractionAskPassword :: - (MonadIO m, TlsInteractionK a, TlsPasswordK b, CancellableK c) => - a -- _obj - -> b -- password - -> Maybe (c) -- cancellable - -> m TlsInteractionResult -- result -tlsInteractionAskPassword _obj password cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let password' = unsafeManagedPtrCastPtr password - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_tls_interaction_ask_password _obj' password' maybeCancellable - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - touchManagedPtr password - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data TlsInteractionAskPasswordMethodInfo -instance (signature ~ (b -> Maybe (c) -> m TlsInteractionResult), MonadIO m, TlsInteractionK a, TlsPasswordK b, CancellableK c) => MethodInfo TlsInteractionAskPasswordMethodInfo a signature where - overloadedMethod _ = tlsInteractionAskPassword - --- method TlsInteraction::ask_password_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TInterface "Gio" "TlsPassword", 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 = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_interaction_ask_password_async" g_tls_interaction_ask_password_async :: - Ptr TlsInteraction -> -- _obj : TInterface "Gio" "TlsInteraction" - Ptr TlsPassword -> -- password : TInterface "Gio" "TlsPassword" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -tlsInteractionAskPasswordAsync :: - (MonadIO m, TlsInteractionK a, TlsPasswordK b, CancellableK c) => - a -- _obj - -> b -- password - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -tlsInteractionAskPasswordAsync _obj password cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let password' = unsafeManagedPtrCastPtr password - 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_tls_interaction_ask_password_async _obj' password' maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr password - whenJust cancellable touchManagedPtr - return () - -data TlsInteractionAskPasswordAsyncMethodInfo -instance (signature ~ (b -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, TlsInteractionK a, TlsPasswordK b, CancellableK c) => MethodInfo TlsInteractionAskPasswordAsyncMethodInfo a signature where - overloadedMethod _ = tlsInteractionAskPasswordAsync - --- method TlsInteraction::ask_password_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsInteractionResult") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_interaction_ask_password_finish" g_tls_interaction_ask_password_finish :: - Ptr TlsInteraction -> -- _obj : TInterface "Gio" "TlsInteraction" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CUInt - - -tlsInteractionAskPasswordFinish :: - (MonadIO m, TlsInteractionK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m TlsInteractionResult -- result -tlsInteractionAskPasswordFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_tls_interaction_ask_password_finish _obj' result_' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data TlsInteractionAskPasswordFinishMethodInfo -instance (signature ~ (b -> m TlsInteractionResult), MonadIO m, TlsInteractionK a, AsyncResultK b) => MethodInfo TlsInteractionAskPasswordFinishMethodInfo a signature where - overloadedMethod _ = tlsInteractionAskPasswordFinish - --- method TlsInteraction::invoke_ask_password --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TInterface "Gio" "TlsPassword", 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 : Just (TInterface "Gio" "TlsInteractionResult") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_interaction_invoke_ask_password" g_tls_interaction_invoke_ask_password :: - Ptr TlsInteraction -> -- _obj : TInterface "Gio" "TlsInteraction" - Ptr TlsPassword -> -- password : TInterface "Gio" "TlsPassword" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CUInt - - -tlsInteractionInvokeAskPassword :: - (MonadIO m, TlsInteractionK a, TlsPasswordK b, CancellableK c) => - a -- _obj - -> b -- password - -> Maybe (c) -- cancellable - -> m TlsInteractionResult -- result -tlsInteractionInvokeAskPassword _obj password cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let password' = unsafeManagedPtrCastPtr password - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_tls_interaction_invoke_ask_password _obj' password' maybeCancellable - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - touchManagedPtr password - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data TlsInteractionInvokeAskPasswordMethodInfo -instance (signature ~ (b -> Maybe (c) -> m TlsInteractionResult), MonadIO m, TlsInteractionK a, TlsPasswordK b, CancellableK c) => MethodInfo TlsInteractionInvokeAskPasswordMethodInfo a signature where - overloadedMethod _ = tlsInteractionInvokeAskPassword - --- method TlsInteraction::invoke_request_certificate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsCertificateRequestFlags", 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 : Just (TInterface "Gio" "TlsInteractionResult") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_interaction_invoke_request_certificate" g_tls_interaction_invoke_request_certificate :: - Ptr TlsInteraction -> -- _obj : TInterface "Gio" "TlsInteraction" - Ptr TlsConnection -> -- connection : TInterface "Gio" "TlsConnection" - CUInt -> -- flags : TInterface "Gio" "TlsCertificateRequestFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CUInt - - -tlsInteractionInvokeRequestCertificate :: - (MonadIO m, TlsInteractionK a, TlsConnectionK b, CancellableK c) => - a -- _obj - -> b -- connection - -> TlsCertificateRequestFlags -- flags - -> Maybe (c) -- cancellable - -> m TlsInteractionResult -- result -tlsInteractionInvokeRequestCertificate _obj connection flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let connection' = unsafeManagedPtrCastPtr connection - let flags' = (fromIntegral . fromEnum) flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_tls_interaction_invoke_request_certificate _obj' connection' flags' maybeCancellable - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - touchManagedPtr connection - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data TlsInteractionInvokeRequestCertificateMethodInfo -instance (signature ~ (b -> TlsCertificateRequestFlags -> Maybe (c) -> m TlsInteractionResult), MonadIO m, TlsInteractionK a, TlsConnectionK b, CancellableK c) => MethodInfo TlsInteractionInvokeRequestCertificateMethodInfo a signature where - overloadedMethod _ = tlsInteractionInvokeRequestCertificate - --- method TlsInteraction::request_certificate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsCertificateRequestFlags", 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 : Just (TInterface "Gio" "TlsInteractionResult") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_interaction_request_certificate" g_tls_interaction_request_certificate :: - Ptr TlsInteraction -> -- _obj : TInterface "Gio" "TlsInteraction" - Ptr TlsConnection -> -- connection : TInterface "Gio" "TlsConnection" - CUInt -> -- flags : TInterface "Gio" "TlsCertificateRequestFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CUInt - - -tlsInteractionRequestCertificate :: - (MonadIO m, TlsInteractionK a, TlsConnectionK b, CancellableK c) => - a -- _obj - -> b -- connection - -> TlsCertificateRequestFlags -- flags - -> Maybe (c) -- cancellable - -> m TlsInteractionResult -- result -tlsInteractionRequestCertificate _obj connection flags cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let connection' = unsafeManagedPtrCastPtr connection - let flags' = (fromIntegral . fromEnum) flags - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_tls_interaction_request_certificate _obj' connection' flags' maybeCancellable - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - touchManagedPtr connection - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data TlsInteractionRequestCertificateMethodInfo -instance (signature ~ (b -> TlsCertificateRequestFlags -> Maybe (c) -> m TlsInteractionResult), MonadIO m, TlsInteractionK a, TlsConnectionK b, CancellableK c) => MethodInfo TlsInteractionRequestCertificateMethodInfo a signature where - overloadedMethod _ = tlsInteractionRequestCertificate - --- method TlsInteraction::request_certificate_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface "Gio" "TlsConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsCertificateRequestFlags", 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 = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_interaction_request_certificate_async" g_tls_interaction_request_certificate_async :: - Ptr TlsInteraction -> -- _obj : TInterface "Gio" "TlsInteraction" - Ptr TlsConnection -> -- connection : TInterface "Gio" "TlsConnection" - CUInt -> -- flags : TInterface "Gio" "TlsCertificateRequestFlags" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -tlsInteractionRequestCertificateAsync :: - (MonadIO m, TlsInteractionK a, TlsConnectionK b, CancellableK c) => - a -- _obj - -> b -- connection - -> TlsCertificateRequestFlags -- flags - -> Maybe (c) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -tlsInteractionRequestCertificateAsync _obj connection flags cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let connection' = unsafeManagedPtrCastPtr connection - let flags' = (fromIntegral . fromEnum) flags - 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_tls_interaction_request_certificate_async _obj' connection' flags' maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr connection - whenJust cancellable touchManagedPtr - return () - -data TlsInteractionRequestCertificateAsyncMethodInfo -instance (signature ~ (b -> TlsCertificateRequestFlags -> Maybe (c) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, TlsInteractionK a, TlsConnectionK b, CancellableK c) => MethodInfo TlsInteractionRequestCertificateAsyncMethodInfo a signature where - overloadedMethod _ = tlsInteractionRequestCertificateAsync - --- method TlsInteraction::request_certificate_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsInteraction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsInteractionResult") --- throws : True --- Skip return : False - -foreign import ccall "g_tls_interaction_request_certificate_finish" g_tls_interaction_request_certificate_finish :: - Ptr TlsInteraction -> -- _obj : TInterface "Gio" "TlsInteraction" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CUInt - - -tlsInteractionRequestCertificateFinish :: - (MonadIO m, TlsInteractionK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m TlsInteractionResult -- result -tlsInteractionRequestCertificateFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_tls_interaction_request_certificate_finish _obj' result_' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data TlsInteractionRequestCertificateFinishMethodInfo -instance (signature ~ (b -> m TlsInteractionResult), MonadIO m, TlsInteractionK a, AsyncResultK b) => MethodInfo TlsInteractionRequestCertificateFinishMethodInfo a signature where - overloadedMethod _ = tlsInteractionRequestCertificateFinish - - diff --git a/GI/Gio/Objects/TlsInteraction.hs-boot b/GI/Gio/Objects/TlsInteraction.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/TlsInteraction.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gio.Objects.TlsInteraction where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TlsInteraction = TlsInteraction (ForeignPtr TlsInteraction) -instance GObject TlsInteraction where -class GObject o => TlsInteractionK o -instance (GObject o, IsDescendantOf TlsInteraction o) => TlsInteractionK o -data TlsInteractionAskPasswordMethodInfo -data TlsInteractionAskPasswordAsyncMethodInfo -data TlsInteractionAskPasswordFinishMethodInfo -data TlsInteractionInvokeAskPasswordMethodInfo -data TlsInteractionInvokeRequestCertificateMethodInfo -data TlsInteractionRequestCertificateMethodInfo -data TlsInteractionRequestCertificateAsyncMethodInfo -data TlsInteractionRequestCertificateFinishMethodInfo diff --git a/GI/Gio/Objects/TlsPassword.hs b/GI/Gio/Objects/TlsPassword.hs deleted file mode 100644 --- a/GI/Gio/Objects/TlsPassword.hs +++ /dev/null @@ -1,539 +0,0 @@ - - -{- | -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.Objects.TlsPassword - ( - --- * Exported types - TlsPassword(..) , - TlsPasswordK , - toTlsPassword , - noTlsPassword , - - - -- * Methods --- ** tlsPasswordGetDescription - TlsPasswordGetDescriptionMethodInfo , - tlsPasswordGetDescription , - - --- ** tlsPasswordGetFlags - TlsPasswordGetFlagsMethodInfo , - tlsPasswordGetFlags , - - --- ** tlsPasswordGetWarning - TlsPasswordGetWarningMethodInfo , - tlsPasswordGetWarning , - - --- ** tlsPasswordNew - tlsPasswordNew , - - --- ** tlsPasswordSetDescription - TlsPasswordSetDescriptionMethodInfo , - tlsPasswordSetDescription , - - --- ** tlsPasswordSetFlags - TlsPasswordSetFlagsMethodInfo , - tlsPasswordSetFlags , - - --- ** tlsPasswordSetValue - TlsPasswordSetValueMethodInfo , - tlsPasswordSetValue , - - --- ** tlsPasswordSetValueFull - TlsPasswordSetValueFullMethodInfo , - tlsPasswordSetValueFull , - - --- ** tlsPasswordSetWarning - TlsPasswordSetWarningMethodInfo , - tlsPasswordSetWarning , - - - - - -- * Properties --- ** Description - TlsPasswordDescriptionPropertyInfo , - constructTlsPasswordDescription , - getTlsPasswordDescription , - setTlsPasswordDescription , - tlsPasswordDescription , - - --- ** Flags - TlsPasswordFlagsPropertyInfo , - constructTlsPasswordFlags , - getTlsPasswordFlags , - setTlsPasswordFlags , - tlsPasswordFlags , - - --- ** Warning - TlsPasswordWarningPropertyInfo , - constructTlsPasswordWarning , - getTlsPasswordWarning , - setTlsPasswordWarning , - tlsPasswordWarning , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype TlsPassword = TlsPassword (ForeignPtr TlsPassword) -foreign import ccall "g_tls_password_get_type" - c_g_tls_password_get_type :: IO GType - -type instance ParentTypes TlsPassword = TlsPasswordParentTypes -type TlsPasswordParentTypes = '[GObject.Object] - -instance GObject TlsPassword where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_tls_password_get_type - - -class GObject o => TlsPasswordK o -instance (GObject o, IsDescendantOf TlsPassword o) => TlsPasswordK o - -toTlsPassword :: TlsPasswordK o => o -> IO TlsPassword -toTlsPassword = unsafeCastTo TlsPassword - -noTlsPassword :: Maybe TlsPassword -noTlsPassword = Nothing - -type family ResolveTlsPasswordMethod (t :: Symbol) (o :: *) :: * where - ResolveTlsPasswordMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveTlsPasswordMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveTlsPasswordMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveTlsPasswordMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveTlsPasswordMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveTlsPasswordMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveTlsPasswordMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveTlsPasswordMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveTlsPasswordMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveTlsPasswordMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveTlsPasswordMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveTlsPasswordMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveTlsPasswordMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveTlsPasswordMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveTlsPasswordMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveTlsPasswordMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveTlsPasswordMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveTlsPasswordMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveTlsPasswordMethod "getDescription" o = TlsPasswordGetDescriptionMethodInfo - ResolveTlsPasswordMethod "getFlags" o = TlsPasswordGetFlagsMethodInfo - ResolveTlsPasswordMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveTlsPasswordMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveTlsPasswordMethod "getWarning" o = TlsPasswordGetWarningMethodInfo - ResolveTlsPasswordMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveTlsPasswordMethod "setDescription" o = TlsPasswordSetDescriptionMethodInfo - ResolveTlsPasswordMethod "setFlags" o = TlsPasswordSetFlagsMethodInfo - ResolveTlsPasswordMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveTlsPasswordMethod "setValue" o = TlsPasswordSetValueMethodInfo - ResolveTlsPasswordMethod "setValueFull" o = TlsPasswordSetValueFullMethodInfo - ResolveTlsPasswordMethod "setWarning" o = TlsPasswordSetWarningMethodInfo - ResolveTlsPasswordMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveTlsPasswordMethod t TlsPassword, MethodInfo info TlsPassword p) => IsLabelProxy t (TlsPassword -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveTlsPasswordMethod t TlsPassword, MethodInfo info TlsPassword p) => IsLabel t (TlsPassword -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "description" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTlsPasswordDescription :: (MonadIO m, TlsPasswordK o) => o -> m T.Text -getTlsPasswordDescription obj = liftIO $ checkUnexpectedNothing "getTlsPasswordDescription" $ getObjectPropertyString obj "description" - -setTlsPasswordDescription :: (MonadIO m, TlsPasswordK o) => o -> T.Text -> m () -setTlsPasswordDescription obj val = liftIO $ setObjectPropertyString obj "description" (Just val) - -constructTlsPasswordDescription :: T.Text -> IO ([Char], GValue) -constructTlsPasswordDescription val = constructObjectPropertyString "description" (Just val) - -data TlsPasswordDescriptionPropertyInfo -instance AttrInfo TlsPasswordDescriptionPropertyInfo where - type AttrAllowedOps TlsPasswordDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TlsPasswordDescriptionPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TlsPasswordDescriptionPropertyInfo = TlsPasswordK - type AttrGetType TlsPasswordDescriptionPropertyInfo = T.Text - type AttrLabel TlsPasswordDescriptionPropertyInfo = "description" - attrGet _ = getTlsPasswordDescription - attrSet _ = setTlsPasswordDescription - attrConstruct _ = constructTlsPasswordDescription - attrClear _ = undefined - --- VVV Prop "flags" - -- Type: TInterface "Gio" "TlsPasswordFlags" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTlsPasswordFlags :: (MonadIO m, TlsPasswordK o) => o -> m [TlsPasswordFlags] -getTlsPasswordFlags obj = liftIO $ getObjectPropertyFlags obj "flags" - -setTlsPasswordFlags :: (MonadIO m, TlsPasswordK o) => o -> [TlsPasswordFlags] -> m () -setTlsPasswordFlags obj val = liftIO $ setObjectPropertyFlags obj "flags" val - -constructTlsPasswordFlags :: [TlsPasswordFlags] -> IO ([Char], GValue) -constructTlsPasswordFlags val = constructObjectPropertyFlags "flags" val - -data TlsPasswordFlagsPropertyInfo -instance AttrInfo TlsPasswordFlagsPropertyInfo where - type AttrAllowedOps TlsPasswordFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TlsPasswordFlagsPropertyInfo = (~) [TlsPasswordFlags] - type AttrBaseTypeConstraint TlsPasswordFlagsPropertyInfo = TlsPasswordK - type AttrGetType TlsPasswordFlagsPropertyInfo = [TlsPasswordFlags] - type AttrLabel TlsPasswordFlagsPropertyInfo = "flags" - attrGet _ = getTlsPasswordFlags - attrSet _ = setTlsPasswordFlags - attrConstruct _ = constructTlsPasswordFlags - attrClear _ = undefined - --- VVV Prop "warning" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getTlsPasswordWarning :: (MonadIO m, TlsPasswordK o) => o -> m T.Text -getTlsPasswordWarning obj = liftIO $ checkUnexpectedNothing "getTlsPasswordWarning" $ getObjectPropertyString obj "warning" - -setTlsPasswordWarning :: (MonadIO m, TlsPasswordK o) => o -> T.Text -> m () -setTlsPasswordWarning obj val = liftIO $ setObjectPropertyString obj "warning" (Just val) - -constructTlsPasswordWarning :: T.Text -> IO ([Char], GValue) -constructTlsPasswordWarning val = constructObjectPropertyString "warning" (Just val) - -data TlsPasswordWarningPropertyInfo -instance AttrInfo TlsPasswordWarningPropertyInfo where - type AttrAllowedOps TlsPasswordWarningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint TlsPasswordWarningPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint TlsPasswordWarningPropertyInfo = TlsPasswordK - type AttrGetType TlsPasswordWarningPropertyInfo = T.Text - type AttrLabel TlsPasswordWarningPropertyInfo = "warning" - attrGet _ = getTlsPasswordWarning - attrSet _ = setTlsPasswordWarning - attrConstruct _ = constructTlsPasswordWarning - attrClear _ = undefined - -type instance AttributeList TlsPassword = TlsPasswordAttributeList -type TlsPasswordAttributeList = ('[ '("description", TlsPasswordDescriptionPropertyInfo), '("flags", TlsPasswordFlagsPropertyInfo), '("warning", TlsPasswordWarningPropertyInfo)] :: [(Symbol, *)]) - -tlsPasswordDescription :: AttrLabelProxy "description" -tlsPasswordDescription = AttrLabelProxy - -tlsPasswordFlags :: AttrLabelProxy "flags" -tlsPasswordFlags = AttrLabelProxy - -tlsPasswordWarning :: AttrLabelProxy "warning" -tlsPasswordWarning = AttrLabelProxy - -type instance SignalList TlsPassword = TlsPasswordSignalList -type TlsPasswordSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method TlsPassword::new --- method type : Constructor --- Args : [Arg {argCName = "flags", argType = TInterface "Gio" "TlsPasswordFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsPassword") --- throws : False --- Skip return : False - -foreign import ccall "g_tls_password_new" g_tls_password_new :: - CUInt -> -- flags : TInterface "Gio" "TlsPasswordFlags" - CString -> -- description : TBasicType TUTF8 - IO (Ptr TlsPassword) - - -tlsPasswordNew :: - (MonadIO m) => - [TlsPasswordFlags] -- flags - -> T.Text -- description - -> m TlsPassword -- result -tlsPasswordNew flags description = liftIO $ do - let flags' = gflagsToWord flags - description' <- textToCString description - result <- g_tls_password_new flags' description' - checkUnexpectedReturnNULL "g_tls_password_new" result - result' <- (wrapObject TlsPassword) result - freeMem description' - return result' - --- method TlsPassword::get_description --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_tls_password_get_description" g_tls_password_get_description :: - Ptr TlsPassword -> -- _obj : TInterface "Gio" "TlsPassword" - IO CString - - -tlsPasswordGetDescription :: - (MonadIO m, TlsPasswordK a) => - a -- _obj - -> m T.Text -- result -tlsPasswordGetDescription _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_password_get_description _obj' - checkUnexpectedReturnNULL "g_tls_password_get_description" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data TlsPasswordGetDescriptionMethodInfo -instance (signature ~ (m T.Text), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordGetDescriptionMethodInfo a signature where - overloadedMethod _ = tlsPasswordGetDescription - --- method TlsPassword::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "TlsPasswordFlags") --- throws : False --- Skip return : False - -foreign import ccall "g_tls_password_get_flags" g_tls_password_get_flags :: - Ptr TlsPassword -> -- _obj : TInterface "Gio" "TlsPassword" - IO CUInt - - -tlsPasswordGetFlags :: - (MonadIO m, TlsPasswordK a) => - a -- _obj - -> m [TlsPasswordFlags] -- result -tlsPasswordGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_password_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data TlsPasswordGetFlagsMethodInfo -instance (signature ~ (m [TlsPasswordFlags]), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordGetFlagsMethodInfo a signature where - overloadedMethod _ = tlsPasswordGetFlags - --- method TlsPassword::get_warning --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_tls_password_get_warning" g_tls_password_get_warning :: - Ptr TlsPassword -> -- _obj : TInterface "Gio" "TlsPassword" - IO CString - - -tlsPasswordGetWarning :: - (MonadIO m, TlsPasswordK a) => - a -- _obj - -> m T.Text -- result -tlsPasswordGetWarning _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_tls_password_get_warning _obj' - checkUnexpectedReturnNULL "g_tls_password_get_warning" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data TlsPasswordGetWarningMethodInfo -instance (signature ~ (m T.Text), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordGetWarningMethodInfo a signature where - overloadedMethod _ = tlsPasswordGetWarning - --- method TlsPassword::set_description --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "description", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_password_set_description" g_tls_password_set_description :: - Ptr TlsPassword -> -- _obj : TInterface "Gio" "TlsPassword" - CString -> -- description : TBasicType TUTF8 - IO () - - -tlsPasswordSetDescription :: - (MonadIO m, TlsPasswordK a) => - a -- _obj - -> T.Text -- description - -> m () -- result -tlsPasswordSetDescription _obj description = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - description' <- textToCString description - g_tls_password_set_description _obj' description' - touchManagedPtr _obj - freeMem description' - return () - -data TlsPasswordSetDescriptionMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordSetDescriptionMethodInfo a signature where - overloadedMethod _ = tlsPasswordSetDescription - --- method TlsPassword::set_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "TlsPasswordFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_password_set_flags" g_tls_password_set_flags :: - Ptr TlsPassword -> -- _obj : TInterface "Gio" "TlsPassword" - CUInt -> -- flags : TInterface "Gio" "TlsPasswordFlags" - IO () - - -tlsPasswordSetFlags :: - (MonadIO m, TlsPasswordK a) => - a -- _obj - -> [TlsPasswordFlags] -- flags - -> m () -- result -tlsPasswordSetFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - g_tls_password_set_flags _obj' flags' - touchManagedPtr _obj - return () - -data TlsPasswordSetFlagsMethodInfo -instance (signature ~ ([TlsPasswordFlags] -> m ()), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordSetFlagsMethodInfo a signature where - overloadedMethod _ = tlsPasswordSetFlags - --- method TlsPassword::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_password_set_value" g_tls_password_set_value :: - Ptr TlsPassword -> -- _obj : TInterface "Gio" "TlsPassword" - Word8 -> -- value : TBasicType TUInt8 - Int64 -> -- length : TBasicType TInt64 - IO () - - -tlsPasswordSetValue :: - (MonadIO m, TlsPasswordK a) => - a -- _obj - -> Word8 -- value - -> Int64 -- length_ - -> m () -- result -tlsPasswordSetValue _obj value length_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_tls_password_set_value _obj' value length_ - touchManagedPtr _obj - return () - -data TlsPasswordSetValueMethodInfo -instance (signature ~ (Word8 -> Int64 -> m ()), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordSetValueMethodInfo a signature where - overloadedMethod _ = tlsPasswordSetValue - --- method TlsPassword::set_value_full --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUInt8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_password_set_value_full" g_tls_password_set_value_full :: - Ptr TlsPassword -> -- _obj : TInterface "Gio" "TlsPassword" - Word8 -> -- value : TBasicType TUInt8 - Int64 -> -- length : TBasicType TInt64 - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -tlsPasswordSetValueFull :: - (MonadIO m, TlsPasswordK a) => - a -- _obj - -> Word8 -- value - -> Int64 -- length_ - -> Maybe (GLib.DestroyNotify) -- destroy - -> m () -- result -tlsPasswordSetValueFull _obj value length_ destroy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - ptrdestroy <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) - maybeDestroy <- case destroy of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jDestroy -> do - jDestroy' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrdestroy) jDestroy) - poke ptrdestroy jDestroy' - return jDestroy' - g_tls_password_set_value_full _obj' value length_ maybeDestroy - touchManagedPtr _obj - return () - -data TlsPasswordSetValueFullMethodInfo -instance (signature ~ (Word8 -> Int64 -> Maybe (GLib.DestroyNotify) -> m ()), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordSetValueFullMethodInfo a signature where - overloadedMethod _ = tlsPasswordSetValueFull - --- method TlsPassword::set_warning --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "TlsPassword", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "warning", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_tls_password_set_warning" g_tls_password_set_warning :: - Ptr TlsPassword -> -- _obj : TInterface "Gio" "TlsPassword" - CString -> -- warning : TBasicType TUTF8 - IO () - - -tlsPasswordSetWarning :: - (MonadIO m, TlsPasswordK a) => - a -- _obj - -> T.Text -- warning - -> m () -- result -tlsPasswordSetWarning _obj warning = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - warning' <- textToCString warning - g_tls_password_set_warning _obj' warning' - touchManagedPtr _obj - freeMem warning' - return () - -data TlsPasswordSetWarningMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, TlsPasswordK a) => MethodInfo TlsPasswordSetWarningMethodInfo a signature where - overloadedMethod _ = tlsPasswordSetWarning - - diff --git a/GI/Gio/Objects/TlsPassword.hs-boot b/GI/Gio/Objects/TlsPassword.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/TlsPassword.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.Gio.Objects.TlsPassword where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype TlsPassword = TlsPassword (ForeignPtr TlsPassword) -instance GObject TlsPassword where -class GObject o => TlsPasswordK o -instance (GObject o, IsDescendantOf TlsPassword o) => TlsPasswordK o -data TlsPasswordDescriptionPropertyInfo -data TlsPasswordFlagsPropertyInfo -data TlsPasswordWarningPropertyInfo -data TlsPasswordGetDescriptionMethodInfo -data TlsPasswordGetFlagsMethodInfo -data TlsPasswordGetWarningMethodInfo -data TlsPasswordSetDescriptionMethodInfo -data TlsPasswordSetFlagsMethodInfo -data TlsPasswordSetValueMethodInfo -data TlsPasswordSetValueFullMethodInfo -data TlsPasswordSetWarningMethodInfo diff --git a/GI/Gio/Objects/UnixConnection.hs b/GI/Gio/Objects/UnixConnection.hs deleted file mode 100644 --- a/GI/Gio/Objects/UnixConnection.hs +++ /dev/null @@ -1,490 +0,0 @@ - - -{- | -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.Objects.UnixConnection - ( - --- * Exported types - UnixConnection(..) , - UnixConnectionK , - toUnixConnection , - noUnixConnection , - - - -- * Methods --- ** unixConnectionReceiveCredentials - UnixConnectionReceiveCredentialsMethodInfo, - unixConnectionReceiveCredentials , - - --- ** unixConnectionReceiveCredentialsAsync - UnixConnectionReceiveCredentialsAsyncMethodInfo, - unixConnectionReceiveCredentialsAsync , - - --- ** unixConnectionReceiveCredentialsFinish - UnixConnectionReceiveCredentialsFinishMethodInfo, - unixConnectionReceiveCredentialsFinish , - - --- ** unixConnectionReceiveFd - UnixConnectionReceiveFdMethodInfo , - unixConnectionReceiveFd , - - --- ** unixConnectionSendCredentials - UnixConnectionSendCredentialsMethodInfo , - unixConnectionSendCredentials , - - --- ** unixConnectionSendCredentialsAsync - UnixConnectionSendCredentialsAsyncMethodInfo, - unixConnectionSendCredentialsAsync , - - --- ** unixConnectionSendCredentialsFinish - UnixConnectionSendCredentialsFinishMethodInfo, - unixConnectionSendCredentialsFinish , - - --- ** unixConnectionSendFd - UnixConnectionSendFdMethodInfo , - unixConnectionSendFd , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype UnixConnection = UnixConnection (ForeignPtr UnixConnection) -foreign import ccall "g_unix_connection_get_type" - c_g_unix_connection_get_type :: IO GType - -type instance ParentTypes UnixConnection = UnixConnectionParentTypes -type UnixConnectionParentTypes = '[SocketConnection, IOStream, GObject.Object] - -instance GObject UnixConnection where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_unix_connection_get_type - - -class GObject o => UnixConnectionK o -instance (GObject o, IsDescendantOf UnixConnection o) => UnixConnectionK o - -toUnixConnection :: UnixConnectionK o => o -> IO UnixConnection -toUnixConnection = unsafeCastTo UnixConnection - -noUnixConnection :: Maybe UnixConnection -noUnixConnection = Nothing - -type family ResolveUnixConnectionMethod (t :: Symbol) (o :: *) :: * where - ResolveUnixConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveUnixConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveUnixConnectionMethod "clearPending" o = IOStreamClearPendingMethodInfo - ResolveUnixConnectionMethod "close" o = IOStreamCloseMethodInfo - ResolveUnixConnectionMethod "closeAsync" o = IOStreamCloseAsyncMethodInfo - ResolveUnixConnectionMethod "closeFinish" o = IOStreamCloseFinishMethodInfo - ResolveUnixConnectionMethod "connect" o = SocketConnectionConnectMethodInfo - ResolveUnixConnectionMethod "connectAsync" o = SocketConnectionConnectAsyncMethodInfo - ResolveUnixConnectionMethod "connectFinish" o = SocketConnectionConnectFinishMethodInfo - ResolveUnixConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveUnixConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveUnixConnectionMethod "hasPending" o = IOStreamHasPendingMethodInfo - ResolveUnixConnectionMethod "isClosed" o = IOStreamIsClosedMethodInfo - ResolveUnixConnectionMethod "isConnected" o = SocketConnectionIsConnectedMethodInfo - ResolveUnixConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveUnixConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveUnixConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveUnixConnectionMethod "receiveCredentials" o = UnixConnectionReceiveCredentialsMethodInfo - ResolveUnixConnectionMethod "receiveCredentialsAsync" o = UnixConnectionReceiveCredentialsAsyncMethodInfo - ResolveUnixConnectionMethod "receiveCredentialsFinish" o = UnixConnectionReceiveCredentialsFinishMethodInfo - ResolveUnixConnectionMethod "receiveFd" o = UnixConnectionReceiveFdMethodInfo - ResolveUnixConnectionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveUnixConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveUnixConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveUnixConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveUnixConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveUnixConnectionMethod "sendCredentials" o = UnixConnectionSendCredentialsMethodInfo - ResolveUnixConnectionMethod "sendCredentialsAsync" o = UnixConnectionSendCredentialsAsyncMethodInfo - ResolveUnixConnectionMethod "sendCredentialsFinish" o = UnixConnectionSendCredentialsFinishMethodInfo - ResolveUnixConnectionMethod "sendFd" o = UnixConnectionSendFdMethodInfo - ResolveUnixConnectionMethod "spliceAsync" o = IOStreamSpliceAsyncMethodInfo - ResolveUnixConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveUnixConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveUnixConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveUnixConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveUnixConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveUnixConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveUnixConnectionMethod "getInputStream" o = IOStreamGetInputStreamMethodInfo - ResolveUnixConnectionMethod "getLocalAddress" o = SocketConnectionGetLocalAddressMethodInfo - ResolveUnixConnectionMethod "getOutputStream" o = IOStreamGetOutputStreamMethodInfo - ResolveUnixConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveUnixConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveUnixConnectionMethod "getRemoteAddress" o = SocketConnectionGetRemoteAddressMethodInfo - ResolveUnixConnectionMethod "getSocket" o = SocketConnectionGetSocketMethodInfo - ResolveUnixConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveUnixConnectionMethod "setPending" o = IOStreamSetPendingMethodInfo - ResolveUnixConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveUnixConnectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveUnixConnectionMethod t UnixConnection, MethodInfo info UnixConnection p) => IsLabelProxy t (UnixConnection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveUnixConnectionMethod t UnixConnection, MethodInfo info UnixConnection p) => IsLabel t (UnixConnection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList UnixConnection = UnixConnectionAttributeList -type UnixConnectionAttributeList = ('[ '("closed", IOStreamClosedPropertyInfo), '("inputStream", IOStreamInputStreamPropertyInfo), '("outputStream", IOStreamOutputStreamPropertyInfo), '("socket", SocketConnectionSocketPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList UnixConnection = UnixConnectionSignalList -type UnixConnectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method UnixConnection::receive_credentials --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", 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 : Just (TInterface "Gio" "Credentials") --- throws : True --- Skip return : False - -foreign import ccall "g_unix_connection_receive_credentials" g_unix_connection_receive_credentials :: - Ptr UnixConnection -> -- _obj : TInterface "Gio" "UnixConnection" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr Credentials) - - -unixConnectionReceiveCredentials :: - (MonadIO m, UnixConnectionK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m Credentials -- result -unixConnectionReceiveCredentials _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_unix_connection_receive_credentials _obj' maybeCancellable - checkUnexpectedReturnNULL "g_unix_connection_receive_credentials" result - result' <- (wrapObject Credentials) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - -data UnixConnectionReceiveCredentialsMethodInfo -instance (signature ~ (Maybe (b) -> m Credentials), MonadIO m, UnixConnectionK a, CancellableK b) => MethodInfo UnixConnectionReceiveCredentialsMethodInfo a signature where - overloadedMethod _ = unixConnectionReceiveCredentials - --- method UnixConnection::receive_credentials_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_unix_connection_receive_credentials_async" g_unix_connection_receive_credentials_async :: - Ptr UnixConnection -> -- _obj : TInterface "Gio" "UnixConnection" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -unixConnectionReceiveCredentialsAsync :: - (MonadIO m, UnixConnectionK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -unixConnectionReceiveCredentialsAsync _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_unix_connection_receive_credentials_async _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data UnixConnectionReceiveCredentialsAsyncMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, UnixConnectionK a, CancellableK b) => MethodInfo UnixConnectionReceiveCredentialsAsyncMethodInfo a signature where - overloadedMethod _ = unixConnectionReceiveCredentialsAsync - --- method UnixConnection::receive_credentials_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Credentials") --- throws : True --- Skip return : False - -foreign import ccall "g_unix_connection_receive_credentials_finish" g_unix_connection_receive_credentials_finish :: - Ptr UnixConnection -> -- _obj : TInterface "Gio" "UnixConnection" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr Credentials) - - -unixConnectionReceiveCredentialsFinish :: - (MonadIO m, UnixConnectionK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m Credentials -- result -unixConnectionReceiveCredentialsFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ g_unix_connection_receive_credentials_finish _obj' result_' - checkUnexpectedReturnNULL "g_unix_connection_receive_credentials_finish" result - result' <- (wrapObject Credentials) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - -data UnixConnectionReceiveCredentialsFinishMethodInfo -instance (signature ~ (b -> m Credentials), MonadIO m, UnixConnectionK a, AsyncResultK b) => MethodInfo UnixConnectionReceiveCredentialsFinishMethodInfo a signature where - overloadedMethod _ = unixConnectionReceiveCredentialsFinish - --- method UnixConnection::receive_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", 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 : Just (TBasicType TInt) --- throws : True --- Skip return : False - -foreign import ccall "g_unix_connection_receive_fd" g_unix_connection_receive_fd :: - Ptr UnixConnection -> -- _obj : TInterface "Gio" "UnixConnection" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO Int32 - - -unixConnectionReceiveFd :: - (MonadIO m, UnixConnectionK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m Int32 -- result -unixConnectionReceiveFd _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ g_unix_connection_receive_fd _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result - ) (do - return () - ) - -data UnixConnectionReceiveFdMethodInfo -instance (signature ~ (Maybe (b) -> m Int32), MonadIO m, UnixConnectionK a, CancellableK b) => MethodInfo UnixConnectionReceiveFdMethodInfo a signature where - overloadedMethod _ = unixConnectionReceiveFd - --- method UnixConnection::send_credentials --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_unix_connection_send_credentials" g_unix_connection_send_credentials :: - Ptr UnixConnection -> -- _obj : TInterface "Gio" "UnixConnection" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -unixConnectionSendCredentials :: - (MonadIO m, UnixConnectionK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> m () -- result -unixConnectionSendCredentials _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_unix_connection_send_credentials _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data UnixConnectionSendCredentialsMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, UnixConnectionK a, CancellableK b) => MethodInfo UnixConnectionSendCredentialsMethodInfo a signature where - overloadedMethod _ = unixConnectionSendCredentials - --- method UnixConnection::send_credentials_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", 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 TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_unix_connection_send_credentials_async" g_unix_connection_send_credentials_async :: - Ptr UnixConnection -> -- _obj : TInterface "Gio" "UnixConnection" - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TPtr - IO () - - -unixConnectionSendCredentialsAsync :: - (MonadIO m, UnixConnectionK a, CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (AsyncReadyCallback) -- callback - -> m () -- result -unixConnectionSendCredentialsAsync _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - 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_unix_connection_send_credentials_async _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data UnixConnectionSendCredentialsAsyncMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (AsyncReadyCallback) -> m ()), MonadIO m, UnixConnectionK a, CancellableK b) => MethodInfo UnixConnectionSendCredentialsAsyncMethodInfo a signature where - overloadedMethod _ = unixConnectionSendCredentialsAsync - --- method UnixConnection::send_credentials_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_unix_connection_send_credentials_finish" g_unix_connection_send_credentials_finish :: - Ptr UnixConnection -> -- _obj : TInterface "Gio" "UnixConnection" - Ptr AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO CInt - - -unixConnectionSendCredentialsFinish :: - (MonadIO m, UnixConnectionK a, AsyncResultK b) => - a -- _obj - -> b -- result_ - -> m () -- result -unixConnectionSendCredentialsFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - _ <- propagateGError $ g_unix_connection_send_credentials_finish _obj' result_' - touchManagedPtr _obj - touchManagedPtr result_ - return () - ) (do - return () - ) - -data UnixConnectionSendCredentialsFinishMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, UnixConnectionK a, AsyncResultK b) => MethodInfo UnixConnectionSendCredentialsFinishMethodInfo a signature where - overloadedMethod _ = unixConnectionSendCredentialsFinish - --- method UnixConnection::send_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, 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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_unix_connection_send_fd" g_unix_connection_send_fd :: - Ptr UnixConnection -> -- _obj : TInterface "Gio" "UnixConnection" - Int32 -> -- fd : TBasicType TInt - Ptr Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CInt - - -unixConnectionSendFd :: - (MonadIO m, UnixConnectionK a, CancellableK b) => - a -- _obj - -> Int32 -- fd - -> Maybe (b) -- cancellable - -> m () -- result -unixConnectionSendFd _obj fd cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - _ <- propagateGError $ g_unix_connection_send_fd _obj' fd maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - ) (do - return () - ) - -data UnixConnectionSendFdMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> m ()), MonadIO m, UnixConnectionK a, CancellableK b) => MethodInfo UnixConnectionSendFdMethodInfo a signature where - overloadedMethod _ = unixConnectionSendFd - - diff --git a/GI/Gio/Objects/UnixConnection.hs-boot b/GI/Gio/Objects/UnixConnection.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/UnixConnection.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gio.Objects.UnixConnection where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype UnixConnection = UnixConnection (ForeignPtr UnixConnection) -instance GObject UnixConnection where -class GObject o => UnixConnectionK o -instance (GObject o, IsDescendantOf UnixConnection o) => UnixConnectionK o -data UnixConnectionReceiveCredentialsMethodInfo -data UnixConnectionReceiveCredentialsAsyncMethodInfo -data UnixConnectionReceiveCredentialsFinishMethodInfo -data UnixConnectionReceiveFdMethodInfo -data UnixConnectionSendCredentialsMethodInfo -data UnixConnectionSendCredentialsAsyncMethodInfo -data UnixConnectionSendCredentialsFinishMethodInfo -data UnixConnectionSendFdMethodInfo diff --git a/GI/Gio/Objects/UnixCredentialsMessage.hs b/GI/Gio/Objects/UnixCredentialsMessage.hs deleted file mode 100644 --- a/GI/Gio/Objects/UnixCredentialsMessage.hs +++ /dev/null @@ -1,248 +0,0 @@ - - -{- | -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.Objects.UnixCredentialsMessage - ( - --- * Exported types - UnixCredentialsMessage(..) , - UnixCredentialsMessageK , - toUnixCredentialsMessage , - noUnixCredentialsMessage , - - - -- * Methods --- ** unixCredentialsMessageGetCredentials - UnixCredentialsMessageGetCredentialsMethodInfo, - unixCredentialsMessageGetCredentials , - - --- ** unixCredentialsMessageIsSupported - unixCredentialsMessageIsSupported , - - --- ** unixCredentialsMessageNew - unixCredentialsMessageNew , - - --- ** unixCredentialsMessageNewWithCredentials - unixCredentialsMessageNewWithCredentials, - - - - - -- * Properties --- ** Credentials - UnixCredentialsMessageCredentialsPropertyInfo, - constructUnixCredentialsMessageCredentials, - getUnixCredentialsMessageCredentials , - unixCredentialsMessageCredentials , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype UnixCredentialsMessage = UnixCredentialsMessage (ForeignPtr UnixCredentialsMessage) -foreign import ccall "g_unix_credentials_message_get_type" - c_g_unix_credentials_message_get_type :: IO GType - -type instance ParentTypes UnixCredentialsMessage = UnixCredentialsMessageParentTypes -type UnixCredentialsMessageParentTypes = '[SocketControlMessage, GObject.Object] - -instance GObject UnixCredentialsMessage where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_unix_credentials_message_get_type - - -class GObject o => UnixCredentialsMessageK o -instance (GObject o, IsDescendantOf UnixCredentialsMessage o) => UnixCredentialsMessageK o - -toUnixCredentialsMessage :: UnixCredentialsMessageK o => o -> IO UnixCredentialsMessage -toUnixCredentialsMessage = unsafeCastTo UnixCredentialsMessage - -noUnixCredentialsMessage :: Maybe UnixCredentialsMessage -noUnixCredentialsMessage = Nothing - -type family ResolveUnixCredentialsMessageMethod (t :: Symbol) (o :: *) :: * where - ResolveUnixCredentialsMessageMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveUnixCredentialsMessageMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveUnixCredentialsMessageMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveUnixCredentialsMessageMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveUnixCredentialsMessageMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveUnixCredentialsMessageMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveUnixCredentialsMessageMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveUnixCredentialsMessageMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveUnixCredentialsMessageMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveUnixCredentialsMessageMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveUnixCredentialsMessageMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveUnixCredentialsMessageMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveUnixCredentialsMessageMethod "serialize" o = SocketControlMessageSerializeMethodInfo - ResolveUnixCredentialsMessageMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveUnixCredentialsMessageMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveUnixCredentialsMessageMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveUnixCredentialsMessageMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveUnixCredentialsMessageMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveUnixCredentialsMessageMethod "getCredentials" o = UnixCredentialsMessageGetCredentialsMethodInfo - ResolveUnixCredentialsMessageMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveUnixCredentialsMessageMethod "getLevel" o = SocketControlMessageGetLevelMethodInfo - ResolveUnixCredentialsMessageMethod "getMsgType" o = SocketControlMessageGetMsgTypeMethodInfo - ResolveUnixCredentialsMessageMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveUnixCredentialsMessageMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveUnixCredentialsMessageMethod "getSize" o = SocketControlMessageGetSizeMethodInfo - ResolveUnixCredentialsMessageMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveUnixCredentialsMessageMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveUnixCredentialsMessageMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveUnixCredentialsMessageMethod t UnixCredentialsMessage, MethodInfo info UnixCredentialsMessage p) => IsLabelProxy t (UnixCredentialsMessage -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveUnixCredentialsMessageMethod t UnixCredentialsMessage, MethodInfo info UnixCredentialsMessage p) => IsLabel t (UnixCredentialsMessage -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "credentials" - -- Type: TInterface "Gio" "Credentials" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getUnixCredentialsMessageCredentials :: (MonadIO m, UnixCredentialsMessageK o) => o -> m Credentials -getUnixCredentialsMessageCredentials obj = liftIO $ checkUnexpectedNothing "getUnixCredentialsMessageCredentials" $ getObjectPropertyObject obj "credentials" Credentials - -constructUnixCredentialsMessageCredentials :: (CredentialsK a) => a -> IO ([Char], GValue) -constructUnixCredentialsMessageCredentials val = constructObjectPropertyObject "credentials" (Just val) - -data UnixCredentialsMessageCredentialsPropertyInfo -instance AttrInfo UnixCredentialsMessageCredentialsPropertyInfo where - type AttrAllowedOps UnixCredentialsMessageCredentialsPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint UnixCredentialsMessageCredentialsPropertyInfo = CredentialsK - type AttrBaseTypeConstraint UnixCredentialsMessageCredentialsPropertyInfo = UnixCredentialsMessageK - type AttrGetType UnixCredentialsMessageCredentialsPropertyInfo = Credentials - type AttrLabel UnixCredentialsMessageCredentialsPropertyInfo = "credentials" - attrGet _ = getUnixCredentialsMessageCredentials - attrSet _ = undefined - attrConstruct _ = constructUnixCredentialsMessageCredentials - attrClear _ = undefined - -type instance AttributeList UnixCredentialsMessage = UnixCredentialsMessageAttributeList -type UnixCredentialsMessageAttributeList = ('[ '("credentials", UnixCredentialsMessageCredentialsPropertyInfo)] :: [(Symbol, *)]) - -unixCredentialsMessageCredentials :: AttrLabelProxy "credentials" -unixCredentialsMessageCredentials = AttrLabelProxy - -type instance SignalList UnixCredentialsMessage = UnixCredentialsMessageSignalList -type UnixCredentialsMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method UnixCredentialsMessage::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "UnixCredentialsMessage") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_credentials_message_new" g_unix_credentials_message_new :: - IO (Ptr UnixCredentialsMessage) - - -unixCredentialsMessageNew :: - (MonadIO m) => - m UnixCredentialsMessage -- result -unixCredentialsMessageNew = liftIO $ do - result <- g_unix_credentials_message_new - checkUnexpectedReturnNULL "g_unix_credentials_message_new" result - result' <- (wrapObject UnixCredentialsMessage) result - return result' - --- method UnixCredentialsMessage::new_with_credentials --- method type : Constructor --- Args : [Arg {argCName = "credentials", argType = TInterface "Gio" "Credentials", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "UnixCredentialsMessage") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_credentials_message_new_with_credentials" g_unix_credentials_message_new_with_credentials :: - Ptr Credentials -> -- credentials : TInterface "Gio" "Credentials" - IO (Ptr UnixCredentialsMessage) - - -unixCredentialsMessageNewWithCredentials :: - (MonadIO m, CredentialsK a) => - a -- credentials - -> m UnixCredentialsMessage -- result -unixCredentialsMessageNewWithCredentials credentials = liftIO $ do - let credentials' = unsafeManagedPtrCastPtr credentials - result <- g_unix_credentials_message_new_with_credentials credentials' - checkUnexpectedReturnNULL "g_unix_credentials_message_new_with_credentials" result - result' <- (wrapObject UnixCredentialsMessage) result - touchManagedPtr credentials - return result' - --- method UnixCredentialsMessage::get_credentials --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixCredentialsMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Credentials") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_credentials_message_get_credentials" g_unix_credentials_message_get_credentials :: - Ptr UnixCredentialsMessage -> -- _obj : TInterface "Gio" "UnixCredentialsMessage" - IO (Ptr Credentials) - - -unixCredentialsMessageGetCredentials :: - (MonadIO m, UnixCredentialsMessageK a) => - a -- _obj - -> m Credentials -- result -unixCredentialsMessageGetCredentials _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_unix_credentials_message_get_credentials _obj' - checkUnexpectedReturnNULL "g_unix_credentials_message_get_credentials" result - result' <- (newObject Credentials) result - touchManagedPtr _obj - return result' - -data UnixCredentialsMessageGetCredentialsMethodInfo -instance (signature ~ (m Credentials), MonadIO m, UnixCredentialsMessageK a) => MethodInfo UnixCredentialsMessageGetCredentialsMethodInfo a signature where - overloadedMethod _ = unixCredentialsMessageGetCredentials - --- method UnixCredentialsMessage::is_supported --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_credentials_message_is_supported" g_unix_credentials_message_is_supported :: - IO CInt - - -unixCredentialsMessageIsSupported :: - (MonadIO m) => - m Bool -- result -unixCredentialsMessageIsSupported = liftIO $ do - result <- g_unix_credentials_message_is_supported - let result' = (/= 0) result - return result' - - diff --git a/GI/Gio/Objects/UnixCredentialsMessage.hs-boot b/GI/Gio/Objects/UnixCredentialsMessage.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/UnixCredentialsMessage.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gio.Objects.UnixCredentialsMessage where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype UnixCredentialsMessage = UnixCredentialsMessage (ForeignPtr UnixCredentialsMessage) -instance GObject UnixCredentialsMessage where -class GObject o => UnixCredentialsMessageK o -instance (GObject o, IsDescendantOf UnixCredentialsMessage o) => UnixCredentialsMessageK o -data UnixCredentialsMessageCredentialsPropertyInfo -data UnixCredentialsMessageGetCredentialsMethodInfo diff --git a/GI/Gio/Objects/UnixFDList.hs b/GI/Gio/Objects/UnixFDList.hs deleted file mode 100644 --- a/GI/Gio/Objects/UnixFDList.hs +++ /dev/null @@ -1,343 +0,0 @@ - - -{- | -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.Objects.UnixFDList - ( - --- * Exported types - UnixFDList(..) , - UnixFDListK , - toUnixFDList , - noUnixFDList , - - - -- * Methods --- ** unixFDListAppend - UnixFDListAppendMethodInfo , - unixFDListAppend , - - --- ** unixFDListGet - UnixFDListGetMethodInfo , - unixFDListGet , - - --- ** unixFDListGetLength - UnixFDListGetLengthMethodInfo , - unixFDListGetLength , - - --- ** unixFDListNew - unixFDListNew , - - --- ** unixFDListNewFromArray - unixFDListNewFromArray , - - --- ** unixFDListPeekFds - UnixFDListPeekFdsMethodInfo , - unixFDListPeekFds , - - --- ** unixFDListStealFds - UnixFDListStealFdsMethodInfo , - unixFDListStealFds , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype UnixFDList = UnixFDList (ForeignPtr UnixFDList) -foreign import ccall "g_unix_fd_list_get_type" - c_g_unix_fd_list_get_type :: IO GType - -type instance ParentTypes UnixFDList = UnixFDListParentTypes -type UnixFDListParentTypes = '[GObject.Object] - -instance GObject UnixFDList where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_unix_fd_list_get_type - - -class GObject o => UnixFDListK o -instance (GObject o, IsDescendantOf UnixFDList o) => UnixFDListK o - -toUnixFDList :: UnixFDListK o => o -> IO UnixFDList -toUnixFDList = unsafeCastTo UnixFDList - -noUnixFDList :: Maybe UnixFDList -noUnixFDList = Nothing - -type family ResolveUnixFDListMethod (t :: Symbol) (o :: *) :: * where - ResolveUnixFDListMethod "append" o = UnixFDListAppendMethodInfo - ResolveUnixFDListMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveUnixFDListMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveUnixFDListMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveUnixFDListMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveUnixFDListMethod "get" o = UnixFDListGetMethodInfo - ResolveUnixFDListMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveUnixFDListMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveUnixFDListMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveUnixFDListMethod "peekFds" o = UnixFDListPeekFdsMethodInfo - ResolveUnixFDListMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveUnixFDListMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveUnixFDListMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveUnixFDListMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveUnixFDListMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveUnixFDListMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveUnixFDListMethod "stealFds" o = UnixFDListStealFdsMethodInfo - ResolveUnixFDListMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveUnixFDListMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveUnixFDListMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveUnixFDListMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveUnixFDListMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveUnixFDListMethod "getLength" o = UnixFDListGetLengthMethodInfo - ResolveUnixFDListMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveUnixFDListMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveUnixFDListMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveUnixFDListMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveUnixFDListMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveUnixFDListMethod t UnixFDList, MethodInfo info UnixFDList p) => IsLabelProxy t (UnixFDList -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveUnixFDListMethod t UnixFDList, MethodInfo info UnixFDList p) => IsLabel t (UnixFDList -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList UnixFDList = UnixFDListAttributeList -type UnixFDListAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList UnixFDList = UnixFDListSignalList -type UnixFDListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method UnixFDList::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "UnixFDList") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_fd_list_new" g_unix_fd_list_new :: - IO (Ptr UnixFDList) - - -unixFDListNew :: - (MonadIO m) => - m UnixFDList -- result -unixFDListNew = liftIO $ do - result <- g_unix_fd_list_new - checkUnexpectedReturnNULL "g_unix_fd_list_new" result - result' <- (wrapObject UnixFDList) result - return result' - --- method UnixFDList::new_from_array --- method type : Constructor --- Args : [Arg {argCName = "fds", argType = TCArray False (-1) 1 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_fds", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_fds", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TInterface "Gio" "UnixFDList") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_fd_list_new_from_array" g_unix_fd_list_new_from_array :: - Ptr Int32 -> -- fds : TCArray False (-1) 1 (TBasicType TInt) - Int32 -> -- n_fds : TBasicType TInt - IO (Ptr UnixFDList) - - -unixFDListNewFromArray :: - (MonadIO m) => - [Int32] -- fds - -> m UnixFDList -- result -unixFDListNewFromArray fds = liftIO $ do - let nFds = fromIntegral $ length fds - fds' <- packStorableArray fds - result <- g_unix_fd_list_new_from_array fds' nFds - checkUnexpectedReturnNULL "g_unix_fd_list_new_from_array" result - result' <- (wrapObject UnixFDList) result - freeMem fds' - return result' - --- method UnixFDList::append --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : True --- Skip return : False - -foreign import ccall "g_unix_fd_list_append" g_unix_fd_list_append :: - Ptr UnixFDList -> -- _obj : TInterface "Gio" "UnixFDList" - Int32 -> -- fd : TBasicType TInt - Ptr (Ptr GError) -> -- error - IO Int32 - - -unixFDListAppend :: - (MonadIO m, UnixFDListK a) => - a -- _obj - -> Int32 -- fd - -> m Int32 -- result -unixFDListAppend _obj fd = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ g_unix_fd_list_append _obj' fd - touchManagedPtr _obj - return result - ) (do - return () - ) - -data UnixFDListAppendMethodInfo -instance (signature ~ (Int32 -> m Int32), MonadIO m, UnixFDListK a) => MethodInfo UnixFDListAppendMethodInfo a signature where - overloadedMethod _ = unixFDListAppend - --- method UnixFDList::get --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : True --- Skip return : False - -foreign import ccall "g_unix_fd_list_get" g_unix_fd_list_get :: - Ptr UnixFDList -> -- _obj : TInterface "Gio" "UnixFDList" - Int32 -> -- index_ : TBasicType TInt - Ptr (Ptr GError) -> -- error - IO Int32 - - -unixFDListGet :: - (MonadIO m, UnixFDListK a) => - a -- _obj - -> Int32 -- index_ - -> m Int32 -- result -unixFDListGet _obj index_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - result <- propagateGError $ g_unix_fd_list_get _obj' index_ - touchManagedPtr _obj - return result - ) (do - return () - ) - -data UnixFDListGetMethodInfo -instance (signature ~ (Int32 -> m Int32), MonadIO m, UnixFDListK a) => MethodInfo UnixFDListGetMethodInfo a signature where - overloadedMethod _ = unixFDListGet - --- method UnixFDList::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_fd_list_get_length" g_unix_fd_list_get_length :: - Ptr UnixFDList -> -- _obj : TInterface "Gio" "UnixFDList" - IO Int32 - - -unixFDListGetLength :: - (MonadIO m, UnixFDListK a) => - a -- _obj - -> m Int32 -- result -unixFDListGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_unix_fd_list_get_length _obj' - touchManagedPtr _obj - return result - -data UnixFDListGetLengthMethodInfo -instance (signature ~ (m Int32), MonadIO m, UnixFDListK a) => MethodInfo UnixFDListGetLengthMethodInfo a signature where - overloadedMethod _ = unixFDListGetLength - --- method UnixFDList::peek_fds --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TBasicType TInt)) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_fd_list_peek_fds" g_unix_fd_list_peek_fds :: - Ptr UnixFDList -> -- _obj : TInterface "Gio" "UnixFDList" - Ptr Int32 -> -- length : TBasicType TInt - IO (Ptr Int32) - - -unixFDListPeekFds :: - (MonadIO m, UnixFDListK a) => - a -- _obj - -> m [Int32] -- result -unixFDListPeekFds _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - length_ <- allocMem :: IO (Ptr Int32) - result <- g_unix_fd_list_peek_fds _obj' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "g_unix_fd_list_peek_fds" result - result' <- (unpackStorableArrayWithLength length_') result - touchManagedPtr _obj - freeMem length_ - return result' - -data UnixFDListPeekFdsMethodInfo -instance (signature ~ (m [Int32]), MonadIO m, UnixFDListK a) => MethodInfo UnixFDListPeekFdsMethodInfo a signature where - overloadedMethod _ = unixFDListPeekFds - --- method UnixFDList::steal_fds --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TBasicType TInt)) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_fd_list_steal_fds" g_unix_fd_list_steal_fds :: - Ptr UnixFDList -> -- _obj : TInterface "Gio" "UnixFDList" - Ptr Int32 -> -- length : TBasicType TInt - IO (Ptr Int32) - - -unixFDListStealFds :: - (MonadIO m, UnixFDListK a) => - a -- _obj - -> m [Int32] -- result -unixFDListStealFds _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - length_ <- allocMem :: IO (Ptr Int32) - result <- g_unix_fd_list_steal_fds _obj' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "g_unix_fd_list_steal_fds" result - result' <- (unpackStorableArrayWithLength length_') result - freeMem result - touchManagedPtr _obj - freeMem length_ - return result' - -data UnixFDListStealFdsMethodInfo -instance (signature ~ (m [Int32]), MonadIO m, UnixFDListK a) => MethodInfo UnixFDListStealFdsMethodInfo a signature where - overloadedMethod _ = unixFDListStealFds - - diff --git a/GI/Gio/Objects/UnixFDList.hs-boot b/GI/Gio/Objects/UnixFDList.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/UnixFDList.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gio.Objects.UnixFDList where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype UnixFDList = UnixFDList (ForeignPtr UnixFDList) -instance GObject UnixFDList where -class GObject o => UnixFDListK o -instance (GObject o, IsDescendantOf UnixFDList o) => UnixFDListK o -data UnixFDListAppendMethodInfo -data UnixFDListGetMethodInfo -data UnixFDListGetLengthMethodInfo -data UnixFDListPeekFdsMethodInfo -data UnixFDListStealFdsMethodInfo diff --git a/GI/Gio/Objects/UnixFDMessage.hs b/GI/Gio/Objects/UnixFDMessage.hs deleted file mode 100644 --- a/GI/Gio/Objects/UnixFDMessage.hs +++ /dev/null @@ -1,304 +0,0 @@ - - -{- | -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.Objects.UnixFDMessage - ( - --- * Exported types - UnixFDMessage(..) , - UnixFDMessageK , - toUnixFDMessage , - noUnixFDMessage , - - - -- * Methods --- ** unixFDMessageAppendFd - UnixFDMessageAppendFdMethodInfo , - unixFDMessageAppendFd , - - --- ** unixFDMessageGetFdList - UnixFDMessageGetFdListMethodInfo , - unixFDMessageGetFdList , - - --- ** unixFDMessageNew - unixFDMessageNew , - - --- ** unixFDMessageNewWithFdList - unixFDMessageNewWithFdList , - - --- ** unixFDMessageStealFds - UnixFDMessageStealFdsMethodInfo , - unixFDMessageStealFds , - - - - - -- * Properties --- ** FdList - UnixFDMessageFdListPropertyInfo , - constructUnixFDMessageFdList , - getUnixFDMessageFdList , - unixFDMessageFdList , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype UnixFDMessage = UnixFDMessage (ForeignPtr UnixFDMessage) -foreign import ccall "g_unix_fd_message_get_type" - c_g_unix_fd_message_get_type :: IO GType - -type instance ParentTypes UnixFDMessage = UnixFDMessageParentTypes -type UnixFDMessageParentTypes = '[SocketControlMessage, GObject.Object] - -instance GObject UnixFDMessage where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_unix_fd_message_get_type - - -class GObject o => UnixFDMessageK o -instance (GObject o, IsDescendantOf UnixFDMessage o) => UnixFDMessageK o - -toUnixFDMessage :: UnixFDMessageK o => o -> IO UnixFDMessage -toUnixFDMessage = unsafeCastTo UnixFDMessage - -noUnixFDMessage :: Maybe UnixFDMessage -noUnixFDMessage = Nothing - -type family ResolveUnixFDMessageMethod (t :: Symbol) (o :: *) :: * where - ResolveUnixFDMessageMethod "appendFd" o = UnixFDMessageAppendFdMethodInfo - ResolveUnixFDMessageMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveUnixFDMessageMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveUnixFDMessageMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveUnixFDMessageMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveUnixFDMessageMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveUnixFDMessageMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveUnixFDMessageMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveUnixFDMessageMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveUnixFDMessageMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveUnixFDMessageMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveUnixFDMessageMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveUnixFDMessageMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveUnixFDMessageMethod "serialize" o = SocketControlMessageSerializeMethodInfo - ResolveUnixFDMessageMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveUnixFDMessageMethod "stealFds" o = UnixFDMessageStealFdsMethodInfo - ResolveUnixFDMessageMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveUnixFDMessageMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveUnixFDMessageMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveUnixFDMessageMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveUnixFDMessageMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveUnixFDMessageMethod "getFdList" o = UnixFDMessageGetFdListMethodInfo - ResolveUnixFDMessageMethod "getLevel" o = SocketControlMessageGetLevelMethodInfo - ResolveUnixFDMessageMethod "getMsgType" o = SocketControlMessageGetMsgTypeMethodInfo - ResolveUnixFDMessageMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveUnixFDMessageMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveUnixFDMessageMethod "getSize" o = SocketControlMessageGetSizeMethodInfo - ResolveUnixFDMessageMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveUnixFDMessageMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveUnixFDMessageMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveUnixFDMessageMethod t UnixFDMessage, MethodInfo info UnixFDMessage p) => IsLabelProxy t (UnixFDMessage -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveUnixFDMessageMethod t UnixFDMessage, MethodInfo info UnixFDMessage p) => IsLabel t (UnixFDMessage -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "fd-list" - -- Type: TInterface "Gio" "UnixFDList" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getUnixFDMessageFdList :: (MonadIO m, UnixFDMessageK o) => o -> m UnixFDList -getUnixFDMessageFdList obj = liftIO $ checkUnexpectedNothing "getUnixFDMessageFdList" $ getObjectPropertyObject obj "fd-list" UnixFDList - -constructUnixFDMessageFdList :: (UnixFDListK a) => a -> IO ([Char], GValue) -constructUnixFDMessageFdList val = constructObjectPropertyObject "fd-list" (Just val) - -data UnixFDMessageFdListPropertyInfo -instance AttrInfo UnixFDMessageFdListPropertyInfo where - type AttrAllowedOps UnixFDMessageFdListPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint UnixFDMessageFdListPropertyInfo = UnixFDListK - type AttrBaseTypeConstraint UnixFDMessageFdListPropertyInfo = UnixFDMessageK - type AttrGetType UnixFDMessageFdListPropertyInfo = UnixFDList - type AttrLabel UnixFDMessageFdListPropertyInfo = "fd-list" - attrGet _ = getUnixFDMessageFdList - attrSet _ = undefined - attrConstruct _ = constructUnixFDMessageFdList - attrClear _ = undefined - -type instance AttributeList UnixFDMessage = UnixFDMessageAttributeList -type UnixFDMessageAttributeList = ('[ '("fdList", UnixFDMessageFdListPropertyInfo)] :: [(Symbol, *)]) - -unixFDMessageFdList :: AttrLabelProxy "fdList" -unixFDMessageFdList = AttrLabelProxy - -type instance SignalList UnixFDMessage = UnixFDMessageSignalList -type UnixFDMessageSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method UnixFDMessage::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "UnixFDMessage") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_fd_message_new" g_unix_fd_message_new :: - IO (Ptr UnixFDMessage) - - -unixFDMessageNew :: - (MonadIO m) => - m UnixFDMessage -- result -unixFDMessageNew = liftIO $ do - result <- g_unix_fd_message_new - checkUnexpectedReturnNULL "g_unix_fd_message_new" result - result' <- (wrapObject UnixFDMessage) result - return result' - --- method UnixFDMessage::new_with_fd_list --- method type : Constructor --- Args : [Arg {argCName = "fd_list", argType = TInterface "Gio" "UnixFDList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "UnixFDMessage") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_fd_message_new_with_fd_list" g_unix_fd_message_new_with_fd_list :: - Ptr UnixFDList -> -- fd_list : TInterface "Gio" "UnixFDList" - IO (Ptr UnixFDMessage) - - -unixFDMessageNewWithFdList :: - (MonadIO m, UnixFDListK a) => - a -- fdList - -> m UnixFDMessage -- result -unixFDMessageNewWithFdList fdList = liftIO $ do - let fdList' = unsafeManagedPtrCastPtr fdList - result <- g_unix_fd_message_new_with_fd_list fdList' - checkUnexpectedReturnNULL "g_unix_fd_message_new_with_fd_list" result - result' <- (wrapObject UnixFDMessage) result - touchManagedPtr fdList - return result' - --- method UnixFDMessage::append_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_unix_fd_message_append_fd" g_unix_fd_message_append_fd :: - Ptr UnixFDMessage -> -- _obj : TInterface "Gio" "UnixFDMessage" - Int32 -> -- fd : TBasicType TInt - Ptr (Ptr GError) -> -- error - IO CInt - - -unixFDMessageAppendFd :: - (MonadIO m, UnixFDMessageK a) => - a -- _obj - -> Int32 -- fd - -> m () -- result -unixFDMessageAppendFd _obj fd = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - onException (do - _ <- propagateGError $ g_unix_fd_message_append_fd _obj' fd - touchManagedPtr _obj - return () - ) (do - return () - ) - -data UnixFDMessageAppendFdMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, UnixFDMessageK a) => MethodInfo UnixFDMessageAppendFdMethodInfo a signature where - overloadedMethod _ = unixFDMessageAppendFd - --- method UnixFDMessage::get_fd_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "UnixFDList") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_fd_message_get_fd_list" g_unix_fd_message_get_fd_list :: - Ptr UnixFDMessage -> -- _obj : TInterface "Gio" "UnixFDMessage" - IO (Ptr UnixFDList) - - -unixFDMessageGetFdList :: - (MonadIO m, UnixFDMessageK a) => - a -- _obj - -> m UnixFDList -- result -unixFDMessageGetFdList _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_unix_fd_message_get_fd_list _obj' - checkUnexpectedReturnNULL "g_unix_fd_message_get_fd_list" result - result' <- (newObject UnixFDList) result - touchManagedPtr _obj - return result' - -data UnixFDMessageGetFdListMethodInfo -instance (signature ~ (m UnixFDList), MonadIO m, UnixFDMessageK a) => MethodInfo UnixFDMessageGetFdListMethodInfo a signature where - overloadedMethod _ = unixFDMessageGetFdList - --- method UnixFDMessage::steal_fds --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixFDMessage", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (TCArray False (-1) 1 (TBasicType TInt)) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_fd_message_steal_fds" g_unix_fd_message_steal_fds :: - Ptr UnixFDMessage -> -- _obj : TInterface "Gio" "UnixFDMessage" - Ptr Int32 -> -- length : TBasicType TInt - IO (Ptr Int32) - - -unixFDMessageStealFds :: - (MonadIO m, UnixFDMessageK a) => - a -- _obj - -> m [Int32] -- result -unixFDMessageStealFds _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - length_ <- allocMem :: IO (Ptr Int32) - result <- g_unix_fd_message_steal_fds _obj' length_ - length_' <- peek length_ - checkUnexpectedReturnNULL "g_unix_fd_message_steal_fds" result - result' <- (unpackStorableArrayWithLength length_') result - freeMem result - touchManagedPtr _obj - freeMem length_ - return result' - -data UnixFDMessageStealFdsMethodInfo -instance (signature ~ (m [Int32]), MonadIO m, UnixFDMessageK a) => MethodInfo UnixFDMessageStealFdsMethodInfo a signature where - overloadedMethod _ = unixFDMessageStealFds - - diff --git a/GI/Gio/Objects/UnixFDMessage.hs-boot b/GI/Gio/Objects/UnixFDMessage.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/UnixFDMessage.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Objects.UnixFDMessage where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype UnixFDMessage = UnixFDMessage (ForeignPtr UnixFDMessage) -instance GObject UnixFDMessage where -class GObject o => UnixFDMessageK o -instance (GObject o, IsDescendantOf UnixFDMessage o) => UnixFDMessageK o -data UnixFDMessageFdListPropertyInfo -data UnixFDMessageAppendFdMethodInfo -data UnixFDMessageGetFdListMethodInfo -data UnixFDMessageStealFdsMethodInfo diff --git a/GI/Gio/Objects/UnixInputStream.hs b/GI/Gio/Objects/UnixInputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/UnixInputStream.hs +++ /dev/null @@ -1,323 +0,0 @@ - - -{- | -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.Objects.UnixInputStream - ( - --- * Exported types - UnixInputStream(..) , - UnixInputStreamK , - toUnixInputStream , - noUnixInputStream , - - - -- * Methods --- ** unixInputStreamGetCloseFd - UnixInputStreamGetCloseFdMethodInfo , - unixInputStreamGetCloseFd , - - --- ** unixInputStreamGetFd - UnixInputStreamGetFdMethodInfo , - unixInputStreamGetFd , - - --- ** unixInputStreamNew - unixInputStreamNew , - - --- ** unixInputStreamSetCloseFd - UnixInputStreamSetCloseFdMethodInfo , - unixInputStreamSetCloseFd , - - - - - -- * Properties --- ** CloseFd - UnixInputStreamCloseFdPropertyInfo , - constructUnixInputStreamCloseFd , - getUnixInputStreamCloseFd , - setUnixInputStreamCloseFd , - unixInputStreamCloseFd , - - --- ** Fd - UnixInputStreamFdPropertyInfo , - constructUnixInputStreamFd , - getUnixInputStreamFd , - unixInputStreamFd , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype UnixInputStream = UnixInputStream (ForeignPtr UnixInputStream) -foreign import ccall "g_unix_input_stream_get_type" - c_g_unix_input_stream_get_type :: IO GType - -type instance ParentTypes UnixInputStream = UnixInputStreamParentTypes -type UnixInputStreamParentTypes = '[InputStream, GObject.Object, FileDescriptorBased, PollableInputStream] - -instance GObject UnixInputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_unix_input_stream_get_type - - -class GObject o => UnixInputStreamK o -instance (GObject o, IsDescendantOf UnixInputStream o) => UnixInputStreamK o - -toUnixInputStream :: UnixInputStreamK o => o -> IO UnixInputStream -toUnixInputStream = unsafeCastTo UnixInputStream - -noUnixInputStream :: Maybe UnixInputStream -noUnixInputStream = Nothing - -type family ResolveUnixInputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveUnixInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveUnixInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveUnixInputStreamMethod "canPoll" o = PollableInputStreamCanPollMethodInfo - ResolveUnixInputStreamMethod "clearPending" o = InputStreamClearPendingMethodInfo - ResolveUnixInputStreamMethod "close" o = InputStreamCloseMethodInfo - ResolveUnixInputStreamMethod "closeAsync" o = InputStreamCloseAsyncMethodInfo - ResolveUnixInputStreamMethod "closeFinish" o = InputStreamCloseFinishMethodInfo - ResolveUnixInputStreamMethod "createSource" o = PollableInputStreamCreateSourceMethodInfo - ResolveUnixInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveUnixInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveUnixInputStreamMethod "hasPending" o = InputStreamHasPendingMethodInfo - ResolveUnixInputStreamMethod "isClosed" o = InputStreamIsClosedMethodInfo - ResolveUnixInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveUnixInputStreamMethod "isReadable" o = PollableInputStreamIsReadableMethodInfo - ResolveUnixInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveUnixInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveUnixInputStreamMethod "read" o = InputStreamReadMethodInfo - ResolveUnixInputStreamMethod "readAll" o = InputStreamReadAllMethodInfo - ResolveUnixInputStreamMethod "readAllAsync" o = InputStreamReadAllAsyncMethodInfo - ResolveUnixInputStreamMethod "readAllFinish" o = InputStreamReadAllFinishMethodInfo - ResolveUnixInputStreamMethod "readAsync" o = InputStreamReadAsyncMethodInfo - ResolveUnixInputStreamMethod "readBytes" o = InputStreamReadBytesMethodInfo - ResolveUnixInputStreamMethod "readBytesAsync" o = InputStreamReadBytesAsyncMethodInfo - ResolveUnixInputStreamMethod "readBytesFinish" o = InputStreamReadBytesFinishMethodInfo - ResolveUnixInputStreamMethod "readFinish" o = InputStreamReadFinishMethodInfo - ResolveUnixInputStreamMethod "readNonblocking" o = PollableInputStreamReadNonblockingMethodInfo - ResolveUnixInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveUnixInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveUnixInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveUnixInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveUnixInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveUnixInputStreamMethod "skip" o = InputStreamSkipMethodInfo - ResolveUnixInputStreamMethod "skipAsync" o = InputStreamSkipAsyncMethodInfo - ResolveUnixInputStreamMethod "skipFinish" o = InputStreamSkipFinishMethodInfo - ResolveUnixInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveUnixInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveUnixInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveUnixInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveUnixInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveUnixInputStreamMethod "getCloseFd" o = UnixInputStreamGetCloseFdMethodInfo - ResolveUnixInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveUnixInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveUnixInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveUnixInputStreamMethod "setCloseFd" o = UnixInputStreamSetCloseFdMethodInfo - ResolveUnixInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveUnixInputStreamMethod "setPending" o = InputStreamSetPendingMethodInfo - ResolveUnixInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveUnixInputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveUnixInputStreamMethod t UnixInputStream, MethodInfo info UnixInputStream p) => IsLabelProxy t (UnixInputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveUnixInputStreamMethod t UnixInputStream, MethodInfo info UnixInputStream p) => IsLabel t (UnixInputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "close-fd" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getUnixInputStreamCloseFd :: (MonadIO m, UnixInputStreamK o) => o -> m Bool -getUnixInputStreamCloseFd obj = liftIO $ getObjectPropertyBool obj "close-fd" - -setUnixInputStreamCloseFd :: (MonadIO m, UnixInputStreamK o) => o -> Bool -> m () -setUnixInputStreamCloseFd obj val = liftIO $ setObjectPropertyBool obj "close-fd" val - -constructUnixInputStreamCloseFd :: Bool -> IO ([Char], GValue) -constructUnixInputStreamCloseFd val = constructObjectPropertyBool "close-fd" val - -data UnixInputStreamCloseFdPropertyInfo -instance AttrInfo UnixInputStreamCloseFdPropertyInfo where - type AttrAllowedOps UnixInputStreamCloseFdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint UnixInputStreamCloseFdPropertyInfo = (~) Bool - type AttrBaseTypeConstraint UnixInputStreamCloseFdPropertyInfo = UnixInputStreamK - type AttrGetType UnixInputStreamCloseFdPropertyInfo = Bool - type AttrLabel UnixInputStreamCloseFdPropertyInfo = "close-fd" - attrGet _ = getUnixInputStreamCloseFd - attrSet _ = setUnixInputStreamCloseFd - attrConstruct _ = constructUnixInputStreamCloseFd - attrClear _ = undefined - --- VVV Prop "fd" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getUnixInputStreamFd :: (MonadIO m, UnixInputStreamK o) => o -> m Int32 -getUnixInputStreamFd obj = liftIO $ getObjectPropertyInt32 obj "fd" - -constructUnixInputStreamFd :: Int32 -> IO ([Char], GValue) -constructUnixInputStreamFd val = constructObjectPropertyInt32 "fd" val - -data UnixInputStreamFdPropertyInfo -instance AttrInfo UnixInputStreamFdPropertyInfo where - type AttrAllowedOps UnixInputStreamFdPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint UnixInputStreamFdPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint UnixInputStreamFdPropertyInfo = UnixInputStreamK - type AttrGetType UnixInputStreamFdPropertyInfo = Int32 - type AttrLabel UnixInputStreamFdPropertyInfo = "fd" - attrGet _ = getUnixInputStreamFd - attrSet _ = undefined - attrConstruct _ = constructUnixInputStreamFd - attrClear _ = undefined - -type instance AttributeList UnixInputStream = UnixInputStreamAttributeList -type UnixInputStreamAttributeList = ('[ '("closeFd", UnixInputStreamCloseFdPropertyInfo), '("fd", UnixInputStreamFdPropertyInfo)] :: [(Symbol, *)]) - -unixInputStreamCloseFd :: AttrLabelProxy "closeFd" -unixInputStreamCloseFd = AttrLabelProxy - -unixInputStreamFd :: AttrLabelProxy "fd" -unixInputStreamFd = AttrLabelProxy - -type instance SignalList UnixInputStream = UnixInputStreamSignalList -type UnixInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method UnixInputStream::new --- method type : Constructor --- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "UnixInputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_input_stream_new" g_unix_input_stream_new :: - Int32 -> -- fd : TBasicType TInt - CInt -> -- close_fd : TBasicType TBoolean - IO (Ptr UnixInputStream) - - -unixInputStreamNew :: - (MonadIO m) => - Int32 -- fd - -> Bool -- closeFd - -> m UnixInputStream -- result -unixInputStreamNew fd closeFd = liftIO $ do - let closeFd' = (fromIntegral . fromEnum) closeFd - result <- g_unix_input_stream_new fd closeFd' - checkUnexpectedReturnNULL "g_unix_input_stream_new" result - result' <- (wrapObject UnixInputStream) result - return result' - --- method UnixInputStream::get_close_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_input_stream_get_close_fd" g_unix_input_stream_get_close_fd :: - Ptr UnixInputStream -> -- _obj : TInterface "Gio" "UnixInputStream" - IO CInt - - -unixInputStreamGetCloseFd :: - (MonadIO m, UnixInputStreamK a) => - a -- _obj - -> m Bool -- result -unixInputStreamGetCloseFd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_unix_input_stream_get_close_fd _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data UnixInputStreamGetCloseFdMethodInfo -instance (signature ~ (m Bool), MonadIO m, UnixInputStreamK a) => MethodInfo UnixInputStreamGetCloseFdMethodInfo a signature where - overloadedMethod _ = unixInputStreamGetCloseFd - --- method UnixInputStream::get_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_input_stream_get_fd" g_unix_input_stream_get_fd :: - Ptr UnixInputStream -> -- _obj : TInterface "Gio" "UnixInputStream" - IO Int32 - - -unixInputStreamGetFd :: - (MonadIO m, UnixInputStreamK a) => - a -- _obj - -> m Int32 -- result -unixInputStreamGetFd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_unix_input_stream_get_fd _obj' - touchManagedPtr _obj - return result - -data UnixInputStreamGetFdMethodInfo -instance (signature ~ (m Int32), MonadIO m, UnixInputStreamK a) => MethodInfo UnixInputStreamGetFdMethodInfo a signature where - overloadedMethod _ = unixInputStreamGetFd - --- method UnixInputStream::set_close_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_unix_input_stream_set_close_fd" g_unix_input_stream_set_close_fd :: - Ptr UnixInputStream -> -- _obj : TInterface "Gio" "UnixInputStream" - CInt -> -- close_fd : TBasicType TBoolean - IO () - - -unixInputStreamSetCloseFd :: - (MonadIO m, UnixInputStreamK a) => - a -- _obj - -> Bool -- closeFd - -> m () -- result -unixInputStreamSetCloseFd _obj closeFd = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let closeFd' = (fromIntegral . fromEnum) closeFd - g_unix_input_stream_set_close_fd _obj' closeFd' - touchManagedPtr _obj - return () - -data UnixInputStreamSetCloseFdMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, UnixInputStreamK a) => MethodInfo UnixInputStreamSetCloseFdMethodInfo a signature where - overloadedMethod _ = unixInputStreamSetCloseFd - - diff --git a/GI/Gio/Objects/UnixInputStream.hs-boot b/GI/Gio/Objects/UnixInputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/UnixInputStream.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gio.Objects.UnixInputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype UnixInputStream = UnixInputStream (ForeignPtr UnixInputStream) -instance GObject UnixInputStream where -class GObject o => UnixInputStreamK o -instance (GObject o, IsDescendantOf UnixInputStream o) => UnixInputStreamK o -data UnixInputStreamCloseFdPropertyInfo -data UnixInputStreamFdPropertyInfo -data UnixInputStreamGetCloseFdMethodInfo -data UnixInputStreamGetFdMethodInfo -data UnixInputStreamSetCloseFdMethodInfo diff --git a/GI/Gio/Objects/UnixMountMonitor.hs b/GI/Gio/Objects/UnixMountMonitor.hs deleted file mode 100644 --- a/GI/Gio/Objects/UnixMountMonitor.hs +++ /dev/null @@ -1,293 +0,0 @@ - - -{- | -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.Objects.UnixMountMonitor - ( - --- * Exported types - UnixMountMonitor(..) , - UnixMountMonitorK , - toUnixMountMonitor , - noUnixMountMonitor , - - - -- * Methods --- ** unixMountMonitorGet - unixMountMonitorGet , - - --- ** unixMountMonitorNew - unixMountMonitorNew , - - --- ** unixMountMonitorSetRateLimit - UnixMountMonitorSetRateLimitMethodInfo , - unixMountMonitorSetRateLimit , - - - - - -- * Signals --- ** MountpointsChanged - UnixMountMonitorMountpointsChangedCallback, - UnixMountMonitorMountpointsChangedCallbackC, - UnixMountMonitorMountpointsChangedSignalInfo, - afterUnixMountMonitorMountpointsChanged , - mkUnixMountMonitorMountpointsChangedCallback, - noUnixMountMonitorMountpointsChangedCallback, - onUnixMountMonitorMountpointsChanged , - unixMountMonitorMountpointsChangedCallbackWrapper, - unixMountMonitorMountpointsChangedClosure, - - --- ** MountsChanged - UnixMountMonitorMountsChangedCallback , - UnixMountMonitorMountsChangedCallbackC , - UnixMountMonitorMountsChangedSignalInfo , - afterUnixMountMonitorMountsChanged , - mkUnixMountMonitorMountsChangedCallback , - noUnixMountMonitorMountsChangedCallback , - onUnixMountMonitorMountsChanged , - unixMountMonitorMountsChangedCallbackWrapper, - unixMountMonitorMountsChangedClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype UnixMountMonitor = UnixMountMonitor (ForeignPtr UnixMountMonitor) -foreign import ccall "g_unix_mount_monitor_get_type" - c_g_unix_mount_monitor_get_type :: IO GType - -type instance ParentTypes UnixMountMonitor = UnixMountMonitorParentTypes -type UnixMountMonitorParentTypes = '[GObject.Object] - -instance GObject UnixMountMonitor where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_unix_mount_monitor_get_type - - -class GObject o => UnixMountMonitorK o -instance (GObject o, IsDescendantOf UnixMountMonitor o) => UnixMountMonitorK o - -toUnixMountMonitor :: UnixMountMonitorK o => o -> IO UnixMountMonitor -toUnixMountMonitor = unsafeCastTo UnixMountMonitor - -noUnixMountMonitor :: Maybe UnixMountMonitor -noUnixMountMonitor = Nothing - -type family ResolveUnixMountMonitorMethod (t :: Symbol) (o :: *) :: * where - ResolveUnixMountMonitorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveUnixMountMonitorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveUnixMountMonitorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveUnixMountMonitorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveUnixMountMonitorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveUnixMountMonitorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveUnixMountMonitorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveUnixMountMonitorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveUnixMountMonitorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveUnixMountMonitorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveUnixMountMonitorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveUnixMountMonitorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveUnixMountMonitorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveUnixMountMonitorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveUnixMountMonitorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveUnixMountMonitorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveUnixMountMonitorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveUnixMountMonitorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveUnixMountMonitorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveUnixMountMonitorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveUnixMountMonitorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveUnixMountMonitorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveUnixMountMonitorMethod "setRateLimit" o = UnixMountMonitorSetRateLimitMethodInfo - ResolveUnixMountMonitorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveUnixMountMonitorMethod t UnixMountMonitor, MethodInfo info UnixMountMonitor p) => IsLabelProxy t (UnixMountMonitor -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveUnixMountMonitorMethod t UnixMountMonitor, MethodInfo info UnixMountMonitor p) => IsLabel t (UnixMountMonitor -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal UnixMountMonitor::mountpoints-changed -type UnixMountMonitorMountpointsChangedCallback = - IO () - -noUnixMountMonitorMountpointsChangedCallback :: Maybe UnixMountMonitorMountpointsChangedCallback -noUnixMountMonitorMountpointsChangedCallback = Nothing - -type UnixMountMonitorMountpointsChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkUnixMountMonitorMountpointsChangedCallback :: UnixMountMonitorMountpointsChangedCallbackC -> IO (FunPtr UnixMountMonitorMountpointsChangedCallbackC) - -unixMountMonitorMountpointsChangedClosure :: UnixMountMonitorMountpointsChangedCallback -> IO Closure -unixMountMonitorMountpointsChangedClosure cb = newCClosure =<< mkUnixMountMonitorMountpointsChangedCallback wrapped - where wrapped = unixMountMonitorMountpointsChangedCallbackWrapper cb - -unixMountMonitorMountpointsChangedCallbackWrapper :: - UnixMountMonitorMountpointsChangedCallback -> - Ptr () -> - Ptr () -> - IO () -unixMountMonitorMountpointsChangedCallbackWrapper _cb _ _ = do - _cb - -onUnixMountMonitorMountpointsChanged :: (GObject a, MonadIO m) => a -> UnixMountMonitorMountpointsChangedCallback -> m SignalHandlerId -onUnixMountMonitorMountpointsChanged obj cb = liftIO $ connectUnixMountMonitorMountpointsChanged obj cb SignalConnectBefore -afterUnixMountMonitorMountpointsChanged :: (GObject a, MonadIO m) => a -> UnixMountMonitorMountpointsChangedCallback -> m SignalHandlerId -afterUnixMountMonitorMountpointsChanged obj cb = connectUnixMountMonitorMountpointsChanged obj cb SignalConnectAfter - -connectUnixMountMonitorMountpointsChanged :: (GObject a, MonadIO m) => - a -> UnixMountMonitorMountpointsChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectUnixMountMonitorMountpointsChanged obj cb after = liftIO $ do - cb' <- mkUnixMountMonitorMountpointsChangedCallback (unixMountMonitorMountpointsChangedCallbackWrapper cb) - connectSignalFunPtr obj "mountpoints-changed" cb' after - --- signal UnixMountMonitor::mounts-changed -type UnixMountMonitorMountsChangedCallback = - IO () - -noUnixMountMonitorMountsChangedCallback :: Maybe UnixMountMonitorMountsChangedCallback -noUnixMountMonitorMountsChangedCallback = Nothing - -type UnixMountMonitorMountsChangedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkUnixMountMonitorMountsChangedCallback :: UnixMountMonitorMountsChangedCallbackC -> IO (FunPtr UnixMountMonitorMountsChangedCallbackC) - -unixMountMonitorMountsChangedClosure :: UnixMountMonitorMountsChangedCallback -> IO Closure -unixMountMonitorMountsChangedClosure cb = newCClosure =<< mkUnixMountMonitorMountsChangedCallback wrapped - where wrapped = unixMountMonitorMountsChangedCallbackWrapper cb - -unixMountMonitorMountsChangedCallbackWrapper :: - UnixMountMonitorMountsChangedCallback -> - Ptr () -> - Ptr () -> - IO () -unixMountMonitorMountsChangedCallbackWrapper _cb _ _ = do - _cb - -onUnixMountMonitorMountsChanged :: (GObject a, MonadIO m) => a -> UnixMountMonitorMountsChangedCallback -> m SignalHandlerId -onUnixMountMonitorMountsChanged obj cb = liftIO $ connectUnixMountMonitorMountsChanged obj cb SignalConnectBefore -afterUnixMountMonitorMountsChanged :: (GObject a, MonadIO m) => a -> UnixMountMonitorMountsChangedCallback -> m SignalHandlerId -afterUnixMountMonitorMountsChanged obj cb = connectUnixMountMonitorMountsChanged obj cb SignalConnectAfter - -connectUnixMountMonitorMountsChanged :: (GObject a, MonadIO m) => - a -> UnixMountMonitorMountsChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectUnixMountMonitorMountsChanged obj cb after = liftIO $ do - cb' <- mkUnixMountMonitorMountsChangedCallback (unixMountMonitorMountsChangedCallbackWrapper cb) - connectSignalFunPtr obj "mounts-changed" cb' after - -type instance AttributeList UnixMountMonitor = UnixMountMonitorAttributeList -type UnixMountMonitorAttributeList = ('[ ] :: [(Symbol, *)]) - -data UnixMountMonitorMountpointsChangedSignalInfo -instance SignalInfo UnixMountMonitorMountpointsChangedSignalInfo where - type HaskellCallbackType UnixMountMonitorMountpointsChangedSignalInfo = UnixMountMonitorMountpointsChangedCallback - connectSignal _ = connectUnixMountMonitorMountpointsChanged - -data UnixMountMonitorMountsChangedSignalInfo -instance SignalInfo UnixMountMonitorMountsChangedSignalInfo where - type HaskellCallbackType UnixMountMonitorMountsChangedSignalInfo = UnixMountMonitorMountsChangedCallback - connectSignal _ = connectUnixMountMonitorMountsChanged - -type instance SignalList UnixMountMonitor = UnixMountMonitorSignalList -type UnixMountMonitorSignalList = ('[ '("mountpointsChanged", UnixMountMonitorMountpointsChangedSignalInfo), '("mountsChanged", UnixMountMonitorMountsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method UnixMountMonitor::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "UnixMountMonitor") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_monitor_new" g_unix_mount_monitor_new :: - IO (Ptr UnixMountMonitor) - -{-# DEPRECATED unixMountMonitorNew ["(Since version 2.44)","Use g_unix_mount_monitor_get() instead."]#-} -unixMountMonitorNew :: - (MonadIO m) => - m UnixMountMonitor -- result -unixMountMonitorNew = liftIO $ do - result <- g_unix_mount_monitor_new - checkUnexpectedReturnNULL "g_unix_mount_monitor_new" result - result' <- (wrapObject UnixMountMonitor) result - return result' - --- method UnixMountMonitor::set_rate_limit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "limit_msec", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_monitor_set_rate_limit" g_unix_mount_monitor_set_rate_limit :: - Ptr UnixMountMonitor -> -- _obj : TInterface "Gio" "UnixMountMonitor" - Int32 -> -- limit_msec : TBasicType TInt - IO () - -{-# DEPRECATED unixMountMonitorSetRateLimit ["(Since version 2.44)","This function does nothing. Don't call it."]#-} -unixMountMonitorSetRateLimit :: - (MonadIO m, UnixMountMonitorK a) => - a -- _obj - -> Int32 -- limitMsec - -> m () -- result -unixMountMonitorSetRateLimit _obj limitMsec = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - g_unix_mount_monitor_set_rate_limit _obj' limitMsec - touchManagedPtr _obj - return () - -data UnixMountMonitorSetRateLimitMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m, UnixMountMonitorK a) => MethodInfo UnixMountMonitorSetRateLimitMethodInfo a signature where - overloadedMethod _ = unixMountMonitorSetRateLimit - --- method UnixMountMonitor::get --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "UnixMountMonitor") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_monitor_get" g_unix_mount_monitor_get :: - IO (Ptr UnixMountMonitor) - - -unixMountMonitorGet :: - (MonadIO m) => - m UnixMountMonitor -- result -unixMountMonitorGet = liftIO $ do - result <- g_unix_mount_monitor_get - checkUnexpectedReturnNULL "g_unix_mount_monitor_get" result - result' <- (wrapObject UnixMountMonitor) result - return result' - - diff --git a/GI/Gio/Objects/UnixMountMonitor.hs-boot b/GI/Gio/Objects/UnixMountMonitor.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/UnixMountMonitor.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gio.Objects.UnixMountMonitor where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype UnixMountMonitor = UnixMountMonitor (ForeignPtr UnixMountMonitor) -instance GObject UnixMountMonitor where -class GObject o => UnixMountMonitorK o -instance (GObject o, IsDescendantOf UnixMountMonitor o) => UnixMountMonitorK o -data UnixMountMonitorMountpointsChangedSignalInfo -data UnixMountMonitorMountsChangedSignalInfo -data UnixMountMonitorSetRateLimitMethodInfo diff --git a/GI/Gio/Objects/UnixOutputStream.hs b/GI/Gio/Objects/UnixOutputStream.hs deleted file mode 100644 --- a/GI/Gio/Objects/UnixOutputStream.hs +++ /dev/null @@ -1,327 +0,0 @@ - - -{- | -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.Objects.UnixOutputStream - ( - --- * Exported types - UnixOutputStream(..) , - UnixOutputStreamK , - toUnixOutputStream , - noUnixOutputStream , - - - -- * Methods --- ** unixOutputStreamGetCloseFd - UnixOutputStreamGetCloseFdMethodInfo , - unixOutputStreamGetCloseFd , - - --- ** unixOutputStreamGetFd - UnixOutputStreamGetFdMethodInfo , - unixOutputStreamGetFd , - - --- ** unixOutputStreamNew - unixOutputStreamNew , - - --- ** unixOutputStreamSetCloseFd - UnixOutputStreamSetCloseFdMethodInfo , - unixOutputStreamSetCloseFd , - - - - - -- * Properties --- ** CloseFd - UnixOutputStreamCloseFdPropertyInfo , - constructUnixOutputStreamCloseFd , - getUnixOutputStreamCloseFd , - setUnixOutputStreamCloseFd , - unixOutputStreamCloseFd , - - --- ** Fd - UnixOutputStreamFdPropertyInfo , - constructUnixOutputStreamFd , - getUnixOutputStreamFd , - unixOutputStreamFd , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype UnixOutputStream = UnixOutputStream (ForeignPtr UnixOutputStream) -foreign import ccall "g_unix_output_stream_get_type" - c_g_unix_output_stream_get_type :: IO GType - -type instance ParentTypes UnixOutputStream = UnixOutputStreamParentTypes -type UnixOutputStreamParentTypes = '[OutputStream, GObject.Object, FileDescriptorBased, PollableOutputStream] - -instance GObject UnixOutputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_unix_output_stream_get_type - - -class GObject o => UnixOutputStreamK o -instance (GObject o, IsDescendantOf UnixOutputStream o) => UnixOutputStreamK o - -toUnixOutputStream :: UnixOutputStreamK o => o -> IO UnixOutputStream -toUnixOutputStream = unsafeCastTo UnixOutputStream - -noUnixOutputStream :: Maybe UnixOutputStream -noUnixOutputStream = Nothing - -type family ResolveUnixOutputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveUnixOutputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveUnixOutputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveUnixOutputStreamMethod "canPoll" o = PollableOutputStreamCanPollMethodInfo - ResolveUnixOutputStreamMethod "clearPending" o = OutputStreamClearPendingMethodInfo - ResolveUnixOutputStreamMethod "close" o = OutputStreamCloseMethodInfo - ResolveUnixOutputStreamMethod "closeAsync" o = OutputStreamCloseAsyncMethodInfo - ResolveUnixOutputStreamMethod "closeFinish" o = OutputStreamCloseFinishMethodInfo - ResolveUnixOutputStreamMethod "createSource" o = PollableOutputStreamCreateSourceMethodInfo - ResolveUnixOutputStreamMethod "flush" o = OutputStreamFlushMethodInfo - ResolveUnixOutputStreamMethod "flushAsync" o = OutputStreamFlushAsyncMethodInfo - ResolveUnixOutputStreamMethod "flushFinish" o = OutputStreamFlushFinishMethodInfo - ResolveUnixOutputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveUnixOutputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveUnixOutputStreamMethod "hasPending" o = OutputStreamHasPendingMethodInfo - ResolveUnixOutputStreamMethod "isClosed" o = OutputStreamIsClosedMethodInfo - ResolveUnixOutputStreamMethod "isClosing" o = OutputStreamIsClosingMethodInfo - ResolveUnixOutputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveUnixOutputStreamMethod "isWritable" o = PollableOutputStreamIsWritableMethodInfo - ResolveUnixOutputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveUnixOutputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveUnixOutputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveUnixOutputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveUnixOutputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveUnixOutputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveUnixOutputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveUnixOutputStreamMethod "splice" o = OutputStreamSpliceMethodInfo - ResolveUnixOutputStreamMethod "spliceAsync" o = OutputStreamSpliceAsyncMethodInfo - ResolveUnixOutputStreamMethod "spliceFinish" o = OutputStreamSpliceFinishMethodInfo - ResolveUnixOutputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveUnixOutputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveUnixOutputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveUnixOutputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveUnixOutputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveUnixOutputStreamMethod "write" o = OutputStreamWriteMethodInfo - ResolveUnixOutputStreamMethod "writeAll" o = OutputStreamWriteAllMethodInfo - ResolveUnixOutputStreamMethod "writeAllAsync" o = OutputStreamWriteAllAsyncMethodInfo - ResolveUnixOutputStreamMethod "writeAllFinish" o = OutputStreamWriteAllFinishMethodInfo - ResolveUnixOutputStreamMethod "writeAsync" o = OutputStreamWriteAsyncMethodInfo - ResolveUnixOutputStreamMethod "writeBytes" o = OutputStreamWriteBytesMethodInfo - ResolveUnixOutputStreamMethod "writeBytesAsync" o = OutputStreamWriteBytesAsyncMethodInfo - ResolveUnixOutputStreamMethod "writeBytesFinish" o = OutputStreamWriteBytesFinishMethodInfo - ResolveUnixOutputStreamMethod "writeFinish" o = OutputStreamWriteFinishMethodInfo - ResolveUnixOutputStreamMethod "writeNonblocking" o = PollableOutputStreamWriteNonblockingMethodInfo - ResolveUnixOutputStreamMethod "getCloseFd" o = UnixOutputStreamGetCloseFdMethodInfo - ResolveUnixOutputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveUnixOutputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveUnixOutputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveUnixOutputStreamMethod "setCloseFd" o = UnixOutputStreamSetCloseFdMethodInfo - ResolveUnixOutputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveUnixOutputStreamMethod "setPending" o = OutputStreamSetPendingMethodInfo - ResolveUnixOutputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveUnixOutputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveUnixOutputStreamMethod t UnixOutputStream, MethodInfo info UnixOutputStream p) => IsLabelProxy t (UnixOutputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveUnixOutputStreamMethod t UnixOutputStream, MethodInfo info UnixOutputStream p) => IsLabel t (UnixOutputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "close-fd" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getUnixOutputStreamCloseFd :: (MonadIO m, UnixOutputStreamK o) => o -> m Bool -getUnixOutputStreamCloseFd obj = liftIO $ getObjectPropertyBool obj "close-fd" - -setUnixOutputStreamCloseFd :: (MonadIO m, UnixOutputStreamK o) => o -> Bool -> m () -setUnixOutputStreamCloseFd obj val = liftIO $ setObjectPropertyBool obj "close-fd" val - -constructUnixOutputStreamCloseFd :: Bool -> IO ([Char], GValue) -constructUnixOutputStreamCloseFd val = constructObjectPropertyBool "close-fd" val - -data UnixOutputStreamCloseFdPropertyInfo -instance AttrInfo UnixOutputStreamCloseFdPropertyInfo where - type AttrAllowedOps UnixOutputStreamCloseFdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint UnixOutputStreamCloseFdPropertyInfo = (~) Bool - type AttrBaseTypeConstraint UnixOutputStreamCloseFdPropertyInfo = UnixOutputStreamK - type AttrGetType UnixOutputStreamCloseFdPropertyInfo = Bool - type AttrLabel UnixOutputStreamCloseFdPropertyInfo = "close-fd" - attrGet _ = getUnixOutputStreamCloseFd - attrSet _ = setUnixOutputStreamCloseFd - attrConstruct _ = constructUnixOutputStreamCloseFd - attrClear _ = undefined - --- VVV Prop "fd" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getUnixOutputStreamFd :: (MonadIO m, UnixOutputStreamK o) => o -> m Int32 -getUnixOutputStreamFd obj = liftIO $ getObjectPropertyInt32 obj "fd" - -constructUnixOutputStreamFd :: Int32 -> IO ([Char], GValue) -constructUnixOutputStreamFd val = constructObjectPropertyInt32 "fd" val - -data UnixOutputStreamFdPropertyInfo -instance AttrInfo UnixOutputStreamFdPropertyInfo where - type AttrAllowedOps UnixOutputStreamFdPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint UnixOutputStreamFdPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint UnixOutputStreamFdPropertyInfo = UnixOutputStreamK - type AttrGetType UnixOutputStreamFdPropertyInfo = Int32 - type AttrLabel UnixOutputStreamFdPropertyInfo = "fd" - attrGet _ = getUnixOutputStreamFd - attrSet _ = undefined - attrConstruct _ = constructUnixOutputStreamFd - attrClear _ = undefined - -type instance AttributeList UnixOutputStream = UnixOutputStreamAttributeList -type UnixOutputStreamAttributeList = ('[ '("closeFd", UnixOutputStreamCloseFdPropertyInfo), '("fd", UnixOutputStreamFdPropertyInfo)] :: [(Symbol, *)]) - -unixOutputStreamCloseFd :: AttrLabelProxy "closeFd" -unixOutputStreamCloseFd = AttrLabelProxy - -unixOutputStreamFd :: AttrLabelProxy "fd" -unixOutputStreamFd = AttrLabelProxy - -type instance SignalList UnixOutputStream = UnixOutputStreamSignalList -type UnixOutputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method UnixOutputStream::new --- method type : Constructor --- Args : [Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "UnixOutputStream") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_output_stream_new" g_unix_output_stream_new :: - Int32 -> -- fd : TBasicType TInt - CInt -> -- close_fd : TBasicType TBoolean - IO (Ptr UnixOutputStream) - - -unixOutputStreamNew :: - (MonadIO m) => - Int32 -- fd - -> Bool -- closeFd - -> m UnixOutputStream -- result -unixOutputStreamNew fd closeFd = liftIO $ do - let closeFd' = (fromIntegral . fromEnum) closeFd - result <- g_unix_output_stream_new fd closeFd' - checkUnexpectedReturnNULL "g_unix_output_stream_new" result - result' <- (wrapObject UnixOutputStream) result - return result' - --- method UnixOutputStream::get_close_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_output_stream_get_close_fd" g_unix_output_stream_get_close_fd :: - Ptr UnixOutputStream -> -- _obj : TInterface "Gio" "UnixOutputStream" - IO CInt - - -unixOutputStreamGetCloseFd :: - (MonadIO m, UnixOutputStreamK a) => - a -- _obj - -> m Bool -- result -unixOutputStreamGetCloseFd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_unix_output_stream_get_close_fd _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data UnixOutputStreamGetCloseFdMethodInfo -instance (signature ~ (m Bool), MonadIO m, UnixOutputStreamK a) => MethodInfo UnixOutputStreamGetCloseFdMethodInfo a signature where - overloadedMethod _ = unixOutputStreamGetCloseFd - --- method UnixOutputStream::get_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_output_stream_get_fd" g_unix_output_stream_get_fd :: - Ptr UnixOutputStream -> -- _obj : TInterface "Gio" "UnixOutputStream" - IO Int32 - - -unixOutputStreamGetFd :: - (MonadIO m, UnixOutputStreamK a) => - a -- _obj - -> m Int32 -- result -unixOutputStreamGetFd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_unix_output_stream_get_fd _obj' - touchManagedPtr _obj - return result - -data UnixOutputStreamGetFdMethodInfo -instance (signature ~ (m Int32), MonadIO m, UnixOutputStreamK a) => MethodInfo UnixOutputStreamGetFdMethodInfo a signature where - overloadedMethod _ = unixOutputStreamGetFd - --- method UnixOutputStream::set_close_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixOutputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "close_fd", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_unix_output_stream_set_close_fd" g_unix_output_stream_set_close_fd :: - Ptr UnixOutputStream -> -- _obj : TInterface "Gio" "UnixOutputStream" - CInt -> -- close_fd : TBasicType TBoolean - IO () - - -unixOutputStreamSetCloseFd :: - (MonadIO m, UnixOutputStreamK a) => - a -- _obj - -> Bool -- closeFd - -> m () -- result -unixOutputStreamSetCloseFd _obj closeFd = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let closeFd' = (fromIntegral . fromEnum) closeFd - g_unix_output_stream_set_close_fd _obj' closeFd' - touchManagedPtr _obj - return () - -data UnixOutputStreamSetCloseFdMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m, UnixOutputStreamK a) => MethodInfo UnixOutputStreamSetCloseFdMethodInfo a signature where - overloadedMethod _ = unixOutputStreamSetCloseFd - - diff --git a/GI/Gio/Objects/UnixOutputStream.hs-boot b/GI/Gio/Objects/UnixOutputStream.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/UnixOutputStream.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gio.Objects.UnixOutputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype UnixOutputStream = UnixOutputStream (ForeignPtr UnixOutputStream) -instance GObject UnixOutputStream where -class GObject o => UnixOutputStreamK o -instance (GObject o, IsDescendantOf UnixOutputStream o) => UnixOutputStreamK o -data UnixOutputStreamCloseFdPropertyInfo -data UnixOutputStreamFdPropertyInfo -data UnixOutputStreamGetCloseFdMethodInfo -data UnixOutputStreamGetFdMethodInfo -data UnixOutputStreamSetCloseFdMethodInfo diff --git a/GI/Gio/Objects/UnixSocketAddress.hs b/GI/Gio/Objects/UnixSocketAddress.hs deleted file mode 100644 --- a/GI/Gio/Objects/UnixSocketAddress.hs +++ /dev/null @@ -1,489 +0,0 @@ - - -{- | -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.Objects.UnixSocketAddress - ( - --- * Exported types - UnixSocketAddress(..) , - UnixSocketAddressK , - toUnixSocketAddress , - noUnixSocketAddress , - - - -- * Methods --- ** unixSocketAddressAbstractNamesSupported - unixSocketAddressAbstractNamesSupported , - - --- ** unixSocketAddressGetAddressType - UnixSocketAddressGetAddressTypeMethodInfo, - unixSocketAddressGetAddressType , - - --- ** unixSocketAddressGetIsAbstract - UnixSocketAddressGetIsAbstractMethodInfo, - unixSocketAddressGetIsAbstract , - - --- ** unixSocketAddressGetPath - UnixSocketAddressGetPathMethodInfo , - unixSocketAddressGetPath , - - --- ** unixSocketAddressGetPathLen - UnixSocketAddressGetPathLenMethodInfo , - unixSocketAddressGetPathLen , - - --- ** unixSocketAddressNew - unixSocketAddressNew , - - --- ** unixSocketAddressNewAbstract - unixSocketAddressNewAbstract , - - --- ** unixSocketAddressNewWithType - unixSocketAddressNewWithType , - - - - - -- * Properties --- ** Abstract - UnixSocketAddressAbstractPropertyInfo , - constructUnixSocketAddressAbstract , - getUnixSocketAddressAbstract , - unixSocketAddressAbstract , - - --- ** AddressType - UnixSocketAddressAddressTypePropertyInfo, - constructUnixSocketAddressAddressType , - getUnixSocketAddressAddressType , - unixSocketAddressAddressType , - - --- ** Path - UnixSocketAddressPathPropertyInfo , - constructUnixSocketAddressPath , - getUnixSocketAddressPath , - unixSocketAddressPath , - - --- ** PathAsArray - UnixSocketAddressPathAsArrayPropertyInfo, - constructUnixSocketAddressPathAsArray , - getUnixSocketAddressPathAsArray , - unixSocketAddressPathAsArray , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype UnixSocketAddress = UnixSocketAddress (ForeignPtr UnixSocketAddress) -foreign import ccall "g_unix_socket_address_get_type" - c_g_unix_socket_address_get_type :: IO GType - -type instance ParentTypes UnixSocketAddress = UnixSocketAddressParentTypes -type UnixSocketAddressParentTypes = '[SocketAddress, GObject.Object, SocketConnectable] - -instance GObject UnixSocketAddress where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_unix_socket_address_get_type - - -class GObject o => UnixSocketAddressK o -instance (GObject o, IsDescendantOf UnixSocketAddress o) => UnixSocketAddressK o - -toUnixSocketAddress :: UnixSocketAddressK o => o -> IO UnixSocketAddress -toUnixSocketAddress = unsafeCastTo UnixSocketAddress - -noUnixSocketAddress :: Maybe UnixSocketAddress -noUnixSocketAddress = Nothing - -type family ResolveUnixSocketAddressMethod (t :: Symbol) (o :: *) :: * where - ResolveUnixSocketAddressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveUnixSocketAddressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveUnixSocketAddressMethod "enumerate" o = SocketConnectableEnumerateMethodInfo - ResolveUnixSocketAddressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveUnixSocketAddressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveUnixSocketAddressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveUnixSocketAddressMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveUnixSocketAddressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveUnixSocketAddressMethod "proxyEnumerate" o = SocketConnectableProxyEnumerateMethodInfo - ResolveUnixSocketAddressMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveUnixSocketAddressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveUnixSocketAddressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveUnixSocketAddressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveUnixSocketAddressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveUnixSocketAddressMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveUnixSocketAddressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveUnixSocketAddressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveUnixSocketAddressMethod "toNative" o = SocketAddressToNativeMethodInfo - ResolveUnixSocketAddressMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveUnixSocketAddressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveUnixSocketAddressMethod "getAddressType" o = UnixSocketAddressGetAddressTypeMethodInfo - ResolveUnixSocketAddressMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveUnixSocketAddressMethod "getFamily" o = SocketAddressGetFamilyMethodInfo - ResolveUnixSocketAddressMethod "getIsAbstract" o = UnixSocketAddressGetIsAbstractMethodInfo - ResolveUnixSocketAddressMethod "getNativeSize" o = SocketAddressGetNativeSizeMethodInfo - ResolveUnixSocketAddressMethod "getPath" o = UnixSocketAddressGetPathMethodInfo - ResolveUnixSocketAddressMethod "getPathLen" o = UnixSocketAddressGetPathLenMethodInfo - ResolveUnixSocketAddressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveUnixSocketAddressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveUnixSocketAddressMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveUnixSocketAddressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveUnixSocketAddressMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveUnixSocketAddressMethod t UnixSocketAddress, MethodInfo info UnixSocketAddress p) => IsLabelProxy t (UnixSocketAddress -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveUnixSocketAddressMethod t UnixSocketAddress, MethodInfo info UnixSocketAddress p) => IsLabel t (UnixSocketAddress -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "abstract" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getUnixSocketAddressAbstract :: (MonadIO m, UnixSocketAddressK o) => o -> m Bool -getUnixSocketAddressAbstract obj = liftIO $ getObjectPropertyBool obj "abstract" - -constructUnixSocketAddressAbstract :: Bool -> IO ([Char], GValue) -constructUnixSocketAddressAbstract val = constructObjectPropertyBool "abstract" val - -data UnixSocketAddressAbstractPropertyInfo -instance AttrInfo UnixSocketAddressAbstractPropertyInfo where - type AttrAllowedOps UnixSocketAddressAbstractPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint UnixSocketAddressAbstractPropertyInfo = (~) Bool - type AttrBaseTypeConstraint UnixSocketAddressAbstractPropertyInfo = UnixSocketAddressK - type AttrGetType UnixSocketAddressAbstractPropertyInfo = Bool - type AttrLabel UnixSocketAddressAbstractPropertyInfo = "abstract" - attrGet _ = getUnixSocketAddressAbstract - attrSet _ = undefined - attrConstruct _ = constructUnixSocketAddressAbstract - attrClear _ = undefined - --- VVV Prop "address-type" - -- Type: TInterface "Gio" "UnixSocketAddressType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getUnixSocketAddressAddressType :: (MonadIO m, UnixSocketAddressK o) => o -> m UnixSocketAddressType -getUnixSocketAddressAddressType obj = liftIO $ getObjectPropertyEnum obj "address-type" - -constructUnixSocketAddressAddressType :: UnixSocketAddressType -> IO ([Char], GValue) -constructUnixSocketAddressAddressType val = constructObjectPropertyEnum "address-type" val - -data UnixSocketAddressAddressTypePropertyInfo -instance AttrInfo UnixSocketAddressAddressTypePropertyInfo where - type AttrAllowedOps UnixSocketAddressAddressTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint UnixSocketAddressAddressTypePropertyInfo = (~) UnixSocketAddressType - type AttrBaseTypeConstraint UnixSocketAddressAddressTypePropertyInfo = UnixSocketAddressK - type AttrGetType UnixSocketAddressAddressTypePropertyInfo = UnixSocketAddressType - type AttrLabel UnixSocketAddressAddressTypePropertyInfo = "address-type" - attrGet _ = getUnixSocketAddressAddressType - attrSet _ = undefined - attrConstruct _ = constructUnixSocketAddressAddressType - attrClear _ = undefined - --- VVV Prop "path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getUnixSocketAddressPath :: (MonadIO m, UnixSocketAddressK o) => o -> m T.Text -getUnixSocketAddressPath obj = liftIO $ checkUnexpectedNothing "getUnixSocketAddressPath" $ getObjectPropertyString obj "path" - -constructUnixSocketAddressPath :: T.Text -> IO ([Char], GValue) -constructUnixSocketAddressPath val = constructObjectPropertyString "path" (Just val) - -data UnixSocketAddressPathPropertyInfo -instance AttrInfo UnixSocketAddressPathPropertyInfo where - type AttrAllowedOps UnixSocketAddressPathPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint UnixSocketAddressPathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint UnixSocketAddressPathPropertyInfo = UnixSocketAddressK - type AttrGetType UnixSocketAddressPathPropertyInfo = T.Text - type AttrLabel UnixSocketAddressPathPropertyInfo = "path" - attrGet _ = getUnixSocketAddressPath - attrSet _ = undefined - attrConstruct _ = constructUnixSocketAddressPath - attrClear _ = undefined - --- VVV Prop "path-as-array" - -- Type: TByteArray - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getUnixSocketAddressPathAsArray :: (MonadIO m, UnixSocketAddressK o) => o -> m (Maybe ByteString) -getUnixSocketAddressPathAsArray obj = liftIO $ getObjectPropertyByteArray obj "path-as-array" - -constructUnixSocketAddressPathAsArray :: ByteString -> IO ([Char], GValue) -constructUnixSocketAddressPathAsArray val = constructObjectPropertyByteArray "path-as-array" (Just val) - -data UnixSocketAddressPathAsArrayPropertyInfo -instance AttrInfo UnixSocketAddressPathAsArrayPropertyInfo where - type AttrAllowedOps UnixSocketAddressPathAsArrayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint UnixSocketAddressPathAsArrayPropertyInfo = (~) ByteString - type AttrBaseTypeConstraint UnixSocketAddressPathAsArrayPropertyInfo = UnixSocketAddressK - type AttrGetType UnixSocketAddressPathAsArrayPropertyInfo = (Maybe ByteString) - type AttrLabel UnixSocketAddressPathAsArrayPropertyInfo = "path-as-array" - attrGet _ = getUnixSocketAddressPathAsArray - attrSet _ = undefined - attrConstruct _ = constructUnixSocketAddressPathAsArray - attrClear _ = undefined - -type instance AttributeList UnixSocketAddress = UnixSocketAddressAttributeList -type UnixSocketAddressAttributeList = ('[ '("abstract", UnixSocketAddressAbstractPropertyInfo), '("addressType", UnixSocketAddressAddressTypePropertyInfo), '("family", SocketAddressFamilyPropertyInfo), '("path", UnixSocketAddressPathPropertyInfo), '("pathAsArray", UnixSocketAddressPathAsArrayPropertyInfo)] :: [(Symbol, *)]) - -unixSocketAddressAbstract :: AttrLabelProxy "abstract" -unixSocketAddressAbstract = AttrLabelProxy - -unixSocketAddressAddressType :: AttrLabelProxy "addressType" -unixSocketAddressAddressType = AttrLabelProxy - -unixSocketAddressPath :: AttrLabelProxy "path" -unixSocketAddressPath = AttrLabelProxy - -unixSocketAddressPathAsArray :: AttrLabelProxy "pathAsArray" -unixSocketAddressPathAsArray = AttrLabelProxy - -type instance SignalList UnixSocketAddress = UnixSocketAddressSignalList -type UnixSocketAddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method UnixSocketAddress::new --- method type : Constructor --- Args : [Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "UnixSocketAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_socket_address_new" g_unix_socket_address_new :: - CString -> -- path : TBasicType TUTF8 - IO (Ptr UnixSocketAddress) - - -unixSocketAddressNew :: - (MonadIO m) => - T.Text -- path - -> m UnixSocketAddress -- result -unixSocketAddressNew path = liftIO $ do - path' <- textToCString path - result <- g_unix_socket_address_new path' - checkUnexpectedReturnNULL "g_unix_socket_address_new" result - result' <- (wrapObject UnixSocketAddress) result - freeMem path' - return result' - --- method UnixSocketAddress::new_abstract --- method type : Constructor --- Args : [Arg {argCName = "path", argType = TCArray False (-1) 1 (TBasicType TInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "path_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TInterface "Gio" "UnixSocketAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_socket_address_new_abstract" g_unix_socket_address_new_abstract :: - Ptr Int8 -> -- path : TCArray False (-1) 1 (TBasicType TInt8) - Int32 -> -- path_len : TBasicType TInt - IO (Ptr UnixSocketAddress) - -{-# DEPRECATED unixSocketAddressNewAbstract ["Use g_unix_socket_address_new_with_type()."]#-} -unixSocketAddressNewAbstract :: - (MonadIO m) => - [Int8] -- path - -> m UnixSocketAddress -- result -unixSocketAddressNewAbstract path = liftIO $ do - let pathLen = fromIntegral $ length path - path' <- packStorableArray path - result <- g_unix_socket_address_new_abstract path' pathLen - checkUnexpectedReturnNULL "g_unix_socket_address_new_abstract" result - result' <- (wrapObject UnixSocketAddress) result - freeMem path' - return result' - --- method UnixSocketAddress::new_with_type --- method type : Constructor --- Args : [Arg {argCName = "path", argType = TCArray False (-1) 1 (TBasicType TInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gio" "UnixSocketAddressType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "path_len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (TInterface "Gio" "UnixSocketAddress") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_socket_address_new_with_type" g_unix_socket_address_new_with_type :: - Ptr Int8 -> -- path : TCArray False (-1) 1 (TBasicType TInt8) - Int32 -> -- path_len : TBasicType TInt - CUInt -> -- type : TInterface "Gio" "UnixSocketAddressType" - IO (Ptr UnixSocketAddress) - - -unixSocketAddressNewWithType :: - (MonadIO m) => - [Int8] -- path - -> UnixSocketAddressType -- type_ - -> m UnixSocketAddress -- result -unixSocketAddressNewWithType path type_ = liftIO $ do - let pathLen = fromIntegral $ length path - path' <- packStorableArray path - let type_' = (fromIntegral . fromEnum) type_ - result <- g_unix_socket_address_new_with_type path' pathLen type_' - checkUnexpectedReturnNULL "g_unix_socket_address_new_with_type" result - result' <- (wrapObject UnixSocketAddress) result - freeMem path' - return result' - --- method UnixSocketAddress::get_address_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "UnixSocketAddressType") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_socket_address_get_address_type" g_unix_socket_address_get_address_type :: - Ptr UnixSocketAddress -> -- _obj : TInterface "Gio" "UnixSocketAddress" - IO CUInt - - -unixSocketAddressGetAddressType :: - (MonadIO m, UnixSocketAddressK a) => - a -- _obj - -> m UnixSocketAddressType -- result -unixSocketAddressGetAddressType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_unix_socket_address_get_address_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data UnixSocketAddressGetAddressTypeMethodInfo -instance (signature ~ (m UnixSocketAddressType), MonadIO m, UnixSocketAddressK a) => MethodInfo UnixSocketAddressGetAddressTypeMethodInfo a signature where - overloadedMethod _ = unixSocketAddressGetAddressType - --- method UnixSocketAddress::get_is_abstract --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_socket_address_get_is_abstract" g_unix_socket_address_get_is_abstract :: - Ptr UnixSocketAddress -> -- _obj : TInterface "Gio" "UnixSocketAddress" - IO CInt - -{-# DEPRECATED unixSocketAddressGetIsAbstract ["Use g_unix_socket_address_get_address_type()"]#-} -unixSocketAddressGetIsAbstract :: - (MonadIO m, UnixSocketAddressK a) => - a -- _obj - -> m Bool -- result -unixSocketAddressGetIsAbstract _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_unix_socket_address_get_is_abstract _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data UnixSocketAddressGetIsAbstractMethodInfo -instance (signature ~ (m Bool), MonadIO m, UnixSocketAddressK a) => MethodInfo UnixSocketAddressGetIsAbstractMethodInfo a signature where - overloadedMethod _ = unixSocketAddressGetIsAbstract - --- method UnixSocketAddress::get_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_socket_address_get_path" g_unix_socket_address_get_path :: - Ptr UnixSocketAddress -> -- _obj : TInterface "Gio" "UnixSocketAddress" - IO CString - - -unixSocketAddressGetPath :: - (MonadIO m, UnixSocketAddressK a) => - a -- _obj - -> m T.Text -- result -unixSocketAddressGetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_unix_socket_address_get_path _obj' - checkUnexpectedReturnNULL "g_unix_socket_address_get_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data UnixSocketAddressGetPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m, UnixSocketAddressK a) => MethodInfo UnixSocketAddressGetPathMethodInfo a signature where - overloadedMethod _ = unixSocketAddressGetPath - --- method UnixSocketAddress::get_path_len --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixSocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt64) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_socket_address_get_path_len" g_unix_socket_address_get_path_len :: - Ptr UnixSocketAddress -> -- _obj : TInterface "Gio" "UnixSocketAddress" - IO Word64 - - -unixSocketAddressGetPathLen :: - (MonadIO m, UnixSocketAddressK a) => - a -- _obj - -> m Word64 -- result -unixSocketAddressGetPathLen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_unix_socket_address_get_path_len _obj' - touchManagedPtr _obj - return result - -data UnixSocketAddressGetPathLenMethodInfo -instance (signature ~ (m Word64), MonadIO m, UnixSocketAddressK a) => MethodInfo UnixSocketAddressGetPathLenMethodInfo a signature where - overloadedMethod _ = unixSocketAddressGetPathLen - --- method UnixSocketAddress::abstract_names_supported --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_socket_address_abstract_names_supported" g_unix_socket_address_abstract_names_supported :: - IO CInt - - -unixSocketAddressAbstractNamesSupported :: - (MonadIO m) => - m Bool -- result -unixSocketAddressAbstractNamesSupported = liftIO $ do - result <- g_unix_socket_address_abstract_names_supported - let result' = (/= 0) result - return result' - - diff --git a/GI/Gio/Objects/UnixSocketAddress.hs-boot b/GI/Gio/Objects/UnixSocketAddress.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/UnixSocketAddress.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Gio.Objects.UnixSocketAddress where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype UnixSocketAddress = UnixSocketAddress (ForeignPtr UnixSocketAddress) -instance GObject UnixSocketAddress where -class GObject o => UnixSocketAddressK o -instance (GObject o, IsDescendantOf UnixSocketAddress o) => UnixSocketAddressK o -data UnixSocketAddressAbstractPropertyInfo -data UnixSocketAddressAddressTypePropertyInfo -data UnixSocketAddressPathPropertyInfo -data UnixSocketAddressPathAsArrayPropertyInfo -data UnixSocketAddressGetAddressTypeMethodInfo -data UnixSocketAddressGetIsAbstractMethodInfo -data UnixSocketAddressGetPathMethodInfo -data UnixSocketAddressGetPathLenMethodInfo diff --git a/GI/Gio/Objects/Vfs.hs b/GI/Gio/Objects/Vfs.hs deleted file mode 100644 --- a/GI/Gio/Objects/Vfs.hs +++ /dev/null @@ -1,331 +0,0 @@ - - -{- | -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.Objects.Vfs - ( - --- * Exported types - Vfs(..) , - VfsK , - toVfs , - noVfs , - - - -- * Methods --- ** vfsGetDefault - vfsGetDefault , - - --- ** vfsGetFileForPath - VfsGetFileForPathMethodInfo , - vfsGetFileForPath , - - --- ** vfsGetFileForUri - VfsGetFileForUriMethodInfo , - vfsGetFileForUri , - - --- ** vfsGetLocal - vfsGetLocal , - - --- ** vfsGetSupportedUriSchemes - VfsGetSupportedUriSchemesMethodInfo , - vfsGetSupportedUriSchemes , - - --- ** vfsIsActive - VfsIsActiveMethodInfo , - vfsIsActive , - - --- ** vfsParseName - VfsParseNameMethodInfo , - vfsParseName , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype Vfs = Vfs (ForeignPtr Vfs) -foreign import ccall "g_vfs_get_type" - c_g_vfs_get_type :: IO GType - -type instance ParentTypes Vfs = VfsParentTypes -type VfsParentTypes = '[GObject.Object] - -instance GObject Vfs where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_vfs_get_type - - -class GObject o => VfsK o -instance (GObject o, IsDescendantOf Vfs o) => VfsK o - -toVfs :: VfsK o => o -> IO Vfs -toVfs = unsafeCastTo Vfs - -noVfs :: Maybe Vfs -noVfs = Nothing - -type family ResolveVfsMethod (t :: Symbol) (o :: *) :: * where - ResolveVfsMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveVfsMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveVfsMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveVfsMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveVfsMethod "isActive" o = VfsIsActiveMethodInfo - ResolveVfsMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveVfsMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveVfsMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveVfsMethod "parseName" o = VfsParseNameMethodInfo - ResolveVfsMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveVfsMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveVfsMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveVfsMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveVfsMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveVfsMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveVfsMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveVfsMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveVfsMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveVfsMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveVfsMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveVfsMethod "getFileForPath" o = VfsGetFileForPathMethodInfo - ResolveVfsMethod "getFileForUri" o = VfsGetFileForUriMethodInfo - ResolveVfsMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveVfsMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveVfsMethod "getSupportedUriSchemes" o = VfsGetSupportedUriSchemesMethodInfo - ResolveVfsMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveVfsMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveVfsMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveVfsMethod t Vfs, MethodInfo info Vfs p) => IsLabelProxy t (Vfs -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveVfsMethod t Vfs, MethodInfo info Vfs p) => IsLabel t (Vfs -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Vfs = VfsAttributeList -type VfsAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Vfs = VfsSignalList -type VfsSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Vfs::get_file_for_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_vfs_get_file_for_path" g_vfs_get_file_for_path :: - Ptr Vfs -> -- _obj : TInterface "Gio" "Vfs" - CString -> -- path : TBasicType TUTF8 - IO (Ptr File) - - -vfsGetFileForPath :: - (MonadIO m, VfsK a) => - a -- _obj - -> T.Text -- path - -> m File -- result -vfsGetFileForPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - result <- g_vfs_get_file_for_path _obj' path' - checkUnexpectedReturnNULL "g_vfs_get_file_for_path" result - result' <- (wrapObject File) result - touchManagedPtr _obj - freeMem path' - return result' - -data VfsGetFileForPathMethodInfo -instance (signature ~ (T.Text -> m File), MonadIO m, VfsK a) => MethodInfo VfsGetFileForPathMethodInfo a signature where - overloadedMethod _ = vfsGetFileForPath - --- method Vfs::get_file_for_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_vfs_get_file_for_uri" g_vfs_get_file_for_uri :: - Ptr Vfs -> -- _obj : TInterface "Gio" "Vfs" - CString -> -- uri : TBasicType TUTF8 - IO (Ptr File) - - -vfsGetFileForUri :: - (MonadIO m, VfsK a) => - a -- _obj - -> T.Text -- uri - -> m File -- result -vfsGetFileForUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri' <- textToCString uri - result <- g_vfs_get_file_for_uri _obj' uri' - checkUnexpectedReturnNULL "g_vfs_get_file_for_uri" result - result' <- (wrapObject File) result - touchManagedPtr _obj - freeMem uri' - return result' - -data VfsGetFileForUriMethodInfo -instance (signature ~ (T.Text -> m File), MonadIO m, VfsK a) => MethodInfo VfsGetFileForUriMethodInfo a signature where - overloadedMethod _ = vfsGetFileForUri - --- method Vfs::get_supported_uri_schemes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_vfs_get_supported_uri_schemes" g_vfs_get_supported_uri_schemes :: - Ptr Vfs -> -- _obj : TInterface "Gio" "Vfs" - IO (Ptr CString) - - -vfsGetSupportedUriSchemes :: - (MonadIO m, VfsK a) => - a -- _obj - -> m [T.Text] -- result -vfsGetSupportedUriSchemes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_vfs_get_supported_uri_schemes _obj' - checkUnexpectedReturnNULL "g_vfs_get_supported_uri_schemes" result - result' <- unpackZeroTerminatedUTF8CArray result - touchManagedPtr _obj - return result' - -data VfsGetSupportedUriSchemesMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, VfsK a) => MethodInfo VfsGetSupportedUriSchemesMethodInfo a signature where - overloadedMethod _ = vfsGetSupportedUriSchemes - --- method Vfs::is_active --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_vfs_is_active" g_vfs_is_active :: - Ptr Vfs -> -- _obj : TInterface "Gio" "Vfs" - IO CInt - - -vfsIsActive :: - (MonadIO m, VfsK a) => - a -- _obj - -> m Bool -- result -vfsIsActive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_vfs_is_active _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data VfsIsActiveMethodInfo -instance (signature ~ (m Bool), MonadIO m, VfsK a) => MethodInfo VfsIsActiveMethodInfo a signature where - overloadedMethod _ = vfsIsActive - --- method Vfs::parse_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Vfs", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parse_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "File") --- throws : False --- Skip return : False - -foreign import ccall "g_vfs_parse_name" g_vfs_parse_name :: - Ptr Vfs -> -- _obj : TInterface "Gio" "Vfs" - CString -> -- parse_name : TBasicType TUTF8 - IO (Ptr File) - - -vfsParseName :: - (MonadIO m, VfsK a) => - a -- _obj - -> T.Text -- parseName - -> m File -- result -vfsParseName _obj parseName = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - parseName' <- textToCString parseName - result <- g_vfs_parse_name _obj' parseName' - checkUnexpectedReturnNULL "g_vfs_parse_name" result - result' <- (wrapObject File) result - touchManagedPtr _obj - freeMem parseName' - return result' - -data VfsParseNameMethodInfo -instance (signature ~ (T.Text -> m File), MonadIO m, VfsK a) => MethodInfo VfsParseNameMethodInfo a signature where - overloadedMethod _ = vfsParseName - --- method Vfs::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Vfs") --- throws : False --- Skip return : False - -foreign import ccall "g_vfs_get_default" g_vfs_get_default :: - IO (Ptr Vfs) - - -vfsGetDefault :: - (MonadIO m) => - m Vfs -- result -vfsGetDefault = liftIO $ do - result <- g_vfs_get_default - checkUnexpectedReturnNULL "g_vfs_get_default" result - result' <- (newObject Vfs) result - return result' - --- method Vfs::get_local --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Vfs") --- throws : False --- Skip return : False - -foreign import ccall "g_vfs_get_local" g_vfs_get_local :: - IO (Ptr Vfs) - - -vfsGetLocal :: - (MonadIO m) => - m Vfs -- result -vfsGetLocal = liftIO $ do - result <- g_vfs_get_local - checkUnexpectedReturnNULL "g_vfs_get_local" result - result' <- (newObject Vfs) result - return result' - - diff --git a/GI/Gio/Objects/Vfs.hs-boot b/GI/Gio/Objects/Vfs.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/Vfs.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gio.Objects.Vfs where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Vfs = Vfs (ForeignPtr Vfs) -instance GObject Vfs where -class GObject o => VfsK o -instance (GObject o, IsDescendantOf Vfs o) => VfsK o -data VfsGetFileForPathMethodInfo -data VfsGetFileForUriMethodInfo -data VfsGetSupportedUriSchemesMethodInfo -data VfsIsActiveMethodInfo -data VfsParseNameMethodInfo diff --git a/GI/Gio/Objects/VolumeMonitor.hs b/GI/Gio/Objects/VolumeMonitor.hs deleted file mode 100644 --- a/GI/Gio/Objects/VolumeMonitor.hs +++ /dev/null @@ -1,1046 +0,0 @@ - - -{- | -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.Objects.VolumeMonitor - ( - --- * Exported types - VolumeMonitor(..) , - VolumeMonitorK , - toVolumeMonitor , - noVolumeMonitor , - - - -- * Methods --- ** volumeMonitorAdoptOrphanMount - volumeMonitorAdoptOrphanMount , - - --- ** volumeMonitorGet - volumeMonitorGet , - - --- ** volumeMonitorGetConnectedDrives - VolumeMonitorGetConnectedDrivesMethodInfo, - volumeMonitorGetConnectedDrives , - - --- ** volumeMonitorGetMountForUuid - VolumeMonitorGetMountForUuidMethodInfo , - volumeMonitorGetMountForUuid , - - --- ** volumeMonitorGetMounts - VolumeMonitorGetMountsMethodInfo , - volumeMonitorGetMounts , - - --- ** volumeMonitorGetVolumeForUuid - VolumeMonitorGetVolumeForUuidMethodInfo , - volumeMonitorGetVolumeForUuid , - - --- ** volumeMonitorGetVolumes - VolumeMonitorGetVolumesMethodInfo , - volumeMonitorGetVolumes , - - - - - -- * Signals --- ** DriveChanged - VolumeMonitorDriveChangedCallback , - VolumeMonitorDriveChangedCallbackC , - VolumeMonitorDriveChangedSignalInfo , - afterVolumeMonitorDriveChanged , - mkVolumeMonitorDriveChangedCallback , - noVolumeMonitorDriveChangedCallback , - onVolumeMonitorDriveChanged , - volumeMonitorDriveChangedCallbackWrapper, - volumeMonitorDriveChangedClosure , - - --- ** DriveConnected - VolumeMonitorDriveConnectedCallback , - VolumeMonitorDriveConnectedCallbackC , - VolumeMonitorDriveConnectedSignalInfo , - afterVolumeMonitorDriveConnected , - mkVolumeMonitorDriveConnectedCallback , - noVolumeMonitorDriveConnectedCallback , - onVolumeMonitorDriveConnected , - volumeMonitorDriveConnectedCallbackWrapper, - volumeMonitorDriveConnectedClosure , - - --- ** DriveDisconnected - VolumeMonitorDriveDisconnectedCallback , - VolumeMonitorDriveDisconnectedCallbackC , - VolumeMonitorDriveDisconnectedSignalInfo, - afterVolumeMonitorDriveDisconnected , - mkVolumeMonitorDriveDisconnectedCallback, - noVolumeMonitorDriveDisconnectedCallback, - onVolumeMonitorDriveDisconnected , - volumeMonitorDriveDisconnectedCallbackWrapper, - volumeMonitorDriveDisconnectedClosure , - - --- ** DriveEjectButton - VolumeMonitorDriveEjectButtonCallback , - VolumeMonitorDriveEjectButtonCallbackC , - VolumeMonitorDriveEjectButtonSignalInfo , - afterVolumeMonitorDriveEjectButton , - mkVolumeMonitorDriveEjectButtonCallback , - noVolumeMonitorDriveEjectButtonCallback , - onVolumeMonitorDriveEjectButton , - volumeMonitorDriveEjectButtonCallbackWrapper, - volumeMonitorDriveEjectButtonClosure , - - --- ** DriveStopButton - VolumeMonitorDriveStopButtonCallback , - VolumeMonitorDriveStopButtonCallbackC , - VolumeMonitorDriveStopButtonSignalInfo , - afterVolumeMonitorDriveStopButton , - mkVolumeMonitorDriveStopButtonCallback , - noVolumeMonitorDriveStopButtonCallback , - onVolumeMonitorDriveStopButton , - volumeMonitorDriveStopButtonCallbackWrapper, - volumeMonitorDriveStopButtonClosure , - - --- ** MountAdded - VolumeMonitorMountAddedCallback , - VolumeMonitorMountAddedCallbackC , - VolumeMonitorMountAddedSignalInfo , - afterVolumeMonitorMountAdded , - mkVolumeMonitorMountAddedCallback , - noVolumeMonitorMountAddedCallback , - onVolumeMonitorMountAdded , - volumeMonitorMountAddedCallbackWrapper , - volumeMonitorMountAddedClosure , - - --- ** MountChanged - VolumeMonitorMountChangedCallback , - VolumeMonitorMountChangedCallbackC , - VolumeMonitorMountChangedSignalInfo , - afterVolumeMonitorMountChanged , - mkVolumeMonitorMountChangedCallback , - noVolumeMonitorMountChangedCallback , - onVolumeMonitorMountChanged , - volumeMonitorMountChangedCallbackWrapper, - volumeMonitorMountChangedClosure , - - --- ** MountPreUnmount - VolumeMonitorMountPreUnmountCallback , - VolumeMonitorMountPreUnmountCallbackC , - VolumeMonitorMountPreUnmountSignalInfo , - afterVolumeMonitorMountPreUnmount , - mkVolumeMonitorMountPreUnmountCallback , - noVolumeMonitorMountPreUnmountCallback , - onVolumeMonitorMountPreUnmount , - volumeMonitorMountPreUnmountCallbackWrapper, - volumeMonitorMountPreUnmountClosure , - - --- ** MountRemoved - VolumeMonitorMountRemovedCallback , - VolumeMonitorMountRemovedCallbackC , - VolumeMonitorMountRemovedSignalInfo , - afterVolumeMonitorMountRemoved , - mkVolumeMonitorMountRemovedCallback , - noVolumeMonitorMountRemovedCallback , - onVolumeMonitorMountRemoved , - volumeMonitorMountRemovedCallbackWrapper, - volumeMonitorMountRemovedClosure , - - --- ** VolumeAdded - VolumeMonitorVolumeAddedCallback , - VolumeMonitorVolumeAddedCallbackC , - VolumeMonitorVolumeAddedSignalInfo , - afterVolumeMonitorVolumeAdded , - mkVolumeMonitorVolumeAddedCallback , - noVolumeMonitorVolumeAddedCallback , - onVolumeMonitorVolumeAdded , - volumeMonitorVolumeAddedCallbackWrapper , - volumeMonitorVolumeAddedClosure , - - --- ** VolumeChanged - VolumeMonitorVolumeChangedCallback , - VolumeMonitorVolumeChangedCallbackC , - VolumeMonitorVolumeChangedSignalInfo , - afterVolumeMonitorVolumeChanged , - mkVolumeMonitorVolumeChangedCallback , - noVolumeMonitorVolumeChangedCallback , - onVolumeMonitorVolumeChanged , - volumeMonitorVolumeChangedCallbackWrapper, - volumeMonitorVolumeChangedClosure , - - --- ** VolumeRemoved - VolumeMonitorVolumeRemovedCallback , - VolumeMonitorVolumeRemovedCallbackC , - VolumeMonitorVolumeRemovedSignalInfo , - afterVolumeMonitorVolumeRemoved , - mkVolumeMonitorVolumeRemovedCallback , - noVolumeMonitorVolumeRemovedCallback , - onVolumeMonitorVolumeRemoved , - volumeMonitorVolumeRemovedCallbackWrapper, - volumeMonitorVolumeRemovedClosure , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype VolumeMonitor = VolumeMonitor (ForeignPtr VolumeMonitor) -foreign import ccall "g_volume_monitor_get_type" - c_g_volume_monitor_get_type :: IO GType - -type instance ParentTypes VolumeMonitor = VolumeMonitorParentTypes -type VolumeMonitorParentTypes = '[GObject.Object] - -instance GObject VolumeMonitor where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_volume_monitor_get_type - - -class GObject o => VolumeMonitorK o -instance (GObject o, IsDescendantOf VolumeMonitor o) => VolumeMonitorK o - -toVolumeMonitor :: VolumeMonitorK o => o -> IO VolumeMonitor -toVolumeMonitor = unsafeCastTo VolumeMonitor - -noVolumeMonitor :: Maybe VolumeMonitor -noVolumeMonitor = Nothing - -type family ResolveVolumeMonitorMethod (t :: Symbol) (o :: *) :: * where - ResolveVolumeMonitorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveVolumeMonitorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveVolumeMonitorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveVolumeMonitorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveVolumeMonitorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveVolumeMonitorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveVolumeMonitorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveVolumeMonitorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveVolumeMonitorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveVolumeMonitorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveVolumeMonitorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveVolumeMonitorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveVolumeMonitorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveVolumeMonitorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveVolumeMonitorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveVolumeMonitorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveVolumeMonitorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveVolumeMonitorMethod "getConnectedDrives" o = VolumeMonitorGetConnectedDrivesMethodInfo - ResolveVolumeMonitorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveVolumeMonitorMethod "getMountForUuid" o = VolumeMonitorGetMountForUuidMethodInfo - ResolveVolumeMonitorMethod "getMounts" o = VolumeMonitorGetMountsMethodInfo - ResolveVolumeMonitorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveVolumeMonitorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveVolumeMonitorMethod "getVolumeForUuid" o = VolumeMonitorGetVolumeForUuidMethodInfo - ResolveVolumeMonitorMethod "getVolumes" o = VolumeMonitorGetVolumesMethodInfo - ResolveVolumeMonitorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveVolumeMonitorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveVolumeMonitorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveVolumeMonitorMethod t VolumeMonitor, MethodInfo info VolumeMonitor p) => IsLabelProxy t (VolumeMonitor -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveVolumeMonitorMethod t VolumeMonitor, MethodInfo info VolumeMonitor p) => IsLabel t (VolumeMonitor -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- signal VolumeMonitor::drive-changed -type VolumeMonitorDriveChangedCallback = - Drive -> - IO () - -noVolumeMonitorDriveChangedCallback :: Maybe VolumeMonitorDriveChangedCallback -noVolumeMonitorDriveChangedCallback = Nothing - -type VolumeMonitorDriveChangedCallbackC = - Ptr () -> -- object - Ptr Drive -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkVolumeMonitorDriveChangedCallback :: VolumeMonitorDriveChangedCallbackC -> IO (FunPtr VolumeMonitorDriveChangedCallbackC) - -volumeMonitorDriveChangedClosure :: VolumeMonitorDriveChangedCallback -> IO Closure -volumeMonitorDriveChangedClosure cb = newCClosure =<< mkVolumeMonitorDriveChangedCallback wrapped - where wrapped = volumeMonitorDriveChangedCallbackWrapper cb - -volumeMonitorDriveChangedCallbackWrapper :: - VolumeMonitorDriveChangedCallback -> - Ptr () -> - Ptr Drive -> - Ptr () -> - IO () -volumeMonitorDriveChangedCallbackWrapper _cb _ drive _ = do - drive' <- (newObject Drive) drive - _cb drive' - -onVolumeMonitorDriveChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveChangedCallback -> m SignalHandlerId -onVolumeMonitorDriveChanged obj cb = liftIO $ connectVolumeMonitorDriveChanged obj cb SignalConnectBefore -afterVolumeMonitorDriveChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveChangedCallback -> m SignalHandlerId -afterVolumeMonitorDriveChanged obj cb = connectVolumeMonitorDriveChanged obj cb SignalConnectAfter - -connectVolumeMonitorDriveChanged :: (GObject a, MonadIO m) => - a -> VolumeMonitorDriveChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectVolumeMonitorDriveChanged obj cb after = liftIO $ do - cb' <- mkVolumeMonitorDriveChangedCallback (volumeMonitorDriveChangedCallbackWrapper cb) - connectSignalFunPtr obj "drive-changed" cb' after - --- signal VolumeMonitor::drive-connected -type VolumeMonitorDriveConnectedCallback = - Drive -> - IO () - -noVolumeMonitorDriveConnectedCallback :: Maybe VolumeMonitorDriveConnectedCallback -noVolumeMonitorDriveConnectedCallback = Nothing - -type VolumeMonitorDriveConnectedCallbackC = - Ptr () -> -- object - Ptr Drive -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkVolumeMonitorDriveConnectedCallback :: VolumeMonitorDriveConnectedCallbackC -> IO (FunPtr VolumeMonitorDriveConnectedCallbackC) - -volumeMonitorDriveConnectedClosure :: VolumeMonitorDriveConnectedCallback -> IO Closure -volumeMonitorDriveConnectedClosure cb = newCClosure =<< mkVolumeMonitorDriveConnectedCallback wrapped - where wrapped = volumeMonitorDriveConnectedCallbackWrapper cb - -volumeMonitorDriveConnectedCallbackWrapper :: - VolumeMonitorDriveConnectedCallback -> - Ptr () -> - Ptr Drive -> - Ptr () -> - IO () -volumeMonitorDriveConnectedCallbackWrapper _cb _ drive _ = do - drive' <- (newObject Drive) drive - _cb drive' - -onVolumeMonitorDriveConnected :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveConnectedCallback -> m SignalHandlerId -onVolumeMonitorDriveConnected obj cb = liftIO $ connectVolumeMonitorDriveConnected obj cb SignalConnectBefore -afterVolumeMonitorDriveConnected :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveConnectedCallback -> m SignalHandlerId -afterVolumeMonitorDriveConnected obj cb = connectVolumeMonitorDriveConnected obj cb SignalConnectAfter - -connectVolumeMonitorDriveConnected :: (GObject a, MonadIO m) => - a -> VolumeMonitorDriveConnectedCallback -> SignalConnectMode -> m SignalHandlerId -connectVolumeMonitorDriveConnected obj cb after = liftIO $ do - cb' <- mkVolumeMonitorDriveConnectedCallback (volumeMonitorDriveConnectedCallbackWrapper cb) - connectSignalFunPtr obj "drive-connected" cb' after - --- signal VolumeMonitor::drive-disconnected -type VolumeMonitorDriveDisconnectedCallback = - Drive -> - IO () - -noVolumeMonitorDriveDisconnectedCallback :: Maybe VolumeMonitorDriveDisconnectedCallback -noVolumeMonitorDriveDisconnectedCallback = Nothing - -type VolumeMonitorDriveDisconnectedCallbackC = - Ptr () -> -- object - Ptr Drive -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkVolumeMonitorDriveDisconnectedCallback :: VolumeMonitorDriveDisconnectedCallbackC -> IO (FunPtr VolumeMonitorDriveDisconnectedCallbackC) - -volumeMonitorDriveDisconnectedClosure :: VolumeMonitorDriveDisconnectedCallback -> IO Closure -volumeMonitorDriveDisconnectedClosure cb = newCClosure =<< mkVolumeMonitorDriveDisconnectedCallback wrapped - where wrapped = volumeMonitorDriveDisconnectedCallbackWrapper cb - -volumeMonitorDriveDisconnectedCallbackWrapper :: - VolumeMonitorDriveDisconnectedCallback -> - Ptr () -> - Ptr Drive -> - Ptr () -> - IO () -volumeMonitorDriveDisconnectedCallbackWrapper _cb _ drive _ = do - drive' <- (newObject Drive) drive - _cb drive' - -onVolumeMonitorDriveDisconnected :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveDisconnectedCallback -> m SignalHandlerId -onVolumeMonitorDriveDisconnected obj cb = liftIO $ connectVolumeMonitorDriveDisconnected obj cb SignalConnectBefore -afterVolumeMonitorDriveDisconnected :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveDisconnectedCallback -> m SignalHandlerId -afterVolumeMonitorDriveDisconnected obj cb = connectVolumeMonitorDriveDisconnected obj cb SignalConnectAfter - -connectVolumeMonitorDriveDisconnected :: (GObject a, MonadIO m) => - a -> VolumeMonitorDriveDisconnectedCallback -> SignalConnectMode -> m SignalHandlerId -connectVolumeMonitorDriveDisconnected obj cb after = liftIO $ do - cb' <- mkVolumeMonitorDriveDisconnectedCallback (volumeMonitorDriveDisconnectedCallbackWrapper cb) - connectSignalFunPtr obj "drive-disconnected" cb' after - --- signal VolumeMonitor::drive-eject-button -type VolumeMonitorDriveEjectButtonCallback = - Drive -> - IO () - -noVolumeMonitorDriveEjectButtonCallback :: Maybe VolumeMonitorDriveEjectButtonCallback -noVolumeMonitorDriveEjectButtonCallback = Nothing - -type VolumeMonitorDriveEjectButtonCallbackC = - Ptr () -> -- object - Ptr Drive -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkVolumeMonitorDriveEjectButtonCallback :: VolumeMonitorDriveEjectButtonCallbackC -> IO (FunPtr VolumeMonitorDriveEjectButtonCallbackC) - -volumeMonitorDriveEjectButtonClosure :: VolumeMonitorDriveEjectButtonCallback -> IO Closure -volumeMonitorDriveEjectButtonClosure cb = newCClosure =<< mkVolumeMonitorDriveEjectButtonCallback wrapped - where wrapped = volumeMonitorDriveEjectButtonCallbackWrapper cb - -volumeMonitorDriveEjectButtonCallbackWrapper :: - VolumeMonitorDriveEjectButtonCallback -> - Ptr () -> - Ptr Drive -> - Ptr () -> - IO () -volumeMonitorDriveEjectButtonCallbackWrapper _cb _ drive _ = do - drive' <- (newObject Drive) drive - _cb drive' - -onVolumeMonitorDriveEjectButton :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveEjectButtonCallback -> m SignalHandlerId -onVolumeMonitorDriveEjectButton obj cb = liftIO $ connectVolumeMonitorDriveEjectButton obj cb SignalConnectBefore -afterVolumeMonitorDriveEjectButton :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveEjectButtonCallback -> m SignalHandlerId -afterVolumeMonitorDriveEjectButton obj cb = connectVolumeMonitorDriveEjectButton obj cb SignalConnectAfter - -connectVolumeMonitorDriveEjectButton :: (GObject a, MonadIO m) => - a -> VolumeMonitorDriveEjectButtonCallback -> SignalConnectMode -> m SignalHandlerId -connectVolumeMonitorDriveEjectButton obj cb after = liftIO $ do - cb' <- mkVolumeMonitorDriveEjectButtonCallback (volumeMonitorDriveEjectButtonCallbackWrapper cb) - connectSignalFunPtr obj "drive-eject-button" cb' after - --- signal VolumeMonitor::drive-stop-button -type VolumeMonitorDriveStopButtonCallback = - Drive -> - IO () - -noVolumeMonitorDriveStopButtonCallback :: Maybe VolumeMonitorDriveStopButtonCallback -noVolumeMonitorDriveStopButtonCallback = Nothing - -type VolumeMonitorDriveStopButtonCallbackC = - Ptr () -> -- object - Ptr Drive -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkVolumeMonitorDriveStopButtonCallback :: VolumeMonitorDriveStopButtonCallbackC -> IO (FunPtr VolumeMonitorDriveStopButtonCallbackC) - -volumeMonitorDriveStopButtonClosure :: VolumeMonitorDriveStopButtonCallback -> IO Closure -volumeMonitorDriveStopButtonClosure cb = newCClosure =<< mkVolumeMonitorDriveStopButtonCallback wrapped - where wrapped = volumeMonitorDriveStopButtonCallbackWrapper cb - -volumeMonitorDriveStopButtonCallbackWrapper :: - VolumeMonitorDriveStopButtonCallback -> - Ptr () -> - Ptr Drive -> - Ptr () -> - IO () -volumeMonitorDriveStopButtonCallbackWrapper _cb _ drive _ = do - drive' <- (newObject Drive) drive - _cb drive' - -onVolumeMonitorDriveStopButton :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveStopButtonCallback -> m SignalHandlerId -onVolumeMonitorDriveStopButton obj cb = liftIO $ connectVolumeMonitorDriveStopButton obj cb SignalConnectBefore -afterVolumeMonitorDriveStopButton :: (GObject a, MonadIO m) => a -> VolumeMonitorDriveStopButtonCallback -> m SignalHandlerId -afterVolumeMonitorDriveStopButton obj cb = connectVolumeMonitorDriveStopButton obj cb SignalConnectAfter - -connectVolumeMonitorDriveStopButton :: (GObject a, MonadIO m) => - a -> VolumeMonitorDriveStopButtonCallback -> SignalConnectMode -> m SignalHandlerId -connectVolumeMonitorDriveStopButton obj cb after = liftIO $ do - cb' <- mkVolumeMonitorDriveStopButtonCallback (volumeMonitorDriveStopButtonCallbackWrapper cb) - connectSignalFunPtr obj "drive-stop-button" cb' after - --- signal VolumeMonitor::mount-added -type VolumeMonitorMountAddedCallback = - Mount -> - IO () - -noVolumeMonitorMountAddedCallback :: Maybe VolumeMonitorMountAddedCallback -noVolumeMonitorMountAddedCallback = Nothing - -type VolumeMonitorMountAddedCallbackC = - Ptr () -> -- object - Ptr Mount -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkVolumeMonitorMountAddedCallback :: VolumeMonitorMountAddedCallbackC -> IO (FunPtr VolumeMonitorMountAddedCallbackC) - -volumeMonitorMountAddedClosure :: VolumeMonitorMountAddedCallback -> IO Closure -volumeMonitorMountAddedClosure cb = newCClosure =<< mkVolumeMonitorMountAddedCallback wrapped - where wrapped = volumeMonitorMountAddedCallbackWrapper cb - -volumeMonitorMountAddedCallbackWrapper :: - VolumeMonitorMountAddedCallback -> - Ptr () -> - Ptr Mount -> - Ptr () -> - IO () -volumeMonitorMountAddedCallbackWrapper _cb _ mount _ = do - mount' <- (newObject Mount) mount - _cb mount' - -onVolumeMonitorMountAdded :: (GObject a, MonadIO m) => a -> VolumeMonitorMountAddedCallback -> m SignalHandlerId -onVolumeMonitorMountAdded obj cb = liftIO $ connectVolumeMonitorMountAdded obj cb SignalConnectBefore -afterVolumeMonitorMountAdded :: (GObject a, MonadIO m) => a -> VolumeMonitorMountAddedCallback -> m SignalHandlerId -afterVolumeMonitorMountAdded obj cb = connectVolumeMonitorMountAdded obj cb SignalConnectAfter - -connectVolumeMonitorMountAdded :: (GObject a, MonadIO m) => - a -> VolumeMonitorMountAddedCallback -> SignalConnectMode -> m SignalHandlerId -connectVolumeMonitorMountAdded obj cb after = liftIO $ do - cb' <- mkVolumeMonitorMountAddedCallback (volumeMonitorMountAddedCallbackWrapper cb) - connectSignalFunPtr obj "mount-added" cb' after - --- signal VolumeMonitor::mount-changed -type VolumeMonitorMountChangedCallback = - Mount -> - IO () - -noVolumeMonitorMountChangedCallback :: Maybe VolumeMonitorMountChangedCallback -noVolumeMonitorMountChangedCallback = Nothing - -type VolumeMonitorMountChangedCallbackC = - Ptr () -> -- object - Ptr Mount -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkVolumeMonitorMountChangedCallback :: VolumeMonitorMountChangedCallbackC -> IO (FunPtr VolumeMonitorMountChangedCallbackC) - -volumeMonitorMountChangedClosure :: VolumeMonitorMountChangedCallback -> IO Closure -volumeMonitorMountChangedClosure cb = newCClosure =<< mkVolumeMonitorMountChangedCallback wrapped - where wrapped = volumeMonitorMountChangedCallbackWrapper cb - -volumeMonitorMountChangedCallbackWrapper :: - VolumeMonitorMountChangedCallback -> - Ptr () -> - Ptr Mount -> - Ptr () -> - IO () -volumeMonitorMountChangedCallbackWrapper _cb _ mount _ = do - mount' <- (newObject Mount) mount - _cb mount' - -onVolumeMonitorMountChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorMountChangedCallback -> m SignalHandlerId -onVolumeMonitorMountChanged obj cb = liftIO $ connectVolumeMonitorMountChanged obj cb SignalConnectBefore -afterVolumeMonitorMountChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorMountChangedCallback -> m SignalHandlerId -afterVolumeMonitorMountChanged obj cb = connectVolumeMonitorMountChanged obj cb SignalConnectAfter - -connectVolumeMonitorMountChanged :: (GObject a, MonadIO m) => - a -> VolumeMonitorMountChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectVolumeMonitorMountChanged obj cb after = liftIO $ do - cb' <- mkVolumeMonitorMountChangedCallback (volumeMonitorMountChangedCallbackWrapper cb) - connectSignalFunPtr obj "mount-changed" cb' after - --- signal VolumeMonitor::mount-pre-unmount -type VolumeMonitorMountPreUnmountCallback = - Mount -> - IO () - -noVolumeMonitorMountPreUnmountCallback :: Maybe VolumeMonitorMountPreUnmountCallback -noVolumeMonitorMountPreUnmountCallback = Nothing - -type VolumeMonitorMountPreUnmountCallbackC = - Ptr () -> -- object - Ptr Mount -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkVolumeMonitorMountPreUnmountCallback :: VolumeMonitorMountPreUnmountCallbackC -> IO (FunPtr VolumeMonitorMountPreUnmountCallbackC) - -volumeMonitorMountPreUnmountClosure :: VolumeMonitorMountPreUnmountCallback -> IO Closure -volumeMonitorMountPreUnmountClosure cb = newCClosure =<< mkVolumeMonitorMountPreUnmountCallback wrapped - where wrapped = volumeMonitorMountPreUnmountCallbackWrapper cb - -volumeMonitorMountPreUnmountCallbackWrapper :: - VolumeMonitorMountPreUnmountCallback -> - Ptr () -> - Ptr Mount -> - Ptr () -> - IO () -volumeMonitorMountPreUnmountCallbackWrapper _cb _ mount _ = do - mount' <- (newObject Mount) mount - _cb mount' - -onVolumeMonitorMountPreUnmount :: (GObject a, MonadIO m) => a -> VolumeMonitorMountPreUnmountCallback -> m SignalHandlerId -onVolumeMonitorMountPreUnmount obj cb = liftIO $ connectVolumeMonitorMountPreUnmount obj cb SignalConnectBefore -afterVolumeMonitorMountPreUnmount :: (GObject a, MonadIO m) => a -> VolumeMonitorMountPreUnmountCallback -> m SignalHandlerId -afterVolumeMonitorMountPreUnmount obj cb = connectVolumeMonitorMountPreUnmount obj cb SignalConnectAfter - -connectVolumeMonitorMountPreUnmount :: (GObject a, MonadIO m) => - a -> VolumeMonitorMountPreUnmountCallback -> SignalConnectMode -> m SignalHandlerId -connectVolumeMonitorMountPreUnmount obj cb after = liftIO $ do - cb' <- mkVolumeMonitorMountPreUnmountCallback (volumeMonitorMountPreUnmountCallbackWrapper cb) - connectSignalFunPtr obj "mount-pre-unmount" cb' after - --- signal VolumeMonitor::mount-removed -type VolumeMonitorMountRemovedCallback = - Mount -> - IO () - -noVolumeMonitorMountRemovedCallback :: Maybe VolumeMonitorMountRemovedCallback -noVolumeMonitorMountRemovedCallback = Nothing - -type VolumeMonitorMountRemovedCallbackC = - Ptr () -> -- object - Ptr Mount -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkVolumeMonitorMountRemovedCallback :: VolumeMonitorMountRemovedCallbackC -> IO (FunPtr VolumeMonitorMountRemovedCallbackC) - -volumeMonitorMountRemovedClosure :: VolumeMonitorMountRemovedCallback -> IO Closure -volumeMonitorMountRemovedClosure cb = newCClosure =<< mkVolumeMonitorMountRemovedCallback wrapped - where wrapped = volumeMonitorMountRemovedCallbackWrapper cb - -volumeMonitorMountRemovedCallbackWrapper :: - VolumeMonitorMountRemovedCallback -> - Ptr () -> - Ptr Mount -> - Ptr () -> - IO () -volumeMonitorMountRemovedCallbackWrapper _cb _ mount _ = do - mount' <- (newObject Mount) mount - _cb mount' - -onVolumeMonitorMountRemoved :: (GObject a, MonadIO m) => a -> VolumeMonitorMountRemovedCallback -> m SignalHandlerId -onVolumeMonitorMountRemoved obj cb = liftIO $ connectVolumeMonitorMountRemoved obj cb SignalConnectBefore -afterVolumeMonitorMountRemoved :: (GObject a, MonadIO m) => a -> VolumeMonitorMountRemovedCallback -> m SignalHandlerId -afterVolumeMonitorMountRemoved obj cb = connectVolumeMonitorMountRemoved obj cb SignalConnectAfter - -connectVolumeMonitorMountRemoved :: (GObject a, MonadIO m) => - a -> VolumeMonitorMountRemovedCallback -> SignalConnectMode -> m SignalHandlerId -connectVolumeMonitorMountRemoved obj cb after = liftIO $ do - cb' <- mkVolumeMonitorMountRemovedCallback (volumeMonitorMountRemovedCallbackWrapper cb) - connectSignalFunPtr obj "mount-removed" cb' after - --- signal VolumeMonitor::volume-added -type VolumeMonitorVolumeAddedCallback = - Volume -> - IO () - -noVolumeMonitorVolumeAddedCallback :: Maybe VolumeMonitorVolumeAddedCallback -noVolumeMonitorVolumeAddedCallback = Nothing - -type VolumeMonitorVolumeAddedCallbackC = - Ptr () -> -- object - Ptr Volume -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkVolumeMonitorVolumeAddedCallback :: VolumeMonitorVolumeAddedCallbackC -> IO (FunPtr VolumeMonitorVolumeAddedCallbackC) - -volumeMonitorVolumeAddedClosure :: VolumeMonitorVolumeAddedCallback -> IO Closure -volumeMonitorVolumeAddedClosure cb = newCClosure =<< mkVolumeMonitorVolumeAddedCallback wrapped - where wrapped = volumeMonitorVolumeAddedCallbackWrapper cb - -volumeMonitorVolumeAddedCallbackWrapper :: - VolumeMonitorVolumeAddedCallback -> - Ptr () -> - Ptr Volume -> - Ptr () -> - IO () -volumeMonitorVolumeAddedCallbackWrapper _cb _ volume _ = do - volume' <- (newObject Volume) volume - _cb volume' - -onVolumeMonitorVolumeAdded :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeAddedCallback -> m SignalHandlerId -onVolumeMonitorVolumeAdded obj cb = liftIO $ connectVolumeMonitorVolumeAdded obj cb SignalConnectBefore -afterVolumeMonitorVolumeAdded :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeAddedCallback -> m SignalHandlerId -afterVolumeMonitorVolumeAdded obj cb = connectVolumeMonitorVolumeAdded obj cb SignalConnectAfter - -connectVolumeMonitorVolumeAdded :: (GObject a, MonadIO m) => - a -> VolumeMonitorVolumeAddedCallback -> SignalConnectMode -> m SignalHandlerId -connectVolumeMonitorVolumeAdded obj cb after = liftIO $ do - cb' <- mkVolumeMonitorVolumeAddedCallback (volumeMonitorVolumeAddedCallbackWrapper cb) - connectSignalFunPtr obj "volume-added" cb' after - --- signal VolumeMonitor::volume-changed -type VolumeMonitorVolumeChangedCallback = - Volume -> - IO () - -noVolumeMonitorVolumeChangedCallback :: Maybe VolumeMonitorVolumeChangedCallback -noVolumeMonitorVolumeChangedCallback = Nothing - -type VolumeMonitorVolumeChangedCallbackC = - Ptr () -> -- object - Ptr Volume -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkVolumeMonitorVolumeChangedCallback :: VolumeMonitorVolumeChangedCallbackC -> IO (FunPtr VolumeMonitorVolumeChangedCallbackC) - -volumeMonitorVolumeChangedClosure :: VolumeMonitorVolumeChangedCallback -> IO Closure -volumeMonitorVolumeChangedClosure cb = newCClosure =<< mkVolumeMonitorVolumeChangedCallback wrapped - where wrapped = volumeMonitorVolumeChangedCallbackWrapper cb - -volumeMonitorVolumeChangedCallbackWrapper :: - VolumeMonitorVolumeChangedCallback -> - Ptr () -> - Ptr Volume -> - Ptr () -> - IO () -volumeMonitorVolumeChangedCallbackWrapper _cb _ volume _ = do - volume' <- (newObject Volume) volume - _cb volume' - -onVolumeMonitorVolumeChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeChangedCallback -> m SignalHandlerId -onVolumeMonitorVolumeChanged obj cb = liftIO $ connectVolumeMonitorVolumeChanged obj cb SignalConnectBefore -afterVolumeMonitorVolumeChanged :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeChangedCallback -> m SignalHandlerId -afterVolumeMonitorVolumeChanged obj cb = connectVolumeMonitorVolumeChanged obj cb SignalConnectAfter - -connectVolumeMonitorVolumeChanged :: (GObject a, MonadIO m) => - a -> VolumeMonitorVolumeChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectVolumeMonitorVolumeChanged obj cb after = liftIO $ do - cb' <- mkVolumeMonitorVolumeChangedCallback (volumeMonitorVolumeChangedCallbackWrapper cb) - connectSignalFunPtr obj "volume-changed" cb' after - --- signal VolumeMonitor::volume-removed -type VolumeMonitorVolumeRemovedCallback = - Volume -> - IO () - -noVolumeMonitorVolumeRemovedCallback :: Maybe VolumeMonitorVolumeRemovedCallback -noVolumeMonitorVolumeRemovedCallback = Nothing - -type VolumeMonitorVolumeRemovedCallbackC = - Ptr () -> -- object - Ptr Volume -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkVolumeMonitorVolumeRemovedCallback :: VolumeMonitorVolumeRemovedCallbackC -> IO (FunPtr VolumeMonitorVolumeRemovedCallbackC) - -volumeMonitorVolumeRemovedClosure :: VolumeMonitorVolumeRemovedCallback -> IO Closure -volumeMonitorVolumeRemovedClosure cb = newCClosure =<< mkVolumeMonitorVolumeRemovedCallback wrapped - where wrapped = volumeMonitorVolumeRemovedCallbackWrapper cb - -volumeMonitorVolumeRemovedCallbackWrapper :: - VolumeMonitorVolumeRemovedCallback -> - Ptr () -> - Ptr Volume -> - Ptr () -> - IO () -volumeMonitorVolumeRemovedCallbackWrapper _cb _ volume _ = do - volume' <- (newObject Volume) volume - _cb volume' - -onVolumeMonitorVolumeRemoved :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeRemovedCallback -> m SignalHandlerId -onVolumeMonitorVolumeRemoved obj cb = liftIO $ connectVolumeMonitorVolumeRemoved obj cb SignalConnectBefore -afterVolumeMonitorVolumeRemoved :: (GObject a, MonadIO m) => a -> VolumeMonitorVolumeRemovedCallback -> m SignalHandlerId -afterVolumeMonitorVolumeRemoved obj cb = connectVolumeMonitorVolumeRemoved obj cb SignalConnectAfter - -connectVolumeMonitorVolumeRemoved :: (GObject a, MonadIO m) => - a -> VolumeMonitorVolumeRemovedCallback -> SignalConnectMode -> m SignalHandlerId -connectVolumeMonitorVolumeRemoved obj cb after = liftIO $ do - cb' <- mkVolumeMonitorVolumeRemovedCallback (volumeMonitorVolumeRemovedCallbackWrapper cb) - connectSignalFunPtr obj "volume-removed" cb' after - -type instance AttributeList VolumeMonitor = VolumeMonitorAttributeList -type VolumeMonitorAttributeList = ('[ ] :: [(Symbol, *)]) - -data VolumeMonitorDriveChangedSignalInfo -instance SignalInfo VolumeMonitorDriveChangedSignalInfo where - type HaskellCallbackType VolumeMonitorDriveChangedSignalInfo = VolumeMonitorDriveChangedCallback - connectSignal _ = connectVolumeMonitorDriveChanged - -data VolumeMonitorDriveConnectedSignalInfo -instance SignalInfo VolumeMonitorDriveConnectedSignalInfo where - type HaskellCallbackType VolumeMonitorDriveConnectedSignalInfo = VolumeMonitorDriveConnectedCallback - connectSignal _ = connectVolumeMonitorDriveConnected - -data VolumeMonitorDriveDisconnectedSignalInfo -instance SignalInfo VolumeMonitorDriveDisconnectedSignalInfo where - type HaskellCallbackType VolumeMonitorDriveDisconnectedSignalInfo = VolumeMonitorDriveDisconnectedCallback - connectSignal _ = connectVolumeMonitorDriveDisconnected - -data VolumeMonitorDriveEjectButtonSignalInfo -instance SignalInfo VolumeMonitorDriveEjectButtonSignalInfo where - type HaskellCallbackType VolumeMonitorDriveEjectButtonSignalInfo = VolumeMonitorDriveEjectButtonCallback - connectSignal _ = connectVolumeMonitorDriveEjectButton - -data VolumeMonitorDriveStopButtonSignalInfo -instance SignalInfo VolumeMonitorDriveStopButtonSignalInfo where - type HaskellCallbackType VolumeMonitorDriveStopButtonSignalInfo = VolumeMonitorDriveStopButtonCallback - connectSignal _ = connectVolumeMonitorDriveStopButton - -data VolumeMonitorMountAddedSignalInfo -instance SignalInfo VolumeMonitorMountAddedSignalInfo where - type HaskellCallbackType VolumeMonitorMountAddedSignalInfo = VolumeMonitorMountAddedCallback - connectSignal _ = connectVolumeMonitorMountAdded - -data VolumeMonitorMountChangedSignalInfo -instance SignalInfo VolumeMonitorMountChangedSignalInfo where - type HaskellCallbackType VolumeMonitorMountChangedSignalInfo = VolumeMonitorMountChangedCallback - connectSignal _ = connectVolumeMonitorMountChanged - -data VolumeMonitorMountPreUnmountSignalInfo -instance SignalInfo VolumeMonitorMountPreUnmountSignalInfo where - type HaskellCallbackType VolumeMonitorMountPreUnmountSignalInfo = VolumeMonitorMountPreUnmountCallback - connectSignal _ = connectVolumeMonitorMountPreUnmount - -data VolumeMonitorMountRemovedSignalInfo -instance SignalInfo VolumeMonitorMountRemovedSignalInfo where - type HaskellCallbackType VolumeMonitorMountRemovedSignalInfo = VolumeMonitorMountRemovedCallback - connectSignal _ = connectVolumeMonitorMountRemoved - -data VolumeMonitorVolumeAddedSignalInfo -instance SignalInfo VolumeMonitorVolumeAddedSignalInfo where - type HaskellCallbackType VolumeMonitorVolumeAddedSignalInfo = VolumeMonitorVolumeAddedCallback - connectSignal _ = connectVolumeMonitorVolumeAdded - -data VolumeMonitorVolumeChangedSignalInfo -instance SignalInfo VolumeMonitorVolumeChangedSignalInfo where - type HaskellCallbackType VolumeMonitorVolumeChangedSignalInfo = VolumeMonitorVolumeChangedCallback - connectSignal _ = connectVolumeMonitorVolumeChanged - -data VolumeMonitorVolumeRemovedSignalInfo -instance SignalInfo VolumeMonitorVolumeRemovedSignalInfo where - type HaskellCallbackType VolumeMonitorVolumeRemovedSignalInfo = VolumeMonitorVolumeRemovedCallback - connectSignal _ = connectVolumeMonitorVolumeRemoved - -type instance SignalList VolumeMonitor = VolumeMonitorSignalList -type VolumeMonitorSignalList = ('[ '("driveChanged", VolumeMonitorDriveChangedSignalInfo), '("driveConnected", VolumeMonitorDriveConnectedSignalInfo), '("driveDisconnected", VolumeMonitorDriveDisconnectedSignalInfo), '("driveEjectButton", VolumeMonitorDriveEjectButtonSignalInfo), '("driveStopButton", VolumeMonitorDriveStopButtonSignalInfo), '("mountAdded", VolumeMonitorMountAddedSignalInfo), '("mountChanged", VolumeMonitorMountChangedSignalInfo), '("mountPreUnmount", VolumeMonitorMountPreUnmountSignalInfo), '("mountRemoved", VolumeMonitorMountRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("volumeAdded", VolumeMonitorVolumeAddedSignalInfo), '("volumeChanged", VolumeMonitorVolumeChangedSignalInfo), '("volumeRemoved", VolumeMonitorVolumeRemovedSignalInfo)] :: [(Symbol, *)]) - --- method VolumeMonitor::get_connected_drives --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "Drive")) --- throws : False --- Skip return : False - -foreign import ccall "g_volume_monitor_get_connected_drives" g_volume_monitor_get_connected_drives :: - Ptr VolumeMonitor -> -- _obj : TInterface "Gio" "VolumeMonitor" - IO (Ptr (GList (Ptr Drive))) - - -volumeMonitorGetConnectedDrives :: - (MonadIO m, VolumeMonitorK a) => - a -- _obj - -> m [Drive] -- result -volumeMonitorGetConnectedDrives _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_volume_monitor_get_connected_drives _obj' - result' <- unpackGList result - result'' <- mapM (wrapObject Drive) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data VolumeMonitorGetConnectedDrivesMethodInfo -instance (signature ~ (m [Drive]), MonadIO m, VolumeMonitorK a) => MethodInfo VolumeMonitorGetConnectedDrivesMethodInfo a signature where - overloadedMethod _ = volumeMonitorGetConnectedDrives - --- method VolumeMonitor::get_mount_for_uuid --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uuid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Mount") --- throws : False --- Skip return : False - -foreign import ccall "g_volume_monitor_get_mount_for_uuid" g_volume_monitor_get_mount_for_uuid :: - Ptr VolumeMonitor -> -- _obj : TInterface "Gio" "VolumeMonitor" - CString -> -- uuid : TBasicType TUTF8 - IO (Ptr Mount) - - -volumeMonitorGetMountForUuid :: - (MonadIO m, VolumeMonitorK a) => - a -- _obj - -> T.Text -- uuid - -> m Mount -- result -volumeMonitorGetMountForUuid _obj uuid = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uuid' <- textToCString uuid - result <- g_volume_monitor_get_mount_for_uuid _obj' uuid' - checkUnexpectedReturnNULL "g_volume_monitor_get_mount_for_uuid" result - result' <- (wrapObject Mount) result - touchManagedPtr _obj - freeMem uuid' - return result' - -data VolumeMonitorGetMountForUuidMethodInfo -instance (signature ~ (T.Text -> m Mount), MonadIO m, VolumeMonitorK a) => MethodInfo VolumeMonitorGetMountForUuidMethodInfo a signature where - overloadedMethod _ = volumeMonitorGetMountForUuid - --- method VolumeMonitor::get_mounts --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "Mount")) --- throws : False --- Skip return : False - -foreign import ccall "g_volume_monitor_get_mounts" g_volume_monitor_get_mounts :: - Ptr VolumeMonitor -> -- _obj : TInterface "Gio" "VolumeMonitor" - IO (Ptr (GList (Ptr Mount))) - - -volumeMonitorGetMounts :: - (MonadIO m, VolumeMonitorK a) => - a -- _obj - -> m [Mount] -- result -volumeMonitorGetMounts _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_volume_monitor_get_mounts _obj' - result' <- unpackGList result - result'' <- mapM (wrapObject Mount) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data VolumeMonitorGetMountsMethodInfo -instance (signature ~ (m [Mount]), MonadIO m, VolumeMonitorK a) => MethodInfo VolumeMonitorGetMountsMethodInfo a signature where - overloadedMethod _ = volumeMonitorGetMounts - --- method VolumeMonitor::get_volume_for_uuid --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uuid", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Volume") --- throws : False --- Skip return : False - -foreign import ccall "g_volume_monitor_get_volume_for_uuid" g_volume_monitor_get_volume_for_uuid :: - Ptr VolumeMonitor -> -- _obj : TInterface "Gio" "VolumeMonitor" - CString -> -- uuid : TBasicType TUTF8 - IO (Ptr Volume) - - -volumeMonitorGetVolumeForUuid :: - (MonadIO m, VolumeMonitorK a) => - a -- _obj - -> T.Text -- uuid - -> m Volume -- result -volumeMonitorGetVolumeForUuid _obj uuid = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uuid' <- textToCString uuid - result <- g_volume_monitor_get_volume_for_uuid _obj' uuid' - checkUnexpectedReturnNULL "g_volume_monitor_get_volume_for_uuid" result - result' <- (wrapObject Volume) result - touchManagedPtr _obj - freeMem uuid' - return result' - -data VolumeMonitorGetVolumeForUuidMethodInfo -instance (signature ~ (T.Text -> m Volume), MonadIO m, VolumeMonitorK a) => MethodInfo VolumeMonitorGetVolumeForUuidMethodInfo a signature where - overloadedMethod _ = volumeMonitorGetVolumeForUuid - --- method VolumeMonitor::get_volumes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "VolumeMonitor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "Volume")) --- throws : False --- Skip return : False - -foreign import ccall "g_volume_monitor_get_volumes" g_volume_monitor_get_volumes :: - Ptr VolumeMonitor -> -- _obj : TInterface "Gio" "VolumeMonitor" - IO (Ptr (GList (Ptr Volume))) - - -volumeMonitorGetVolumes :: - (MonadIO m, VolumeMonitorK a) => - a -- _obj - -> m [Volume] -- result -volumeMonitorGetVolumes _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_volume_monitor_get_volumes _obj' - result' <- unpackGList result - result'' <- mapM (wrapObject Volume) result' - g_list_free result - touchManagedPtr _obj - return result'' - -data VolumeMonitorGetVolumesMethodInfo -instance (signature ~ (m [Volume]), MonadIO m, VolumeMonitorK a) => MethodInfo VolumeMonitorGetVolumesMethodInfo a signature where - overloadedMethod _ = volumeMonitorGetVolumes - --- method VolumeMonitor::adopt_orphan_mount --- method type : MemberFunction --- Args : [Arg {argCName = "mount", argType = TInterface "Gio" "Mount", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Volume") --- throws : False --- Skip return : False - -foreign import ccall "g_volume_monitor_adopt_orphan_mount" g_volume_monitor_adopt_orphan_mount :: - Ptr Mount -> -- mount : TInterface "Gio" "Mount" - IO (Ptr Volume) - -{-# DEPRECATED volumeMonitorAdoptOrphanMount ["(Since version 2.20)","Instead of using this function, #GVolumeMonitor","implementations should instead create shadow mounts with the URI of","the mount they intend to adopt. See the proxy volume monitor in","gvfs for an example of this. Also see g_mount_is_shadowed(),","g_mount_shadow() and g_mount_unshadow() functions."]#-} -volumeMonitorAdoptOrphanMount :: - (MonadIO m, MountK a) => - a -- mount - -> m Volume -- result -volumeMonitorAdoptOrphanMount mount = liftIO $ do - let mount' = unsafeManagedPtrCastPtr mount - result <- g_volume_monitor_adopt_orphan_mount mount' - checkUnexpectedReturnNULL "g_volume_monitor_adopt_orphan_mount" result - result' <- (wrapObject Volume) result - touchManagedPtr mount - return result' - --- method VolumeMonitor::get --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "VolumeMonitor") --- throws : False --- Skip return : False - -foreign import ccall "g_volume_monitor_get" g_volume_monitor_get :: - IO (Ptr VolumeMonitor) - - -volumeMonitorGet :: - (MonadIO m) => - m VolumeMonitor -- result -volumeMonitorGet = liftIO $ do - result <- g_volume_monitor_get - checkUnexpectedReturnNULL "g_volume_monitor_get" result - result' <- (wrapObject VolumeMonitor) result - return result' - - diff --git a/GI/Gio/Objects/VolumeMonitor.hs-boot b/GI/Gio/Objects/VolumeMonitor.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/VolumeMonitor.hs-boot +++ /dev/null @@ -1,30 +0,0 @@ -module GI.Gio.Objects.VolumeMonitor where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype VolumeMonitor = VolumeMonitor (ForeignPtr VolumeMonitor) -instance GObject VolumeMonitor where -class GObject o => VolumeMonitorK o -instance (GObject o, IsDescendantOf VolumeMonitor o) => VolumeMonitorK o -data VolumeMonitorDriveChangedSignalInfo -data VolumeMonitorDriveConnectedSignalInfo -data VolumeMonitorDriveDisconnectedSignalInfo -data VolumeMonitorDriveEjectButtonSignalInfo -data VolumeMonitorDriveStopButtonSignalInfo -data VolumeMonitorMountAddedSignalInfo -data VolumeMonitorMountChangedSignalInfo -data VolumeMonitorMountPreUnmountSignalInfo -data VolumeMonitorMountRemovedSignalInfo -data VolumeMonitorVolumeAddedSignalInfo -data VolumeMonitorVolumeChangedSignalInfo -data VolumeMonitorVolumeRemovedSignalInfo -data VolumeMonitorGetConnectedDrivesMethodInfo -data VolumeMonitorGetMountForUuidMethodInfo -data VolumeMonitorGetMountsMethodInfo -data VolumeMonitorGetVolumeForUuidMethodInfo -data VolumeMonitorGetVolumesMethodInfo diff --git a/GI/Gio/Objects/ZlibCompressor.hs b/GI/Gio/Objects/ZlibCompressor.hs deleted file mode 100644 --- a/GI/Gio/Objects/ZlibCompressor.hs +++ /dev/null @@ -1,313 +0,0 @@ - - -{- | -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.Objects.ZlibCompressor - ( - --- * Exported types - ZlibCompressor(..) , - ZlibCompressorK , - toZlibCompressor , - noZlibCompressor , - - - -- * Methods --- ** zlibCompressorGetFileInfo - ZlibCompressorGetFileInfoMethodInfo , - zlibCompressorGetFileInfo , - - --- ** zlibCompressorNew - zlibCompressorNew , - - --- ** zlibCompressorSetFileInfo - ZlibCompressorSetFileInfoMethodInfo , - zlibCompressorSetFileInfo , - - - - - -- * Properties --- ** FileInfo - ZlibCompressorFileInfoPropertyInfo , - clearZlibCompressorFileInfo , - constructZlibCompressorFileInfo , - getZlibCompressorFileInfo , - setZlibCompressorFileInfo , - zlibCompressorFileInfo , - - --- ** Format - ZlibCompressorFormatPropertyInfo , - constructZlibCompressorFormat , - getZlibCompressorFormat , - zlibCompressorFormat , - - --- ** Level - ZlibCompressorLevelPropertyInfo , - constructZlibCompressorLevel , - getZlibCompressorLevel , - zlibCompressorLevel , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype ZlibCompressor = ZlibCompressor (ForeignPtr ZlibCompressor) -foreign import ccall "g_zlib_compressor_get_type" - c_g_zlib_compressor_get_type :: IO GType - -type instance ParentTypes ZlibCompressor = ZlibCompressorParentTypes -type ZlibCompressorParentTypes = '[GObject.Object, Converter] - -instance GObject ZlibCompressor where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_zlib_compressor_get_type - - -class GObject o => ZlibCompressorK o -instance (GObject o, IsDescendantOf ZlibCompressor o) => ZlibCompressorK o - -toZlibCompressor :: ZlibCompressorK o => o -> IO ZlibCompressor -toZlibCompressor = unsafeCastTo ZlibCompressor - -noZlibCompressor :: Maybe ZlibCompressor -noZlibCompressor = Nothing - -type family ResolveZlibCompressorMethod (t :: Symbol) (o :: *) :: * where - ResolveZlibCompressorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveZlibCompressorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveZlibCompressorMethod "convert" o = ConverterConvertMethodInfo - ResolveZlibCompressorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveZlibCompressorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveZlibCompressorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveZlibCompressorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveZlibCompressorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveZlibCompressorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveZlibCompressorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveZlibCompressorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveZlibCompressorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveZlibCompressorMethod "reset" o = ConverterResetMethodInfo - ResolveZlibCompressorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveZlibCompressorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveZlibCompressorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveZlibCompressorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveZlibCompressorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveZlibCompressorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveZlibCompressorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveZlibCompressorMethod "getFileInfo" o = ZlibCompressorGetFileInfoMethodInfo - ResolveZlibCompressorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveZlibCompressorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveZlibCompressorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveZlibCompressorMethod "setFileInfo" o = ZlibCompressorSetFileInfoMethodInfo - ResolveZlibCompressorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveZlibCompressorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveZlibCompressorMethod t ZlibCompressor, MethodInfo info ZlibCompressor p) => IsLabelProxy t (ZlibCompressor -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveZlibCompressorMethod t ZlibCompressor, MethodInfo info ZlibCompressor p) => IsLabel t (ZlibCompressor -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "file-info" - -- Type: TInterface "Gio" "FileInfo" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just True) - -getZlibCompressorFileInfo :: (MonadIO m, ZlibCompressorK o) => o -> m FileInfo -getZlibCompressorFileInfo obj = liftIO $ checkUnexpectedNothing "getZlibCompressorFileInfo" $ getObjectPropertyObject obj "file-info" FileInfo - -setZlibCompressorFileInfo :: (MonadIO m, ZlibCompressorK o, FileInfoK a) => o -> a -> m () -setZlibCompressorFileInfo obj val = liftIO $ setObjectPropertyObject obj "file-info" (Just val) - -constructZlibCompressorFileInfo :: (FileInfoK a) => a -> IO ([Char], GValue) -constructZlibCompressorFileInfo val = constructObjectPropertyObject "file-info" (Just val) - -clearZlibCompressorFileInfo :: (MonadIO m, ZlibCompressorK o) => o -> m () -clearZlibCompressorFileInfo obj = liftIO $ setObjectPropertyObject obj "file-info" (Nothing :: Maybe FileInfo) - -data ZlibCompressorFileInfoPropertyInfo -instance AttrInfo ZlibCompressorFileInfoPropertyInfo where - type AttrAllowedOps ZlibCompressorFileInfoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ZlibCompressorFileInfoPropertyInfo = FileInfoK - type AttrBaseTypeConstraint ZlibCompressorFileInfoPropertyInfo = ZlibCompressorK - type AttrGetType ZlibCompressorFileInfoPropertyInfo = FileInfo - type AttrLabel ZlibCompressorFileInfoPropertyInfo = "file-info" - attrGet _ = getZlibCompressorFileInfo - attrSet _ = setZlibCompressorFileInfo - attrConstruct _ = constructZlibCompressorFileInfo - attrClear _ = clearZlibCompressorFileInfo - --- VVV Prop "format" - -- Type: TInterface "Gio" "ZlibCompressorFormat" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getZlibCompressorFormat :: (MonadIO m, ZlibCompressorK o) => o -> m ZlibCompressorFormat -getZlibCompressorFormat obj = liftIO $ getObjectPropertyEnum obj "format" - -constructZlibCompressorFormat :: ZlibCompressorFormat -> IO ([Char], GValue) -constructZlibCompressorFormat val = constructObjectPropertyEnum "format" val - -data ZlibCompressorFormatPropertyInfo -instance AttrInfo ZlibCompressorFormatPropertyInfo where - type AttrAllowedOps ZlibCompressorFormatPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ZlibCompressorFormatPropertyInfo = (~) ZlibCompressorFormat - type AttrBaseTypeConstraint ZlibCompressorFormatPropertyInfo = ZlibCompressorK - type AttrGetType ZlibCompressorFormatPropertyInfo = ZlibCompressorFormat - type AttrLabel ZlibCompressorFormatPropertyInfo = "format" - attrGet _ = getZlibCompressorFormat - attrSet _ = undefined - attrConstruct _ = constructZlibCompressorFormat - attrClear _ = undefined - --- VVV Prop "level" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getZlibCompressorLevel :: (MonadIO m, ZlibCompressorK o) => o -> m Int32 -getZlibCompressorLevel obj = liftIO $ getObjectPropertyInt32 obj "level" - -constructZlibCompressorLevel :: Int32 -> IO ([Char], GValue) -constructZlibCompressorLevel val = constructObjectPropertyInt32 "level" val - -data ZlibCompressorLevelPropertyInfo -instance AttrInfo ZlibCompressorLevelPropertyInfo where - type AttrAllowedOps ZlibCompressorLevelPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ZlibCompressorLevelPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint ZlibCompressorLevelPropertyInfo = ZlibCompressorK - type AttrGetType ZlibCompressorLevelPropertyInfo = Int32 - type AttrLabel ZlibCompressorLevelPropertyInfo = "level" - attrGet _ = getZlibCompressorLevel - attrSet _ = undefined - attrConstruct _ = constructZlibCompressorLevel - attrClear _ = undefined - -type instance AttributeList ZlibCompressor = ZlibCompressorAttributeList -type ZlibCompressorAttributeList = ('[ '("fileInfo", ZlibCompressorFileInfoPropertyInfo), '("format", ZlibCompressorFormatPropertyInfo), '("level", ZlibCompressorLevelPropertyInfo)] :: [(Symbol, *)]) - -zlibCompressorFileInfo :: AttrLabelProxy "fileInfo" -zlibCompressorFileInfo = AttrLabelProxy - -zlibCompressorFormat :: AttrLabelProxy "format" -zlibCompressorFormat = AttrLabelProxy - -zlibCompressorLevel :: AttrLabelProxy "level" -zlibCompressorLevel = AttrLabelProxy - -type instance SignalList ZlibCompressor = ZlibCompressorSignalList -type ZlibCompressorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ZlibCompressor::new --- method type : Constructor --- Args : [Arg {argCName = "format", argType = TInterface "Gio" "ZlibCompressorFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "ZlibCompressor") --- throws : False --- Skip return : False - -foreign import ccall "g_zlib_compressor_new" g_zlib_compressor_new :: - CUInt -> -- format : TInterface "Gio" "ZlibCompressorFormat" - Int32 -> -- level : TBasicType TInt - IO (Ptr ZlibCompressor) - - -zlibCompressorNew :: - (MonadIO m) => - ZlibCompressorFormat -- format - -> Int32 -- level - -> m ZlibCompressor -- result -zlibCompressorNew format level = liftIO $ do - let format' = (fromIntegral . fromEnum) format - result <- g_zlib_compressor_new format' level - checkUnexpectedReturnNULL "g_zlib_compressor_new" result - result' <- (wrapObject ZlibCompressor) result - return result' - --- method ZlibCompressor::get_file_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ZlibCompressor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_zlib_compressor_get_file_info" g_zlib_compressor_get_file_info :: - Ptr ZlibCompressor -> -- _obj : TInterface "Gio" "ZlibCompressor" - IO (Ptr FileInfo) - - -zlibCompressorGetFileInfo :: - (MonadIO m, ZlibCompressorK a) => - a -- _obj - -> m FileInfo -- result -zlibCompressorGetFileInfo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_zlib_compressor_get_file_info _obj' - checkUnexpectedReturnNULL "g_zlib_compressor_get_file_info" result - result' <- (newObject FileInfo) result - touchManagedPtr _obj - return result' - -data ZlibCompressorGetFileInfoMethodInfo -instance (signature ~ (m FileInfo), MonadIO m, ZlibCompressorK a) => MethodInfo ZlibCompressorGetFileInfoMethodInfo a signature where - overloadedMethod _ = zlibCompressorGetFileInfo - --- method ZlibCompressor::set_file_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ZlibCompressor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_zlib_compressor_set_file_info" g_zlib_compressor_set_file_info :: - Ptr ZlibCompressor -> -- _obj : TInterface "Gio" "ZlibCompressor" - Ptr FileInfo -> -- file_info : TInterface "Gio" "FileInfo" - IO () - - -zlibCompressorSetFileInfo :: - (MonadIO m, ZlibCompressorK a, FileInfoK b) => - a -- _obj - -> Maybe (b) -- fileInfo - -> m () -- result -zlibCompressorSetFileInfo _obj fileInfo = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeFileInfo <- case fileInfo of - Nothing -> return nullPtr - Just jFileInfo -> do - let jFileInfo' = unsafeManagedPtrCastPtr jFileInfo - return jFileInfo' - g_zlib_compressor_set_file_info _obj' maybeFileInfo - touchManagedPtr _obj - whenJust fileInfo touchManagedPtr - return () - -data ZlibCompressorSetFileInfoMethodInfo -instance (signature ~ (Maybe (b) -> m ()), MonadIO m, ZlibCompressorK a, FileInfoK b) => MethodInfo ZlibCompressorSetFileInfoMethodInfo a signature where - overloadedMethod _ = zlibCompressorSetFileInfo - - diff --git a/GI/Gio/Objects/ZlibCompressor.hs-boot b/GI/Gio/Objects/ZlibCompressor.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/ZlibCompressor.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Gio.Objects.ZlibCompressor where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ZlibCompressor = ZlibCompressor (ForeignPtr ZlibCompressor) -instance GObject ZlibCompressor where -class GObject o => ZlibCompressorK o -instance (GObject o, IsDescendantOf ZlibCompressor o) => ZlibCompressorK o -data ZlibCompressorFileInfoPropertyInfo -data ZlibCompressorFormatPropertyInfo -data ZlibCompressorLevelPropertyInfo -data ZlibCompressorGetFileInfoMethodInfo -data ZlibCompressorSetFileInfoMethodInfo diff --git a/GI/Gio/Objects/ZlibDecompressor.hs b/GI/Gio/Objects/ZlibDecompressor.hs deleted file mode 100644 --- a/GI/Gio/Objects/ZlibDecompressor.hs +++ /dev/null @@ -1,225 +0,0 @@ - - -{- | -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.Objects.ZlibDecompressor - ( - --- * Exported types - ZlibDecompressor(..) , - ZlibDecompressorK , - toZlibDecompressor , - noZlibDecompressor , - - - -- * Methods --- ** zlibDecompressorGetFileInfo - ZlibDecompressorGetFileInfoMethodInfo , - zlibDecompressorGetFileInfo , - - --- ** zlibDecompressorNew - zlibDecompressorNew , - - - - - -- * Properties --- ** FileInfo - ZlibDecompressorFileInfoPropertyInfo , - getZlibDecompressorFileInfo , - zlibDecompressorFileInfo , - - --- ** Format - ZlibDecompressorFormatPropertyInfo , - constructZlibDecompressorFormat , - getZlibDecompressorFormat , - zlibDecompressorFormat , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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.GObject as GObject - -newtype ZlibDecompressor = ZlibDecompressor (ForeignPtr ZlibDecompressor) -foreign import ccall "g_zlib_decompressor_get_type" - c_g_zlib_decompressor_get_type :: IO GType - -type instance ParentTypes ZlibDecompressor = ZlibDecompressorParentTypes -type ZlibDecompressorParentTypes = '[GObject.Object, Converter] - -instance GObject ZlibDecompressor where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_g_zlib_decompressor_get_type - - -class GObject o => ZlibDecompressorK o -instance (GObject o, IsDescendantOf ZlibDecompressor o) => ZlibDecompressorK o - -toZlibDecompressor :: ZlibDecompressorK o => o -> IO ZlibDecompressor -toZlibDecompressor = unsafeCastTo ZlibDecompressor - -noZlibDecompressor :: Maybe ZlibDecompressor -noZlibDecompressor = Nothing - -type family ResolveZlibDecompressorMethod (t :: Symbol) (o :: *) :: * where - ResolveZlibDecompressorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveZlibDecompressorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveZlibDecompressorMethod "convert" o = ConverterConvertMethodInfo - ResolveZlibDecompressorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveZlibDecompressorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveZlibDecompressorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveZlibDecompressorMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveZlibDecompressorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveZlibDecompressorMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveZlibDecompressorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveZlibDecompressorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveZlibDecompressorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveZlibDecompressorMethod "reset" o = ConverterResetMethodInfo - ResolveZlibDecompressorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveZlibDecompressorMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveZlibDecompressorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveZlibDecompressorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveZlibDecompressorMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveZlibDecompressorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveZlibDecompressorMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveZlibDecompressorMethod "getFileInfo" o = ZlibDecompressorGetFileInfoMethodInfo - ResolveZlibDecompressorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveZlibDecompressorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveZlibDecompressorMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveZlibDecompressorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveZlibDecompressorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveZlibDecompressorMethod t ZlibDecompressor, MethodInfo info ZlibDecompressor p) => IsLabelProxy t (ZlibDecompressor -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveZlibDecompressorMethod t ZlibDecompressor, MethodInfo info ZlibDecompressor p) => IsLabel t (ZlibDecompressor -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "file-info" - -- Type: TInterface "Gio" "FileInfo" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getZlibDecompressorFileInfo :: (MonadIO m, ZlibDecompressorK o) => o -> m FileInfo -getZlibDecompressorFileInfo obj = liftIO $ checkUnexpectedNothing "getZlibDecompressorFileInfo" $ getObjectPropertyObject obj "file-info" FileInfo - -data ZlibDecompressorFileInfoPropertyInfo -instance AttrInfo ZlibDecompressorFileInfoPropertyInfo where - type AttrAllowedOps ZlibDecompressorFileInfoPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ZlibDecompressorFileInfoPropertyInfo = (~) () - type AttrBaseTypeConstraint ZlibDecompressorFileInfoPropertyInfo = ZlibDecompressorK - type AttrGetType ZlibDecompressorFileInfoPropertyInfo = FileInfo - type AttrLabel ZlibDecompressorFileInfoPropertyInfo = "file-info" - attrGet _ = getZlibDecompressorFileInfo - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "format" - -- Type: TInterface "Gio" "ZlibCompressorFormat" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getZlibDecompressorFormat :: (MonadIO m, ZlibDecompressorK o) => o -> m ZlibCompressorFormat -getZlibDecompressorFormat obj = liftIO $ getObjectPropertyEnum obj "format" - -constructZlibDecompressorFormat :: ZlibCompressorFormat -> IO ([Char], GValue) -constructZlibDecompressorFormat val = constructObjectPropertyEnum "format" val - -data ZlibDecompressorFormatPropertyInfo -instance AttrInfo ZlibDecompressorFormatPropertyInfo where - type AttrAllowedOps ZlibDecompressorFormatPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ZlibDecompressorFormatPropertyInfo = (~) ZlibCompressorFormat - type AttrBaseTypeConstraint ZlibDecompressorFormatPropertyInfo = ZlibDecompressorK - type AttrGetType ZlibDecompressorFormatPropertyInfo = ZlibCompressorFormat - type AttrLabel ZlibDecompressorFormatPropertyInfo = "format" - attrGet _ = getZlibDecompressorFormat - attrSet _ = undefined - attrConstruct _ = constructZlibDecompressorFormat - attrClear _ = undefined - -type instance AttributeList ZlibDecompressor = ZlibDecompressorAttributeList -type ZlibDecompressorAttributeList = ('[ '("fileInfo", ZlibDecompressorFileInfoPropertyInfo), '("format", ZlibDecompressorFormatPropertyInfo)] :: [(Symbol, *)]) - -zlibDecompressorFileInfo :: AttrLabelProxy "fileInfo" -zlibDecompressorFileInfo = AttrLabelProxy - -zlibDecompressorFormat :: AttrLabelProxy "format" -zlibDecompressorFormat = AttrLabelProxy - -type instance SignalList ZlibDecompressor = ZlibDecompressorSignalList -type ZlibDecompressorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ZlibDecompressor::new --- method type : Constructor --- Args : [Arg {argCName = "format", argType = TInterface "Gio" "ZlibCompressorFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "ZlibDecompressor") --- throws : False --- Skip return : False - -foreign import ccall "g_zlib_decompressor_new" g_zlib_decompressor_new :: - CUInt -> -- format : TInterface "Gio" "ZlibCompressorFormat" - IO (Ptr ZlibDecompressor) - - -zlibDecompressorNew :: - (MonadIO m) => - ZlibCompressorFormat -- format - -> m ZlibDecompressor -- result -zlibDecompressorNew format = liftIO $ do - let format' = (fromIntegral . fromEnum) format - result <- g_zlib_decompressor_new format' - checkUnexpectedReturnNULL "g_zlib_decompressor_new" result - result' <- (wrapObject ZlibDecompressor) result - return result' - --- method ZlibDecompressor::get_file_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "ZlibDecompressor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_zlib_decompressor_get_file_info" g_zlib_decompressor_get_file_info :: - Ptr ZlibDecompressor -> -- _obj : TInterface "Gio" "ZlibDecompressor" - IO (Ptr FileInfo) - - -zlibDecompressorGetFileInfo :: - (MonadIO m, ZlibDecompressorK a) => - a -- _obj - -> m FileInfo -- result -zlibDecompressorGetFileInfo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- g_zlib_decompressor_get_file_info _obj' - checkUnexpectedReturnNULL "g_zlib_decompressor_get_file_info" result - result' <- (newObject FileInfo) result - touchManagedPtr _obj - return result' - -data ZlibDecompressorGetFileInfoMethodInfo -instance (signature ~ (m FileInfo), MonadIO m, ZlibDecompressorK a) => MethodInfo ZlibDecompressorGetFileInfoMethodInfo a signature where - overloadedMethod _ = zlibDecompressorGetFileInfo - - diff --git a/GI/Gio/Objects/ZlibDecompressor.hs-boot b/GI/Gio/Objects/ZlibDecompressor.hs-boot deleted file mode 100644 --- a/GI/Gio/Objects/ZlibDecompressor.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gio.Objects.ZlibDecompressor where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ZlibDecompressor = ZlibDecompressor (ForeignPtr ZlibDecompressor) -instance GObject ZlibDecompressor where -class GObject o => ZlibDecompressorK o -instance (GObject o, IsDescendantOf ZlibDecompressor o) => ZlibDecompressorK o -data ZlibDecompressorFileInfoPropertyInfo -data ZlibDecompressorFormatPropertyInfo -data ZlibDecompressorGetFileInfoMethodInfo diff --git a/GI/Gio/Structs.hs b/GI/Gio/Structs.hs deleted file mode 100644 --- a/GI/Gio/Structs.hs +++ /dev/null @@ -1,89 +0,0 @@ - - -{- | -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.Structs - ( module GI.Gio.Structs.ActionEntry , - module GI.Gio.Structs.DBusAnnotationInfo, - module GI.Gio.Structs.DBusArgInfo , - module GI.Gio.Structs.DBusErrorEntry , - module GI.Gio.Structs.DBusInterfaceInfo , - module GI.Gio.Structs.DBusInterfaceVTable, - module GI.Gio.Structs.DBusMethodInfo , - module GI.Gio.Structs.DBusNodeInfo , - module GI.Gio.Structs.DBusPropertyInfo , - module GI.Gio.Structs.DBusSignalInfo , - module GI.Gio.Structs.DBusSubtreeVTable , - module GI.Gio.Structs.FileAttributeInfo , - module GI.Gio.Structs.FileAttributeInfoList, - module GI.Gio.Structs.FileAttributeMatcher, - module GI.Gio.Structs.IOExtension , - module GI.Gio.Structs.IOExtensionPoint , - module GI.Gio.Structs.IOModuleScope , - module GI.Gio.Structs.IOSchedulerJob , - module GI.Gio.Structs.IOStreamAdapter , - module GI.Gio.Structs.InputVector , - module GI.Gio.Structs.NativeSocketAddress, - module GI.Gio.Structs.OutputMessage , - module GI.Gio.Structs.OutputVector , - module GI.Gio.Structs.Resource , - module GI.Gio.Structs.SettingsBackend , - module GI.Gio.Structs.SettingsSchema , - module GI.Gio.Structs.SettingsSchemaKey , - module GI.Gio.Structs.SettingsSchemaSource, - module GI.Gio.Structs.SrvTarget , - module GI.Gio.Structs.StaticResource , - module GI.Gio.Structs.UnixMountEntry , - module GI.Gio.Structs.UnixMountPoint , - - - ) where - -import GI.Gio.Structs.ActionEntry -import GI.Gio.Structs.DBusAnnotationInfo -import GI.Gio.Structs.DBusArgInfo -import GI.Gio.Structs.DBusErrorEntry -import GI.Gio.Structs.DBusInterfaceInfo -import GI.Gio.Structs.DBusInterfaceVTable -import GI.Gio.Structs.DBusMethodInfo -import GI.Gio.Structs.DBusNodeInfo -import GI.Gio.Structs.DBusPropertyInfo -import GI.Gio.Structs.DBusSignalInfo -import GI.Gio.Structs.DBusSubtreeVTable -import GI.Gio.Structs.FileAttributeInfo -import GI.Gio.Structs.FileAttributeInfoList -import GI.Gio.Structs.FileAttributeMatcher -import GI.Gio.Structs.IOExtension -import GI.Gio.Structs.IOExtensionPoint -import GI.Gio.Structs.IOModuleScope -import GI.Gio.Structs.IOSchedulerJob -import GI.Gio.Structs.IOStreamAdapter -import GI.Gio.Structs.InputVector -import GI.Gio.Structs.NativeSocketAddress -import GI.Gio.Structs.OutputMessage -import GI.Gio.Structs.OutputVector -import GI.Gio.Structs.Resource -import GI.Gio.Structs.SettingsBackend -import GI.Gio.Structs.SettingsSchema -import GI.Gio.Structs.SettingsSchemaKey -import GI.Gio.Structs.SettingsSchemaSource -import GI.Gio.Structs.SrvTarget -import GI.Gio.Structs.StaticResource -import GI.Gio.Structs.UnixMountEntry -import GI.Gio.Structs.UnixMountPoint - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - diff --git a/GI/Gio/Structs/ActionEntry.hs b/GI/Gio/Structs/ActionEntry.hs deleted file mode 100644 --- a/GI/Gio/Structs/ActionEntry.hs +++ /dev/null @@ -1,198 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -This struct defines a single action. It is for use with -g_action_map_add_action_entries(). - -The order of the items in the structure are intended to reflect -frequency of use. It is permissible to use an incomplete initialiser -in order to leave some of the later values as %NULL. All values -after @name are optional. Additional optional fields may be added in -the future. - -See g_action_map_add_action_entries() for an example. --} - -module GI.Gio.Structs.ActionEntry - ( - --- * Exported types - ActionEntry(..) , - newZeroActionEntry , - noActionEntry , - - - -- * Properties --- ** Name - actionEntryClearName , - actionEntryName , - actionEntryReadName , - actionEntryWriteName , - - --- ** ParameterType - actionEntryClearParameterType , - actionEntryParameterType , - actionEntryReadParameterType , - actionEntryWriteParameterType , - - --- ** State - actionEntryClearState , - actionEntryReadState , - actionEntryState , - actionEntryWriteState , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype ActionEntry = ActionEntry (ForeignPtr ActionEntry) -instance WrappedPtr ActionEntry where - wrappedPtrCalloc = callocBytes 64 - wrappedPtrCopy = copyPtr 64 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `ActionEntry` struct initialized to zero. -newZeroActionEntry :: MonadIO m => m ActionEntry -newZeroActionEntry = liftIO $ wrappedPtrCalloc >>= wrapPtr ActionEntry - -instance tag ~ 'AttrSet => Constructible ActionEntry tag where - new _ attrs = do - o <- newZeroActionEntry - GI.Attributes.set o attrs - return o - - -noActionEntry :: Maybe ActionEntry -noActionEntry = Nothing - -actionEntryReadName :: MonadIO m => ActionEntry -> m (Maybe T.Text) -actionEntryReadName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionEntryWriteName :: MonadIO m => ActionEntry -> CString -> m () -actionEntryWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -actionEntryClearName :: MonadIO m => ActionEntry -> m () -actionEntryClearName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data ActionEntryNameFieldInfo -instance AttrInfo ActionEntryNameFieldInfo where - type AttrAllowedOps ActionEntryNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionEntryNameFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionEntryNameFieldInfo = (~) ActionEntry - type AttrGetType ActionEntryNameFieldInfo = Maybe T.Text - type AttrLabel ActionEntryNameFieldInfo = "name" - attrGet _ = actionEntryReadName - attrSet _ = actionEntryWriteName - attrConstruct = undefined - attrClear _ = actionEntryClearName - -actionEntryName :: AttrLabelProxy "name" -actionEntryName = AttrLabelProxy - - --- XXX Skipped attribute for "ActionEntry:activate" :: Not implemented: "Wrapping foreign callbacks is not supported yet" -actionEntryReadParameterType :: MonadIO m => ActionEntry -> m (Maybe T.Text) -actionEntryReadParameterType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionEntryWriteParameterType :: MonadIO m => ActionEntry -> CString -> m () -actionEntryWriteParameterType s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -actionEntryClearParameterType :: MonadIO m => ActionEntry -> m () -actionEntryClearParameterType s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data ActionEntryParameterTypeFieldInfo -instance AttrInfo ActionEntryParameterTypeFieldInfo where - type AttrAllowedOps ActionEntryParameterTypeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionEntryParameterTypeFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionEntryParameterTypeFieldInfo = (~) ActionEntry - type AttrGetType ActionEntryParameterTypeFieldInfo = Maybe T.Text - type AttrLabel ActionEntryParameterTypeFieldInfo = "parameter_type" - attrGet _ = actionEntryReadParameterType - attrSet _ = actionEntryWriteParameterType - attrConstruct = undefined - attrClear _ = actionEntryClearParameterType - -actionEntryParameterType :: AttrLabelProxy "parameterType" -actionEntryParameterType = AttrLabelProxy - - -actionEntryReadState :: MonadIO m => ActionEntry -> m (Maybe T.Text) -actionEntryReadState s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -actionEntryWriteState :: MonadIO m => ActionEntry -> CString -> m () -actionEntryWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: CString) - -actionEntryClearState :: MonadIO m => ActionEntry -> m () -actionEntryClearState s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: CString) - -data ActionEntryStateFieldInfo -instance AttrInfo ActionEntryStateFieldInfo where - type AttrAllowedOps ActionEntryStateFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ActionEntryStateFieldInfo = (~) CString - type AttrBaseTypeConstraint ActionEntryStateFieldInfo = (~) ActionEntry - type AttrGetType ActionEntryStateFieldInfo = Maybe T.Text - type AttrLabel ActionEntryStateFieldInfo = "state" - attrGet _ = actionEntryReadState - attrSet _ = actionEntryWriteState - attrConstruct = undefined - attrClear _ = actionEntryClearState - -actionEntryState :: AttrLabelProxy "state" -actionEntryState = AttrLabelProxy - - --- XXX Skipped attribute for "ActionEntry:change_state" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -type instance AttributeList ActionEntry = ActionEntryAttributeList -type ActionEntryAttributeList = ('[ '("name", ActionEntryNameFieldInfo), '("parameterType", ActionEntryParameterTypeFieldInfo), '("state", ActionEntryStateFieldInfo)] :: [(Symbol, *)]) - -type family ResolveActionEntryMethod (t :: Symbol) (o :: *) :: * where - ResolveActionEntryMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveActionEntryMethod t ActionEntry, MethodInfo info ActionEntry p) => IsLabelProxy t (ActionEntry -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveActionEntryMethod t ActionEntry, MethodInfo info ActionEntry p) => IsLabel t (ActionEntry -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/ActionEntry.hs-boot b/GI/Gio/Structs/ActionEntry.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/ActionEntry.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gio.Structs.ActionEntry where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype ActionEntry = ActionEntry (ForeignPtr ActionEntry) -instance WrappedPtr ActionEntry where diff --git a/GI/Gio/Structs/DBusAnnotationInfo.hs b/GI/Gio/Structs/DBusAnnotationInfo.hs deleted file mode 100644 --- a/GI/Gio/Structs/DBusAnnotationInfo.hs +++ /dev/null @@ -1,330 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Information about an annotation. --} - -module GI.Gio.Structs.DBusAnnotationInfo - ( - --- * Exported types - DBusAnnotationInfo(..) , - newZeroDBusAnnotationInfo , - noDBusAnnotationInfo , - - - -- * Methods --- ** dBusAnnotationInfoLookup - dBusAnnotationInfoLookup , - - --- ** dBusAnnotationInfoRef - DBusAnnotationInfoRefMethodInfo , - dBusAnnotationInfoRef , - - --- ** dBusAnnotationInfoUnref - DBusAnnotationInfoUnrefMethodInfo , - dBusAnnotationInfoUnref , - - - - - -- * Properties --- ** Annotations - dBusAnnotationInfoAnnotations , - dBusAnnotationInfoClearAnnotations , - dBusAnnotationInfoReadAnnotations , - dBusAnnotationInfoWriteAnnotations , - - --- ** Key - dBusAnnotationInfoClearKey , - dBusAnnotationInfoKey , - dBusAnnotationInfoReadKey , - dBusAnnotationInfoWriteKey , - - --- ** RefCount - dBusAnnotationInfoReadRefCount , - dBusAnnotationInfoRefCount , - dBusAnnotationInfoWriteRefCount , - - --- ** Value - dBusAnnotationInfoClearValue , - dBusAnnotationInfoReadValue , - dBusAnnotationInfoValue , - dBusAnnotationInfoWriteValue , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype DBusAnnotationInfo = DBusAnnotationInfo (ForeignPtr DBusAnnotationInfo) -foreign import ccall "g_dbus_annotation_info_get_type" c_g_dbus_annotation_info_get_type :: - IO GType - -instance BoxedObject DBusAnnotationInfo where - boxedType _ = c_g_dbus_annotation_info_get_type - --- | Construct a `DBusAnnotationInfo` struct initialized to zero. -newZeroDBusAnnotationInfo :: MonadIO m => m DBusAnnotationInfo -newZeroDBusAnnotationInfo = liftIO $ callocBoxedBytes 32 >>= wrapBoxed DBusAnnotationInfo - -instance tag ~ 'AttrSet => Constructible DBusAnnotationInfo tag where - new _ attrs = do - o <- newZeroDBusAnnotationInfo - GI.Attributes.set o attrs - return o - - -noDBusAnnotationInfo :: Maybe DBusAnnotationInfo -noDBusAnnotationInfo = Nothing - -dBusAnnotationInfoReadRefCount :: MonadIO m => DBusAnnotationInfo -> m Int32 -dBusAnnotationInfoReadRefCount s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -dBusAnnotationInfoWriteRefCount :: MonadIO m => DBusAnnotationInfo -> Int32 -> m () -dBusAnnotationInfoWriteRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data DBusAnnotationInfoRefCountFieldInfo -instance AttrInfo DBusAnnotationInfoRefCountFieldInfo where - type AttrAllowedOps DBusAnnotationInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DBusAnnotationInfoRefCountFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DBusAnnotationInfoRefCountFieldInfo = (~) DBusAnnotationInfo - type AttrGetType DBusAnnotationInfoRefCountFieldInfo = Int32 - type AttrLabel DBusAnnotationInfoRefCountFieldInfo = "ref_count" - attrGet _ = dBusAnnotationInfoReadRefCount - attrSet _ = dBusAnnotationInfoWriteRefCount - attrConstruct = undefined - attrClear _ = undefined - -dBusAnnotationInfoRefCount :: AttrLabelProxy "refCount" -dBusAnnotationInfoRefCount = AttrLabelProxy - - -dBusAnnotationInfoReadKey :: MonadIO m => DBusAnnotationInfo -> m (Maybe T.Text) -dBusAnnotationInfoReadKey s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -dBusAnnotationInfoWriteKey :: MonadIO m => DBusAnnotationInfo -> CString -> m () -dBusAnnotationInfoWriteKey s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -dBusAnnotationInfoClearKey :: MonadIO m => DBusAnnotationInfo -> m () -dBusAnnotationInfoClearKey s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data DBusAnnotationInfoKeyFieldInfo -instance AttrInfo DBusAnnotationInfoKeyFieldInfo where - type AttrAllowedOps DBusAnnotationInfoKeyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusAnnotationInfoKeyFieldInfo = (~) CString - type AttrBaseTypeConstraint DBusAnnotationInfoKeyFieldInfo = (~) DBusAnnotationInfo - type AttrGetType DBusAnnotationInfoKeyFieldInfo = Maybe T.Text - type AttrLabel DBusAnnotationInfoKeyFieldInfo = "key" - attrGet _ = dBusAnnotationInfoReadKey - attrSet _ = dBusAnnotationInfoWriteKey - attrConstruct = undefined - attrClear _ = dBusAnnotationInfoClearKey - -dBusAnnotationInfoKey :: AttrLabelProxy "key" -dBusAnnotationInfoKey = AttrLabelProxy - - -dBusAnnotationInfoReadValue :: MonadIO m => DBusAnnotationInfo -> m (Maybe T.Text) -dBusAnnotationInfoReadValue s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -dBusAnnotationInfoWriteValue :: MonadIO m => DBusAnnotationInfo -> CString -> m () -dBusAnnotationInfoWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -dBusAnnotationInfoClearValue :: MonadIO m => DBusAnnotationInfo -> m () -dBusAnnotationInfoClearValue s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data DBusAnnotationInfoValueFieldInfo -instance AttrInfo DBusAnnotationInfoValueFieldInfo where - type AttrAllowedOps DBusAnnotationInfoValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusAnnotationInfoValueFieldInfo = (~) CString - type AttrBaseTypeConstraint DBusAnnotationInfoValueFieldInfo = (~) DBusAnnotationInfo - type AttrGetType DBusAnnotationInfoValueFieldInfo = Maybe T.Text - type AttrLabel DBusAnnotationInfoValueFieldInfo = "value" - attrGet _ = dBusAnnotationInfoReadValue - attrSet _ = dBusAnnotationInfoWriteValue - attrConstruct = undefined - attrClear _ = dBusAnnotationInfoClearValue - -dBusAnnotationInfoValue :: AttrLabelProxy "value" -dBusAnnotationInfoValue = AttrLabelProxy - - -dBusAnnotationInfoReadAnnotations :: MonadIO m => DBusAnnotationInfo -> m (Maybe [DBusAnnotationInfo]) -dBusAnnotationInfoReadAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusAnnotationInfo)) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedPtrArray val' - val''' <- mapM (newBoxed DBusAnnotationInfo) val'' - return val''' - return result - -dBusAnnotationInfoWriteAnnotations :: MonadIO m => DBusAnnotationInfo -> Ptr (Ptr DBusAnnotationInfo) -> m () -dBusAnnotationInfoWriteAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr (Ptr DBusAnnotationInfo)) - -dBusAnnotationInfoClearAnnotations :: MonadIO m => DBusAnnotationInfo -> m () -dBusAnnotationInfoClearAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr (Ptr DBusAnnotationInfo)) - -data DBusAnnotationInfoAnnotationsFieldInfo -instance AttrInfo DBusAnnotationInfoAnnotationsFieldInfo where - type AttrAllowedOps DBusAnnotationInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusAnnotationInfoAnnotationsFieldInfo = (~) (Ptr (Ptr DBusAnnotationInfo)) - type AttrBaseTypeConstraint DBusAnnotationInfoAnnotationsFieldInfo = (~) DBusAnnotationInfo - type AttrGetType DBusAnnotationInfoAnnotationsFieldInfo = Maybe [DBusAnnotationInfo] - type AttrLabel DBusAnnotationInfoAnnotationsFieldInfo = "annotations" - attrGet _ = dBusAnnotationInfoReadAnnotations - attrSet _ = dBusAnnotationInfoWriteAnnotations - attrConstruct = undefined - attrClear _ = dBusAnnotationInfoClearAnnotations - -dBusAnnotationInfoAnnotations :: AttrLabelProxy "annotations" -dBusAnnotationInfoAnnotations = AttrLabelProxy - - - -type instance AttributeList DBusAnnotationInfo = DBusAnnotationInfoAttributeList -type DBusAnnotationInfoAttributeList = ('[ '("refCount", DBusAnnotationInfoRefCountFieldInfo), '("key", DBusAnnotationInfoKeyFieldInfo), '("value", DBusAnnotationInfoValueFieldInfo), '("annotations", DBusAnnotationInfoAnnotationsFieldInfo)] :: [(Symbol, *)]) - --- method DBusAnnotationInfo::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusAnnotationInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusAnnotationInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_annotation_info_ref" g_dbus_annotation_info_ref :: - Ptr DBusAnnotationInfo -> -- _obj : TInterface "Gio" "DBusAnnotationInfo" - IO (Ptr DBusAnnotationInfo) - - -dBusAnnotationInfoRef :: - (MonadIO m) => - DBusAnnotationInfo -- _obj - -> m DBusAnnotationInfo -- result -dBusAnnotationInfoRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_dbus_annotation_info_ref _obj' - checkUnexpectedReturnNULL "g_dbus_annotation_info_ref" result - result' <- (wrapBoxed DBusAnnotationInfo) result - touchManagedPtr _obj - return result' - -data DBusAnnotationInfoRefMethodInfo -instance (signature ~ (m DBusAnnotationInfo), MonadIO m) => MethodInfo DBusAnnotationInfoRefMethodInfo DBusAnnotationInfo signature where - overloadedMethod _ = dBusAnnotationInfoRef - --- method DBusAnnotationInfo::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusAnnotationInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_annotation_info_unref" g_dbus_annotation_info_unref :: - Ptr DBusAnnotationInfo -> -- _obj : TInterface "Gio" "DBusAnnotationInfo" - IO () - - -dBusAnnotationInfoUnref :: - (MonadIO m) => - DBusAnnotationInfo -- _obj - -> m () -- result -dBusAnnotationInfoUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_dbus_annotation_info_unref _obj' - touchManagedPtr _obj - return () - -data DBusAnnotationInfoUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusAnnotationInfoUnrefMethodInfo DBusAnnotationInfo signature where - overloadedMethod _ = dBusAnnotationInfoUnref - --- method DBusAnnotationInfo::lookup --- method type : MemberFunction --- Args : [Arg {argCName = "annotations", argType = TCArray True (-1) (-1) (TInterface "Gio" "DBusAnnotationInfo"), direction = DirectionIn, mayBeNull = True, 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}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_annotation_info_lookup" g_dbus_annotation_info_lookup :: - Ptr (Ptr DBusAnnotationInfo) -> -- annotations : TCArray True (-1) (-1) (TInterface "Gio" "DBusAnnotationInfo") - CString -> -- name : TBasicType TUTF8 - IO CString - - -dBusAnnotationInfoLookup :: - (MonadIO m) => - Maybe ([DBusAnnotationInfo]) -- annotations - -> T.Text -- name - -> m T.Text -- result -dBusAnnotationInfoLookup annotations name = liftIO $ do - maybeAnnotations <- case annotations of - Nothing -> return nullPtr - Just jAnnotations -> do - let jAnnotations' = map unsafeManagedPtrGetPtr jAnnotations - jAnnotations'' <- packZeroTerminatedPtrArray jAnnotations' - return jAnnotations'' - name' <- textToCString name - result <- g_dbus_annotation_info_lookup maybeAnnotations name' - checkUnexpectedReturnNULL "g_dbus_annotation_info_lookup" result - result' <- cstringToText result - whenJust annotations (mapM_ touchManagedPtr) - freeMem maybeAnnotations - freeMem name' - return result' - -type family ResolveDBusAnnotationInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusAnnotationInfoMethod "ref" o = DBusAnnotationInfoRefMethodInfo - ResolveDBusAnnotationInfoMethod "unref" o = DBusAnnotationInfoUnrefMethodInfo - ResolveDBusAnnotationInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusAnnotationInfoMethod t DBusAnnotationInfo, MethodInfo info DBusAnnotationInfo p) => IsLabelProxy t (DBusAnnotationInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusAnnotationInfoMethod t DBusAnnotationInfo, MethodInfo info DBusAnnotationInfo p) => IsLabel t (DBusAnnotationInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/DBusAnnotationInfo.hs-boot b/GI/Gio/Structs/DBusAnnotationInfo.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/DBusAnnotationInfo.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gio.Structs.DBusAnnotationInfo where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusAnnotationInfo = DBusAnnotationInfo (ForeignPtr DBusAnnotationInfo) -instance BoxedObject DBusAnnotationInfo where -data DBusAnnotationInfoRefMethodInfo -data DBusAnnotationInfoUnrefMethodInfo diff --git a/GI/Gio/Structs/DBusArgInfo.hs b/GI/Gio/Structs/DBusArgInfo.hs deleted file mode 100644 --- a/GI/Gio/Structs/DBusArgInfo.hs +++ /dev/null @@ -1,291 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Information about an argument for a method or a signal. --} - -module GI.Gio.Structs.DBusArgInfo - ( - --- * Exported types - DBusArgInfo(..) , - newZeroDBusArgInfo , - noDBusArgInfo , - - - -- * Methods --- ** dBusArgInfoRef - DBusArgInfoRefMethodInfo , - dBusArgInfoRef , - - --- ** dBusArgInfoUnref - DBusArgInfoUnrefMethodInfo , - dBusArgInfoUnref , - - - - - -- * Properties --- ** Annotations - dBusArgInfoAnnotations , - dBusArgInfoClearAnnotations , - dBusArgInfoReadAnnotations , - dBusArgInfoWriteAnnotations , - - --- ** Name - dBusArgInfoClearName , - dBusArgInfoName , - dBusArgInfoReadName , - dBusArgInfoWriteName , - - --- ** RefCount - dBusArgInfoReadRefCount , - dBusArgInfoRefCount , - dBusArgInfoWriteRefCount , - - --- ** Signature - dBusArgInfoClearSignature , - dBusArgInfoReadSignature , - dBusArgInfoSignature , - dBusArgInfoWriteSignature , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype DBusArgInfo = DBusArgInfo (ForeignPtr DBusArgInfo) -foreign import ccall "g_dbus_arg_info_get_type" c_g_dbus_arg_info_get_type :: - IO GType - -instance BoxedObject DBusArgInfo where - boxedType _ = c_g_dbus_arg_info_get_type - --- | Construct a `DBusArgInfo` struct initialized to zero. -newZeroDBusArgInfo :: MonadIO m => m DBusArgInfo -newZeroDBusArgInfo = liftIO $ callocBoxedBytes 32 >>= wrapBoxed DBusArgInfo - -instance tag ~ 'AttrSet => Constructible DBusArgInfo tag where - new _ attrs = do - o <- newZeroDBusArgInfo - GI.Attributes.set o attrs - return o - - -noDBusArgInfo :: Maybe DBusArgInfo -noDBusArgInfo = Nothing - -dBusArgInfoReadRefCount :: MonadIO m => DBusArgInfo -> m Int32 -dBusArgInfoReadRefCount s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -dBusArgInfoWriteRefCount :: MonadIO m => DBusArgInfo -> Int32 -> m () -dBusArgInfoWriteRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data DBusArgInfoRefCountFieldInfo -instance AttrInfo DBusArgInfoRefCountFieldInfo where - type AttrAllowedOps DBusArgInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DBusArgInfoRefCountFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DBusArgInfoRefCountFieldInfo = (~) DBusArgInfo - type AttrGetType DBusArgInfoRefCountFieldInfo = Int32 - type AttrLabel DBusArgInfoRefCountFieldInfo = "ref_count" - attrGet _ = dBusArgInfoReadRefCount - attrSet _ = dBusArgInfoWriteRefCount - attrConstruct = undefined - attrClear _ = undefined - -dBusArgInfoRefCount :: AttrLabelProxy "refCount" -dBusArgInfoRefCount = AttrLabelProxy - - -dBusArgInfoReadName :: MonadIO m => DBusArgInfo -> m (Maybe T.Text) -dBusArgInfoReadName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -dBusArgInfoWriteName :: MonadIO m => DBusArgInfo -> CString -> m () -dBusArgInfoWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -dBusArgInfoClearName :: MonadIO m => DBusArgInfo -> m () -dBusArgInfoClearName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data DBusArgInfoNameFieldInfo -instance AttrInfo DBusArgInfoNameFieldInfo where - type AttrAllowedOps DBusArgInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusArgInfoNameFieldInfo = (~) CString - type AttrBaseTypeConstraint DBusArgInfoNameFieldInfo = (~) DBusArgInfo - type AttrGetType DBusArgInfoNameFieldInfo = Maybe T.Text - type AttrLabel DBusArgInfoNameFieldInfo = "name" - attrGet _ = dBusArgInfoReadName - attrSet _ = dBusArgInfoWriteName - attrConstruct = undefined - attrClear _ = dBusArgInfoClearName - -dBusArgInfoName :: AttrLabelProxy "name" -dBusArgInfoName = AttrLabelProxy - - -dBusArgInfoReadSignature :: MonadIO m => DBusArgInfo -> m (Maybe T.Text) -dBusArgInfoReadSignature s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -dBusArgInfoWriteSignature :: MonadIO m => DBusArgInfo -> CString -> m () -dBusArgInfoWriteSignature s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -dBusArgInfoClearSignature :: MonadIO m => DBusArgInfo -> m () -dBusArgInfoClearSignature s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data DBusArgInfoSignatureFieldInfo -instance AttrInfo DBusArgInfoSignatureFieldInfo where - type AttrAllowedOps DBusArgInfoSignatureFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusArgInfoSignatureFieldInfo = (~) CString - type AttrBaseTypeConstraint DBusArgInfoSignatureFieldInfo = (~) DBusArgInfo - type AttrGetType DBusArgInfoSignatureFieldInfo = Maybe T.Text - type AttrLabel DBusArgInfoSignatureFieldInfo = "signature" - attrGet _ = dBusArgInfoReadSignature - attrSet _ = dBusArgInfoWriteSignature - attrConstruct = undefined - attrClear _ = dBusArgInfoClearSignature - -dBusArgInfoSignature :: AttrLabelProxy "signature" -dBusArgInfoSignature = AttrLabelProxy - - -dBusArgInfoReadAnnotations :: MonadIO m => DBusArgInfo -> m (Maybe [DBusAnnotationInfo]) -dBusArgInfoReadAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusAnnotationInfo)) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedPtrArray val' - val''' <- mapM (newBoxed DBusAnnotationInfo) val'' - return val''' - return result - -dBusArgInfoWriteAnnotations :: MonadIO m => DBusArgInfo -> Ptr (Ptr DBusAnnotationInfo) -> m () -dBusArgInfoWriteAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr (Ptr DBusAnnotationInfo)) - -dBusArgInfoClearAnnotations :: MonadIO m => DBusArgInfo -> m () -dBusArgInfoClearAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr (Ptr DBusAnnotationInfo)) - -data DBusArgInfoAnnotationsFieldInfo -instance AttrInfo DBusArgInfoAnnotationsFieldInfo where - type AttrAllowedOps DBusArgInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusArgInfoAnnotationsFieldInfo = (~) (Ptr (Ptr DBusAnnotationInfo)) - type AttrBaseTypeConstraint DBusArgInfoAnnotationsFieldInfo = (~) DBusArgInfo - type AttrGetType DBusArgInfoAnnotationsFieldInfo = Maybe [DBusAnnotationInfo] - type AttrLabel DBusArgInfoAnnotationsFieldInfo = "annotations" - attrGet _ = dBusArgInfoReadAnnotations - attrSet _ = dBusArgInfoWriteAnnotations - attrConstruct = undefined - attrClear _ = dBusArgInfoClearAnnotations - -dBusArgInfoAnnotations :: AttrLabelProxy "annotations" -dBusArgInfoAnnotations = AttrLabelProxy - - - -type instance AttributeList DBusArgInfo = DBusArgInfoAttributeList -type DBusArgInfoAttributeList = ('[ '("refCount", DBusArgInfoRefCountFieldInfo), '("name", DBusArgInfoNameFieldInfo), '("signature", DBusArgInfoSignatureFieldInfo), '("annotations", DBusArgInfoAnnotationsFieldInfo)] :: [(Symbol, *)]) - --- method DBusArgInfo::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusArgInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusArgInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_arg_info_ref" g_dbus_arg_info_ref :: - Ptr DBusArgInfo -> -- _obj : TInterface "Gio" "DBusArgInfo" - IO (Ptr DBusArgInfo) - - -dBusArgInfoRef :: - (MonadIO m) => - DBusArgInfo -- _obj - -> m DBusArgInfo -- result -dBusArgInfoRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_dbus_arg_info_ref _obj' - checkUnexpectedReturnNULL "g_dbus_arg_info_ref" result - result' <- (wrapBoxed DBusArgInfo) result - touchManagedPtr _obj - return result' - -data DBusArgInfoRefMethodInfo -instance (signature ~ (m DBusArgInfo), MonadIO m) => MethodInfo DBusArgInfoRefMethodInfo DBusArgInfo signature where - overloadedMethod _ = dBusArgInfoRef - --- method DBusArgInfo::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusArgInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_arg_info_unref" g_dbus_arg_info_unref :: - Ptr DBusArgInfo -> -- _obj : TInterface "Gio" "DBusArgInfo" - IO () - - -dBusArgInfoUnref :: - (MonadIO m) => - DBusArgInfo -- _obj - -> m () -- result -dBusArgInfoUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_dbus_arg_info_unref _obj' - touchManagedPtr _obj - return () - -data DBusArgInfoUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusArgInfoUnrefMethodInfo DBusArgInfo signature where - overloadedMethod _ = dBusArgInfoUnref - -type family ResolveDBusArgInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusArgInfoMethod "ref" o = DBusArgInfoRefMethodInfo - ResolveDBusArgInfoMethod "unref" o = DBusArgInfoUnrefMethodInfo - ResolveDBusArgInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusArgInfoMethod t DBusArgInfo, MethodInfo info DBusArgInfo p) => IsLabelProxy t (DBusArgInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusArgInfoMethod t DBusArgInfo, MethodInfo info DBusArgInfo p) => IsLabel t (DBusArgInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/DBusArgInfo.hs-boot b/GI/Gio/Structs/DBusArgInfo.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/DBusArgInfo.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gio.Structs.DBusArgInfo where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusArgInfo = DBusArgInfo (ForeignPtr DBusArgInfo) -instance BoxedObject DBusArgInfo where -data DBusArgInfoRefMethodInfo -data DBusArgInfoUnrefMethodInfo diff --git a/GI/Gio/Structs/DBusErrorEntry.hs b/GI/Gio/Structs/DBusErrorEntry.hs deleted file mode 100644 --- a/GI/Gio/Structs/DBusErrorEntry.hs +++ /dev/null @@ -1,140 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Struct used in g_dbus_error_register_error_domain(). --} - -module GI.Gio.Structs.DBusErrorEntry - ( - --- * Exported types - DBusErrorEntry(..) , - newZeroDBusErrorEntry , - noDBusErrorEntry , - - - -- * Properties --- ** DbusErrorName - dBusErrorEntryClearDbusErrorName , - dBusErrorEntryDbusErrorName , - dBusErrorEntryReadDbusErrorName , - dBusErrorEntryWriteDbusErrorName , - - --- ** ErrorCode - dBusErrorEntryErrorCode , - dBusErrorEntryReadErrorCode , - dBusErrorEntryWriteErrorCode , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype DBusErrorEntry = DBusErrorEntry (ForeignPtr DBusErrorEntry) -instance WrappedPtr DBusErrorEntry where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `DBusErrorEntry` struct initialized to zero. -newZeroDBusErrorEntry :: MonadIO m => m DBusErrorEntry -newZeroDBusErrorEntry = liftIO $ wrappedPtrCalloc >>= wrapPtr DBusErrorEntry - -instance tag ~ 'AttrSet => Constructible DBusErrorEntry tag where - new _ attrs = do - o <- newZeroDBusErrorEntry - GI.Attributes.set o attrs - return o - - -noDBusErrorEntry :: Maybe DBusErrorEntry -noDBusErrorEntry = Nothing - -dBusErrorEntryReadErrorCode :: MonadIO m => DBusErrorEntry -> m Int32 -dBusErrorEntryReadErrorCode s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -dBusErrorEntryWriteErrorCode :: MonadIO m => DBusErrorEntry -> Int32 -> m () -dBusErrorEntryWriteErrorCode s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data DBusErrorEntryErrorCodeFieldInfo -instance AttrInfo DBusErrorEntryErrorCodeFieldInfo where - type AttrAllowedOps DBusErrorEntryErrorCodeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DBusErrorEntryErrorCodeFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DBusErrorEntryErrorCodeFieldInfo = (~) DBusErrorEntry - type AttrGetType DBusErrorEntryErrorCodeFieldInfo = Int32 - type AttrLabel DBusErrorEntryErrorCodeFieldInfo = "error_code" - attrGet _ = dBusErrorEntryReadErrorCode - attrSet _ = dBusErrorEntryWriteErrorCode - attrConstruct = undefined - attrClear _ = undefined - -dBusErrorEntryErrorCode :: AttrLabelProxy "errorCode" -dBusErrorEntryErrorCode = AttrLabelProxy - - -dBusErrorEntryReadDbusErrorName :: MonadIO m => DBusErrorEntry -> m (Maybe T.Text) -dBusErrorEntryReadDbusErrorName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -dBusErrorEntryWriteDbusErrorName :: MonadIO m => DBusErrorEntry -> CString -> m () -dBusErrorEntryWriteDbusErrorName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -dBusErrorEntryClearDbusErrorName :: MonadIO m => DBusErrorEntry -> m () -dBusErrorEntryClearDbusErrorName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data DBusErrorEntryDbusErrorNameFieldInfo -instance AttrInfo DBusErrorEntryDbusErrorNameFieldInfo where - type AttrAllowedOps DBusErrorEntryDbusErrorNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusErrorEntryDbusErrorNameFieldInfo = (~) CString - type AttrBaseTypeConstraint DBusErrorEntryDbusErrorNameFieldInfo = (~) DBusErrorEntry - type AttrGetType DBusErrorEntryDbusErrorNameFieldInfo = Maybe T.Text - type AttrLabel DBusErrorEntryDbusErrorNameFieldInfo = "dbus_error_name" - attrGet _ = dBusErrorEntryReadDbusErrorName - attrSet _ = dBusErrorEntryWriteDbusErrorName - attrConstruct = undefined - attrClear _ = dBusErrorEntryClearDbusErrorName - -dBusErrorEntryDbusErrorName :: AttrLabelProxy "dbusErrorName" -dBusErrorEntryDbusErrorName = AttrLabelProxy - - - -type instance AttributeList DBusErrorEntry = DBusErrorEntryAttributeList -type DBusErrorEntryAttributeList = ('[ '("errorCode", DBusErrorEntryErrorCodeFieldInfo), '("dbusErrorName", DBusErrorEntryDbusErrorNameFieldInfo)] :: [(Symbol, *)]) - -type family ResolveDBusErrorEntryMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusErrorEntryMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusErrorEntryMethod t DBusErrorEntry, MethodInfo info DBusErrorEntry p) => IsLabelProxy t (DBusErrorEntry -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusErrorEntryMethod t DBusErrorEntry, MethodInfo info DBusErrorEntry p) => IsLabel t (DBusErrorEntry -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/DBusErrorEntry.hs-boot b/GI/Gio/Structs/DBusErrorEntry.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/DBusErrorEntry.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gio.Structs.DBusErrorEntry where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusErrorEntry = DBusErrorEntry (ForeignPtr DBusErrorEntry) -instance WrappedPtr DBusErrorEntry where diff --git a/GI/Gio/Structs/DBusInterfaceInfo.hs b/GI/Gio/Structs/DBusInterfaceInfo.hs deleted file mode 100644 --- a/GI/Gio/Structs/DBusInterfaceInfo.hs +++ /dev/null @@ -1,594 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Information about a D-Bus interface. --} - -module GI.Gio.Structs.DBusInterfaceInfo - ( - --- * Exported types - DBusInterfaceInfo(..) , - newZeroDBusInterfaceInfo , - noDBusInterfaceInfo , - - - -- * Methods --- ** dBusInterfaceInfoCacheBuild - DBusInterfaceInfoCacheBuildMethodInfo , - dBusInterfaceInfoCacheBuild , - - --- ** dBusInterfaceInfoCacheRelease - DBusInterfaceInfoCacheReleaseMethodInfo , - dBusInterfaceInfoCacheRelease , - - --- ** dBusInterfaceInfoGenerateXml - DBusInterfaceInfoGenerateXmlMethodInfo , - dBusInterfaceInfoGenerateXml , - - --- ** dBusInterfaceInfoLookupMethod - DBusInterfaceInfoLookupMethodMethodInfo , - dBusInterfaceInfoLookupMethod , - - --- ** dBusInterfaceInfoLookupProperty - DBusInterfaceInfoLookupPropertyMethodInfo, - dBusInterfaceInfoLookupProperty , - - --- ** dBusInterfaceInfoLookupSignal - DBusInterfaceInfoLookupSignalMethodInfo , - dBusInterfaceInfoLookupSignal , - - --- ** dBusInterfaceInfoRef - DBusInterfaceInfoRefMethodInfo , - dBusInterfaceInfoRef , - - --- ** dBusInterfaceInfoUnref - DBusInterfaceInfoUnrefMethodInfo , - dBusInterfaceInfoUnref , - - - - - -- * Properties --- ** Annotations - dBusInterfaceInfoAnnotations , - dBusInterfaceInfoClearAnnotations , - dBusInterfaceInfoReadAnnotations , - dBusInterfaceInfoWriteAnnotations , - - --- ** Methods - dBusInterfaceInfoClearMethods , - dBusInterfaceInfoMethods , - dBusInterfaceInfoReadMethods , - dBusInterfaceInfoWriteMethods , - - --- ** Name - dBusInterfaceInfoClearName , - dBusInterfaceInfoName , - dBusInterfaceInfoReadName , - dBusInterfaceInfoWriteName , - - --- ** Properties - dBusInterfaceInfoClearProperties , - dBusInterfaceInfoProperties , - dBusInterfaceInfoReadProperties , - dBusInterfaceInfoWriteProperties , - - --- ** RefCount - dBusInterfaceInfoReadRefCount , - dBusInterfaceInfoRefCount , - dBusInterfaceInfoWriteRefCount , - - --- ** Signals - dBusInterfaceInfoClearSignals , - dBusInterfaceInfoReadSignals , - dBusInterfaceInfoSignals , - dBusInterfaceInfoWriteSignals , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype DBusInterfaceInfo = DBusInterfaceInfo (ForeignPtr DBusInterfaceInfo) -foreign import ccall "g_dbus_interface_info_get_type" c_g_dbus_interface_info_get_type :: - IO GType - -instance BoxedObject DBusInterfaceInfo where - boxedType _ = c_g_dbus_interface_info_get_type - --- | Construct a `DBusInterfaceInfo` struct initialized to zero. -newZeroDBusInterfaceInfo :: MonadIO m => m DBusInterfaceInfo -newZeroDBusInterfaceInfo = liftIO $ callocBoxedBytes 48 >>= wrapBoxed DBusInterfaceInfo - -instance tag ~ 'AttrSet => Constructible DBusInterfaceInfo tag where - new _ attrs = do - o <- newZeroDBusInterfaceInfo - GI.Attributes.set o attrs - return o - - -noDBusInterfaceInfo :: Maybe DBusInterfaceInfo -noDBusInterfaceInfo = Nothing - -dBusInterfaceInfoReadRefCount :: MonadIO m => DBusInterfaceInfo -> m Int32 -dBusInterfaceInfoReadRefCount s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -dBusInterfaceInfoWriteRefCount :: MonadIO m => DBusInterfaceInfo -> Int32 -> m () -dBusInterfaceInfoWriteRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data DBusInterfaceInfoRefCountFieldInfo -instance AttrInfo DBusInterfaceInfoRefCountFieldInfo where - type AttrAllowedOps DBusInterfaceInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DBusInterfaceInfoRefCountFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DBusInterfaceInfoRefCountFieldInfo = (~) DBusInterfaceInfo - type AttrGetType DBusInterfaceInfoRefCountFieldInfo = Int32 - type AttrLabel DBusInterfaceInfoRefCountFieldInfo = "ref_count" - attrGet _ = dBusInterfaceInfoReadRefCount - attrSet _ = dBusInterfaceInfoWriteRefCount - attrConstruct = undefined - attrClear _ = undefined - -dBusInterfaceInfoRefCount :: AttrLabelProxy "refCount" -dBusInterfaceInfoRefCount = AttrLabelProxy - - -dBusInterfaceInfoReadName :: MonadIO m => DBusInterfaceInfo -> m (Maybe T.Text) -dBusInterfaceInfoReadName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -dBusInterfaceInfoWriteName :: MonadIO m => DBusInterfaceInfo -> CString -> m () -dBusInterfaceInfoWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -dBusInterfaceInfoClearName :: MonadIO m => DBusInterfaceInfo -> m () -dBusInterfaceInfoClearName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data DBusInterfaceInfoNameFieldInfo -instance AttrInfo DBusInterfaceInfoNameFieldInfo where - type AttrAllowedOps DBusInterfaceInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusInterfaceInfoNameFieldInfo = (~) CString - type AttrBaseTypeConstraint DBusInterfaceInfoNameFieldInfo = (~) DBusInterfaceInfo - type AttrGetType DBusInterfaceInfoNameFieldInfo = Maybe T.Text - type AttrLabel DBusInterfaceInfoNameFieldInfo = "name" - attrGet _ = dBusInterfaceInfoReadName - attrSet _ = dBusInterfaceInfoWriteName - attrConstruct = undefined - attrClear _ = dBusInterfaceInfoClearName - -dBusInterfaceInfoName :: AttrLabelProxy "name" -dBusInterfaceInfoName = AttrLabelProxy - - -dBusInterfaceInfoReadMethods :: MonadIO m => DBusInterfaceInfo -> m (Maybe [DBusMethodInfo]) -dBusInterfaceInfoReadMethods s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr DBusMethodInfo)) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedPtrArray val' - val''' <- mapM (newBoxed DBusMethodInfo) val'' - return val''' - return result - -dBusInterfaceInfoWriteMethods :: MonadIO m => DBusInterfaceInfo -> Ptr (Ptr DBusMethodInfo) -> m () -dBusInterfaceInfoWriteMethods s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Ptr (Ptr DBusMethodInfo)) - -dBusInterfaceInfoClearMethods :: MonadIO m => DBusInterfaceInfo -> m () -dBusInterfaceInfoClearMethods s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: Ptr (Ptr DBusMethodInfo)) - -data DBusInterfaceInfoMethodsFieldInfo -instance AttrInfo DBusInterfaceInfoMethodsFieldInfo where - type AttrAllowedOps DBusInterfaceInfoMethodsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusInterfaceInfoMethodsFieldInfo = (~) (Ptr (Ptr DBusMethodInfo)) - type AttrBaseTypeConstraint DBusInterfaceInfoMethodsFieldInfo = (~) DBusInterfaceInfo - type AttrGetType DBusInterfaceInfoMethodsFieldInfo = Maybe [DBusMethodInfo] - type AttrLabel DBusInterfaceInfoMethodsFieldInfo = "methods" - attrGet _ = dBusInterfaceInfoReadMethods - attrSet _ = dBusInterfaceInfoWriteMethods - attrConstruct = undefined - attrClear _ = dBusInterfaceInfoClearMethods - -dBusInterfaceInfoMethods :: AttrLabelProxy "methods" -dBusInterfaceInfoMethods = AttrLabelProxy - - -dBusInterfaceInfoReadSignals :: MonadIO m => DBusInterfaceInfo -> m (Maybe [DBusSignalInfo]) -dBusInterfaceInfoReadSignals s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusSignalInfo)) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedPtrArray val' - val''' <- mapM (newBoxed DBusSignalInfo) val'' - return val''' - return result - -dBusInterfaceInfoWriteSignals :: MonadIO m => DBusInterfaceInfo -> Ptr (Ptr DBusSignalInfo) -> m () -dBusInterfaceInfoWriteSignals s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr (Ptr DBusSignalInfo)) - -dBusInterfaceInfoClearSignals :: MonadIO m => DBusInterfaceInfo -> m () -dBusInterfaceInfoClearSignals s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr (Ptr DBusSignalInfo)) - -data DBusInterfaceInfoSignalsFieldInfo -instance AttrInfo DBusInterfaceInfoSignalsFieldInfo where - type AttrAllowedOps DBusInterfaceInfoSignalsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusInterfaceInfoSignalsFieldInfo = (~) (Ptr (Ptr DBusSignalInfo)) - type AttrBaseTypeConstraint DBusInterfaceInfoSignalsFieldInfo = (~) DBusInterfaceInfo - type AttrGetType DBusInterfaceInfoSignalsFieldInfo = Maybe [DBusSignalInfo] - type AttrLabel DBusInterfaceInfoSignalsFieldInfo = "signals" - attrGet _ = dBusInterfaceInfoReadSignals - attrSet _ = dBusInterfaceInfoWriteSignals - attrConstruct = undefined - attrClear _ = dBusInterfaceInfoClearSignals - -dBusInterfaceInfoSignals :: AttrLabelProxy "signals" -dBusInterfaceInfoSignals = AttrLabelProxy - - -dBusInterfaceInfoReadProperties :: MonadIO m => DBusInterfaceInfo -> m (Maybe [DBusPropertyInfo]) -dBusInterfaceInfoReadProperties s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr (Ptr DBusPropertyInfo)) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedPtrArray val' - val''' <- mapM (newBoxed DBusPropertyInfo) val'' - return val''' - return result - -dBusInterfaceInfoWriteProperties :: MonadIO m => DBusInterfaceInfo -> Ptr (Ptr DBusPropertyInfo) -> m () -dBusInterfaceInfoWriteProperties s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr (Ptr DBusPropertyInfo)) - -dBusInterfaceInfoClearProperties :: MonadIO m => DBusInterfaceInfo -> m () -dBusInterfaceInfoClearProperties s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr (Ptr DBusPropertyInfo)) - -data DBusInterfaceInfoPropertiesFieldInfo -instance AttrInfo DBusInterfaceInfoPropertiesFieldInfo where - type AttrAllowedOps DBusInterfaceInfoPropertiesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusInterfaceInfoPropertiesFieldInfo = (~) (Ptr (Ptr DBusPropertyInfo)) - type AttrBaseTypeConstraint DBusInterfaceInfoPropertiesFieldInfo = (~) DBusInterfaceInfo - type AttrGetType DBusInterfaceInfoPropertiesFieldInfo = Maybe [DBusPropertyInfo] - type AttrLabel DBusInterfaceInfoPropertiesFieldInfo = "properties" - attrGet _ = dBusInterfaceInfoReadProperties - attrSet _ = dBusInterfaceInfoWriteProperties - attrConstruct = undefined - attrClear _ = dBusInterfaceInfoClearProperties - -dBusInterfaceInfoProperties :: AttrLabelProxy "properties" -dBusInterfaceInfoProperties = AttrLabelProxy - - -dBusInterfaceInfoReadAnnotations :: MonadIO m => DBusInterfaceInfo -> m (Maybe [DBusAnnotationInfo]) -dBusInterfaceInfoReadAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO (Ptr (Ptr DBusAnnotationInfo)) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedPtrArray val' - val''' <- mapM (newBoxed DBusAnnotationInfo) val'' - return val''' - return result - -dBusInterfaceInfoWriteAnnotations :: MonadIO m => DBusInterfaceInfo -> Ptr (Ptr DBusAnnotationInfo) -> m () -dBusInterfaceInfoWriteAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: Ptr (Ptr DBusAnnotationInfo)) - -dBusInterfaceInfoClearAnnotations :: MonadIO m => DBusInterfaceInfo -> m () -dBusInterfaceInfoClearAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (nullPtr :: Ptr (Ptr DBusAnnotationInfo)) - -data DBusInterfaceInfoAnnotationsFieldInfo -instance AttrInfo DBusInterfaceInfoAnnotationsFieldInfo where - type AttrAllowedOps DBusInterfaceInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusInterfaceInfoAnnotationsFieldInfo = (~) (Ptr (Ptr DBusAnnotationInfo)) - type AttrBaseTypeConstraint DBusInterfaceInfoAnnotationsFieldInfo = (~) DBusInterfaceInfo - type AttrGetType DBusInterfaceInfoAnnotationsFieldInfo = Maybe [DBusAnnotationInfo] - type AttrLabel DBusInterfaceInfoAnnotationsFieldInfo = "annotations" - attrGet _ = dBusInterfaceInfoReadAnnotations - attrSet _ = dBusInterfaceInfoWriteAnnotations - attrConstruct = undefined - attrClear _ = dBusInterfaceInfoClearAnnotations - -dBusInterfaceInfoAnnotations :: AttrLabelProxy "annotations" -dBusInterfaceInfoAnnotations = AttrLabelProxy - - - -type instance AttributeList DBusInterfaceInfo = DBusInterfaceInfoAttributeList -type DBusInterfaceInfoAttributeList = ('[ '("refCount", DBusInterfaceInfoRefCountFieldInfo), '("name", DBusInterfaceInfoNameFieldInfo), '("methods", DBusInterfaceInfoMethodsFieldInfo), '("signals", DBusInterfaceInfoSignalsFieldInfo), '("properties", DBusInterfaceInfoPropertiesFieldInfo), '("annotations", DBusInterfaceInfoAnnotationsFieldInfo)] :: [(Symbol, *)]) - --- method DBusInterfaceInfo::cache_build --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_info_cache_build" g_dbus_interface_info_cache_build :: - Ptr DBusInterfaceInfo -> -- _obj : TInterface "Gio" "DBusInterfaceInfo" - IO () - - -dBusInterfaceInfoCacheBuild :: - (MonadIO m) => - DBusInterfaceInfo -- _obj - -> m () -- result -dBusInterfaceInfoCacheBuild _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_dbus_interface_info_cache_build _obj' - touchManagedPtr _obj - return () - -data DBusInterfaceInfoCacheBuildMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusInterfaceInfoCacheBuildMethodInfo DBusInterfaceInfo signature where - overloadedMethod _ = dBusInterfaceInfoCacheBuild - --- method DBusInterfaceInfo::cache_release --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_info_cache_release" g_dbus_interface_info_cache_release :: - Ptr DBusInterfaceInfo -> -- _obj : TInterface "Gio" "DBusInterfaceInfo" - IO () - - -dBusInterfaceInfoCacheRelease :: - (MonadIO m) => - DBusInterfaceInfo -- _obj - -> m () -- result -dBusInterfaceInfoCacheRelease _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_dbus_interface_info_cache_release _obj' - touchManagedPtr _obj - return () - -data DBusInterfaceInfoCacheReleaseMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusInterfaceInfoCacheReleaseMethodInfo DBusInterfaceInfo signature where - overloadedMethod _ = dBusInterfaceInfoCacheRelease - --- method DBusInterfaceInfo::generate_xml --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indent", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string_builder", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_info_generate_xml" g_dbus_interface_info_generate_xml :: - Ptr DBusInterfaceInfo -> -- _obj : TInterface "Gio" "DBusInterfaceInfo" - Word32 -> -- indent : TBasicType TUInt - Ptr GLib.String -> -- string_builder : TInterface "GLib" "String" - IO () - - -dBusInterfaceInfoGenerateXml :: - (MonadIO m) => - DBusInterfaceInfo -- _obj - -> Word32 -- indent - -> m (GLib.String) -- result -dBusInterfaceInfoGenerateXml _obj indent = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - stringBuilder <- callocBoxedBytes 24 :: IO (Ptr GLib.String) - g_dbus_interface_info_generate_xml _obj' indent stringBuilder - stringBuilder' <- (wrapBoxed GLib.String) stringBuilder - touchManagedPtr _obj - return stringBuilder' - -data DBusInterfaceInfoGenerateXmlMethodInfo -instance (signature ~ (Word32 -> m (GLib.String)), MonadIO m) => MethodInfo DBusInterfaceInfoGenerateXmlMethodInfo DBusInterfaceInfo signature where - overloadedMethod _ = dBusInterfaceInfoGenerateXml - --- method DBusInterfaceInfo::lookup_method --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", 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}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusMethodInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_info_lookup_method" g_dbus_interface_info_lookup_method :: - Ptr DBusInterfaceInfo -> -- _obj : TInterface "Gio" "DBusInterfaceInfo" - CString -> -- name : TBasicType TUTF8 - IO (Ptr DBusMethodInfo) - - -dBusInterfaceInfoLookupMethod :: - (MonadIO m) => - DBusInterfaceInfo -- _obj - -> T.Text -- name - -> m DBusMethodInfo -- result -dBusInterfaceInfoLookupMethod _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- g_dbus_interface_info_lookup_method _obj' name' - checkUnexpectedReturnNULL "g_dbus_interface_info_lookup_method" result - result' <- (newBoxed DBusMethodInfo) result - touchManagedPtr _obj - freeMem name' - return result' - -data DBusInterfaceInfoLookupMethodMethodInfo -instance (signature ~ (T.Text -> m DBusMethodInfo), MonadIO m) => MethodInfo DBusInterfaceInfoLookupMethodMethodInfo DBusInterfaceInfo signature where - overloadedMethod _ = dBusInterfaceInfoLookupMethod - --- method DBusInterfaceInfo::lookup_property --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", 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}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusPropertyInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_info_lookup_property" g_dbus_interface_info_lookup_property :: - Ptr DBusInterfaceInfo -> -- _obj : TInterface "Gio" "DBusInterfaceInfo" - CString -> -- name : TBasicType TUTF8 - IO (Ptr DBusPropertyInfo) - - -dBusInterfaceInfoLookupProperty :: - (MonadIO m) => - DBusInterfaceInfo -- _obj - -> T.Text -- name - -> m DBusPropertyInfo -- result -dBusInterfaceInfoLookupProperty _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- g_dbus_interface_info_lookup_property _obj' name' - checkUnexpectedReturnNULL "g_dbus_interface_info_lookup_property" result - result' <- (newBoxed DBusPropertyInfo) result - touchManagedPtr _obj - freeMem name' - return result' - -data DBusInterfaceInfoLookupPropertyMethodInfo -instance (signature ~ (T.Text -> m DBusPropertyInfo), MonadIO m) => MethodInfo DBusInterfaceInfoLookupPropertyMethodInfo DBusInterfaceInfo signature where - overloadedMethod _ = dBusInterfaceInfoLookupProperty - --- method DBusInterfaceInfo::lookup_signal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", 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}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusSignalInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_info_lookup_signal" g_dbus_interface_info_lookup_signal :: - Ptr DBusInterfaceInfo -> -- _obj : TInterface "Gio" "DBusInterfaceInfo" - CString -> -- name : TBasicType TUTF8 - IO (Ptr DBusSignalInfo) - - -dBusInterfaceInfoLookupSignal :: - (MonadIO m) => - DBusInterfaceInfo -- _obj - -> T.Text -- name - -> m DBusSignalInfo -- result -dBusInterfaceInfoLookupSignal _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- g_dbus_interface_info_lookup_signal _obj' name' - checkUnexpectedReturnNULL "g_dbus_interface_info_lookup_signal" result - result' <- (newBoxed DBusSignalInfo) result - touchManagedPtr _obj - freeMem name' - return result' - -data DBusInterfaceInfoLookupSignalMethodInfo -instance (signature ~ (T.Text -> m DBusSignalInfo), MonadIO m) => MethodInfo DBusInterfaceInfoLookupSignalMethodInfo DBusInterfaceInfo signature where - overloadedMethod _ = dBusInterfaceInfoLookupSignal - --- method DBusInterfaceInfo::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusInterfaceInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_info_ref" g_dbus_interface_info_ref :: - Ptr DBusInterfaceInfo -> -- _obj : TInterface "Gio" "DBusInterfaceInfo" - IO (Ptr DBusInterfaceInfo) - - -dBusInterfaceInfoRef :: - (MonadIO m) => - DBusInterfaceInfo -- _obj - -> m DBusInterfaceInfo -- result -dBusInterfaceInfoRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_dbus_interface_info_ref _obj' - checkUnexpectedReturnNULL "g_dbus_interface_info_ref" result - result' <- (wrapBoxed DBusInterfaceInfo) result - touchManagedPtr _obj - return result' - -data DBusInterfaceInfoRefMethodInfo -instance (signature ~ (m DBusInterfaceInfo), MonadIO m) => MethodInfo DBusInterfaceInfoRefMethodInfo DBusInterfaceInfo signature where - overloadedMethod _ = dBusInterfaceInfoRef - --- method DBusInterfaceInfo::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusInterfaceInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_interface_info_unref" g_dbus_interface_info_unref :: - Ptr DBusInterfaceInfo -> -- _obj : TInterface "Gio" "DBusInterfaceInfo" - IO () - - -dBusInterfaceInfoUnref :: - (MonadIO m) => - DBusInterfaceInfo -- _obj - -> m () -- result -dBusInterfaceInfoUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_dbus_interface_info_unref _obj' - touchManagedPtr _obj - return () - -data DBusInterfaceInfoUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusInterfaceInfoUnrefMethodInfo DBusInterfaceInfo signature where - overloadedMethod _ = dBusInterfaceInfoUnref - -type family ResolveDBusInterfaceInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusInterfaceInfoMethod "cacheBuild" o = DBusInterfaceInfoCacheBuildMethodInfo - ResolveDBusInterfaceInfoMethod "cacheRelease" o = DBusInterfaceInfoCacheReleaseMethodInfo - ResolveDBusInterfaceInfoMethod "generateXml" o = DBusInterfaceInfoGenerateXmlMethodInfo - ResolveDBusInterfaceInfoMethod "lookupMethod" o = DBusInterfaceInfoLookupMethodMethodInfo - ResolveDBusInterfaceInfoMethod "lookupProperty" o = DBusInterfaceInfoLookupPropertyMethodInfo - ResolveDBusInterfaceInfoMethod "lookupSignal" o = DBusInterfaceInfoLookupSignalMethodInfo - ResolveDBusInterfaceInfoMethod "ref" o = DBusInterfaceInfoRefMethodInfo - ResolveDBusInterfaceInfoMethod "unref" o = DBusInterfaceInfoUnrefMethodInfo - ResolveDBusInterfaceInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusInterfaceInfoMethod t DBusInterfaceInfo, MethodInfo info DBusInterfaceInfo p) => IsLabelProxy t (DBusInterfaceInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusInterfaceInfoMethod t DBusInterfaceInfo, MethodInfo info DBusInterfaceInfo p) => IsLabel t (DBusInterfaceInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/DBusInterfaceInfo.hs-boot b/GI/Gio/Structs/DBusInterfaceInfo.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/DBusInterfaceInfo.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gio.Structs.DBusInterfaceInfo where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusInterfaceInfo = DBusInterfaceInfo (ForeignPtr DBusInterfaceInfo) -instance BoxedObject DBusInterfaceInfo where -data DBusInterfaceInfoCacheBuildMethodInfo -data DBusInterfaceInfoCacheReleaseMethodInfo -data DBusInterfaceInfoGenerateXmlMethodInfo -data DBusInterfaceInfoLookupMethodMethodInfo -data DBusInterfaceInfoLookupPropertyMethodInfo -data DBusInterfaceInfoLookupSignalMethodInfo -data DBusInterfaceInfoRefMethodInfo -data DBusInterfaceInfoUnrefMethodInfo diff --git a/GI/Gio/Structs/DBusInterfaceVTable.hs b/GI/Gio/Structs/DBusInterfaceVTable.hs deleted file mode 100644 --- a/GI/Gio/Structs/DBusInterfaceVTable.hs +++ /dev/null @@ -1,110 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Virtual table for handling properties and method calls for a D-Bus -interface. - -Since 2.38, if you want to handle getting/setting D-Bus properties -asynchronously, give %NULL as your get_property() or set_property() -function. The D-Bus call will be directed to your @method_call function, -with the provided @interface_name set to "org.freedesktop.DBus.Properties". - -Ownership of the #GDBusMethodInvocation object passed to the -method_call() function is transferred to your handler; you must -call one of the methods of #GDBusMethodInvocation to return a reply -(possibly empty), or an error. These functions also take ownership -of the passed-in invocation object, so unless the invocation -object has otherwise been referenced, it will be then be freed. -Calling one of these functions may be done within your -method_call() implementation but it also can be done at a later -point to handle the method asynchronously. - -The usual checks on the validity of the calls is performed. For -`Get` calls, an error is automatically returned if the property does -not exist or the permissions do not allow access. The same checks are -performed for `Set` calls, and the provided value is also checked for -being the correct type. - -For both `Get` and `Set` calls, the #GDBusMethodInvocation -passed to the @method_call handler can be queried with -g_dbus_method_invocation_get_property_info() to get a pointer -to the #GDBusPropertyInfo of the property. - -If you have readable properties specified in your interface info, -you must ensure that you either provide a non-%NULL @get_property() -function or provide implementations of both the `Get` and `GetAll` -methods on org.freedesktop.DBus.Properties interface in your @method_call -function. Note that the required return type of the `Get` call is -`(v)`, not the type of the property. `GetAll` expects a return value -of type `a{sv}`. - -If you have writable properties specified in your interface info, -you must ensure that you either provide a non-%NULL @set_property() -function or provide an implementation of the `Set` call. If implementing -the call, you must return the value of type %G_VARIANT_TYPE_UNIT. --} - -module GI.Gio.Structs.DBusInterfaceVTable - ( - --- * Exported types - DBusInterfaceVTable(..) , - newZeroDBusInterfaceVTable , - noDBusInterfaceVTable , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype DBusInterfaceVTable = DBusInterfaceVTable (ForeignPtr DBusInterfaceVTable) -instance WrappedPtr DBusInterfaceVTable where - wrappedPtrCalloc = callocBytes 88 - wrappedPtrCopy = copyPtr 88 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `DBusInterfaceVTable` struct initialized to zero. -newZeroDBusInterfaceVTable :: MonadIO m => m DBusInterfaceVTable -newZeroDBusInterfaceVTable = liftIO $ wrappedPtrCalloc >>= wrapPtr DBusInterfaceVTable - -instance tag ~ 'AttrSet => Constructible DBusInterfaceVTable tag where - new _ attrs = do - o <- newZeroDBusInterfaceVTable - GI.Attributes.set o attrs - return o - - -noDBusInterfaceVTable :: Maybe DBusInterfaceVTable -noDBusInterfaceVTable = Nothing - --- XXX Skipped attribute for "DBusInterfaceVTable:method_call" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "DBusInterfaceVTable:get_property" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "DBusInterfaceVTable:set_property" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -type instance AttributeList DBusInterfaceVTable = DBusInterfaceVTableAttributeList -type DBusInterfaceVTableAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveDBusInterfaceVTableMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusInterfaceVTableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusInterfaceVTableMethod t DBusInterfaceVTable, MethodInfo info DBusInterfaceVTable p) => IsLabelProxy t (DBusInterfaceVTable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusInterfaceVTableMethod t DBusInterfaceVTable, MethodInfo info DBusInterfaceVTable p) => IsLabel t (DBusInterfaceVTable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/DBusInterfaceVTable.hs-boot b/GI/Gio/Structs/DBusInterfaceVTable.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/DBusInterfaceVTable.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gio.Structs.DBusInterfaceVTable where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusInterfaceVTable = DBusInterfaceVTable (ForeignPtr DBusInterfaceVTable) -instance WrappedPtr DBusInterfaceVTable where diff --git a/GI/Gio/Structs/DBusMethodInfo.hs b/GI/Gio/Structs/DBusMethodInfo.hs deleted file mode 100644 --- a/GI/Gio/Structs/DBusMethodInfo.hs +++ /dev/null @@ -1,332 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Information about a method on an D-Bus interface. --} - -module GI.Gio.Structs.DBusMethodInfo - ( - --- * Exported types - DBusMethodInfo(..) , - newZeroDBusMethodInfo , - noDBusMethodInfo , - - - -- * Methods --- ** dBusMethodInfoRef - DBusMethodInfoRefMethodInfo , - dBusMethodInfoRef , - - --- ** dBusMethodInfoUnref - DBusMethodInfoUnrefMethodInfo , - dBusMethodInfoUnref , - - - - - -- * Properties --- ** Annotations - dBusMethodInfoAnnotations , - dBusMethodInfoClearAnnotations , - dBusMethodInfoReadAnnotations , - dBusMethodInfoWriteAnnotations , - - --- ** InArgs - dBusMethodInfoClearInArgs , - dBusMethodInfoInArgs , - dBusMethodInfoReadInArgs , - dBusMethodInfoWriteInArgs , - - --- ** Name - dBusMethodInfoClearName , - dBusMethodInfoName , - dBusMethodInfoReadName , - dBusMethodInfoWriteName , - - --- ** OutArgs - dBusMethodInfoClearOutArgs , - dBusMethodInfoOutArgs , - dBusMethodInfoReadOutArgs , - dBusMethodInfoWriteOutArgs , - - --- ** RefCount - dBusMethodInfoReadRefCount , - dBusMethodInfoRefCount , - dBusMethodInfoWriteRefCount , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype DBusMethodInfo = DBusMethodInfo (ForeignPtr DBusMethodInfo) -foreign import ccall "g_dbus_method_info_get_type" c_g_dbus_method_info_get_type :: - IO GType - -instance BoxedObject DBusMethodInfo where - boxedType _ = c_g_dbus_method_info_get_type - --- | Construct a `DBusMethodInfo` struct initialized to zero. -newZeroDBusMethodInfo :: MonadIO m => m DBusMethodInfo -newZeroDBusMethodInfo = liftIO $ callocBoxedBytes 40 >>= wrapBoxed DBusMethodInfo - -instance tag ~ 'AttrSet => Constructible DBusMethodInfo tag where - new _ attrs = do - o <- newZeroDBusMethodInfo - GI.Attributes.set o attrs - return o - - -noDBusMethodInfo :: Maybe DBusMethodInfo -noDBusMethodInfo = Nothing - -dBusMethodInfoReadRefCount :: MonadIO m => DBusMethodInfo -> m Int32 -dBusMethodInfoReadRefCount s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -dBusMethodInfoWriteRefCount :: MonadIO m => DBusMethodInfo -> Int32 -> m () -dBusMethodInfoWriteRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data DBusMethodInfoRefCountFieldInfo -instance AttrInfo DBusMethodInfoRefCountFieldInfo where - type AttrAllowedOps DBusMethodInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DBusMethodInfoRefCountFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DBusMethodInfoRefCountFieldInfo = (~) DBusMethodInfo - type AttrGetType DBusMethodInfoRefCountFieldInfo = Int32 - type AttrLabel DBusMethodInfoRefCountFieldInfo = "ref_count" - attrGet _ = dBusMethodInfoReadRefCount - attrSet _ = dBusMethodInfoWriteRefCount - attrConstruct = undefined - attrClear _ = undefined - -dBusMethodInfoRefCount :: AttrLabelProxy "refCount" -dBusMethodInfoRefCount = AttrLabelProxy - - -dBusMethodInfoReadName :: MonadIO m => DBusMethodInfo -> m (Maybe T.Text) -dBusMethodInfoReadName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -dBusMethodInfoWriteName :: MonadIO m => DBusMethodInfo -> CString -> m () -dBusMethodInfoWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -dBusMethodInfoClearName :: MonadIO m => DBusMethodInfo -> m () -dBusMethodInfoClearName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data DBusMethodInfoNameFieldInfo -instance AttrInfo DBusMethodInfoNameFieldInfo where - type AttrAllowedOps DBusMethodInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusMethodInfoNameFieldInfo = (~) CString - type AttrBaseTypeConstraint DBusMethodInfoNameFieldInfo = (~) DBusMethodInfo - type AttrGetType DBusMethodInfoNameFieldInfo = Maybe T.Text - type AttrLabel DBusMethodInfoNameFieldInfo = "name" - attrGet _ = dBusMethodInfoReadName - attrSet _ = dBusMethodInfoWriteName - attrConstruct = undefined - attrClear _ = dBusMethodInfoClearName - -dBusMethodInfoName :: AttrLabelProxy "name" -dBusMethodInfoName = AttrLabelProxy - - -dBusMethodInfoReadInArgs :: MonadIO m => DBusMethodInfo -> m (Maybe [DBusArgInfo]) -dBusMethodInfoReadInArgs s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr DBusArgInfo)) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedPtrArray val' - val''' <- mapM (newBoxed DBusArgInfo) val'' - return val''' - return result - -dBusMethodInfoWriteInArgs :: MonadIO m => DBusMethodInfo -> Ptr (Ptr DBusArgInfo) -> m () -dBusMethodInfoWriteInArgs s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Ptr (Ptr DBusArgInfo)) - -dBusMethodInfoClearInArgs :: MonadIO m => DBusMethodInfo -> m () -dBusMethodInfoClearInArgs s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: Ptr (Ptr DBusArgInfo)) - -data DBusMethodInfoInArgsFieldInfo -instance AttrInfo DBusMethodInfoInArgsFieldInfo where - type AttrAllowedOps DBusMethodInfoInArgsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusMethodInfoInArgsFieldInfo = (~) (Ptr (Ptr DBusArgInfo)) - type AttrBaseTypeConstraint DBusMethodInfoInArgsFieldInfo = (~) DBusMethodInfo - type AttrGetType DBusMethodInfoInArgsFieldInfo = Maybe [DBusArgInfo] - type AttrLabel DBusMethodInfoInArgsFieldInfo = "in_args" - attrGet _ = dBusMethodInfoReadInArgs - attrSet _ = dBusMethodInfoWriteInArgs - attrConstruct = undefined - attrClear _ = dBusMethodInfoClearInArgs - -dBusMethodInfoInArgs :: AttrLabelProxy "inArgs" -dBusMethodInfoInArgs = AttrLabelProxy - - -dBusMethodInfoReadOutArgs :: MonadIO m => DBusMethodInfo -> m (Maybe [DBusArgInfo]) -dBusMethodInfoReadOutArgs s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusArgInfo)) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedPtrArray val' - val''' <- mapM (newBoxed DBusArgInfo) val'' - return val''' - return result - -dBusMethodInfoWriteOutArgs :: MonadIO m => DBusMethodInfo -> Ptr (Ptr DBusArgInfo) -> m () -dBusMethodInfoWriteOutArgs s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr (Ptr DBusArgInfo)) - -dBusMethodInfoClearOutArgs :: MonadIO m => DBusMethodInfo -> m () -dBusMethodInfoClearOutArgs s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr (Ptr DBusArgInfo)) - -data DBusMethodInfoOutArgsFieldInfo -instance AttrInfo DBusMethodInfoOutArgsFieldInfo where - type AttrAllowedOps DBusMethodInfoOutArgsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusMethodInfoOutArgsFieldInfo = (~) (Ptr (Ptr DBusArgInfo)) - type AttrBaseTypeConstraint DBusMethodInfoOutArgsFieldInfo = (~) DBusMethodInfo - type AttrGetType DBusMethodInfoOutArgsFieldInfo = Maybe [DBusArgInfo] - type AttrLabel DBusMethodInfoOutArgsFieldInfo = "out_args" - attrGet _ = dBusMethodInfoReadOutArgs - attrSet _ = dBusMethodInfoWriteOutArgs - attrConstruct = undefined - attrClear _ = dBusMethodInfoClearOutArgs - -dBusMethodInfoOutArgs :: AttrLabelProxy "outArgs" -dBusMethodInfoOutArgs = AttrLabelProxy - - -dBusMethodInfoReadAnnotations :: MonadIO m => DBusMethodInfo -> m (Maybe [DBusAnnotationInfo]) -dBusMethodInfoReadAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr (Ptr DBusAnnotationInfo)) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedPtrArray val' - val''' <- mapM (newBoxed DBusAnnotationInfo) val'' - return val''' - return result - -dBusMethodInfoWriteAnnotations :: MonadIO m => DBusMethodInfo -> Ptr (Ptr DBusAnnotationInfo) -> m () -dBusMethodInfoWriteAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr (Ptr DBusAnnotationInfo)) - -dBusMethodInfoClearAnnotations :: MonadIO m => DBusMethodInfo -> m () -dBusMethodInfoClearAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr (Ptr DBusAnnotationInfo)) - -data DBusMethodInfoAnnotationsFieldInfo -instance AttrInfo DBusMethodInfoAnnotationsFieldInfo where - type AttrAllowedOps DBusMethodInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusMethodInfoAnnotationsFieldInfo = (~) (Ptr (Ptr DBusAnnotationInfo)) - type AttrBaseTypeConstraint DBusMethodInfoAnnotationsFieldInfo = (~) DBusMethodInfo - type AttrGetType DBusMethodInfoAnnotationsFieldInfo = Maybe [DBusAnnotationInfo] - type AttrLabel DBusMethodInfoAnnotationsFieldInfo = "annotations" - attrGet _ = dBusMethodInfoReadAnnotations - attrSet _ = dBusMethodInfoWriteAnnotations - attrConstruct = undefined - attrClear _ = dBusMethodInfoClearAnnotations - -dBusMethodInfoAnnotations :: AttrLabelProxy "annotations" -dBusMethodInfoAnnotations = AttrLabelProxy - - - -type instance AttributeList DBusMethodInfo = DBusMethodInfoAttributeList -type DBusMethodInfoAttributeList = ('[ '("refCount", DBusMethodInfoRefCountFieldInfo), '("name", DBusMethodInfoNameFieldInfo), '("inArgs", DBusMethodInfoInArgsFieldInfo), '("outArgs", DBusMethodInfoOutArgsFieldInfo), '("annotations", DBusMethodInfoAnnotationsFieldInfo)] :: [(Symbol, *)]) - --- method DBusMethodInfo::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusMethodInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_info_ref" g_dbus_method_info_ref :: - Ptr DBusMethodInfo -> -- _obj : TInterface "Gio" "DBusMethodInfo" - IO (Ptr DBusMethodInfo) - - -dBusMethodInfoRef :: - (MonadIO m) => - DBusMethodInfo -- _obj - -> m DBusMethodInfo -- result -dBusMethodInfoRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_dbus_method_info_ref _obj' - checkUnexpectedReturnNULL "g_dbus_method_info_ref" result - result' <- (wrapBoxed DBusMethodInfo) result - touchManagedPtr _obj - return result' - -data DBusMethodInfoRefMethodInfo -instance (signature ~ (m DBusMethodInfo), MonadIO m) => MethodInfo DBusMethodInfoRefMethodInfo DBusMethodInfo signature where - overloadedMethod _ = dBusMethodInfoRef - --- method DBusMethodInfo::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusMethodInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_method_info_unref" g_dbus_method_info_unref :: - Ptr DBusMethodInfo -> -- _obj : TInterface "Gio" "DBusMethodInfo" - IO () - - -dBusMethodInfoUnref :: - (MonadIO m) => - DBusMethodInfo -- _obj - -> m () -- result -dBusMethodInfoUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_dbus_method_info_unref _obj' - touchManagedPtr _obj - return () - -data DBusMethodInfoUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusMethodInfoUnrefMethodInfo DBusMethodInfo signature where - overloadedMethod _ = dBusMethodInfoUnref - -type family ResolveDBusMethodInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusMethodInfoMethod "ref" o = DBusMethodInfoRefMethodInfo - ResolveDBusMethodInfoMethod "unref" o = DBusMethodInfoUnrefMethodInfo - ResolveDBusMethodInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusMethodInfoMethod t DBusMethodInfo, MethodInfo info DBusMethodInfo p) => IsLabelProxy t (DBusMethodInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusMethodInfoMethod t DBusMethodInfo, MethodInfo info DBusMethodInfo p) => IsLabel t (DBusMethodInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/DBusMethodInfo.hs-boot b/GI/Gio/Structs/DBusMethodInfo.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/DBusMethodInfo.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gio.Structs.DBusMethodInfo where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusMethodInfo = DBusMethodInfo (ForeignPtr DBusMethodInfo) -instance BoxedObject DBusMethodInfo where -data DBusMethodInfoRefMethodInfo -data DBusMethodInfoUnrefMethodInfo diff --git a/GI/Gio/Structs/DBusNodeInfo.hs b/GI/Gio/Structs/DBusNodeInfo.hs deleted file mode 100644 --- a/GI/Gio/Structs/DBusNodeInfo.hs +++ /dev/null @@ -1,444 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Information about nodes in a remote object hierarchy. --} - -module GI.Gio.Structs.DBusNodeInfo - ( - --- * Exported types - DBusNodeInfo(..) , - newZeroDBusNodeInfo , - noDBusNodeInfo , - - - -- * Methods --- ** dBusNodeInfoGenerateXml - DBusNodeInfoGenerateXmlMethodInfo , - dBusNodeInfoGenerateXml , - - --- ** dBusNodeInfoLookupInterface - DBusNodeInfoLookupInterfaceMethodInfo , - dBusNodeInfoLookupInterface , - - --- ** dBusNodeInfoNewForXml - dBusNodeInfoNewForXml , - - --- ** dBusNodeInfoRef - DBusNodeInfoRefMethodInfo , - dBusNodeInfoRef , - - --- ** dBusNodeInfoUnref - DBusNodeInfoUnrefMethodInfo , - dBusNodeInfoUnref , - - - - - -- * Properties --- ** Annotations - dBusNodeInfoAnnotations , - dBusNodeInfoClearAnnotations , - dBusNodeInfoReadAnnotations , - dBusNodeInfoWriteAnnotations , - - --- ** Interfaces - dBusNodeInfoClearInterfaces , - dBusNodeInfoInterfaces , - dBusNodeInfoReadInterfaces , - dBusNodeInfoWriteInterfaces , - - --- ** Nodes - dBusNodeInfoClearNodes , - dBusNodeInfoNodes , - dBusNodeInfoReadNodes , - dBusNodeInfoWriteNodes , - - --- ** Path - dBusNodeInfoClearPath , - dBusNodeInfoPath , - dBusNodeInfoReadPath , - dBusNodeInfoWritePath , - - --- ** RefCount - dBusNodeInfoReadRefCount , - dBusNodeInfoRefCount , - dBusNodeInfoWriteRefCount , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype DBusNodeInfo = DBusNodeInfo (ForeignPtr DBusNodeInfo) -foreign import ccall "g_dbus_node_info_get_type" c_g_dbus_node_info_get_type :: - IO GType - -instance BoxedObject DBusNodeInfo where - boxedType _ = c_g_dbus_node_info_get_type - --- | Construct a `DBusNodeInfo` struct initialized to zero. -newZeroDBusNodeInfo :: MonadIO m => m DBusNodeInfo -newZeroDBusNodeInfo = liftIO $ callocBoxedBytes 40 >>= wrapBoxed DBusNodeInfo - -instance tag ~ 'AttrSet => Constructible DBusNodeInfo tag where - new _ attrs = do - o <- newZeroDBusNodeInfo - GI.Attributes.set o attrs - return o - - -noDBusNodeInfo :: Maybe DBusNodeInfo -noDBusNodeInfo = Nothing - -dBusNodeInfoReadRefCount :: MonadIO m => DBusNodeInfo -> m Int32 -dBusNodeInfoReadRefCount s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -dBusNodeInfoWriteRefCount :: MonadIO m => DBusNodeInfo -> Int32 -> m () -dBusNodeInfoWriteRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data DBusNodeInfoRefCountFieldInfo -instance AttrInfo DBusNodeInfoRefCountFieldInfo where - type AttrAllowedOps DBusNodeInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DBusNodeInfoRefCountFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DBusNodeInfoRefCountFieldInfo = (~) DBusNodeInfo - type AttrGetType DBusNodeInfoRefCountFieldInfo = Int32 - type AttrLabel DBusNodeInfoRefCountFieldInfo = "ref_count" - attrGet _ = dBusNodeInfoReadRefCount - attrSet _ = dBusNodeInfoWriteRefCount - attrConstruct = undefined - attrClear _ = undefined - -dBusNodeInfoRefCount :: AttrLabelProxy "refCount" -dBusNodeInfoRefCount = AttrLabelProxy - - -dBusNodeInfoReadPath :: MonadIO m => DBusNodeInfo -> m (Maybe T.Text) -dBusNodeInfoReadPath s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -dBusNodeInfoWritePath :: MonadIO m => DBusNodeInfo -> CString -> m () -dBusNodeInfoWritePath s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -dBusNodeInfoClearPath :: MonadIO m => DBusNodeInfo -> m () -dBusNodeInfoClearPath s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data DBusNodeInfoPathFieldInfo -instance AttrInfo DBusNodeInfoPathFieldInfo where - type AttrAllowedOps DBusNodeInfoPathFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusNodeInfoPathFieldInfo = (~) CString - type AttrBaseTypeConstraint DBusNodeInfoPathFieldInfo = (~) DBusNodeInfo - type AttrGetType DBusNodeInfoPathFieldInfo = Maybe T.Text - type AttrLabel DBusNodeInfoPathFieldInfo = "path" - attrGet _ = dBusNodeInfoReadPath - attrSet _ = dBusNodeInfoWritePath - attrConstruct = undefined - attrClear _ = dBusNodeInfoClearPath - -dBusNodeInfoPath :: AttrLabelProxy "path" -dBusNodeInfoPath = AttrLabelProxy - - -dBusNodeInfoReadInterfaces :: MonadIO m => DBusNodeInfo -> m (Maybe [DBusInterfaceInfo]) -dBusNodeInfoReadInterfaces s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr DBusInterfaceInfo)) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedPtrArray val' - val''' <- mapM (newBoxed DBusInterfaceInfo) val'' - return val''' - return result - -dBusNodeInfoWriteInterfaces :: MonadIO m => DBusNodeInfo -> Ptr (Ptr DBusInterfaceInfo) -> m () -dBusNodeInfoWriteInterfaces s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Ptr (Ptr DBusInterfaceInfo)) - -dBusNodeInfoClearInterfaces :: MonadIO m => DBusNodeInfo -> m () -dBusNodeInfoClearInterfaces s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: Ptr (Ptr DBusInterfaceInfo)) - -data DBusNodeInfoInterfacesFieldInfo -instance AttrInfo DBusNodeInfoInterfacesFieldInfo where - type AttrAllowedOps DBusNodeInfoInterfacesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusNodeInfoInterfacesFieldInfo = (~) (Ptr (Ptr DBusInterfaceInfo)) - type AttrBaseTypeConstraint DBusNodeInfoInterfacesFieldInfo = (~) DBusNodeInfo - type AttrGetType DBusNodeInfoInterfacesFieldInfo = Maybe [DBusInterfaceInfo] - type AttrLabel DBusNodeInfoInterfacesFieldInfo = "interfaces" - attrGet _ = dBusNodeInfoReadInterfaces - attrSet _ = dBusNodeInfoWriteInterfaces - attrConstruct = undefined - attrClear _ = dBusNodeInfoClearInterfaces - -dBusNodeInfoInterfaces :: AttrLabelProxy "interfaces" -dBusNodeInfoInterfaces = AttrLabelProxy - - -dBusNodeInfoReadNodes :: MonadIO m => DBusNodeInfo -> m (Maybe [DBusNodeInfo]) -dBusNodeInfoReadNodes s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusNodeInfo)) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedPtrArray val' - val''' <- mapM (newBoxed DBusNodeInfo) val'' - return val''' - return result - -dBusNodeInfoWriteNodes :: MonadIO m => DBusNodeInfo -> Ptr (Ptr DBusNodeInfo) -> m () -dBusNodeInfoWriteNodes s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr (Ptr DBusNodeInfo)) - -dBusNodeInfoClearNodes :: MonadIO m => DBusNodeInfo -> m () -dBusNodeInfoClearNodes s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr (Ptr DBusNodeInfo)) - -data DBusNodeInfoNodesFieldInfo -instance AttrInfo DBusNodeInfoNodesFieldInfo where - type AttrAllowedOps DBusNodeInfoNodesFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusNodeInfoNodesFieldInfo = (~) (Ptr (Ptr DBusNodeInfo)) - type AttrBaseTypeConstraint DBusNodeInfoNodesFieldInfo = (~) DBusNodeInfo - type AttrGetType DBusNodeInfoNodesFieldInfo = Maybe [DBusNodeInfo] - type AttrLabel DBusNodeInfoNodesFieldInfo = "nodes" - attrGet _ = dBusNodeInfoReadNodes - attrSet _ = dBusNodeInfoWriteNodes - attrConstruct = undefined - attrClear _ = dBusNodeInfoClearNodes - -dBusNodeInfoNodes :: AttrLabelProxy "nodes" -dBusNodeInfoNodes = AttrLabelProxy - - -dBusNodeInfoReadAnnotations :: MonadIO m => DBusNodeInfo -> m (Maybe [DBusAnnotationInfo]) -dBusNodeInfoReadAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr (Ptr DBusAnnotationInfo)) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedPtrArray val' - val''' <- mapM (newBoxed DBusAnnotationInfo) val'' - return val''' - return result - -dBusNodeInfoWriteAnnotations :: MonadIO m => DBusNodeInfo -> Ptr (Ptr DBusAnnotationInfo) -> m () -dBusNodeInfoWriteAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr (Ptr DBusAnnotationInfo)) - -dBusNodeInfoClearAnnotations :: MonadIO m => DBusNodeInfo -> m () -dBusNodeInfoClearAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr (Ptr DBusAnnotationInfo)) - -data DBusNodeInfoAnnotationsFieldInfo -instance AttrInfo DBusNodeInfoAnnotationsFieldInfo where - type AttrAllowedOps DBusNodeInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusNodeInfoAnnotationsFieldInfo = (~) (Ptr (Ptr DBusAnnotationInfo)) - type AttrBaseTypeConstraint DBusNodeInfoAnnotationsFieldInfo = (~) DBusNodeInfo - type AttrGetType DBusNodeInfoAnnotationsFieldInfo = Maybe [DBusAnnotationInfo] - type AttrLabel DBusNodeInfoAnnotationsFieldInfo = "annotations" - attrGet _ = dBusNodeInfoReadAnnotations - attrSet _ = dBusNodeInfoWriteAnnotations - attrConstruct = undefined - attrClear _ = dBusNodeInfoClearAnnotations - -dBusNodeInfoAnnotations :: AttrLabelProxy "annotations" -dBusNodeInfoAnnotations = AttrLabelProxy - - - -type instance AttributeList DBusNodeInfo = DBusNodeInfoAttributeList -type DBusNodeInfoAttributeList = ('[ '("refCount", DBusNodeInfoRefCountFieldInfo), '("path", DBusNodeInfoPathFieldInfo), '("interfaces", DBusNodeInfoInterfacesFieldInfo), '("nodes", DBusNodeInfoNodesFieldInfo), '("annotations", DBusNodeInfoAnnotationsFieldInfo)] :: [(Symbol, *)]) - --- method DBusNodeInfo::new_for_xml --- method type : Constructor --- Args : [Arg {argCName = "xml_data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusNodeInfo") --- throws : True --- Skip return : False - -foreign import ccall "g_dbus_node_info_new_for_xml" g_dbus_node_info_new_for_xml :: - CString -> -- xml_data : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr DBusNodeInfo) - - -dBusNodeInfoNewForXml :: - (MonadIO m) => - T.Text -- xmlData - -> m DBusNodeInfo -- result -dBusNodeInfoNewForXml xmlData = liftIO $ do - xmlData' <- textToCString xmlData - onException (do - result <- propagateGError $ g_dbus_node_info_new_for_xml xmlData' - checkUnexpectedReturnNULL "g_dbus_node_info_new_for_xml" result - result' <- (wrapBoxed DBusNodeInfo) result - freeMem xmlData' - return result' - ) (do - freeMem xmlData' - ) - --- method DBusNodeInfo::generate_xml --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "indent", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "string_builder", argType = TInterface "GLib" "String", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_node_info_generate_xml" g_dbus_node_info_generate_xml :: - Ptr DBusNodeInfo -> -- _obj : TInterface "Gio" "DBusNodeInfo" - Word32 -> -- indent : TBasicType TUInt - Ptr GLib.String -> -- string_builder : TInterface "GLib" "String" - IO () - - -dBusNodeInfoGenerateXml :: - (MonadIO m) => - DBusNodeInfo -- _obj - -> Word32 -- indent - -> m (GLib.String) -- result -dBusNodeInfoGenerateXml _obj indent = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - stringBuilder <- callocBoxedBytes 24 :: IO (Ptr GLib.String) - g_dbus_node_info_generate_xml _obj' indent stringBuilder - stringBuilder' <- (wrapBoxed GLib.String) stringBuilder - touchManagedPtr _obj - return stringBuilder' - -data DBusNodeInfoGenerateXmlMethodInfo -instance (signature ~ (Word32 -> m (GLib.String)), MonadIO m) => MethodInfo DBusNodeInfoGenerateXmlMethodInfo DBusNodeInfo signature where - overloadedMethod _ = dBusNodeInfoGenerateXml - --- method DBusNodeInfo::lookup_interface --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", 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}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusInterfaceInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_node_info_lookup_interface" g_dbus_node_info_lookup_interface :: - Ptr DBusNodeInfo -> -- _obj : TInterface "Gio" "DBusNodeInfo" - CString -> -- name : TBasicType TUTF8 - IO (Ptr DBusInterfaceInfo) - - -dBusNodeInfoLookupInterface :: - (MonadIO m) => - DBusNodeInfo -- _obj - -> T.Text -- name - -> m DBusInterfaceInfo -- result -dBusNodeInfoLookupInterface _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- g_dbus_node_info_lookup_interface _obj' name' - checkUnexpectedReturnNULL "g_dbus_node_info_lookup_interface" result - result' <- (newBoxed DBusInterfaceInfo) result - touchManagedPtr _obj - freeMem name' - return result' - -data DBusNodeInfoLookupInterfaceMethodInfo -instance (signature ~ (T.Text -> m DBusInterfaceInfo), MonadIO m) => MethodInfo DBusNodeInfoLookupInterfaceMethodInfo DBusNodeInfo signature where - overloadedMethod _ = dBusNodeInfoLookupInterface - --- method DBusNodeInfo::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusNodeInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_node_info_ref" g_dbus_node_info_ref :: - Ptr DBusNodeInfo -> -- _obj : TInterface "Gio" "DBusNodeInfo" - IO (Ptr DBusNodeInfo) - - -dBusNodeInfoRef :: - (MonadIO m) => - DBusNodeInfo -- _obj - -> m DBusNodeInfo -- result -dBusNodeInfoRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_dbus_node_info_ref _obj' - checkUnexpectedReturnNULL "g_dbus_node_info_ref" result - result' <- (wrapBoxed DBusNodeInfo) result - touchManagedPtr _obj - return result' - -data DBusNodeInfoRefMethodInfo -instance (signature ~ (m DBusNodeInfo), MonadIO m) => MethodInfo DBusNodeInfoRefMethodInfo DBusNodeInfo signature where - overloadedMethod _ = dBusNodeInfoRef - --- method DBusNodeInfo::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusNodeInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_node_info_unref" g_dbus_node_info_unref :: - Ptr DBusNodeInfo -> -- _obj : TInterface "Gio" "DBusNodeInfo" - IO () - - -dBusNodeInfoUnref :: - (MonadIO m) => - DBusNodeInfo -- _obj - -> m () -- result -dBusNodeInfoUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_dbus_node_info_unref _obj' - touchManagedPtr _obj - return () - -data DBusNodeInfoUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusNodeInfoUnrefMethodInfo DBusNodeInfo signature where - overloadedMethod _ = dBusNodeInfoUnref - -type family ResolveDBusNodeInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusNodeInfoMethod "generateXml" o = DBusNodeInfoGenerateXmlMethodInfo - ResolveDBusNodeInfoMethod "lookupInterface" o = DBusNodeInfoLookupInterfaceMethodInfo - ResolveDBusNodeInfoMethod "ref" o = DBusNodeInfoRefMethodInfo - ResolveDBusNodeInfoMethod "unref" o = DBusNodeInfoUnrefMethodInfo - ResolveDBusNodeInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusNodeInfoMethod t DBusNodeInfo, MethodInfo info DBusNodeInfo p) => IsLabelProxy t (DBusNodeInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusNodeInfoMethod t DBusNodeInfo, MethodInfo info DBusNodeInfo p) => IsLabel t (DBusNodeInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/DBusNodeInfo.hs-boot b/GI/Gio/Structs/DBusNodeInfo.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/DBusNodeInfo.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gio.Structs.DBusNodeInfo where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusNodeInfo = DBusNodeInfo (ForeignPtr DBusNodeInfo) -instance BoxedObject DBusNodeInfo where -data DBusNodeInfoGenerateXmlMethodInfo -data DBusNodeInfoLookupInterfaceMethodInfo -data DBusNodeInfoRefMethodInfo -data DBusNodeInfoUnrefMethodInfo diff --git a/GI/Gio/Structs/DBusPropertyInfo.hs b/GI/Gio/Structs/DBusPropertyInfo.hs deleted file mode 100644 --- a/GI/Gio/Structs/DBusPropertyInfo.hs +++ /dev/null @@ -1,324 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Information about a D-Bus property on a D-Bus interface. --} - -module GI.Gio.Structs.DBusPropertyInfo - ( - --- * Exported types - DBusPropertyInfo(..) , - newZeroDBusPropertyInfo , - noDBusPropertyInfo , - - - -- * Methods --- ** dBusPropertyInfoRef - DBusPropertyInfoRefMethodInfo , - dBusPropertyInfoRef , - - --- ** dBusPropertyInfoUnref - DBusPropertyInfoUnrefMethodInfo , - dBusPropertyInfoUnref , - - - - - -- * Properties --- ** Annotations - dBusPropertyInfoAnnotations , - dBusPropertyInfoClearAnnotations , - dBusPropertyInfoReadAnnotations , - dBusPropertyInfoWriteAnnotations , - - --- ** Flags - dBusPropertyInfoFlags , - dBusPropertyInfoReadFlags , - dBusPropertyInfoWriteFlags , - - --- ** Name - dBusPropertyInfoClearName , - dBusPropertyInfoName , - dBusPropertyInfoReadName , - dBusPropertyInfoWriteName , - - --- ** RefCount - dBusPropertyInfoReadRefCount , - dBusPropertyInfoRefCount , - dBusPropertyInfoWriteRefCount , - - --- ** Signature - dBusPropertyInfoClearSignature , - dBusPropertyInfoReadSignature , - dBusPropertyInfoSignature , - dBusPropertyInfoWriteSignature , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype DBusPropertyInfo = DBusPropertyInfo (ForeignPtr DBusPropertyInfo) -foreign import ccall "g_dbus_property_info_get_type" c_g_dbus_property_info_get_type :: - IO GType - -instance BoxedObject DBusPropertyInfo where - boxedType _ = c_g_dbus_property_info_get_type - --- | Construct a `DBusPropertyInfo` struct initialized to zero. -newZeroDBusPropertyInfo :: MonadIO m => m DBusPropertyInfo -newZeroDBusPropertyInfo = liftIO $ callocBoxedBytes 40 >>= wrapBoxed DBusPropertyInfo - -instance tag ~ 'AttrSet => Constructible DBusPropertyInfo tag where - new _ attrs = do - o <- newZeroDBusPropertyInfo - GI.Attributes.set o attrs - return o - - -noDBusPropertyInfo :: Maybe DBusPropertyInfo -noDBusPropertyInfo = Nothing - -dBusPropertyInfoReadRefCount :: MonadIO m => DBusPropertyInfo -> m Int32 -dBusPropertyInfoReadRefCount s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -dBusPropertyInfoWriteRefCount :: MonadIO m => DBusPropertyInfo -> Int32 -> m () -dBusPropertyInfoWriteRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data DBusPropertyInfoRefCountFieldInfo -instance AttrInfo DBusPropertyInfoRefCountFieldInfo where - type AttrAllowedOps DBusPropertyInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DBusPropertyInfoRefCountFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DBusPropertyInfoRefCountFieldInfo = (~) DBusPropertyInfo - type AttrGetType DBusPropertyInfoRefCountFieldInfo = Int32 - type AttrLabel DBusPropertyInfoRefCountFieldInfo = "ref_count" - attrGet _ = dBusPropertyInfoReadRefCount - attrSet _ = dBusPropertyInfoWriteRefCount - attrConstruct = undefined - attrClear _ = undefined - -dBusPropertyInfoRefCount :: AttrLabelProxy "refCount" -dBusPropertyInfoRefCount = AttrLabelProxy - - -dBusPropertyInfoReadName :: MonadIO m => DBusPropertyInfo -> m (Maybe T.Text) -dBusPropertyInfoReadName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -dBusPropertyInfoWriteName :: MonadIO m => DBusPropertyInfo -> CString -> m () -dBusPropertyInfoWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -dBusPropertyInfoClearName :: MonadIO m => DBusPropertyInfo -> m () -dBusPropertyInfoClearName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data DBusPropertyInfoNameFieldInfo -instance AttrInfo DBusPropertyInfoNameFieldInfo where - type AttrAllowedOps DBusPropertyInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusPropertyInfoNameFieldInfo = (~) CString - type AttrBaseTypeConstraint DBusPropertyInfoNameFieldInfo = (~) DBusPropertyInfo - type AttrGetType DBusPropertyInfoNameFieldInfo = Maybe T.Text - type AttrLabel DBusPropertyInfoNameFieldInfo = "name" - attrGet _ = dBusPropertyInfoReadName - attrSet _ = dBusPropertyInfoWriteName - attrConstruct = undefined - attrClear _ = dBusPropertyInfoClearName - -dBusPropertyInfoName :: AttrLabelProxy "name" -dBusPropertyInfoName = AttrLabelProxy - - -dBusPropertyInfoReadSignature :: MonadIO m => DBusPropertyInfo -> m (Maybe T.Text) -dBusPropertyInfoReadSignature s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -dBusPropertyInfoWriteSignature :: MonadIO m => DBusPropertyInfo -> CString -> m () -dBusPropertyInfoWriteSignature s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -dBusPropertyInfoClearSignature :: MonadIO m => DBusPropertyInfo -> m () -dBusPropertyInfoClearSignature s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data DBusPropertyInfoSignatureFieldInfo -instance AttrInfo DBusPropertyInfoSignatureFieldInfo where - type AttrAllowedOps DBusPropertyInfoSignatureFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusPropertyInfoSignatureFieldInfo = (~) CString - type AttrBaseTypeConstraint DBusPropertyInfoSignatureFieldInfo = (~) DBusPropertyInfo - type AttrGetType DBusPropertyInfoSignatureFieldInfo = Maybe T.Text - type AttrLabel DBusPropertyInfoSignatureFieldInfo = "signature" - attrGet _ = dBusPropertyInfoReadSignature - attrSet _ = dBusPropertyInfoWriteSignature - attrConstruct = undefined - attrClear _ = dBusPropertyInfoClearSignature - -dBusPropertyInfoSignature :: AttrLabelProxy "signature" -dBusPropertyInfoSignature = AttrLabelProxy - - -dBusPropertyInfoReadFlags :: MonadIO m => DBusPropertyInfo -> m [DBusPropertyInfoFlags] -dBusPropertyInfoReadFlags s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CUInt - let val' = wordToGFlags val - return val' - -dBusPropertyInfoWriteFlags :: MonadIO m => DBusPropertyInfo -> [DBusPropertyInfoFlags] -> m () -dBusPropertyInfoWriteFlags s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 24) (val' :: CUInt) - -data DBusPropertyInfoFlagsFieldInfo -instance AttrInfo DBusPropertyInfoFlagsFieldInfo where - type AttrAllowedOps DBusPropertyInfoFlagsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DBusPropertyInfoFlagsFieldInfo = (~) [DBusPropertyInfoFlags] - type AttrBaseTypeConstraint DBusPropertyInfoFlagsFieldInfo = (~) DBusPropertyInfo - type AttrGetType DBusPropertyInfoFlagsFieldInfo = [DBusPropertyInfoFlags] - type AttrLabel DBusPropertyInfoFlagsFieldInfo = "flags" - attrGet _ = dBusPropertyInfoReadFlags - attrSet _ = dBusPropertyInfoWriteFlags - attrConstruct = undefined - attrClear _ = undefined - -dBusPropertyInfoFlags :: AttrLabelProxy "flags" -dBusPropertyInfoFlags = AttrLabelProxy - - -dBusPropertyInfoReadAnnotations :: MonadIO m => DBusPropertyInfo -> m (Maybe [DBusAnnotationInfo]) -dBusPropertyInfoReadAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr (Ptr DBusAnnotationInfo)) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedPtrArray val' - val''' <- mapM (newBoxed DBusAnnotationInfo) val'' - return val''' - return result - -dBusPropertyInfoWriteAnnotations :: MonadIO m => DBusPropertyInfo -> Ptr (Ptr DBusAnnotationInfo) -> m () -dBusPropertyInfoWriteAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr (Ptr DBusAnnotationInfo)) - -dBusPropertyInfoClearAnnotations :: MonadIO m => DBusPropertyInfo -> m () -dBusPropertyInfoClearAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr (Ptr DBusAnnotationInfo)) - -data DBusPropertyInfoAnnotationsFieldInfo -instance AttrInfo DBusPropertyInfoAnnotationsFieldInfo where - type AttrAllowedOps DBusPropertyInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusPropertyInfoAnnotationsFieldInfo = (~) (Ptr (Ptr DBusAnnotationInfo)) - type AttrBaseTypeConstraint DBusPropertyInfoAnnotationsFieldInfo = (~) DBusPropertyInfo - type AttrGetType DBusPropertyInfoAnnotationsFieldInfo = Maybe [DBusAnnotationInfo] - type AttrLabel DBusPropertyInfoAnnotationsFieldInfo = "annotations" - attrGet _ = dBusPropertyInfoReadAnnotations - attrSet _ = dBusPropertyInfoWriteAnnotations - attrConstruct = undefined - attrClear _ = dBusPropertyInfoClearAnnotations - -dBusPropertyInfoAnnotations :: AttrLabelProxy "annotations" -dBusPropertyInfoAnnotations = AttrLabelProxy - - - -type instance AttributeList DBusPropertyInfo = DBusPropertyInfoAttributeList -type DBusPropertyInfoAttributeList = ('[ '("refCount", DBusPropertyInfoRefCountFieldInfo), '("name", DBusPropertyInfoNameFieldInfo), '("signature", DBusPropertyInfoSignatureFieldInfo), '("flags", DBusPropertyInfoFlagsFieldInfo), '("annotations", DBusPropertyInfoAnnotationsFieldInfo)] :: [(Symbol, *)]) - --- method DBusPropertyInfo::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusPropertyInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusPropertyInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_property_info_ref" g_dbus_property_info_ref :: - Ptr DBusPropertyInfo -> -- _obj : TInterface "Gio" "DBusPropertyInfo" - IO (Ptr DBusPropertyInfo) - - -dBusPropertyInfoRef :: - (MonadIO m) => - DBusPropertyInfo -- _obj - -> m DBusPropertyInfo -- result -dBusPropertyInfoRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_dbus_property_info_ref _obj' - checkUnexpectedReturnNULL "g_dbus_property_info_ref" result - result' <- (wrapBoxed DBusPropertyInfo) result - touchManagedPtr _obj - return result' - -data DBusPropertyInfoRefMethodInfo -instance (signature ~ (m DBusPropertyInfo), MonadIO m) => MethodInfo DBusPropertyInfoRefMethodInfo DBusPropertyInfo signature where - overloadedMethod _ = dBusPropertyInfoRef - --- method DBusPropertyInfo::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusPropertyInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_property_info_unref" g_dbus_property_info_unref :: - Ptr DBusPropertyInfo -> -- _obj : TInterface "Gio" "DBusPropertyInfo" - IO () - - -dBusPropertyInfoUnref :: - (MonadIO m) => - DBusPropertyInfo -- _obj - -> m () -- result -dBusPropertyInfoUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_dbus_property_info_unref _obj' - touchManagedPtr _obj - return () - -data DBusPropertyInfoUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusPropertyInfoUnrefMethodInfo DBusPropertyInfo signature where - overloadedMethod _ = dBusPropertyInfoUnref - -type family ResolveDBusPropertyInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusPropertyInfoMethod "ref" o = DBusPropertyInfoRefMethodInfo - ResolveDBusPropertyInfoMethod "unref" o = DBusPropertyInfoUnrefMethodInfo - ResolveDBusPropertyInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusPropertyInfoMethod t DBusPropertyInfo, MethodInfo info DBusPropertyInfo p) => IsLabelProxy t (DBusPropertyInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusPropertyInfoMethod t DBusPropertyInfo, MethodInfo info DBusPropertyInfo p) => IsLabel t (DBusPropertyInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/DBusPropertyInfo.hs-boot b/GI/Gio/Structs/DBusPropertyInfo.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/DBusPropertyInfo.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gio.Structs.DBusPropertyInfo where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusPropertyInfo = DBusPropertyInfo (ForeignPtr DBusPropertyInfo) -instance BoxedObject DBusPropertyInfo where -data DBusPropertyInfoRefMethodInfo -data DBusPropertyInfoUnrefMethodInfo diff --git a/GI/Gio/Structs/DBusSignalInfo.hs b/GI/Gio/Structs/DBusSignalInfo.hs deleted file mode 100644 --- a/GI/Gio/Structs/DBusSignalInfo.hs +++ /dev/null @@ -1,292 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Information about a signal on a D-Bus interface. --} - -module GI.Gio.Structs.DBusSignalInfo - ( - --- * Exported types - DBusSignalInfo(..) , - newZeroDBusSignalInfo , - noDBusSignalInfo , - - - -- * Methods --- ** dBusSignalInfoRef - DBusSignalInfoRefMethodInfo , - dBusSignalInfoRef , - - --- ** dBusSignalInfoUnref - DBusSignalInfoUnrefMethodInfo , - dBusSignalInfoUnref , - - - - - -- * Properties --- ** Annotations - dBusSignalInfoAnnotations , - dBusSignalInfoClearAnnotations , - dBusSignalInfoReadAnnotations , - dBusSignalInfoWriteAnnotations , - - --- ** Args - dBusSignalInfoArgs , - dBusSignalInfoClearArgs , - dBusSignalInfoReadArgs , - dBusSignalInfoWriteArgs , - - --- ** Name - dBusSignalInfoClearName , - dBusSignalInfoName , - dBusSignalInfoReadName , - dBusSignalInfoWriteName , - - --- ** RefCount - dBusSignalInfoReadRefCount , - dBusSignalInfoRefCount , - dBusSignalInfoWriteRefCount , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype DBusSignalInfo = DBusSignalInfo (ForeignPtr DBusSignalInfo) -foreign import ccall "g_dbus_signal_info_get_type" c_g_dbus_signal_info_get_type :: - IO GType - -instance BoxedObject DBusSignalInfo where - boxedType _ = c_g_dbus_signal_info_get_type - --- | Construct a `DBusSignalInfo` struct initialized to zero. -newZeroDBusSignalInfo :: MonadIO m => m DBusSignalInfo -newZeroDBusSignalInfo = liftIO $ callocBoxedBytes 32 >>= wrapBoxed DBusSignalInfo - -instance tag ~ 'AttrSet => Constructible DBusSignalInfo tag where - new _ attrs = do - o <- newZeroDBusSignalInfo - GI.Attributes.set o attrs - return o - - -noDBusSignalInfo :: Maybe DBusSignalInfo -noDBusSignalInfo = Nothing - -dBusSignalInfoReadRefCount :: MonadIO m => DBusSignalInfo -> m Int32 -dBusSignalInfoReadRefCount s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -dBusSignalInfoWriteRefCount :: MonadIO m => DBusSignalInfo -> Int32 -> m () -dBusSignalInfoWriteRefCount s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data DBusSignalInfoRefCountFieldInfo -instance AttrInfo DBusSignalInfoRefCountFieldInfo where - type AttrAllowedOps DBusSignalInfoRefCountFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DBusSignalInfoRefCountFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DBusSignalInfoRefCountFieldInfo = (~) DBusSignalInfo - type AttrGetType DBusSignalInfoRefCountFieldInfo = Int32 - type AttrLabel DBusSignalInfoRefCountFieldInfo = "ref_count" - attrGet _ = dBusSignalInfoReadRefCount - attrSet _ = dBusSignalInfoWriteRefCount - attrConstruct = undefined - attrClear _ = undefined - -dBusSignalInfoRefCount :: AttrLabelProxy "refCount" -dBusSignalInfoRefCount = AttrLabelProxy - - -dBusSignalInfoReadName :: MonadIO m => DBusSignalInfo -> m (Maybe T.Text) -dBusSignalInfoReadName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -dBusSignalInfoWriteName :: MonadIO m => DBusSignalInfo -> CString -> m () -dBusSignalInfoWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -dBusSignalInfoClearName :: MonadIO m => DBusSignalInfo -> m () -dBusSignalInfoClearName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data DBusSignalInfoNameFieldInfo -instance AttrInfo DBusSignalInfoNameFieldInfo where - type AttrAllowedOps DBusSignalInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusSignalInfoNameFieldInfo = (~) CString - type AttrBaseTypeConstraint DBusSignalInfoNameFieldInfo = (~) DBusSignalInfo - type AttrGetType DBusSignalInfoNameFieldInfo = Maybe T.Text - type AttrLabel DBusSignalInfoNameFieldInfo = "name" - attrGet _ = dBusSignalInfoReadName - attrSet _ = dBusSignalInfoWriteName - attrConstruct = undefined - attrClear _ = dBusSignalInfoClearName - -dBusSignalInfoName :: AttrLabelProxy "name" -dBusSignalInfoName = AttrLabelProxy - - -dBusSignalInfoReadArgs :: MonadIO m => DBusSignalInfo -> m (Maybe [DBusArgInfo]) -dBusSignalInfoReadArgs s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO (Ptr (Ptr DBusArgInfo)) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedPtrArray val' - val''' <- mapM (newBoxed DBusArgInfo) val'' - return val''' - return result - -dBusSignalInfoWriteArgs :: MonadIO m => DBusSignalInfo -> Ptr (Ptr DBusArgInfo) -> m () -dBusSignalInfoWriteArgs s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Ptr (Ptr DBusArgInfo)) - -dBusSignalInfoClearArgs :: MonadIO m => DBusSignalInfo -> m () -dBusSignalInfoClearArgs s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: Ptr (Ptr DBusArgInfo)) - -data DBusSignalInfoArgsFieldInfo -instance AttrInfo DBusSignalInfoArgsFieldInfo where - type AttrAllowedOps DBusSignalInfoArgsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusSignalInfoArgsFieldInfo = (~) (Ptr (Ptr DBusArgInfo)) - type AttrBaseTypeConstraint DBusSignalInfoArgsFieldInfo = (~) DBusSignalInfo - type AttrGetType DBusSignalInfoArgsFieldInfo = Maybe [DBusArgInfo] - type AttrLabel DBusSignalInfoArgsFieldInfo = "args" - attrGet _ = dBusSignalInfoReadArgs - attrSet _ = dBusSignalInfoWriteArgs - attrConstruct = undefined - attrClear _ = dBusSignalInfoClearArgs - -dBusSignalInfoArgs :: AttrLabelProxy "args" -dBusSignalInfoArgs = AttrLabelProxy - - -dBusSignalInfoReadAnnotations :: MonadIO m => DBusSignalInfo -> m (Maybe [DBusAnnotationInfo]) -dBusSignalInfoReadAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO (Ptr (Ptr DBusAnnotationInfo)) - result <- convertIfNonNull val $ \val' -> do - val'' <- unpackZeroTerminatedPtrArray val' - val''' <- mapM (newBoxed DBusAnnotationInfo) val'' - return val''' - return result - -dBusSignalInfoWriteAnnotations :: MonadIO m => DBusSignalInfo -> Ptr (Ptr DBusAnnotationInfo) -> m () -dBusSignalInfoWriteAnnotations s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: Ptr (Ptr DBusAnnotationInfo)) - -dBusSignalInfoClearAnnotations :: MonadIO m => DBusSignalInfo -> m () -dBusSignalInfoClearAnnotations s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: Ptr (Ptr DBusAnnotationInfo)) - -data DBusSignalInfoAnnotationsFieldInfo -instance AttrInfo DBusSignalInfoAnnotationsFieldInfo where - type AttrAllowedOps DBusSignalInfoAnnotationsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint DBusSignalInfoAnnotationsFieldInfo = (~) (Ptr (Ptr DBusAnnotationInfo)) - type AttrBaseTypeConstraint DBusSignalInfoAnnotationsFieldInfo = (~) DBusSignalInfo - type AttrGetType DBusSignalInfoAnnotationsFieldInfo = Maybe [DBusAnnotationInfo] - type AttrLabel DBusSignalInfoAnnotationsFieldInfo = "annotations" - attrGet _ = dBusSignalInfoReadAnnotations - attrSet _ = dBusSignalInfoWriteAnnotations - attrConstruct = undefined - attrClear _ = dBusSignalInfoClearAnnotations - -dBusSignalInfoAnnotations :: AttrLabelProxy "annotations" -dBusSignalInfoAnnotations = AttrLabelProxy - - - -type instance AttributeList DBusSignalInfo = DBusSignalInfoAttributeList -type DBusSignalInfoAttributeList = ('[ '("refCount", DBusSignalInfoRefCountFieldInfo), '("name", DBusSignalInfoNameFieldInfo), '("args", DBusSignalInfoArgsFieldInfo), '("annotations", DBusSignalInfoAnnotationsFieldInfo)] :: [(Symbol, *)]) - --- method DBusSignalInfo::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusSignalInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "DBusSignalInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_signal_info_ref" g_dbus_signal_info_ref :: - Ptr DBusSignalInfo -> -- _obj : TInterface "Gio" "DBusSignalInfo" - IO (Ptr DBusSignalInfo) - - -dBusSignalInfoRef :: - (MonadIO m) => - DBusSignalInfo -- _obj - -> m DBusSignalInfo -- result -dBusSignalInfoRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_dbus_signal_info_ref _obj' - checkUnexpectedReturnNULL "g_dbus_signal_info_ref" result - result' <- (wrapBoxed DBusSignalInfo) result - touchManagedPtr _obj - return result' - -data DBusSignalInfoRefMethodInfo -instance (signature ~ (m DBusSignalInfo), MonadIO m) => MethodInfo DBusSignalInfoRefMethodInfo DBusSignalInfo signature where - overloadedMethod _ = dBusSignalInfoRef - --- method DBusSignalInfo::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "DBusSignalInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_dbus_signal_info_unref" g_dbus_signal_info_unref :: - Ptr DBusSignalInfo -> -- _obj : TInterface "Gio" "DBusSignalInfo" - IO () - - -dBusSignalInfoUnref :: - (MonadIO m) => - DBusSignalInfo -- _obj - -> m () -- result -dBusSignalInfoUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_dbus_signal_info_unref _obj' - touchManagedPtr _obj - return () - -data DBusSignalInfoUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo DBusSignalInfoUnrefMethodInfo DBusSignalInfo signature where - overloadedMethod _ = dBusSignalInfoUnref - -type family ResolveDBusSignalInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusSignalInfoMethod "ref" o = DBusSignalInfoRefMethodInfo - ResolveDBusSignalInfoMethod "unref" o = DBusSignalInfoUnrefMethodInfo - ResolveDBusSignalInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusSignalInfoMethod t DBusSignalInfo, MethodInfo info DBusSignalInfo p) => IsLabelProxy t (DBusSignalInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusSignalInfoMethod t DBusSignalInfo, MethodInfo info DBusSignalInfo p) => IsLabel t (DBusSignalInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/DBusSignalInfo.hs-boot b/GI/Gio/Structs/DBusSignalInfo.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/DBusSignalInfo.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gio.Structs.DBusSignalInfo where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusSignalInfo = DBusSignalInfo (ForeignPtr DBusSignalInfo) -instance BoxedObject DBusSignalInfo where -data DBusSignalInfoRefMethodInfo -data DBusSignalInfoUnrefMethodInfo diff --git a/GI/Gio/Structs/DBusSubtreeVTable.hs b/GI/Gio/Structs/DBusSubtreeVTable.hs deleted file mode 100644 --- a/GI/Gio/Structs/DBusSubtreeVTable.hs +++ /dev/null @@ -1,69 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Virtual table for handling subtrees registered with g_dbus_connection_register_subtree(). --} - -module GI.Gio.Structs.DBusSubtreeVTable - ( - --- * Exported types - DBusSubtreeVTable(..) , - newZeroDBusSubtreeVTable , - noDBusSubtreeVTable , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype DBusSubtreeVTable = DBusSubtreeVTable (ForeignPtr DBusSubtreeVTable) -instance WrappedPtr DBusSubtreeVTable where - wrappedPtrCalloc = callocBytes 88 - wrappedPtrCopy = copyPtr 88 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `DBusSubtreeVTable` struct initialized to zero. -newZeroDBusSubtreeVTable :: MonadIO m => m DBusSubtreeVTable -newZeroDBusSubtreeVTable = liftIO $ wrappedPtrCalloc >>= wrapPtr DBusSubtreeVTable - -instance tag ~ 'AttrSet => Constructible DBusSubtreeVTable tag where - new _ attrs = do - o <- newZeroDBusSubtreeVTable - GI.Attributes.set o attrs - return o - - -noDBusSubtreeVTable :: Maybe DBusSubtreeVTable -noDBusSubtreeVTable = Nothing - --- XXX Skipped attribute for "DBusSubtreeVTable:introspect" :: Not implemented: "Wrapping foreign callbacks is not supported yet" --- XXX Skipped attribute for "DBusSubtreeVTable:dispatch" :: Not implemented: "Wrapping foreign callbacks is not supported yet" - -type instance AttributeList DBusSubtreeVTable = DBusSubtreeVTableAttributeList -type DBusSubtreeVTableAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveDBusSubtreeVTableMethod (t :: Symbol) (o :: *) :: * where - ResolveDBusSubtreeVTableMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDBusSubtreeVTableMethod t DBusSubtreeVTable, MethodInfo info DBusSubtreeVTable p) => IsLabelProxy t (DBusSubtreeVTable -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDBusSubtreeVTableMethod t DBusSubtreeVTable, MethodInfo info DBusSubtreeVTable p) => IsLabel t (DBusSubtreeVTable -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/DBusSubtreeVTable.hs-boot b/GI/Gio/Structs/DBusSubtreeVTable.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/DBusSubtreeVTable.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gio.Structs.DBusSubtreeVTable where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype DBusSubtreeVTable = DBusSubtreeVTable (ForeignPtr DBusSubtreeVTable) -instance WrappedPtr DBusSubtreeVTable where diff --git a/GI/Gio/Structs/FileAttributeInfo.hs b/GI/Gio/Structs/FileAttributeInfo.hs deleted file mode 100644 --- a/GI/Gio/Structs/FileAttributeInfo.hs +++ /dev/null @@ -1,175 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Information about a specific attribute. --} - -module GI.Gio.Structs.FileAttributeInfo - ( - --- * Exported types - FileAttributeInfo(..) , - newZeroFileAttributeInfo , - noFileAttributeInfo , - - - -- * Properties --- ** Flags - fileAttributeInfoFlags , - fileAttributeInfoReadFlags , - fileAttributeInfoWriteFlags , - - --- ** Name - fileAttributeInfoClearName , - fileAttributeInfoName , - fileAttributeInfoReadName , - fileAttributeInfoWriteName , - - --- ** Type - fileAttributeInfoReadType , - fileAttributeInfoType , - fileAttributeInfoWriteType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype FileAttributeInfo = FileAttributeInfo (ForeignPtr FileAttributeInfo) -instance WrappedPtr FileAttributeInfo where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `FileAttributeInfo` struct initialized to zero. -newZeroFileAttributeInfo :: MonadIO m => m FileAttributeInfo -newZeroFileAttributeInfo = liftIO $ wrappedPtrCalloc >>= wrapPtr FileAttributeInfo - -instance tag ~ 'AttrSet => Constructible FileAttributeInfo tag where - new _ attrs = do - o <- newZeroFileAttributeInfo - GI.Attributes.set o attrs - return o - - -noFileAttributeInfo :: Maybe FileAttributeInfo -noFileAttributeInfo = Nothing - -fileAttributeInfoReadName :: MonadIO m => FileAttributeInfo -> m (Maybe T.Text) -fileAttributeInfoReadName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -fileAttributeInfoWriteName :: MonadIO m => FileAttributeInfo -> CString -> m () -fileAttributeInfoWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -fileAttributeInfoClearName :: MonadIO m => FileAttributeInfo -> m () -fileAttributeInfoClearName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data FileAttributeInfoNameFieldInfo -instance AttrInfo FileAttributeInfoNameFieldInfo where - type AttrAllowedOps FileAttributeInfoNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FileAttributeInfoNameFieldInfo = (~) CString - type AttrBaseTypeConstraint FileAttributeInfoNameFieldInfo = (~) FileAttributeInfo - type AttrGetType FileAttributeInfoNameFieldInfo = Maybe T.Text - type AttrLabel FileAttributeInfoNameFieldInfo = "name" - attrGet _ = fileAttributeInfoReadName - attrSet _ = fileAttributeInfoWriteName - attrConstruct = undefined - attrClear _ = fileAttributeInfoClearName - -fileAttributeInfoName :: AttrLabelProxy "name" -fileAttributeInfoName = AttrLabelProxy - - -fileAttributeInfoReadType :: MonadIO m => FileAttributeInfo -> m FileAttributeType -fileAttributeInfoReadType s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CUInt - let val' = (toEnum . fromIntegral) val - return val' - -fileAttributeInfoWriteType :: MonadIO m => FileAttributeInfo -> FileAttributeType -> m () -fileAttributeInfoWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 8) (val' :: CUInt) - -data FileAttributeInfoTypeFieldInfo -instance AttrInfo FileAttributeInfoTypeFieldInfo where - type AttrAllowedOps FileAttributeInfoTypeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint FileAttributeInfoTypeFieldInfo = (~) FileAttributeType - type AttrBaseTypeConstraint FileAttributeInfoTypeFieldInfo = (~) FileAttributeInfo - type AttrGetType FileAttributeInfoTypeFieldInfo = FileAttributeType - type AttrLabel FileAttributeInfoTypeFieldInfo = "type" - attrGet _ = fileAttributeInfoReadType - attrSet _ = fileAttributeInfoWriteType - attrConstruct = undefined - attrClear _ = undefined - -fileAttributeInfoType :: AttrLabelProxy "type" -fileAttributeInfoType = AttrLabelProxy - - -fileAttributeInfoReadFlags :: MonadIO m => FileAttributeInfo -> m [FileAttributeInfoFlags] -fileAttributeInfoReadFlags s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO CUInt - let val' = wordToGFlags val - return val' - -fileAttributeInfoWriteFlags :: MonadIO m => FileAttributeInfo -> [FileAttributeInfoFlags] -> m () -fileAttributeInfoWriteFlags s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = gflagsToWord val - poke (ptr `plusPtr` 12) (val' :: CUInt) - -data FileAttributeInfoFlagsFieldInfo -instance AttrInfo FileAttributeInfoFlagsFieldInfo where - type AttrAllowedOps FileAttributeInfoFlagsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint FileAttributeInfoFlagsFieldInfo = (~) [FileAttributeInfoFlags] - type AttrBaseTypeConstraint FileAttributeInfoFlagsFieldInfo = (~) FileAttributeInfo - type AttrGetType FileAttributeInfoFlagsFieldInfo = [FileAttributeInfoFlags] - type AttrLabel FileAttributeInfoFlagsFieldInfo = "flags" - attrGet _ = fileAttributeInfoReadFlags - attrSet _ = fileAttributeInfoWriteFlags - attrConstruct = undefined - attrClear _ = undefined - -fileAttributeInfoFlags :: AttrLabelProxy "flags" -fileAttributeInfoFlags = AttrLabelProxy - - - -type instance AttributeList FileAttributeInfo = FileAttributeInfoAttributeList -type FileAttributeInfoAttributeList = ('[ '("name", FileAttributeInfoNameFieldInfo), '("type", FileAttributeInfoTypeFieldInfo), '("flags", FileAttributeInfoFlagsFieldInfo)] :: [(Symbol, *)]) - -type family ResolveFileAttributeInfoMethod (t :: Symbol) (o :: *) :: * where - ResolveFileAttributeInfoMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileAttributeInfoMethod t FileAttributeInfo, MethodInfo info FileAttributeInfo p) => IsLabelProxy t (FileAttributeInfo -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileAttributeInfoMethod t FileAttributeInfo, MethodInfo info FileAttributeInfo p) => IsLabel t (FileAttributeInfo -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/FileAttributeInfo.hs-boot b/GI/Gio/Structs/FileAttributeInfo.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/FileAttributeInfo.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gio.Structs.FileAttributeInfo where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FileAttributeInfo = FileAttributeInfo (ForeignPtr FileAttributeInfo) -instance WrappedPtr FileAttributeInfo where diff --git a/GI/Gio/Structs/FileAttributeInfoList.hs b/GI/Gio/Structs/FileAttributeInfoList.hs deleted file mode 100644 --- a/GI/Gio/Structs/FileAttributeInfoList.hs +++ /dev/null @@ -1,355 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Acts as a lightweight registry for possible valid file attributes. -The registry stores Key-Value pair formats as #GFileAttributeInfos. --} - -module GI.Gio.Structs.FileAttributeInfoList - ( - --- * Exported types - FileAttributeInfoList(..) , - newZeroFileAttributeInfoList , - noFileAttributeInfoList , - - - -- * Methods --- ** fileAttributeInfoListAdd - FileAttributeInfoListAddMethodInfo , - fileAttributeInfoListAdd , - - --- ** fileAttributeInfoListDup - FileAttributeInfoListDupMethodInfo , - fileAttributeInfoListDup , - - --- ** fileAttributeInfoListLookup - FileAttributeInfoListLookupMethodInfo , - fileAttributeInfoListLookup , - - --- ** fileAttributeInfoListNew - fileAttributeInfoListNew , - - --- ** fileAttributeInfoListRef - FileAttributeInfoListRefMethodInfo , - fileAttributeInfoListRef , - - --- ** fileAttributeInfoListUnref - FileAttributeInfoListUnrefMethodInfo , - fileAttributeInfoListUnref , - - - - - -- * Properties --- ** Infos - fileAttributeInfoListClearInfos , - fileAttributeInfoListInfos , - fileAttributeInfoListReadInfos , - fileAttributeInfoListWriteInfos , - - --- ** NInfos - fileAttributeInfoListNInfos , - fileAttributeInfoListReadNInfos , - fileAttributeInfoListWriteNInfos , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype FileAttributeInfoList = FileAttributeInfoList (ForeignPtr FileAttributeInfoList) -foreign import ccall "g_file_attribute_info_list_get_type" c_g_file_attribute_info_list_get_type :: - IO GType - -instance BoxedObject FileAttributeInfoList where - boxedType _ = c_g_file_attribute_info_list_get_type - --- | Construct a `FileAttributeInfoList` struct initialized to zero. -newZeroFileAttributeInfoList :: MonadIO m => m FileAttributeInfoList -newZeroFileAttributeInfoList = liftIO $ callocBoxedBytes 16 >>= wrapBoxed FileAttributeInfoList - -instance tag ~ 'AttrSet => Constructible FileAttributeInfoList tag where - new _ attrs = do - o <- newZeroFileAttributeInfoList - GI.Attributes.set o attrs - return o - - -noFileAttributeInfoList :: Maybe FileAttributeInfoList -noFileAttributeInfoList = Nothing - -fileAttributeInfoListReadInfos :: MonadIO m => FileAttributeInfoList -> m (Maybe FileAttributeInfo) -fileAttributeInfoListReadInfos s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr FileAttributeInfo) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr FileAttributeInfo) val' - return val'' - return result - -fileAttributeInfoListWriteInfos :: MonadIO m => FileAttributeInfoList -> Ptr FileAttributeInfo -> m () -fileAttributeInfoListWriteInfos s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr FileAttributeInfo) - -fileAttributeInfoListClearInfos :: MonadIO m => FileAttributeInfoList -> m () -fileAttributeInfoListClearInfos s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr FileAttributeInfo) - -data FileAttributeInfoListInfosFieldInfo -instance AttrInfo FileAttributeInfoListInfosFieldInfo where - type AttrAllowedOps FileAttributeInfoListInfosFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint FileAttributeInfoListInfosFieldInfo = (~) (Ptr FileAttributeInfo) - type AttrBaseTypeConstraint FileAttributeInfoListInfosFieldInfo = (~) FileAttributeInfoList - type AttrGetType FileAttributeInfoListInfosFieldInfo = Maybe FileAttributeInfo - type AttrLabel FileAttributeInfoListInfosFieldInfo = "infos" - attrGet _ = fileAttributeInfoListReadInfos - attrSet _ = fileAttributeInfoListWriteInfos - attrConstruct = undefined - attrClear _ = fileAttributeInfoListClearInfos - -fileAttributeInfoListInfos :: AttrLabelProxy "infos" -fileAttributeInfoListInfos = AttrLabelProxy - - -fileAttributeInfoListReadNInfos :: MonadIO m => FileAttributeInfoList -> m Int32 -fileAttributeInfoListReadNInfos s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -fileAttributeInfoListWriteNInfos :: MonadIO m => FileAttributeInfoList -> Int32 -> m () -fileAttributeInfoListWriteNInfos s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Int32) - -data FileAttributeInfoListNInfosFieldInfo -instance AttrInfo FileAttributeInfoListNInfosFieldInfo where - type AttrAllowedOps FileAttributeInfoListNInfosFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint FileAttributeInfoListNInfosFieldInfo = (~) Int32 - type AttrBaseTypeConstraint FileAttributeInfoListNInfosFieldInfo = (~) FileAttributeInfoList - type AttrGetType FileAttributeInfoListNInfosFieldInfo = Int32 - type AttrLabel FileAttributeInfoListNInfosFieldInfo = "n_infos" - attrGet _ = fileAttributeInfoListReadNInfos - attrSet _ = fileAttributeInfoListWriteNInfos - attrConstruct = undefined - attrClear _ = undefined - -fileAttributeInfoListNInfos :: AttrLabelProxy "nInfos" -fileAttributeInfoListNInfos = AttrLabelProxy - - - -type instance AttributeList FileAttributeInfoList = FileAttributeInfoListAttributeList -type FileAttributeInfoListAttributeList = ('[ '("infos", FileAttributeInfoListInfosFieldInfo), '("nInfos", FileAttributeInfoListNInfosFieldInfo)] :: [(Symbol, *)]) - --- method FileAttributeInfoList::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileAttributeInfoList") --- throws : False --- Skip return : False - -foreign import ccall "g_file_attribute_info_list_new" g_file_attribute_info_list_new :: - IO (Ptr FileAttributeInfoList) - - -fileAttributeInfoListNew :: - (MonadIO m) => - m FileAttributeInfoList -- result -fileAttributeInfoListNew = liftIO $ do - result <- g_file_attribute_info_list_new - checkUnexpectedReturnNULL "g_file_attribute_info_list_new" result - result' <- (wrapBoxed FileAttributeInfoList) result - return result' - --- method FileAttributeInfoList::add --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", 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 = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gio" "FileAttributeInfoFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_attribute_info_list_add" g_file_attribute_info_list_add :: - Ptr FileAttributeInfoList -> -- _obj : TInterface "Gio" "FileAttributeInfoList" - CString -> -- name : TBasicType TUTF8 - CUInt -> -- type : TInterface "Gio" "FileAttributeType" - CUInt -> -- flags : TInterface "Gio" "FileAttributeInfoFlags" - IO () - - -fileAttributeInfoListAdd :: - (MonadIO m) => - FileAttributeInfoList -- _obj - -> T.Text -- name - -> FileAttributeType -- type_ - -> [FileAttributeInfoFlags] -- flags - -> m () -- result -fileAttributeInfoListAdd _obj name type_ flags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - let type_' = (fromIntegral . fromEnum) type_ - let flags' = gflagsToWord flags - g_file_attribute_info_list_add _obj' name' type_' flags' - touchManagedPtr _obj - freeMem name' - return () - -data FileAttributeInfoListAddMethodInfo -instance (signature ~ (T.Text -> FileAttributeType -> [FileAttributeInfoFlags] -> m ()), MonadIO m) => MethodInfo FileAttributeInfoListAddMethodInfo FileAttributeInfoList signature where - overloadedMethod _ = fileAttributeInfoListAdd - --- method FileAttributeInfoList::dup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileAttributeInfoList") --- throws : False --- Skip return : False - -foreign import ccall "g_file_attribute_info_list_dup" g_file_attribute_info_list_dup :: - Ptr FileAttributeInfoList -> -- _obj : TInterface "Gio" "FileAttributeInfoList" - IO (Ptr FileAttributeInfoList) - - -fileAttributeInfoListDup :: - (MonadIO m) => - FileAttributeInfoList -- _obj - -> m FileAttributeInfoList -- result -fileAttributeInfoListDup _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_file_attribute_info_list_dup _obj' - checkUnexpectedReturnNULL "g_file_attribute_info_list_dup" result - result' <- (wrapBoxed FileAttributeInfoList) result - touchManagedPtr _obj - return result' - -data FileAttributeInfoListDupMethodInfo -instance (signature ~ (m FileAttributeInfoList), MonadIO m) => MethodInfo FileAttributeInfoListDupMethodInfo FileAttributeInfoList signature where - overloadedMethod _ = fileAttributeInfoListDup - --- method FileAttributeInfoList::lookup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", 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}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileAttributeInfo") --- throws : False --- Skip return : False - -foreign import ccall "g_file_attribute_info_list_lookup" g_file_attribute_info_list_lookup :: - Ptr FileAttributeInfoList -> -- _obj : TInterface "Gio" "FileAttributeInfoList" - CString -> -- name : TBasicType TUTF8 - IO (Ptr FileAttributeInfo) - - -fileAttributeInfoListLookup :: - (MonadIO m) => - FileAttributeInfoList -- _obj - -> T.Text -- name - -> m FileAttributeInfo -- result -fileAttributeInfoListLookup _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- g_file_attribute_info_list_lookup _obj' name' - checkUnexpectedReturnNULL "g_file_attribute_info_list_lookup" result - result' <- (newPtr FileAttributeInfo) result - touchManagedPtr _obj - freeMem name' - return result' - -data FileAttributeInfoListLookupMethodInfo -instance (signature ~ (T.Text -> m FileAttributeInfo), MonadIO m) => MethodInfo FileAttributeInfoListLookupMethodInfo FileAttributeInfoList signature where - overloadedMethod _ = fileAttributeInfoListLookup - --- method FileAttributeInfoList::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileAttributeInfoList") --- throws : False --- Skip return : False - -foreign import ccall "g_file_attribute_info_list_ref" g_file_attribute_info_list_ref :: - Ptr FileAttributeInfoList -> -- _obj : TInterface "Gio" "FileAttributeInfoList" - IO (Ptr FileAttributeInfoList) - - -fileAttributeInfoListRef :: - (MonadIO m) => - FileAttributeInfoList -- _obj - -> m FileAttributeInfoList -- result -fileAttributeInfoListRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_file_attribute_info_list_ref _obj' - checkUnexpectedReturnNULL "g_file_attribute_info_list_ref" result - result' <- (wrapBoxed FileAttributeInfoList) result - touchManagedPtr _obj - return result' - -data FileAttributeInfoListRefMethodInfo -instance (signature ~ (m FileAttributeInfoList), MonadIO m) => MethodInfo FileAttributeInfoListRefMethodInfo FileAttributeInfoList signature where - overloadedMethod _ = fileAttributeInfoListRef - --- method FileAttributeInfoList::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeInfoList", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_attribute_info_list_unref" g_file_attribute_info_list_unref :: - Ptr FileAttributeInfoList -> -- _obj : TInterface "Gio" "FileAttributeInfoList" - IO () - - -fileAttributeInfoListUnref :: - (MonadIO m) => - FileAttributeInfoList -- _obj - -> m () -- result -fileAttributeInfoListUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_file_attribute_info_list_unref _obj' - touchManagedPtr _obj - return () - -data FileAttributeInfoListUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo FileAttributeInfoListUnrefMethodInfo FileAttributeInfoList signature where - overloadedMethod _ = fileAttributeInfoListUnref - -type family ResolveFileAttributeInfoListMethod (t :: Symbol) (o :: *) :: * where - ResolveFileAttributeInfoListMethod "add" o = FileAttributeInfoListAddMethodInfo - ResolveFileAttributeInfoListMethod "dup" o = FileAttributeInfoListDupMethodInfo - ResolveFileAttributeInfoListMethod "lookup" o = FileAttributeInfoListLookupMethodInfo - ResolveFileAttributeInfoListMethod "ref" o = FileAttributeInfoListRefMethodInfo - ResolveFileAttributeInfoListMethod "unref" o = FileAttributeInfoListUnrefMethodInfo - ResolveFileAttributeInfoListMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileAttributeInfoListMethod t FileAttributeInfoList, MethodInfo info FileAttributeInfoList p) => IsLabelProxy t (FileAttributeInfoList -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileAttributeInfoListMethod t FileAttributeInfoList, MethodInfo info FileAttributeInfoList p) => IsLabel t (FileAttributeInfoList -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/FileAttributeInfoList.hs-boot b/GI/Gio/Structs/FileAttributeInfoList.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/FileAttributeInfoList.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Gio.Structs.FileAttributeInfoList where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FileAttributeInfoList = FileAttributeInfoList (ForeignPtr FileAttributeInfoList) -instance BoxedObject FileAttributeInfoList where -data FileAttributeInfoListAddMethodInfo -data FileAttributeInfoListDupMethodInfo -data FileAttributeInfoListLookupMethodInfo -data FileAttributeInfoListRefMethodInfo -data FileAttributeInfoListUnrefMethodInfo diff --git a/GI/Gio/Structs/FileAttributeMatcher.hs b/GI/Gio/Structs/FileAttributeMatcher.hs deleted file mode 100644 --- a/GI/Gio/Structs/FileAttributeMatcher.hs +++ /dev/null @@ -1,380 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Determines if a string matches a file attribute. --} - -module GI.Gio.Structs.FileAttributeMatcher - ( - --- * Exported types - FileAttributeMatcher(..) , - noFileAttributeMatcher , - - - -- * Methods --- ** fileAttributeMatcherEnumerateNamespace - FileAttributeMatcherEnumerateNamespaceMethodInfo, - fileAttributeMatcherEnumerateNamespace , - - --- ** fileAttributeMatcherEnumerateNext - FileAttributeMatcherEnumerateNextMethodInfo, - fileAttributeMatcherEnumerateNext , - - --- ** fileAttributeMatcherMatches - FileAttributeMatcherMatchesMethodInfo , - fileAttributeMatcherMatches , - - --- ** fileAttributeMatcherMatchesOnly - FileAttributeMatcherMatchesOnlyMethodInfo, - fileAttributeMatcherMatchesOnly , - - --- ** fileAttributeMatcherNew - fileAttributeMatcherNew , - - --- ** fileAttributeMatcherRef - FileAttributeMatcherRefMethodInfo , - fileAttributeMatcherRef , - - --- ** fileAttributeMatcherSubtract - FileAttributeMatcherSubtractMethodInfo , - fileAttributeMatcherSubtract , - - --- ** fileAttributeMatcherToString - FileAttributeMatcherToStringMethodInfo , - fileAttributeMatcherToString , - - --- ** fileAttributeMatcherUnref - FileAttributeMatcherUnrefMethodInfo , - fileAttributeMatcherUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype FileAttributeMatcher = FileAttributeMatcher (ForeignPtr FileAttributeMatcher) -foreign import ccall "g_file_attribute_matcher_get_type" c_g_file_attribute_matcher_get_type :: - IO GType - -instance BoxedObject FileAttributeMatcher where - boxedType _ = c_g_file_attribute_matcher_get_type - -noFileAttributeMatcher :: Maybe FileAttributeMatcher -noFileAttributeMatcher = Nothing - - -type instance AttributeList FileAttributeMatcher = FileAttributeMatcherAttributeList -type FileAttributeMatcherAttributeList = ('[ ] :: [(Symbol, *)]) - --- method FileAttributeMatcher::new --- method type : Constructor --- Args : [Arg {argCName = "attributes", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileAttributeMatcher") --- throws : False --- Skip return : False - -foreign import ccall "g_file_attribute_matcher_new" g_file_attribute_matcher_new :: - CString -> -- attributes : TBasicType TUTF8 - IO (Ptr FileAttributeMatcher) - - -fileAttributeMatcherNew :: - (MonadIO m) => - T.Text -- attributes - -> m FileAttributeMatcher -- result -fileAttributeMatcherNew attributes = liftIO $ do - attributes' <- textToCString attributes - result <- g_file_attribute_matcher_new attributes' - checkUnexpectedReturnNULL "g_file_attribute_matcher_new" result - result' <- (wrapBoxed FileAttributeMatcher) result - freeMem attributes' - return result' - --- method FileAttributeMatcher::enumerate_namespace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ns", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_attribute_matcher_enumerate_namespace" g_file_attribute_matcher_enumerate_namespace :: - Ptr FileAttributeMatcher -> -- _obj : TInterface "Gio" "FileAttributeMatcher" - CString -> -- ns : TBasicType TUTF8 - IO CInt - - -fileAttributeMatcherEnumerateNamespace :: - (MonadIO m) => - FileAttributeMatcher -- _obj - -> T.Text -- ns - -> m Bool -- result -fileAttributeMatcherEnumerateNamespace _obj ns = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - ns' <- textToCString ns - result <- g_file_attribute_matcher_enumerate_namespace _obj' ns' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem ns' - return result' - -data FileAttributeMatcherEnumerateNamespaceMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo FileAttributeMatcherEnumerateNamespaceMethodInfo FileAttributeMatcher signature where - overloadedMethod _ = fileAttributeMatcherEnumerateNamespace - --- method FileAttributeMatcher::enumerate_next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_attribute_matcher_enumerate_next" g_file_attribute_matcher_enumerate_next :: - Ptr FileAttributeMatcher -> -- _obj : TInterface "Gio" "FileAttributeMatcher" - IO CString - - -fileAttributeMatcherEnumerateNext :: - (MonadIO m) => - FileAttributeMatcher -- _obj - -> m T.Text -- result -fileAttributeMatcherEnumerateNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_file_attribute_matcher_enumerate_next _obj' - checkUnexpectedReturnNULL "g_file_attribute_matcher_enumerate_next" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data FileAttributeMatcherEnumerateNextMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FileAttributeMatcherEnumerateNextMethodInfo FileAttributeMatcher signature where - overloadedMethod _ = fileAttributeMatcherEnumerateNext - --- method FileAttributeMatcher::matches --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_attribute_matcher_matches" g_file_attribute_matcher_matches :: - Ptr FileAttributeMatcher -> -- _obj : TInterface "Gio" "FileAttributeMatcher" - CString -> -- attribute : TBasicType TUTF8 - IO CInt - - -fileAttributeMatcherMatches :: - (MonadIO m) => - FileAttributeMatcher -- _obj - -> T.Text -- attribute - -> m Bool -- result -fileAttributeMatcherMatches _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - attribute' <- textToCString attribute - result <- g_file_attribute_matcher_matches _obj' attribute' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem attribute' - return result' - -data FileAttributeMatcherMatchesMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo FileAttributeMatcherMatchesMethodInfo FileAttributeMatcher signature where - overloadedMethod _ = fileAttributeMatcherMatches - --- method FileAttributeMatcher::matches_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_file_attribute_matcher_matches_only" g_file_attribute_matcher_matches_only :: - Ptr FileAttributeMatcher -> -- _obj : TInterface "Gio" "FileAttributeMatcher" - CString -> -- attribute : TBasicType TUTF8 - IO CInt - - -fileAttributeMatcherMatchesOnly :: - (MonadIO m) => - FileAttributeMatcher -- _obj - -> T.Text -- attribute - -> m Bool -- result -fileAttributeMatcherMatchesOnly _obj attribute = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - attribute' <- textToCString attribute - result <- g_file_attribute_matcher_matches_only _obj' attribute' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem attribute' - return result' - -data FileAttributeMatcherMatchesOnlyMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo FileAttributeMatcherMatchesOnlyMethodInfo FileAttributeMatcher signature where - overloadedMethod _ = fileAttributeMatcherMatchesOnly - --- method FileAttributeMatcher::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileAttributeMatcher") --- throws : False --- Skip return : False - -foreign import ccall "g_file_attribute_matcher_ref" g_file_attribute_matcher_ref :: - Ptr FileAttributeMatcher -> -- _obj : TInterface "Gio" "FileAttributeMatcher" - IO (Ptr FileAttributeMatcher) - - -fileAttributeMatcherRef :: - (MonadIO m) => - FileAttributeMatcher -- _obj - -> m FileAttributeMatcher -- result -fileAttributeMatcherRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_file_attribute_matcher_ref _obj' - checkUnexpectedReturnNULL "g_file_attribute_matcher_ref" result - result' <- (wrapBoxed FileAttributeMatcher) result - touchManagedPtr _obj - return result' - -data FileAttributeMatcherRefMethodInfo -instance (signature ~ (m FileAttributeMatcher), MonadIO m) => MethodInfo FileAttributeMatcherRefMethodInfo FileAttributeMatcher signature where - overloadedMethod _ = fileAttributeMatcherRef - --- method FileAttributeMatcher::subtract --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "subtract", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "FileAttributeMatcher") --- throws : False --- Skip return : False - -foreign import ccall "g_file_attribute_matcher_subtract" g_file_attribute_matcher_subtract :: - Ptr FileAttributeMatcher -> -- _obj : TInterface "Gio" "FileAttributeMatcher" - Ptr FileAttributeMatcher -> -- subtract : TInterface "Gio" "FileAttributeMatcher" - IO (Ptr FileAttributeMatcher) - - -fileAttributeMatcherSubtract :: - (MonadIO m) => - FileAttributeMatcher -- _obj - -> FileAttributeMatcher -- subtract - -> m FileAttributeMatcher -- result -fileAttributeMatcherSubtract _obj subtract = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let subtract' = unsafeManagedPtrGetPtr subtract - result <- g_file_attribute_matcher_subtract _obj' subtract' - checkUnexpectedReturnNULL "g_file_attribute_matcher_subtract" result - result' <- (wrapBoxed FileAttributeMatcher) result - touchManagedPtr _obj - touchManagedPtr subtract - return result' - -data FileAttributeMatcherSubtractMethodInfo -instance (signature ~ (FileAttributeMatcher -> m FileAttributeMatcher), MonadIO m) => MethodInfo FileAttributeMatcherSubtractMethodInfo FileAttributeMatcher signature where - overloadedMethod _ = fileAttributeMatcherSubtract - --- method FileAttributeMatcher::to_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_file_attribute_matcher_to_string" g_file_attribute_matcher_to_string :: - Ptr FileAttributeMatcher -> -- _obj : TInterface "Gio" "FileAttributeMatcher" - IO CString - - -fileAttributeMatcherToString :: - (MonadIO m) => - FileAttributeMatcher -- _obj - -> m T.Text -- result -fileAttributeMatcherToString _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_file_attribute_matcher_to_string _obj' - checkUnexpectedReturnNULL "g_file_attribute_matcher_to_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data FileAttributeMatcherToStringMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo FileAttributeMatcherToStringMethodInfo FileAttributeMatcher signature where - overloadedMethod _ = fileAttributeMatcherToString - --- method FileAttributeMatcher::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_file_attribute_matcher_unref" g_file_attribute_matcher_unref :: - Ptr FileAttributeMatcher -> -- _obj : TInterface "Gio" "FileAttributeMatcher" - IO () - - -fileAttributeMatcherUnref :: - (MonadIO m) => - FileAttributeMatcher -- _obj - -> m () -- result -fileAttributeMatcherUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_file_attribute_matcher_unref _obj' - touchManagedPtr _obj - return () - -data FileAttributeMatcherUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo FileAttributeMatcherUnrefMethodInfo FileAttributeMatcher signature where - overloadedMethod _ = fileAttributeMatcherUnref - -type family ResolveFileAttributeMatcherMethod (t :: Symbol) (o :: *) :: * where - ResolveFileAttributeMatcherMethod "enumerateNamespace" o = FileAttributeMatcherEnumerateNamespaceMethodInfo - ResolveFileAttributeMatcherMethod "enumerateNext" o = FileAttributeMatcherEnumerateNextMethodInfo - ResolveFileAttributeMatcherMethod "matches" o = FileAttributeMatcherMatchesMethodInfo - ResolveFileAttributeMatcherMethod "matchesOnly" o = FileAttributeMatcherMatchesOnlyMethodInfo - ResolveFileAttributeMatcherMethod "ref" o = FileAttributeMatcherRefMethodInfo - ResolveFileAttributeMatcherMethod "subtract" o = FileAttributeMatcherSubtractMethodInfo - ResolveFileAttributeMatcherMethod "toString" o = FileAttributeMatcherToStringMethodInfo - ResolveFileAttributeMatcherMethod "unref" o = FileAttributeMatcherUnrefMethodInfo - ResolveFileAttributeMatcherMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveFileAttributeMatcherMethod t FileAttributeMatcher, MethodInfo info FileAttributeMatcher p) => IsLabelProxy t (FileAttributeMatcher -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveFileAttributeMatcherMethod t FileAttributeMatcher, MethodInfo info FileAttributeMatcher p) => IsLabel t (FileAttributeMatcher -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/FileAttributeMatcher.hs-boot b/GI/Gio/Structs/FileAttributeMatcher.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/FileAttributeMatcher.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gio.Structs.FileAttributeMatcher where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype FileAttributeMatcher = FileAttributeMatcher (ForeignPtr FileAttributeMatcher) -instance BoxedObject FileAttributeMatcher where -data FileAttributeMatcherEnumerateNamespaceMethodInfo -data FileAttributeMatcherEnumerateNextMethodInfo -data FileAttributeMatcherMatchesMethodInfo -data FileAttributeMatcherMatchesOnlyMethodInfo -data FileAttributeMatcherRefMethodInfo -data FileAttributeMatcherSubtractMethodInfo -data FileAttributeMatcherToStringMethodInfo -data FileAttributeMatcherUnrefMethodInfo diff --git a/GI/Gio/Structs/IOExtension.hs b/GI/Gio/Structs/IOExtension.hs deleted file mode 100644 --- a/GI/Gio/Structs/IOExtension.hs +++ /dev/null @@ -1,162 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -#GIOExtension is an opaque data structure and can only be accessed -using the following functions. --} - -module GI.Gio.Structs.IOExtension - ( - --- * Exported types - IOExtension(..) , - noIOExtension , - - - -- * Methods --- ** iOExtensionGetName - IOExtensionGetNameMethodInfo , - iOExtensionGetName , - - --- ** iOExtensionGetPriority - IOExtensionGetPriorityMethodInfo , - iOExtensionGetPriority , - - --- ** iOExtensionGetType - IOExtensionGetTypeMethodInfo , - iOExtensionGetType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype IOExtension = IOExtension (ForeignPtr IOExtension) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr IOExtension where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noIOExtension :: Maybe IOExtension -noIOExtension = Nothing - - -type instance AttributeList IOExtension = IOExtensionAttributeList -type IOExtensionAttributeList = ('[ ] :: [(Symbol, *)]) - --- method IOExtension::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_io_extension_get_name" g_io_extension_get_name :: - Ptr IOExtension -> -- _obj : TInterface "Gio" "IOExtension" - IO CString - - -iOExtensionGetName :: - (MonadIO m) => - IOExtension -- _obj - -> m T.Text -- result -iOExtensionGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_extension_get_name _obj' - checkUnexpectedReturnNULL "g_io_extension_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data IOExtensionGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo IOExtensionGetNameMethodInfo IOExtension signature where - overloadedMethod _ = iOExtensionGetName - --- method IOExtension::get_priority --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_io_extension_get_priority" g_io_extension_get_priority :: - Ptr IOExtension -> -- _obj : TInterface "Gio" "IOExtension" - IO Int32 - - -iOExtensionGetPriority :: - (MonadIO m) => - IOExtension -- _obj - -> m Int32 -- result -iOExtensionGetPriority _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_extension_get_priority _obj' - touchManagedPtr _obj - return result - -data IOExtensionGetPriorityMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo IOExtensionGetPriorityMethodInfo IOExtension signature where - overloadedMethod _ = iOExtensionGetPriority - --- method IOExtension::get_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtension", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TGType) --- throws : False --- Skip return : False - -foreign import ccall "g_io_extension_get_type" g_io_extension_get_type :: - Ptr IOExtension -> -- _obj : TInterface "Gio" "IOExtension" - IO CGType - - -iOExtensionGetType :: - (MonadIO m) => - IOExtension -- _obj - -> m GType -- result -iOExtensionGetType _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_extension_get_type _obj' - let result' = GType result - touchManagedPtr _obj - return result' - -data IOExtensionGetTypeMethodInfo -instance (signature ~ (m GType), MonadIO m) => MethodInfo IOExtensionGetTypeMethodInfo IOExtension signature where - overloadedMethod _ = iOExtensionGetType - -type family ResolveIOExtensionMethod (t :: Symbol) (o :: *) :: * where - ResolveIOExtensionMethod "getName" o = IOExtensionGetNameMethodInfo - ResolveIOExtensionMethod "getPriority" o = IOExtensionGetPriorityMethodInfo - ResolveIOExtensionMethod "getType" o = IOExtensionGetTypeMethodInfo - ResolveIOExtensionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIOExtensionMethod t IOExtension, MethodInfo info IOExtension p) => IsLabelProxy t (IOExtension -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIOExtensionMethod t IOExtension, MethodInfo info IOExtension p) => IsLabel t (IOExtension -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/IOExtension.hs-boot b/GI/Gio/Structs/IOExtension.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/IOExtension.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gio.Structs.IOExtension where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IOExtension = IOExtension (ForeignPtr IOExtension) -instance WrappedPtr IOExtension where -data IOExtensionGetNameMethodInfo -data IOExtensionGetPriorityMethodInfo -data IOExtensionGetTypeMethodInfo diff --git a/GI/Gio/Structs/IOExtensionPoint.hs b/GI/Gio/Structs/IOExtensionPoint.hs deleted file mode 100644 --- a/GI/Gio/Structs/IOExtensionPoint.hs +++ /dev/null @@ -1,300 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -#GIOExtensionPoint is an opaque data structure and can only be accessed -using the following functions. --} - -module GI.Gio.Structs.IOExtensionPoint - ( - --- * Exported types - IOExtensionPoint(..) , - noIOExtensionPoint , - - - -- * Methods --- ** iOExtensionPointGetExtensionByName - IOExtensionPointGetExtensionByNameMethodInfo, - iOExtensionPointGetExtensionByName , - - --- ** iOExtensionPointGetExtensions - IOExtensionPointGetExtensionsMethodInfo , - iOExtensionPointGetExtensions , - - --- ** iOExtensionPointGetRequiredType - IOExtensionPointGetRequiredTypeMethodInfo, - iOExtensionPointGetRequiredType , - - --- ** iOExtensionPointImplement - iOExtensionPointImplement , - - --- ** iOExtensionPointLookup - iOExtensionPointLookup , - - --- ** iOExtensionPointRegister - iOExtensionPointRegister , - - --- ** iOExtensionPointSetRequiredType - IOExtensionPointSetRequiredTypeMethodInfo, - iOExtensionPointSetRequiredType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype IOExtensionPoint = IOExtensionPoint (ForeignPtr IOExtensionPoint) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr IOExtensionPoint where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noIOExtensionPoint :: Maybe IOExtensionPoint -noIOExtensionPoint = Nothing - - -type instance AttributeList IOExtensionPoint = IOExtensionPointAttributeList -type IOExtensionPointAttributeList = ('[ ] :: [(Symbol, *)]) - --- method IOExtensionPoint::get_extension_by_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", 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}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "IOExtension") --- throws : False --- Skip return : False - -foreign import ccall "g_io_extension_point_get_extension_by_name" g_io_extension_point_get_extension_by_name :: - Ptr IOExtensionPoint -> -- _obj : TInterface "Gio" "IOExtensionPoint" - CString -> -- name : TBasicType TUTF8 - IO (Ptr IOExtension) - - -iOExtensionPointGetExtensionByName :: - (MonadIO m) => - IOExtensionPoint -- _obj - -> T.Text -- name - -> m IOExtension -- result -iOExtensionPointGetExtensionByName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- g_io_extension_point_get_extension_by_name _obj' name' - checkUnexpectedReturnNULL "g_io_extension_point_get_extension_by_name" result - result' <- (newPtr IOExtension) result - touchManagedPtr _obj - freeMem name' - return result' - -data IOExtensionPointGetExtensionByNameMethodInfo -instance (signature ~ (T.Text -> m IOExtension), MonadIO m) => MethodInfo IOExtensionPointGetExtensionByNameMethodInfo IOExtensionPoint signature where - overloadedMethod _ = iOExtensionPointGetExtensionByName - --- method IOExtensionPoint::get_extensions --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TGList (TInterface "Gio" "IOExtension")) --- throws : False --- Skip return : False - -foreign import ccall "g_io_extension_point_get_extensions" g_io_extension_point_get_extensions :: - Ptr IOExtensionPoint -> -- _obj : TInterface "Gio" "IOExtensionPoint" - IO (Ptr (GList (Ptr IOExtension))) - - -iOExtensionPointGetExtensions :: - (MonadIO m) => - IOExtensionPoint -- _obj - -> m [IOExtension] -- result -iOExtensionPointGetExtensions _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_extension_point_get_extensions _obj' - result' <- unpackGList result - result'' <- mapM (newPtr IOExtension) result' - touchManagedPtr _obj - return result'' - -data IOExtensionPointGetExtensionsMethodInfo -instance (signature ~ (m [IOExtension]), MonadIO m) => MethodInfo IOExtensionPointGetExtensionsMethodInfo IOExtensionPoint signature where - overloadedMethod _ = iOExtensionPointGetExtensions - --- method IOExtensionPoint::get_required_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TGType) --- throws : False --- Skip return : False - -foreign import ccall "g_io_extension_point_get_required_type" g_io_extension_point_get_required_type :: - Ptr IOExtensionPoint -> -- _obj : TInterface "Gio" "IOExtensionPoint" - IO CGType - - -iOExtensionPointGetRequiredType :: - (MonadIO m) => - IOExtensionPoint -- _obj - -> m GType -- result -iOExtensionPointGetRequiredType _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_io_extension_point_get_required_type _obj' - let result' = GType result - touchManagedPtr _obj - return result' - -data IOExtensionPointGetRequiredTypeMethodInfo -instance (signature ~ (m GType), MonadIO m) => MethodInfo IOExtensionPointGetRequiredTypeMethodInfo IOExtensionPoint signature where - overloadedMethod _ = iOExtensionPointGetRequiredType - --- method IOExtensionPoint::set_required_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOExtensionPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_io_extension_point_set_required_type" g_io_extension_point_set_required_type :: - Ptr IOExtensionPoint -> -- _obj : TInterface "Gio" "IOExtensionPoint" - CGType -> -- type : TBasicType TGType - IO () - - -iOExtensionPointSetRequiredType :: - (MonadIO m) => - IOExtensionPoint -- _obj - -> GType -- type_ - -> m () -- result -iOExtensionPointSetRequiredType _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let type_' = gtypeToCGType type_ - g_io_extension_point_set_required_type _obj' type_' - touchManagedPtr _obj - return () - -data IOExtensionPointSetRequiredTypeMethodInfo -instance (signature ~ (GType -> m ()), MonadIO m) => MethodInfo IOExtensionPointSetRequiredTypeMethodInfo IOExtensionPoint signature where - overloadedMethod _ = iOExtensionPointSetRequiredType - --- method IOExtensionPoint::implement --- method type : MemberFunction --- Args : [Arg {argCName = "extension_point_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "extension_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "IOExtension") --- throws : False --- Skip return : False - -foreign import ccall "g_io_extension_point_implement" g_io_extension_point_implement :: - CString -> -- extension_point_name : TBasicType TUTF8 - CGType -> -- type : TBasicType TGType - CString -> -- extension_name : TBasicType TUTF8 - Int32 -> -- priority : TBasicType TInt - IO (Ptr IOExtension) - - -iOExtensionPointImplement :: - (MonadIO m) => - T.Text -- extensionPointName - -> GType -- type_ - -> T.Text -- extensionName - -> Int32 -- priority - -> m IOExtension -- result -iOExtensionPointImplement extensionPointName type_ extensionName priority = liftIO $ do - extensionPointName' <- textToCString extensionPointName - let type_' = gtypeToCGType type_ - extensionName' <- textToCString extensionName - result <- g_io_extension_point_implement extensionPointName' type_' extensionName' priority - checkUnexpectedReturnNULL "g_io_extension_point_implement" result - result' <- (newPtr IOExtension) result - freeMem extensionPointName' - freeMem extensionName' - return result' - --- method IOExtensionPoint::lookup --- method type : MemberFunction --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "IOExtensionPoint") --- throws : False --- Skip return : False - -foreign import ccall "g_io_extension_point_lookup" g_io_extension_point_lookup :: - CString -> -- name : TBasicType TUTF8 - IO (Ptr IOExtensionPoint) - - -iOExtensionPointLookup :: - (MonadIO m) => - T.Text -- name - -> m IOExtensionPoint -- result -iOExtensionPointLookup name = liftIO $ do - name' <- textToCString name - result <- g_io_extension_point_lookup name' - checkUnexpectedReturnNULL "g_io_extension_point_lookup" result - result' <- (newPtr IOExtensionPoint) result - freeMem name' - return result' - --- method IOExtensionPoint::register --- method type : MemberFunction --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "IOExtensionPoint") --- throws : False --- Skip return : False - -foreign import ccall "g_io_extension_point_register" g_io_extension_point_register :: - CString -> -- name : TBasicType TUTF8 - IO (Ptr IOExtensionPoint) - - -iOExtensionPointRegister :: - (MonadIO m) => - T.Text -- name - -> m IOExtensionPoint -- result -iOExtensionPointRegister name = liftIO $ do - name' <- textToCString name - result <- g_io_extension_point_register name' - checkUnexpectedReturnNULL "g_io_extension_point_register" result - result' <- (newPtr IOExtensionPoint) result - freeMem name' - return result' - -type family ResolveIOExtensionPointMethod (t :: Symbol) (o :: *) :: * where - ResolveIOExtensionPointMethod "getExtensionByName" o = IOExtensionPointGetExtensionByNameMethodInfo - ResolveIOExtensionPointMethod "getExtensions" o = IOExtensionPointGetExtensionsMethodInfo - ResolveIOExtensionPointMethod "getRequiredType" o = IOExtensionPointGetRequiredTypeMethodInfo - ResolveIOExtensionPointMethod "setRequiredType" o = IOExtensionPointSetRequiredTypeMethodInfo - ResolveIOExtensionPointMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIOExtensionPointMethod t IOExtensionPoint, MethodInfo info IOExtensionPoint p) => IsLabelProxy t (IOExtensionPoint -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIOExtensionPointMethod t IOExtensionPoint, MethodInfo info IOExtensionPoint p) => IsLabel t (IOExtensionPoint -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/IOExtensionPoint.hs-boot b/GI/Gio/Structs/IOExtensionPoint.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/IOExtensionPoint.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gio.Structs.IOExtensionPoint where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IOExtensionPoint = IOExtensionPoint (ForeignPtr IOExtensionPoint) -instance WrappedPtr IOExtensionPoint where -data IOExtensionPointGetExtensionByNameMethodInfo -data IOExtensionPointGetExtensionsMethodInfo -data IOExtensionPointGetRequiredTypeMethodInfo -data IOExtensionPointSetRequiredTypeMethodInfo diff --git a/GI/Gio/Structs/IOModuleScope.hs b/GI/Gio/Structs/IOModuleScope.hs deleted file mode 100644 --- a/GI/Gio/Structs/IOModuleScope.hs +++ /dev/null @@ -1,133 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Represents a scope for loading IO modules. A scope can be used for blocking -duplicate modules, or blocking a module you don't want to load. - -The scope can be used with g_io_modules_load_all_in_directory_with_scope() -or g_io_modules_scan_all_in_directory_with_scope(). --} - -module GI.Gio.Structs.IOModuleScope - ( - --- * Exported types - IOModuleScope(..) , - noIOModuleScope , - - - -- * Methods --- ** iOModuleScopeBlock - IOModuleScopeBlockMethodInfo , - iOModuleScopeBlock , - - --- ** iOModuleScopeFree - IOModuleScopeFreeMethodInfo , - iOModuleScopeFree , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype IOModuleScope = IOModuleScope (ForeignPtr IOModuleScope) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr IOModuleScope where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noIOModuleScope :: Maybe IOModuleScope -noIOModuleScope = Nothing - - -type instance AttributeList IOModuleScope = IOModuleScopeAttributeList -type IOModuleScopeAttributeList = ('[ ] :: [(Symbol, *)]) - --- method IOModuleScope::block --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOModuleScope", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "basename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_io_module_scope_block" g_io_module_scope_block :: - Ptr IOModuleScope -> -- _obj : TInterface "Gio" "IOModuleScope" - CString -> -- basename : TBasicType TUTF8 - IO () - - -iOModuleScopeBlock :: - (MonadIO m) => - IOModuleScope -- _obj - -> T.Text -- basename - -> m () -- result -iOModuleScopeBlock _obj basename = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - basename' <- textToCString basename - g_io_module_scope_block _obj' basename' - touchManagedPtr _obj - freeMem basename' - return () - -data IOModuleScopeBlockMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo IOModuleScopeBlockMethodInfo IOModuleScope signature where - overloadedMethod _ = iOModuleScopeBlock - --- method IOModuleScope::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOModuleScope", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_io_module_scope_free" g_io_module_scope_free :: - Ptr IOModuleScope -> -- _obj : TInterface "Gio" "IOModuleScope" - IO () - - -iOModuleScopeFree :: - (MonadIO m) => - IOModuleScope -- _obj - -> m () -- result -iOModuleScopeFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_io_module_scope_free _obj' - touchManagedPtr _obj - return () - -data IOModuleScopeFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo IOModuleScopeFreeMethodInfo IOModuleScope signature where - overloadedMethod _ = iOModuleScopeFree - -type family ResolveIOModuleScopeMethod (t :: Symbol) (o :: *) :: * where - ResolveIOModuleScopeMethod "block" o = IOModuleScopeBlockMethodInfo - ResolveIOModuleScopeMethod "free" o = IOModuleScopeFreeMethodInfo - ResolveIOModuleScopeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIOModuleScopeMethod t IOModuleScope, MethodInfo info IOModuleScope p) => IsLabelProxy t (IOModuleScope -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIOModuleScopeMethod t IOModuleScope, MethodInfo info IOModuleScope p) => IsLabel t (IOModuleScope -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/IOModuleScope.hs-boot b/GI/Gio/Structs/IOModuleScope.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/IOModuleScope.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gio.Structs.IOModuleScope where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IOModuleScope = IOModuleScope (ForeignPtr IOModuleScope) -instance WrappedPtr IOModuleScope where -data IOModuleScopeBlockMethodInfo -data IOModuleScopeFreeMethodInfo diff --git a/GI/Gio/Structs/IOSchedulerJob.hs b/GI/Gio/Structs/IOSchedulerJob.hs deleted file mode 100644 --- a/GI/Gio/Structs/IOSchedulerJob.hs +++ /dev/null @@ -1,141 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Opaque class for defining and scheduling IO jobs. --} - -module GI.Gio.Structs.IOSchedulerJob - ( - --- * Exported types - IOSchedulerJob(..) , - noIOSchedulerJob , - - - -- * Methods --- ** iOSchedulerJobSendToMainloop - IOSchedulerJobSendToMainloopMethodInfo , - iOSchedulerJobSendToMainloop , - - --- ** iOSchedulerJobSendToMainloopAsync - IOSchedulerJobSendToMainloopAsyncMethodInfo, - iOSchedulerJobSendToMainloopAsync , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype IOSchedulerJob = IOSchedulerJob (ForeignPtr IOSchedulerJob) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr IOSchedulerJob where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noIOSchedulerJob :: Maybe IOSchedulerJob -noIOSchedulerJob = Nothing - - -type instance AttributeList IOSchedulerJob = IOSchedulerJobAttributeList -type IOSchedulerJobAttributeList = ('[ ] :: [(Symbol, *)]) - --- method IOSchedulerJob::send_to_mainloop --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOSchedulerJob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, 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}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_io_scheduler_job_send_to_mainloop" g_io_scheduler_job_send_to_mainloop :: - Ptr IOSchedulerJob -> -- _obj : TInterface "Gio" "IOSchedulerJob" - FunPtr GLib.SourceFuncC -> -- func : TInterface "GLib" "SourceFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO CInt - -{-# DEPRECATED iOSchedulerJobSendToMainloop ["Use g_main_context_invoke()."]#-} -iOSchedulerJobSendToMainloop :: - (MonadIO m) => - IOSchedulerJob -- _obj - -> GLib.SourceFunc -- func - -> m Bool -- result -iOSchedulerJobSendToMainloop _obj func = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - func' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing func) - let userData = castFunPtrToPtr func' - let notify = safeFreeFunPtrPtr - result <- g_io_scheduler_job_send_to_mainloop _obj' func' userData notify - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data IOSchedulerJobSendToMainloopMethodInfo -instance (signature ~ (GLib.SourceFunc -> m Bool), MonadIO m) => MethodInfo IOSchedulerJobSendToMainloopMethodInfo IOSchedulerJob signature where - overloadedMethod _ = iOSchedulerJobSendToMainloop - --- method IOSchedulerJob::send_to_mainloop_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "IOSchedulerJob", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, 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}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_io_scheduler_job_send_to_mainloop_async" g_io_scheduler_job_send_to_mainloop_async :: - Ptr IOSchedulerJob -> -- _obj : TInterface "Gio" "IOSchedulerJob" - FunPtr GLib.SourceFuncC -> -- func : TInterface "GLib" "SourceFunc" - Ptr () -> -- user_data : TBasicType TPtr - FunPtr GLib.DestroyNotifyC -> -- notify : TInterface "GLib" "DestroyNotify" - IO () - -{-# DEPRECATED iOSchedulerJobSendToMainloopAsync ["Use g_main_context_invoke()."]#-} -iOSchedulerJobSendToMainloopAsync :: - (MonadIO m) => - IOSchedulerJob -- _obj - -> GLib.SourceFunc -- func - -> m () -- result -iOSchedulerJobSendToMainloopAsync _obj func = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - func' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing func) - let userData = castFunPtrToPtr func' - let notify = safeFreeFunPtrPtr - g_io_scheduler_job_send_to_mainloop_async _obj' func' userData notify - touchManagedPtr _obj - return () - -data IOSchedulerJobSendToMainloopAsyncMethodInfo -instance (signature ~ (GLib.SourceFunc -> m ()), MonadIO m) => MethodInfo IOSchedulerJobSendToMainloopAsyncMethodInfo IOSchedulerJob signature where - overloadedMethod _ = iOSchedulerJobSendToMainloopAsync - -type family ResolveIOSchedulerJobMethod (t :: Symbol) (o :: *) :: * where - ResolveIOSchedulerJobMethod "sendToMainloop" o = IOSchedulerJobSendToMainloopMethodInfo - ResolveIOSchedulerJobMethod "sendToMainloopAsync" o = IOSchedulerJobSendToMainloopAsyncMethodInfo - ResolveIOSchedulerJobMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIOSchedulerJobMethod t IOSchedulerJob, MethodInfo info IOSchedulerJob p) => IsLabelProxy t (IOSchedulerJob -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIOSchedulerJobMethod t IOSchedulerJob, MethodInfo info IOSchedulerJob p) => IsLabel t (IOSchedulerJob -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/IOSchedulerJob.hs-boot b/GI/Gio/Structs/IOSchedulerJob.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/IOSchedulerJob.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Gio.Structs.IOSchedulerJob where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IOSchedulerJob = IOSchedulerJob (ForeignPtr IOSchedulerJob) -instance WrappedPtr IOSchedulerJob where -data IOSchedulerJobSendToMainloopMethodInfo -data IOSchedulerJobSendToMainloopAsyncMethodInfo diff --git a/GI/Gio/Structs/IOStreamAdapter.hs b/GI/Gio/Structs/IOStreamAdapter.hs deleted file mode 100644 --- a/GI/Gio/Structs/IOStreamAdapter.hs +++ /dev/null @@ -1,54 +0,0 @@ - - -{- | -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.Structs.IOStreamAdapter - ( - --- * Exported types - IOStreamAdapter(..) , - noIOStreamAdapter , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype IOStreamAdapter = IOStreamAdapter (ForeignPtr IOStreamAdapter) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr IOStreamAdapter where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noIOStreamAdapter :: Maybe IOStreamAdapter -noIOStreamAdapter = Nothing - - -type instance AttributeList IOStreamAdapter = IOStreamAdapterAttributeList -type IOStreamAdapterAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveIOStreamAdapterMethod (t :: Symbol) (o :: *) :: * where - ResolveIOStreamAdapterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveIOStreamAdapterMethod t IOStreamAdapter, MethodInfo info IOStreamAdapter p) => IsLabelProxy t (IOStreamAdapter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveIOStreamAdapterMethod t IOStreamAdapter, MethodInfo info IOStreamAdapter p) => IsLabel t (IOStreamAdapter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/IOStreamAdapter.hs-boot b/GI/Gio/Structs/IOStreamAdapter.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/IOStreamAdapter.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gio.Structs.IOStreamAdapter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype IOStreamAdapter = IOStreamAdapter (ForeignPtr IOStreamAdapter) -instance WrappedPtr IOStreamAdapter where diff --git a/GI/Gio/Structs/InputVector.hs b/GI/Gio/Structs/InputVector.hs deleted file mode 100644 --- a/GI/Gio/Structs/InputVector.hs +++ /dev/null @@ -1,140 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Structure used for scatter/gather data input. -You generally pass in an array of #GInputVectors -and the operation will store the read data starting in the -first buffer, switching to the next as needed. --} - -module GI.Gio.Structs.InputVector - ( - --- * Exported types - InputVector(..) , - newZeroInputVector , - noInputVector , - - - -- * Properties --- ** Buffer - inputVectorBuffer , - inputVectorClearBuffer , - inputVectorReadBuffer , - inputVectorWriteBuffer , - - --- ** Size - inputVectorReadSize , - inputVectorSize , - inputVectorWriteSize , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype InputVector = InputVector (ForeignPtr InputVector) -instance WrappedPtr InputVector where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `InputVector` struct initialized to zero. -newZeroInputVector :: MonadIO m => m InputVector -newZeroInputVector = liftIO $ wrappedPtrCalloc >>= wrapPtr InputVector - -instance tag ~ 'AttrSet => Constructible InputVector tag where - new _ attrs = do - o <- newZeroInputVector - GI.Attributes.set o attrs - return o - - -noInputVector :: Maybe InputVector -noInputVector = Nothing - -inputVectorReadBuffer :: MonadIO m => InputVector -> m (Ptr ()) -inputVectorReadBuffer s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -inputVectorWriteBuffer :: MonadIO m => InputVector -> Ptr () -> m () -inputVectorWriteBuffer s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ()) - -inputVectorClearBuffer :: MonadIO m => InputVector -> m () -inputVectorClearBuffer s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ()) - -data InputVectorBufferFieldInfo -instance AttrInfo InputVectorBufferFieldInfo where - type AttrAllowedOps InputVectorBufferFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint InputVectorBufferFieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint InputVectorBufferFieldInfo = (~) InputVector - type AttrGetType InputVectorBufferFieldInfo = Ptr () - type AttrLabel InputVectorBufferFieldInfo = "buffer" - attrGet _ = inputVectorReadBuffer - attrSet _ = inputVectorWriteBuffer - attrConstruct = undefined - attrClear _ = inputVectorClearBuffer - -inputVectorBuffer :: AttrLabelProxy "buffer" -inputVectorBuffer = AttrLabelProxy - - -inputVectorReadSize :: MonadIO m => InputVector -> m Word64 -inputVectorReadSize s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word64 - return val - -inputVectorWriteSize :: MonadIO m => InputVector -> Word64 -> m () -inputVectorWriteSize s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word64) - -data InputVectorSizeFieldInfo -instance AttrInfo InputVectorSizeFieldInfo where - type AttrAllowedOps InputVectorSizeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint InputVectorSizeFieldInfo = (~) Word64 - type AttrBaseTypeConstraint InputVectorSizeFieldInfo = (~) InputVector - type AttrGetType InputVectorSizeFieldInfo = Word64 - type AttrLabel InputVectorSizeFieldInfo = "size" - attrGet _ = inputVectorReadSize - attrSet _ = inputVectorWriteSize - attrConstruct = undefined - attrClear _ = undefined - -inputVectorSize :: AttrLabelProxy "size" -inputVectorSize = AttrLabelProxy - - - -type instance AttributeList InputVector = InputVectorAttributeList -type InputVectorAttributeList = ('[ '("buffer", InputVectorBufferFieldInfo), '("size", InputVectorSizeFieldInfo)] :: [(Symbol, *)]) - -type family ResolveInputVectorMethod (t :: Symbol) (o :: *) :: * where - ResolveInputVectorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveInputVectorMethod t InputVector, MethodInfo info InputVector p) => IsLabelProxy t (InputVector -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveInputVectorMethod t InputVector, MethodInfo info InputVector p) => IsLabel t (InputVector -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/InputVector.hs-boot b/GI/Gio/Structs/InputVector.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/InputVector.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gio.Structs.InputVector where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype InputVector = InputVector (ForeignPtr InputVector) -instance WrappedPtr InputVector where diff --git a/GI/Gio/Structs/NativeSocketAddress.hs b/GI/Gio/Structs/NativeSocketAddress.hs deleted file mode 100644 --- a/GI/Gio/Structs/NativeSocketAddress.hs +++ /dev/null @@ -1,56 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -An socket address of some unknown native type. --} - -module GI.Gio.Structs.NativeSocketAddress - ( - --- * Exported types - NativeSocketAddress(..) , - noNativeSocketAddress , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype NativeSocketAddress = NativeSocketAddress (ForeignPtr NativeSocketAddress) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr NativeSocketAddress where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noNativeSocketAddress :: Maybe NativeSocketAddress -noNativeSocketAddress = Nothing - - -type instance AttributeList NativeSocketAddress = NativeSocketAddressAttributeList -type NativeSocketAddressAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveNativeSocketAddressMethod (t :: Symbol) (o :: *) :: * where - ResolveNativeSocketAddressMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveNativeSocketAddressMethod t NativeSocketAddress, MethodInfo info NativeSocketAddress p) => IsLabelProxy t (NativeSocketAddress -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveNativeSocketAddressMethod t NativeSocketAddress, MethodInfo info NativeSocketAddress p) => IsLabel t (NativeSocketAddress -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/NativeSocketAddress.hs-boot b/GI/Gio/Structs/NativeSocketAddress.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/NativeSocketAddress.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gio.Structs.NativeSocketAddress where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype NativeSocketAddress = NativeSocketAddress (ForeignPtr NativeSocketAddress) -instance WrappedPtr NativeSocketAddress where diff --git a/GI/Gio/Structs/OutputMessage.hs b/GI/Gio/Structs/OutputMessage.hs deleted file mode 100644 --- a/GI/Gio/Structs/OutputMessage.hs +++ /dev/null @@ -1,248 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Structure used for scatter/gather data output when sending multiple -messages or packets in one go. You generally pass in an array of -#GOutputVectors and the operation will use all the buffers as if they -were one buffer. - -If @address is %NULL then the message is sent to the default receiver -(as previously set by g_socket_connect()). --} - -module GI.Gio.Structs.OutputMessage - ( - --- * Exported types - OutputMessage(..) , - newZeroOutputMessage , - noOutputMessage , - - - -- * Properties --- ** Address - outputMessageAddress , - outputMessageClearAddress , - outputMessageReadAddress , - outputMessageWriteAddress , - - --- ** BytesSent - outputMessageBytesSent , - outputMessageReadBytesSent , - outputMessageWriteBytesSent , - - --- ** NumControlMessages - outputMessageNumControlMessages , - outputMessageReadNumControlMessages , - outputMessageWriteNumControlMessages , - - --- ** NumVectors - outputMessageNumVectors , - outputMessageReadNumVectors , - outputMessageWriteNumVectors , - - --- ** Vectors - outputMessageClearVectors , - outputMessageReadVectors , - outputMessageVectors , - outputMessageWriteVectors , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype OutputMessage = OutputMessage (ForeignPtr OutputMessage) -instance WrappedPtr OutputMessage where - wrappedPtrCalloc = callocBytes 40 - wrappedPtrCopy = copyPtr 40 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `OutputMessage` struct initialized to zero. -newZeroOutputMessage :: MonadIO m => m OutputMessage -newZeroOutputMessage = liftIO $ wrappedPtrCalloc >>= wrapPtr OutputMessage - -instance tag ~ 'AttrSet => Constructible OutputMessage tag where - new _ attrs = do - o <- newZeroOutputMessage - GI.Attributes.set o attrs - return o - - -noOutputMessage :: Maybe OutputMessage -noOutputMessage = Nothing - -outputMessageReadAddress :: MonadIO m => OutputMessage -> m (Maybe SocketAddress) -outputMessageReadAddress s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr SocketAddress) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newObject SocketAddress) val' - return val'' - return result - -outputMessageWriteAddress :: MonadIO m => OutputMessage -> Ptr SocketAddress -> m () -outputMessageWriteAddress s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr SocketAddress) - -outputMessageClearAddress :: MonadIO m => OutputMessage -> m () -outputMessageClearAddress s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr SocketAddress) - -data OutputMessageAddressFieldInfo -instance AttrInfo OutputMessageAddressFieldInfo where - type AttrAllowedOps OutputMessageAddressFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint OutputMessageAddressFieldInfo = (~) (Ptr SocketAddress) - type AttrBaseTypeConstraint OutputMessageAddressFieldInfo = (~) OutputMessage - type AttrGetType OutputMessageAddressFieldInfo = Maybe SocketAddress - type AttrLabel OutputMessageAddressFieldInfo = "address" - attrGet _ = outputMessageReadAddress - attrSet _ = outputMessageWriteAddress - attrConstruct = undefined - attrClear _ = outputMessageClearAddress - -outputMessageAddress :: AttrLabelProxy "address" -outputMessageAddress = AttrLabelProxy - - -outputMessageReadVectors :: MonadIO m => OutputMessage -> m (Maybe OutputVector) -outputMessageReadVectors s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO (Ptr OutputVector) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newPtr OutputVector) val' - return val'' - return result - -outputMessageWriteVectors :: MonadIO m => OutputMessage -> Ptr OutputVector -> m () -outputMessageWriteVectors s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Ptr OutputVector) - -outputMessageClearVectors :: MonadIO m => OutputMessage -> m () -outputMessageClearVectors s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: Ptr OutputVector) - -data OutputMessageVectorsFieldInfo -instance AttrInfo OutputMessageVectorsFieldInfo where - type AttrAllowedOps OutputMessageVectorsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint OutputMessageVectorsFieldInfo = (~) (Ptr OutputVector) - type AttrBaseTypeConstraint OutputMessageVectorsFieldInfo = (~) OutputMessage - type AttrGetType OutputMessageVectorsFieldInfo = Maybe OutputVector - type AttrLabel OutputMessageVectorsFieldInfo = "vectors" - attrGet _ = outputMessageReadVectors - attrSet _ = outputMessageWriteVectors - attrConstruct = undefined - attrClear _ = outputMessageClearVectors - -outputMessageVectors :: AttrLabelProxy "vectors" -outputMessageVectors = AttrLabelProxy - - -outputMessageReadNumVectors :: MonadIO m => OutputMessage -> m Word32 -outputMessageReadNumVectors s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Word32 - return val - -outputMessageWriteNumVectors :: MonadIO m => OutputMessage -> Word32 -> m () -outputMessageWriteNumVectors s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Word32) - -data OutputMessageNumVectorsFieldInfo -instance AttrInfo OutputMessageNumVectorsFieldInfo where - type AttrAllowedOps OutputMessageNumVectorsFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint OutputMessageNumVectorsFieldInfo = (~) Word32 - type AttrBaseTypeConstraint OutputMessageNumVectorsFieldInfo = (~) OutputMessage - type AttrGetType OutputMessageNumVectorsFieldInfo = Word32 - type AttrLabel OutputMessageNumVectorsFieldInfo = "num_vectors" - attrGet _ = outputMessageReadNumVectors - attrSet _ = outputMessageWriteNumVectors - attrConstruct = undefined - attrClear _ = undefined - -outputMessageNumVectors :: AttrLabelProxy "numVectors" -outputMessageNumVectors = AttrLabelProxy - - -outputMessageReadBytesSent :: MonadIO m => OutputMessage -> m Word32 -outputMessageReadBytesSent s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Word32 - return val - -outputMessageWriteBytesSent :: MonadIO m => OutputMessage -> Word32 -> m () -outputMessageWriteBytesSent s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Word32) - -data OutputMessageBytesSentFieldInfo -instance AttrInfo OutputMessageBytesSentFieldInfo where - type AttrAllowedOps OutputMessageBytesSentFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint OutputMessageBytesSentFieldInfo = (~) Word32 - type AttrBaseTypeConstraint OutputMessageBytesSentFieldInfo = (~) OutputMessage - type AttrGetType OutputMessageBytesSentFieldInfo = Word32 - type AttrLabel OutputMessageBytesSentFieldInfo = "bytes_sent" - attrGet _ = outputMessageReadBytesSent - attrSet _ = outputMessageWriteBytesSent - attrConstruct = undefined - attrClear _ = undefined - -outputMessageBytesSent :: AttrLabelProxy "bytesSent" -outputMessageBytesSent = AttrLabelProxy - - --- XXX Skipped attribute for "OutputMessage:control_messages" :: Not implemented: "Don't know how to unpack C array of type TCArray False (-1) 5 (TInterface \"Gio\" \"SocketControlMessage\")" -outputMessageReadNumControlMessages :: MonadIO m => OutputMessage -> m Word32 -outputMessageReadNumControlMessages s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Word32 - return val - -outputMessageWriteNumControlMessages :: MonadIO m => OutputMessage -> Word32 -> m () -outputMessageWriteNumControlMessages s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Word32) - -data OutputMessageNumControlMessagesFieldInfo -instance AttrInfo OutputMessageNumControlMessagesFieldInfo where - type AttrAllowedOps OutputMessageNumControlMessagesFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint OutputMessageNumControlMessagesFieldInfo = (~) Word32 - type AttrBaseTypeConstraint OutputMessageNumControlMessagesFieldInfo = (~) OutputMessage - type AttrGetType OutputMessageNumControlMessagesFieldInfo = Word32 - type AttrLabel OutputMessageNumControlMessagesFieldInfo = "num_control_messages" - attrGet _ = outputMessageReadNumControlMessages - attrSet _ = outputMessageWriteNumControlMessages - attrConstruct = undefined - attrClear _ = undefined - -outputMessageNumControlMessages :: AttrLabelProxy "numControlMessages" -outputMessageNumControlMessages = AttrLabelProxy - - - -type instance AttributeList OutputMessage = OutputMessageAttributeList -type OutputMessageAttributeList = ('[ '("address", OutputMessageAddressFieldInfo), '("vectors", OutputMessageVectorsFieldInfo), '("numVectors", OutputMessageNumVectorsFieldInfo), '("bytesSent", OutputMessageBytesSentFieldInfo), '("numControlMessages", OutputMessageNumControlMessagesFieldInfo)] :: [(Symbol, *)]) - -type family ResolveOutputMessageMethod (t :: Symbol) (o :: *) :: * where - ResolveOutputMessageMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveOutputMessageMethod t OutputMessage, MethodInfo info OutputMessage p) => IsLabelProxy t (OutputMessage -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveOutputMessageMethod t OutputMessage, MethodInfo info OutputMessage p) => IsLabel t (OutputMessage -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/OutputMessage.hs-boot b/GI/Gio/Structs/OutputMessage.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/OutputMessage.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gio.Structs.OutputMessage where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype OutputMessage = OutputMessage (ForeignPtr OutputMessage) -instance WrappedPtr OutputMessage where diff --git a/GI/Gio/Structs/OutputVector.hs b/GI/Gio/Structs/OutputVector.hs deleted file mode 100644 --- a/GI/Gio/Structs/OutputVector.hs +++ /dev/null @@ -1,140 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Structure used for scatter/gather data output. -You generally pass in an array of #GOutputVectors -and the operation will use all the buffers as if they were -one buffer. --} - -module GI.Gio.Structs.OutputVector - ( - --- * Exported types - OutputVector(..) , - newZeroOutputVector , - noOutputVector , - - - -- * Properties --- ** Buffer - outputVectorBuffer , - outputVectorClearBuffer , - outputVectorReadBuffer , - outputVectorWriteBuffer , - - --- ** Size - outputVectorReadSize , - outputVectorSize , - outputVectorWriteSize , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype OutputVector = OutputVector (ForeignPtr OutputVector) -instance WrappedPtr OutputVector where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `OutputVector` struct initialized to zero. -newZeroOutputVector :: MonadIO m => m OutputVector -newZeroOutputVector = liftIO $ wrappedPtrCalloc >>= wrapPtr OutputVector - -instance tag ~ 'AttrSet => Constructible OutputVector tag where - new _ attrs = do - o <- newZeroOutputVector - GI.Attributes.set o attrs - return o - - -noOutputVector :: Maybe OutputVector -noOutputVector = Nothing - -outputVectorReadBuffer :: MonadIO m => OutputVector -> m (Ptr ()) -outputVectorReadBuffer s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -outputVectorWriteBuffer :: MonadIO m => OutputVector -> Ptr () -> m () -outputVectorWriteBuffer s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ()) - -outputVectorClearBuffer :: MonadIO m => OutputVector -> m () -outputVectorClearBuffer s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ()) - -data OutputVectorBufferFieldInfo -instance AttrInfo OutputVectorBufferFieldInfo where - type AttrAllowedOps OutputVectorBufferFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint OutputVectorBufferFieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint OutputVectorBufferFieldInfo = (~) OutputVector - type AttrGetType OutputVectorBufferFieldInfo = Ptr () - type AttrLabel OutputVectorBufferFieldInfo = "buffer" - attrGet _ = outputVectorReadBuffer - attrSet _ = outputVectorWriteBuffer - attrConstruct = undefined - attrClear _ = outputVectorClearBuffer - -outputVectorBuffer :: AttrLabelProxy "buffer" -outputVectorBuffer = AttrLabelProxy - - -outputVectorReadSize :: MonadIO m => OutputVector -> m Word64 -outputVectorReadSize s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word64 - return val - -outputVectorWriteSize :: MonadIO m => OutputVector -> Word64 -> m () -outputVectorWriteSize s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word64) - -data OutputVectorSizeFieldInfo -instance AttrInfo OutputVectorSizeFieldInfo where - type AttrAllowedOps OutputVectorSizeFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint OutputVectorSizeFieldInfo = (~) Word64 - type AttrBaseTypeConstraint OutputVectorSizeFieldInfo = (~) OutputVector - type AttrGetType OutputVectorSizeFieldInfo = Word64 - type AttrLabel OutputVectorSizeFieldInfo = "size" - attrGet _ = outputVectorReadSize - attrSet _ = outputVectorWriteSize - attrConstruct = undefined - attrClear _ = undefined - -outputVectorSize :: AttrLabelProxy "size" -outputVectorSize = AttrLabelProxy - - - -type instance AttributeList OutputVector = OutputVectorAttributeList -type OutputVectorAttributeList = ('[ '("buffer", OutputVectorBufferFieldInfo), '("size", OutputVectorSizeFieldInfo)] :: [(Symbol, *)]) - -type family ResolveOutputVectorMethod (t :: Symbol) (o :: *) :: * where - ResolveOutputVectorMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveOutputVectorMethod t OutputVector, MethodInfo info OutputVector p) => IsLabelProxy t (OutputVector -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveOutputVectorMethod t OutputVector, MethodInfo info OutputVector p) => IsLabel t (OutputVector -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/OutputVector.hs-boot b/GI/Gio/Structs/OutputVector.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/OutputVector.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gio.Structs.OutputVector where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype OutputVector = OutputVector (ForeignPtr OutputVector) -instance WrappedPtr OutputVector where diff --git a/GI/Gio/Structs/Resource.hs b/GI/Gio/Structs/Resource.hs deleted file mode 100644 --- a/GI/Gio/Structs/Resource.hs +++ /dev/null @@ -1,479 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Applications and libraries often contain binary or textual data that is -really part of the application, rather than user data. For instance -#GtkBuilder .ui files, splashscreen images, GMenu markup XML, CSS files, -icons, etc. These are often shipped as files in `$datadir/appname`, or -manually included as literal strings in the code. - -The #GResource API and the [glib-compile-resources][glib-compile-resources] program -provide a convenient and efficient alternative to this which has some nice properties. You -maintain the files as normal files, so its easy to edit them, but during the build the files -are combined into a binary bundle that is linked into the executable. This means that loading -the resource files are efficient (as they are already in memory, shared with other instances) and -simple (no need to check for things like I/O errors or locate the files in the filesystem). It -also makes it easier to create relocatable applications. - -Resource files can also be marked as compressed. Such files will be included in the resource bundle -in a compressed form, but will be automatically uncompressed when the resource is used. This -is very useful e.g. for larger text files that are parsed once (or rarely) and then thrown away. - -Resource files can also be marked to be preprocessed, by setting the value of the -`preprocess` attribute to a comma-separated list of preprocessing options. -The only options currently supported are: - -`xml-stripblanks` which will use the xmllint command -to strip ignorable whitespace from the XML file. For this to work, -the `XMLLINT` environment variable must be set to the full path to -the xmllint executable, or xmllint must be in the `PATH`; otherwise -the preprocessing step is skipped. - -`to-pixdata` which will use the gdk-pixbuf-pixdata command to convert -images to the GdkPixdata format, which allows you to create pixbufs directly using the data inside -the resource file, rather than an (uncompressed) copy if it. For this, the gdk-pixbuf-pixdata -program must be in the PATH, or the `GDK_PIXBUF_PIXDATA` environment variable must be -set to the full path to the gdk-pixbuf-pixdata executable; otherwise the resource compiler will -abort. - -Resource bundles are created by the [glib-compile-resources][glib-compile-resources] program -which takes an XML file that describes the bundle, and a set of files that the XML references. These -are combined into a binary resource bundle. - -An example resource description: -|[ - - - - data/splashscreen.png - dialog.ui - menumarkup.xml - - -]| - -This will create a resource bundle with the following files: -|[ -/org/gtk/Example/data/splashscreen.png -/org/gtk/Example/dialog.ui -/org/gtk/Example/menumarkup.xml -]| - -Note that all resources in the process share the same namespace, so use Java-style -path prefixes (like in the above example) to avoid conflicts. - -You can then use [glib-compile-resources][glib-compile-resources] to compile the XML to a -binary bundle that you can load with g_resource_load(). However, its more common to use the --generate-source and ---generate-header arguments to create a source file and header to link directly into your application. -This will generate `get_resource()`, `register_resource()` and -`unregister_resource()` functions, prefixed by the `--c-name` argument passed -to [glib-compile-resources][glib-compile-resources]. `get_resource()` returns -the generated #GResource object. The register and unregister functions -register the resource so its files can be accessed using -g_resources_lookup_data(). - -Once a #GResource has been created and registered all the data in it can be accessed globally in the process by -using API calls like g_resources_open_stream() to stream the data or g_resources_lookup_data() to get a direct pointer -to the data. You can also use URIs like "resource:///org/gtk/Example/data/splashscreen.png" with #GFile to access -the resource data. - -There are two forms of the generated source, the default version uses the compiler support for constructor -and destructor functions (where available) to automatically create and register the #GResource on startup -or library load time. If you pass --manual-register two functions to register/unregister the resource is instead -created. This requires an explicit initialization call in your application/library, but it works on all platforms, -even on the minor ones where this is not available. (Constructor support is available for at least Win32, Mac OS and Linux.) - -Note that resource data can point directly into the data segment of e.g. a library, so if you are unloading libraries -during runtime you need to be very careful with keeping around pointers to data from a resource, as this goes away -when the library is unloaded. However, in practice this is not generally a problem, since most resource accesses -is for your own resources, and resource data is often used once, during parsing, and then released. --} - -module GI.Gio.Structs.Resource - ( - --- * Exported types - Resource(..) , - noResource , - - - -- * Methods --- ** resourceEnumerateChildren - ResourceEnumerateChildrenMethodInfo , - resourceEnumerateChildren , - - --- ** resourceGetInfo - ResourceGetInfoMethodInfo , - resourceGetInfo , - - --- ** resourceLoad - resourceLoad , - - --- ** resourceLookupData - ResourceLookupDataMethodInfo , - resourceLookupData , - - --- ** resourceNewFromData - resourceNewFromData , - - --- ** resourceOpenStream - ResourceOpenStreamMethodInfo , - resourceOpenStream , - - --- ** resourceRef - ResourceRefMethodInfo , - resourceRef , - - --- ** resourceUnref - ResourceUnrefMethodInfo , - resourceUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype Resource = Resource (ForeignPtr Resource) -foreign import ccall "g_resource_get_type" c_g_resource_get_type :: - IO GType - -instance BoxedObject Resource where - boxedType _ = c_g_resource_get_type - -noResource :: Maybe Resource -noResource = Nothing - - -type instance AttributeList Resource = ResourceAttributeList -type ResourceAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Resource::new_from_data --- method type : Constructor --- Args : [Arg {argCName = "data", argType = TInterface "GLib" "Bytes", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Resource") --- throws : True --- Skip return : False - -foreign import ccall "g_resource_new_from_data" g_resource_new_from_data :: - Ptr GLib.Bytes -> -- data : TInterface "GLib" "Bytes" - Ptr (Ptr GError) -> -- error - IO (Ptr Resource) - - -resourceNewFromData :: - (MonadIO m) => - GLib.Bytes -- data_ - -> m Resource -- result -resourceNewFromData data_ = liftIO $ do - let data_' = unsafeManagedPtrGetPtr data_ - onException (do - result <- propagateGError $ g_resource_new_from_data data_' - checkUnexpectedReturnNULL "g_resource_new_from_data" result - result' <- (wrapBoxed Resource) result - touchManagedPtr data_ - return result' - ) (do - return () - ) - --- method Resource::enumerate_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},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 : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : True --- Skip return : False - -foreign import ccall "g_resource_enumerate_children" g_resource_enumerate_children :: - Ptr Resource -> -- _obj : TInterface "Gio" "Resource" - CString -> -- path : TBasicType TUTF8 - CUInt -> -- lookup_flags : TInterface "Gio" "ResourceLookupFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr CString) - - -resourceEnumerateChildren :: - (MonadIO m) => - Resource -- _obj - -> T.Text -- path - -> [ResourceLookupFlags] -- lookupFlags - -> m [T.Text] -- result -resourceEnumerateChildren _obj path lookupFlags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - path' <- textToCString path - let lookupFlags' = gflagsToWord lookupFlags - onException (do - result <- propagateGError $ g_resource_enumerate_children _obj' path' lookupFlags' - checkUnexpectedReturnNULL "g_resource_enumerate_children" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - freeMem path' - return result' - ) (do - freeMem path' - ) - -data ResourceEnumerateChildrenMethodInfo -instance (signature ~ (T.Text -> [ResourceLookupFlags] -> m [T.Text]), MonadIO m) => MethodInfo ResourceEnumerateChildrenMethodInfo Resource signature where - overloadedMethod _ = resourceEnumerateChildren - --- method Resource::get_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},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 : Just (TBasicType TBoolean) --- throws : True --- Skip return : False - -foreign import ccall "g_resource_get_info" g_resource_get_info :: - Ptr Resource -> -- _obj : TInterface "Gio" "Resource" - 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 - - -resourceGetInfo :: - (MonadIO m) => - Resource -- _obj - -> T.Text -- path - -> [ResourceLookupFlags] -- lookupFlags - -> m (Word64,Word32) -- result -resourceGetInfo _obj path lookupFlags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - path' <- textToCString path - let lookupFlags' = gflagsToWord lookupFlags - size <- allocMem :: IO (Ptr Word64) - flags <- allocMem :: IO (Ptr Word32) - onException (do - _ <- propagateGError $ g_resource_get_info _obj' path' lookupFlags' size flags - size' <- peek size - flags' <- peek flags - touchManagedPtr _obj - freeMem path' - freeMem size - freeMem flags - return (size', flags') - ) (do - freeMem path' - freeMem size - freeMem flags - ) - -data ResourceGetInfoMethodInfo -instance (signature ~ (T.Text -> [ResourceLookupFlags] -> m (Word64,Word32)), MonadIO m) => MethodInfo ResourceGetInfoMethodInfo Resource signature where - overloadedMethod _ = resourceGetInfo - --- method Resource::lookup_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},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 : Just (TInterface "GLib" "Bytes") --- throws : True --- Skip return : False - -foreign import ccall "g_resource_lookup_data" g_resource_lookup_data :: - Ptr Resource -> -- _obj : TInterface "Gio" "Resource" - CString -> -- path : TBasicType TUTF8 - CUInt -> -- lookup_flags : TInterface "Gio" "ResourceLookupFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr GLib.Bytes) - - -resourceLookupData :: - (MonadIO m) => - Resource -- _obj - -> T.Text -- path - -> [ResourceLookupFlags] -- lookupFlags - -> m GLib.Bytes -- result -resourceLookupData _obj path lookupFlags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - path' <- textToCString path - let lookupFlags' = gflagsToWord lookupFlags - onException (do - result <- propagateGError $ g_resource_lookup_data _obj' path' lookupFlags' - checkUnexpectedReturnNULL "g_resource_lookup_data" result - result' <- (wrapBoxed GLib.Bytes) result - touchManagedPtr _obj - freeMem path' - return result' - ) (do - freeMem path' - ) - -data ResourceLookupDataMethodInfo -instance (signature ~ (T.Text -> [ResourceLookupFlags] -> m GLib.Bytes), MonadIO m) => MethodInfo ResourceLookupDataMethodInfo Resource signature where - overloadedMethod _ = resourceLookupData - --- method Resource::open_stream --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},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 : Just (TInterface "Gio" "InputStream") --- throws : True --- Skip return : False - -foreign import ccall "g_resource_open_stream" g_resource_open_stream :: - Ptr Resource -> -- _obj : TInterface "Gio" "Resource" - CString -> -- path : TBasicType TUTF8 - CUInt -> -- lookup_flags : TInterface "Gio" "ResourceLookupFlags" - Ptr (Ptr GError) -> -- error - IO (Ptr InputStream) - - -resourceOpenStream :: - (MonadIO m) => - Resource -- _obj - -> T.Text -- path - -> [ResourceLookupFlags] -- lookupFlags - -> m InputStream -- result -resourceOpenStream _obj path lookupFlags = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - path' <- textToCString path - let lookupFlags' = gflagsToWord lookupFlags - onException (do - result <- propagateGError $ g_resource_open_stream _obj' path' lookupFlags' - checkUnexpectedReturnNULL "g_resource_open_stream" result - result' <- (wrapObject InputStream) result - touchManagedPtr _obj - freeMem path' - return result' - ) (do - freeMem path' - ) - -data ResourceOpenStreamMethodInfo -instance (signature ~ (T.Text -> [ResourceLookupFlags] -> m InputStream), MonadIO m) => MethodInfo ResourceOpenStreamMethodInfo Resource signature where - overloadedMethod _ = resourceOpenStream - --- method Resource::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Resource") --- throws : False --- Skip return : False - -foreign import ccall "g_resource_ref" g_resource_ref :: - Ptr Resource -> -- _obj : TInterface "Gio" "Resource" - IO (Ptr Resource) - - -resourceRef :: - (MonadIO m) => - Resource -- _obj - -> m Resource -- result -resourceRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_resource_ref _obj' - checkUnexpectedReturnNULL "g_resource_ref" result - result' <- (wrapBoxed Resource) result - touchManagedPtr _obj - return result' - -data ResourceRefMethodInfo -instance (signature ~ (m Resource), MonadIO m) => MethodInfo ResourceRefMethodInfo Resource signature where - overloadedMethod _ = resourceRef - --- method Resource::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "Resource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_resource_unref" g_resource_unref :: - Ptr Resource -> -- _obj : TInterface "Gio" "Resource" - IO () - - -resourceUnref :: - (MonadIO m) => - Resource -- _obj - -> m () -- result -resourceUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_resource_unref _obj' - touchManagedPtr _obj - return () - -data ResourceUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo ResourceUnrefMethodInfo Resource signature where - overloadedMethod _ = resourceUnref - --- method Resource::load --- method type : MemberFunction --- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Resource") --- throws : True --- Skip return : False - -foreign import ccall "g_resource_load" g_resource_load :: - CString -> -- filename : TBasicType TFileName - Ptr (Ptr GError) -> -- error - IO (Ptr Resource) - - -resourceLoad :: - (MonadIO m) => - [Char] -- filename - -> m Resource -- result -resourceLoad filename = liftIO $ do - filename' <- stringToCString filename - onException (do - result <- propagateGError $ g_resource_load filename' - checkUnexpectedReturnNULL "g_resource_load" result - result' <- (wrapBoxed Resource) result - freeMem filename' - return result' - ) (do - freeMem filename' - ) - -type family ResolveResourceMethod (t :: Symbol) (o :: *) :: * where - ResolveResourceMethod "enumerateChildren" o = ResourceEnumerateChildrenMethodInfo - ResolveResourceMethod "lookupData" o = ResourceLookupDataMethodInfo - ResolveResourceMethod "openStream" o = ResourceOpenStreamMethodInfo - ResolveResourceMethod "ref" o = ResourceRefMethodInfo - ResolveResourceMethod "unref" o = ResourceUnrefMethodInfo - ResolveResourceMethod "getInfo" o = ResourceGetInfoMethodInfo - ResolveResourceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveResourceMethod t Resource, MethodInfo info Resource p) => IsLabelProxy t (Resource -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveResourceMethod t Resource, MethodInfo info Resource p) => IsLabel t (Resource -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/Resource.hs-boot b/GI/Gio/Structs/Resource.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/Resource.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Structs.Resource where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Resource = Resource (ForeignPtr Resource) -instance BoxedObject Resource where -data ResourceEnumerateChildrenMethodInfo -data ResourceGetInfoMethodInfo -data ResourceLookupDataMethodInfo -data ResourceOpenStreamMethodInfo -data ResourceRefMethodInfo -data ResourceUnrefMethodInfo diff --git a/GI/Gio/Structs/SettingsBackend.hs b/GI/Gio/Structs/SettingsBackend.hs deleted file mode 100644 --- a/GI/Gio/Structs/SettingsBackend.hs +++ /dev/null @@ -1,79 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The #GSettingsBackend interface defines a generic interface for -non-strictly-typed data that is stored in a hierarchy. To implement -an alternative storage backend for #GSettings, you need to implement -the #GSettingsBackend interface and then make it implement the -extension point #G_SETTINGS_BACKEND_EXTENSION_POINT_NAME. - -The interface defines methods for reading and writing values, a -method for determining if writing of certain values will fail -(lockdown) and a change notification mechanism. - -The semantics of the interface are very precisely defined and -implementations must carefully adhere to the expectations of -callers that are documented on each of the interface methods. - -Some of the GSettingsBackend functions accept or return a #GTree. -These trees always have strings as keys and #GVariant as values. -g_settings_backend_create_tree() is a convenience function to create -suitable trees. - -The GSettingsBackend API is exported to allow third-party -implementations, but does not carry the same stability guarantees -as the public GIO API. For this reason, you have to define the -C preprocessor symbol %G_SETTINGS_ENABLE_BACKEND before including -`gio/gsettingsbackend.h`. --} - -module GI.Gio.Structs.SettingsBackend - ( - --- * Exported types - SettingsBackend(..) , - noSettingsBackend , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype SettingsBackend = SettingsBackend (ForeignPtr SettingsBackend) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr SettingsBackend where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noSettingsBackend :: Maybe SettingsBackend -noSettingsBackend = Nothing - - -type instance AttributeList SettingsBackend = SettingsBackendAttributeList -type SettingsBackendAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveSettingsBackendMethod (t :: Symbol) (o :: *) :: * where - ResolveSettingsBackendMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSettingsBackendMethod t SettingsBackend, MethodInfo info SettingsBackend p) => IsLabelProxy t (SettingsBackend -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSettingsBackendMethod t SettingsBackend, MethodInfo info SettingsBackend p) => IsLabel t (SettingsBackend -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/SettingsBackend.hs-boot b/GI/Gio/Structs/SettingsBackend.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/SettingsBackend.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gio.Structs.SettingsBackend where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SettingsBackend = SettingsBackend (ForeignPtr SettingsBackend) -instance WrappedPtr SettingsBackend where diff --git a/GI/Gio/Structs/SettingsSchema.hs b/GI/Gio/Structs/SettingsSchema.hs deleted file mode 100644 --- a/GI/Gio/Structs/SettingsSchema.hs +++ /dev/null @@ -1,437 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -The #GSettingsSchemaSource and #GSettingsSchema APIs provide a -mechanism for advanced control over the loading of schemas and a -mechanism for introspecting their content. - -Plugin loading systems that wish to provide plugins a way to access -settings face the problem of how to make the schemas for these -settings visible to GSettings. Typically, a plugin will want to ship -the schema along with itself and it won't be installed into the -standard system directories for schemas. - -#GSettingsSchemaSource provides a mechanism for dealing with this by -allowing the creation of a new 'schema source' from which schemas can -be acquired. This schema source can then become part of the metadata -associated with the plugin and queried whenever the plugin requires -access to some settings. - -Consider the following example: - -|[ -typedef struct -{ - ... - GSettingsSchemaSource *schema_source; - ... -} Plugin; - -Plugin * -initialise_plugin (const gchar *dir) -{ - Plugin *plugin; - - ... - - plugin->schema_source = - g_settings_new_schema_source_from_directory (dir, - g_settings_schema_source_get_default (), FALSE, NULL); - - ... - - return plugin; -} - -... - -GSettings * -plugin_get_settings (Plugin *plugin, - const gchar *schema_id) -{ - GSettingsSchema *schema; - - if (schema_id == NULL) - schema_id = plugin->identifier; - - schema = g_settings_schema_source_lookup (plugin->schema_source, - schema_id, FALSE); - - if (schema == NULL) - { - ... disable the plugin or abort, etc ... - } - - return g_settings_new_full (schema, NULL, NULL); -} -]| - -The code above shows how hooks should be added to the code that -initialises (or enables) the plugin to create the schema source and -how an API can be added to the plugin system to provide a convenient -way for the plugin to access its settings, using the schemas that it -ships. - -From the standpoint of the plugin, it would need to ensure that it -ships a gschemas.compiled file as part of itself, and then simply do -the following: - -|[ -{ - GSettings *settings; - gint some_value; - - settings = plugin_get_settings (self, NULL); - some_value = g_settings_get_int (settings, "some-value"); - ... -} -]| - -It's also possible that the plugin system expects the schema source -files (ie: .gschema.xml files) instead of a gschemas.compiled file. -In that case, the plugin loading system must compile the schemas for -itself before attempting to create the settings source. --} - -module GI.Gio.Structs.SettingsSchema - ( - --- * Exported types - SettingsSchema(..) , - noSettingsSchema , - - - -- * Methods --- ** settingsSchemaGetId - SettingsSchemaGetIdMethodInfo , - settingsSchemaGetId , - - --- ** settingsSchemaGetKey - SettingsSchemaGetKeyMethodInfo , - settingsSchemaGetKey , - - --- ** settingsSchemaGetPath - SettingsSchemaGetPathMethodInfo , - settingsSchemaGetPath , - - --- ** settingsSchemaHasKey - SettingsSchemaHasKeyMethodInfo , - settingsSchemaHasKey , - - --- ** settingsSchemaListChildren - SettingsSchemaListChildrenMethodInfo , - settingsSchemaListChildren , - - --- ** settingsSchemaListKeys - SettingsSchemaListKeysMethodInfo , - settingsSchemaListKeys , - - --- ** settingsSchemaRef - SettingsSchemaRefMethodInfo , - settingsSchemaRef , - - --- ** settingsSchemaUnref - SettingsSchemaUnrefMethodInfo , - settingsSchemaUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype SettingsSchema = SettingsSchema (ForeignPtr SettingsSchema) -foreign import ccall "g_settings_schema_get_type" c_g_settings_schema_get_type :: - IO GType - -instance BoxedObject SettingsSchema where - boxedType _ = c_g_settings_schema_get_type - -noSettingsSchema :: Maybe SettingsSchema -noSettingsSchema = Nothing - - -type instance AttributeList SettingsSchema = SettingsSchemaAttributeList -type SettingsSchemaAttributeList = ('[ ] :: [(Symbol, *)]) - --- method SettingsSchema::get_id --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_get_id" g_settings_schema_get_id :: - Ptr SettingsSchema -> -- _obj : TInterface "Gio" "SettingsSchema" - IO CString - - -settingsSchemaGetId :: - (MonadIO m) => - SettingsSchema -- _obj - -> m T.Text -- result -settingsSchemaGetId _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_settings_schema_get_id _obj' - checkUnexpectedReturnNULL "g_settings_schema_get_id" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SettingsSchemaGetIdMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SettingsSchemaGetIdMethodInfo SettingsSchema signature where - overloadedMethod _ = settingsSchemaGetId - --- method SettingsSchema::get_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", 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}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SettingsSchemaKey") --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_get_key" g_settings_schema_get_key :: - Ptr SettingsSchema -> -- _obj : TInterface "Gio" "SettingsSchema" - CString -> -- name : TBasicType TUTF8 - IO (Ptr SettingsSchemaKey) - - -settingsSchemaGetKey :: - (MonadIO m) => - SettingsSchema -- _obj - -> T.Text -- name - -> m SettingsSchemaKey -- result -settingsSchemaGetKey _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- g_settings_schema_get_key _obj' name' - checkUnexpectedReturnNULL "g_settings_schema_get_key" result - result' <- (wrapBoxed SettingsSchemaKey) result - touchManagedPtr _obj - freeMem name' - return result' - -data SettingsSchemaGetKeyMethodInfo -instance (signature ~ (T.Text -> m SettingsSchemaKey), MonadIO m) => MethodInfo SettingsSchemaGetKeyMethodInfo SettingsSchema signature where - overloadedMethod _ = settingsSchemaGetKey - --- method SettingsSchema::get_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_get_path" g_settings_schema_get_path :: - Ptr SettingsSchema -> -- _obj : TInterface "Gio" "SettingsSchema" - IO CString - - -settingsSchemaGetPath :: - (MonadIO m) => - SettingsSchema -- _obj - -> m T.Text -- result -settingsSchemaGetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_settings_schema_get_path _obj' - checkUnexpectedReturnNULL "g_settings_schema_get_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SettingsSchemaGetPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SettingsSchemaGetPathMethodInfo SettingsSchema signature where - overloadedMethod _ = settingsSchemaGetPath - --- method SettingsSchema::has_key --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", 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}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_has_key" g_settings_schema_has_key :: - Ptr SettingsSchema -> -- _obj : TInterface "Gio" "SettingsSchema" - CString -> -- name : TBasicType TUTF8 - IO CInt - - -settingsSchemaHasKey :: - (MonadIO m) => - SettingsSchema -- _obj - -> T.Text -- name - -> m Bool -- result -settingsSchemaHasKey _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- g_settings_schema_has_key _obj' name' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem name' - return result' - -data SettingsSchemaHasKeyMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo SettingsSchemaHasKeyMethodInfo SettingsSchema signature where - overloadedMethod _ = settingsSchemaHasKey - --- method SettingsSchema::list_children --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_list_children" g_settings_schema_list_children :: - Ptr SettingsSchema -> -- _obj : TInterface "Gio" "SettingsSchema" - IO (Ptr CString) - - -settingsSchemaListChildren :: - (MonadIO m) => - SettingsSchema -- _obj - -> m [T.Text] -- result -settingsSchemaListChildren _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_settings_schema_list_children _obj' - checkUnexpectedReturnNULL "g_settings_schema_list_children" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - return result' - -data SettingsSchemaListChildrenMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m) => MethodInfo SettingsSchemaListChildrenMethodInfo SettingsSchema signature where - overloadedMethod _ = settingsSchemaListChildren - --- method SettingsSchema::list_keys --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TCArray True (-1) (-1) (TBasicType TUTF8)) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_list_keys" g_settings_schema_list_keys :: - Ptr SettingsSchema -> -- _obj : TInterface "Gio" "SettingsSchema" - IO (Ptr CString) - - -settingsSchemaListKeys :: - (MonadIO m) => - SettingsSchema -- _obj - -> m [T.Text] -- result -settingsSchemaListKeys _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_settings_schema_list_keys _obj' - checkUnexpectedReturnNULL "g_settings_schema_list_keys" result - result' <- unpackZeroTerminatedUTF8CArray result - mapZeroTerminatedCArray freeMem result - freeMem result - touchManagedPtr _obj - return result' - -data SettingsSchemaListKeysMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m) => MethodInfo SettingsSchemaListKeysMethodInfo SettingsSchema signature where - overloadedMethod _ = settingsSchemaListKeys - --- method SettingsSchema::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SettingsSchema") --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_ref" g_settings_schema_ref :: - Ptr SettingsSchema -> -- _obj : TInterface "Gio" "SettingsSchema" - IO (Ptr SettingsSchema) - - -settingsSchemaRef :: - (MonadIO m) => - SettingsSchema -- _obj - -> m SettingsSchema -- result -settingsSchemaRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_settings_schema_ref _obj' - checkUnexpectedReturnNULL "g_settings_schema_ref" result - result' <- (wrapBoxed SettingsSchema) result - touchManagedPtr _obj - return result' - -data SettingsSchemaRefMethodInfo -instance (signature ~ (m SettingsSchema), MonadIO m) => MethodInfo SettingsSchemaRefMethodInfo SettingsSchema signature where - overloadedMethod _ = settingsSchemaRef - --- method SettingsSchema::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchema", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_unref" g_settings_schema_unref :: - Ptr SettingsSchema -> -- _obj : TInterface "Gio" "SettingsSchema" - IO () - - -settingsSchemaUnref :: - (MonadIO m) => - SettingsSchema -- _obj - -> m () -- result -settingsSchemaUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_settings_schema_unref _obj' - touchManagedPtr _obj - return () - -data SettingsSchemaUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo SettingsSchemaUnrefMethodInfo SettingsSchema signature where - overloadedMethod _ = settingsSchemaUnref - -type family ResolveSettingsSchemaMethod (t :: Symbol) (o :: *) :: * where - ResolveSettingsSchemaMethod "hasKey" o = SettingsSchemaHasKeyMethodInfo - ResolveSettingsSchemaMethod "listChildren" o = SettingsSchemaListChildrenMethodInfo - ResolveSettingsSchemaMethod "listKeys" o = SettingsSchemaListKeysMethodInfo - ResolveSettingsSchemaMethod "ref" o = SettingsSchemaRefMethodInfo - ResolveSettingsSchemaMethod "unref" o = SettingsSchemaUnrefMethodInfo - ResolveSettingsSchemaMethod "getId" o = SettingsSchemaGetIdMethodInfo - ResolveSettingsSchemaMethod "getKey" o = SettingsSchemaGetKeyMethodInfo - ResolveSettingsSchemaMethod "getPath" o = SettingsSchemaGetPathMethodInfo - ResolveSettingsSchemaMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSettingsSchemaMethod t SettingsSchema, MethodInfo info SettingsSchema p) => IsLabelProxy t (SettingsSchema -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSettingsSchemaMethod t SettingsSchema, MethodInfo info SettingsSchema p) => IsLabel t (SettingsSchema -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/SettingsSchema.hs-boot b/GI/Gio/Structs/SettingsSchema.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/SettingsSchema.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Gio.Structs.SettingsSchema where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SettingsSchema = SettingsSchema (ForeignPtr SettingsSchema) -instance BoxedObject SettingsSchema where -data SettingsSchemaGetIdMethodInfo -data SettingsSchemaGetKeyMethodInfo -data SettingsSchemaGetPathMethodInfo -data SettingsSchemaHasKeyMethodInfo -data SettingsSchemaListChildrenMethodInfo -data SettingsSchemaListKeysMethodInfo -data SettingsSchemaRefMethodInfo -data SettingsSchemaUnrefMethodInfo diff --git a/GI/Gio/Structs/SettingsSchemaKey.hs b/GI/Gio/Structs/SettingsSchemaKey.hs deleted file mode 100644 --- a/GI/Gio/Structs/SettingsSchemaKey.hs +++ /dev/null @@ -1,376 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -#GSettingsSchemaKey is an opaque data structure and can only be accessed -using the following functions. --} - -module GI.Gio.Structs.SettingsSchemaKey - ( - --- * Exported types - SettingsSchemaKey(..) , - noSettingsSchemaKey , - - - -- * Methods --- ** settingsSchemaKeyGetDefaultValue - SettingsSchemaKeyGetDefaultValueMethodInfo, - settingsSchemaKeyGetDefaultValue , - - --- ** settingsSchemaKeyGetDescription - SettingsSchemaKeyGetDescriptionMethodInfo, - settingsSchemaKeyGetDescription , - - --- ** settingsSchemaKeyGetName - SettingsSchemaKeyGetNameMethodInfo , - settingsSchemaKeyGetName , - - --- ** settingsSchemaKeyGetRange - SettingsSchemaKeyGetRangeMethodInfo , - settingsSchemaKeyGetRange , - - --- ** settingsSchemaKeyGetSummary - SettingsSchemaKeyGetSummaryMethodInfo , - settingsSchemaKeyGetSummary , - - --- ** settingsSchemaKeyGetValueType - SettingsSchemaKeyGetValueTypeMethodInfo , - settingsSchemaKeyGetValueType , - - --- ** settingsSchemaKeyRangeCheck - SettingsSchemaKeyRangeCheckMethodInfo , - settingsSchemaKeyRangeCheck , - - --- ** settingsSchemaKeyRef - SettingsSchemaKeyRefMethodInfo , - settingsSchemaKeyRef , - - --- ** settingsSchemaKeyUnref - SettingsSchemaKeyUnrefMethodInfo , - settingsSchemaKeyUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype SettingsSchemaKey = SettingsSchemaKey (ForeignPtr SettingsSchemaKey) -foreign import ccall "g_settings_schema_key_get_type" c_g_settings_schema_key_get_type :: - IO GType - -instance BoxedObject SettingsSchemaKey where - boxedType _ = c_g_settings_schema_key_get_type - -noSettingsSchemaKey :: Maybe SettingsSchemaKey -noSettingsSchemaKey = Nothing - - -type instance AttributeList SettingsSchemaKey = SettingsSchemaKeyAttributeList -type SettingsSchemaKeyAttributeList = ('[ ] :: [(Symbol, *)]) - --- method SettingsSchemaKey::get_default_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_key_get_default_value" g_settings_schema_key_get_default_value :: - Ptr SettingsSchemaKey -> -- _obj : TInterface "Gio" "SettingsSchemaKey" - IO (Ptr GVariant) - - -settingsSchemaKeyGetDefaultValue :: - (MonadIO m) => - SettingsSchemaKey -- _obj - -> m GVariant -- result -settingsSchemaKeyGetDefaultValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_settings_schema_key_get_default_value _obj' - checkUnexpectedReturnNULL "g_settings_schema_key_get_default_value" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - return result' - -data SettingsSchemaKeyGetDefaultValueMethodInfo -instance (signature ~ (m GVariant), MonadIO m) => MethodInfo SettingsSchemaKeyGetDefaultValueMethodInfo SettingsSchemaKey signature where - overloadedMethod _ = settingsSchemaKeyGetDefaultValue - --- method SettingsSchemaKey::get_description --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_key_get_description" g_settings_schema_key_get_description :: - Ptr SettingsSchemaKey -> -- _obj : TInterface "Gio" "SettingsSchemaKey" - IO CString - - -settingsSchemaKeyGetDescription :: - (MonadIO m) => - SettingsSchemaKey -- _obj - -> m T.Text -- result -settingsSchemaKeyGetDescription _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_settings_schema_key_get_description _obj' - checkUnexpectedReturnNULL "g_settings_schema_key_get_description" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SettingsSchemaKeyGetDescriptionMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SettingsSchemaKeyGetDescriptionMethodInfo SettingsSchemaKey signature where - overloadedMethod _ = settingsSchemaKeyGetDescription - --- method SettingsSchemaKey::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_key_get_name" g_settings_schema_key_get_name :: - Ptr SettingsSchemaKey -> -- _obj : TInterface "Gio" "SettingsSchemaKey" - IO CString - - -settingsSchemaKeyGetName :: - (MonadIO m) => - SettingsSchemaKey -- _obj - -> m T.Text -- result -settingsSchemaKeyGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_settings_schema_key_get_name _obj' - checkUnexpectedReturnNULL "g_settings_schema_key_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SettingsSchemaKeyGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SettingsSchemaKeyGetNameMethodInfo SettingsSchemaKey signature where - overloadedMethod _ = settingsSchemaKeyGetName - --- method SettingsSchemaKey::get_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just TVariant --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_key_get_range" g_settings_schema_key_get_range :: - Ptr SettingsSchemaKey -> -- _obj : TInterface "Gio" "SettingsSchemaKey" - IO (Ptr GVariant) - - -settingsSchemaKeyGetRange :: - (MonadIO m) => - SettingsSchemaKey -- _obj - -> m GVariant -- result -settingsSchemaKeyGetRange _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_settings_schema_key_get_range _obj' - checkUnexpectedReturnNULL "g_settings_schema_key_get_range" result - result' <- wrapGVariantPtr result - touchManagedPtr _obj - return result' - -data SettingsSchemaKeyGetRangeMethodInfo -instance (signature ~ (m GVariant), MonadIO m) => MethodInfo SettingsSchemaKeyGetRangeMethodInfo SettingsSchemaKey signature where - overloadedMethod _ = settingsSchemaKeyGetRange - --- method SettingsSchemaKey::get_summary --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_key_get_summary" g_settings_schema_key_get_summary :: - Ptr SettingsSchemaKey -> -- _obj : TInterface "Gio" "SettingsSchemaKey" - IO CString - - -settingsSchemaKeyGetSummary :: - (MonadIO m) => - SettingsSchemaKey -- _obj - -> m T.Text -- result -settingsSchemaKeyGetSummary _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_settings_schema_key_get_summary _obj' - checkUnexpectedReturnNULL "g_settings_schema_key_get_summary" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SettingsSchemaKeyGetSummaryMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SettingsSchemaKeyGetSummaryMethodInfo SettingsSchemaKey signature where - overloadedMethod _ = settingsSchemaKeyGetSummary - --- method SettingsSchemaKey::get_value_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "GLib" "VariantType") --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_key_get_value_type" g_settings_schema_key_get_value_type :: - Ptr SettingsSchemaKey -> -- _obj : TInterface "Gio" "SettingsSchemaKey" - IO (Ptr GLib.VariantType) - - -settingsSchemaKeyGetValueType :: - (MonadIO m) => - SettingsSchemaKey -- _obj - -> m GLib.VariantType -- result -settingsSchemaKeyGetValueType _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_settings_schema_key_get_value_type _obj' - checkUnexpectedReturnNULL "g_settings_schema_key_get_value_type" result - result' <- (newBoxed GLib.VariantType) result - touchManagedPtr _obj - return result' - -data SettingsSchemaKeyGetValueTypeMethodInfo -instance (signature ~ (m GLib.VariantType), MonadIO m) => MethodInfo SettingsSchemaKeyGetValueTypeMethodInfo SettingsSchemaKey signature where - overloadedMethod _ = settingsSchemaKeyGetValueType - --- method SettingsSchemaKey::range_check --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_key_range_check" g_settings_schema_key_range_check :: - Ptr SettingsSchemaKey -> -- _obj : TInterface "Gio" "SettingsSchemaKey" - Ptr GVariant -> -- value : TVariant - IO CInt - - -settingsSchemaKeyRangeCheck :: - (MonadIO m) => - SettingsSchemaKey -- _obj - -> GVariant -- value - -> m Bool -- result -settingsSchemaKeyRangeCheck _obj value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let value' = unsafeManagedPtrGetPtr value - result <- g_settings_schema_key_range_check _obj' value' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SettingsSchemaKeyRangeCheckMethodInfo -instance (signature ~ (GVariant -> m Bool), MonadIO m) => MethodInfo SettingsSchemaKeyRangeCheckMethodInfo SettingsSchemaKey signature where - overloadedMethod _ = settingsSchemaKeyRangeCheck - --- method SettingsSchemaKey::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SettingsSchemaKey") --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_key_ref" g_settings_schema_key_ref :: - Ptr SettingsSchemaKey -> -- _obj : TInterface "Gio" "SettingsSchemaKey" - IO (Ptr SettingsSchemaKey) - - -settingsSchemaKeyRef :: - (MonadIO m) => - SettingsSchemaKey -- _obj - -> m SettingsSchemaKey -- result -settingsSchemaKeyRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_settings_schema_key_ref _obj' - checkUnexpectedReturnNULL "g_settings_schema_key_ref" result - result' <- (wrapBoxed SettingsSchemaKey) result - touchManagedPtr _obj - return result' - -data SettingsSchemaKeyRefMethodInfo -instance (signature ~ (m SettingsSchemaKey), MonadIO m) => MethodInfo SettingsSchemaKeyRefMethodInfo SettingsSchemaKey signature where - overloadedMethod _ = settingsSchemaKeyRef - --- method SettingsSchemaKey::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_key_unref" g_settings_schema_key_unref :: - Ptr SettingsSchemaKey -> -- _obj : TInterface "Gio" "SettingsSchemaKey" - IO () - - -settingsSchemaKeyUnref :: - (MonadIO m) => - SettingsSchemaKey -- _obj - -> m () -- result -settingsSchemaKeyUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_settings_schema_key_unref _obj' - touchManagedPtr _obj - return () - -data SettingsSchemaKeyUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo SettingsSchemaKeyUnrefMethodInfo SettingsSchemaKey signature where - overloadedMethod _ = settingsSchemaKeyUnref - -type family ResolveSettingsSchemaKeyMethod (t :: Symbol) (o :: *) :: * where - ResolveSettingsSchemaKeyMethod "rangeCheck" o = SettingsSchemaKeyRangeCheckMethodInfo - ResolveSettingsSchemaKeyMethod "ref" o = SettingsSchemaKeyRefMethodInfo - ResolveSettingsSchemaKeyMethod "unref" o = SettingsSchemaKeyUnrefMethodInfo - ResolveSettingsSchemaKeyMethod "getDefaultValue" o = SettingsSchemaKeyGetDefaultValueMethodInfo - ResolveSettingsSchemaKeyMethod "getDescription" o = SettingsSchemaKeyGetDescriptionMethodInfo - ResolveSettingsSchemaKeyMethod "getName" o = SettingsSchemaKeyGetNameMethodInfo - ResolveSettingsSchemaKeyMethod "getRange" o = SettingsSchemaKeyGetRangeMethodInfo - ResolveSettingsSchemaKeyMethod "getSummary" o = SettingsSchemaKeyGetSummaryMethodInfo - ResolveSettingsSchemaKeyMethod "getValueType" o = SettingsSchemaKeyGetValueTypeMethodInfo - ResolveSettingsSchemaKeyMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSettingsSchemaKeyMethod t SettingsSchemaKey, MethodInfo info SettingsSchemaKey p) => IsLabelProxy t (SettingsSchemaKey -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSettingsSchemaKeyMethod t SettingsSchemaKey, MethodInfo info SettingsSchemaKey p) => IsLabel t (SettingsSchemaKey -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/SettingsSchemaKey.hs-boot b/GI/Gio/Structs/SettingsSchemaKey.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/SettingsSchemaKey.hs-boot +++ /dev/null @@ -1,20 +0,0 @@ -module GI.Gio.Structs.SettingsSchemaKey where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SettingsSchemaKey = SettingsSchemaKey (ForeignPtr SettingsSchemaKey) -instance BoxedObject SettingsSchemaKey where -data SettingsSchemaKeyGetDefaultValueMethodInfo -data SettingsSchemaKeyGetDescriptionMethodInfo -data SettingsSchemaKeyGetNameMethodInfo -data SettingsSchemaKeyGetRangeMethodInfo -data SettingsSchemaKeyGetSummaryMethodInfo -data SettingsSchemaKeyGetValueTypeMethodInfo -data SettingsSchemaKeyRangeCheckMethodInfo -data SettingsSchemaKeyRefMethodInfo -data SettingsSchemaKeyUnrefMethodInfo diff --git a/GI/Gio/Structs/SettingsSchemaSource.hs b/GI/Gio/Structs/SettingsSchemaSource.hs deleted file mode 100644 --- a/GI/Gio/Structs/SettingsSchemaSource.hs +++ /dev/null @@ -1,290 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -This is an opaque structure type. You may not access it directly. --} - -module GI.Gio.Structs.SettingsSchemaSource - ( - --- * Exported types - SettingsSchemaSource(..) , - noSettingsSchemaSource , - - - -- * Methods --- ** settingsSchemaSourceGetDefault - settingsSchemaSourceGetDefault , - - --- ** settingsSchemaSourceListSchemas - SettingsSchemaSourceListSchemasMethodInfo, - settingsSchemaSourceListSchemas , - - --- ** settingsSchemaSourceLookup - SettingsSchemaSourceLookupMethodInfo , - settingsSchemaSourceLookup , - - --- ** settingsSchemaSourceNewFromDirectory - settingsSchemaSourceNewFromDirectory , - - --- ** settingsSchemaSourceRef - SettingsSchemaSourceRefMethodInfo , - settingsSchemaSourceRef , - - --- ** settingsSchemaSourceUnref - SettingsSchemaSourceUnrefMethodInfo , - settingsSchemaSourceUnref , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype SettingsSchemaSource = SettingsSchemaSource (ForeignPtr SettingsSchemaSource) -foreign import ccall "g_settings_schema_source_get_type" c_g_settings_schema_source_get_type :: - IO GType - -instance BoxedObject SettingsSchemaSource where - boxedType _ = c_g_settings_schema_source_get_type - -noSettingsSchemaSource :: Maybe SettingsSchemaSource -noSettingsSchemaSource = Nothing - - -type instance AttributeList SettingsSchemaSource = SettingsSchemaSourceAttributeList -type SettingsSchemaSourceAttributeList = ('[ ] :: [(Symbol, *)]) - --- method SettingsSchemaSource::new_from_directory --- method type : Constructor --- Args : [Arg {argCName = "directory", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "trusted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SettingsSchemaSource") --- throws : True --- Skip return : False - -foreign import ccall "g_settings_schema_source_new_from_directory" g_settings_schema_source_new_from_directory :: - CString -> -- directory : TBasicType TUTF8 - Ptr SettingsSchemaSource -> -- parent : TInterface "Gio" "SettingsSchemaSource" - CInt -> -- trusted : TBasicType TBoolean - Ptr (Ptr GError) -> -- error - IO (Ptr SettingsSchemaSource) - - -settingsSchemaSourceNewFromDirectory :: - (MonadIO m) => - T.Text -- directory - -> Maybe (SettingsSchemaSource) -- parent - -> Bool -- trusted - -> m SettingsSchemaSource -- result -settingsSchemaSourceNewFromDirectory directory parent trusted = liftIO $ do - directory' <- textToCString directory - maybeParent <- case parent of - Nothing -> return nullPtr - Just jParent -> do - let jParent' = unsafeManagedPtrGetPtr jParent - return jParent' - let trusted' = (fromIntegral . fromEnum) trusted - onException (do - result <- propagateGError $ g_settings_schema_source_new_from_directory directory' maybeParent trusted' - checkUnexpectedReturnNULL "g_settings_schema_source_new_from_directory" result - result' <- (wrapBoxed SettingsSchemaSource) result - whenJust parent touchManagedPtr - freeMem directory' - return result' - ) (do - freeMem directory' - ) - --- method SettingsSchemaSource::list_schemas --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "recursive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "non_relocatable", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "relocatable", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_source_list_schemas" g_settings_schema_source_list_schemas :: - Ptr SettingsSchemaSource -> -- _obj : TInterface "Gio" "SettingsSchemaSource" - CInt -> -- recursive : TBasicType TBoolean - Ptr (Ptr CString) -> -- non_relocatable : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr (Ptr CString) -> -- relocatable : TCArray True (-1) (-1) (TBasicType TUTF8) - IO () - - -settingsSchemaSourceListSchemas :: - (MonadIO m) => - SettingsSchemaSource -- _obj - -> Bool -- recursive - -> m ([T.Text],[T.Text]) -- result -settingsSchemaSourceListSchemas _obj recursive = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let recursive' = (fromIntegral . fromEnum) recursive - nonRelocatable <- allocMem :: IO (Ptr (Ptr CString)) - relocatable <- allocMem :: IO (Ptr (Ptr CString)) - g_settings_schema_source_list_schemas _obj' recursive' nonRelocatable relocatable - nonRelocatable' <- peek nonRelocatable - nonRelocatable'' <- unpackZeroTerminatedUTF8CArray nonRelocatable' - mapZeroTerminatedCArray freeMem nonRelocatable' - freeMem nonRelocatable' - relocatable' <- peek relocatable - relocatable'' <- unpackZeroTerminatedUTF8CArray relocatable' - mapZeroTerminatedCArray freeMem relocatable' - freeMem relocatable' - touchManagedPtr _obj - freeMem nonRelocatable - freeMem relocatable - return (nonRelocatable'', relocatable'') - -data SettingsSchemaSourceListSchemasMethodInfo -instance (signature ~ (Bool -> m ([T.Text],[T.Text])), MonadIO m) => MethodInfo SettingsSchemaSourceListSchemasMethodInfo SettingsSchemaSource signature where - overloadedMethod _ = settingsSchemaSourceListSchemas - --- method SettingsSchemaSource::lookup --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "schema_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "recursive", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SettingsSchema") --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_source_lookup" g_settings_schema_source_lookup :: - Ptr SettingsSchemaSource -> -- _obj : TInterface "Gio" "SettingsSchemaSource" - CString -> -- schema_id : TBasicType TUTF8 - CInt -> -- recursive : TBasicType TBoolean - IO (Ptr SettingsSchema) - - -settingsSchemaSourceLookup :: - (MonadIO m) => - SettingsSchemaSource -- _obj - -> T.Text -- schemaId - -> Bool -- recursive - -> m (Maybe SettingsSchema) -- result -settingsSchemaSourceLookup _obj schemaId recursive = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - schemaId' <- textToCString schemaId - let recursive' = (fromIntegral . fromEnum) recursive - result <- g_settings_schema_source_lookup _obj' schemaId' recursive' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed SettingsSchema) result' - return result'' - touchManagedPtr _obj - freeMem schemaId' - return maybeResult - -data SettingsSchemaSourceLookupMethodInfo -instance (signature ~ (T.Text -> Bool -> m (Maybe SettingsSchema)), MonadIO m) => MethodInfo SettingsSchemaSourceLookupMethodInfo SettingsSchemaSource signature where - overloadedMethod _ = settingsSchemaSourceLookup - --- method SettingsSchemaSource::ref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SettingsSchemaSource") --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_source_ref" g_settings_schema_source_ref :: - Ptr SettingsSchemaSource -> -- _obj : TInterface "Gio" "SettingsSchemaSource" - IO (Ptr SettingsSchemaSource) - - -settingsSchemaSourceRef :: - (MonadIO m) => - SettingsSchemaSource -- _obj - -> m SettingsSchemaSource -- result -settingsSchemaSourceRef _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_settings_schema_source_ref _obj' - checkUnexpectedReturnNULL "g_settings_schema_source_ref" result - result' <- (wrapBoxed SettingsSchemaSource) result - touchManagedPtr _obj - return result' - -data SettingsSchemaSourceRefMethodInfo -instance (signature ~ (m SettingsSchemaSource), MonadIO m) => MethodInfo SettingsSchemaSourceRefMethodInfo SettingsSchemaSource signature where - overloadedMethod _ = settingsSchemaSourceRef - --- method SettingsSchemaSource::unref --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SettingsSchemaSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_source_unref" g_settings_schema_source_unref :: - Ptr SettingsSchemaSource -> -- _obj : TInterface "Gio" "SettingsSchemaSource" - IO () - - -settingsSchemaSourceUnref :: - (MonadIO m) => - SettingsSchemaSource -- _obj - -> m () -- result -settingsSchemaSourceUnref _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_settings_schema_source_unref _obj' - touchManagedPtr _obj - return () - -data SettingsSchemaSourceUnrefMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo SettingsSchemaSourceUnrefMethodInfo SettingsSchemaSource signature where - overloadedMethod _ = settingsSchemaSourceUnref - --- method SettingsSchemaSource::get_default --- method type : MemberFunction --- Args : [] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SettingsSchemaSource") --- throws : False --- Skip return : False - -foreign import ccall "g_settings_schema_source_get_default" g_settings_schema_source_get_default :: - IO (Ptr SettingsSchemaSource) - - -settingsSchemaSourceGetDefault :: - (MonadIO m) => - m SettingsSchemaSource -- result -settingsSchemaSourceGetDefault = liftIO $ do - result <- g_settings_schema_source_get_default - checkUnexpectedReturnNULL "g_settings_schema_source_get_default" result - result' <- (newBoxed SettingsSchemaSource) result - return result' - -type family ResolveSettingsSchemaSourceMethod (t :: Symbol) (o :: *) :: * where - ResolveSettingsSchemaSourceMethod "listSchemas" o = SettingsSchemaSourceListSchemasMethodInfo - ResolveSettingsSchemaSourceMethod "lookup" o = SettingsSchemaSourceLookupMethodInfo - ResolveSettingsSchemaSourceMethod "ref" o = SettingsSchemaSourceRefMethodInfo - ResolveSettingsSchemaSourceMethod "unref" o = SettingsSchemaSourceUnrefMethodInfo - ResolveSettingsSchemaSourceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSettingsSchemaSourceMethod t SettingsSchemaSource, MethodInfo info SettingsSchemaSource p) => IsLabelProxy t (SettingsSchemaSource -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSettingsSchemaSourceMethod t SettingsSchemaSource, MethodInfo info SettingsSchemaSource p) => IsLabel t (SettingsSchemaSource -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/SettingsSchemaSource.hs-boot b/GI/Gio/Structs/SettingsSchemaSource.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/SettingsSchemaSource.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Gio.Structs.SettingsSchemaSource where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SettingsSchemaSource = SettingsSchemaSource (ForeignPtr SettingsSchemaSource) -instance BoxedObject SettingsSchemaSource where -data SettingsSchemaSourceListSchemasMethodInfo -data SettingsSchemaSourceLookupMethodInfo -data SettingsSchemaSourceRefMethodInfo -data SettingsSchemaSourceUnrefMethodInfo diff --git a/GI/Gio/Structs/SrvTarget.hs b/GI/Gio/Structs/SrvTarget.hs deleted file mode 100644 --- a/GI/Gio/Structs/SrvTarget.hs +++ /dev/null @@ -1,309 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -SRV (service) records are used by some network protocols to provide -service-specific aliasing and load-balancing. For example, XMPP -(Jabber) uses SRV records to locate the XMPP server for a domain; -rather than connecting directly to "example.com" or assuming a -specific server hostname like "xmpp.example.com", an XMPP client -would look up the "xmpp-client" SRV record for "example.com", and -then connect to whatever host was pointed to by that record. - -You can use g_resolver_lookup_service() or -g_resolver_lookup_service_async() to find the #GSrvTargets -for a given service. However, if you are simply planning to connect -to the remote service, you can use #GNetworkService's -#GSocketConnectable interface and not need to worry about -#GSrvTarget at all. --} - -module GI.Gio.Structs.SrvTarget - ( - --- * Exported types - SrvTarget(..) , - noSrvTarget , - - - -- * Methods --- ** srvTargetCopy - SrvTargetCopyMethodInfo , - srvTargetCopy , - - --- ** srvTargetFree - SrvTargetFreeMethodInfo , - srvTargetFree , - - --- ** srvTargetGetHostname - SrvTargetGetHostnameMethodInfo , - srvTargetGetHostname , - - --- ** srvTargetGetPort - SrvTargetGetPortMethodInfo , - srvTargetGetPort , - - --- ** srvTargetGetPriority - SrvTargetGetPriorityMethodInfo , - srvTargetGetPriority , - - --- ** srvTargetGetWeight - SrvTargetGetWeightMethodInfo , - srvTargetGetWeight , - - --- ** srvTargetNew - srvTargetNew , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype SrvTarget = SrvTarget (ForeignPtr SrvTarget) -foreign import ccall "g_srv_target_get_type" c_g_srv_target_get_type :: - IO GType - -instance BoxedObject SrvTarget where - boxedType _ = c_g_srv_target_get_type - -noSrvTarget :: Maybe SrvTarget -noSrvTarget = Nothing - - -type instance AttributeList SrvTarget = SrvTargetAttributeList -type SrvTargetAttributeList = ('[ ] :: [(Symbol, *)]) - --- method SrvTarget::new --- method type : Constructor --- Args : [Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "weight", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SrvTarget") --- throws : False --- Skip return : False - -foreign import ccall "g_srv_target_new" g_srv_target_new :: - CString -> -- hostname : TBasicType TUTF8 - Word16 -> -- port : TBasicType TUInt16 - Word16 -> -- priority : TBasicType TUInt16 - Word16 -> -- weight : TBasicType TUInt16 - IO (Ptr SrvTarget) - - -srvTargetNew :: - (MonadIO m) => - T.Text -- hostname - -> Word16 -- port - -> Word16 -- priority - -> Word16 -- weight - -> m SrvTarget -- result -srvTargetNew hostname port priority weight = liftIO $ do - hostname' <- textToCString hostname - result <- g_srv_target_new hostname' port priority weight - checkUnexpectedReturnNULL "g_srv_target_new" result - result' <- (wrapBoxed SrvTarget) result - freeMem hostname' - return result' - --- method SrvTarget::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "SrvTarget") --- throws : False --- Skip return : False - -foreign import ccall "g_srv_target_copy" g_srv_target_copy :: - Ptr SrvTarget -> -- _obj : TInterface "Gio" "SrvTarget" - IO (Ptr SrvTarget) - - -srvTargetCopy :: - (MonadIO m) => - SrvTarget -- _obj - -> m SrvTarget -- result -srvTargetCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_srv_target_copy _obj' - checkUnexpectedReturnNULL "g_srv_target_copy" result - result' <- (wrapBoxed SrvTarget) result - touchManagedPtr _obj - return result' - -data SrvTargetCopyMethodInfo -instance (signature ~ (m SrvTarget), MonadIO m) => MethodInfo SrvTargetCopyMethodInfo SrvTarget signature where - overloadedMethod _ = srvTargetCopy - --- method SrvTarget::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_srv_target_free" g_srv_target_free :: - Ptr SrvTarget -> -- _obj : TInterface "Gio" "SrvTarget" - IO () - - -srvTargetFree :: - (MonadIO m) => - SrvTarget -- _obj - -> m () -- result -srvTargetFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_srv_target_free _obj' - touchManagedPtr _obj - return () - -data SrvTargetFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo SrvTargetFreeMethodInfo SrvTarget signature where - overloadedMethod _ = srvTargetFree - --- method SrvTarget::get_hostname --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_srv_target_get_hostname" g_srv_target_get_hostname :: - Ptr SrvTarget -> -- _obj : TInterface "Gio" "SrvTarget" - IO CString - - -srvTargetGetHostname :: - (MonadIO m) => - SrvTarget -- _obj - -> m T.Text -- result -srvTargetGetHostname _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_srv_target_get_hostname _obj' - checkUnexpectedReturnNULL "g_srv_target_get_hostname" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data SrvTargetGetHostnameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo SrvTargetGetHostnameMethodInfo SrvTarget signature where - overloadedMethod _ = srvTargetGetHostname - --- method SrvTarget::get_port --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt16) --- throws : False --- Skip return : False - -foreign import ccall "g_srv_target_get_port" g_srv_target_get_port :: - Ptr SrvTarget -> -- _obj : TInterface "Gio" "SrvTarget" - IO Word16 - - -srvTargetGetPort :: - (MonadIO m) => - SrvTarget -- _obj - -> m Word16 -- result -srvTargetGetPort _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_srv_target_get_port _obj' - touchManagedPtr _obj - return result - -data SrvTargetGetPortMethodInfo -instance (signature ~ (m Word16), MonadIO m) => MethodInfo SrvTargetGetPortMethodInfo SrvTarget signature where - overloadedMethod _ = srvTargetGetPort - --- method SrvTarget::get_priority --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt16) --- throws : False --- Skip return : False - -foreign import ccall "g_srv_target_get_priority" g_srv_target_get_priority :: - Ptr SrvTarget -> -- _obj : TInterface "Gio" "SrvTarget" - IO Word16 - - -srvTargetGetPriority :: - (MonadIO m) => - SrvTarget -- _obj - -> m Word16 -- result -srvTargetGetPriority _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_srv_target_get_priority _obj' - touchManagedPtr _obj - return result - -data SrvTargetGetPriorityMethodInfo -instance (signature ~ (m Word16), MonadIO m) => MethodInfo SrvTargetGetPriorityMethodInfo SrvTarget signature where - overloadedMethod _ = srvTargetGetPriority - --- method SrvTarget::get_weight --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "SrvTarget", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt16) --- throws : False --- Skip return : False - -foreign import ccall "g_srv_target_get_weight" g_srv_target_get_weight :: - Ptr SrvTarget -> -- _obj : TInterface "Gio" "SrvTarget" - IO Word16 - - -srvTargetGetWeight :: - (MonadIO m) => - SrvTarget -- _obj - -> m Word16 -- result -srvTargetGetWeight _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_srv_target_get_weight _obj' - touchManagedPtr _obj - return result - -data SrvTargetGetWeightMethodInfo -instance (signature ~ (m Word16), MonadIO m) => MethodInfo SrvTargetGetWeightMethodInfo SrvTarget signature where - overloadedMethod _ = srvTargetGetWeight - -type family ResolveSrvTargetMethod (t :: Symbol) (o :: *) :: * where - ResolveSrvTargetMethod "copy" o = SrvTargetCopyMethodInfo - ResolveSrvTargetMethod "free" o = SrvTargetFreeMethodInfo - ResolveSrvTargetMethod "getHostname" o = SrvTargetGetHostnameMethodInfo - ResolveSrvTargetMethod "getPort" o = SrvTargetGetPortMethodInfo - ResolveSrvTargetMethod "getPriority" o = SrvTargetGetPriorityMethodInfo - ResolveSrvTargetMethod "getWeight" o = SrvTargetGetWeightMethodInfo - ResolveSrvTargetMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSrvTargetMethod t SrvTarget, MethodInfo info SrvTarget p) => IsLabelProxy t (SrvTarget -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSrvTargetMethod t SrvTarget, MethodInfo info SrvTarget p) => IsLabel t (SrvTarget -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/SrvTarget.hs-boot b/GI/Gio/Structs/SrvTarget.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/SrvTarget.hs-boot +++ /dev/null @@ -1,17 +0,0 @@ -module GI.Gio.Structs.SrvTarget where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype SrvTarget = SrvTarget (ForeignPtr SrvTarget) -instance BoxedObject SrvTarget where -data SrvTargetCopyMethodInfo -data SrvTargetFreeMethodInfo -data SrvTargetGetHostnameMethodInfo -data SrvTargetGetPortMethodInfo -data SrvTargetGetPriorityMethodInfo -data SrvTargetGetWeightMethodInfo diff --git a/GI/Gio/Structs/StaticResource.hs b/GI/Gio/Structs/StaticResource.hs deleted file mode 100644 --- a/GI/Gio/Structs/StaticResource.hs +++ /dev/null @@ -1,172 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -#GStaticResource is an opaque data structure and can only be accessed -using the following functions. --} - -module GI.Gio.Structs.StaticResource - ( - --- * Exported types - StaticResource(..) , - newZeroStaticResource , - noStaticResource , - - - -- * Methods --- ** staticResourceFini - StaticResourceFiniMethodInfo , - staticResourceFini , - - --- ** staticResourceGetResource - StaticResourceGetResourceMethodInfo , - staticResourceGetResource , - - --- ** staticResourceInit - StaticResourceInitMethodInfo , - staticResourceInit , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype StaticResource = StaticResource (ForeignPtr StaticResource) -instance WrappedPtr StaticResource where - wrappedPtrCalloc = callocBytes 40 - wrappedPtrCopy = copyPtr 40 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `StaticResource` struct initialized to zero. -newZeroStaticResource :: MonadIO m => m StaticResource -newZeroStaticResource = liftIO $ wrappedPtrCalloc >>= wrapPtr StaticResource - -instance tag ~ 'AttrSet => Constructible StaticResource tag where - new _ attrs = do - o <- newZeroStaticResource - GI.Attributes.set o attrs - return o - - -noStaticResource :: Maybe StaticResource -noStaticResource = Nothing - - -type instance AttributeList StaticResource = StaticResourceAttributeList -type StaticResourceAttributeList = ('[ ] :: [(Symbol, *)]) - --- method StaticResource::fini --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "StaticResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_static_resource_fini" g_static_resource_fini :: - Ptr StaticResource -> -- _obj : TInterface "Gio" "StaticResource" - IO () - - -staticResourceFini :: - (MonadIO m) => - StaticResource -- _obj - -> m () -- result -staticResourceFini _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_static_resource_fini _obj' - touchManagedPtr _obj - return () - -data StaticResourceFiniMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo StaticResourceFiniMethodInfo StaticResource signature where - overloadedMethod _ = staticResourceFini - --- method StaticResource::get_resource --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "StaticResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Resource") --- throws : False --- Skip return : False - -foreign import ccall "g_static_resource_get_resource" g_static_resource_get_resource :: - Ptr StaticResource -> -- _obj : TInterface "Gio" "StaticResource" - IO (Ptr Resource) - - -staticResourceGetResource :: - (MonadIO m) => - StaticResource -- _obj - -> m Resource -- result -staticResourceGetResource _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_static_resource_get_resource _obj' - checkUnexpectedReturnNULL "g_static_resource_get_resource" result - result' <- (newBoxed Resource) result - touchManagedPtr _obj - return result' - -data StaticResourceGetResourceMethodInfo -instance (signature ~ (m Resource), MonadIO m) => MethodInfo StaticResourceGetResourceMethodInfo StaticResource signature where - overloadedMethod _ = staticResourceGetResource - --- method StaticResource::init --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "StaticResource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_static_resource_init" g_static_resource_init :: - Ptr StaticResource -> -- _obj : TInterface "Gio" "StaticResource" - IO () - - -staticResourceInit :: - (MonadIO m) => - StaticResource -- _obj - -> m () -- result -staticResourceInit _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_static_resource_init _obj' - touchManagedPtr _obj - return () - -data StaticResourceInitMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo StaticResourceInitMethodInfo StaticResource signature where - overloadedMethod _ = staticResourceInit - -type family ResolveStaticResourceMethod (t :: Symbol) (o :: *) :: * where - ResolveStaticResourceMethod "fini" o = StaticResourceFiniMethodInfo - ResolveStaticResourceMethod "init" o = StaticResourceInitMethodInfo - ResolveStaticResourceMethod "getResource" o = StaticResourceGetResourceMethodInfo - ResolveStaticResourceMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveStaticResourceMethod t StaticResource, MethodInfo info StaticResource p) => IsLabelProxy t (StaticResource -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveStaticResourceMethod t StaticResource, MethodInfo info StaticResource p) => IsLabel t (StaticResource -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/StaticResource.hs-boot b/GI/Gio/Structs/StaticResource.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/StaticResource.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Gio.Structs.StaticResource where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype StaticResource = StaticResource (ForeignPtr StaticResource) -instance WrappedPtr StaticResource where -data StaticResourceFiniMethodInfo -data StaticResourceGetResourceMethodInfo -data StaticResourceInitMethodInfo diff --git a/GI/Gio/Structs/UnixMountEntry.hs b/GI/Gio/Structs/UnixMountEntry.hs deleted file mode 100644 --- a/GI/Gio/Structs/UnixMountEntry.hs +++ /dev/null @@ -1,57 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Defines a Unix mount entry (e.g. /media/cdrom). -This corresponds roughly to a mtab entry. --} - -module GI.Gio.Structs.UnixMountEntry - ( - --- * Exported types - UnixMountEntry(..) , - noUnixMountEntry , - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype UnixMountEntry = UnixMountEntry (ForeignPtr UnixMountEntry) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr UnixMountEntry where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noUnixMountEntry :: Maybe UnixMountEntry -noUnixMountEntry = Nothing - - -type instance AttributeList UnixMountEntry = UnixMountEntryAttributeList -type UnixMountEntryAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveUnixMountEntryMethod (t :: Symbol) (o :: *) :: * where - ResolveUnixMountEntryMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveUnixMountEntryMethod t UnixMountEntry, MethodInfo info UnixMountEntry p) => IsLabelProxy t (UnixMountEntry -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveUnixMountEntryMethod t UnixMountEntry, MethodInfo info UnixMountEntry p) => IsLabel t (UnixMountEntry -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/UnixMountEntry.hs-boot b/GI/Gio/Structs/UnixMountEntry.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/UnixMountEntry.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Gio.Structs.UnixMountEntry where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype UnixMountEntry = UnixMountEntry (ForeignPtr UnixMountEntry) -instance WrappedPtr UnixMountEntry where diff --git a/GI/Gio/Structs/UnixMountPoint.hs b/GI/Gio/Structs/UnixMountPoint.hs deleted file mode 100644 --- a/GI/Gio/Structs/UnixMountPoint.hs +++ /dev/null @@ -1,512 +0,0 @@ - - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Defines a Unix mount point (e.g. /dev). -This corresponds roughly to a fstab entry. --} - -module GI.Gio.Structs.UnixMountPoint - ( - --- * Exported types - UnixMountPoint(..) , - noUnixMountPoint , - - - -- * Methods --- ** unixMountPointCompare - UnixMountPointCompareMethodInfo , - unixMountPointCompare , - - --- ** unixMountPointFree - UnixMountPointFreeMethodInfo , - unixMountPointFree , - - --- ** unixMountPointGetDevicePath - UnixMountPointGetDevicePathMethodInfo , - unixMountPointGetDevicePath , - - --- ** unixMountPointGetFsType - UnixMountPointGetFsTypeMethodInfo , - unixMountPointGetFsType , - - --- ** unixMountPointGetMountPath - UnixMountPointGetMountPathMethodInfo , - unixMountPointGetMountPath , - - --- ** unixMountPointGetOptions - UnixMountPointGetOptionsMethodInfo , - unixMountPointGetOptions , - - --- ** unixMountPointGuessCanEject - UnixMountPointGuessCanEjectMethodInfo , - unixMountPointGuessCanEject , - - --- ** unixMountPointGuessIcon - UnixMountPointGuessIconMethodInfo , - unixMountPointGuessIcon , - - --- ** unixMountPointGuessName - UnixMountPointGuessNameMethodInfo , - unixMountPointGuessName , - - --- ** unixMountPointGuessSymbolicIcon - UnixMountPointGuessSymbolicIconMethodInfo, - unixMountPointGuessSymbolicIcon , - - --- ** unixMountPointIsLoopback - UnixMountPointIsLoopbackMethodInfo , - unixMountPointIsLoopback , - - --- ** unixMountPointIsReadonly - UnixMountPointIsReadonlyMethodInfo , - unixMountPointIsReadonly , - - --- ** unixMountPointIsUserMountable - UnixMountPointIsUserMountableMethodInfo , - unixMountPointIsUserMountable , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -newtype UnixMountPoint = UnixMountPoint (ForeignPtr UnixMountPoint) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr UnixMountPoint where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noUnixMountPoint :: Maybe UnixMountPoint -noUnixMountPoint = Nothing - - -type instance AttributeList UnixMountPoint = UnixMountPointAttributeList -type UnixMountPointAttributeList = ('[ ] :: [(Symbol, *)]) - --- method UnixMountPoint::compare --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mount2", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_point_compare" g_unix_mount_point_compare :: - Ptr UnixMountPoint -> -- _obj : TInterface "Gio" "UnixMountPoint" - Ptr UnixMountPoint -> -- mount2 : TInterface "Gio" "UnixMountPoint" - IO Int32 - - -unixMountPointCompare :: - (MonadIO m) => - UnixMountPoint -- _obj - -> UnixMountPoint -- mount2 - -> m Int32 -- result -unixMountPointCompare _obj mount2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let mount2' = unsafeManagedPtrGetPtr mount2 - result <- g_unix_mount_point_compare _obj' mount2' - touchManagedPtr _obj - touchManagedPtr mount2 - return result - -data UnixMountPointCompareMethodInfo -instance (signature ~ (UnixMountPoint -> m Int32), MonadIO m) => MethodInfo UnixMountPointCompareMethodInfo UnixMountPoint signature where - overloadedMethod _ = unixMountPointCompare - --- method UnixMountPoint::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_point_free" g_unix_mount_point_free :: - Ptr UnixMountPoint -> -- _obj : TInterface "Gio" "UnixMountPoint" - IO () - - -unixMountPointFree :: - (MonadIO m) => - UnixMountPoint -- _obj - -> m () -- result -unixMountPointFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - g_unix_mount_point_free _obj' - touchManagedPtr _obj - return () - -data UnixMountPointFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo UnixMountPointFreeMethodInfo UnixMountPoint signature where - overloadedMethod _ = unixMountPointFree - --- method UnixMountPoint::get_device_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_point_get_device_path" g_unix_mount_point_get_device_path :: - Ptr UnixMountPoint -> -- _obj : TInterface "Gio" "UnixMountPoint" - IO CString - - -unixMountPointGetDevicePath :: - (MonadIO m) => - UnixMountPoint -- _obj - -> m T.Text -- result -unixMountPointGetDevicePath _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_unix_mount_point_get_device_path _obj' - checkUnexpectedReturnNULL "g_unix_mount_point_get_device_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data UnixMountPointGetDevicePathMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo UnixMountPointGetDevicePathMethodInfo UnixMountPoint signature where - overloadedMethod _ = unixMountPointGetDevicePath - --- method UnixMountPoint::get_fs_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_point_get_fs_type" g_unix_mount_point_get_fs_type :: - Ptr UnixMountPoint -> -- _obj : TInterface "Gio" "UnixMountPoint" - IO CString - - -unixMountPointGetFsType :: - (MonadIO m) => - UnixMountPoint -- _obj - -> m T.Text -- result -unixMountPointGetFsType _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_unix_mount_point_get_fs_type _obj' - checkUnexpectedReturnNULL "g_unix_mount_point_get_fs_type" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data UnixMountPointGetFsTypeMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo UnixMountPointGetFsTypeMethodInfo UnixMountPoint signature where - overloadedMethod _ = unixMountPointGetFsType - --- method UnixMountPoint::get_mount_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_point_get_mount_path" g_unix_mount_point_get_mount_path :: - Ptr UnixMountPoint -> -- _obj : TInterface "Gio" "UnixMountPoint" - IO CString - - -unixMountPointGetMountPath :: - (MonadIO m) => - UnixMountPoint -- _obj - -> m T.Text -- result -unixMountPointGetMountPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_unix_mount_point_get_mount_path _obj' - checkUnexpectedReturnNULL "g_unix_mount_point_get_mount_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data UnixMountPointGetMountPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo UnixMountPointGetMountPathMethodInfo UnixMountPoint signature where - overloadedMethod _ = unixMountPointGetMountPath - --- method UnixMountPoint::get_options --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_point_get_options" g_unix_mount_point_get_options :: - Ptr UnixMountPoint -> -- _obj : TInterface "Gio" "UnixMountPoint" - IO CString - - -unixMountPointGetOptions :: - (MonadIO m) => - UnixMountPoint -- _obj - -> m T.Text -- result -unixMountPointGetOptions _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_unix_mount_point_get_options _obj' - checkUnexpectedReturnNULL "g_unix_mount_point_get_options" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - -data UnixMountPointGetOptionsMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo UnixMountPointGetOptionsMethodInfo UnixMountPoint signature where - overloadedMethod _ = unixMountPointGetOptions - --- method UnixMountPoint::guess_can_eject --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_point_guess_can_eject" g_unix_mount_point_guess_can_eject :: - Ptr UnixMountPoint -> -- _obj : TInterface "Gio" "UnixMountPoint" - IO CInt - - -unixMountPointGuessCanEject :: - (MonadIO m) => - UnixMountPoint -- _obj - -> m Bool -- result -unixMountPointGuessCanEject _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_unix_mount_point_guess_can_eject _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data UnixMountPointGuessCanEjectMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo UnixMountPointGuessCanEjectMethodInfo UnixMountPoint signature where - overloadedMethod _ = unixMountPointGuessCanEject - --- method UnixMountPoint::guess_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_point_guess_icon" g_unix_mount_point_guess_icon :: - Ptr UnixMountPoint -> -- _obj : TInterface "Gio" "UnixMountPoint" - IO (Ptr Icon) - - -unixMountPointGuessIcon :: - (MonadIO m) => - UnixMountPoint -- _obj - -> m Icon -- result -unixMountPointGuessIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_unix_mount_point_guess_icon _obj' - checkUnexpectedReturnNULL "g_unix_mount_point_guess_icon" result - result' <- (wrapObject Icon) result - touchManagedPtr _obj - return result' - -data UnixMountPointGuessIconMethodInfo -instance (signature ~ (m Icon), MonadIO m) => MethodInfo UnixMountPointGuessIconMethodInfo UnixMountPoint signature where - overloadedMethod _ = unixMountPointGuessIcon - --- method UnixMountPoint::guess_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_point_guess_name" g_unix_mount_point_guess_name :: - Ptr UnixMountPoint -> -- _obj : TInterface "Gio" "UnixMountPoint" - IO CString - - -unixMountPointGuessName :: - (MonadIO m) => - UnixMountPoint -- _obj - -> m T.Text -- result -unixMountPointGuessName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_unix_mount_point_guess_name _obj' - checkUnexpectedReturnNULL "g_unix_mount_point_guess_name" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data UnixMountPointGuessNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo UnixMountPointGuessNameMethodInfo UnixMountPoint signature where - overloadedMethod _ = unixMountPointGuessName - --- method UnixMountPoint::guess_symbolic_icon --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Gio" "Icon") --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_point_guess_symbolic_icon" g_unix_mount_point_guess_symbolic_icon :: - Ptr UnixMountPoint -> -- _obj : TInterface "Gio" "UnixMountPoint" - IO (Ptr Icon) - - -unixMountPointGuessSymbolicIcon :: - (MonadIO m) => - UnixMountPoint -- _obj - -> m Icon -- result -unixMountPointGuessSymbolicIcon _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_unix_mount_point_guess_symbolic_icon _obj' - checkUnexpectedReturnNULL "g_unix_mount_point_guess_symbolic_icon" result - result' <- (wrapObject Icon) result - touchManagedPtr _obj - return result' - -data UnixMountPointGuessSymbolicIconMethodInfo -instance (signature ~ (m Icon), MonadIO m) => MethodInfo UnixMountPointGuessSymbolicIconMethodInfo UnixMountPoint signature where - overloadedMethod _ = unixMountPointGuessSymbolicIcon - --- method UnixMountPoint::is_loopback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_point_is_loopback" g_unix_mount_point_is_loopback :: - Ptr UnixMountPoint -> -- _obj : TInterface "Gio" "UnixMountPoint" - IO CInt - - -unixMountPointIsLoopback :: - (MonadIO m) => - UnixMountPoint -- _obj - -> m Bool -- result -unixMountPointIsLoopback _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_unix_mount_point_is_loopback _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data UnixMountPointIsLoopbackMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo UnixMountPointIsLoopbackMethodInfo UnixMountPoint signature where - overloadedMethod _ = unixMountPointIsLoopback - --- method UnixMountPoint::is_readonly --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_point_is_readonly" g_unix_mount_point_is_readonly :: - Ptr UnixMountPoint -> -- _obj : TInterface "Gio" "UnixMountPoint" - IO CInt - - -unixMountPointIsReadonly :: - (MonadIO m) => - UnixMountPoint -- _obj - -> m Bool -- result -unixMountPointIsReadonly _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_unix_mount_point_is_readonly _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data UnixMountPointIsReadonlyMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo UnixMountPointIsReadonlyMethodInfo UnixMountPoint signature where - overloadedMethod _ = unixMountPointIsReadonly - --- method UnixMountPoint::is_user_mountable --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Gio" "UnixMountPoint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "g_unix_mount_point_is_user_mountable" g_unix_mount_point_is_user_mountable :: - Ptr UnixMountPoint -> -- _obj : TInterface "Gio" "UnixMountPoint" - IO CInt - - -unixMountPointIsUserMountable :: - (MonadIO m) => - UnixMountPoint -- _obj - -> m Bool -- result -unixMountPointIsUserMountable _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- g_unix_mount_point_is_user_mountable _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data UnixMountPointIsUserMountableMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo UnixMountPointIsUserMountableMethodInfo UnixMountPoint signature where - overloadedMethod _ = unixMountPointIsUserMountable - -type family ResolveUnixMountPointMethod (t :: Symbol) (o :: *) :: * where - ResolveUnixMountPointMethod "compare" o = UnixMountPointCompareMethodInfo - ResolveUnixMountPointMethod "free" o = UnixMountPointFreeMethodInfo - ResolveUnixMountPointMethod "guessCanEject" o = UnixMountPointGuessCanEjectMethodInfo - ResolveUnixMountPointMethod "guessIcon" o = UnixMountPointGuessIconMethodInfo - ResolveUnixMountPointMethod "guessName" o = UnixMountPointGuessNameMethodInfo - ResolveUnixMountPointMethod "guessSymbolicIcon" o = UnixMountPointGuessSymbolicIconMethodInfo - ResolveUnixMountPointMethod "isLoopback" o = UnixMountPointIsLoopbackMethodInfo - ResolveUnixMountPointMethod "isReadonly" o = UnixMountPointIsReadonlyMethodInfo - ResolveUnixMountPointMethod "isUserMountable" o = UnixMountPointIsUserMountableMethodInfo - ResolveUnixMountPointMethod "getDevicePath" o = UnixMountPointGetDevicePathMethodInfo - ResolveUnixMountPointMethod "getFsType" o = UnixMountPointGetFsTypeMethodInfo - ResolveUnixMountPointMethod "getMountPath" o = UnixMountPointGetMountPathMethodInfo - ResolveUnixMountPointMethod "getOptions" o = UnixMountPointGetOptionsMethodInfo - ResolveUnixMountPointMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveUnixMountPointMethod t UnixMountPoint, MethodInfo info UnixMountPoint p) => IsLabelProxy t (UnixMountPoint -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveUnixMountPointMethod t UnixMountPoint, MethodInfo info UnixMountPoint p) => IsLabel t (UnixMountPoint -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Gio/Structs/UnixMountPoint.hs-boot b/GI/Gio/Structs/UnixMountPoint.hs-boot deleted file mode 100644 --- a/GI/Gio/Structs/UnixMountPoint.hs-boot +++ /dev/null @@ -1,24 +0,0 @@ -module GI.Gio.Structs.UnixMountPoint where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype UnixMountPoint = UnixMountPoint (ForeignPtr UnixMountPoint) -instance WrappedPtr UnixMountPoint where -data UnixMountPointCompareMethodInfo -data UnixMountPointFreeMethodInfo -data UnixMountPointGetDevicePathMethodInfo -data UnixMountPointGetFsTypeMethodInfo -data UnixMountPointGetMountPathMethodInfo -data UnixMountPointGetOptionsMethodInfo -data UnixMountPointGuessCanEjectMethodInfo -data UnixMountPointGuessIconMethodInfo -data UnixMountPointGuessNameMethodInfo -data UnixMountPointGuessSymbolicIconMethodInfo -data UnixMountPointIsLoopbackMethodInfo -data UnixMountPointIsReadonlyMethodInfo -data UnixMountPointIsUserMountableMethodInfo diff --git a/GI/Gio/Types.hs b/GI/Gio/Types.hs deleted file mode 100644 --- a/GI/Gio/Types.hs +++ /dev/null @@ -1,348 +0,0 @@ -module GI.Gio.Types - ( module GI.Gio.Interfaces.Action , - module GI.Gio.Interfaces.ActionGroup , - module GI.Gio.Interfaces.ActionMap , - module GI.Gio.Interfaces.AppInfo , - module GI.Gio.Interfaces.AsyncInitable , - module GI.Gio.Interfaces.AsyncResult , - module GI.Gio.Interfaces.Converter , - module GI.Gio.Interfaces.DBusInterface , - module GI.Gio.Interfaces.DBusObject , - module GI.Gio.Interfaces.DBusObjectManager, - module GI.Gio.Interfaces.DesktopAppInfoLookup, - module GI.Gio.Interfaces.Drive , - module GI.Gio.Interfaces.File , - module GI.Gio.Interfaces.FileDescriptorBased, - module GI.Gio.Interfaces.Icon , - module GI.Gio.Interfaces.Initable , - module GI.Gio.Interfaces.ListModel , - module GI.Gio.Interfaces.LoadableIcon , - module GI.Gio.Interfaces.Mount , - module GI.Gio.Interfaces.NetworkMonitor , - module GI.Gio.Interfaces.PollableInputStream, - module GI.Gio.Interfaces.PollableOutputStream, - module GI.Gio.Interfaces.Proxy , - module GI.Gio.Interfaces.ProxyResolver , - module GI.Gio.Interfaces.RemoteActionGroup, - module GI.Gio.Interfaces.Seekable , - module GI.Gio.Interfaces.SocketConnectable, - module GI.Gio.Interfaces.TlsBackend , - module GI.Gio.Interfaces.TlsClientConnection, - module GI.Gio.Interfaces.TlsFileDatabase, - module GI.Gio.Interfaces.TlsServerConnection, - module GI.Gio.Interfaces.Volume , - module GI.Gio.Objects.AppInfoMonitor , - module GI.Gio.Objects.AppLaunchContext , - module GI.Gio.Objects.Application , - module GI.Gio.Objects.ApplicationCommandLine, - module GI.Gio.Objects.BufferedInputStream, - module GI.Gio.Objects.BufferedOutputStream, - module GI.Gio.Objects.BytesIcon , - module GI.Gio.Objects.Cancellable , - module GI.Gio.Objects.CharsetConverter , - module GI.Gio.Objects.ConverterInputStream, - module GI.Gio.Objects.ConverterOutputStream, - module GI.Gio.Objects.Credentials , - module GI.Gio.Objects.DBusActionGroup , - module GI.Gio.Objects.DBusAuthObserver , - module GI.Gio.Objects.DBusConnection , - module GI.Gio.Objects.DBusInterfaceSkeleton, - module GI.Gio.Objects.DBusMenuModel , - module GI.Gio.Objects.DBusMessage , - module GI.Gio.Objects.DBusMethodInvocation, - module GI.Gio.Objects.DBusObjectManagerClient, - module GI.Gio.Objects.DBusObjectManagerServer, - module GI.Gio.Objects.DBusObjectProxy , - module GI.Gio.Objects.DBusObjectSkeleton, - module GI.Gio.Objects.DBusProxy , - module GI.Gio.Objects.DBusServer , - module GI.Gio.Objects.DataInputStream , - module GI.Gio.Objects.DataOutputStream , - module GI.Gio.Objects.DesktopAppInfo , - module GI.Gio.Objects.Emblem , - module GI.Gio.Objects.EmblemedIcon , - module GI.Gio.Objects.FileEnumerator , - module GI.Gio.Objects.FileIOStream , - module GI.Gio.Objects.FileIcon , - module GI.Gio.Objects.FileInfo , - module GI.Gio.Objects.FileInputStream , - module GI.Gio.Objects.FileMonitor , - module GI.Gio.Objects.FileOutputStream , - module GI.Gio.Objects.FilenameCompleter , - module GI.Gio.Objects.FilterInputStream , - module GI.Gio.Objects.FilterOutputStream, - module GI.Gio.Objects.IOStream , - module GI.Gio.Objects.InetAddress , - module GI.Gio.Objects.InetAddressMask , - module GI.Gio.Objects.InetSocketAddress , - module GI.Gio.Objects.InputStream , - module GI.Gio.Objects.ListStore , - module GI.Gio.Objects.MemoryInputStream , - module GI.Gio.Objects.MemoryOutputStream, - module GI.Gio.Objects.Menu , - module GI.Gio.Objects.MenuAttributeIter , - module GI.Gio.Objects.MenuItem , - module GI.Gio.Objects.MenuLinkIter , - module GI.Gio.Objects.MenuModel , - module GI.Gio.Objects.MountOperation , - module GI.Gio.Objects.NativeVolumeMonitor, - module GI.Gio.Objects.NetworkAddress , - module GI.Gio.Objects.NetworkService , - module GI.Gio.Objects.Notification , - module GI.Gio.Objects.OutputStream , - module GI.Gio.Objects.Permission , - module GI.Gio.Objects.PropertyAction , - module GI.Gio.Objects.ProxyAddress , - module GI.Gio.Objects.ProxyAddressEnumerator, - module GI.Gio.Objects.Resolver , - module GI.Gio.Objects.Settings , - module GI.Gio.Objects.SimpleAction , - module GI.Gio.Objects.SimpleActionGroup , - module GI.Gio.Objects.SimpleAsyncResult , - module GI.Gio.Objects.SimpleIOStream , - module GI.Gio.Objects.SimplePermission , - module GI.Gio.Objects.SimpleProxyResolver, - module GI.Gio.Objects.Socket , - module GI.Gio.Objects.SocketAddress , - module GI.Gio.Objects.SocketAddressEnumerator, - module GI.Gio.Objects.SocketClient , - module GI.Gio.Objects.SocketConnection , - module GI.Gio.Objects.SocketControlMessage, - module GI.Gio.Objects.SocketListener , - module GI.Gio.Objects.SocketService , - module GI.Gio.Objects.Subprocess , - module GI.Gio.Objects.SubprocessLauncher, - module GI.Gio.Objects.Task , - module GI.Gio.Objects.TcpConnection , - module GI.Gio.Objects.TcpWrapperConnection, - module GI.Gio.Objects.TestDBus , - module GI.Gio.Objects.ThemedIcon , - module GI.Gio.Objects.ThreadedSocketService, - module GI.Gio.Objects.TlsCertificate , - module GI.Gio.Objects.TlsConnection , - module GI.Gio.Objects.TlsDatabase , - module GI.Gio.Objects.TlsInteraction , - module GI.Gio.Objects.TlsPassword , - module GI.Gio.Objects.UnixConnection , - module GI.Gio.Objects.UnixCredentialsMessage, - module GI.Gio.Objects.UnixFDList , - module GI.Gio.Objects.UnixFDMessage , - module GI.Gio.Objects.UnixInputStream , - module GI.Gio.Objects.UnixMountMonitor , - module GI.Gio.Objects.UnixOutputStream , - module GI.Gio.Objects.UnixSocketAddress , - module GI.Gio.Objects.Vfs , - module GI.Gio.Objects.VolumeMonitor , - module GI.Gio.Objects.ZlibCompressor , - module GI.Gio.Objects.ZlibDecompressor , - module GI.Gio.Structs.ActionEntry , - module GI.Gio.Structs.DBusAnnotationInfo, - module GI.Gio.Structs.DBusArgInfo , - module GI.Gio.Structs.DBusErrorEntry , - module GI.Gio.Structs.DBusInterfaceInfo , - module GI.Gio.Structs.DBusInterfaceVTable, - module GI.Gio.Structs.DBusMethodInfo , - module GI.Gio.Structs.DBusNodeInfo , - module GI.Gio.Structs.DBusPropertyInfo , - module GI.Gio.Structs.DBusSignalInfo , - module GI.Gio.Structs.DBusSubtreeVTable , - module GI.Gio.Structs.FileAttributeInfo , - module GI.Gio.Structs.FileAttributeInfoList, - module GI.Gio.Structs.FileAttributeMatcher, - module GI.Gio.Structs.IOExtension , - module GI.Gio.Structs.IOExtensionPoint , - module GI.Gio.Structs.IOModuleScope , - module GI.Gio.Structs.IOSchedulerJob , - module GI.Gio.Structs.IOStreamAdapter , - module GI.Gio.Structs.InputVector , - module GI.Gio.Structs.NativeSocketAddress, - module GI.Gio.Structs.OutputMessage , - module GI.Gio.Structs.OutputVector , - module GI.Gio.Structs.Resource , - module GI.Gio.Structs.SettingsBackend , - module GI.Gio.Structs.SettingsSchema , - module GI.Gio.Structs.SettingsSchemaKey , - module GI.Gio.Structs.SettingsSchemaSource, - module GI.Gio.Structs.SrvTarget , - module GI.Gio.Structs.StaticResource , - module GI.Gio.Structs.UnixMountEntry , - module GI.Gio.Structs.UnixMountPoint , - module GI.Gio.Enums , - module GI.Gio.Flags , - - - ) where - - -import {-# SOURCE #-} GI.Gio.Interfaces.Action -import {-# SOURCE #-} GI.Gio.Interfaces.ActionGroup -import {-# SOURCE #-} GI.Gio.Interfaces.ActionMap -import {-# SOURCE #-} GI.Gio.Interfaces.AppInfo -import {-# SOURCE #-} GI.Gio.Interfaces.AsyncInitable -import {-# SOURCE #-} GI.Gio.Interfaces.AsyncResult -import {-# SOURCE #-} GI.Gio.Interfaces.Converter -import {-# SOURCE #-} GI.Gio.Interfaces.DBusInterface -import {-# SOURCE #-} GI.Gio.Interfaces.DBusObject -import {-# SOURCE #-} GI.Gio.Interfaces.DBusObjectManager -import {-# SOURCE #-} GI.Gio.Interfaces.DesktopAppInfoLookup -import {-# SOURCE #-} GI.Gio.Interfaces.Drive -import {-# SOURCE #-} GI.Gio.Interfaces.File -import {-# SOURCE #-} GI.Gio.Interfaces.FileDescriptorBased -import {-# SOURCE #-} GI.Gio.Interfaces.Icon -import {-# SOURCE #-} GI.Gio.Interfaces.Initable -import {-# SOURCE #-} GI.Gio.Interfaces.ListModel -import {-# SOURCE #-} GI.Gio.Interfaces.LoadableIcon -import {-# SOURCE #-} GI.Gio.Interfaces.Mount -import {-# SOURCE #-} GI.Gio.Interfaces.NetworkMonitor -import {-# SOURCE #-} GI.Gio.Interfaces.PollableInputStream -import {-# SOURCE #-} GI.Gio.Interfaces.PollableOutputStream -import {-# SOURCE #-} GI.Gio.Interfaces.Proxy -import {-# SOURCE #-} GI.Gio.Interfaces.ProxyResolver -import {-# SOURCE #-} GI.Gio.Interfaces.RemoteActionGroup -import {-# SOURCE #-} GI.Gio.Interfaces.Seekable -import {-# SOURCE #-} GI.Gio.Interfaces.SocketConnectable -import {-# SOURCE #-} GI.Gio.Interfaces.TlsBackend -import {-# SOURCE #-} GI.Gio.Interfaces.TlsClientConnection -import {-# SOURCE #-} GI.Gio.Interfaces.TlsFileDatabase -import {-# SOURCE #-} GI.Gio.Interfaces.TlsServerConnection -import {-# SOURCE #-} GI.Gio.Interfaces.Volume -import {-# SOURCE #-} GI.Gio.Objects.AppInfoMonitor -import {-# SOURCE #-} GI.Gio.Objects.AppLaunchContext -import {-# SOURCE #-} GI.Gio.Objects.Application -import {-# SOURCE #-} GI.Gio.Objects.ApplicationCommandLine -import {-# SOURCE #-} GI.Gio.Objects.BufferedInputStream -import {-# SOURCE #-} GI.Gio.Objects.BufferedOutputStream -import {-# SOURCE #-} GI.Gio.Objects.BytesIcon -import {-# SOURCE #-} GI.Gio.Objects.Cancellable -import {-# SOURCE #-} GI.Gio.Objects.CharsetConverter -import {-# SOURCE #-} GI.Gio.Objects.ConverterInputStream -import {-# SOURCE #-} GI.Gio.Objects.ConverterOutputStream -import {-# SOURCE #-} GI.Gio.Objects.Credentials -import {-# SOURCE #-} GI.Gio.Objects.DBusActionGroup -import {-# SOURCE #-} GI.Gio.Objects.DBusAuthObserver -import {-# SOURCE #-} GI.Gio.Objects.DBusConnection -import {-# SOURCE #-} GI.Gio.Objects.DBusInterfaceSkeleton -import {-# SOURCE #-} GI.Gio.Objects.DBusMenuModel -import {-# SOURCE #-} GI.Gio.Objects.DBusMessage -import {-# SOURCE #-} GI.Gio.Objects.DBusMethodInvocation -import {-# SOURCE #-} GI.Gio.Objects.DBusObjectManagerClient -import {-# SOURCE #-} GI.Gio.Objects.DBusObjectManagerServer -import {-# SOURCE #-} GI.Gio.Objects.DBusObjectProxy -import {-# SOURCE #-} GI.Gio.Objects.DBusObjectSkeleton -import {-# SOURCE #-} GI.Gio.Objects.DBusProxy -import {-# SOURCE #-} GI.Gio.Objects.DBusServer -import {-# SOURCE #-} GI.Gio.Objects.DataInputStream -import {-# SOURCE #-} GI.Gio.Objects.DataOutputStream -import {-# SOURCE #-} GI.Gio.Objects.DesktopAppInfo -import {-# SOURCE #-} GI.Gio.Objects.Emblem -import {-# SOURCE #-} GI.Gio.Objects.EmblemedIcon -import {-# SOURCE #-} GI.Gio.Objects.FileEnumerator -import {-# SOURCE #-} GI.Gio.Objects.FileIOStream -import {-# SOURCE #-} GI.Gio.Objects.FileIcon -import {-# SOURCE #-} GI.Gio.Objects.FileInfo -import {-# SOURCE #-} GI.Gio.Objects.FileInputStream -import {-# SOURCE #-} GI.Gio.Objects.FileMonitor -import {-# SOURCE #-} GI.Gio.Objects.FileOutputStream -import {-# SOURCE #-} GI.Gio.Objects.FilenameCompleter -import {-# SOURCE #-} GI.Gio.Objects.FilterInputStream -import {-# SOURCE #-} GI.Gio.Objects.FilterOutputStream -import {-# SOURCE #-} GI.Gio.Objects.IOStream -import {-# SOURCE #-} GI.Gio.Objects.InetAddress -import {-# SOURCE #-} GI.Gio.Objects.InetAddressMask -import {-# SOURCE #-} GI.Gio.Objects.InetSocketAddress -import {-# SOURCE #-} GI.Gio.Objects.InputStream -import {-# SOURCE #-} GI.Gio.Objects.ListStore -import {-# SOURCE #-} GI.Gio.Objects.MemoryInputStream -import {-# SOURCE #-} GI.Gio.Objects.MemoryOutputStream -import {-# SOURCE #-} GI.Gio.Objects.Menu -import {-# SOURCE #-} GI.Gio.Objects.MenuAttributeIter -import {-# SOURCE #-} GI.Gio.Objects.MenuItem -import {-# SOURCE #-} GI.Gio.Objects.MenuLinkIter -import {-# SOURCE #-} GI.Gio.Objects.MenuModel -import {-# SOURCE #-} GI.Gio.Objects.MountOperation -import {-# SOURCE #-} GI.Gio.Objects.NativeVolumeMonitor -import {-# SOURCE #-} GI.Gio.Objects.NetworkAddress -import {-# SOURCE #-} GI.Gio.Objects.NetworkService -import {-# SOURCE #-} GI.Gio.Objects.Notification -import {-# SOURCE #-} GI.Gio.Objects.OutputStream -import {-# SOURCE #-} GI.Gio.Objects.Permission -import {-# SOURCE #-} GI.Gio.Objects.PropertyAction -import {-# SOURCE #-} GI.Gio.Objects.ProxyAddress -import {-# SOURCE #-} GI.Gio.Objects.ProxyAddressEnumerator -import {-# SOURCE #-} GI.Gio.Objects.Resolver -import {-# SOURCE #-} GI.Gio.Objects.Settings -import {-# SOURCE #-} GI.Gio.Objects.SimpleAction -import {-# SOURCE #-} GI.Gio.Objects.SimpleActionGroup -import {-# SOURCE #-} GI.Gio.Objects.SimpleAsyncResult -import {-# SOURCE #-} GI.Gio.Objects.SimpleIOStream -import {-# SOURCE #-} GI.Gio.Objects.SimplePermission -import {-# SOURCE #-} GI.Gio.Objects.SimpleProxyResolver -import {-# SOURCE #-} GI.Gio.Objects.Socket -import {-# SOURCE #-} GI.Gio.Objects.SocketAddress -import {-# SOURCE #-} GI.Gio.Objects.SocketAddressEnumerator -import {-# SOURCE #-} GI.Gio.Objects.SocketClient -import {-# SOURCE #-} GI.Gio.Objects.SocketConnection -import {-# SOURCE #-} GI.Gio.Objects.SocketControlMessage -import {-# SOURCE #-} GI.Gio.Objects.SocketListener -import {-# SOURCE #-} GI.Gio.Objects.SocketService -import {-# SOURCE #-} GI.Gio.Objects.Subprocess -import {-# SOURCE #-} GI.Gio.Objects.SubprocessLauncher -import {-# SOURCE #-} GI.Gio.Objects.Task -import {-# SOURCE #-} GI.Gio.Objects.TcpConnection -import {-# SOURCE #-} GI.Gio.Objects.TcpWrapperConnection -import {-# SOURCE #-} GI.Gio.Objects.TestDBus -import {-# SOURCE #-} GI.Gio.Objects.ThemedIcon -import {-# SOURCE #-} GI.Gio.Objects.ThreadedSocketService -import {-# SOURCE #-} GI.Gio.Objects.TlsCertificate -import {-# SOURCE #-} GI.Gio.Objects.TlsConnection -import {-# SOURCE #-} GI.Gio.Objects.TlsDatabase -import {-# SOURCE #-} GI.Gio.Objects.TlsInteraction -import {-# SOURCE #-} GI.Gio.Objects.TlsPassword -import {-# SOURCE #-} GI.Gio.Objects.UnixConnection -import {-# SOURCE #-} GI.Gio.Objects.UnixCredentialsMessage -import {-# SOURCE #-} GI.Gio.Objects.UnixFDList -import {-# SOURCE #-} GI.Gio.Objects.UnixFDMessage -import {-# SOURCE #-} GI.Gio.Objects.UnixInputStream -import {-# SOURCE #-} GI.Gio.Objects.UnixMountMonitor -import {-# SOURCE #-} GI.Gio.Objects.UnixOutputStream -import {-# SOURCE #-} GI.Gio.Objects.UnixSocketAddress -import {-# SOURCE #-} GI.Gio.Objects.Vfs -import {-# SOURCE #-} GI.Gio.Objects.VolumeMonitor -import {-# SOURCE #-} GI.Gio.Objects.ZlibCompressor -import {-# SOURCE #-} GI.Gio.Objects.ZlibDecompressor -import {-# SOURCE #-} GI.Gio.Structs.ActionEntry -import {-# SOURCE #-} GI.Gio.Structs.DBusAnnotationInfo -import {-# SOURCE #-} GI.Gio.Structs.DBusArgInfo -import {-# SOURCE #-} GI.Gio.Structs.DBusErrorEntry -import {-# SOURCE #-} GI.Gio.Structs.DBusInterfaceInfo -import {-# SOURCE #-} GI.Gio.Structs.DBusInterfaceVTable -import {-# SOURCE #-} GI.Gio.Structs.DBusMethodInfo -import {-# SOURCE #-} GI.Gio.Structs.DBusNodeInfo -import {-# SOURCE #-} GI.Gio.Structs.DBusPropertyInfo -import {-# SOURCE #-} GI.Gio.Structs.DBusSignalInfo -import {-# SOURCE #-} GI.Gio.Structs.DBusSubtreeVTable -import {-# SOURCE #-} GI.Gio.Structs.FileAttributeInfo -import {-# SOURCE #-} GI.Gio.Structs.FileAttributeInfoList -import {-# SOURCE #-} GI.Gio.Structs.FileAttributeMatcher -import {-# SOURCE #-} GI.Gio.Structs.IOExtension -import {-# SOURCE #-} GI.Gio.Structs.IOExtensionPoint -import {-# SOURCE #-} GI.Gio.Structs.IOModuleScope -import {-# SOURCE #-} GI.Gio.Structs.IOSchedulerJob -import {-# SOURCE #-} GI.Gio.Structs.IOStreamAdapter -import {-# SOURCE #-} GI.Gio.Structs.InputVector -import {-# SOURCE #-} GI.Gio.Structs.NativeSocketAddress -import {-# SOURCE #-} GI.Gio.Structs.OutputMessage -import {-# SOURCE #-} GI.Gio.Structs.OutputVector -import {-# SOURCE #-} GI.Gio.Structs.Resource -import {-# SOURCE #-} GI.Gio.Structs.SettingsBackend -import {-# SOURCE #-} GI.Gio.Structs.SettingsSchema -import {-# SOURCE #-} GI.Gio.Structs.SettingsSchemaKey -import {-# SOURCE #-} GI.Gio.Structs.SettingsSchemaSource -import {-# SOURCE #-} GI.Gio.Structs.SrvTarget -import {-# SOURCE #-} GI.Gio.Structs.StaticResource -import {-# SOURCE #-} GI.Gio.Structs.UnixMountEntry -import {-# SOURCE #-} GI.Gio.Structs.UnixMountPoint - -import GI.Gio.Enums -import GI.Gio.Flags - diff --git a/Gio.overrides b/Gio.overrides new file mode 100644 --- /dev/null +++ b/Gio.overrides @@ -0,0 +1,45 @@ +namespace Gio + +# The length argument is an out value, but it is not marked as such in +# the bindings. +ignore TlsPassword.get_value + +# These API elements refer to symbols which are dynamically loaded, +# so the linker cannot resolve them. +ignore IOModule +ignore io_modules_load_all_in_directory +ignore io_modules_load_all_in_directory_with_scope + +# Not supported on Windows. +if windows + ignore DBusMessage.get_unix_fd_list + ignore DBusMessage.set_unix_fd_list + ignore DBusMethodInvocation.return_value_with_unix_fd_list + ignore unix_mounts_changed_since + ignore unix_mount_points_changed_since + ignore unix_mount_is_system_internal + ignore unix_mount_is_readonly + ignore unix_mount_guess_symbolic_icon + ignore unix_mount_guess_should_display + ignore unix_mount_guess_name + ignore unix_mount_guess_icon + ignore unix_mount_guess_can_eject + ignore unix_mount_get_mount_path + ignore unix_mount_get_fs_type + ignore unix_mount_get_device_path + ignore unix_mount_free + ignore unix_mount_compare + ignore unix_is_mount_path_system_internal + ignore unix_is_mount_path_system_internal + ignore DBusConnection.call_with_unix_fd_list_finish + ignore DBusConnection.call_with_unix_fd_list_sync + ignore DBusConnection.call_with_unix_fd_list + ignore UnixFDList.get_type + ignore UnixFDList.append + ignore UnixFDList.get + ignore UnixFDList.get_length + ignore UnixFDList.peek_fds + ignore UnixFDList.steal_fds + ignore UnixFDList.new + ignore UnixFDList.new_from_array +endif diff --git a/Setup.hs b/Setup.hs --- a/Setup.hs +++ b/Setup.hs @@ -1,3 +1,12 @@ -#!/usr/bin/env runhaskell -import Distribution.Simple -main = defaultMain +{-# LANGUAGE OverloadedStrings #-} + +import Distribution.Simple (defaultMainWithHooks) +import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks) + +main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose + overridesFile outputDir) + where name = "Gio" + version = "2.0" + verbose = False + overridesFile = Just "Gio.overrides" + outputDir = Nothing diff --git a/gi-gio.cabal b/gi-gio.cabal --- a/gi-gio.cabal +++ b/gi-gio.cabal @@ -1,6 +1,5 @@ --- Autogenerated, do not edit. name: gi-gio -version: 0.2.46.15 +version: 2.0.1 synopsis: Gio bindings description: Bindings for Gio, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -9,198 +8,28 @@ author: Will Thompson, Iñaki García Etxebarria and Jonas Platte maintainer: Iñaki García Etxebarria (garetxe@gmail.com) category: Bindings -build-type: Simple -cabal-version: >=1.10 +build-type: Custom +cabal-version: >= 1.24 +extra-source-files: Gio.overrides + +custom-setup + setup-depends: base >= 4.7, + Cabal >= 1.24, + haskell-gi >= 0.15 + library default-language: Haskell2010 default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts other-extensions: PatternSynonyms ViewPatterns ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations - exposed-modules: GI.Gio.Types - GI.Gio - GI.Gio.Callbacks - GI.Gio.Constants - GI.Gio.Enums - GI.Gio.Flags - GI.Gio.Functions - GI.Gio.Interfaces - GI.Gio.Interfaces.Action - GI.Gio.Interfaces.ActionGroup - GI.Gio.Interfaces.ActionMap - GI.Gio.Interfaces.AppInfo - GI.Gio.Interfaces.AsyncInitable - GI.Gio.Interfaces.AsyncResult - GI.Gio.Interfaces.Converter - GI.Gio.Interfaces.DBusInterface - GI.Gio.Interfaces.DBusObject - GI.Gio.Interfaces.DBusObjectManager - GI.Gio.Interfaces.DesktopAppInfoLookup - GI.Gio.Interfaces.Drive - GI.Gio.Interfaces.File - GI.Gio.Interfaces.FileDescriptorBased - GI.Gio.Interfaces.Icon - GI.Gio.Interfaces.Initable - GI.Gio.Interfaces.ListModel - GI.Gio.Interfaces.LoadableIcon - GI.Gio.Interfaces.Mount - GI.Gio.Interfaces.NetworkMonitor - GI.Gio.Interfaces.PollableInputStream - GI.Gio.Interfaces.PollableOutputStream - GI.Gio.Interfaces.Proxy - GI.Gio.Interfaces.ProxyResolver - GI.Gio.Interfaces.RemoteActionGroup - GI.Gio.Interfaces.Seekable - GI.Gio.Interfaces.SocketConnectable - GI.Gio.Interfaces.TlsBackend - GI.Gio.Interfaces.TlsClientConnection - GI.Gio.Interfaces.TlsFileDatabase - GI.Gio.Interfaces.TlsServerConnection - GI.Gio.Interfaces.Volume - GI.Gio.Objects - GI.Gio.Objects.AppInfoMonitor - GI.Gio.Objects.AppLaunchContext - GI.Gio.Objects.Application - GI.Gio.Objects.ApplicationCommandLine - GI.Gio.Objects.BufferedInputStream - GI.Gio.Objects.BufferedOutputStream - GI.Gio.Objects.BytesIcon - GI.Gio.Objects.Cancellable - GI.Gio.Objects.CharsetConverter - GI.Gio.Objects.ConverterInputStream - GI.Gio.Objects.ConverterOutputStream - GI.Gio.Objects.Credentials - GI.Gio.Objects.DBusActionGroup - GI.Gio.Objects.DBusAuthObserver - GI.Gio.Objects.DBusConnection - GI.Gio.Objects.DBusInterfaceSkeleton - GI.Gio.Objects.DBusMenuModel - GI.Gio.Objects.DBusMessage - GI.Gio.Objects.DBusMethodInvocation - GI.Gio.Objects.DBusObjectManagerClient - GI.Gio.Objects.DBusObjectManagerServer - GI.Gio.Objects.DBusObjectProxy - GI.Gio.Objects.DBusObjectSkeleton - GI.Gio.Objects.DBusProxy - GI.Gio.Objects.DBusServer - GI.Gio.Objects.DataInputStream - GI.Gio.Objects.DataOutputStream - GI.Gio.Objects.DesktopAppInfo - GI.Gio.Objects.Emblem - GI.Gio.Objects.EmblemedIcon - GI.Gio.Objects.FileEnumerator - GI.Gio.Objects.FileIOStream - GI.Gio.Objects.FileIcon - GI.Gio.Objects.FileInfo - GI.Gio.Objects.FileInputStream - GI.Gio.Objects.FileMonitor - GI.Gio.Objects.FileOutputStream - GI.Gio.Objects.FilenameCompleter - GI.Gio.Objects.FilterInputStream - GI.Gio.Objects.FilterOutputStream - GI.Gio.Objects.IOStream - GI.Gio.Objects.InetAddress - GI.Gio.Objects.InetAddressMask - GI.Gio.Objects.InetSocketAddress - GI.Gio.Objects.InputStream - GI.Gio.Objects.ListStore - GI.Gio.Objects.MemoryInputStream - GI.Gio.Objects.MemoryOutputStream - GI.Gio.Objects.Menu - GI.Gio.Objects.MenuAttributeIter - GI.Gio.Objects.MenuItem - GI.Gio.Objects.MenuLinkIter - GI.Gio.Objects.MenuModel - GI.Gio.Objects.MountOperation - GI.Gio.Objects.NativeVolumeMonitor - GI.Gio.Objects.NetworkAddress - GI.Gio.Objects.NetworkService - GI.Gio.Objects.Notification - GI.Gio.Objects.OutputStream - GI.Gio.Objects.Permission - GI.Gio.Objects.PropertyAction - GI.Gio.Objects.ProxyAddress - GI.Gio.Objects.ProxyAddressEnumerator - GI.Gio.Objects.Resolver - GI.Gio.Objects.Settings - GI.Gio.Objects.SimpleAction - GI.Gio.Objects.SimpleActionGroup - GI.Gio.Objects.SimpleAsyncResult - GI.Gio.Objects.SimpleIOStream - GI.Gio.Objects.SimplePermission - GI.Gio.Objects.SimpleProxyResolver - GI.Gio.Objects.Socket - GI.Gio.Objects.SocketAddress - GI.Gio.Objects.SocketAddressEnumerator - GI.Gio.Objects.SocketClient - GI.Gio.Objects.SocketConnection - GI.Gio.Objects.SocketControlMessage - GI.Gio.Objects.SocketListener - GI.Gio.Objects.SocketService - GI.Gio.Objects.Subprocess - GI.Gio.Objects.SubprocessLauncher - GI.Gio.Objects.Task - GI.Gio.Objects.TcpConnection - GI.Gio.Objects.TcpWrapperConnection - GI.Gio.Objects.TestDBus - GI.Gio.Objects.ThemedIcon - GI.Gio.Objects.ThreadedSocketService - GI.Gio.Objects.TlsCertificate - GI.Gio.Objects.TlsConnection - GI.Gio.Objects.TlsDatabase - GI.Gio.Objects.TlsInteraction - GI.Gio.Objects.TlsPassword - GI.Gio.Objects.UnixConnection - GI.Gio.Objects.UnixCredentialsMessage - GI.Gio.Objects.UnixFDList - GI.Gio.Objects.UnixFDMessage - GI.Gio.Objects.UnixInputStream - GI.Gio.Objects.UnixMountMonitor - GI.Gio.Objects.UnixOutputStream - GI.Gio.Objects.UnixSocketAddress - GI.Gio.Objects.Vfs - GI.Gio.Objects.VolumeMonitor - GI.Gio.Objects.ZlibCompressor - GI.Gio.Objects.ZlibDecompressor - GI.Gio.Structs - GI.Gio.Structs.ActionEntry - GI.Gio.Structs.DBusAnnotationInfo - GI.Gio.Structs.DBusArgInfo - GI.Gio.Structs.DBusErrorEntry - GI.Gio.Structs.DBusInterfaceInfo - GI.Gio.Structs.DBusInterfaceVTable - GI.Gio.Structs.DBusMethodInfo - GI.Gio.Structs.DBusNodeInfo - GI.Gio.Structs.DBusPropertyInfo - GI.Gio.Structs.DBusSignalInfo - GI.Gio.Structs.DBusSubtreeVTable - GI.Gio.Structs.FileAttributeInfo - GI.Gio.Structs.FileAttributeInfoList - GI.Gio.Structs.FileAttributeMatcher - GI.Gio.Structs.IOExtension - GI.Gio.Structs.IOExtensionPoint - GI.Gio.Structs.IOModuleScope - GI.Gio.Structs.IOSchedulerJob - GI.Gio.Structs.IOStreamAdapter - GI.Gio.Structs.InputVector - GI.Gio.Structs.NativeSocketAddress - GI.Gio.Structs.OutputMessage - GI.Gio.Structs.OutputVector - GI.Gio.Structs.Resource - GI.Gio.Structs.SettingsBackend - GI.Gio.Structs.SettingsSchema - GI.Gio.Structs.SettingsSchemaKey - GI.Gio.Structs.SettingsSchemaSource - GI.Gio.Structs.SrvTarget - GI.Gio.Structs.StaticResource - GI.Gio.Structs.UnixMountEntry - GI.Gio.Structs.UnixMountPoint - pkgconfig-depends: gio-2.0 >= 2.46 + + pkgconfig-depends: gio-2.0 build-depends: base >= 4.7 && <5, haskell-gi-base >= 0.15 && < 1, - gi-glib >= 0.2.46.15 && < 0.2.47, - gi-gobject >= 0.2.46.15 && < 0.2.47, + gi-glib == 2.0.*, + gi-gobject == 2.0.*, bytestring >= 0.10, containers >= 0.5, text >= 1.0, - transformers >= 0.3 + transformers >= 0.5